function Boolean ReadLastKey

(

String indexname,record NameVc Namer,Integer seg,Boolean matchflag)

Description:

Read last record by specific index from register according conditions, returns false if it is not possible to find record


Parameters:
indexname	Index name
Namer	Record
seg	Number of used fields in index (for complex indexes)
matchflag	true=exact match, false=most similar

external procedure NextM4Number(string,var string);

global
function Boolean GetNextDelCode(var string delcode)
BEGIN
  Boolean res;
  record DelAddrVc DelAddrr;

  DelAddrr.CustCode = CurrentCust;
  DelAddrr.DelCode = "";
  If (ReadLastKey("CustCode",DelAddrr,1,true)) then begin
  end;
  delcode = DelAddrr.DelCode;
  NextM4Number(delcode,delcode);
  GetNextDelCode = res;
  RETURN;
END;


Related topics:

««