Procedura-AddSalutationTitle

Popis:

Přidání oslovení do tabulky SYS$SalutationTitles

Parametry:

Název	Popis	Datový typ
In_OldSalutationTitle		Char(30)
In_NewSalutationTitle		Char(30)

Závislosti:

Název	Popis	Třída
DeleteUnusedSalutationTitle	Smaže záznam oslovení osoby z tabulky SYS$SalutationTitles, pokud tento záznam není použit u jiné osoby.	Procedures

Tělo:

begin
  if (not (IN_OldSalutationTitle is null)) then
    execute procedure DeleteUnusedSalutationTitle(IN_OldSalutationTitle);
  mNewSalutationTitle = Trim(IN_NewSalutationTitle);
  if ((mNewSalutationTitle is not null) and (mNewSalutationTitle <> '')) then begin
    Select
      SalutationTitle
    From
      SYS$SalutationTitles
    Where
      SalutationTitle = :mNewSalutationTitle
    Into
      :mSalutationTitle;
    if (:mSalutationTitle is null) then
      Insert into SYS$SalutationTitles (SalutationTitle)
        values (:mNewSalutationTitle);
  end
end

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