>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 >>
loGrid.Column13.ControlSource = "=(loGrid.Column1.text1.value * loGrid.Column5.text1.value * loGrid.Column8.text1.value * loGrid.Column9.text1.value)"