Třídová akce

Kód:

21

Tělo:

UPDATE GeneralLedger
SET Audited = 'A'
WHERE
  Audited = 'N' AND
  IsRequest = 'N' AND
  Audited LIKE :AAudited AND
  AccDate$Date >= :ADateFrom AND AccDate$Date < (:ADateTo + 1) AND
  CreditAccount_ID IN (SELECT ID FROM Accounts WHERE AccountType IN ('A','P','G','C')) AND
  DebitAccount_ID IN (SELECT ID FROM Accounts WHERE AccountType IN ('A','P','G','C')) AND
  (
    -- neskladové doklady
    NOT EXISTS(SELECT 1 FROM Relations WHERE RIGHTSIDE_ID = GeneralLedger.ID AND REL_DEF IN ({REL_DEF})) OR
    -- skladové jen uzavřené uzávěrkou
    EXISTS(
      SELECT 1 FROM Relations 
      JOIN SYS$StoreDocuments3 ON SYS$StoreDocuments3.StoreDocument_ID = Relations.LEFTSIDE_ID
      WHERE 
        Relations.RIGHTSIDE_ID = GeneralLedger.ID AND 
        Relations.REL_DEF IN ({REL_DEF}) AND
        SYS$StoreDocuments3.Closed = 'A'
    )  
  )

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