TME80NEG - Retorna Dados de Negociação na Importação do XML do Cliente.

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Logística
Módulo:	SIGATMS - Gestão de Transportes

02. DESCRIÇÃO

O Ponto de entrada localizado na função TMSAE80Inc do fonte TMSAE80.
Através deste ponto é possível realizar a manipulação das bases de negociação do contrato do cliente, na importação do XML da nota fiscal.

Parâmetros:

Nome	Tipo	Descrição
cCliCal	Character	Cliente de Cálculo
cLojCal	Character	Loja de Cálculo
cCliDev	Character	Cliente de Débito
cLojDev	Character	Loja de Débito
cCGCRem	Character	CGC do Remetente
cCGCDes	Character	CGC do Destinatário
cTipFre	Character	Tipo do Frete
cTipTra	Character	Tipo de Transporte
cSerTMS	Character	Serviço do TMS
cCodNeg	Character	Código de Negociação
cServic	Character	Serviço de Negociação

Retorno:

Array of Record {cCliCal,cLojCal,cCodNeg,cServic,cSerTMS,cTipTra}

03. EXEMPLO DE UTILIZAÇÃO

TME80NEG

#INCLUDE 'Protheus.ch'

User Function TME80NEG()
Local aRet    := {}
Local cCliCal := ParamIXB[1]
Local cLojCal := ParamIXB[2]
Local cCliDev := ParamIXB[3]
Local cLojDev := ParamIXB[4]
Local cCGCRem := ParamIXB[5]
Local cCGCDes := ParamIXB[6]
Local cTipFre := ParamIXB[7]
Local cTipTra := ParamIXB[8]
Local cSerTMS := ParamIXB[9]
Local cCodNeg := ParamIXB[10]
Local cServic := ParamIXB[11]

Aadd(aRet,"SP0001")
Aadd(aRet,"01")
Aadd(aRet,"CN")
Aadd(aRet,"SVC")
Aadd(aRet,"2")
Aadd(aRet,"1")

MsgAlert(aRet[1] + " " + aRet[2] + aRet[3] + aRet[4] + aRet[5] + aRet[6],"PE TME80NEG Retornando")

Return aRet

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS