begin
SumPSAmount = 0;
SumPSCreditAmount = 0;
SumPSAmountWithoutVAT = 0;
SumPSCreditAmountWithoutVAT = 0;
/*Souhrnne uctenky pokladniho prodeje*/
if (POSSummaredType <> 0) then begin
select sum(PS2.LocalTAmount), sum(PS3.LocalTAmount), sum(PS2.LocalTAmountWithoutVAT), sum(PS3.LocalTAmountWithoutVAT) from POSSummaredDocuments PS
left join POSSummaredDocuments2 PS2 on PS2.Parent_ID=PS.ID
left join POSSummaredDocuments3 PS3 on PS3.Parent_ID=PS.ID
where PS.Firm_ID = :AFirm_ID and
(:DocDateUsed <> 'A' or (PS.DocDate$Date >= :DocDateFrom and PS.DocDate$Date < :DocDateTo)) and
(:AccDateUsed <> 'A' or (PS.AccDate$Date >= :AccDateFrom and PS.AccDate$Date < :AccDateTo))
into :SumPSAmount, :SumPSCreditAmount, :SumPSAmountWithoutVAT, :SumPSCreditAmountWithoutVAT;
if (SumPSAmount is null) then
SumPSAmount = 0;
if (SumPSCreditAmount is null) then
SumPSCreditAmount = 0;
if (SumPSAmountWithoutVAT is null) then
SumPSAmountWithoutVAT = 0;
if (SumPSCreditAmountWithoutVAT is null) then
SumPSCreditAmountWithoutVAT = 0;
end
if (POSSummaredType = 1) then begin
SumPSAmount = SumPSAmount + SumPSCreditAmount;
SumPSAmountWithoutVAT = SumPSAmountWithoutVAT + SumPSCreditAmountWithoutVAT;
end
suspend;
end;