Procedura-AssetCardIsOnRecord

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

Parametry:

NázevPopisDatový typ
AToDateFloat(0, 0)
AFileInDateFloat(0, 0)
ADiscardDateFloat(0, 0)

Návratové hodnoty:

NázevPopisDatový typ
IsOnRecordChar(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