Dan Just for testing purposes change your variable name from invbin1 to Vinvbin1 in your program and/or form.
I'm assuming the field name you want to skip to is invbin1(colname) and not invbin1(variable). I would also add SCREEN RESTORE ON after RECALC VARIABLES. This will refresh your variables and display them correctly on the form. Bill Eyring -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Dan Champion Sent: Thursday, April 18, 2002 12:13 PM To: [EMAIL PROTECTED] Subject: Re: program failure since upgrade 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/ ================================================ 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/
