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

//Parâmetros

ParamIXB[1] : Alias que será alterado.

ParamIXB[2] : Vetor com as informações do cabeçalho da nota fiscal que serão gravadas na tabela DE5.

ParamIXB[3] : Vetor com as informações dos itens da nota fiscal que serão gravadas na tabela DE5.

ParamIXB[4] : Vetor com as informações do objeto do XML que está sendo importado no momento. Funciona somente com o parâmetro 1 do PE com valor igual a  "DE5".

ParamIXB[5] : Vetor com as informações dos itens do contrato do cliente que serão gravadas na tabela DE5 no campo Cód. de Negociação / Cód. Serviço / Serie, etc. Funciona somente com o parâmetro 1 do PE com valor igual a  "DE5".