Topspeed_JPI/TS/MODBASE/PMI.EDT

===========================================================
:MainMenu
Fields:{
  (C) '' GoTo Customer
  (I) '' GoTo Inventory
  (R) '' GoTo Reports
  (M) '' GoTo Maint
  (P) '' GoTo PriceTable
  (E) '' GoTo EditConfig
  (X) '' GoTo Exit
}
Window:{
  ClearAfter
  Position:(5,5,40,20);
  }
Colors : {
 ~=(brightwhite,blue) plain
 }
 -----------------------------------------------------------

  ~PMI Balloons & Novelty~
  ~Customer System       ~

  ~  (C) Copyright       ~
  ~   Ed Ross 1991       ~

  #    Customer        #
  #    Inventory       #
  #    Reports         #
  #    Maintenance     #
  #    Price Table     #
  #    Edit Config     #
  #    eXit            #



===================================================
:TopMenu
 FrameBelow : FileMenu
Fields :{
(F) '' GoTo FileMenu
(E) '' GoTo EditMenu
(I) '' GoTo InvoiceMenu
(P) '' GoTo PrintMenu
(X) '' GoTo Exit
}
Window :{
Position:( 1,1,80,3)
Caption = 'Customer'
}
--------------------------------------------------

 #File #   #Edit  #   #Invoice#    #Print #    #eXit  #

===================================================
:FileMenu
 ParentFrame : TopMenu
 FrameLeft   : PrintMenu
 FrameRight  : EditMenu
Fields :{
  (C) '' GoTo Cin
  (M) '' GoTo Nameidx
  (N) '' GoTo Next
  (P) '' GoTo Prev
  (F) '' GoTo First
  (L) '' GoTo Last
  (A) '' GoTo Add
 }
Window:{
  ClearAfter
  Position:( 2,3,25,12)
}


----------------------------------------------------

 # search by Cin #
 # search by NaMe #
 # Next  #
 # Prev  #
 # First #
 # Last  #
 # Add   #



====================================================
:EditMenu
 ParentFrame : TopMenu
 FrameLeft   : FileMenu
 FrameRight  : InvoiceMenu
Fields:{
  (U) '' GoTo UpDate
  (D) '' GoTo Delete
}
Window:{
  ClearAfter
  Position:(12,3,23,6)
 }
------------------------------------------------------

 # Update #
 # Delete #


===============================================================
:InvoiceMenu
 ParentFrame : TopMenu
 FrameLeft   : EditMenu
 FrameRight  : PrintMenu
Fields:{
  (A) '' GoTo AddInvoice
  (E) '' GoTo EditOpen
  (C) '' GoTo CancelInvoice
  (M) '' GoTo ManualInvoice
  (Y) '' GoTo Payments

}
Window:{
  ClearAfter
  Position:(19,3,35,9)
 }
---------------------------------------------------------------

 #Add       #
 #Edit Open #
 #Cancel    #
 #Manual Inv#
 #PaYments  #


==================================================================
:PrintMenu

 ParentFrame : TopMenu
 FrameLeft   : InvoiceMenu
 FrameRight  : FileMenu
Fields:{
  (L) '' GoTo pLabels
  (H) '' GoTo PHeliumo
  (N) '' GoTo PInvoiceO
  (E) '' GoTo PHeliumH
  (V) '' GoTo PInvoiceH
  (Y) '' GoTo Paymet
}
Window:{
  ClearAfter
  Position:(30,3,45,13)
 }
---------------------------------------------------------------

 #Labels       #
 #Helium  Out  #
 #INvoice Out  #
 #HElium  Hist #
 #InVoice Hist #
 #PaYment Hist #


