PROJECT DOCUMENTATION SALES ORDER PROCESSING SYSTEM FOR AB CHEMICALS LIMITED

ALFRED MENSAH ATOMBOH

STUDENT NO: CP-07-10-05

ACKNOWLEDGEMENT.3 DEDICATION4 INTRODUCTION..5 USER INSTRUCTION MANUAL...6 HIERARCHY CHART..10 MENU FLOWCHART..11-18 SYSTEM FLOWCHART..19-40 PROGRAM FLOWCHART..41-83 SOURCE CODE..84-199 RECORD LAYOUT....200-208 TEST DATA.....209-210 REPORTS.....211-220 PROJECT REPORT....221 PROJECT SPECIFICATION.....222-225

Sales Order Processing System, a computerized system for the order, sales invoicing and sales payment could not have materialized without Gods direction through the tutelage of Mr.Nyarko (Principal and Data Processing), Mr. Dwamena(Quantitative Methods and Business Communication), Mr. Tetteh(Visual Basic), Mr. Oluwale(Accounting), Philip and Benedict (Laboratory Assistants) all of West Africa Computer Science Institute. I am forever grateful.

This entire work is dedicated to my Mum (Cecilia), Sister (Gertrude) and Girl (Dana) for their encouragement and support.

In the present era of information technology that we find ourselves, it is becoming evidently obvious that computers are used in every venture of man. The office has not been left out of this revolution. This revolution in the office has made it imperative for computerized systems. The Sales Order Processing System is one of such computerized system that seeks to drive the status of the office to the paperless kind. It coordinates the order, sales invoicing and sales payment for clients of a chemical company. When a client makes an order the system checks stock and raises an invoice based on the availability of stock and credit limit of the client. The system creates reports for management perusal. It is hoped that this project would be enjoyed in its usage. Thank you!

To Start Sales Order Processing System after connecting the removable disk with the program, o Double Click the SalesOrder.exe file Or o Click Start on the taskbar and select run

o Type E: SalesOrder.exe if the removable disk is assigned the drive letter E and press enter

o After successfully getting the program started, a login screen follows a splash screen o Type in your authorized Username and Password, ensuring that you do not enter wrong password three (3) times. o After three (3) wrong enteries of password the program would automatically shut down denying access.

A successful login would bring a main form for interactions.The following five (5) menus would be displayed: o File o Maintenance o Enquiry o Reports o Help

The file menu offers only one option of exiting the entire program

Three (3) interactions in the form of Submenus are available: o Addition o Deletion o Update

Records can be added to the following files: o Customer Master o Order/ Invoice Transaction o Payment Transaction o Re-order Transaction o Sales Personnel Master o Stock Master o Supplier Master Data entry can be made on any of the files after selecting it from the addition submenu. When the wrong data type is entered, users would be prompted to enter the appropriate data type. After successful data entry the user clicks on the Add button to save data to database.

Records that can be accessed and edited when the need arises have been limited to: o Customer Master o Sales Personnel Master o Stock Master o Supplier Master Update can be done after selecting the appropriate file.The search button is used to access the right record. After accessing the right file, the update button is clicked to update records in the database.

Deletion of records has been restricted to only the following files: o Customer Master o Sales Personnel Master o Stock Master o Supplier Master The record to be deleted is accessed by using the search button. A Customer account can be deleted only if there is no outstanding balance in the name of the customer just as Stock can only be deleted when there is no stock quantity for it.

Records of Six (6) files can be accessed: o Customer Master o Invoice Transaction o Order Transaction o Payment Transaction o Re-order Transaction o Sales Personnel Master o Stock Master o Supplier Master

To access a record, the appropriate file is selected. After selecting the appropriate file, either the search button is used to get the record directly or the navigation buttons are used to browse through records in sequence.

Nine (9) reports based on transactions can be accessed: o Customer Master List o Debtors List o Invoice Transactions o Order Transactions o Payment Receipts o Payment Transactions o Reminders o Re-order Transactions o Sales Personnel Master List o Stock Master List o Supplier Master List Each report can be accessed by selecting the appropriate option. To print a report, first access the report and then click the print button available.

The two (2) available options are: o About o Contact Information on the program and the programmers contact can be accessed after selecting the appropriate option.

