Histórico da Página
...
| Nome | Tipo | Descrição | Obrigatório | Referência | Default |
| cPergunta | Caracter | Nome do grupo de perguntas (SX1). | X | ||
| cMVVar | Caracter | Nome da Variável MV_PAR que sera atualizada. | X | ||
| xValue | Caracter | Valor que será atribuído. | X | ||
lUpdMVPar (Disponível a partir do LIB Label 20230403) | Lógico | Indica se irá atualizar o parâmetro no SX1/Profile. Esse valor só será acatado em threads com o ambiente aberto via RpcSetEnv entre demais exceções. | .F. |
Retorno
lRet → lógico indicando se atualizou o pergunte corretamente (Disponível a partir do LIB Label 20230403, com as libs anteriores não tem retorno)
...
| 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