Perguntas Trocar as respostas dos parâmetros (SX1)....

Bom dia a todos,

Gostaria de saber como trocar a resposta dos parâmetros (SX1) após finalizada a rotina.

No meu caso, gostaria a resposta do MV_PAR01 de um grupo de perguntas inicialize sempre com o mesmo conteudo. O usuario poderá modificar o parametro e rodar a rotina, mas o termino da execução o parametro deverá voltar para o padrão.

Como eu faço isso, alguém tem alguma ideia ?

Grato

Bom dia, primeira coisa a fazer é armazenar o valor da pergunta em uma variável qualquer, após isso, use o pergunte dessa forma:
pergunte(cperg,.f.)

Dessa forma ele carrega os MV_PAR01... na memória
vc altera o que vc quer, tipo MV_PAR05 := '000999' e MV_PAR06:= '000999'

Mas depois vc tem que gravar no SX1 essa alteração como o exemplo abaixo

Dbselectarea("SX1")
DbsetOrder(1)
Dbseek(cPerg+"03")
Reclock("SX1",.F.)
SX1->X1_CNT01:="teste"
SX1->(MsUnlock())

Faça um teste.

Ronaldo,

Já testei dessa forma e não funciona. Quando o usuário volta para a rotina o parâmetro está com a resposta dada pelo usuario.

Como utilizamos os parâmetros por usuário, só mudando no SX1 não atende.

At.

Luiz,

Com o PutSX1() também não rola.... assim ele "cria" uma nova pergunta no SX1.

At.