Histórico da Página

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. 

APLIB090.PRW

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

()

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.

#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