Procedura-WageStringValueOfFldWithDef

Parametry:

NázevPopisDatový typ
AIDChar(10)
ACLSIDChar(26)
AFieldCodeInteger
ADateFloat(0, 0)
ADefaultChar(1)

Návratové hodnoty:

NázevPopisDatový typ
SValueVarChar(100)

Tělo:

BEGIN
  /* HistoryWGData - Wages: WorkingRelations, Employees */
  SValue = '';
  SELECT B.StringFieldValue FROM HistoryWGData B
  WHERE B.ID=:AID AND B.CLSID=:ACLSID
    AND B.FieldCode=:AFieldCode AND B.ValidFrom$DATE = (
    SELECT MAX(C.ValidFrom$DATE) FROM HistoryWGData C
    WHERE C.ID=:AID AND C.CLSID = :ACLSID
      AND C.FieldCode=:AFieldCode AND C.ValidFrom$DATE <= :ADate)
  INTO SValue;
  IF (SValue = '') THEN
    SValue = ADefault;
  Suspend;
END;

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