Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : ADVANCED.ZIP
Filename : NEWCHRG.PRG

**************************************************** NEWCHRG.PRG
* Add individual charges to the Charges file.
* Called from AR Main Menu.

*------- Print the screen title.
DO Title WITH "Enter New Charges"

*------- Open both Charges and Customer databases.
SELECT 1
USE Customer INDEX CustNo, CustName
SELECT 2
USE Charges INDEX ChrgNo
SET RELATION TO Cust_No INTO Customer

*------- Set up loop for adding entries.
Exiting = .F.
DO WHILE .NOT. Exiting

*------- Get customer name or number, and validate.
SELECT 1
DO GetCust WITH M_Cust_No, M_Name, M_Address, Exiting

*------- Allow user to enter transaction data using FNewChrg screen.
IF .NOT. Exiting
SELECT 2
APPEND BLANK
REPLACE Cust_No WITH M_Cust_No
REPLACE Date WITH DATE()
REPLACE Billed WITH .F.
REPLACE InPost WITH .F.
SET FORMAT TO FNewChrg
READ
CLOSE FORMAT
REPLACE Amount WITH Qty * Unit_Price
ENDIF
@ 3,0 CLEAR

ENDDO (while adding new transactions)

*------- Done; return to Main Menu.
CLOSE DATABASES
RETURN