MAIN MENU

FILE

MAINTENANCE

ENQUIRY

REPORT

HELP

EXIT

ADDITION

CUSTOMER MASTER FILE

CUSTOMER MASTER LIST

ABOUT

CUSTOMER MASTER FILE

INVOICE TRANSACTION FILE ORDER TRANSACTION FILE PAYMENT TRANSACTION FILE RE-ORDER TRANSACTION FILE SALES PERSONNEL MASTER FILE

DEBTORS LIST

CONTACT

ORDER / INVOICE TRANSACTION FILE PAYMENT TRANSACTION FILE RE-ORDER TRANSACTION FILE SALES PERSONNEL MASTER FILE

INVOICE TRANSACTION

ORDER TRANSACTION

PAYMENT RCEIPTS

PAYMENT TRANSACTION

STOCK MASTER FILE

STOCK MASTER FILE

REMINDERS

SUPPLIER MASTER FILE

SUPPLIER MASTER FILE

REORDER TRANSACTION

UPDATE

SALES PERSONNEL MASTER

CUSTOMER MASTER FILE

STOCK MASTER

SALES PERSONNEL MASTER FILE

SUPPLIER MASTER

STOCK MASTER FILE

SUPPLIER MASTER FILE

DELETION

CUSTOMER MASTER FILE

SALES PERSONNEL MASTER FILE

STOCK MASTER FILE

SUPPLIER MASTER FILE

Enter A Main Menu.Show Print Make Option (1-5)

Is Option Valid?

Is VbNo

VbYes

Create File Setting Menu Create Maintenance Menu Create Enquiry Menu

Is
VbNo Is VbNo Is VbNo Is VbNo Return

VbYes

VbYes

VbYes

Create Report Menu

VbYes

Create Help Menu

Enter

File Setting Menu.Show

Is File Menu Valid?Y/N VbYes Exit Menu.Show

VbNo

Return

Enter B Maintenance Menu.Show

Print Make Option (13) VbNo

Is Option VbYes Is Option=1? VbNo

VbYes

Addition.Show

Is Option=2? VbNo

VbYes

Delete.Show

Is Option=3? VbNo

VbYes

Update.Show

Return

Enter C Enquiry Menu.Show Print Make Option (1-6) VbNo

Is Option VbYes Is Option=1? VbNo Is Option=2? VbNo Is Option=3? VbNo Is Option=4? VbNo Is Option=5? VbNo Is Option=6? VbNo Return

VbYes

Customer Master File.Show Invoice Transaction File.Show Order Transaction File.Show Payment Transaction File.Show Re-order Transaction File.Show Stock Master File.Show

VbYes VbYes

VbYes

VbYes

VbYes

Enter D Report Menu.Show

Print Make Option (19) Is Option VbYes Is Option=1? VbNo Is Option=2? VbNo Is Option=2? VbNo Is Option=4? VbNo Is Option=5? VbNo Is Option=6? VbNo Is Option=7? VbNo Is Option=8? VbNo Is Option=9? VbNo Return D VbYes VbYes VbYes Payment Receipts.Show Payment Transaction.Show Reminders.Show VbYes Debtors List.Show VbYes Customer Master.Show VbNo

VbYes VbYes

Invoice Transaction.Show

Order Transaction.Show

VbYes

Re-order Transaction.Show Sales Personnel Master.Show

VbYes

Enter BN Help Menu.Show

Print Make Options (1-2) VbNo Is Option VbYes VbYes Is Option=1? About.Show

VbNo
VbYes Is Option=2? VbNo BN Return Contact.Sho w

Data Entry Order Transaction File

Reorder Transaction File

Customer Master File Verification Stock Master File

Sales Personnel Master File

Supplier Master File

Payment Transaction File

Program

Invoice Transaction File

Print Outs

Error Message s

Input Data and Response

Print Screen Messages

Enter

Msgbox Do you really want to exit? Ret Val=VbYesNo

Is Ret Val=VbNo? VbYes End

VbNo

Main Menu.Show

Enter

Customer Master Addition.Show Data Textboxes.Show

Input Data Fields

Is Customer Account Number Valid? VbYes Addition Program

VbNo

Msgbox Invalid Customer ID