===================================================
:Customer
Fields :{
()  'NAME' String
()  'CIN' String
()  'NOTES1' String
()  'AMTOUT' Display
()  'NOTES2' String
()  'LASTINV' Display
()  'NOTES3' String
()  'YTDPURCH' Display

()  'SHIPTOA1' String
()  'BILLTOA1' String

()  'SHIPTOA2' String
()  'BILLTOA2' String

()  'SHIPTOA3' String
()  'BILLTOA3' String

()  'SHIPTOZP' String
()  'BILLTOZP' String

()  'DISCLEVEL' INTEGER[1..3]
()  'DISCAMOUNT' Real[0..9999]
()  'TAXABLE' String
()  'FREEFRGHT' String
()  'SALESREP' String
()  'SALEREPCOM' Real[0..30]
()  'CONTACT' String
()  'PHONENBR' String
()  'FAXNBR' String
()  'SHIPVIA' String
()  'TERMS' String
()  'LIMIT' Real[0..99999]
()  'RESALENBR' String
}


Window :{
Position:(1,4,80,24)
}

Colors : {
 ~=(yellow,blue) plain
 NormalText = (BrightWhite,Blue) Bold
 PointerBar = (Black,LightGrey) ReverseVideo
 }
-----------------------------------------------------

 ~Name~    #                                         # ~Number~      #           #
 ~Notes~   #                                         # ~Outstanding~ #           #
         #                                         # ~Last Inv Dt~ #         #
         #                                         # ~YTD Amt~     #           #

                 ~Ship to~                        ~Bill To~
 ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÒÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ·
 º #                               #   º  #                               #  º
 º #                               #   º  #                               #  º
 º #                               #   º  #                               #  º
 º ~Zip Code~             #          #   º  ~Zip Code~             #          #  º
 ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÐÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ

 ~Disc Level~# #   ~Disc ~ #     #~%  Taxable:~# #  ~Free Freight~:# #
 ~Sales Rep~ #           #  ~Comm~#     #%  ~Contact~  #                     #
 ~Phone Nbr~ #                   # ~FAX Nbr~  #                #
 ~Ship VIA ~ #                   # ~Terms~    #                #
 ~Credit Limit~#           #   ~Resale Number~#                #

======================================================================
:OrderItem
normalnext: addagain
Fields:{
  () 'Item'  lookup
  () 'Quant' real[0..9999]
  () 'Units' string
  () 'UnitPrice' real[-999999..999999]
  () 'Desc' string
  () 'Total' Display
  () 'Notes1' string
  () 'Notes2' string
  () 'Notes3' string
  () 'TableNbr' display
  () 'Group' display
  () 'MinOrder' Display
  () 'OnHand' Display
  () 'Q1' Display
  () 'P1' Display
  () 'Override' String
  () 'Q2' Display
  () 'P2' Display
  () 'Q3' Display
  () 'P3' Display
  () 'ONORDER' Display
  () 'Q4' Display
  () 'P4' Display

  }

Window:{
  Position:(1,13,80,24)
  }
--------------------------------------------------------------------

 ~Item:~#        # ~Quant:~#      # ~Units:~#          #  ~Unit Price:~#          #
 ~Desc:~#                                          #  ~Total: ~#          #
 ~Notes:~#                                                #
        #                                                #
        #                                                #
 ~Table Nbr: ~#    # ~Group:~ #  #  ~Min Order:~#        #  ~On-hand:~#       #
 ~1 Quant ~: #    #  ~Price :~#         #   ~Override Price~ # #
 ~2~       #    #           #         #
 ~3~       #    #           #         #     ~On Order ~ # #
 ~4~       #    #           #         #
=====================================================================
:InvHeader
Fields:{
 () 'InvNbr' Display
 () 'InvDate' Date
 () 'SalesRep' String
 () 'PONbr' String
 () 'ShipVia' String
 () 'Terms' String
 () 'Discount' real[0..100.00]
 () 'DefaultLevel' integer[1..3]
 () 'Taxable' String
 () 'FreeFrght' String
 () 'Net' Display
 () 'Tax' display
 () 'Shipping' real[0..999.99]
 () 'Total'Display
 () 'NOTE1' String
 () 'NOTE2' String
 () 'NOTE3' String
 () 'NOTESFOR' STRING
}

Window :{
  Position:(1,7,80,17)
  }

---------------------------------------------------------------------------

 ~Inv Nbr:~ #           # ~Inv Date:~ #        #       ~Sales Rep:~ #               #
 ~PO Nbr :~ #           # ~Ship Via:~ #                  # ~Terms:~ #               #
 ~Disc :~#    #~%  Default Price Table Level:~ # #   ~Taxable:~# #  ~Free Freight:~# #
  ~Net    :~#            # ~Tax:~#       #  ~Shipping:~ #        #  ~Total:~ #          #
  ~Notes:~  #                                                            #
          #                                                            #
          #                                                            #
 ~Notes Printed On ~P~ Packing Slip, ~I~ Invoice ~B~ Both: ~# #

==========================================================================
:InvtryMain

Fields:{

 (G) '' GoTo GenInv
 (A) '' GoTo AddInv
 (U) '' GoTo UpdateInv
 (X) '' GoTo Exit
 }

Window:{
  Position:( 27,9,58,22)
  }
---------------------------------------------------------------------

  #General Inventory        #
  #Add Quant to Inventory   #
  #Update Quant of Inventory#
  #eXit                     #



===================================================
:InvtryTopMenu
 FrameBelow : InvtryFileMenu
Fields :{
(F) '' GoTo InvtryFileMenu
(E) '' GoTo InvtEditMenu
(X) '' GoTo Exit
}
Window :{
Position:( 1,10,80,13)
Caption = 'Inventory Control'
}
--------------------------------------------------

 #File #   #Edit  #   #eXit  #
===================================================
:InvtryFileMenu
 ParentFrame : InvtTopMenu
 FrameLeft   : InvtEditMenu
 FrameRight  : InvtEditMenu
Fields :{
  (I) '' GoTo Invcode
  (N) '' GoTo Next
  (P) '' GoTo Prev
  (F) '' GoTo First
  (L) '' GoTo Last
  (A) '' GoTo Add
 }
Window:{
  ClearAfter
  Position:( 2,13,25,22)
}


----------------------------------------------------

 # Inventory Code#
 # Next  #
 # Prev  #
 # First #
 # Last  #
 # Add   #



====================================================
:InvtEditMenu
 ParentFrame : InvtTopMenu
 FrameLeft   : InvtryFileMenu
 FrameRight  : InvtryFileMenu
Fields:{
  (U) '' GoTo UpDate
  (D) '' GoTo Delete
}
Window:{
  ClearAfter
  Position:(15,13,30,19)
 }
------------------------------------------------------

 # Update #
 # Delete #

=================================================================
:InvAdd
NormalNext : InvAdd
(* this screen is used to add items to the inventory *)
(* when a shipment is received                       *)
Fields :{
()  'INVCODE' Lookup
()  'UNITS' Display
()  'ONHAND' Display
()  'AddAmt' Real [0..9999]
()  'PURPRICE' Real [0..9999]
()  'ONORDER' Display
()  'DESC' Display
()  'GROUP' Display

()  'PRICETBL' Real [0..200]
()  'REORDER' Real [0..99999]
}


Window :{
Position:(1,14,80,24)
}
-----------------------------------------------------

         ADD ITEMS TO INVENTORY

 Item Code  #      #  Units : #       # On-Hand    #           #

 ADD Units  #      #  Purchase Price: #          #   On Order: # #

 Description#                                              #
  Prod Group #   #   Price Table #   #   Reorder Level #      #


================================================================
:InvUpdate
NormalNext : Update
(* this screen is used to add items to the inventory *)
(* when a shipment is received                       *)
Fields :{
()  'INVCODE' Lookup
()  'UNITS' Display
()  'ONHAND' Real [0..99999]
()  'PURPRICE' Real [0..99999]
()  'DESC' Display
()  'GROUP' Display
()  'PRICETBL' Real [0..200]
()  'REORDER' Real [0..99999]
}


Window :{
Position:(1,4,80,24)
}
-----------------------------------------------------

         UPDATE ITEMS TO INVENTORY

 Item Code  #       #  Units : #       #

 On-Hand    #           #   PurchPrice #          #

 Description #                                              #

  Prod Group #   #   Price Table #     #   Reorder Level #      #

===================================================
:Invtry
(* this screen is the global update screen with all *)
(* inventory items data elements *)

