Procedura-GetCalcChartScriptsByDate

Parametry:

Název	Popis	Datový typ
AParent_ID		Char(10)
AValidFromDate		Float(0, 0)
AValidToDate		Float(0, 0)

Návratové hodnoty:

Název	Popis	Datový typ
ID		Char(10)
ValidFrom_Date		Float(0, 0)
ValidTo_Date		Float(0, 0)

Tělo:

begin
  FOR SELECT A.ID, A.ValidFrom$DATE,
    (SELECT MIN(C.ValidFrom$DATE - 1) FROM CalcChartScripts C
     WHERE C.Parent_ID = A.Parent_ID AND
       C.ValidFrom$DATE > A.ValidFrom$DATE
    ) AS ValidTo$Date
    FROM CalcChartScripts A
    WHERE A.Parent_ID = :AParent_ID AND
      A.ValidFrom$DATE <= :AValidToDate
    INTO :ID, :ValidFrom_Date, :ValidTo_Date
  DO BEGIN
    IF ((:ValidTo_Date is NULL) OR (:ValidTo_Date > :AValidFromDate)) THEN
      SUSPEND;
  END
end;

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