Customer Master Table

Enter

Order Transaction Addition Form.Show Data Textboxes.Show Input Data Fields

Is Order Number Valid? VbYes

VbNo

Msgbox Invalid Order Number

Addition Program

Order Transaction Table

Is Order Qty>Stock Qty? VbYes Msgbox Reorder Stock

VbNo

Addition Program Invoice Transaction Table Msgbox Amend Outstanding Balance

Enter

Payment Transaction Addition Form.Show

Data Textboxes.Show

Input Data Fields

Is Payment Number Valid?

VbNo

Msgbox Invalid Payment Number

Payment Transaction Table

Enter

Re-order Transaction Addition Form.Show

Data Textboxes.Show

Input Data Fields

Is Re-order Number Valid?

VbNo

Msgbox Invalid Re-order Number

Re-order Transaction Table

Enter

Stock Master Addition Form.Show

Data Textboxes.Show

Input Data Fields

Is Stock Number Valid?

VbNo

Msgbox Invalid Stock Number

Stock Master Table

Enter

Customer Master Deletion Form.Show Input box Enter Customer Account Number

Is Customer Account Number Valid? VbYes

VbNo

Msgbox Invalid Customer Account Number

Display Records to be Deleted

Customer Master Table

Enter

Stock Master Deletion Form.Show Input box Enter Stock Number

Is Customer Account Number Valid? VbYes Display Records to be Deleted Deletion Program

VbNo

Msgbox Invalid Stock Number

Stock Master Table

Enter

Customer Master Update Form.Show Input box Enter Customer Account Number

Is Customer Account Number Valid? VbYes

VbNo

Msgbox Invalid Customer Account Number

Display and Modify Records

Customer Master Table

Enter

Customer Master Update Form.Show Input box Enter Customer Account Number

Is Customer Account Number Valid? VbYes

VbNo

Msgbox Invalid Customer Account Number

Display and Modify Records

Stock Master Table

Enter

Customer Master Enquiry Form.Show Input box Enter Customer Account Number

Is Customer Account Number Valid? VbYes

VbNo

Msgbox Invalid Customer Account Number

Enquiry Program

Customer Master Table Print Record

Enter

Invoice Transaction Enquiry Form.Show Input box Enter Invoice Number

Is Invoice Number Valid? VbYes Enquiry Program

VbNo

Msgbox Invalid Invoice Number

Invoice Transaction Table

Print Record

Enter

Order Transaction Enquiry Form.Show Input box Enter Order Number

Is Order Number Valid? VbYes Enquiry Program

VbNo

Msgbox Invalid Invoice Number

Order Transaction Table

Print Record

Enter

Payment Transaction Enquiry Form.Show Input box Enter Payment Number

Is Payment Number Valid? VbYes Enquiry Program

VbNo

Msgbox Invalid Payment Number

Payment Transaction Table

Print Record

Enter

Re-order Transaction Enquiry Form.Show Input box Enter Re-order Number

Is Re-order Number Valid? VbYes Interrogation Program

VbNo

Msgbox Invalid Re-order Number

Re-order Transaction Table

Print Record

Enter

Stock Master Enquiry Form.Show Input box Enter Stock Number

Is Stock Number Valid? VbYes Enquiry Program

VbNo

Msgbox Invalid Stock Number

Stock Master Table

Print Record

Customer Master File

Customer Master List Debtors List

Invoice Transaction File Elapsed Credit Time Debtors List Order Transaction File Invoice Transaction Payment Transaction File Report Program Re-order Transaction File Reminder

Re-order Transactio n

Sales Personnel Master File

Sales Personnel List

Stock Master File

Stock Master Supplier Master

Supplier Master File

Enter

Form About.Show

Is Form About.Show? VbYes Form About.Show

VbNo

System Info Ok/System Ok Return to Main Menu

System Information.Sho w

Enter

Form Contact.Show

Is Form Contact.Show? VbYes Form Contact.Show Programmer Contact.Show

VbNo

Return to Main Menu

Start

Print Database Creation Screen

Is Database Creation Screen? VbYes Dim ADO & Utilities

VbNo

Return

cnnSalesOrder.Connection String=Provider DataSource=DbSalesOrderProcessingSystem.md b Set RsCustomerMaster= Customer Master Table cnnSalesOrder.open RsCustomerMaster.open Create and Append Fields

Create and Append Index Fields Set RsInvoiceTransaction = Invoice Transaction Table cnnSalesOrder.open RsInvoiceTransaction.open E

Create and Append Fields

Create and Append Index Fields

Set RsOrderTransaction = Order Transaction Table cnnSalesOrder.open RsOrderTransaction.open

Create and Append Fields

Create and Append Index Fields

Set RsPaymentTransaction= Payment Transaction Table cnnSalesOrder.open RsPaymentTransaction.open

Create and Append Index Fields Set RsRe_OrderTransaction= Payment Transaction Table cnnSalesOrder.open RsRe_OrderTransaction.open F

Create and Append Fields Create and Append Index Fields Set RsRe_OrderTransaction= Re-Order Transaction Table cnnSalesOrder.open RsRe_OrderTransaction.open Create and Append Fields Create and Append Index Fields Set RsStockMaster= Stock Master Table cnnSalesOrder.open RsStockMaster.open

Create and Append Fields

Create and Append Index Fields

RsCustomerMaster.close RsInvoiceTransaction.close RsOrderTransaction.close RsPaymentTransaction.close RsRe_OrderTransaction.close RsStockMaster.close

Enter

Print Customer Master Addition Screen

Is Customer Master Addition Screen? VbYes Customer Master Addition Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsCustomerMaster= Customer Master Table cnnSalesOrder.open RsCustomerMaster.open

Set RsCustomerMaster.OpenRecordset (Customer Master Table) Data Textboxes.Show J Input Data Fields I

Calculate for the Fields in the Report Table

Are Enteries Ok?

VbNo

Rs.Seek Customer Account Number=txtCode

Is Customer Account Number No Match? VbYes Rs.Update

VbNo

Msgbox Customer Account Number Already Exists

Anymore Addition? VbNo RsCustomerMaster.close

VbYes

Enter

Print Invoice Transaction Addition Screen

Is Invoice Transaction Addition Screen?

VbNo
Return

Set RsInvoiceTransaction = Invoice Transaction Table cnnSalesOrder.open RsInvoiceTransaction.open Set RsInvoiceTransaction.OpenRecordset (Invoice Transaction Table)

Data Textboxes.Show

N
Input Data Fields

Calculate for the Fields in the Report Table

Are Enteries Ok?

VbNo

Rs.Seek Invoice Number=txtCode

Is Invoice Number No Match? VbYes Rs.Update

VbNo

Msgbox Invoice Number Already Exists

Anymore Addition? VbNo RsInvoiceTransaction.close

VbYes

Enter

Print Order Transaction Addition Screen

Is Order Transaction Addition Screen?

VbNo

Return

Set RsOrderTransaction = Order Transaction Table cnnSalesOrder.open RsOrderTransaction.open

Set RsOrderTransaction.OpenRecordset (Order Transaction Table)

Data Textboxes.Show

L M

MM
Input Data Fields

KM

KM

Calculate for the Fields in the Report Table

Are Enteries Ok?

VbNo

MM

Rs.Seek Order Number=txtCode

Is Order Number No Match? VbYes Rs.Update

VbNo

Msgbox Order Number Already Exists

L M

Anymore Addition? VbNo RsOrderTransaction.close

VbYes

L M

Enter

Print Payment Transaction Addition Screen

Is Payment Transaction Addition Screen? VbYes Payment Transaction Addition Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsPayment = Payment Transaction Table cnnSalesOrder.open Set RsPaymentTransaction.open

Set RsPaymentTransaction.OpenRecordset (Payment Transaction Table) Data Textboxes.Show T Input Data Fields U

Calculate for the Fields in the Report Table

Are Enteries Ok?

VbNo

Rs.Seek Payment Number=txtCode

Is Payment Number No Match? VbYes Rs.Update

VbNo

Msgbox Payment Number Already Exists

Anymore Addition? VbNo RsPaymentTransaction.close

VbYes

Enter

Print Re-Order Transaction Addition Screen

Is Re-Order Transaction Addition Screen? VbYes Re-Order Transaction Addition Screen.Show Initialise ADO and Utilities

VbNo Return

