BEGIN
/* CALL-OFF STOCK */
VATIndex_ID = '0000000000';
ESLIndicator_ID = '0000000000';
TAmountWithoutVAT = 0.00;
LocalTAmountWithoutVAT = 0.00;
TAmount = 0.00;
LocalTAmount = 0.00;
/* radky StoreDocuments */
FOR
SELECT
B.ID, B.DocQueue_ID, B.OrdNumber, B.Period_ID, B.DocDate$Date,
A.Text, B.Description, B.Firm_ID, A.Division_ID, A.BusOrder_ID, A.BusTransaction_ID, A.BusProject_ID,
A.PosIndex, A.RowType, B.VIESKind
FROM
StoreDocuments2 A
join StoreDocuments B ON A.Parent_ID = B.ID
WHERE
(B.DocumentType = '22') and (B.VIESKind > 0) and
(A.RowType in (1,2,3,4,5)) and
(B.DocDate$Date >= :AESLDateFrom and B.DocDate$Date < :AESLDateTo) and
( (:AFirmSel_ID = '') OR
(B.Firm_ID in (select OBJ_ID from SELDAT where SEL_ID = :AFirmSel_ID)) OR
(B.Firm_ID in (SELECT ID FROM Firms WHERE Firm_ID in (select OBJ_ID from SELDAT where SEL_ID = :AFirmSel_ID))) )
INTO
:Document_ID, :DocQueue_ID, :OrdNumber, :Period_ID, :ESLDate$Date,
:Text, :Description, :Firm_ID, :Division_ID, :BusOrder_ID, :BusTransaction_ID, :BusProject_ID,
:PosIndex, :mRowType, :VIESKind
DO BEGIN
EXECUTE PROCEDURE CheckDivisionAndBusX
:Division_ID, :ADivisionSel_ID, :ADivisionsWithChildren,
:BusOrder_ID, :ABusOrderSel_ID, :ABusOrdersWithChildren,
:BusTransaction_ID, :ABusTransactionSel_ID, :ABusTransactionsWithChildren,
:BusProject_ID, :ABusProjectSel_ID, :ABusProjectsWithChildren
RETURNING_VALUES
:mSuspend;
IF (mSuspend > 0) THEN
BEGIN
IF (mRowType = 4) THEN
Text = '';
SUSPEND;
END
END
END