That's correct, Mark!
And, here is the sample you can use/recycle to take advantage of "Custom Action" and recycle the similar code throughout your application.
-- Start of the code -- SearchPO.RMD CLEAR VAR vPoNumbText,vPoNumbInteger,vRows,vEndkey SET VAR vPoNumbText TEXT = NULL SET VAR vPoNumbInteger INTEGER = NULL SET VAR vRows INTEGER = NULL SET VAR vCaption TEXT = ' Search Purchase Orders'
LABEL Start DIALOG 'Enter PO Number:' vPoNumbText=26 vEndKey 1 + CAPTION .vCaption ICON APP + OPTION TITLE_FONT_COLOR BLACK + |TITLE_BACK_COLOR WHITE + |TRANSPARENCY 255 + |WINDOW_BACK_COLOR WHITE
IF vEndKey = '[Esc]' OR vPoNumbText IS NULL THEN GOTO Done ENDIF
SET VAR vPoNumbInteger = .vPoNumbText SELECT COUNT(*) INTO vRows INDIC ivRows + FROM POTable WHERE PONumb = .vPoNumbInteger IF vRows > 0 THEN BROWSE USING POs WHERE PoNum = .vPoNumbInteger GOTO Start ELSE PAUSE 2 USING 'No record with such Purchase Order!' + CAPTION .vCaption ICON WARNING + OPTION BACK_COLOR WHITE + |MESSAGE_COLOR RED + |MESSAGE_FONT_COLOR WHITE GOTO Start ENDIF
LABEL Done CLEAR VAR vPoNumbText,vPoNumbInteger,vRows,vEndkey, + vCaption, iv% RETURN -- End of the code
Feel free to make any adjustment(s) accordingly.
Hope that helps!
Enjoy and make sure to have fun!
Very Best R:egards,
Razzak.
At 11:24 AM 1/3/2004 -0500, Mark Kwoka wrote:
Does this mean that 7.0 does not support a user input in the WHERE clause of the EDIT USING formname Action option? (WHERE columnname = @'user message'). I just want a confirmation that this is not available before I start creating my 'Custom Actions'.
Thank you Razzak,
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of A. Razzak Memon Sent: Saturday, January 03, 2004 9:52 AM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: User Input Value in WHERE Clause
At 08:38 AM 1/3/2004 -0500, Mark Kwoka wrote:
>Hello rbase friends, > >here is my problem, perhaps anyone can help. > >In Rbase 6.5++ Application Express one of the available actions is EDIT
>USING formname. The user can enter a comparison value to edit a specific >row of data by typing the following in the WHERE clause: &&&&..WHERE >columnname = @message. > >If I use the same idea in RBASE 7.0 I get an error message Column or >variable @messagenot found (2515). Maybe this will not work with 7.0 as >it did with 6.5++? > >Any idea what is wrong?
Mark,
A complete new GUI interface and Application Designer in R:BASE 7.0 for Windows includes the option "Custom Actions".
Application Designer > Actions > Add > Custom Action
That's where you would use the pre-defined and fully tested custom action to achieve the same goal.
You can also take advantage of new DIALOG command to provide your end-users the option and the ability to test as well as provide custom messages, etc., before using the EDIT USING formname option.
There are a lot more options in Application Designer to take advantage of.
Enjoy and make sure to have fun!
Very Best R:egards,
Razzak.
