Limpar tela após cadastro

[Barbosa]

Amiguinho obrigado pela resposta, testei mas não é exatamente isso que eu queria pois assim quando dou OK a tela de cadastro fecha, o que eu preciso é que quando der OK grave e limpe os Get´s mas não feche a tela para cadastrar outros itens e só feche quando clicar no botão "Fechar". Outra coisa não sei se faz diferença mas estou utilizando Folder nesta tela.
Abaixo o link da minha pergunta.


https://pctoledo.org/forum/viewto ... 3b83e906f2

Geraldo Barbosa

[rochinha]

Amiguinho

Faça assim então:

Function cadastro()
public oGet1, oGet2, ...oGetn // Defina os objetos de suporte a campos
public cGet1, cGet2, ...cGetn // 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 oAplicar action ( FuncaoQueSalvaRegistros(), ;
cGet1 := space(10), oGet1:Refresh() ;
cGet2 := space(10), oGet2:Refresh() ) // Botao APLICAR
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
...
function FuncaoQueSalvaRegistros()
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()
return .t.

@braços :?)

[evolver]

Regras de boa conduta
Nunca peça especialmente a solução para uma única pessoa. Aqui tem um monte de pessoas que podem muito bem ajudar e tu pode conseguir até uma resposta diferente, melhor ou mais rápida. E isso está muito bem previsto nas regras do fórum.
Nunca use letras maíusculas no título do tópico pois isso é chamar a atenção e tirar o mérito dos posts de outras pessoas. Não é só você que tem problemas.

Se seu problema for urgente e quiser falar especificamente com uma pessoa use as mensagens particulares ou tente conseguir o MSN dela.

Grato

[Barbosa]

Sérgio desculpe as falhas, como o Rochinha é quem havia me respondido foi o jeito de mostrar a ele que não havia dado certo, mas certamente estarei atento a esses detalhes nas próximas postagens. Imagine se quero desrespeitar as regras do fórum.

Até mais.

Geraldo Barbosa

[evolver]

:)Pos