Procedura-ResetText

Popis:

Aktualizace záznamu v tabulce SYS$CCTexts

Parametry:

Název	Popis	Datový typ
IN_OwnerType		Integer
IN_Owner_ID		Char(10)
IN_Text		VarChar(220)
IN_SubType		Integer

Závislosti:

Název	Popis	Třída
AddText	Přidání záznamu do tabulky SYS$CCTexts	Procedures

Tělo:

begin
  if ((IN_Text <> '') and (IN_Text <> ' ')) then 
  begin
    update
      SYS$CCTexts
    set
      Text = upper(IB_REMOVE_DIACRITICS(:IN_Text) Collate PXW_CSY)
    where
      OwnerType = :IN_OwnerType and Owner_ID = :IN_Owner_ID and SubType = :IN_SubType;
    if (row_count = 0) then
      execute procedure AddText(IN_OwnerType, IN_Owner_ID, IN_Text, IN_SubType);
  end
  else
  begin
    --smazem
    delete from 
      SYS$CCTexts 
    where
      OwnerType = :IN_OwnerType and Owner_ID = :IN_Owner_ID and SubType = :IN_SubType;
  end
end;

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