Nfe Não Entram No Xml

[rrodrigoffernandes]

Olá amigos, estou fazendo um manifesto com NFe CTe, estou adicionando todos os CTes na chave   with infCTe.Add do e as NFes na chave with infNFe.Add porém estou com problemas, antes de assinar no XML quando imprimo o MDFe ele mostra todas as chaves dos conhecimentos e das notas fiscais, porém após efetuar a assinatura e visualizar o XML, apenas os CTEs estão lá dentro, mas NFEs sumiram, alguém sabe o que pode estar acontecendo??

 

 

[rrodrigoffernandes]

Esse é o código que estou usando para adicionar as CTes e NFes

    //..informações do descarregamento
    DM_Manifesto.CDSMFDE_DESC.First;
    while not DM_Manifesto.CDSMFDE_DESC.Eof do
    begin

      with infDoc.infMunDescarga.Add do
      begin
        cMunDescarga := DM_Manifesto.CDSMFDE_DESCMCIDADEIBGE.AsInteger;
        xMunDescarga := DM_Manifesto.CDSMFDE_DESCMCIDADE.AsString;

        //..aqui lança CTE
        DM_Manifesto.CdsMFDE_DESC_CTE.First;
        while not DM_Manifesto.CdsMFDE_DESC_CTE.Eof do
        begin
          vTotCTe:= vTotCTe + 1;
          with infCTe.Add do
          begin
            chCTe := DM_Manifesto.CdsMFDE_DESC_CTEMCHAVE.AsString;
            // Informações das Unidades de Transporte (Carreta/Reboque/Vagão)

            DM_Manifesto.CdsMFDE_DESC_CTE_LACRE.First;
            while not DM_Manifesto.CdsMFDE_DESC_CTE_LACRE.Eof do
            begin

              with infUnidTransp.Add do
              begin
                //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros );
                if DM_Manifesto.CdsMFDE_DESC_CTE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Tração' then
                  tpUnidTransp := utRodoTracao
                else if DM_Manifesto.CdsMFDE_DESC_CTE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Reboque' then
                  tpUnidTransp := utRodoReboque
                else if DM_Manifesto.CdsMFDE_DESC_CTE_LACREMTIPOTRANSPORTE.AsString = 'Outros' then
                  tpUnidTransp := utOutros
                else
                  tpUnidTransp := utOutros;

                idUnidTransp := DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString;//'Caminhao';
                with lacUnidTransp.Add do
                begin
                  nLacre := DM_Manifesto.CdsMFDE_DESC_CTE_LACREMLACRE.AsString;
                end;
                // Informações das Unidades de carga (Containeres/ULD/Outros)
                with infUnidCarga.Add do
                begin
                  // TpcnUnidCarga  = ( ucContainer, ucULD, ucPallet, ucOutros );
                  tpUnidCarga := ucOutros;
                  idUnidCarga:= DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString; //'Caixas';
                  with lacUnidCarga.Add do
                  begin
                    nLacre := '0';
                  end;
                  qtdRat := 0;
                end;
                qtdRat := 0;
              end;
              DM_Manifesto.CdsMFDE_DESC_CTE_LACRE.Next;
            end;

          end; // fim do with
          DM_Manifesto.CdsMFDE_DESC_CTE.Next;
        end;


        //..aqui lança NFE
        DM_Manifesto.CdsMFDE_DESC_NFE.First;
        while not DM_Manifesto.CdsMFDE_DESC_NFE.Eof do
        begin
          vTotNFe:= vTotNFe + 1;
          with infNFe.Add do
          begin
            chNFe    := DM_Manifesto.CdsMFDE_DESC_NFEMCHAVE.AsString;
            // Informações das Unidades de Transporte (Carreta/Reboque/Vagão)

            DM_Manifesto.CdsMFDE_DESC_NFE_LACRE.First;
            while not DM_Manifesto.CdsMFDE_DESC_NFE_LACRE.Eof do
            begin
              with infUnidTransp.Add do
              begin
                //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros );
                if DM_Manifesto.CdsMFDE_DESC_NFE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Tração' then
                  tpUnidTransp := utRodoTracao
                else if DM_Manifesto.CdsMFDE_DESC_NFE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Reboque' then
                  tpUnidTransp := utRodoReboque
                else if DM_Manifesto.CdsMFDE_DESC_NFE_LACREMTIPOTRANSPORTE.AsString = 'Outros' then
                  tpUnidTransp := utOutros
                else
                  tpUnidTransp := utOutros;

                idUnidTransp := DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString; //caminhao
                with lacUnidTransp.Add do
                begin
                  nLacre := DM_Manifesto.CdsMFDE_DESC_NFE_LACREMLACRE.AsString;
                end;

                // Informações das Unidades de carga (Containeres/ULD/Outros)
                with infUnidCarga.Add do
                begin
                  // TpcnUnidCarga  = ( ucContainer, ucULD, ucPallet, ucOutros );
                  tpUnidCarga := ucOutros;
                  idUnidCarga:= DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString; //'Caixas';
                  with lacUnidCarga.Add do
                  begin
                    nLacre := '0';
                  end;
                  qtdRat := 0;
                end;

                qtdRat := 0;
              end;
              DM_Manifesto.CdsMFDE_DESC_NFE_LACRE.Next;
            end;
          end; // fim do with
          DM_Manifesto.CdsMFDE_DESC_NFE.Next;
        end;


      end;
      DM_Manifesto.CDSMFDE_DESC.Next;
    end;

[Wislei de Brito Fernandes]

Bom dia rrodrigoffernandes,

 

Conforme a  Nota Técnica 2013/001, página 2, item 3, não é permitido inserir mais de um tipo de documento no MDF-e.

 

Para Prestadores de Serviço de Transporte (tpEmit = 1) só poderá ser informado CT-e e para Não prestador de Serviço de Transporte (tpEmit = 2) somente NF-e.

 

Veja o seguinte post: 

 

Atenciosamente

[rrodrigoffernandes]

Ok, obrigado Wislei de Brito Fernandes, O problema era esse mesmo, deu certinho quando mudei o tpEmit.