Histórico da Página

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

//***************************************************************
// Ponto de entrada CRM240BGRV antes da gravação da Tree
//#Par01    - aNodesBkp - Array de backup do aNodes para comparação
//#Par02    - aNodes    - Array de controle dos NODES da Tree
//#Par03    - aNodesPar - Array de gravação parcial
//*Return   - Sem nenhumanenhum retorno 
//***************************************************************

User Function CRM240BGRV()

Local aNodesBkp := PARAMIXB[1] // Array de backup do aNodes para comparação
Local aNodes    := PARAMIXB[2] // Array de controle dos Nodes da Tree
Local aNodesPar := PARAMIXB[3] // Array de gravação parcial

If aNodesPar[1][2] == "000001" .And. aNodesPar[1][5] == "USU"
    Alert("Inclusão do Usuário 000001 será feita na Estrutura de Negócios")
EndIf

Return