Procedura-POSUpdateAddress

Parametry:

Název	Popis	Datový typ
IN_Address_ID		Char(10)
IN_City		VarChar(60)
IN_Street		VarChar(60)
IN_PostCode		Char(10)

Tělo:

BEGIN
  --podle puvodniho pouziti v triggeru SYS$POSFirmsUpdate na firms se ukladaji
  --jen hodnoty z rezidencni adresy
  SELECT ID FROM FIRMS WHERE ResidenceAddress_ID = :IN_Address_ID into mFirm_ID;
  IF (mFirm_ID is not null) THEN BEGIN
    UPDATE SYS$POSFirms SET
      City = upper(IB_REMOVE_DIACRITICS(:IN_City) Collate PXW_CSY),
      Street = upper(IB_REMOVE_DIACRITICS(:IN_Street) Collate PXW_CSY),
      PostCode = upper(IB_REMOVE_DIACRITICS(:IN_PostCode) Collate PXW_CSY)
    WHERE   
      Owner_ID = :mFirm_ID;
  END
END

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