Fields :{
()  'INVCODE' String
()  'UNITS' String
()  'UNITPRICE' Real[0..999999]
()  'DESC' String
()  'MINORDER' Real [0..99999]
()  'ONHAND' Real [0..99999]
()  'PRICETBL' Real [0..99999]
()  'GROUP' String
()  'REORDER' Real [0..99999]
()  'PURPRICE' Real [0..99999]
()  'STOCKED' String
()  'LASTPUR' Date
()  'LSTPUAMT' Real [0..99999]
()  'ORDERFRM' String
()  'ONORDER' STRING
()  'REORDAMT' Real [0..99999]
}


Window :{
Position:(1,14,80,24)
}
-----------------------------------------------------

 ~Item Code~ #      #  ~Unit~ #      #   ~Unit Price~ #00000.00#
 ~Prod Desc ~#                                              #
 ~Min Order~ #      #  ~Units On-Hand~  #           #
 ~Price Table~ #    # ~Product Group~ #   # ~Re-order Level~  #      #
 ~Purchase Price~ #           #       ~Item Stocked~  #  #
 ~Last Purchase Date~ #         #     ~Last Purchase Amount~ #         #
 ~Supplier ID ~ #           #
 ~On Order~ # #   ~Reorder Quantity~ #           #

===================================================
:InvSearch
(* this screen is the global update screen with all *)
(* inventory items data elements *)

Fields :{
()  'INVCODE' Display
()  'UNITS' Display
()  'DESC' Display
()  'MINORDER' Display
()  'ONHAND' display
()  'PRICETBL' display
()  'GROUP' Display
}


Window :{
Position:(5,13,76,23)
}
Colors :{
    NormalText = (BrightWhite, magenta) Plain
    ! = (magenta, blue) blinking
  }
-----------------------------------------------------


 Item Code #      #  Unit #      #
 Prod Desc #                                              #
 Min Order #      #  Units On-Hand  #           #
 Price Table #  # Product Group #  #

 !PgUp - Previous Item!   !PgDn - Next Item!
 !CtlPgUp - First Item!   !CtlPgDn - Last Item!   !Esc - escape!

===================================================
:InvoiceMain
 FrameBelow : InvoiceCtl
 Fields :{
(F) '' GoTo InvoiceCtl
(X) '' GoTo Exit
}
Window :{
Position:( 1,1,80,3)
}
--------------------------------------------------

 #File #    #eXit  #

===================================================
:InvoiceCtl
 ParentFrame : InvoiceMain
Fields :{
  (H) '' GoTo EditHeadr
  (E) '' GoTo EditItem
  (V) '' GoTo ViewItem
  (A) '' GoTo AddItems
  (D) '' GoTo DeleteItems
  (P) '' GoTo PrintInv
  (K) '' GoTo PrintPkg
  (C) '' GoTo Cancel
 }
Window:{
  ClearAfter
  Position:( 2,3,25,12)
}


----------------------------------------------------

 # Edit Invoice Header#
 # Edit Invoice Item  #
 # View Invoice Items #
 # Add Items          #
 # Delete Item        #
 # Print Invoice      #
 # Print PacKing Slip #
 # Cancel Invoice     #
=============================================================
:PMIConfig

Fields:{
  () 'CompanyName' String
  () 'Address1' String
  () 'Address2' String
  () 'Phone' String
  () 'PreInvoice' string
  () 'NxtInvoice' INTEGER[0..50000]
  () 'PrePONbr' String
  () 'NxtPONbr' INTEGER[0..50000]
  () 'PreCust' String
  () 'NxtCust' INTEGER[0..50000]
  () 'TaxRate' real[0..100]
  () 'GasChg'  real[0..100]
  () 'KeepDays' INTEGER[0..360]
  () 'invprn' string
  () 'pkgprn' string
  () 'labprn' string
  () 'rptprn' string
  }
-------------------------------------------------------------------------

     Company Name : #                                             #
     Address      : #                                             #
     City State   : #                                             #
     Phone Number : #                 #

     Prefix for Inovice Numbers:  #    #
     Next Invoice Number:         #        #

     Prefix for Purchase Orders:  #    #
     Next Purch Order Number      #        #

     Prefix for Customer Numbers: #    #
     Next Customer Number:        #        #

     Tax Rate:                    #    #%
     Helium Overtime Charge:      #        #

     Number of weeks to keep
     payment history:             #   #

     Invoice Printer: #    #     Pkg Slip Printer: #    #
     Label Printer  : #    #     Report Printer  : #    #


