Procedura-POSAddFirm

Parametry:

Název	Popis	Datový typ
IN_Owner_ID		Char(10)
IN_Code		VarChar(20)
IN_Name		VarChar(220)
IN_OrgIdentNumber		Char(15)
IN_VATIdentNumber		Char(20)
IN_Address_ID		Char(10)
IN_HIDDEN		Char(1)
IN_FIRM_ID		Char(10)

Tělo:

begin
  SELECT ID, City, Street, PostCode FROM Addresses
    WHERE ID = :IN_Address_ID INTO mID, mCity, mStreet, mPostCode;
  if (mID is Not Null) then begin
    if (IN_FIRM_ID is Null) then begin
      if (IN_HIDDEN='N') then begin
        INSERT INTO SYS$POSFirms (Owner_ID, Code, Name, OrgIdentNumber, VATIdentNumber, City, Street, PostCode)
          VALUES (:IN_Owner_ID,
              upper(IB_REMOVE_DIACRITICS(:IN_Code) Collate PXW_CSY),
              upper(IB_REMOVE_DIACRITICS(:IN_Name) Collate PXW_CSY),
              upper(IB_REMOVE_DIACRITICS(:IN_OrgIdentNumber) Collate PXW_CSY),
              upper(IB_REMOVE_DIACRITICS(:IN_VATIdentNumber) Collate PXW_CSY),
              upper(IB_REMOVE_DIACRITICS(:mCity) Collate PXW_CSY),
              upper(IB_REMOVE_DIACRITICS(:mStreet) Collate PXW_CSY),
              upper(IB_REMOVE_DIACRITICS(:mPostCode) Collate PXW_CSY));
      end
    end
  end
end;

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