Procedura-DeleteUnusedSalutationTitle

Popis:
Smaže záznam oslovení osoby z tabulky SYS$SalutationTitles, pokud tento záznam není použit u jiné osoby.

Parametry:

NázevPopisDatový typ
In_SalutationTitleChar(30)

Tělo:

begin
  mInSalutationTitle = Trim(IN_SalutationTitle);
  For
    Select
      SalutationTitle
    From
      Persons
    Where
      SalutationTitle = :mInSalutationTitle
    Into
      :mSalutationTitle
  Do begin
    break;
  End
  if (mSalutationTitle is null) then
    Delete 
    From 
      SYS$SalutationTitles
    Where
      SalutationTitle = :mInSalutationTitle;
end

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