Content For Element '{Http://www.portalfiscal.inf.br/mdfe}Veictracao' Is Incomplete According To The Dtd/schema.

[podiuminformatica]

Boa tarde Senhores.

 

Quando vou Gerar e Enviar o MDFe está ocorrendo o seguinte erro.

 

Content for element '{http://www.portalfiscal.inf.br/mdfe}veicTracao' is incomplete according to the DTD/Schema.

 

Alguém já teve esse problema?

 

Como foi resolvido esta questão.

 

Grato.

 

Segue meu código.

   with DM.ACBrMDFe.Manifestos.Add.MDFe do

   begin

      //

      // Dados de Identificação do MDF-e

      //

      with Ide do

      begin

         cUF            := dm.tbConfiguracaoCODIGO_UF.AsInteger;

 

         // TpcnTipoAmbiente = (taProducao, taHomologacao);

         case DM.tbConfiguracaoAMBIENTE.Value of

            1:tpAmb     := taHomologacao;

            2:tpAmb     := taProducao;

         end;

 

         // TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria );

         case DM.tbMDFE_CorpoTIPOEMITENTE.Value of

            1:tpEmit    := teTransportadora;

            2:tpEmit    := teTranspCargaPropria;

         end;

         modelo         := dm.tbConfiguracaoMODELO.Text;

         serie          := dm.tbConfiguracaoSERIE.AsInteger;

         nMDF           := DM.tbMDFE_CorpoNUMEROMDFE.AsInteger;

         cMDF           := DM.tbMDFE_CorpoCODIGOMDFE.AsInteger;  // Código Aleatório

         cDV            := 0;

 

         // TMDFeModal = ( moRodoviario, moAereo, moAquaviario, moFerroviario );

         case DM.tbMDFE_CorpoMODAL.Value of

            1:modal     := moRodoviario;

            2:modal     := moAereo;

            3:modal     := moAquaviario;

            4:modal     := moFerroviario;

         end;

         dhEmi          := dm.tbMDFEDATA.AsDateTime;

 

         // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA);

         case DM.tbMDFE_CorpoTIPOEMISSAO.Value of

            1:tpEmis    := teNormal;

            2:tpEmis    := teContingencia;

            3:tpEmis    := teSCAN;

            4:tpEmis    := teDPEC;

            5:tpEmis    := teFSDA;

         end;

 

         // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA);

         case DM.tbMDFE_CorpoTIPOEMISSAO.Value of

            1:tpEmis    := teNormal;

            2:tpEmis    := teContingencia;

            3:tpEmis    := teSCAN;

            4:tpEmis    := teDPEC;

            5:tpEmis    := teFSDA;

         end;

 

         // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco);

         case DM.tbMDFE_CorpoPROCESSOEMISSAO.Value of

            1:procEmi   := peAplicativoContribuinte;

            2:procEmi   := peAvulsaFisco;

            3:procEmi   := peAvulsaContribuinte;

            4:procEmi   := peContribuinteAplicativoFisco;

         end;

         verProc        := DM.tbConfiguracaoVERSAO_PROCESSO.Value;

         UFIni          := DM.tbConfiguracaoUF.Value;

         UFFim          := DM.tbConfiguracaoUF_DESCARREGAMENTO.Value;

 

         // Carregamento.

         with Ide.infMunCarrega.Add do

         begin

            cMunCarrega := DM.tbConfiguracaoCODIGO_MUNICIPIO_CARREGAMENTO.Value;

            xMunCarrega := DM.tbConfiguracaoMUNICIPIO_CARREGAMENTO.Value;

         end;

 

         // Percurso.

         with Ide.infPercurso.Add do

         begin

            dm.tbUF_Percurso.First;

            while not dm.tbUF_Percurso.Eof do

            begin

               UFPer := dm.tbUF_PercursoUF.AsString;

               dm.tbUF_Percurso.Next;

            end;

         end;

      end;

      //

      // Dados do Emitente

      //

      with emit do

      begin

         CNPJ        := DM.iboFilialCNPJ.Value;

         IE          := DM.iboFilialIE.Value;

         xNome       := DM.iboFilialRAZAOSOCIAL.Value;

         xFant       := DM.iboFilialNOMEFANTASIA.Value;

 

         // Endereço do emitente.

         with enderEmit do

         begin

            xLgr     := DM.iboFilialENDERECO.Value;

            nro      := DM.iboFilialNUMEROENDERECO.Value;

            xCpl     := DM.iboFilialCOMPLEMENTO.Value;

            xBairro  := DM.iboFilialBAIRRO.Value;

            cMun     := DM.iboFilialCODIGOCIDADE_RECEITAFEDERAL.AsInteger;

            xMun     := DM.iboFilialCIDADE.Value;

            CEP      := DM.iboFilialCEP.AsInteger;

            UF       := DM.iboFilialUF.Value;

            fone     := DM.FilterChars(DM.iboFilialFONECOMERCIAL.AsString, ['0'..'9']);

            email    := DM.iboFilialEMAIL.Value;

         end;

      end;

 

      // Rodagem - Informação.

      with rodo do

      begin

         RNTRC          := DM.tbMDFE_VeiculoRNTRC.AsString;

         CIOT           := DM.tbMDFE_VeiculoCIOT.AsString;

 

         // Tração.

         with veicTracao do

         begin

            cInt        := DM.tbMDFE_VeiculoCODIGO_INTERNO_VEICULO.AsString;

            placa       := DM.tbMDFE_VeiculoPLACA.AsString;

            RENAVAM     := DM.tbMDFE_VeiculoRENAVAN.AsString;

            tara        := DM.tbMDFE_VeiculoTARA.AsInteger;

            capKG       := DM.tbMDFE_VeiculoCAPACIDADE.AsInteger;

            capM3       := DM.tbMDFE_VeiculoCAPACIDADE_METRO_CUBICO.AsInteger;

            UF          := dm.tbMDFE_VeiculoUF_VEICULO.AsString;

 

            // Condutor.

            with rodo.veicTracao.condutor.Add do

            begin

               xNome := DM.tbMDFE_CorpoCONDUTOR.AsString;

               CPF   := DM.tbMDFE_CorpoCPF_CONDUTOR.AsString;

            end;

 

            // Carroceria.

            case DM.tbMDFE_VeiculoTIPO_CARROCERIA.Value of

               1:tpCar := tcNaoAplicavel;

               2:tpCar := tcFechada;

               3:tpCar := tcGraneleira;

               4:tpCar := tcPortaContainer;

               5:tpCar := tcSider;

            end;

 

            // Rodado.

            case DM.tbMDFE_VeiculoTIPO_RODADO.Value of

               1:tpRod := trTruck;

               2:tpRod := trToco;

               3:tpRod := trCavaloMecanico;

               4:tpRod := trVAN;

               5:tpRod := trUtilitario;

               6:tpRod := trOutros;

            end;

         end;

      end;

 

      // Descarregamento.

      DM.tbMDFE_MunicipioDescarregamento.First;

      while not DM.tbMDFE_MunicipioDescarregamento.Eof do

      begin

         with infDoc do

         begin

            // Município de descarga.

            with infMunDescarga.Add do

            begin

               cMunDescarga := DM.tbMDFE_MunicipioDescarregamentoCODIGO_MUNICIPIO.Value;

               xMunDescarga := dm.tbMDFE_MunicipioDescarregamentoCIDADE.AsString;

 

               //-----------------------------------------------------------------------------------------------------

               // CTE.

               dm.tbMDFE_CTE.First;

               while not dm.tbMDFE_CTE.Eof do

               begin

                  with infCTe.Add do

                  begin

                     chCTe := dm.tbMDFE_CTECHAVE_CTE.AsString;

 

                     // Informações das Unidades de Transporte (Carreta/Reboque/Vagão)

                     with infUnidTransp.Add do

                     begin

                        //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros );

                        case DM.tbMDFE_CorpoUNIDADE_TRANSPORTE.Value of

                           1:tpUnidTransp := utRodoTracao;

                           2:tpUnidTransp := utRodoReboque;

                           3:tpUnidTransp := utNavio;

                           4:tpUnidTransp := utBalsa;

                           5:tpUnidTransp := utAeronave;

                           7:tpUnidTransp := utVagao;

                           8:tpUnidTransp := utOutros;

                        end;

                        idUnidTransp := 'CAMINHAO';

 

                        // Informações das Unidades de carga (Containeres/ULD/Outros)

                        with infUnidCarga.Add do

                        begin

                           // TpcnUnidCarga  = ( ucContainer, ucULD, ucPallet, ucOutros );

                           tpUnidCarga := ucOutros;

                           idUnidCarga := 'VOLUMES';

 

                           qtdRat := 1.0;

                        end;

                        qtdRat := 1.0;

                     end;

                  end; // fim do with

 

                  dm.tbMDFE_CTE.Next;

               end;

 

 

               //-----------------------------------------------------------------------------------------------------

               // NFE.

               dm.tbMDFE_NFE.First;

               while not dm.tbMDFE_NFE.Eof do

               begin

                  with infNFe.Add do

                  begin

                     chNFe := dm.tbMDFE_NFECHAVE_NFE.AsString;

 

                     // Informações das Unidades de Transporte (Carreta/Reboque/Vagão)

                     with infUnidTransp.Add do

                     begin

                        //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros );

                        case DM.tbMDFE_CorpoUNIDADE_TRANSPORTE.Value of

                           1:tpUnidTransp := utRodoTracao;

                           2:tpUnidTransp := utRodoReboque;

                           3:tpUnidTransp := utNavio;

                           4:tpUnidTransp := utBalsa;

                           5:tpUnidTransp := utAeronave;

                           7:tpUnidTransp := utVagao;

                           8:tpUnidTransp := utOutros;

                        end;

                        idUnidTransp := 'CAMINHAO';

 

                        // Informações das Unidades de carga (Containeres/ULD/Outros)

                        with infUnidCarga.Add do

                        begin

                           // TpcnUnidCarga  = ( ucContainer, ucULD, ucPallet, ucOutros );

                           tpUnidCarga := ucOutros;

                           idUnidCarga := 'VALUMES';

 

                           qtdRat := 1.0;

                        end;

 

                        qtdRat := 1.0;

                     end;

                  end; // fim do with

                  dm.tbMDFE_NFE.Next;

               end;

            end;

         end;

         DM.tbMDFE_MunicipioDescarregamento.Next;

      end;

 

      tot.qCTe := dm.tbMDFEQTDE_CTE.AsInteger;

      tot.qNF := dm.tbMDFEQTDE_NFE.AsInteger;

      tot.vCarga := dm.tbMDFEVALOR_TOTAL_MERCADORIA.AsCurrency;

      // UnidMed = (uM3,uKG, uTON, uUNIDADE, uLITROS);

      tot.cUnid  :=  uKG;

      tot.qCarga := dm.tbMDFEPESO_BRUTO_TRANSPORTADO.AsInteger;

 

      infAdic.infCpl     := DM.tbConfiguracaoINFORMACAO_COMPLEMENTAR.AsString;

      infAdic.infAdFisco := '';

   end;

 

