Procedura-GeneralLedgerGroupsC1

Popis:

Poskytuje data proceduře GeneralLedgerGroupsC

Parametry:

Název	Popis	Datový typ
AccDateFrom		Float(0, 0)
AccDateTo		Float(0, 0)
AccountCode		VarChar(10)
AccountSelID		Char(10)
WholeGroup		Char(1)
AccGroup_ID		Char(10)

Návratové hodnoty:

Název	Popis	Datový typ
ID		Char(10)

Tělo:

BEGIN
  /* celá skupina bez ohledu */
  IF (WholeGroup = '1') THEN BEGIN
    FOR
      SELECT D.ID
      FROM GeneralLedger D
      WHERE
        D.AccGroup_ID = :AccGroup_ID AND
        D.IsRequest = 'N'
      INTO :ID
    DO
      SUSPEND;
  END
  /* celá skupina s ohledem pouze na datum účtování a období */
  IF (WholeGroup = '2') THEN BEGIN
    FOR
      SELECT D.ID
      FROM GeneralLedger D
      WHERE
        D.AccGroup_ID = :AccGroup_ID AND
        D.IsRequest = 'N' AND
        (D.AccDate$DATE+0 >= :AccDateFrom AND D.AccDate$DATE+0 < :AccDateTo)  /*kvuli rychlosti*/
      INTO :ID
    DO
      SUSPEND;
  END
  /* celá skupina s ohledem na všechny podmínky */
  IF (WholeGroup = '3') THEN BEGIN
    FOR
      SELECT D.ID
      FROM
        GeneralLedger D
        JOIN Accounts DA ON DA.ID = D.DebitAccount_ID
        JOIN Accounts CA ON CA.ID = D.CreditAccount_ID
      WHERE
        D.AccGroup_ID = :AccGroup_ID AND
        D.IsRequest = 'N' AND
        (D.AccDate$DATE+0 >= :AccDateFrom AND D.AccDate$DATE+0 < :AccDateTo) AND  /*kvuli rychlosti*/
        ( (DA.Code like :AccountCode ESCAPE '~') OR
          (CA.Code like :AccountCode ESCAPE '~') ) AND
        ( :AccountSelID = '' OR
           D.CreditAccount_ID in (select OBJ_ID from SELDAT where SEL_ID=:AccountSelID) or
           D.DebitAccount_ID in (select OBJ_ID from SELDAT where SEL_ID=:AccountSelID) )
      INTO :ID
    DO
      SUSPEND;
  END
END;

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