Ir para conteúdo
  • Cadastre-se

dev botao

Rejeição: Município De Descarregamento Duplicado No Mdf-E


walter faria
  • Este tópico foi criado há 2074 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Também passei por este problema.

Ocorre que você não deve informar o município de carregamento e de descarregamento mais de uma vez, ou seja, se existem 2 notas a serem carregadas em São Paulo, você deve informar o município de São Paulo apenas uma vez.

Gilson do Carmo
WindSoft Sistemas

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Não tenho mas segue abaixo o trecho de código onde adiciono as cidades pra você usar como exemplo:

            // Verifica se o municipio de carregamento já foi adicionado
            iIndex := -1;
            iCodCid := StrToIntDef(qryCTe.FieldByName('CMUNINI').AsString,0);
            for i := 0 to Ide.infMunCarrega.Count - 1 do
            begin
              if ( Ide.infMunCarrega.Items[i].cMunCarrega = iCodCid ) then
              begin
                iIndex := i;
                Break;
              end;
            end;

            // Se o município ainda não foi adicionado, adiciona
            if ( iIndex < 0 ) then
            begin
              with Ide.infMunCarrega.Add do
              begin
                cMunCarrega := iCodCid;
                xMunCarrega := qryCTe.FieldByName('XMUNINI').AsString;
              end;
            end;

            // Verifica se o municipio de descarregamento já foi adicionado
            iIndex := -1;
            iCodCid := StrToIntDef(qryCTe.FieldByName('CMUNFIM').AsString,0);
            for i := 0 to infDoc.infMunDescarga.Count - 1 do
            begin
              if ( infDoc.infMunDescarga.Items[i].cMunDescarga = iCodCid ) then
              begin
                iIndex := i;
                Break;
              end;
            end;

            // Se o município ainda não foi adicionado, adiciona
            if ( iIndex < 0 ) then
            begin
              with infDoc.infMunDescarga.Add do
              begin
                cMunDescarga := iCodCid;
                xMunDescarga := qryCTe.FieldByName('XMUNFIM').AsString;
                infCTe.Add.chCTe := qryCTe.FieldByName('CTE_CHAVE').AsString;
              end;
            end
            else
            begin
              // Se o municipio já foi adicionado, adiciona apenas a chave do cte
              infDoc.infMunDescarga.Items[iIndex].infCTe.Add.chCTe := qryCTe.FieldByName('CTE_CHAVE').AsString;
            end;
            

  • Curtir 1
  • Obrigado 3

Gilson do Carmo
WindSoft Sistemas

Link para o comentário
Compartilhar em outros sites

  • 5 meses depois ...
  • 2 anos depois...
  • Consultores

Bom dia Diógenes,

O código acima é para adicionar as chaves dos CT-e (transportadora), para uma empresa que vende o produto e realiza o transporte da própria mercadoria devemos adicionar as chaves das NF-e.

Neste caso em vez de infCTe devemos trocar por infNFe e em vez de chCTe devemos trocar por chNFe.

Não devemos esquecer de informar corretamente o valor de tpEmit, pois é ele que define se o emitente do MDF-e é uma transportadora ou não.

No código abaixo esta definindo que o emitente é uma transportadora.

    // TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria );
    Ide.tpEmit  := teTransportadora;
 

 

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2074 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.