Histórico da Página

Exemplo de Ponto de Entrada.

User Function TME80ALT()
Local aRet   := {}
Local cAlias := ParamIXB[1]
Local aCabec := ParamIXB[2]
Local aItens := ParamIXB[3]
Local oXML	 := ParamIXB[4]
Local aItCont:= ParamIXB[5]

If cAlias == "DE5" .And. !Empty(aCabec) .And. !Empty(aItens)
	Msgalert("Passando no PE TME80ALT para alteração dos vetores de inclusão na DE5.","Atenção!!!")
	Aadd(aRet,Aclone(aCabec))
	Aadd(aRet,Aclone(aItens))
ElseIf cAlias == "DEV"
	Msgalert("Passando no PE TME80ALT para alteração do registro posicionado na DEV.","Atenção!!!")
EndIf

Return aRet