Unless anyone has any other ideas, I will submit this to RDCC.
Thanks
Dan
At 06:20 PM 4/18/2002 -0400, you wrote:
Ok,
I am now at home and have taken the code from the previous email and copied and pasted to a new file using rbedit. saved the file as test.app
connected to the concomp database
created a simple form with 4 fields as stated.
and I get the same results as at work, and as my other program.
the first occasion I enter data that will cause the lookup to fail (10), hence skip to invbin1... and it works. Then the second time, I enter data that WILL be found in the lookup (100) and it goes on to the second field.
$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
showing that it did hit the else correctly.
$COMMAND
block2
SET VAR invstatus TEXT = "You got to updates"
RECALC VARIABLES
SKIP to invbin1
RETURN
the var invstatus does now = "You got to updates" however,
the form has no fields waiting for data. You have to use your mouse to get to a field to enter data.
One little hint I do pick up is that during each of the data entries, the status bar does show the correct table, and field. But when it gets to this last line and exits the command file back to the form, the status line says. "no editable data in this table" Until I click on a field.
Has anyone else given this a try?
At 02:59 PM 4/18/2002 -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
