Procedura-GetPreviousNPeriods

Parametry:

Název	Popis	Datový typ
APeriodID		Char(10)
ACountBack		Integer

Návratové hodnoty:

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

Tělo:

begin
  mCount = ACountBack;
  AValue = 0;
  SELECT DateFrom$DATE FROM WagePeriods WHERE ID = :APeriodID INTO :mDateFrom;
  FOR
    SELECT ID
    FROM
      WagePeriods WP
    WHERE
      WP.DateFrom$DATE <= :mDateFrom
    ORDER BY
      WP.DateFrom$DATE DESC
    INTO :mID
  DO begin
    AValue = :mID;
    suspend;
    mCount = mCount - 1;
    IF (mCount <= 0) THEN Exit;
  end /* FOR */
end;

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