>SET alternate off >SET alternate to >DISPLAY MEMORY LIKE laEve* TO FILE Eve_Log.txt ADDITIVE >>to keep logging running
>SET alternate off >SET alternate to >>on command line
>?AEVENTS(laEve_Source,SBO.pageframe1.page1.cont1.grid1.column13.Text1) >?AEVENTS(laEve_Target,oManipulador) >DISPLAY MEMORY LIKE laEve* >>on command line to check if the binding is still there. It should return values different 0 and the arrays should show where the binding goes. Check help for the fields.
>Public oManipulador As Manipulador >* - Instancia o objeto manipulador >oManipulador = Createobject("Manipulador") > > >oGrid = SBO.pageframe1.page1.cont1.grid1 > >FOR EACH loColumn IN oGrid.Columns > FOR EACH loControl IN loColumn.Controls > IF loColumn.text1.controlsource = 'BI.LOBS3' > BINDEVENT( loControl, 'DblClick', oManipulador, 'OnDblClick' ) > ENDIF > ENDFOR >ENDFOR > >Define Class Manipulador As Custom > Procedure OnDblClick > gorec=RECNO() > lcCod = BI.LOBS3 > *wait window lcCod timeout 0.80 > > Text to msel textmerge noshow pretext 7 > Select qncstamp, cod from qnc where qnc.cod = ?lcCod > Endtext > > If u_sqlexec(msel,[Crs]) > doread("QNC") > navega("Qnc",crs.qncstamp) > Endif > > *Wait Window gorec timeout 0.80 > > Return > Endproc >Enddefine >>
FOR EACH loColumn IN oGrid.Columns FOR EACH loControl IN loColumn.Controls IF loColumn.text1.controlsource = 'BI.LOBS3' BINDEVENT( loControl, 'DblClick', oManipulador, 'OnDblClick' ) *show column's name ?loColumn.NAME *end the loop: EXIT ENDIF ENDFOR ENDFOROnce you figured out the right column, you might use this instead of the loop