Histórico da Página
Tempo aproximado para leitura: 15 min
. DADOS GERAIS
Linha de Produto: | Microsiga Protheus |
---|---|
Segmento: | Supply Chain - Logística |
Módulo: | TMS - Gestão de Transportes |
Função: | TMSXFUNB - Funções Genéricas |
Requisito/Story/Issue : | DLOGTMS02-8359 / Ticket 7388650 |
02. SITUAÇÃO/REQUISITO
A função de importação de documentos (TmsImpDoc) não possui tratamento em seus argumentos para gerar documentos como "notas complementares" (D2_TIPO = 'C').
03. SOLUÇÃO
Criado novo argumento na função para realizar o tratamento de documentos complementares. Exemplo da nova estrutura:
(...)
//-- Sendo, nOpcx (mesma do TMSA500):
// 04-Devolução
// 05-Reentrega
// 06-Complemento
// 07-Cancelamento
// 08-Aliança
// 09-Manut. Transp
// 10-Compl.Impost
// 11-Armazenagem
// 12-Anulação
// 13-Substituição
// 14-Can.Anul
//-- Array aDocOri
AAdd(aDocOri,cFilOri) //-- [1] - Filial Docto Original (caracter)
AAdd(aDocOri,"777000425") //-- [2] - No. Docto Original (caracter)
AAdd(aDocOri,"098") //-- [3] - Serie Docto Original (caracter)
AAdd(aDocOri,10) //-- [4] - % Docto. Orignal (numerico)
AAdd(aDocOri,.F.) //-- [5] - Complemento de Imposto (lógico) : obsoleto/apenas para compatibilização - Se enviar o 6º elemento no array, será desconsiderado este
lCompl := .T.
lComplImp := .F.
If lComplImp
AAdd(aDocOri,10) //-- [6] - nOpcx - TMSA500 (numerico): Compl.Impost
ElseIf lCompl
AAdd(aDocOri,06) //-- [6] - nOpcx - TMSA500 (numerico): Complemento
EndIf
aErrMsg := TMSImpDoc(aVetDoc,aVetVlr,aVetNFc,cLotNfc,.F.,12 /*PerImp*/,1,.T.,.T.,.T.,.T.,aDocOri)
(...)
Templatedocumentos
HTML |
---|
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |