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(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(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
|
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "totvs.ch" User Function exUpdPrg() Local lRet as logical RpcSetEnv('T1', 'D MG 01', "admin", "1234") //Necessário o ambiente estar aberto Pergunte("CFG025",.F.)//Carrego as MV_PAR's sem exibir a tela Conout(MV_PAR03)// Mostra o valor que estava gravado //Envia o 4º parâmetro como .T. para atualizar no SX1/Profile lRet := SetMVValue("CFG025","MV_PAR03",Date(), .T.) //Atualizo o valor da terceira pergunta para a data de hoje If lRet Conout("Pergunte atualizado corretamente no SX1/Profile") EndIf Conout(MV_PAR03)// MV_PAR atualizada com o novo valor Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas