Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 5 Próxima »

Função: GetPvProfileInt

Recupera o conteúdo numérico de uma chave, do arquivo de configuração (*.INI), qualquer.

GetPvProfileInt ( < cSecao>, < cChave>, < nPadrao>, < cNomeArqCfg> ) --> nRet

 

NomeTipoDescriçãoObrigatórioReferência
cSecaoCaracterIndica o nome da seção em que um valor será recuperado.X 
cChaveCaracterIndica o nome da chave em que um valor será recuperado.X 
nPadraoNuméricoIndica o conteúdo padrão que será recuperado.X 
cNomeArqCfgCaracterIndica o nome do arquivo de configuração (*.INI) em que o valor será recuperado.X 
uParam5NuméricoCompatibilidade  
uParam6NuméricoCompatibilidade  

 

nRet
    (numerico)
  • Retorna o conteúdo da chave especificada ou o seu valor padrão.
  • Se o parâmetro <cNomeArqCfg> for informado sem o caminho, o arquivo será procurado na pasta de instalação do TOTVS Application Server.
  • Se o parâmetro <cNomeArqCfg> for informado com o caminho, o arquivo será procurado na estação que executou a função.

 

 

#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local cServerIni := "", cClientIni := "", cMensagem := ""Local cSecao := "", cChave := ""Local nPadrao := 0//+----------------------------------------------------------------------------+//|Exemplifica o uso da função GetPvProfInt                                    |//+----------------------------------------------------------------------------+  cServerIni := GetAdv97()  cClientIni := GetRemoteIniName()  cSecao := "TCP"  cChave := "Port"  nPadrao := 0  cMensagem += "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF  cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;    NToC(GetPvProfileInt(cSecao, cChave, nPadrao, cServerIni), 10) + "]" + CRLF  cMensagem += "Arquivo de configuração da estação: [" + cClientIni + "]" + CRLF  cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;    NToC(GetPvProfileInt(cSecao, cChave, nPadrao, cClientIni), 10) + "]" + CRLF//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do GetPvProfInt")

Exemplo da função GetPvProfInt()
Microsiga Protheus 8.11 , Protheus 10

 

  • Sem rótulos