Como dice el en encabezado, requiero hacer la edición directo sobre un registro en xbrowse, lo raro es que en columna de tipo carácter funciona, pero si la edición la hago sobre un campo numérico no funciona, alguien sane en que estoy fallando.
Code: Select all
....
oCol = oBrwItno:AddCol()
oCol:bStrData := {|| if(Len( aDevolu ) > 0 , aDevolu[oBrwItno:nArrayAt]["nombreproducto"] ,"" ) }
oCol:cHeader = "Descripción"
oCol:nWidth = 180
oCol:nHeadStrAlign = AL_LEFT
oCol:nDataStrAlign = AL_LEFT
oCol:oHeaderFont = oFont
oCol:cFooter = "TOTALES ------>"
oCol:oFooterFont = oFont3
oCol:nEditType = EDIT_GET
oCol:bOnPostEdit = { | oCol, xVal, nKey | If( nKey == VK_RETURN, aDevolu[oBrwItno:nArrayAt]["nombreproducto"]:=xVal,) }
oCol = oBrwItno:AddCol()
oCol:bStrData := {|| if(Len( aDevolu ) > 0 , aDevolu[oBrwItno:nArrayAt]["cantidad"] ,0 ) }
oCol:cHeader = "Cantidad"
oCol:nWidth = 55
oCol:nHeadStrAlign = AL_RIGHT
oCol:nDataStrAlign = AL_RIGHT
oCol:oHeaderFont = oFont
oCol:nEditType = EDIT_GET
oCol:bOnPostEdit = { | oCol, xVal, nKey | If( nKey == VK_RETURN, aDevolu[oBrwItno:nArrayAt]["cantidad"]:=xVal,) }
....
