MDFe Erro UF VeicTracao

[Paulo Cezar Guimarães]

Boa tarde.

Fiz atualizacao do acbr, agora estou com esse erro e nao sei como corrigir.

Codigo Fonte :

               rodo.RNTRC              := veiculo.srntrc;
               rodo.veicTracao.RENAVAM := veiculo.sveiculorenavam;
               rodo.veicTracao.cInt    := inttostr(veiculo.pk_idveiculo);
               rodo.veicTracao.placa   := TiraSinais(veiculo.sveiculoplaca,20,false);
               rodo.veicTracao.tara    := strtoint(veiculo.sveiculotara);
               rodo.veicTracao.capKG   := Round(veiculo.nveiculocapacidadekg) ;
               rodo.veicTracao.capM3   := Round(veiculo.nveiculocapacidadem3);
               retorno   := busca.BuscaPesquisaEstrangeira('cidade', 'pk_codigoibge', inttostr(veiculo.fk_codigoibge) , 'fk_idestado') ;
               retorno   := busca.BuscaPesquisaEstrangeira('estado', 'pk_idestado', Retorno[1] , 'suf') ;
               rodo.veicTracao.UF      := retorno[1];
               ShowMessage(retorno[1]);
 

Fiz um showmessage para ver se esta retornando Ok , e mostra o UF gerado.

XML Gerado :

Nao esta gerando a tag (UF) do veicTracao.

 

-<veicTracao>

<cInt>9</cInt>

<placa>BDA1115</placa>

<RENAVAM>123456789</RENAVAM>

<tara>5000</tara>

<capKG>1000</capKG>

<capM3>999</capM3>

-<prop>

<CNPJ>12211592000170</CNPJ>

<RNTRC>12345678</RNTRC>

<xNome>xxxx xxxxx xxxxx xxxxx xxxxxxx</xNome>

<IE>9052572930</IE>

<UF>PR</UF>

<tpProp>0</tpProp>

</prop>

-<condutor>

<xNome>ARMANDO JOSE MAITAN</xNome>

<CPF>02461927987</CPF>

</condutor>

<tpRod>02</tpRod>

<tpCar>03</tpCar>

<UF/>

</veicTracao>

</

 

[Paulo Cezar Guimarães]

Descobri uma coisa, qd nao preencho o proprietario do veiculo da certo.

Entao o problema deve ser no componente.

Alguem pode ver isso ??

[Juliomar Marchetti]

Você mesmo pode olhar os fontes do ACBr estão disponíveis no svn!

[Paulo Cezar Guimarães]

Bom dia. Olhei os fontes, mas nao consegui identificar o erro. se alguem que conhece melhor os fontes puder ajudar agrade'co.

Obrigado.

 

[Thiago2016]

Bom dia!

@Paulo Cezar Guimarães.

O veículo de tração pertence a empresa? Caso não então vc deve informar CPF/CNPJ, RNTRC,Nome,IE,Tipo prop e o UF do proprietário do veículo.
 

 

[Paulo Cezar Guimarães]

Ai que esta o problema, quando informa essas informacoes, da o erro acima citado.

[BigWings]

16 horas atrás, Paulo Cezar Guimarães disse:

Descobri uma coisa, qd nao preencho o proprietario do veiculo da certo.

Entao o problema deve ser no componente.

Alguem pode ver isso ??

No código do ACBr a UF do veículo sempre é gerada, então provavelmente é algo no seu código.

Coloque um breakpoint logo antes de enviar o MDFe pra ver se o conteúdo da tag ACBrMDFe1.Manifestos.Items[0].MDFe.Rodo.veicTracao.UF está preenchido, provavelmente você está limpando o campo em algum momento.

[Paulo Cezar Guimarães]

  ShowMessage('Antes de Gerar '+FrmDataModule.ACBRMDFe.Manifestos.Items[0].MDFe.Rodo.veicTracao.UF );

PR
  FrmDataModule.ACBRMDFe.Manifestos.GerarMDFe;
  ShowMessage('Depois de Gerar '+FrmDataModule.ACBRMDFe.Manifestos.Items[0].MDFe.Rodo.veicTracao.UF );

