Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas