Frameworksp

Atalhos

Páginas filhas
  • RPOUpdate - Saída do sistema

Ponto-de-Entrada: RPOUpdate - Saída do sistema
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Ponto de entrada que pode ser executado para realizar algum tratamento relacionado ao evento de saída do sistema,  quando o ambiente de produção é atualizado com um novo repositório, por meio da troca de rpo.
Programa Fonte 
APLIB090.PRW
Sintaxe

RPOUpdate - Saída do sistema ( [ ParamIXB ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB Vetor Vetor com as informações do usuário, ambiente e módulo em uso.
Retorno
    ()
Observações

Parâmetro ParamIXB

 

Estrutura do array

  • [1] - nome do usuário logado no sistema.
  • [2] - ambiente que estava sendo utilizado.
  • [3] - módulo que estava sendo utilizado.
Exemplos 
#include "protheus.ch"User Function RPOUpdate()Local cUser := PARAMIXB[1]  // usuário que estava logado no sistemaLocal cAmb := PARAMIXB[2]  // ambiente que estava sendo utilizadoLocal cModAcess := PARAMIXB[3]  //módulo que estava sendo utilizado                        Local lADV	:= .F.Local cTextIf cAmb == "SIGAMDI" .Or. cAmb == "SIGAADV"	lADV := .T.EndIf           cText := "Usuário: "+Alltrim(cUser)+" saiu do "If lADV	cText += "ambiente " + cAmb + " - "EndIFcText += "módulo " + cModAcess cText += " em " + DTOC(Date()) + " às "+Time()cText += " devido a atualização de repositório no ambiente de produção"ApMsgAlert(cText)Return

  • Sem rótulos