Limpar os Get´s após o cadastro

[Barbosa]

Já tive a resposta do Rochinha em outro tópico mas não funcionou o que eu preciso é mais ou menos como abaixo.


Essa seria a Tela
_______________________________
Código: 00001
Descrição: Inclusão do Registro Um

|Gravar| |Fechar|
_______________________________

Se eu clicar no "Gravar" o registro seria gravado e limparia o "00001" e o campo descrição e eu poderia gravar o registro 2.
No clipper seria fácil

While (.t.)
Get1:=space(4)
Get:=space(30)
@ 10,20 say "Codigo:" get1 pict "99999"
@ 11,20 say "Descrição:" get2 pict "@!"
read
// Grava o registro

// Aqui dava um loop e limpava todas as variáveis
loop


End

Agora no FiveWin simplesmente não consigo fazer funcionar.

Meu e-mail é lucgera@terra.com.br se alguém tiver um exemplo que funcione mais ou menos assim, após o cadastro dê um loop e limpe os get´s para um novo cadastro favor me enviar, desde já agradeço.

Geraldo Barbosa

[gvc]

Após a sua função de gravar, chame uma função para limpar as variáveis e dar um refresh() no objeto Get em questão.
O correto é dar refresh em toda tela.

[ICO]

Código: Selecionar todos

Local oGet[2],cVar1:=0,cVar2:=Space(50)

Define Dialog oDlg...
    
   Redefine Get oGEt[1] Var cVAr1 ...
    Redefine Get oGet[2] Var cVar2...
... Button "Gravar" Action GravaDad(oGet,cVAr1,cVar2)

Activate Dialog oDlg...

ProceDure  GravaDad(oGet,cVAr1,cVar2)
<"Grava">

cVAr1=0
cVar2=Space(50)

oGet[1]:VarPut(cVAr1)
oGet[1]:Refresh()

oGet[2]:VarPut(cVAr2)
oGet[2]:Refresh()

xSetFocus(oGet[1]

Return(.t.)  

O xSetFocus()

Código: Selecionar todos

Function XSetFocus(oObj)
Local oTempo := ""
Define Timer oTempo Interval 10 Of oObj:oWnd ;
Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate())
Activate Timer oTempo
Retu("")

Espero ter ajudado.. :f