Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Configurador (SIGACFG) - Para que sirve el punto de entrada RPOUpdate

Tempo aproximado para leitura: 00:05:00 min

Duda
¿Para que sirve el punto de entrada RPOUpdate?

Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Configurador (SIGACFG) - Todas las versiones

Solución
Punto de entrada que se puede ejecutar para realizar algún manejo relacionado con el evento de salida del sistema, cuando el entorno de producción se actualiza con un nuevo repositorio, a través del intercambio de rpo.

Ejemplo:

#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