Procedura-MsgClear

Popis:

Procedura pro mazání vzkazů

Parametry:

Název	Popis	Datový typ
ANow		Float(0, 0)

Tělo:

begin
  --smazem vzkazy, kterym vyprsela platnost
  delete from MsgSent MS 
  where                  
    MS.ValidToDate$Date > 0 and MS.ValidToDate$Date < :ANow
    and MS.DeleteAfterDeletingByAll = 'A';
  --smazem vzkazy, ktere ostatni oznacili ke smazani  
  for
    select
      MS.ID
    from 
      MsgSent MS 
      join MsgToRead MTR on MTR.MsgSent_ID = MS.ID
    where                  
      MS.DeleteAfterDeletingByAll = 'A'
    group by 
        MS.ID
    having Max(Deleted) = 'A'
    into mID
  do begin
    delete from MsgSent where ID = :mID;
  end
end

Generated by ABRA Software a.s. 27.10.2021 16:35:17