SET alternate off SET alternate to DISPLAY MEMORY LIKE laEve* TO FILE Eve_Log.txt ADDITIVEto keep logging running
SET alternate off SET alternate toon 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 EnddefineI don't understand how writing the code in this way already works ??