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

[walter faria]

Bom dia ,

 

Como posso resolver este tipo de erro ?

 

***tentei não informar o segundo  cMunDescarga e xMunDescarga so que da erro de não informar as tags

 

 

Em anexo o XML com erro

 

 

 

Obrigado

35150303061935000176580010000000011000000021-mdfe.xml

[windsoft]

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.

[walter faria]

Boa tarde, Você teria um XML nesta situação , para me passar ?

 

Obrigado

[windsoft]

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;
            

[walter faria]

Obrigado, vou atualizar o meu código e posto aqui

[walter faria]

Obrigado, deu certo agora !!!

[Dempsey]

Também estava com este problema... Código funcionou perfeito pra mim também... Obrigado windsoft

[FRANCISCO908]

Também tava com o mesmo problema... funcionou 100% obrigado...

[diogeneswinner]

este codigo serve tambem pra adicionar as notas dentro do mdfe?

[Italo Giurizzato Junior]

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;