Histórico da Página

#include "totvs.ch"

User Function exUpdPrg()
Local lRet as logical

Pergunte("CFG025",.F.)//Carrego as MV_PAR's sem exibir a tela
Alert(DToS(MV_PAR03))// Mostra o valor que estava gravado

lRet := SetMVValue("CFG025","MV_PAR03",Date()) //Atualizo o valor da terceira pergunta para a data de hoje

If lRet
	Conout("Pergunte atualizado corretamente")
EndIf

Alert(DToS(MV_PAR03))// Continua com o mesmo valor (as variáveis MV_PAR não são atualizadas...)

Pergunte("CFG025",.T.) //Mostra a tela de Pergunte com o parâmetro de data final atualizado

Return