I appreciate the advice, and in most of my other programming here I would
do just that, however... the old programmer had a bad habbit of clearing
v*, so I name my variables for each module with the first 3 letters of the
module then the descriptor.... so the inventory module has inv****
as variable names and I can clear them all with cle v inv* and not hit the
other global variables.
Here in it's entirety (only 93 lines) is the whole program I have
commented most of the area out that didn't work, and it still doesn't
skip. I have tried Karen's skip 0 or skip -1 in this case and it
doesn't do it.
$COMMAND
wareinv
-- wareinv.dan
-- This file is designed to facilitate the easy inputting of inventory data
-- Written by Dan Champion
-- Written April 4 2001
-- Modifications: Added NewBin to prices to have just digits instead of
-- combination of text and digits
-- Data passed to this program
-- Data passed from this program
-- SET MESSAGES OFF
-- SET ERROR MESSAGES OFF
CLS
CLEAR V inv*
DIALOG "Enter Number to be used as the job number" invjobnum invend 1 +
AT 10, 10
SET V invmldate DATE = .#DATE
SET V invqty REAL
SET V invpartnum TEXT = NULL
SET V invdescript TEXT = NULL
SET V invprice CURRENCY = 0
SET V invproduct TEXT = NULL
SET V invmargin REAL = 1.6
SET V invempmult REAL = 1.1
SET V invbin1 INTEGER = NULL
SET V invstatus TEXT = "No Data Yet"
SET ERROR V inverror
SET V rbti_nostatus = 1
EDIT USING warehouseinv AT 60, 60, 549, 341 CAPTION " " noheader
CLEAR V inv*
RETURN
$COMMAND
LOOKUPS
-- lookup the data from the prices table
IF invbin1 = 2 THEN
PAUSE 2 USING "under repair, sorry"
-- run lookups.eep
ENDIF
SET V invpartnum = partnum IN prices WHERE newbin = .invbin1
SET V invdescript = discript IN prices WHERE partnum = .invpartnum
SET V invprice = ncost IN prices WHERE partnum = .invpartnum
SET V invproduct = product IN prices WHERE partnum = .invpartnum
SET V invmargin = 1.6
IF invpartnum IS NULL THEN
SET V invstatus = "No Data Found"
SET V invbin1 = NULL
SKIP TO invbin1
ELSE
SET V invstatus = "Data Found"
ENDIF
RECALC VARIABLES
RETURN
$COMMAND
updates
-- test the variables
-- insert the data to the matlist table
*(
IF invqty = 0 THEN
SET V invstatus TEXT = "Retry"
ELSE
SET ERROR V inverror
-- insert data
INSERT INTO matlist (jobnum, mldate, qty, partnum, discript, +
price, product, margin, emp_mult) +
VALUES (.invjobnum, .invmldate, .invqty, .invpartnum, .invdescript, +
.invprice, .invproduct, .invmargin, .invempmult)
IF inverror = 1 THEN
SET V invstatus TEXT = "Unsuccessful Insert"
beep
ELSE
SET V invstatus TEXT = "Successfully inserted Data"
ENDIF
ENDIF
SET V invqty REAL = NULL
SET V invpartnum TEXT = NULL
SET V invdescript TEXT = NULL
SET V invprice CURRENCY = 0
SET V invproduct TEXT = NULL
SET V invbin1 INTEGER= NULL )
RECALC VARIABLES
beep
SKIP to invbin1
RETURN
At 11:36 AM 4/18/02 -0400, you wrote:
>In a message dated 4/18/2002 7:32:34 AM Eastern Daylight Time,
>[EMAIL PROTECTED] writes:
>
><< The thing I wonder about is. The variable invbin1 is the SAME as the
> field name. Mabye the trouble is that it thinks I am trying to skip to a
> variable rather than the field. It is strange that the same skip to
> command works earlier in the program. >>
>Dan,
>Just as matter of course I ALWAYS start a variable name with a vVarName to
>avoid this type of thing. I'm not sure it that is causing the problem, but
>duplicate names on ANYTHING can cause intermittent problems. I went through
>that back in SystemV, and finally changed the names to correct some problems.
>I'm not sure that's the problem, but it never hurts to look, and it makes
>code MUCH easier to read when looking for a variable.
>Just my $.02
>Damon
>
>Damon D. Kaufman
>President
>Stalder Spring Works, Inc
>ISO-9002 / QS-9000 Certified
>2345 S. Yellow Springs St.
>Springfield, Ohio 45506
>Voice 937-322-6120
>Fax 937-322-2126
>email: [EMAIL PROTECTED]
>================================================
>TO SEE MESSAGE POSTING GUIDELINES:
>Send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: INTRO rbase-l
>================================================
>TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: UNSUBSCRIBE rbase-l
>================================================
>TO SEARCH ARCHIVES:
>http://www.mail-archive.com/rbase-l%40sonetmail.com/
Dan Champion
P.O. Box 223
Grandville, MI. 49428-0223
www.championsolutions.net
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
