EDIT_BUTTON en Xbrowse

[Pedro]

Hola a todos

Pues eso, que intento poner un botón en una columna del xBrowse, y sale bien, incluso me va a la función que le indico, pero a la vuelta ni me pone el valor retornado, ni me deja poner un valor en la celda.
¿El botón solo sirve para pincharlo, o se puede teclear?
Me podéis indicar con un ejemplo como ponerlo. Os pongo el código que he usado y que no me da el resultado que deseo.

Code: Select all  Expand view

oCol = oBrw:AddCol()
   oCol:bStrData      := { ||(cAlias1)->codigo }
   oCol:nEditType     := EDIT_BUTTON
   oCol:cHEADER       := "CODIGO"
   oCol:addResource( "BUSCAR1" )
   oCol:lBtnTransparent := .t.
   oCol:nBtnBmp := 1
   oCol:bEditValid    := {|o| if ( Empty(o:value()) , .f., .t.) }
   oCol:bEditBlock   := {|nRow, nCol, oCol| oCol:Value := BuscaUnServicio()  }
   oCol:bOnPostEdit   := { | oCol, xVal, nKey | If( RecCount() == 0,( DbAppend(), oBrw:Refresh() ),) ,;
   If( nKey == VK_RETURN, If(BServicio(oBrw,xVal),oBrw:Refresh(),oBrw:GoleftMost()),),;
   If( nKey == VK_ESCAPE .and. Val((cAlias1)->codigo)=0,( (cAlias1)->(dbDelete()),;
               (cAlias1)->(__dbPack()),(cAlias1)->(dbGoBottom()),oBrw:Refresh() ), ) }
 

sé que algo hago mal, así que espero vuestras sugerencias

[nageswaragunupudi]

Code: Select all  Expand view

  // oBrw:bStrData := { || (cAlias1)->codigo }  // Using bStrData does not utilize xBrowse's capacities fully
  oBrw:bEditValue := { |x| If( x == nil, (cAlias)->codigo, (cAlias)->codigo := x ) }  // NEW: Add this line.
 

[Pedro]

Hola nageswaragunupudi

Gracias, con eso me soluciona el tema de que me ponga el valor escogido en la celda, pero no me soluciona el problema de no poder digitar en la celda, ni tampoco que la celda siguiente tome el valor que le doy en la función Bservicio.
A ver si alguien más tiene otra solución

[Pedro]

Bueno he conseguido poder digitar en la celda cambiando el EDIT_BUTTON por EDIT_GET_BUTTON, aunque me queda el tema que he de dar un intro para que valide el valor de la celda y me ponga en la siguiente celda el valor asignado.
Suponía que al ingresar el valor desde la función del ACTION del botón, no necesitaría pulsar intro para que se activase el bloque bValid.
Seguiremos intentándolo

[nageswaragunupudi]

Si se define bEditBlock, este debe hacer la codeblock
validación y devuelva el resultado o la validación
valor original. Xbrowse no hace ninguna validataion