RE: program failure since upgrade

[Dan Champion]

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