Passing Edittable key from Index_Lookup (OpenInsight Specific) [Revelation On-Line Wiki]

OpenInsight Specific

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 11 MAR 1998 10:18:07AM A. Dove wrote:

Maybe I've looked at this too long and cant' see the simple answer.

I can't get the following code to pass the "result" to Column-1 whatever row in my AUTH_EDIT Edittable. Any ideas….

declare function indexlookup

Parent=Get_Property(@WINDOW,"MDIFRAME")

if len( Parent ) else
 Parent=@window
end

Result=indexlookup(Parent,'AUTHORS', 'FULL_NAME_XREF', 'FULL_NAME' , '')

eTable=.AUTH_EDIT"

pos=Get_Property(Parent:eTable,"SELPOS")

acode=Get_Property(Parent:eTable,"CELLPOS",1:@FM:pos)

if Result then
 Rtn=Set_Property(Parent:".AUTH_EDIT.1","CELLPOS",Result)
 call send_event(Parent:".AUTH_EDIT.1", "LOSTFOCUS")
end

Return 0

A debug statement shows Result is correct code.

Thanks

At 11 MAR 1998 10:50AM Don Bakke wrote:

eTable=.AUTH_EDIT"

pos=Get_Property(Parent:eTable,"SELPOS")

acode=Get_Property(Parent:eTable,"CELLPOS",1:@FM:pos)



if Result then

*

Rtn=Set_Property(Parent:".AUTH_EDIT.1","CELLPOS",Result)

call send_event(Parent:".AUTH_EDIT.1", "LOSTFOCUS")
The first thing I noticed was that ".AUTH_EDIT" is being used at the top but ".AUTH_EDIT.1" is being used at the bottom. It wasn't clear if these are supposed to be the same edittable or not.

dbakke@srpcs.com

SRP Computer Solutions