BEGIN
/* Získání zaúčtovaných */
IF ( (:AAccounted = '.') OR (:AAccounted = '<') ) THEN BEGIN
FOR
SELECT
GL.AccDocQueue_ID, GL.Period_ID, GL.OrdNumber, ib_encodedate(ib_decodedate_year(GL.AccDate$Date), ib_decodedate_month(GL.AccDate$Date), ib_decodedate_day(GL.AccDate$Date))
FROM
Relations R
join GeneralLedger GL ON GL.ID = R.RightSide_ID
WHERE
( (:ADateFrom <= ib_encodedate(ib_decodedate_year(GL.AccDate$Date), ib_decodedate_month(GL.AccDate$Date), ib_decodedate_day(GL.AccDate$Date))) AND (ib_encodedate(ib_decodedate_year(GL.AccDate$Date), ib_decodedate_month(GL.AccDate$Date), ib_decodedate_day(GL.AccDate$Date)) < :ADateTo) ) AND
(R.Rel_Def IN (7, 8, 9, 10, 18))
GROUP BY
GL.AccDocQueue_ID, GL.Period_ID, GL.OrdNumber, ib_encodedate(ib_decodedate_year(GL.AccDate$Date), ib_decodedate_month(GL.AccDate$Date), ib_decodedate_day(GL.AccDate$Date))
INTO
:AccDocQueue_ID, :Period_ID, :OrdNumber, :AccDate$Date
DO BEGIN
OrderByKind = 1;
SELECT out_displayname
FROM FmtDisplayNameAcc(:AccDocQueue_ID, :OrdNumber, :Period_ID)
INTO :DisplayName;
SUSPEND;
END
END
/* Nezaúčtované */
IF ( (:AAccounted = '.') OR (:AAccounted = '=') ) THEN BEGIN
AccDocQueue_ID = '##########';
Period_ID = '##########';
OrdNumber = 0;
AccDate$Date = 0;
DisplayName = 'Nezaúčtováno';
OrderByKind = 0;
SUSPEND;
END
END;