PR
  FrmDataModule.ACBRMDFe.Manifestos.Items[0].GravarXML(FrmDataModule.ACBRMDFe.Manifestos.Items[0].NomeArq ,sPastaGeral);
  ShowMessage('Depois de Gravar '+FrmDataModule.ACBRMDFe.Manifestos.Items[0].MDFe.Rodo.veicTracao.UF );

  sChaveAcesso := Copy(FrmDataModule.ACBRMDFe.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);

PR
 

-ROTINA ENVIAR.

  FrmDataModule.ACBRMDFe.Manifestos.Clear;
  FrmDataModule.ACBRMDFe.Manifestos.LoadFromFile(sPastaGeral+'\'+sChaveAcesso+'-MDFe.xml');
  ShowMessage('Depois ler Antes de Enviar '+FrmDataModule.ACBRMDFe.Manifestos.Items[0].MDFe.Rodo.veicTracao.UF );

NAO APARECE O UF 

AQUI ESTA O PROBLEMA , COMO POSSO RESOLVER ISSO ??

[BigWings]

6 minutos atrás, Paulo Cezar Guimarães disse:

  FrmDataModule.ACBRMDFe.Manifestos.Items[0].GravarXML(FrmDataModule.ACBRMDFe.Manifestos.Items[0].NomeArq ,sPastaGeral);

Poste o XML gravado por este comando.

[Paulo Cezar Guimarães]

Descobri o Erro : 

Fonte : pmdfeMDFeR.pas (linha 232)

        if pos('<prop>', Leitor.Grupo) = 0 then
          MDFe.rodo.veicTracao.UF := Leitor.rCampo(tcStr, 'UF')
        else
          MDFe.rodo.veicTracao.UF := copy(Leitor.Grupo, (Pos('</tpCar>', Leitor.Grupo)+12), 2);

        if Leitor.rExtrai(4, 'prop') <> '' then
        begin
          MDFe.rodo.veicTracao.prop.CNPJCPF := Leitor.rCampoCNPJCPF;
          MDFe.rodo.veicTracao.prop.RNTRC   := Leitor.rCampo(tcStr, 'RNTRC');
          MDFe.rodo.veicTracao.prop.xNome   := Leitor.rCampo(tcStr, 'xNome');
          MDFe.rodo.veicTracao.prop.IE      := Leitor.rCampo(tcStr, 'IE');
          MDFe.rodo.veicTracao.prop.UF      := Leitor.rCampo(tcStr, 'UF');
          MDFe.rodo.veicTracao.prop.tpProp  := StrToTpProp(ok, Leitor.rCampo(tcStr, 'tpProp'));
        end;

********************** NOVO ************************** (Qd tinha o proprietario na hora de carregar os dados do XML ele nao carregava o UF principal.

************************************************************ incluir a linha abaixo e resolveu o problema.

        if pos('<prop>', Leitor.Grupo) <> 0 then
          MDFe.rodo.veicTracao.UF := Leitor.rCampo(tcStr, 'UF');
 

Agora esta dando esse erro abaixo :

<?xml version="1.0" encoding="UTF-8"?>

-<retConsReciMDFe versao="3.00" xmlns="http://www.portalfiscal.inf.br/mdfe">

<tpAmb>2</tpAmb>

<verAplic>RS20170502153154</verAplic>

<nRec>419000003122622</nRec>

<cStat>599</cStat>

<xMotivo>Rejeição: Não é permitida a presença de caracteres de edição no inicio/fim da mensagem ou entre as tags da mensagem</xMotivo>

<cUF>41</cUF>

</retConsReciMDFe>

41170405874566000166580010000000371000000126-mdfe.xml

Editado 17 Maio, 2017 por Paulo Cezar Guimarães

[BigWings]

1 hora atrás, Paulo Cezar Guimarães disse:

41170405874566000166580010000000371000000126-mdfe.xml

Muitos espaços em branco mesmo. Esse XML foi gerado apenas chamando o comando GravarXML?

[BigWings]

Como o problema são os espaços em branco no XML, continue no outro tópico, vou fechar este.