| Název | Popis | Datový typ |
|---|---|---|
| AccDateFrom | Float(0, 0) | |
| AccDateTo | Float(0, 0) | |
| TextUsed | Char(1) | |
| Text | VarChar(40) | |
| AccountCode | VarChar(10) | |
| AccountSelID | Char(10) | |
| AmountUsed | Char(1) | |
| AmountFrom | Numeric(15, 2) | |
| AmountTo | Numeric(15, 2) | |
| AmountInCurrencyUsed | Char(1) | |
| AmountInCurrencyFrom | Numeric(15, 2) | |
| AmountInCurrencyTo | Numeric(15, 2) | |
| Audited | Char(1) | |
| IDSelID | Char(10) | |
| AccDocQueueSelID | Char(10) | |
| PeriodSelID | Char(10) | |
| FirmSelID | Char(10) | |
| DivisionSelID | Char(10) | |
| ADivisionsWithChilds | Char(1) | |
| BusOrderSelID | Char(10) | |
| ABusOrdersWithChilds | Char(1) | |
| BusTransactionSelID | Char(10) | |
| ABusTransactionsWithChilds | Char(1) | |
| BusProjectSelID | Char(10) | |
| ABusProjectsWithChilds | Char(1) | |
| CurrencySelID | Char(10) | |
| WholeGroup | Char(1) | |
| OrdNumberUsed | Char(1) | |
| OrdNumberFrom | Integer | |
| OrdNumberTo | Integer | |
| ShowGroups | Char(1) | |
| DocumentTypeSelID | Char(10) |
| Název | Popis | Datový typ |
|---|---|---|
| AccGroup_ID | Char(10) | |
| AccDate$DATE | Float(0, 0) | |
| ID | Char(10) | |
| CreditAmount | Numeric(15, 2) | |
| DebetAmount | Numeric(15, 2) | |
| GroupFirm_ID | Char(10) |
| Název | Popis | Třída |
|---|---|---|
| GeneralLedgerGroups | Data pro účetní deník souvztažně (podle zadaných podmínek volá různé rychlé podprocedury) | Procedures |
BEGIN
mLastAccGroup_ID = '__________';
mGroupFirm_ID = null;
FOR
SELECT
A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
FROM
GeneralLedgerGroups(:AccDateFrom, :AccDateTo, :TextUsed, :Text, :AccountCode,
:AccountSelID, :AmountUsed, :AmountFrom, :AmountTo, :AmountInCurrencyUsed,
:AmountInCurrencyFrom, :AmountInCurrencyTo, :Audited, :IDSelID, :AccDocQueueSelID,
:PeriodSelID, :FirmSelID, :DivisionSelID, :ADivisionsWithChilds, :BusOrderSelID,
:ABusOrdersWithChilds, :BusTransactionSelID, :ABusTransactionsWithChilds,
:BusProjectSelID, :ABusProjectsWithChilds,
:CurrencySelID, :WholeGroup, :OrdNumberUsed, :OrdNumberFrom, :OrdNumberTo,
:ShowGroups, :DocumentTypeSelID) A
ORDER BY A.AccGroup_ID
INTO
:AccGroup_ID, :AccDate$DATE, :ID, :CreditAmount, :DebetAmount
DO
BEGIN
IF (mLastAccGroup_ID <> :AccGroup_ID) THEN
BEGIN
mLastAccGroup_ID = :AccGroup_ID;
SELECT GL.ID FROM GeneralLedgerGroupsFirm(:AccGroup_ID) GL INTO mGroupFirm_ID ;
END
GroupFirm_ID = mGroupFirm_ID;
SUSPEND;
END
END;Generated by ABRA Software a.s. 27.10.2021 16:34:14