begin
/* Pro firmu */
Select
SumIIAmount,
SumIIAmountWithoutVAT,
SumCRAmount,
SumCRAmountWithoutVAT,
TotalAmount,
TotalAmountWithoutVAT
From
SubscriberTurnoverFromRows(
:InIssinvoicetype,
:InCashrectype,
:InIssdinv,
:InVATIssDInv,
:InDocDateUsed,
:InDocDateFrom,
:InDocDateTo,
:InDivisionSelID,
:InDueDateUsed,
:InDueDateFrom,
:InDueDateTo,
:InFirmID,
:InBusOrderSelID,
:InBusOrdersWithChilds,
:InBusTransactionSelID,
:InBusTransactionsWithChilds,
:InBusProjectSelID,
:InBusProjectsWithChilds,
:InPaidStatus,
:InDivisionsWithChilds)
Into
:SumIIAmount,
:SumIIAmountWithoutVAT,
:SumCRAmount,
:SumCRAmountWithoutVAT,
:TotalAmount,
:TotalAmountWithoutVAT;
/* Pro předchůdce */
For
Select
ID
From
Firms A
Where
A.Firm_ID = :INFirmID
Into
mAncestorID
Do Begin
Select
SumIIAmount,
SumIIAmountWithoutVAT,
SumCRAmount,
SumCRAmountWithoutVAT,
TotalAmount,
TotalAmountWithoutVAT
From
SubscriberTurnoverFromRows(
:InIssinvoicetype,
:InCashrectype,
:InIssdinv,
:InVATIssDInv,
:InDocDateUsed,
:InDocDateFrom,
:InDocDateTo,
:InDivisionSelID,
:InDueDateUsed,
:InDueDateFrom,
:InDueDateTo,
:InFirmID,
:InBusOrderSelID,
:InBusOrdersWithChilds,
:InBusTransactionSelID,
:InBusTransactionsWithChilds,
:InBusProjectSelID,
:InBusProjectsWithChilds,
:InPaidStatus,
:InDivisionsWithChilds)
Into
:mSumIIAmount,
:mSumIIAmountWithoutVAT,
:mSumCRAmount,
:mSumCRAmountWithoutVAT,
:mTotalAmount,
:mTotalAmountWithoutVAT;
SumIIAmount = SumIIAmount + mSumIIAmount;
SumIIAmountWithoutVAT = SumIIAmountWithoutVAT + mSumIIAmountWithoutVAT;
SumCRAmount = SumCRAmount + mSumCRAmount;
SumCRAmountWithoutVAT = SumCRAmountWithoutVAT + mSumCRAmountWithoutVAT;
TotalAmount = TotalAmount + mTotalAmount;
TotalAmountWithoutVAT = TotalAmountWithoutVAT + mTotalAmountWithoutVAT;
End
Suspend;
End