bGetFocus en xbrowse existe?
Posted:
Thu Oct 21, 2021 7:24 pm
by goosfancito
Hola.
Necesito guardar una copia del valor de una celda en xbrowse antes que sea cambiada.
existe el bGetFocus() en xbrowse?
Re: bGetFocus en xbrowse existe?
Posted:
Thu Oct 21, 2021 7:43 pm
by leandro
Creo que este te puede servir
- Code: Select all Expand view
oCol:bOnPostEdit = { | oCol, xVal, nKey | If( nKey == VK_RETURN, calcItemNota(xVal),) }
oCol:bEditValid = { | oGet | validaItem(oGet,oBrwItno:nArrayAt) }
oCol:bEditValue = {|| if(Len( aDevolu ) > 0 , aDevolu[oBrwItno:nArrayAt]["devolucion"] ,0 ) }
Re: bGetFocus en xbrowse existe?
Posted:
Thu Oct 21, 2021 7:57 pm
by goosfancito
te comparto como lo he resuelto
- Code: Select all Expand view
:aCols[ 4 ]:bStrData := { || IIf( ! Empty( ::aPRoductos[ ::oBrw:nArrayAt, 4 ] ), trans( ::aProductos[ ::oBrw:nArrayAt, 4 ], ), ) }
:aCols[ 4 ]:bEditWhen := { || ! Empty( ::aProductos[ ::oBrw:nArrayAt, 3 ] ) }
:aCols[ 4 ]:bOnPostEdit := { | oCol, xVal, nKey | ;
::aproductos[ ::oBrw:narrayat, 8 ] := ::aproductos[ ::oBrw:narrayat, 8 ] - ::aproductos[ ::oBrw:narrayat, 4 ], ;
oCol:VALUE := xVal, ;
::aproductos[ ::oBrw:narrayat, 8 ] := ::aproductos[ ::oBrw:narrayat, 8 ] + xVal ;}
:aCols[ 4 ]:bEditValid := { | oGet | ::valido( oGet, 4 ) }