DEFINITION MODULE PMIGlobals;
FROM ScrnTypes IMPORT DisplayFile;
FROM DateFunctions IMPORT Date;
FROM NumTypes IMPORT Real8;

TYPE
  ConfigRec = RECORD
     CompanyName,
     CompanyAddr1,
     CompanyAddr2 : ARRAY [0..60] OF CHAR;
     Phone : ARRAY[0..60] OF CHAR;
     TaxRate : Real8;
     OvertimeCharge : Real8;
     InvoicePrt,
     PksSlipPrt,
     ReportPrt,
     LabelPrt : ARRAY[0..7] OF CHAR;
     CustNbrPre : ARRAY[0..4] OF CHAR;
     InvoicePre : ARRAY[0..4] OF CHAR;
     KeepDays   : CARDINAL;
     KeepPaymentHist : CARDINAL;
     PurchOrdPre : ARRAY[0..4] OF CHAR;


  END;
VAR
  PMIScreens : DisplayFile;
  Config  : ConfigRec;
  Today   : Date;
  TodayStr : ARRAY[0..12] OF CHAR;
  TodayDays : CARDINAL;
  TodayP30 : Date;   (*today + 30 days *)
  TodayP30Str : ARRAY[0..15] OF CHAR;
  TodayM30 : Date;   (* today - 30 days *)

PROCEDURE GlobalInit();
PROCEDURE EditConfig();
PROCEDURE NormalTitle(VAR LastLine : ARRAY OF CHAR);
PROCEDURE OpenReportDevice() : CARDINAL;
PROCEDURE CloseReportDevice(Device : CARDINAL);
END PMIGlobals.