Como criar objeto tipo Get

[atnsoft]

num get normal assim:

 

local Ventra := 10, oEntra

@ 12,12 get oEntra Var Ventra picture "99" of oDlg Valid Testaalgo(oEntra, Ventra)

funciona

 

 

mas se em outro contexto do sistema, preciso usar a funçao testaalgo assim:

 

Ventra := 10

 

como criar o objeto get oEntra aqui?

 

if ! TestaAlgo(oEntra, Ventra)

  ? "erro"

endif

 

 

 

 

 

[Eduardo Bilato]

Já tentou testar dentro da função TestaAlgo se o objeto do parâmetro existe ?

 

Seria algo do tipo:

 

Function TestaAlgo( obj,xvar )

.
. <comandos da função>
.

if obj<>nil
   obj:Refresh() //refresh ou qualquer outro método que esteja usando
endif

Return .t.

[kapiaba]

Se entendi, basta levar o objeto do Dialogo( oDlg ) Junto nos parametros.

 

E voce pode escrever nela sem problemas já q está usando @Say. Eu acho.. Ou use o VARPUT para Refrescar o objeto que vc. já criou anteiormente.

 

abs,

[atnsoft]

Ricardo,  deu certo, bastou testar se oEntra não é nil

 

Gracias

 

 

 

[Eduardo Bilato]

Ricardo,  deu certo, bastou testar se oEntra não é nil

 

Gracias

 

HAUHUAHUAHUAHU essa foi pra mim ?! 

[atnsoft]

Quaquaquaqua,

 

é mesmo. nem tinha lido na íntegra. Variavel trocada para oNadameu.

[AnaCatacombs]

O correto mesmo seria testar o tipo do objeto: Valtype== "O".

Alguém pode fazer alguma cagada e definir oEntra com qualquer outro tipo.