Procedura-AssetCardIsOnRecord

Popis:

Procedura zjistí, zda je karta k datum AToDate v evidenci. Používá se interne v proceduře AssetBookBackForDate.

Parametry:

Název	Popis	Datový typ
AToDate		Float(0, 0)
AFileInDate		Float(0, 0)
ADiscardDate		Float(0, 0)

Návratové hodnoty:

Název	Popis	Datový typ
IsOnRecord		Char(1)

Tělo:

BEGIN
  IsOnRecord = 'N';
  if (
     (AFileInDate <> 0) and (AFileInDate <= AToDate) and
     (((AToDate < ADiscardDate) and (ADiscardDate <> 0))  or (ADiscardDate = 0))
     ) then begin
    IsOnRecord = 'A';
  end
  suspend;
END;

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