Procedura-GeneralLedgerGrps2WithFirm

Popis:

Data pro účetní deník souvztažně s firmou 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
GeneralLedgerGrps2	Data pro účetní deník souvztažně podle párovacích znaků (podle zadaných podmínek volá různé rychlé podprocedury)	Procedures

Tělo:

BEGIN
  /* FB */
  mLastAccGroup_ID = '__________';
  mGroupFirm_ID = null;
  FOR
    SELECT
      A.AccGroup_ID, A.AccDate$DATE, A.ID, A.CreditAmount, A.DebetAmount
    FROM
      GeneralLedgerGrps2(: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 FIRST 1 
        D.Firm_ID
      FROM 
        GeneralLedger D
      WHERE 
        D.IsRequest='N' AND ((D.AccGroupDebit_ID = :AccGroup_ID) OR (D.AccGroupCredit_ID = :AccGroup_ID)) 
      ORDER BY 
        D.AccDate$DATE DESCENDING
      INTO 
        :mGroupFirm_ID;
    END
    GroupFirm_ID = mGroupFirm_ID;
    SUSPEND;
  END  
END;

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