Sami, R:BASE 2000 v6.5++ DOS (32-bit), U.S. Version, Build: 1.866xRT03
-----Original Message----- From: Sami Aaron [mailto:[EMAIL PROTECTED] Sent: Sunday, May 01, 2005 3:57 AM To: [email protected] Subject: [RBG7-L] - RE: Code works once and will not work 2nd time ? Oops - both buttons have &C - change it to: DIALOG + 'Procedure is for deletion of all data pertaining to Allied Automotive' + vResponse vEndKey YES CAPTION 'Confirm Deletion' + ICON SERIOUS + OPTION MESSAGE_FONT_COLOR 536870911 + |MESSAGE_BACK_COLOR -16777201 + |MESSAGE_FONT_NAME MS Sans Serif + |MESSAGE_FONT_SIZE 10 + |MESSAGE_BOLD ON+ |BUTTON_YES_CAPTION &Continue+ |BUTTON_NO_CAPTION Ca&ncel+ |BUTTON_YES_COLOR GREEN + |BUTTON_NO_COLOR RED + |BUTTON_YES_FONT_COLOR WHITE + |BUTTON_NO_FONT_COLOR WHITE IF vEndKey = '[esc]' THEN GOTO FINISH ENDIF -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Sami Aaron Sent: Sunday, May 01, 2005 3:54 AM To: RBG7-L Mailing List Subject: [RBG7-L] - RE: Code works once and will not work 2nd time ? Steve - I'd encourage you to use some of the new features over the older "WRITE/PAUSE/LASTKEY" commands - see how your app would look if you changed the WRITE to: DIALOG + 'Proceedure is for deletion of all data pertaining to Allied Automotive' + vResponse vEndKey YES CAPTION 'Confirm Deletion' + ICON SERIOUS + OPTION MESSAGE_FONT_COLOR 536870911 + |MESSAGE_BACK_COLOR -16777201 + |MESSAGE_FONT_NAME MS Sans Serif + |MESSAGE_FONT_SIZE 10 + |MESSAGE_BOLD ON+ |BUTTON_YES_CAPTION &Continue+ |BUTTON_NO_CAPTION &Cancel+ |BUTTON_YES_COLOR GREEN + |BUTTON_NO_COLOR RED + |BUTTON_YES_FONT_COLOR WHITE + |BUTTON_NO_FONT_COLOR WHITE IF vEndKey = '[esc]' THEN GOTO FINISH ENDIF Sami Aaron Software Management Specialists 913-915-1971 [EMAIL PROTECTED] -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Steve Breen Sent: Saturday, April 30, 2005 4:38 PM To: RBG7-L Mailing List Subject: [RBG7-L] - Code works once and will not work 2nd time ? I am running this code in front of a procedure that I wnat to make sure no one runs without being sure they want to do it. Esc works fine the first time but is totally ignored the second time. I know it should work but it will not. The second time it just goes into the procedure even if I hit escape (ESC) DISC SET MULTI OFF CONN BREAKDN SET MESSAGES OFF SET ERR MESSAGES ON SET FEED ON SET RULES OFF CLS Write ' ' Write ' ' Write ' ' Write ' Proceedure is for deletion of all data pertaining to Allied Automtive' Write ' ' Write ' ' Write ' Do You Wish To Continue ' Write ' ' Write ' ' Write ' Hit any Key to Continue - ESC to Quit' Write ' ' Write ' ' Write ' ' Write ' ' set var vlastkey0 = (lastkey(0)) if vlastkey0 = '[esc]' then goto FINISH endif Pause cls clear var vlastkey0 Write ' ' Write ' ' Write ' Are You Sure ' Write ' ' Write ' ' Write ' Hit any Key to Continue - Esc to Quit ' Write ' ' Write ' ' Write ' ' Write ' ' set var vlastkey0 = (lastkey(0)) if vlastkey0 = '[esc]' then goto FINISH endif Pause cls clear var vlastkey0 drop deltable -- Create table to id rows to be deleted - in this case all allied breakdowns in master - id is pon Write ' Creating Table of POn's for Deletion ' SET VAR vTime1 TIME = NULL SET VAR vTime2 TIME = NULL SET VAR vElap INTEGER = NULL SET VAR vMessage TEXT = NULL SET TIME FORMAT HH:MM:SS SET VAR vTime1 = .#TIME Project deltable from master using pon where custnub2 in (sel + custnub2 from customer where parentcustid = 101) -- Create index on del table to speed things up Create index #none on deltable (pon asc) More Code Follows not in this email