===================================================
:Pymts

Fields :{
 () 'PymtAmt' Real[0..99999.99]
 () 'PymtDate' Date
 () 'ChkNumber' String
 () '' Group 2
 (A) 'Automatic' choice
 (M) 'Manual' choice
}


Window :{
  Position:(1,7,80,13)
}
-----------------------------------------------------

 Payment Amount: #           #  Payment Date: #          #
 Check Number  : #           #

 #Automatic#  #Manual#

==============================================================
:DateRange
Fields:{
  () 'Date1' Date
  () 'Date2' Date
  }
Window:{
  Position:(10,10,45,15)
  }


-------------------------------------------------------------

  ~Starting Date:~ #              #
  ~Ending Date  :~ #              #


============================================================
:LateLetter
Fields:{
  () 'LatePre' Editor 7 lines
  () 'LateSuf' Editor 7 Lines
}

-------------------------------------------------------------

   Text to print before the list of outstanding invoices

   #                                                              #







   Text to print after the list of outstanding invoices

   #                                                              #









================================================================
:LateLtrType

Fields :{
  (1) '' Goto D10
  (3) '' Goto D30
  (6) '' Goto D60
  }
Window:{
 Position:( 10,10,30,18)
 }
-----------------------------------------------------

  Late letters

  # Over 10 Days #
  # Over 30 Days #
  # Over 60 Days #


=======================================================
:Reports
Fields :{
 (1) '' Goto Invtry1
 (2) '' GoTo Invtry2
 (3) '' Goto InvHist
 (4) '' Goto InvOut
 (5) '' GoTo InvLateCust
 (6) '' GoTo InvLateDate
 (7) '' GoTo LateLtrMake
 (8) '' GoTo LateLtrProd
 (9) '' GoTo CustMail
 (0) '' goTo CustValue
 (A) '' Goto GasOut
 (B) '' goTo Gashist
 (C) '' GoTo SalesReps1
 (D) '' GoTo SalesReps2
 (X) '' GoTo Exit
}
Window:{
 Position:(5,2, 36,24)
}

----------------------------------------------------------------------

        ~Report Options~
    # 1 Inventory                #
    # 2 Inventory Reorder        #

    # 3 Invoice History          #
    # 4 Invoice Outstanding      #
    # 5 Invoice late by Cust     #
    # 6 Invoice Late by Date     #

    # 7 Late Letter Creation     #
    # 8 Late letter production   #

    # 9 Customer mailing labels  #
    #10 Customer by value        #

    # A Helium History           #
    # B Helium Outstaning        #

    # C Edit/Update Sales Reps   #
    # D Report Sales Commissions #
    # X Exit                     #

======================================================
:Maint
Fields:{
 (P) '' GoTo PackDB
 (R) '' GoTo ResetCust
 (X) '' GoTo Exit
 }
Window:{
 Position:(5,5,22,12)
 }

-----------------------------------------------------

   Utilities

   #Pack Database #
   #Reset cust YTD#

   #eXit          #


=============================================================
:ManInvoice
Fields:{

  () 'INVOICE' STRING
  () 'INVDATE' DATE
  () 'INVNET' Real[-999999...9999999]
  () 'INVTAX'   Real[0...9999999]
  () 'SHIPPING' Real[0...9999999]

}
Window:{
  Position:(1,10,80,24)
  Caption = 'Manual Invoice Entry'
  }
---------------------------------------------------------------------

      Invoice Number  :#             #
      Invoice Date    :#             #
      Invoice Net     :#             #
      Invoice Tax     :#          0.0#
      Invoice Shipping:#          0.0#

=======================================================================
:LateLetter
Fields:{
   () 'PreFix' Editor 4 Lines
   () 'Suffix' Editor 4 Lines
 }
----------------------------------------------------------------------

   Information to print prior to the list of invoices
   #                                                     #





   Information to print after the list of invoices

   #                                                     #