BEGIN
IF (IDSelID <> '') THEN BEGIN
/* Vetev pro IDcka */
FOR
SELECT
A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
FROM
GeneralLedgerGroupsB(:IDSelID) A
INTO
:AccGroup_ID, :AccDate$DATE, :ID, :CreditAmount, :DebetAmount
DO
SUSPEND;
END
ELSE BEGIN
IF ((TextUsed = 'N') AND (AmountUsed = 'N') AND (Audited = '%') AND
(AccDocQueueSelID = '') AND (PeriodSelID = '') AND (FirmSelID = '') AND
(DivisionSelID = '') AND (BusOrderSelID = '') AND (BusTransactionSelID = '') AND (BusProjectSelID = '') AND
(CurrencySelID = '') AND (OrdNumberUsed = 'N') AND (DocumentTypeSelID = ''))
THEN BEGIN
/* Rychla vetev pro par podminek. */
FOR
SELECT
A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
FROM
GeneralLedgerGroupsC(:AccDateFrom, :AccDateTo, :AccountCode, :AccountSelID,
:WholeGroup, :ShowGroups) A
INTO
:AccGroup_ID, :AccDate$DATE, :ID, :CreditAmount, :DebetAmount
DO
SUSPEND;
END
ELSE BEGIN
/* Vetev za vsechny podminky */
FOR
SELECT
A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
FROM
GeneralLedgerGroupsA(:AccDateFrom, :AccDateTo, :TextUsed, :Text, :AccountCode,
:AccountSelID, :AmountUsed, :AmountFrom, :AmountTo, :AmountInCurrencyUsed,
:AmountInCurrencyFrom, :AmountInCurrencyTo, :Audited, :AccDocQueueSelID,
:PeriodSelID, :FirmSelID, :DivisionSelID, :ADivisionsWithChilds, :BusOrderSelID,
:ABusOrdersWithChilds, :BusTransactionSelID, :ABusTransactionsWithChilds,
:BusProjectSelID, :ABusProjectsWithChilds,
:CurrencySelID, :WholeGroup, :OrdNumberUsed, :OrdNumberFrom, :OrdNumberTo,
:ShowGroups, :DocumentTypeSelID) A
INTO
:AccGroup_ID, :AccDate$DATE, :ID, :CreditAmount, :DebetAmount
DO
SUSPEND;
END
END
END;