7388650 DLOGTMS02-8359 DT Função TmsImpDoc não gera documento com campo D2_TIPO = 'C'

Tempo aproximado para leitura: 15 min

. DADOS GERAIS

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)

    (...)