Thanks, Will try this tonight after todays job.
Steve -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of MikeB Sent: Thursday, March 06, 2008 7:46 AM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: DIALOG BOX CONTROL And this One as well: SET VAR vcrlf = ((CHAR(13)) + (CHAR(10))) DIALOG 'Enter ANY Value and Press a Key' vres1=20 vk1 1 OPTION + |BUTTON_OK_CAPTION &OK + |BUTTON_CANCEL_CAPTION &Cancel SET VAR vlk0 = (LASTKEY(0)) SET VAR vlk1 = (LASTKEY(1)) SET VAR vmsg = ('vres1 ="' & .vres1 + '"' + .vcrlf) SET VAR vmsg = (.vmsg + 'vk1 ="' & .vk1 + '"' + .vcrlf) SET VAR vmsg = (.vmsg + 'LastKey(0) ="' & .vlk0 + '"' + .vcrlf) SET VAR vmsg = (.vmsg + 'LastKey(1) ="' & .vlk1 + '"' + .vcrlf) PAUSE 2 USING .vmsg RETURN Steve, between the two, you can see the effect of your selection ----- Original Message ----- From: "Steve Breen" <[EMAIL PROTECTED]> To: "RBASE-L Mailing List" <[email protected]> Sent: Thursday, March 06, 2008 7:12 AM Subject: [RBASE-L] - RE: DIALOG BOX CONTROL Buddy If you click the ok or cancel button on the dialog box does it set a variable such as vkey or how do they function? I understand the function of vkey and last key just not the dialog button output or response Steve -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Walker, Buddy Sent: Wednesday, March 05, 2008 7:03 PM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: DIALOG BOX CONTROL 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
