BEGIN
SumRIAmount = 0;
SumCPAmount = 0;
SumRIAmountWithoutVAT = 0;
SumCPAmountWithoutVAT = 0;
SumRICreditAmount = 0;
SumCPCreditAmount = 0;
SumIDIAmount = 0;
TotalAmount = 0;
SumRICreditAmountWithoutVAT = 0;
SumCPCreditAmountWithoutVAT = 0;
TotalAmountWithoutVAT = 0;
mSumVDIAmount = 0;
mSumVDIAmountWithoutVAT = 0;
mSumVDIUsedAmount = 0;
mSumVDIUsedAmountWithoutVAT = 0;
mSumVDICreditAmount = 0;
mSumVDICreditAmountWithoutVAT = 0;
/* Faktury prijate */
if (RecInvoiceType <> 2) then begin
select
Sum(RI.LocalAmount), Sum(RI.LocalCreditAmount), Sum(RI.LocalAmountWithoutVAT), Sum(RI.LocalCreditAmountWithoutVAT)
from
ReceivedInvoices RI
where
RI.Firm_ID = :AFirm_ID and
(:DocDateUsed <> 'A' or (RI.DocDate$Date >= :DocDateFrom and RI.DocDate$Date < :DocDateTo)) and
(:DueDateUsed <> 'A' or (RI.DueDate$Date >= :DueDateFrom and RI.DueDate$Date < :DueDateTo)) and
(:AccDateUsed <> 'A' or (RI.AccDate$Date >= :AccDateFrom and RI.AccDate$Date < :AccDateTo)) and
(('' = :PaidStatus) or
(('>' = :PaidStatus) AND (RI.Amount > RI.PaidAmount)) or
(('=' = :PaidStatus) AND (RI.Amount = RI.PaidAmount)) or
(('<=' = :PaidStatus) AND (RI.Amount <= RI.PaidAmount)) or
(('<>' = :PaidStatus) AND (RI.Amount <> RI.PaidAmount)) or
(('<' = :PaidStatus) AND (RI.Amount < RI.PaidAmount)))
group by
Firm_ID
into
:SumRIAmount, :SumRICreditAmount, :SumRIAmountWithoutVAT, :SumRICreditAmountWithoutVAT;
if (SumRIAmount IS NULL) then
SumRIAmount = 0;
if (SumRICreditAmount IS NULL) then
SumRICreditAmount = 0;
if (SumRIAmountWithoutVAT IS NULL) then
SumRIAmountWithoutVAT = 0;
if (SumRICreditAmountWithoutVAT IS NULL) then
SumRICreditAmountWithoutVAT = 0;
end
/*Vydane platby*/
if (CashPaidType <> 2) then begin
select
Sum(CP.LocalAmount), Sum(CP.LocalCreditAmount), Sum(CP.LocalAmountWithoutVAT), Sum(CP.LocalCreditAmountWithoutVAT)
from
CashPaid CP
where
CP.Firm_ID = :AFirm_ID and (COALESCE(CP.PDocument_ID, '0000000000') = '0000000000') and -- Aby server použil index za sloupec Firm_ID a ne index za pole PDocument_ID použiváme funkci COALESCE.
(:DocDateUsed <> 'A' or (CP.DocDate$Date >= :DocDateFrom and CP.DocDate$Date < :DocDateTo)) and
(:AccDateUsed <> 'A' or (CP.AccDate$Date >= :AccDateFrom and CP.AccDate$Date < :AccDateTo))
group by
Firm_ID
into
:SumCPAmount, :SumCPCreditAmount, :SumCPAmountWithoutVAT, :SumCPCreditAmountWithoutVAT;
if (SumCPAmount IS NULL) then
SumCPAmount = 0;
if (SumCPCreditAmount IS NULL) then
SumCPCreditAmount = 0;
if (SumCPAmountWithoutVAT IS NULL) then
SumCPAmountWithoutVAT = 0;
if (SumCPCreditAmountWithoutVAT IS NULL) then
SumCPCreditAmountWithoutVAT = 0;
end
/*Zalohove listy*/
if (RecDInv = 'A') then begin
select
Sum(RDI.LocalAmount) - Sum(RDI.LocalUsedAmount)
from
ReceivedDInvoices RDI
where
RDI.Firm_ID = :AFirm_ID and
(:DocDateUsed <> 'A' or (RDI.DocDate$Date >= :DocDateFrom and RDI.DocDate$Date < :DocDateTo)) and
(:DueDateUsed <> 'A' or (RDI.DueDate$Date >= :DueDateFrom and RDI.DueDate$Date < :DueDateTo))
group by
Firm_ID
into
:SumIDIAmount;
if (SumIDIAmount IS NULL) then
SumIDIAmount = 0;
end
/* DZP */
if (AVATRecDInv <> 3) then begin
select
Sum(II.LocalAmount),
Sum(II.LocalCreditAmount),
Sum(II.LocalAmountWithoutVAT),
Sum(II.LocalCreditAmountWithoutVAT),
Sum(II.LocalUsedAmount),
Sum(II.LocalUsedAmountWithoutVAT)
from
VATReceivedDInvoices II
where
II.Firm_ID = :AFirm_ID and
(:DocDateUsed <> 'A' or (II.DocDate$Date >= :DocDateFrom and II.DocDate$Date < :DocDateTo)) and
(:AccDateUsed <> 'A' or (II.AccDate$Date >= :AccDateFrom and II.AccDate$Date < :AccDateTo)) and
(('' = :PaidStatus) or
(('>' = :PaidStatus) AND (II.Amount > II.PaidAmount)) or
(('=' = :PaidStatus) AND (II.Amount = II.PaidAmount)) or
(('<=' = :PaidStatus) AND (II.Amount <= II.PaidAmount)) or
(('<>' = :PaidStatus) AND (II.Amount <> II.PaidAmount)) or
(('<' = :PaidStatus) AND (II.Amount < II.PaidAmount)))
into
:mSumVDIAmount,
:mSumVDICreditAmount,
:mSumVDIAmountWithoutVAT,
:mSumVDICreditAmountWithoutVAT,
:mSumVDIUsedAmount,
:mSumVDIUsedAmountWithoutVAT;
if (mSumVDIAmount IS NULL) then
mSumVDIAmount = 0;
if (mSumVDICreditAmount IS NULL) then
mSumVDICreditAmount = 0;
if (mSumVDIAmountWithoutVAT IS NULL) then
mSumVDIAmountWithoutVAT = 0;
if (mSumVDICreditAmountWithoutVAT IS NULL) then
mSumVDICreditAmountWithoutVAT = 0;
if (mSumVDIUsedAmount IS NULL) then
mSumVDIUsedAmount = 0;
if (mSumVDIUsedAmountWithoutVAT IS NULL) then
mSumVDIUsedAmountWithoutVAT = 0;
end
ID = AFirm_ID;
if (RecInvoiceType = 0) then begin
SumRIAmount = SumRIAmount - SumRICreditAmount;
SumRIAmountWithoutVAT = SumRIAmountWithoutVAT - SumRICreditAmountWithoutVAT;
end
if (CashPaidType = 0) then begin
SumCPAmount = SumCPAmount - SumCPCreditAmount;
SumCPAmountWithoutVAT = SumCPAmountWithoutVAT - SumCPCreditAmountWithoutVAT;
end
if (AVATRecDInv = 0) then begin
SumRIAmount = SumRIAmount + mSumVDIAmount - mSumVDICreditAmount;
SumRIAmountWithoutVAT = SumRIAmountWithoutVAT + mSumVDIAmountWithoutVAT - mSumVDICreditAmountWithoutVAT;
end
if (AVATRecDInv = 1) then begin
SumRIAmount = SumRIAmount + mSumVDIAmount;
SumRIAmountWithoutVAT = SumRIAmountWithoutVAT + mSumVDIAmountWithoutVAT;
end
if (AVATRecDInv = 2) then begin
SumRIAmount = SumRIAmount + mSumVDIUsedAmount;
SumRIAmountWithoutVAT = SumRIAmountWithoutVAT + mSumVDIUsedAmountWithoutVAT;
end
SumRIAmount = SumRIAmount + SumIDIAmount;
SumRIAmountWithoutVAT = SumRIAmountWithoutVAT + SumIDIAmount;
TotalAmount = SumRIAmount + SumCPAmount;
TotalAmountWithoutVAT = SumRIAmountWithoutVAT + SumCPAmountWithoutVAT;
Suspend;
end;