oBrowse1:AddColumn( HColumn():New('QUANT', FieldBlock( 'i_qTrib' ) ,'N',14, 4 ,.T.,2,2,'@E 99999999.9999',{|| oBrowse1oColumn5_onLostFocus( ) },,,,,,,,))
*************************************************
STATIC FUNCTION oBrowse1oColumn5_onLostFocus
*************************************************
SKIP 0
DBUNLOCK()
RecLOCK( )
ITENS->i_vUnTrib := STR((i_vProd / i_qTrib),14,10)
SKIP 0
DBunlock()
NotaXML:oBrowse1:REFRESHLINE()
Return .T.
*************************************************
STATIC FUNCTION RecLock()
*************************************************
DO WHILE ! RLOck()
INKEY(0.3)
ENDDO
RETURN Rlock()
SE eu teclar enter com o novo valor que foi colocado antes ele faz o calculo usando a nova quantidade