(0, 1) This program will allow the user to enter an invoice,
(0, 2) Names of variables
(0, 3) Variables
(0, 4) Subroutines
(0, 5) subroutine notes and info
(0, 6) subroutine info
(0, 7) subroutine info
(0, 9) Custom Menu
(1, 1) print it, and post it to Bookkeeping By Design.
(2, 1) hide this macro
(2, 2) InvoiceName
(2, 3) INVOICE.XLS
(2, 4) GetCompanyInfo
(2, 5) This routine gets the company name and address in one read. Note that E5-H5 must be kept available for this information. Copies info onto invoice when done.
(2, 9) &Invoice
(3, 1) open up special invoice spreadsheet, made particularly to
(3, 2) CompanyName
(3, 3) BCS
(3, 9) &Print
(3, 10) 'INVOICE.XLM'!PrintInvoice
(3, 12) Prints invoice as shown
(4, 1) work with this macro.
(4, 2) MacroName
(4, 3) INVOICE.XLM
(4, 9) &P&ost
(4, 10) 'INVOICE.XLM'!PostInvoice
(4, 12) Posts invoice as a Sales Journal Entry into PeachW
(5, 1) Unprotect the invoice so that we can change it at will.
(5, 2) SalesTaxID
(5, 3) 2350
(5, 5) switch to this sheet
(5, 9) New &Customer...
(5, 10) 'INVOICE.XLM'!NewCustomer
(5, 12) Enter new Customer ID
(6, 2) FreightID
(6, 3) 5810
(6, 5) copy info to clipboard
(6, 9) &Clear
(6, 10) 'INVOICE.XLM'!ClearInvoice
(6, 12) Clear to blank invoice (except Customer ID and Date)
(7, 1) This "tricks" Excel into opening PeachW for us.
(7, 2) InvoiceNumber
(7, 9) E&xit
(7, 10) 'INVOICE.XLM'!ExitInvoice
(7, 12) Return to normal Excel operations
(8, 1) This clears the cell again, as we really don't want the answer.
(8, 2) InvoiceDate
(8, 3) 33379
(8, 5) return to invoice sheet
(9, 1) If CompanyName is blank, it will ASK for the company name.
(9, 2) SaleAmount
(9, 3) 160
(9, 5) and paste in, transposing row to column
(10, 1) Get company name and address onto invoice.
(10, 2) SalesTaxAmount
(10, 3) 11.20
(11, 1) Set today's date as the invoice date
(11, 2) FreightAmount
(12, 1) Today's date
(13, 1) User enters customer key and we put name & addr on invoice
(14, 1) Old menu bar is saved here
(14, 4) GetCustomerInfo
(14, 5) This subroutine asks the user for a customer code, then looks up the customer to see if it is legal. If not, it re-asks. If so, it gets the name and address and other info and then transfers it to the invoice.
(15, 1) create new blank menu bar
(16, 1) Add new menu to new menu bar
(17, 1) 32603
(17, 5) If OK, Goto ---\
(18, 1) Make sure user cannot change parts of invoice he shouldn't