Set RsRe-OrderTransaction = Re-Order Transaction Table cnnSalesOrder.open Set RsRe-OrderTransaction.open Set RsRe-OrderTransaction.OpenRecordset (Re-Order Transaction Table) Data Textboxes.Show Q Input Data Fields R

Calculate for the Fields in the Report Table

Are Enteries Ok?

VbNo

Rs.Seek Re-Order Number=txtCode

Is Re-Order Number No Match? VbYes Rs.Update

VbNo

Msgbox Re-Order Number Already Exists

Anymore Addition? VbNo RsRe-OrderTransaction.close

VbYes

Enter

Print Stock Master Addition Screen

Is Stock Master Addition Screen? VbYes Stock Master Addition Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsStockMaster= Stock Master Table cnnSalesOrder.open RsStockMaster.open

Set RsStockMaster.OpenRecordset (Stock Master Table) Data Textboxes.Show L Input Data Fields M

Calculate for the Fields in the Report Table

Are Enteries Ok?

VbNo

Rs.Seek Stock Number=txtCode

Is Stock Number No Match? VbYes Rs.Update

VbNo

Msgbox Stock Number Already Exists

Anymore Addition? VbNo RsStockMaster.close

VbYes

Enter

Print Customer Master Deletion Screen

Is Customer Master Deletion Screen? VbYes Customer Master Deletion Screen.Show

VbNo

Return

Initialise ADO and Utilities

Set RsCustomerMaster = Customer Master Table cnnSalesOrder.open Set RsCustomerMaster.open Set RsCustomerMaster.OpenRecordset (Customer Master Table)

A A

Input box Enter Customer Account Number.TextCode

Is Text Code Valid?

AB

AB

Display Details

Is Outstanding Balance= ? VbYes

VbNo

Msgbox Customer cannot be deleted

Rs.Delete

Rs.Edit Rs.Update VbYes

Anymore VbNo RsCustomerMaster.close

A A

Enter

Print Stock Master Deletion Screen

Is Stock Master Deletion Screen? VbYes Stock Master Deletion Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsStockMaster = Stock Master Table cnnSalesOrder.open Set RsStockMaster.open Set RsStockMaster.OpenRecordset (Stock Master Table) A A

Input box Enter Stock Number.TextCode VbNo Is TextCode Valid? VbYes AB

AB

Display Details

Is Stock No= ? VbYes Rs.Delete

VbNo

Msgbox Stock cannot be deleted

Rs.Edit Rs.Update

Anymore VbNo RsStockMaster.close

VbYes

A A

Enter

Print Customer Master Update Screen

Is Customer Master Update Screen? VbYes Customer Master Update Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsCustomerMaster = Customer Master Table cnnSalesOrder.open Set RsCustomerMaster.open Set RsCustomerMaster.OpenRecordset (Customer Master Table) W Input box Enter Customer Account Number.TextCode

Is TextCode Valid? VbYes X

VbNo

Is Rs.NoMatch? VbNo Display Details Effect Changes to Fields

VbYes

Msgbox Record Not Found

Are Enteries Ok? VbYes Rs.Edit Rs.Update

VbNo

Anymore Updates? VbNo RsCustomerMaster.close

VbYes W

Enter

Print Stock Master Update Screen

Is Stock Master Update Screen? VbYes Stock Master Update Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsStockMaster = Stock Master Table cnnSalesOrder.open Set RsStockMaster.open Set RsStockMaster.OpenRecordset (Stock Master Table) Y Input box Enter Stock Number.TextCode

Is TextCode Valid? VbYes Z

VbNo

Is Rs.NoMatch? VbNo Display Details Effect Changes to Fields

VbYes

Msgbox Record Not Found

Are Enteries Ok?

Rs.Edit Rs.Update

Anymore Updates? VbNo RsStockMaster.close

VbYes Y

Enter

Print Customer Master Enquiry Screen

Is Customer Master Enquiry Screen? VbYes Customer Master Enquiry Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsCustomerMaster = Customer Master Table cnnSalesOrder.open Set RsCustomerMaster.open Set RsCustomerMaster.OpenRecordset (Customer Master Table) A D

Input box Enter Customer Account Number.TextCode

Is TextCode Valid? VbYes AE

