DEFINITION MODULE DBFPayments;
FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
TYPE
PaymentsRec = RECORD
    INVOICE : ARRAY[0.. 10] OF CHAR;;   (* Invoice number *)
    PMTDATE    : Date;   (* Payment Date *)
    PMTAMT     : Real8;   (* Payment amount *)
    CHECKNB    : ARRAY[0..  6] OF CHAR;;   (* Check number *)
    CUSTID : ARRAY[0.. 10] OF CHAR;;   (* Customer who payed *)
END;


VAR
  PaymentsDBF: DBFile;
  CustidIdx : DBIndex;



  PROCEDURE MovePaymentsToDBF( REC : PaymentsRec);
  PROCEDURE MovePaymentsFromDBF(VAR REC : PaymentsRec);

 PROCEDURE PackPayments();
 PROCEDURE OpenPaymentsDBF(WithIdx : BOOLEAN);


 PROCEDURE ClosePaymentsDBF();


(*PROCEDURE FindPaymentsByInvoice( Key : ARRAY OF CHAR) : BOOLEAN;*)

PROCEDURE FindPaymentsByCustid( Key : ARRAY OF CHAR) : BOOLEAN;

END  DBFPayments.