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
