Erro rntrc cte

[EFV]

Ola Pessoal estou enfrentando problemas para vincular a rntrc do proprietário junto ao cte,  como podem observar por mais que esteja passando para o parâmetro Prop.RNTRC := qryAuxiliar.fieldbyname('rntrc').AsString; do proprietário o mesmo esta pegando o rntrc do prestador. 

Segue em anexo trecho do codigo no qual estou passando o parametro

 while not qryAuxiliar.Eof do
    begin
              {$IFDEF PL_200}
      with infCTeNorm.rodo.veic.Add do
               {$ELSE}
        with rodo.veic.Add do
              {$ENDIF}
        begin
          cInt := qryAuxiliar.fieldbyname('COD_INT_VEICULO').AsString;
          RENAVAM := qryAuxiliar.fieldbyname('RENAVAN').AsString;
          placa := qryAuxiliar.fieldbyname('PLACA').AsString;
          tara := StrToInt(qryAuxiliar.fieldbyname('TARA_KG').AsString);
          capKG := StrToInt(qryAuxiliar.fieldbyname('CAPACIDADE_KG').AsString);
          capM3 := StrToInt(qryAuxiliar.fieldbyname('CAPACIDADE_M3').AsString);
          UF := qryAuxiliar.fieldbyname('uf').AsString;

                     {TpcteTipoVeiculo = (tvTracao, tvReboque)}
          if (qryAuxiliar.fieldbyname('T_PROPRIETARIO').AsString = 'PRÓPRIO') then
            tpProp := tpProprio;
          if (qryAuxiliar.fieldbyname('T_PROPRIETARIO').AsString = 'TERCEIRO') then
            tpProp := tpTerceiro;

                       {TpcteTipoRodado = (trNaoAplicavel, trTruck, trToco, trCavaloMecanico, trVAN, trUtilitario, trOutros)}

          if (qryAuxiliar.fieldbyname('T_VEICULO').AsString = 'TRAÇÃO') then
            tpVeic := tvTracao;
          if (qryAuxiliar.fieldbyname('T_VEICULO').AsString = 'REBOQUE') then
            tpVeic := tvReboque;
          if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'NÃO APLICÁVEL') then
            tpRod := trNaoAplicavel;
          if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'TRUCK') then
            tpRod := trTruck;
          if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'TOCO') then
            tpRod := trToco;
          if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'CAVALO MECÂNICO') then
            tpRod := trCavaloMecanico;
          if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'VAN') then
            tpRod := trVAN;
          if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'UTILITÁRIO') then
            tpRod := trUtilitario;
          if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'OUTROS') then
            tpRod := trOutros;
                       {TpcteTipoCarroceria = (tcNaoAplicavel, tcAberta, tcFechada, tcGraneleira, tcPortaContainer, tcSider)}

          if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'NÃO APLICÁVEL') then
            tpCar := tcNaoAplicavel;
          if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'ABERTA') then
            tpCar := tcAberta;
          if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'FECHADA BAÚ') then
            tpCar := tcFechada;
          if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'GRANELERA') then
            tpCar := tcGraneleira;
          if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'PORTA CONTÊINER') then
            tpCar := tcPortaContainer;
          if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'SIDER') then
            tpCar := tcSider;

          if (qryAuxiliar.fieldbyname('VEIC_PERTENCE').AsInteger = 1) then
            begin
              Prop.CNPJCPF := qryAuxiliar.fieldbyname('cnpj').AsString;
              Prop.RNTRC := qryAuxiliar.fieldbyname('rntrc').AsString;
              Prop.xNome := qryAuxiliar.fieldbyname('razao').AsString;
              Prop.IE := qryAuxiliar.fieldbyname('ie').AsString;
              Prop.UF := qryAuxiliar.fieldbyname('uf_proprietario').AsString;
            end;
          qryAuxiliar.Next;
        end;
    end;

 

Desde já Agradeço a colaboração de todos.

 

[Juliomar Marchetti]

anexe o xml gerado

[EFV]

Ola Juliomar Segue em anexo o xml

42160711575458000195570030000108011000108013-cte.xml

[Italo Giurizzato Junior]

Bom dia,

Analisando o seu XML notei que se tratado de um CT-e Modal Rodoviário - Lotação.

Neste caso devemos informar os dados do veículo e do motorista.

Notei que você informou 2 veículos, em ambos você diz que são de tração, como assim?

Um tem que ser de tração e o outro reboque.

Outra coisa você diz que o veículo é próprio, neste caso ele é de propriedade do emitente do CT-e, ou seja da transportadora.

Neste caso não devemos informar o proprietário do veiculo, pelo simples fato ele ser do emitente do CT-e.

No DACTE quando se tratar do modal rodoviário devemos imprimir o RNTRC da Empresa (transportadora).

Se for lotação devemos imprimir os dados do Veiculo,tais como Tipo, placa, UF e RNTRC.

O RNTRC referente ao veiculo será o da transportadora a não ser que o veiculo seja de terceiros, ai devemos informar os dados do terceiro (proprietário do veiculo) e um desses dados é o RNTRC.

A impressão do DACTE conforme a figura que você anexou esta correto, porque você informou no XML que o veiculo é próprio, ou seja, da transportadora.

O teu XML que esta errado, não condiz com a realidade, primeiro por informar 2 veículos de tração, segundo por informar o proprietário do veiculo, sendo que o mesmo é da transportadora.

E o CNPJ do proprietário do veiculo informado no XML se refere ao remetente da carga, como assim?

 

[EFV]

Obrigado Italo Realmente fiz uma grande confusão ao interpretar a questão de lotação, já estou providenciando os ajustes.