VbNo

AE

Rs.Seek Customer Master=Txt Code

Is Rs.NoMatch?

VbYes

Msgbox Invalid Customer Account Number

VbNo Display Details A D

Anymore Enquiries? VbNo RsCustomerMaster.close

VbYes

A D

Enter

Print Invoice Transaction Enquiry Screen

Is Invoice Transaction Enquiry Screen? VbYes Invoice Transaction Enquiry Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsInvoiceTransaction = Invoice Transaction Table cnnSalesOrder.open Set RsInvoiceTransaction.open Set RsInvoiceTransaction.OpenRecordset (Invoice Transaction Table) AJ Input box Enter Invoice Number.TextCode

Is TextCode Valid?

AK

AK

Rs.Seek Invoice Transaction =Txt Code Msgbox Invalid Invoice Number

Is Rs.NoMatch?

VbYes

VbNo Display Details AJ

Anymore Enquiries? VbNo RsInvoiceTransaction.close

VbYes

AJ

Enter

Print Order Transaction Enquiry Screen

Is Order Transaction Enquiry Screen? VbYes Order Transaction Enquiry Screen.Show

VbNo

Return

Initialise ADO and Utilities

Set RsOrderTransaction = Order Transaction Table cnnSalesOrder.open Set RsOrderTransaction.open Set RsOrderTransaction.OpenRecordset (Order Transaction Table)

BF
Input box Enter Order Number.TextCode

Is TextCode Valid?

BG

BG

Rs.Seek Order Transaction=Txt Code

Is Rs.NoMatch?

VbYes

Msgbox Invalid Order Number

VbNo Display Details BF

Anymore Enquiries? VbNo RsOrderTransaction.close

VbYes

AF

Enter

Print Payment Transaction Enquiry Screen

Is Payment Transaction Enquiry Screen? VbYes Payment Transaction Enquiry Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsPaymentTransaction = Payment Transaction Table cnnSalesOrder.open Set RsPaymentTransaction.open Set RsPaymentTransaction.OpenRecordset (Payment Transaction Table)

A H

Input box Enter Payment Number.TextCode

Is TextCode Valid?

AI

AI

Rs.Seek Payment Transaction =Txt Code Msgbox Invalid Payment Number

Is Rs.NoMatch?

VbYes

VbNo Display Details A G

Anymore Enquiries? VbNo RsPaymentTransaction.close

VbYes

A G

Enter

Print Re-Order Transaction Enquiry Screen

Is Re-Order Transaction Enquiry Screen? VbYes Re-Order Transaction Enquiry Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsRe-OrderTransaction = Re-Order Transaction Table cnnSalesOrder.open Set RsRe-OrderTransaction.open Set RsRe-OrderTransaction.OpenRecordset (Re-Order Transaction Table)

AL
Input box Enter Re-Order Number.TextCode

Is TextCode Valid?

AM

AM

Rs.Seek Re-Order Transaction =Txt Code Msgbox Invalid ReOrder Number

Is Rs.NoMatch?

VbYes

VbNo Display Details AL

Anymore Enquiries? VbNo RsRe-OrderTransaction.close

VbYes

AL

Enter

Print Stock Master Enquiry Screen

Is Stock Master Enquiry Screen? VbYes Stock Master Enquiry Screen.Show Initialise ADO and Utilities

VbNo

Return

Set RsStockMaster = Stock Master Table cnnSalesOrder.open Set RsStockMaster.open Set RsStockMaster.OpenRecordset (Stock Master Table) AF Input box Enter Stock Number.TextCode

Is TextCode Valid? VbYes AG

VbNo

AG

Rs.Seek Stock Master=Txt Code

Is Rs.NoMatch?

VbYes

Msgbox Invalid Stock Number

VbNo Display Details AF

Anymore Enquiries? VbNo RsStockMaster.close

VbYes

AF

Enter

Print Customer List Report Program.Screen VbNo Is Customer List Report Program? VbYes Initialise ADO and Utilities Return

Set RsCustomerMaster = Customer Master Table cnnSalesOrder.open Set RsCustomerMaster.open Set RsCustomerMaster.OpenRecordset (Customer Master Table) H D

Rs.MoveLast

Edit Totals

