Třídová akce

Kód:

17

Tělo:

select
  A.ID
from
  IssuedInvoices A
  left join PaymentReminders PR on PR.IssuedInvoice_ID = A.ID and 
    PR.ID =
    (
    select first 1
      ID
    from
      PaymentReminders
    where
      IssuedInvoice_ID = A.ID and
      DocOrder = :ADocOrder
    order by
      CreateDat$Date desc
    )
where
  ((A.Amount - A.PaidAmount - A.CreditAmount + A.PaidCreditAmount ) > :AMinAmount)
  and
  ((select Coalesce(max(DocOrder), 0) from PaymentReminders where IssuedInvoice_ID = A.ID) = :ADocOrder)
  and
  (Coalesce(PR.DocDate$Date, A.DueDate$Date +
    (case when
      ((select F.AfterDueTermEnabled from Firms F where F.ID = (select coalesce(Firm_ID, ID) from Firms F2 where F2.ID = A.Firm_ID)) = 'A')
    then
      (select F.AfterDueTerm from Firms F where F.ID = (select coalesce(Firm_ID, ID) from Firms F2 where F2.ID = A.Firm_ID))
    else
      (select G.AfterDueTerm from Globdata G)
    end)) + cast(:ADayCountOfLastReminder as Integer) <= :ADate)
  and
  ((select coalesce(MAX(REX.ExclDateTo$DATE), 0) from PayReminderSetExclusions REX where (REX.LinkSourcePK = A.ID) and (REX.LinkSourceType = '03')) < :ADate)
  and
  ((select coalesce(MAX(REX.ExclDateTo$DATE), 0) from PayReminderSetExclusions REX where (REX.LinkSourcePK = (select coalesce(Firm_ID, ID) from Firms F2 where F2.ID = A.Firm_ID)) and (REX.LinkSourceType = '  ')) < :ADate)
    
order by
  A.ID

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