Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

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

Sprezzatura Ltd

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 Then
	RowData=Selected
End
Rtn=Set_Property(@Window:".TABLE_1",RowData$,RowData)

End

RETURN 0

View this thread on the forum...

  • third_party_content/community/commentary/forums_nonworks/77a041427d029e3485256567007ed629.txt
  • Last modified: 2023/12/28 07:40
  • by 127.0.0.1