Procedura-EmailFind_FirmOffice

Popis:

Procedura pro dohledání firmy, osoby a provozovny podle e-mailové adresy

Parametry:

Název	Popis	Datový typ
Email		VarChar(100)
Firm_ID		Char(10)

Návratové hodnoty:

Název	Popis	Datový typ
FirmOffice_ID		Char(10)

Tělo:

begin
  mCount = 0;
  for
    select FO.id
    from SYS$EmailAddrSearch SAS
    join FirmOffices FO on FO.Address_ID = SAS.Address_ID
    where SAS.Email = :Email
    and FO.parent_id = :Firm_ID
    into FirmOffice_ID
  do begin
    mCount = mCount + 1;
    if (mCount >= 2) then begin
      FirmOffice_ID = null;
      break;
    end
  end
  suspend;
end

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