LIMPAR TELA APÓS CADASTRO (WS)

[Barbosa]

Pessoal preciso de ajuda no seguinte.
Tela de Cadastro de Serviço, gostaria de cadastrar vários serviços sem ter que fechar a DIALOG, mas não estou conseguindo limpar a Tela.
Utilizo WS
Function Cadastro()
DIALOG

>> Comandos

Botão "Gravar" "Cancelar"
ACTIVATE

No botão gravar, gostaria que além de gravar os dados do registro, limpasse os GET´S para um novo cadastro. Só fechar a Dialog se for o Botão "Cancelar"

Obrigado

Geraldo Barbosa

[rochinha]

Amiguinho

É simples

Function cadastro()
local oGet1, oGet2, ...oGetn // Defina os objetos de suporte a campos
local oGet1, oGet2, ...oGetn // Defina as variaveis de suporte a campos
local lSave := .f. // Sempre Falso
...
cGet1 := space(10)
cGet2 := space(10)
...
DIALOG ...
redefine oGet1 var cGet1
redefine oGet2 var cGet2
...
define button oSim action ( lSave := .t., oDlg:end() ) // Botao SIM
define button oNao action ( lSave := .f., oDlg:end() ) // Botao NAO
...
ACTIVATE DIALOG...
if lSave = .t. // Caso clicou em SIM
sele SeuArquivo
replace SeuCampo1 with cGet1 // Salva os campos
replace SeuCampo2 with cGet2
...
cGet1 := space(10) // Zera as variaveis
cGet2 := space(10)
...
oGet1:refresh() // Refaz os campos
oGet2:refresh()
endif
...

@braços :?)