Procedura-ResetAddressText

Popis:

Aktualizace záznamu v tabulce SYS$CCTexts - jako Owner se ale předá ID adresy, pro kterou je třeba dohledat firmy, pro které se text mění

Parametry:

Název	Popis	Datový typ
IN_OwnerType		Integer
IN_Owner_ID		Char(10)
IN_Text		VarChar(100)
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
    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