[Italo Giurizzato Junior]

Boa tarde,

 

Por favor não post rotinas completas, anexe as mesmas, deixa o post mais curto.

 

Content for element '{http://www.portalfiscal.inf.br/mdfe}veicTracao' is incomplete according to the DTD/Schema.

Alguém já teve esse problema?

 

Sim, vários colegas tiveram esse problema e a solução foi configurar o componente com a versão 1.00a, utilizar os schemas disponibilizados junto com o programa exemplo.

 

Outra coisa note que a mensagem diz que o elemento veicTracao esta incompleto.

 

Você comparou a sua rotina com a estrutura do XML que consta na Nota Técnica 2013/004 versão 1.00a de Outubro/2013 ?

[Softcia sma]

Boa tarde, estou com o mesmo problema do colega acima.

 

'{Http://www.portalfiscal.inf.br/mdfe}Veictracao' Is Incomplete According To The Dtd/schema.

 

E nao estou conseguindo resolver. 

Estou usando o demo para compilar e na hora da validacao da o erro. 

Qual o schema a usar e qual a configuração do componente 

 

Att.

 

Mario Moreira

Santa Maria, RS

[email protected]

 

[Juliomar Marchetti]

Configurou a versão também?

[Softcia sma]

Boa Noite, Desculpe. Mas aonde configuro?

 

 

E qual dos esquemas do anexo anterior eu descompacto?

 

Att.

 

Mario Moreira

Santa Maria, RS

[email protected]

Editado 25 Setembro, 2014 por softcia

[Juliomar Marchetti]

Bom dia

 

veja:

pode ser usado uma das versões

 

ACBrMDFe1.Configuracoes.Geral.VersaoDF := ve100;

ACBrMDFe1.Configuracoes.Geral.VersaoDF := ve100a;