I found a silly work around for this problem. All that was necessary was to ad a button... any button... to the form. You never touch the button, but it's presence there allows the program to work. WHy? I have no idea. The skip-to now skips back to the correct spot. The button is just a dummy.
Yes, I tried skip 0 , skip -1, skip 1.. but never get focus back on the form no matter what it does.
Dan
At 11:44 AM 4/19/02 -0400, you wrote:
Dan
Did you try SKIP n instead of using the specific field name.
Buddy
- -----Original Message-----
- From: Dan Champion [mailto:[EMAIL PROTECTED]]
- Sent: Friday, April 19, 2002 11:24 AM
- To: [EMAIL PROTECTED]
- Subject: RE: program failure since upgrade
- Now that I have Identified the problem, and reported it to RDCC,
- I am looking for a work around. I am unable to get the "skip to" to bring me back to my form.
- I have (and will continue) tried every suggestion so far stated. If you can get the code below to work for you (on RBwin 6.5++ (it works fine on 6.5)) Let me know...:) I have reinstalled a copy of 6.5 on one of our workstation so we will be able to finish inventory this year.
- At 02:59 PM 4/18/02 -0400, you wrote:
- Ok...
- I have recreated the program, and form, based on the concomp database.
- Same results... No variables are named for colums, I created a small form with 4 fields.
- Field 1 Variable invbin1 "User CAN enter new or change data"
- exit field = run block1 in test.apx
- field 2 Variable invqty "User CAN enter new or change data"
- exit field = run block2 in test.apx
- Field 3 Variable invstatus "NO new data or entry on field"
- field 4 variable invpartnum "NO new data or entry on field"
- $COMMAND
- test
- CLS
- CONNECT concomp
- SET QUOTES = "
- set eqnull off
- CLEAR VAR inv*
- SET VAR invqty REAL = null
- SET VAR invpartnum TEXT = NULL
- SET VAR invbin1 INTEGER = NULL
- SET VAR invstatus TEXT = "No Data Yet"
- EDIT USING testform AT 60, 60, 549, 341 CAPTION " " noheader
- -- CLEAR V inv*
- RETURN
- end
- $COMMAND
- block1
- SET VAR invpartnum = company IN customer WHERE custid = .invbin1
- IF invpartnum IS NULL THEN
- SET VAR invstatus TEXT = "No Data Found"
- SET VAR invbin1 = NULL
- SKIP to invbin1
- ELSE
- SET VAR invstatus TEXT = "Data Found"
- SKIP to invqty
- ENDIF
- RECALC VARIABLES
- RETURN
- $COMMAND
- block2
- SET VAR invstatus TEXT = "You got to updates"
- RECALC VARIABLES
- SKIP to invbin1
- RETURN
- Dan Champion
- P.O. Box 223
- Grandville, MI. 49428-0223
- www.championsolutions.net
Dan Champion
P.O. Box 223
Grandville, MI. 49428-0223
www.championsolutions.net
Dan Champion
P.O. Box 223
Grandville, MI. 49428-0223
www.championsolutions.net
