Steve
You can check the variable vkey
If vkey = '[esc]' or vinv# then
Whatever......
Endif
You could also check to see if vinv# is null
Buddy
________________________________
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Steve
Breen
Sent: Wednesday, March 05, 2008 5:15 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - DIALOG BOX CONTROL
In 6.5 plus a dialog box did not have options such as ok and cancel. Now
that the do I am not sure how to control their input results in the
code.
IE: using mouse to select the "cancel" option
Please offer any suggestions
Steve
-- get_inv_number.rmd
LABEL loop
CLEAR VAR vinv#
DIALOG 'Enter A Invoice Number or ESC to exit (CDIINV):' vinv#=10 vkey 1
IF (LASTKEY(0)) = '[esc]' THEN
GOTO finish
ENDIF
IF (LASTKEY(0)) = '[cancel]' THEN
GOTO finish
ENDIF
CLEAR VAR vpon
SET VAR vpon = pon FROM master WHERE cdiinv = .vinv#
IF vpon IS NULL THEN
RUN errmsg.rmd USING 'Invoice Number Not found'
GOTO loop
ENDIF
PRINT final_billing WHERE cdiinv = .vinv#
LABEL finish
RETURN
Stephen Breen
CDI Services, Inc.
Road Support Division
