Topspeed_JPI/TS-V3/MODBASE/MANUALIN.LST

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