=========================================================== :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 # #