Procedura-GeneralLedgerGroupsBO

Popis:

Data pro účetní deník souvztažně podle zakázky (podle zadaných podmínek volá různé rychlé podprocedury)

Parametry:

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)
GROUPACCOUNTID		Char(10)

Návratové hodnoty:

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)

Závislosti:

Název	Popis	Třída
GeneralLedgerGroupsBOA	Účetní deník souvztažně podle zakázek - za velmi podrobná omezení	Procedures
GeneralLedgerGroupsBOB	Účetní deník souvztažně podle zakázky - omezení přímo za ID z účetního deníku / žádostí	Procedures
GeneralLedgerGroupsBOC	Účetní deník souvztažně podle zakázek - omezení za datum, kód účtu, výběr účtu	Procedures
GeneralLedgerGroupsBOAA	Účetní deník souvztažně podle zakázek - za velmi podrobná omezení	Procedures

Tělo:

BEGIN
  IF (IDSelID <> '') THEN BEGIN
    /*  Vetev pro IDcka */
    FOR
      SELECT
        A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
      FROM
        GeneralLedgerGroupsBOB(:IDSelID) A
      INTO
        :AccGroup_ID, :AccDate$DATE, :ID, :CreditAmount, :DebetAmount
    DO
      SUSPEND;
  END
  ELSE BEGIN
    /* Vetev za vsechny podminky */
    if (:GROUPACCOUNTID = '') then begin
      FOR
        SELECT
          A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
        FROM
          GeneralLedgerGroupsBOAA(: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 else begin
      FOR
        SELECT
          A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
        FROM
          GeneralLedgerGroupsBOA(: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, :GROUPACCOUNTID) A
        INTO
          :AccGroup_ID, :AccDate$DATE, :ID, :CreditAmount, :DebetAmount
      DO
        SUSPEND;
    end
  END
END;

Generated by ABRA Software a.s. 27.10.2021 16:34:14