BEGIN
FOR
SELECT
GL.ID, DA.AccountType, CA.AccountType
FROM
GeneralLedger GL
join Accounts DA ON GL.DebitAccount_ID = DA.ID
join Accounts CA ON GL.CreditAccount_ID = CA.ID
WHERE
GL.AccDate$DATE >= :InDateFrom AND GL.AccDate$DATE < :InDateTo AND
GL.IsRequest = 'N' AND
GL.Audited LIKE :InAudited
INTO :ID, :DebitAccountType, :CreditAccountType
DO BEGIN
IF ( (DebitAccountType IN ('A', 'P', 'C', 'G') AND NOT (CreditAccountType IN ('A', 'P', 'C', 'G'))) OR
(NOT (DebitAccountType in ('A', 'P', 'C', 'G')) AND CreditAccountType IN ('A', 'P', 'C', 'G')) )
THEN
SUSPEND;
END
END;