Topspeed_JPI/TS/MODBASE/MANUALIN.MOD

IMPLEMENTATION MODULE ManualInvoice;
(*
 *  ModBase
 *  Release 3.0
 *  (c) Copyright 1986 - 1991 PMI
 *  P.O. Box 8402
 *  Green Bay Wi 53308
 *  All Rights Reserved
 *  by Ed Ross  
 *)

FROM Customer IMPORT GetCustNbr;
FROM ModBase3 IMPORT UpdateDBFile,WriteDBRec,DeleteRecord,ReadDBRec,
     AppendBlank,Record;
FROM Scrn2DBF IMPORT FrameToDBF, DBFToFrame;
FROM PMIGlobals IMPORT PMIScreens,Today,TodayStr,TodayDays,Config;
FROM DBFInvoice IMPORT MoveInvoiceFromDBF,MoveInvoiceToDBF,
      InvoiceRec,InvoiceDBF,OpenInvoiceDBF,CloseInvoiceDBF;
FROM DspFiles IMPORT OpenDisplayFile,ReadDisplayFrame;
FROM ScrnUtl2 IMPORT CloseDisplayFrame;
FROM ScrnUtl1 IMPORT GetFieldRec,PutFieldRec,FieldNum,FieldListTotal;
FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName,
      DispCode,ContinueInput,CancelInput,SubmitInput,InputFieldRecord;
FROM FramePainter IMPORT ShowDisplayFrame,RedrawField,RedrawArea;
FROM ControlUtils IMPORT Control;
IMPORT VWindows;

PROCEDURE AddManualInvoice();
VAR DF : DisplayFrame;
    Invoice : InvoiceRec;
BEGIN
  InitDisplayFrame(DF,VWindows.CurrentWindow);
  ReadDisplayFrame(PMIScreens,DF,'ManInvoice');
  ShowDisplayFrame(DF,0,0,0,0);
  Control(DF);
  OpenInvoiceDBF(TRUE);
  AppendBlank(InvoiceDBF);
  IF NOT  FrameToDBF(InvoiceDBF,DF)
    THEN
    END;
  CloseDisplayFrame(DF);
  MoveInvoiceFromDBF(Invoice);
  WITH Invoice DO
    TOTALAMT := INVNET +INVTAX + SHIPPING;
    AMTOUT := TOTALAMT;
    GetCustNbr(CUSTID);
    INVPRNT := 'P';   (* invoice posted *)
  END;
  MoveInvoiceToDBF(Invoice);
  WriteDBRec(InvoiceDBF);
  CloseInvoiceDBF();
END AddManualInvoice;


END ManualInvoice.