lFastEdit en xBrowse

[acuellar]

Estimados

Tengo un Browse con FastEdit

Con éste código hace búsqueda por DESCRIPCION del producto cuando el usuario no sabe el NRO de PRODUCTO

Code: Select all  Expand view

  oCol:=oBrw:AddCol()
   oCol:bStrData  := { || DETMP->NRO_PRODUC}
   oCol:nHeadStrAlign := AL_CENTER
   oCol:cHeader   := "Producto"
   oCol:nWidth:=68
   oCol:AddResource('Boton-F2')
   oCol:nBtnBmp := 1
   oCol:nEditType := 5
   oCol:bEditBlock    := { |nRow,nCol,oCol| (BuscaProd(nRow,nCol)) }
   oCol:bOnPostEdit := {|o, v, n| If(!lbdr,DETMP->NRO_PRODUC:=v, ) }
   oCol:bEditValid:={| oGet, oCol| Items->( dBSeek( oGet:Value() ) ), ;
          iif( Items->( Eof() ), ( MsgStop( "Codigo de Producto Errado.","Error" ), .f. ), ,.T. )}
 

Elige el PRODUCTO cuando retorna pierde el FastEdit.
Si el usuario sabe el NRO y lo introduce no lo agarra lo obliga a pulsar ENTER


Gracias por la ayuda

[Antonio Linares]

Adhemar,

Estamos revisándolo

[Antonio Linares]

bEditBlock

This codeblock should return the new value to be assigned if the column value is to be changed or should return NIL if no change is to be made. The codeblock may not directly modify the column value

Este codeblock debe retornar el nuevo valor para ser asignado si el valor de la columna va a cambiarse ó debe devolver NIL si no hay que hacer un cambio. El codeblock no debe modificar el valor de la columna directamente

[acuellar]

Gracias Antonio por responder

Para salir del paso he hecho ésto y funciona, claro que no debería ser así.

Code: Select all  Expand view

oBrw:bChange:={|| If(lBdr,(oBrw:GoLeftMost(),SysWait(.2) ,__KeyBoard(Chr(13)),__KeyBoard(Chr(27)) ), ) }