Jim,
Here is working code. I tested it. Sometimes when you cut and paste code
to the list the formatting gets messed up. If it does not work, send me
your Email address and I will send you the .RMD.
SET ERROR MESSAGES ON
SET VAR vBOLDate = 12/23/2009
Set VAR vBdate DATE = null
Set VAR vCnum TEXT = null
Set VAR vOrdNum TEXT = null
Set VAR vPCS integer = 0
Set VAR vPkgwgt REAL = null
DROP TABLE tBOLLabels
CREATE TEMP TABLE tBOLLabels (Lblitem INTEGER, BOLDate DATE, Control# TEXT
9,+
OrderNumber TEXT 20, Lblpcs INTEGER, PackageWgt REAL,AutoNumberCol
Integer)
AUTONUM AutoNumberCol IN tBOLLabels USING 1 1 NUM
DECLARE cBollbl CURSOR FOR SELECT BOLDate, Control#, OrderNumber,
PackageQty, PackageWgt +
FROM BOLRows WHERE BOLDate = .vBOLDate
OPEN cBollbl
FETCH cBollbl INTO vBdate INDI vi1, vCnum INDI vi2, vOrdNum INDI vi3,vPcs
INDI vi4, vPkgwgt INDI vi5
WHILE SQLCODE <> 100 THEN
WHILE vPcs > 0 THEN
INSERT INTO tBollabels (BOLDate, Control#, OrderNumber,
Lblpcs,PackageWgt) +
VALUES (.vBdate, .vCnum, .vOrdNum,1, .vPkgwgt)
SET VAR vPCS = (.VPCS - 1)
ENDWHILE
FETCH cBollbl INTO vBdate INDI vi1, vCnum INDI vi2, vOrdNum INDI vi3,vPcs
INDI vi4, vPkgwgt INDI vi5
ENDWHILE
Drop cursor cBollbl
Brow * from tBOLLabels
RETURN
John
Email: [email protected]
