Erro ao escolher tipo de rodado MDFE

[reij]

Gente alguém sabe dizer porque ta acontecendo este erro

// TpcteTipoRodado = (trNaoAplicavel, trTruck, trToco, trCavaloMecanico, trVAN, trUtilitario, trOutros);
   // Para o MDF-e não utilizar o trNaoAplicavel.
      dm.PesqGeral.Close;
      dm.sqlPesqGeral.CommandText := 'SELECT * FROM VEICULOS WHERE CODVEIC = :PVU';
      dm.SqlPesqGeral.Params.ParamByName('PVU').AsInteger :=ManifCOD_VEICULO.AsInteger;
      dm.PesqGeral.Open;

 

   if dm.PesqGeral.FieldByName('TIPO_VEIC').AsString = 'K' then
   Begin
   rodo.veicTracao.tpRod := trTruck;
   End
   else
   if dm.PesqGeral.FieldByName('TIPO_VEIC').AsString = 'T' then
//   Begin
   //trTruck, trToco, trCavaloMecanico, trVAN, trUtilitario, trOutros
   rodo.veicTracao.tpRod := trToco;
  // End
  // else
   if dm.PesqGeral.FieldByName('TIPO_VEIC').AsString = 'C' then
  // Begin
   rodo.veicTracao.tpRod := trCavaloMecanico;
  // End
  // else
   if dm.PesqGeral.FieldByName('TIPO_VEIC').AsString = 'V' then
  // Begin
   rodo.veicTracao.tpRod := trVAN;
  // End
  // else
   if dm.PesqGeral.FieldByName('TIPO_VEIC').AsString = 'U' then
  // Begin
   rodo.veicTracao.tpRod := trUtilitario;
  // End
  // else
   if dm.PesqGeral.FieldByName('TIPO_VEIC').AsString = 'O' then
  // Begin
   rodo.veicTracao.tpRod := trOutros;
  // End;

 

o componente não consegue gravar estes valores de jeito nenhum joga sempre pra 00 e ai não existe tipo de rodado não aplicável pra mdfe alguém teria alguma idceia de como resolver isto

 

desde ja grato pela ajuda

[Juliomar Marchetti]

confuso e não entendi nada!

seja especifico e quando precisar colocar código favor anexar!

[reij]

ele simplesmente não recebe nenhum tipo de rodado e se colocar um so sem as estruturas condicionais funciona por falar nisso ele tem um typecast me ensina como usa-lo pq assim não vou precisar da estrutura condicional if..then..else

[reij]

ja resolvi muito obrigado atodos

[itamarluiz]

Olá pessoal,

Eu estou com um problema parecido com o desse tópico. A propriedade rodo.veicTracao.tpRod está gerando a informação aparentemente correta, mas ao tentar validar, o ACBrMDFe retorna erro:

Element '{http://www.portalfiscal.inf.br/mdfe}tpRod' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/mdfe}veicTracao'.

Meu código:

      if edtVeicTracao.Text <> EmptyStr then
      begin
        Veiculo.PegaDadosVeiculo(edtVeicTracao.Text);
        if Veiculo.Placa <> EmptyStr then
          with rodo.veicTracao do
          begin
            rodo.veicTracao.cInt := Veiculo.CodigoInterno;
            rodo.veicTracao.RENAVAM := Veiculo.Renavam;
            rodo.veicTracao.placa := Veiculo.Placa;
            rodo.veicTracao.tara := Veiculo.Tara;
            rodo.veicTracao.capKG := Veiculo.CapacidadeKG;
            rodo.veicTracao.capM3 := Veiculo.CapacidadeM3;
            rodo.veicTracao.tpRod := TpcteTipoRodado(Veiculo.Rodado); // aqui o problema
            //rodo.veicTracao.tpRod := trTruck; // já tentei fazer assim também
            rodo.veicTracao.tpCar := TpcteTipoCarroceria(Veiculo.Carroceria);
            rodo.veicTracao.UF := Veiculo.Estado;
          end;
      end;

Abaixo um trecho do XML gerado:

 <infModal versaoModal="1.00">
- <rodo>
  <RNTRC>11223344</RNTRC> 
- <veicTracao>
  <cInt>MTQ0001</cInt> 
  <placa>MTQ0001</placa> 
  <RENAVAM>012345678</RENAVAM> 
  <tara>1234</tara> 
  <capKG>123</capKG> 
  <capM3>123</capM3> 
  <tpRod>03</tpRod> 
  <tpCar>00</tpCar> 
  <UF>ES</UF> 
  </veicTracao>
  </rodo>
  </infModal>

Pela mensagem de erro, parece que o problema nem é com o conteúdo da propriedade, e sim a relação com a propriedade "pai".

Alguma ajuda?

 

Obrigado!

[NatanaB]

Olá pessoal!

Sobre o problema acima relatado pelo itamarluiz

Alguém tem a solução?

Desde já agradeço

[NatanaB]

Pessoal, descobri o que era...

a tag acima desta, do condutor, não estava sendo criada, o que é obrigatório, por isso dava o erro.