At 11:29 AM 6/24/2010, Dan Goldberg wrote:
Wow, I learned something new today. Dialog command has pop-up boxes!!
Now, if I had time to finish testing so I can convert to V9...
Dan,
Here is another example of DIALOG with Popups which you may find helpful!
-- Start here
-- DIALOG_With_Popups_01.RMD
-- Popup Dialog Type: LOOKUP
-- A. Razzak Memon
-- June 24, 2010
IF (CVAL('DATABASE')) <> 'RRBYW16' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW16 IDENTIFIED BY NONE
ENDIF
--SAMPLE for Lookup PopUp
CLEAR VAR iv%,vCaption,vResponse,vEndKey,vCustID,vRows,vFormMode
SET VAR vCaption TEXT = 'DIALOG with Pop-up Menus'
SET VAR vResponse TEXT = NULL
SET VAR vEndkey TEXT = NULL
SET VAR vCustID INTEGER = NULL
SET VAR vRows INTEGER = NULL
SET VAR vFormMode TEXT = NULL
LABEL GetCustID
CLS
DIALOG 'Enter Customer ID or Double-Click for List of Customers' +
vResponse=38 vEndKey 1 +
CAPTION .vCaption +
ICON APP +
OPTION POPUP_ENABLED TRUE +
|POPUP_DIALOG_TYPE LOOKUP +
|POPUP_TITLE_FONT_NAME Tahoma +
|POPUP_TITLE_FONT_SIZE 10 +
|POPUP_TITLE_FONT_BOLD TRUE +
|POPUP_TITLE_FONT_COLOR BLACK +
|POPUP_TITLE_BACK_COLOR WHITE +
|POPUP_TITLE_TEXT Select Customer +
|POPUP_LIST_FONT_COLOR GRAY +
|POPUP_LIST_BACK_COLOR WHITE +
|POPUP_CAPTION List of Customers +
|POPUP_TABLE Customer +
|POPUP_SELECT Company,CustCity+','&CustState&CustZip,CustID +
|POPUP_RETURN_COLUMN CustID +
|POPUP_WHERE ORDER BY Company +
|POPUP_SHOW_LINES TRUE +
|POPUP_RETURN_TYPE COLUMN +
|POPUP_LINES 20 +
|POPUP_DISTINCT TRUE +
|THEMENAME Vista CG
IF vEndKey = '[Esc]' THEN
GOTO Done
ENDIF
IF vResponse IS NULL THEN
PAUSE 2 USING 'Missing Customer ID!' +
CAPTION .vCaption ICON STOP +
BUTTON 'Click here to enter Customer ID again ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_NAME Verdana +
|MESSAGE_FONT_COLOR RED +
|MESSAGE_FONT_SIZE 9 +
|THEMENAME Vista CG
GOTO GetCustID
ENDIF
SET VAR vCustID = (INT(.vResponse))
CLS
SELECT COUNT(*) INTO vRows INDIC iv1 FROM Customer +
WHERE CustID = .vCustID
IF vRows > 0 THEN
SET VAR vFormMode = 'EDIT'
EDIT USING Customers WHERE CustID = .vCustID
ENDIF
SET VAR vResponse = NULL
SET VAR vCustID = NULL
GOTO GetCustID
LABEL Done
CLEAR VAR iv%,vCaption,vResponse,vEndKey,vCustID,vRows,vFormMode
RETURN
-- End here
Have fun!
Very Best R:egards,
Razzak.