Printer.Print Totals Anymore VbNo RsCustomerMaster.close VbYes H D

Enter

Print Debtors List Report Program.Screen VbNo Is Debtors List Report Program? VbYes Initialise ADO and Utilities Return

Set RsPaymentTransaction = Payment Transaction Table cnnSalesOrder.open Set RsPaymentTransaction.open Set RsPaymentTransaction.OpenRecordset (Payment Transaction Table) AE

Rs.MoveLast

Edit Totals

Printer.Print Totals Anymore VbNo RsPaymentTransaction.close VbYes AE

Enter Print Elapsed Credit Time Debtors List Report Program.Screen

Is Elapsed Credit Time Debtors List Report? VbYes Initialise ADO and Utilities

VbNo

Return

Set RsPaymentTransaction = Payment Transaction Table Set RsCustomerMaster = Customer Master Table cnnSalesOrder.open Set RsPaymentTransaction.open Set RsCustomerMaster.open

Set RsPaymentTransaction.OpenRecordset Set RsCustomerMaster.OpenRecordset (Payment Transaction Table) (Customer Master Table)
Rs.MoveLast Edit Totals Printer.Print Totals Anymore VbNo RsPaymentTransaction.close RsCustomerMaster.close VbYes A G A G

Enter

Print Invoice Transaction Report Program.Screen VbNo Is Invoice Transaction Report Program? VbYes Initialise ADO and Utilities Return

Set RsInvoiceTransaction = Invoice Transaction Table cnnSalesOrder.open Set RsInvoiceTransaction.open Set RsInvoiceTransaction.OpenRecordset (Invoice Transaction Table) D D

Rs.MoveLast

Edit Totals

Printer.Print Totals Anymore VbNo RsInvoiceTransaction.close VbYes D D

Enter

Print Reminder Report Program.Screen

Is Reminder Report Program? VbYes Initialise ADO and Utilities

VbNo Return

Set RsCustomerMaster = Customer Master Table Set RsInvoiceTransaction = Invoice Transaction Table cnnSalesOrder.open Set RsCustomerMaster.open Set RsInvoiceTransaction.open Set RsCustomerMaster.OpenRecordset Set RsInvoiceTransaction.OpenRecordset (Customer Master Table) (Invoice Transaction Table) Rs.MoveLast Edit Totals Printer.Print Totals Anymore VbNo RsCustomerMaster.close RsInvoiceTransaction.close VbYes A H A H

Enter

Print Re-Order Transaction Report Program.Screen VbNo Is Re-Order Transaction Report Program? VbYes Initialise ADO and Utilities Return

Set RsRe_OrderTransaction = Re-Order Transaction Table cnnSalesOrder.open Set RsRe_OrderTransaction.open Set RsRe_OrderTransaction.OpenRecordset (Re-Order Transaction Table) A D

Rs.MoveLast

Edit Totals

Printer.Print Totals Anymore VbNo RsRe_OrderTransaction.close VbYes A D

Enter

Print Sales Personnel List Report Program.Screen VbNo Is Sales Personnel List Report Program? VbYes Initialise ADO and Utilities Return

Set RsSalesPersonnel = Sales Personnel Master Table cnnSalesOrder.open Set RsSalesPersonnel.open Set RsSalesPersonnel.OpenRecordset (Sales Personnel Master Table) JD

Rs.MoveLast

Edit Totals

Printer.Print Totals Anymore VbNo RsSalesPersonnel.close VbYes JD

Enter

Print Stock List Report Program.Screen VbNo Is Stock List Report Program? VbYes Initialise ADO and Utilities Return

Set RsStockMaster = Stock Master Table cnnSalesOrder.open Set RsStockMaster.open Set RsStockMaster.OpenRecordset (Stock Master Table) LD

Rs.MoveLast

Edit Totals

Printer.Print Totals Anymore VbNo RsStockMaster.close VbYes LD

Enter

Print Supplier Master Report Program.Screen VbNo Is Supplier Master Report Program? VbYes Initialise ADO and Utilities Return

Set RsSupplierMaster = Supplier Master Table cnnSalesOrder.open Set RsSupplierMaster.open

Set RsSupplierMaster.OpenRecordset (Supplier Master Table)

VbYes

KF