Procedura-ResetPhoneNumber

Popis:

Aktualizace záznamu v tabulce SYS$CCPhoneNumbers - 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_PhoneNumber		VarChar(30)
IN_SubType		Integer

Závislosti:

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

Tělo:

begin
  mPhoneNumber = ib_correct_phone_number(IN_PhoneNumber);
  if (mPhoneNumber <> '') then 
  begin
    update 
      SYS$CCPhoneNumbers
    set
      Text = :mPhoneNumber 
    where
      OwnerType = :IN_OwnerType and Owner_ID = :IN_Owner_ID and SubType = :IN_SubType;
    if (row_count = 0) then
      execute procedure AddPhoneNumber(IN_OwnerType, :IN_Owner_ID, IN_PhoneNumber, IN_SubType);  
  end
  else
  begin
    delete from 
      SYS$CCPhoneNumbers 
    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