The code what I gave to you do the same thig w/o BINDEVENTS()
I attached an example form.
Check the last column "Header->TOTAL) and play with values in other columns.


>Hello community,
>
>i created these bindevents for columns 1,5,8,9 so that when i change the value of any of them the procedure can calculate the value of my column13.
>but it doesn't work!
>
>As I'm already getting a headache, can someone help me explain what's wrong and possibly correct the code?
>
>Here is the code:
>

>PUBLIC oManipulador as Manipulador
>
>*!* - Instancia o objeto manipulador
>oManipulador = CREATEOBJECT("Manipulador")
>
>
>loGrid = SFT.PAGEFRAME1.PAGE1.CONT1.GRID1
>  
>* Set the ControlSource for each column
>*loGrid.Column1.ControlSource = "FI.ALTURA"
>*loGrid.Column5.ControlSource = "FI.ESPESSURA"
>*loGrid.Column8.ControlSource = "FI.LARGURA"
>*loGrid.Column9.ControlSource = "FI.PARTES"
>
>
>* Bind the event to Column1
>BINDEVENT(loGrid.Column1, "AfterRowColChange", oManipulador, "CalculateTotal")
>
>* Bind the event to Column5
>BINDEVENT(loGrid.Column5, "AfterRowColChange", oManipulador, "CalculateTotal")
>
>* Bind the event to Column8
>BINDEVENT(loGrid.Column8, "AfterRowColChange", oManipulador, "CalculateTotal")
>
>* Bind the event to Column9
>BINDEVENT(loGrid.Column9, "AfterRowColChange", oManipulador, "CalculateTotal")
>
>DEFINE CLASS Manipulador AS Session
>LPARAMETERS nColIndex
>
>* Define the event handler method directly
>PROCEDURE CalculateTotal
>   ? "CalculateTotal method called"  && No message was return ??
>      loGrid.Column13.text1.value = VAL(loGrid.Column1.text1.value * loGrid.Column5.text1.value * loGrid.Column8.text1.value * loGrid.Column9.text1.value)
>
>ENDPROC
>enddefine
>

>
>Thanks!
>Luis
>
>Hi Lutz and Borislav
>
>I solve my problem with this:
>

>Release GE_SNNOCALFIS
>
>IF SFT.EDITING
>   
>    Public oHandler
>    oHandler = Newobject( "myhandler" )
>
>    oGrid = sft.pageframe1.page1.cont1.Grid1
>
>    Bindevent(oGrid,"BeforeRowColChange",oHandler,"mymove")
>
>ENDIF
> 
>DEFINE CLASS myhandler As Session
>
>PROCEDURE mymove
>Lparameters nColIndex
>          SELECT FT
>
>IF SFT.editing OR SFT.Adding
>
>		Select FI
>
>		If !Empty(FI.REF) And  (FI.qtt <> 0 And  ( FI.partes <> 0 And FI.altura <> 0 And FI.largura <> 0 And FI.espessura <> 0))
>
>
>			SFT.pageframe1.page1.cont1.grid1.column13.text1.Value =( SFT.pageframe1.page1.cont1.grid1.column1.text1.Value * SFT.pageframe1.page1.cont1.grid1.column5.text1.Value *  SFT.pageframe1.page1.cont1.grid1.column8.text1.Value * SFT.pageframe1.page1.cont1.grid1.column9.text1.Value)
>
>			Replace FI.u_cantidad With Round(( partes * altura * largura * espessura ),4)
>			Replace FI.etiliquido With  Round( Round( FI.u_cantidad *((epv *(1-desconto/100)*(1-desc2/100)*(1-desc3/100)*(1-desc4/100)*(1-desc5/100)*(1-desc6/100))), 6 ) , 2)
>		Else
>			If !Empty(FI.REF) And  ( FI.qtt <> 0 And  ( FI.partes =  0 Or FI.altura = 0  Or FI.largura = 0  Or FI.espessura = 0) )
>				Replace  FI.u_cantidad With FI.qtt
>			Endif
>		Endif
>
>do fttots
>do ftactval
>
>ENDIF
>
>ENDPROC
>
>ENDDEFINE
>

>
>Borislav,
>Regarding your question i need to use BINDEVENT because the principal GRID of the program "sft.pageframe1.page1.cont1.Grid1" cannot be modify by because it is a program that I review and was not developed by me, so I do not have access to all the programming features,
>the only possibility I have is to edit the screen in drawing mode and add a new grid where I have the possibility to add code in Xbase, this way from this new grid I delegate the instructions to the main Grid, which as I said, I cannot change or add new events, that´s why i use BINDEVENT .
>
>In practice, when i change the value of one of these columns : SFT.pageframe1.page1.cont1.grid1.column1.text1.Value * SFT.pageframe1.page1.cont1.grid1.column5.text1.Value * SFT.pageframe1.page1.cont1.grid1.column8.text1.Value * SFT.pageframe1.page1.cont1.grid1.column9.text1.Value, i want instant result in grid on column13.
>
>Also, Instead of referencing the column index, it is possible to control it via controlsource, in this case I believe it would be like this:
>

>select fi
>oGrid = SFT.Pageframe1.Page1.Cont1.Grid1
>For i = 1 to oGrid.ColumnCount 
>
>	If oGRid.Columns(i).controlsource == "FI.ALTURA"  &&By ControlSource
>             		? oGRid.Columns(i).text1.value
>	Endif
>EndFor
>

>
>That´s correct ?
>
>Many thanks for your replies !
>
>Best regards,
>Luis