Listing: 1 IMPLEMENTATION MODULE ManualInvoice; 2 (* 3 * ModBase 4 * Release 3.0 5 * (c) Copyright 1986 - 1991 PMI 6 * P.O. Box 8402 7 * Green Bay Wi 53308 8 * All Rights Reserved 9 * by Ed Ross 10 *) 11 12 FROM Customer IMPORT GetCustNbr; 13 FROM ModBase3 IMPORT UpdateDBFile,WriteDBRec,DeleteRecord,ReadDBRec, 14 AppendBlank,Record; 15 FROM Scrn2DBF IMPORT FrameToDBF, DBFToFrame; 16 FROM PMIGlobals IMPORT PMIScreens,Today,TodayStr,TodayDays,Config; 17 FROM DBFInvoice IMPORT MoveInvoiceFromDBF,MoveInvoiceToDBF, 18 InvoiceRec,InvoiceDBF,OpenInvoiceDBF,CloseInvoiceDBF; 19 FROM DspFiles IMPORT OpenDisplayFile,ReadDisplayFrame; 20 FROM ScrnUtl2 IMPORT CloseDisplayFrame; 21 FROM ScrnUtl1 IMPORT GetFieldRec,PutFieldRec,FieldNum,FieldListTotal; 22 FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName, 23 DispCode,ContinueInput,CancelInput,SubmitInput,InputFieldRecord; 24 FROM FramePainter IMPORT ShowDisplayFrame,RedrawField,RedrawArea; 25 FROM ControlUtils IMPORT Control; 26 IMPORT VWindows; 27 28 PROCEDURE AddManualInvoice(); 29 VAR DF : DisplayFrame; 30 Invoice : InvoiceRec; 31 BEGIN 32 InitDisplayFrame(DF,VWindows.CurrentWindow); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 33 ReadDisplayFrame(PMIScreens,DF,'ManInvoice'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 ShowDisplayFrame(DF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 Control(DF); ***** ^ not supported yet ***** ^ not supported yet 36 OpenInvoiceDBF(TRUE); ***** ^ not supported yet ***** ^ not supported yet 37 AppendBlank(InvoiceDBF); ***** ^ not supported yet ***** ^ not supported yet 38 IF NOT FrameToDBF(InvoiceDBF,DF) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 39 THEN 40 END; 41 CloseDisplayFrame(DF); ***** ^ not supported yet ***** ^ not supported yet 42 MoveInvoiceFromDBF(Invoice); ***** ^ not supported yet ***** ^ not supported yet 43 WITH Invoice DO ***** ^ not supported yet 44 TOTALAMT := INVNET +INVTAX + SHIPPING; ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 45 AMTOUT := TOTALAMT; ***** ^ undeclared identifier ***** ^ undeclared identifier 46 GetCustNbr(CUSTID); ***** ^ not supported yet ***** ^ undeclared identifier 47 INVPRNT := 'P'; (* invoice posted *) ***** ^ undeclared identifier 48 END; ***** ^ not supported yet 49 MoveInvoiceToDBF(Invoice); ***** ^ not supported yet ***** ^ undeclared identifier 50 WriteDBRec(InvoiceDBF); ***** ^ not supported yet ***** ^ not supported yet 51 CloseInvoiceDBF(); ***** ^ not supported yet ***** ^ not supported yet 52 END AddManualInvoice; ***** ^ not supported yet 53 54 55 END ManualInvoice. ***** ^ not supported yet 43 errors