Histórico da Página

//Exemplo de ponto de entada convencional

#Include "Protheus.ch"

User Function EICA130()
Local cParam

If ValType(ParamIXB) == "C"
   cParam:= ParamIXB
Else
   cParam:= ParamIXB[1]
EndIf

If cParam == "MENU"
   Aadd(aRotina, {"Teste","Teste" , 0 , 3}) 
EndIf

Return


//Exemplo de ponto de entrada em MVC

User Function SYD()

Local aParam := PARAMIXB
Local lRet := .T.
Local cId := ""

If Valtype(aParam) =='A'
   cId := aParam[2]
   If cId =="FORMCOMMITTTSPRE"
      MsgAlert("Passagem pelo FORMCOMMITTTSPRE!")
   EndIf
EndIf

Return lRet