| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104 |
- 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
|
