Procedura-GeneralLedgerGrps2

Popis:

Data pro účetní deník souvztažně podle párovacích znaků (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)

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

Závislosti:

Název	Popis	Třída
GeneralLedgerGrps2A	Účetní deník souvztažně podle párovacích znaků - za velmi podrobná omezení	Procedures
GeneralLedgerGrps2C	Účetní deník souvztažně podle párovacích znaků - omezení za datum, kód účtu, výběr účtu	Procedures
GeneralLedgerGrps2B	Účetní deník souvztažně podle párovacích znaků - omezení přímo za ID z účetního deníku / žádostí	Procedures

Tělo:

BEGIN
/* FB */
  GroupFirm_ID = NULL;
  IF (IDSelID <> '') THEN
  BEGIN
    /* Vetev pro IDcka */
    FOR
      SELECT
        A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
      FROM
        GeneralLedgerGrps2B(:IDSelID, :AccountCode, :AccountSelID) 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
          GeneralLedgerGrps2C(: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
          GeneralLedgerGrps2A(: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

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