Dennis, Ben, & Bernard,
Thanks for your input. I'll play around with all this.
Ned
Section of actual Code now reads:
SET VAR vCheckNumb INTEGER = 0
SELECT (MAX(CheckNumber)) INTO vCheckNumb FROM Checks
SET V vCheckNumb = (.vCheckNumb +1)
--TEST if there are any customers who need a check printed
SELECT CustNumber INTO vConsignor +
FROM ConsignView +
WHERE DateSOLD BETWEEN .vBeginDate AND .vEndDate +
AND CheckNumber IS NULL +
AND Limit = 1
--Eventually a point is reached where there are NO rows that qualify
IF SQLCODE = 100 THEN
--No more records
GOTO END
ENDIF
--However when we have valid data we actually print the next check
OUTPUT PRINTER
PRINT PayCheck WHERE CustNumber = .vConsignor +
AND DateSOLD BETWEEN .vBeginDate AND .vEndDate +
AND CheckNumber IS NULL
OUTPUT SCREEN
--All Variables from PayCheck Report still active so
--Delete those variables not needed for INSERTION
CLEAR V vTotalDescription vToCust vTotalConsign +
vTotalPayment vFullAddress vFullName
INSERT INTO Checks +
(CheckNumber, CheckDate, CustNumber, CheckAmount, CheckNotes) +
VALUES (.vCheckNumb, .#DATE, .vConsignor, .vTotalToCust, .vNotes)
UPDATE Items SET CheckNumber = .vCheckNumb +
WHERE (DateSOLD BETWEEN .vBeginDate +
AND .vEndDate AND Consignment +
IN (SELECT Consignment FROM Consignments +
WHERE CustNumber = .vConsignor))
