The first thing that stands out is you missing a period on the right hand
side of the if statement
IF vCNumber2 <> vCNumber1 THEN
Should be
IF vCNumber2 <> .vCNumber1 THEN
Dan
-----Original Message-----
From: Jim Belisle
Sent: Thursday, June 21, 2012 4:23 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: labels not showing
I appreciate all the comments on this problem.
As best I can tell it is a data corruption problem.
I have pasted the code I use below so if anyone has a suggestion on
making the code better, I am open to that.
-- Get date for shipping labels
SET VAR vBOLDate DATE = NULL
SET VARIABLE vBOLDate = (GETDATE('Select Date for Shipping Labels'))
IF vBOLDate IS NULL THEN
GOTO done
ENDIF
CLS
-- Set up variables used in processing.
-- Drop then create temp table for processing rows to print.
SET ERROR MESSAGE 2038 OFF
DROP TABLE tbollabels
SET ERROR MESSAGE 2038 ON
CREATE TEMP TABLE tbollabels (lblitem INTEGER, boldate DATE, BOLNumber
TEXT 15, +
ordernumber TEXT 20, lblpcs INTEGER, packagewgt REAL)
-- Declaring two cursors to capture information.
DECLARE cbolqty CURSOR FOR SELECT boldate, BOLNumber, BOLPackages +
FROM BOLHeader WHERE BOLDate = .vBOLDate
OPEN cbolqty
FETCH cbolqty INTO vbdate INDIC vi1, vcnum INDIC vi2, vbolqty INDIC vi3
DECLARE cbollbl CURSOR FOR SELECT boldate, BOLNumber, ordernumber, +
packageqty, packagewgt FROM bolrows WHERE BOLDate = .vBOLDate
-- AND shipdate IS NULL
OPEN cbollbl
FETCH cbollbl INTO vbdateu INDIC vi4, vcnumu INDIC vi5, vordnum INDIC
vi6, +
vpcs INDIC vi7, vpkgwgt INDIC vi8
SET VAR vCNumber1 = .vCnum
SET VAR vCNumber2 = 0
-- Processing rows with a WHILE LOOP.
WHILE SQLCODE <> 100 THEN
IF vCNumber2 <> vCNumber1 THEN
AUTONUM lblitem IN tbollabels USING 1 1 NONUM
ENDIF
WHILE vbolqty > 0 THEN
WHILE vpcs > 0 THEN
INSERT INTO tbollabels (boldate, BOLNumber, ordernumber, lblpcs,
packagewgt) +
VALUES (.vbdateu, .vcnumu, .vordnum,1, .vpkgwgt)
SET VAR vpcs = (.vpcs - 1)
SET VAR vbolqty = (.vbolqty - 1)
ENDWHILE
FETCH cbollbl INTO vbdateu INDIC vi4, vcnumu INDIC vi5, vordnum INDIC
vi6, +
vpcs INDIC vi7, vpkgwgt INDIC vi8
ENDWHILE
SELECT BOLNumber INTO vCNumber2 FROM tBOLlabels WHERE COUNT = INSERT
FETCH cbolqty INTO vbdate INDIC vi1, vcnum INDIC vi2, vbolqty INDIC
vi3
SET VAR vCNumber1 = .vcnum
ENDWHILE
-- Drop cursors.
DROP CURSOR cbollbl
DROP CURSOR cbolqty
-- Print labels.
LBLPRINT BOL_newlbltest +
OPTION SCREEN +
|WINDOW_STATE MAXIMIZED +
|ZOOM_TYPE PERCENTAGE|ZOOMPERCENT 100
James Belisle
Making Information Systems People Friendly Since 1990
--- RBASE-L
=======================3D=======================
D=
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]
(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
=======================3D=======================
D=
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
=======================3D=======================
D=
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
=======================3D=======================
D=
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
=======================3D=======================
D=
