Procedura-AssetCardIsNotOnRecord

Popis:

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

Parametry:

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

Návratové hodnoty:

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

Tělo:

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

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