Procedura-GetUserFieldCode

Parametry:

Název	Popis	Datový typ
ACLSID		Char(26)
AFieldName		VarChar(31)

Návratové hodnoty:

Název	Popis	Datový typ
FieldCode		FieldCode

Tělo:

begin
  fieldcode = 0;
  fieldname1 = substring(afieldname from 3);
  issystem = substring(afieldname from 1 for 1);
  if (issystem = 'U') then begin
    issystem = 'N';
  end else begin
    if (issystem = 'S') then begin
      issystem = 'A';
    end else begin
      issystem = ' ';
    end
  end
  if ((fieldname1 <> '') and (issystem <> ' ')) then begin
    select FieldCode from USERFIELDDEFS2 UF2
      left join USERFIELDDEFS UF on UF.ID=UF2.Parent_ID
      where Upper(UF.CLSID) = Upper(:aclsid) and Upper(UF2.Fieldname) = Upper(:fieldname1) and UF2.System=:issystem and UF2.ExtraField='N'
    into :fieldcode;
   end
  suspend;
end

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