Re: Popup in edit table box (OpenInsight Specific)
At 08 DEC 1997 06:05:23PM F. Boyle wrote:
What is the recommended procedure for displaying a popup in a specific column in an edit table? Any specifics?
FB
At 08 DEC 1997 07:30PM Andrew P McAuley wrote:
Create a generic OPTIONS event and within it check SelPos property - this will give you the column, then Begin Case ; Case Col=etc etc
If I need to be less cryptic then please let me know I tend towards brevity…
amcauley@sprezzatura.com
World Leaders in all things RevSoft (Except VIP)
At 08 DEC 1997 11:23PM Dsig (SigSolutions) wrote:
Below is code which should do what you wish. In this example column 2 is the one we wish to perform the 'options' on. If it is column 2 then we call a popup and if anything returned stuff the data.
Just put this code in your OPTIONS event for the table, change the column number to the one you want options keyed on (or use case if multiple columns) and enter the popup you wish to call
dsig
David Tod Sigafoos ~ SigSolutions
dsig@teleport.com voice: 503-639-8080 cis:70302,77
NOTICE FOR RTI FORUMS: The message above is an answer to a user request and should
be taken as personal opinion only.
Although care was taken to not hurt anyones feelings or impugn the quality of any product, support or idea IF there is an
exception taken please note in detail the offending portion of the note and email me. I will take all notes under advisement.
*
Declare Function Get_Property
Declare Function Set_Property
Declare Function Popup
$Insert Ctrl_Property_Equates
$Insert Logical
Equ Null$ to ""
* get the row of data, and the current positions (cols,row)
Ctrls=@Window:".TABLE_1" : @Rm : @Window:".TABLE_1"
Props=RowData$ : @Rm : SelPos$
RtnData=Get_Property(Ctrls,Props)
RowData=Field(RtnData,@Rm,1)
SelPos=Field(RtnData,@Rm,2)
CurCol=SelPos
CurRow=SelPos
* if second column then we will call popup
If CurCol=2 Then
Selected=Popup(@Window,"",popupname)
If Selected ThenRowData=SelectedEndRtn=Set_Property(@Window:".TABLE_1",RowData$,RowData)End
RETURN 0