BEGIN
if ((:DivisionSelID = '') and (:BusOrderSelID = '') and (:BusTransactionSelID = '') and (:BusProjectSelID = '')) then begin
for
/* Firmy */
select A.ID from Firms A
where
A.Hidden = 'N' and
(
(A.ID in (select OBJ_ID from SELDAT where SEL_ID = :FirmSelID)) or
(:FirmSelID = '' and A.Firm_ID is null)
)
into :mFirm_ID
do begin
/* Zjisteni obratu pro aktualni firmu */
select SumIIAmount, SumIIAmountWithoutVAT, SumCRAmount, SumCRAmountWithoutVAT,
ID, TotalAmount, TotalAmountWithoutVAT
from
SubscriberTurnover2(:IssInvoiceType, :CashRecType, :POSSummaredType, :IssDInv, :AVATIssDInv,
:DocDateUsed, :DocDateFrom, :DocDateTo,
:DueDateUsed, :DueDateFrom, :DueDateTo,
:AccDateUsed, :AccDateFrom, :AccDateTo,
:mFirm_ID, :PaidStatus)
into
:SumIIAmount, :SumIIAmountWithoutVAT, :SumCRAmount, :SumCRAmountWithoutVAT,
:ID, :TotalAmount, :TotalAmountWithoutVAT;
/* Navyseni za obraty predchudcu */
for
select B.ID from Firms B
where
B.Firm_ID = :mFirm_ID
into
:mAncestor_ID
do begin
select SumIIAmount, SumIIAmountWithoutVAT, SumCRAmount, SumCRAmountWithoutVAT,
TotalAmount, TotalAmountWithoutVAT
from
SubscriberTurnover2(:IssInvoiceType, :CashRecType, :POSSummaredType, :IssDInv, :AVATIssDInv,
:DocDateUsed, :DocDateFrom, :DocDateTo,
:DueDateUsed, :DueDateFrom, :DueDateTo,
:AccDateUsed, :AccDateFrom, :AccDateTo,
:mAncestor_ID, :PaidStatus)
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
end else begin
for
/* Firmy */
select A.ID from Firms A
where
A.Hidden = 'N' and
(
(A.ID in (select OBJ_ID from SELDAT where SEL_ID = :FirmSelID)) or
(:FirmSelID = '' and A.Firm_ID is null)
)
into :mFirm_ID
do begin
/* Zjisteni obratu pro aktualni firmu */
select SumIIAmount, SumIIAmountWithoutVAT, SumCRAmount, SumCRAmountWithoutVAT,
ID, TotalAmount, TotalAmountWithoutVAT
from
SubscriberTurnoverFromRows2(:IssInvoiceType, :CashRecType, :POSSummaredType, :IssDInv, :AVATIssDInv,
:DocDateUsed, :DocDateFrom, :DocDateTo, :DivisionSelID,
:DueDateUsed, :DueDateFrom, :DueDateTo,
:AccDateUsed, :AccDateFrom, :AccDateTo, :mFirm_ID,
:BusOrderSelID, :ABusOrdersWithChilds,
:BusTransactionSelID, :ABusTransactionsWithChilds, :BusProjectSelID, :ABusProjectsWithChilds, :PaidStatus,
:ADivisionsWithChilds)
into
:SumIIAmount, :SumIIAmountWithoutVAT, :SumCRAmount, :SumCRAmountWithoutVAT,
:ID, :TotalAmount, :TotalAmountWithoutVAT;
/* Navyseni za obraty predchudcu */
for
select B.ID from Firms B
where
B.Firm_ID = :mFirm_ID
into
:mAncestor_ID
do begin
select SumIIAmount, SumIIAmountWithoutVAT, SumCRAmount, SumCRAmountWithoutVAT,
TotalAmount, TotalAmountWithoutVAT
from
SubscriberTurnoverFromRows2(:IssInvoiceType, :CashRecType, :POSSummaredType, :IssDInv, :AVATIssDInv,
:DocDateUsed, :DocDateFrom, :DocDateTo, :DivisionSelID,
:DueDateUsed, :DueDateFrom, :DueDateTo,
:AccDateUsed, :AccDateFrom, :AccDateTo, :mAncestor_ID,
:BusOrderSelID, :ABusOrdersWithChilds,
:BusTransactionSelID, :ABusTransactionsWithChilds, :BusProjectSelID, :ABusProjectsWithChilds, :PaidStatus,
:ADivisionsWithChilds)
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
end
end;