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