Procedura-AddText

Popis:
Přidání záznamu do tabulky SYS$CCTexts

Parametry:

NázevPopisDatový typ
IN_OwnerTypeInteger
IN_Owner_IDChar(10)
IN_TextVarChar(220)
IN_SubTypeInteger

Tělo:

begin
  if ((IN_Text <> '') and (IN_Text <> ' ')) then
    INSERT INTO SYS$CCTexts (OwnerType, Owner_ID, Text, SubType)
      VALUES (:IN_OwnerType, :IN_Owner_ID, upper(IB_REMOVE_DIACRITICS(:IN_Text) Collate PXW_CSY), :IN_SubType);
end;

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