topic-33319

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

lFastEdit en xBrowse
Posted: Sat Dec 10, 2016 03:12 PM

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 (fw): Select all Collapse

  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

Saludos,

Adhemar C.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: lFastEdit en xBrowse
Posted: Wed Dec 14, 2016 05:53 PM

Adhemar,

Estamos revisándolo

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: lFastEdit en xBrowse
Posted: Thu Dec 15, 2016 07:35 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: lFastEdit en xBrowse
Posted: Thu Dec 15, 2016 10:51 AM

Gracias Antonio por responder

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

Code (fw): Select all Collapse

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

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion