Procedura-StringValueOfInsCompForEMP

Popis:

Vrátí ID nebo kód zdravotní pojišťovny pro zaměstnance

Parametry:

Název	Popis	Datový typ
AID		Char(10)
ADate		Float(0, 0)

Návratové hodnoty:

Název	Popis	Datový typ
SCode		VarChar(100)
SID		Char(10)

Tělo:

BEGIN
  SELECT Count(*) FROM HistoryWGData B
  WHERE B.ID=:AID AND B.CLSID='CPP5AZU1CVF13JXS00KEZYD5AW'
    AND B.FieldCode=215 AND B.ValidFrom$DATE = (
    SELECT MAX(C.ValidFrom$DATE) FROM HistoryWGData C
    WHERE C.ID=:AID AND C.CLSID = 'CPP5AZU1CVF13JXS00KEZYD5AW'
      AND C.FieldCode=215 AND C.ValidFrom$DATE <= :ADate)
  INTO mCount;
  IF (mCount = 0) THEN BEGIN
    SELECT A.InsuranceComp_ID FROM Employees A WHERE A.ID = :AID INTO mID;
  END ELSE BEGIN
    SELECT B.StringFieldValue FROM HistoryWGData B
    WHERE B.ID=:AID AND B.CLSID='CPP5AZU1CVF13JXS00KEZYD5AW'
      AND B.FieldCode=215 AND B.ValidFrom$DATE = (
      SELECT MAX(C.ValidFrom$DATE) FROM HistoryWGData C
      WHERE C.ID=:AID AND C.CLSID = 'CPP5AZU1CVF13JXS00KEZYD5AW'
        AND C.FieldCode=215 AND C.ValidFrom$DATE <= :ADate)
    INTO mID;
  END
  SELECT A.Code FROM InsuranceCompanies A WHERE A.ID = :mID INTO SCode;
  SID = :mID;
  Suspend;
END;

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