| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
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 | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| 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}
#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
Não há.
Não há.