DEFINITION MODULE Customer;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
FROM DBFCustomer IMPORT CustomerRec;


TYPE
  AddressRec = RECORD
    Line   : ARRAY[0..3] OF ARRAY[0..60] OF CHAR;  (* the zip is placed here*)
    ZipCode: ARRAY[0..10] OF CHAR;    (* and here for sorting - not printing*)
  END;
  AddressTypes = (Billing,Shipping);



  PROCEDURE ControlCustomer();
  PROCEDURE GetCustNbr( VAR CustNbr : ARRAY OF CHAR);
  PROCEDURE GetCustTerms(VAR Terms  : ARRAY OF CHAR);
  PROCEDURE GetCustSalesRep(VAR Rep : ARRAY OF CHAR);
  PROCEDURE GetCustSalesRepCom(VAR Percent : Real8);
  PROCEDURE GetCustShipVia(VAR Ship : ARRAY OF CHAR);
  PROCEDURE GetCustDisCntLvl(VAR DefaultLvl : CARDINAL);
  PROCEDURE GetCustDisAmount(VAR DcntAmount : Real8);
  PROCEDURE GetCustTaxable(VAR Taxable : CHAR);
  PROCEDURE GetCustFreeFrght(VAR FreeFrght : CHAR);
  PROCEDURE SetCustOutStd(AmoutOut : Real8);
  PROCEDURE SetCustomerRec(Cust : CustomerRec);
  PROCEDURE GetCustAddr(VAR Addr: AddressRec;AddrType : AddressTypes );
  PROCEDURE GetCustName(CIN : ARRAY OF CHAR; VAR Name : ARRAY OF CHAR);
  PROCEDURE AddCustYTD(AddAmount : Real8);
  PROCEDURE AddCustOutStd(AddAmount : Real8);
  PROCEDURE SetCustLastInvDate(D:Date);
  PROCEDURE GetCurrCustName(VAR Name : ARRAY OF CHAR);
(*  PROCEDURE LateLetters();
  PROCEDURE PackCustomer();*)
END Customer.