Page 1 of 1

xBrowse validar e atualizar célula?

Posted: Fri Jan 04, 2008 5:10 pm
by FWHISHOW
Antonio, usando a xbrowse não estou conseguindo atualizar o conteudo de uma célula, ex:

obRW:aCols[1]:bOnPostEdit := {|o,x| aprod[ obRW:nArrayAt,1] := x }
obRW:aCols[1]:bStrData := { || trans(aprod[ obRW:nArrayAt,1],'999') }
obRW:aCols[1]:bEditValue:= { || aprod[ obRW:nArrayAt,1] }
obRW:aCols[1]:nEditType := EDIT_GET
obRW:aCols[1]:bEditValid := {|oGet| Seekproduto(oget) }

STATIC Function Seekproduto(oget)

local ubuffer:= oGet:Value()

if ! existe_prods(ubuffer)
// aqui preciso atualizar o valor de ubuffer, como fazer?
// algo assim oget:=0
return (.f.)
endif

return(.t.)

Posted: Mon Jan 07, 2008 11:55 am
by Rossine
Olá,

Tente isto:

Code: Select all

STATIC Function Seekproduto(oget) 

local ubuffer:= oGet:Value() 

if ! existe_prods(ubuffer) 
   oGet:varput( 0 )
   oGet:refresh()
   return (.f.) 
endif 

return(.t.)
Abraços,

Rossine.

Posted: Mon Jan 07, 2008 12:48 pm
by Antonio Linares
Revisa fwh\samples\mallorca.prg

Que ha sido modificado y probado a fondo en FWH 8.01, por lo que es distinto y funciona distinto del que se incluye en FWH 7.12

Posted: Mon Jan 07, 2008 1:57 pm
by FWHISHOW
GRATO