URGENTE - Atualizar impressão MDFe - RNTRC não está saindo quando veículo é proprio do Emitente do MDFe

[sergiom]

Boa noite, fiz esta alteração no DAMDFE - FORTES.

Solicito atualizar o TRUNK e também implementar no DAMDFE - FASTREPORT.

Quando o veículo é próprio, ou seja da Transportadora emitente do MDFe, o RNTRC não está sendo impresso.

Como o veículo é da transportadora, os dados do proprietário e RNTRC não são obrigatórios e não são adicionados.

A versão 2.0 usava FMDFe.rodo.RNTRC, mas agora é FMDFe.rodo.infANTT.RNTRC.

A implementação que fez permitiu imprimir.  Talvez a melhor forma seja checar a versão do XML, se for ve300 usar FMDFe.rodo.infANTT.RNTRC.

 

Função alterada - FORTES.   Necessário replicar no FASTREPORT.

procedure TfrlDAMDFeRLRetrato.rlb_2_RodoBeforePrint(Sender: TObject; var PrintIt: Boolean);
var
  i: integer;
begin
  inherited;
  rlb_2_Rodo.Enabled := (FMDFe.Ide.modal = moRodoviario);

  rlmPlaca.Lines.Clear;
  rlmPlaca.Lines.Add(FormatarPlaca(FMDFe.rodo.veicTracao.placa));

  rlmRNTRC.Lines.Clear;
  if FMDFe.rodo.veicTracao.prop.RNTRC <> '' then
    rlmRNTRC.Lines.Add(FMDFe.rodo.veicTracao.prop.RNTRC)
  else if FMDFe.rodo.RNTRC = '' then
    rlmRNTRC.Lines.Add(FMDFe.rodo.infANTT.RNTRC)
  else
    rlmRNTRC.Lines.Add(FMDFe.rodo.RNTRC);

  for i := 0 to FMDFe.rodo.veicReboque.Count - 1 do
  begin
    rlmPlaca.Lines.Add(FormatarPlaca(FMDFe.rodo.veicReboque.Items.placa));
    if FMDFe.rodo.veicReboque.Items.prop.RNTRC <> '' then
      rlmRNTRC.Lines.Add(FMDFe.rodo.veicReboque.Items.prop.RNTRC)
    else if FMDFe.rodo.RNTRC = '' then
      rlmRNTRC.Lines.Add(FMDFe.rodo.infANTT.RNTRC)
    else
      rlmRNTRC.Lines.Add(FMDFe.rodo.RNTRC);
  end;
 

Atenciosamente

Sergio

 

 

[Italo Giurizzato Junior]

Bom dia Sérgio,

Favor anexar as Units que você alterou para que possamos analisar, caso esteja tudo OK, enviaremos para o repositório.

[sergiom]

Italo

bom dia

Em anexo a ACBrMDFeDAMDFeRLRetrato.pas, alterado apenas a informação em vermelho abaixo.

 

procedure TfrlDAMDFeRLRetrato.rlb_2_RodoBeforePrint(Sender: TObject; var PrintIt: Boolean);
var
  i: integer;
begin
  inherited;
  rlb_2_Rodo.Enabled := (FMDFe.Ide.modal = moRodoviario);

  rlmPlaca.Lines.Clear;
  rlmPlaca.Lines.Add(FormatarPlaca(FMDFe.rodo.veicTracao.placa));

  rlmRNTRC.Lines.Clear;
  if FMDFe.rodo.veicTracao.prop.RNTRC <> '' then
    rlmRNTRC.Lines.Add(FMDFe.rodo.veicTracao.prop.RNTRC)
  else if FMDFe.rodo.RNTRC = '' then
    rlmRNTRC.Lines.Add(FMDFe.rodo.infANTT.RNTRC)
  else
    rlmRNTRC.Lines.Add(FMDFe.rodo.RNTRC);

  for i := 0 to FMDFe.rodo.veicReboque.Count - 1 do
  begin
    rlmPlaca.Lines.Add(FormatarPlaca(FMDFe.rodo.veicReboque.Items.placa));
    if FMDFe.rodo.veicReboque.Items.prop.RNTRC <> '' then
      rlmRNTRC.Lines.Add(FMDFe.rodo.veicReboque.Items.prop.RNTRC)
    else if FMDFe.rodo.RNTRC = '' then
      rlmRNTRC.Lines.Add(FMDFe.rodo.infANTT.RNTRC)
    else
      rlmRNTRC.Lines.Add(FMDFe.rodo.RNTRC);
  end;
 

Atenciosamente

Sérgio

ACBrMDFeDAMDFeRLRetrato.pas

[sergiom]

No FastReport

alterei agora também.  Somente em vermelho.

Talvez a melhor forma seria checar a versão do MDFe e não pelo campo FMDFe.rodo.RNTRC  que é o  RNTRC na versão 1.0.

 

procedure TACBrMDFeDAMDFEFR.CarregaModalRodoviario;
var
  i: integer;
begin
  with cdsModalRodo, FMDFe.rodo do
  begin
    Append;
    FieldByName('RNTRC').AsString := RNTRC;
    FieldByName('CIOT').AsString  := CIOT;
    if veicTracao.placa <> '' then
    begin
      FieldByName('placa').AsString     := FormatarPlaca(veicTracao.placa);
      FieldByName('RENAVAM').AsString   := veicTracao.RENAVAM;
      FieldByName('RNTRCProp').AsString := veicTracao.prop.RNTRC;

      for i := 0 to veicTracao.condutor.Count - 1 do
      begin
        // Alteração proposta por Maciel Goettms (27/02/2014) Concatenação dos condutores já adicionados.
        FieldByName('CPF').AsString   := FieldByName('CPF').AsString + FormatarCPF(veicTracao.condutor.Items.CPF) + #13#10;
        FieldByName('xNome').AsString := FieldByName('xNome').AsString + veicTracao.condutor.Items.xNome + #13#10;
      end;
    end;

    for i := 0 to veicReboque.Count - 1 do
    begin
      FieldByName('placa').AsString     := FieldByName('placa').AsString + #13#10 + FormatarPlaca(FMDFe.rodo.veicReboque.Items.placa);
      FieldByName('RENAVAM').AsString   := FieldByName('RENAVAM').AsString + #13#10 + veicReboque.Items.RENAVAM;
      if FMDFe.rodo.RNTRC = ''
        FieldByName('RNTRCProp').AsString := FieldByName('RNTRCProp').AsString + #13#10 + IfThen(FMDFe.rodo.veicReboque.Items.prop.RNTRC <> '', FMDFe.rodo.veicReboque.Items.prop.RNTRC, FMDFe.rodo.infANTT.RNTRC);
      else
        FieldByName('RNTRCProp').AsString := FieldByName('RNTRCProp').AsString + #13#10 + IfThen(FMDFe.rodo.veicReboque.Items.prop.RNTRC <> '', FMDFe.rodo.veicReboque.Items.prop.RNTRC, FMDFe.rodo.RNTRC);
    end;

 

Atenciosamente

Sérgio

 

 

ACBrMDFeDAMDFEFR.pas

[sergiom]

Você pode me informar como checo a versão do MDFe dentro da UNIT de impressão?

Atenciosamente

Sergio

 

[Gabriel Bonzanini]

Boa noite pessoal.

@sergiom, acredito que seja mais interessante testar a versão do MDF-e no momento em que o campo do dataset criado em tempo de execução é alimentado, e preenchê-lo conforme a tag correspondente:

 

* Versão 3.0: rodo.infANTT.RNTRC

* Versões anteriores: rodo.RNTRC

 

Esta alteração resolveu a questão pra mim. Segue em anexo a unit, caso queiram utilizar.

 

Abraço.

ACBrMDFeDAMDFEFR.pas

[sergiom]

Boa noite, 

Gabriel, foi o que sugeri, só que eu não tinha achado como checar a versão.

A melhor solução realmente é trabalhar com a versão.

Importante atualizar isso logo, pois isto pode gerar multa para a transportadora.

Abraços

 

Sérgio

 

[Italo Giurizzato Junior]

Bom dia a todos,

Como não trabalho com o Fast Report, vou deixar para outros moderadores analisarem.

Desde já muito obrigado pela colaboração.

[Juliomar Marchetti]

Em 10/11/2017 at 20:06, Gabriel Bonzanini disse:

Boa noite pessoal.

@sergiom, acredito que seja mais interessante testar a versão do MDF-e no momento em que o campo do dataset criado em tempo de execução é alimentado, e preenchê-lo conforme a tag correspondente:

 

* Versão 3.0: rodo.infANTT.RNTRC

* Versões anteriores: rodo.RNTRC

 

Esta alteração resolveu a questão pra mim. Segue em anexo a unit, caso queiram utilizar.

 

Abraço.

ACBrMDFeDAMDFEFR.pas

Boa noite

subi sua sugestão para a correção achei ela correta.

Obrigado.

[sergiom]

Bom dia,

quando teremos as versões Fortes e FastReport com esta implementação, para eu deixar meus arquivos com as versões do TRUNK2?

Atenciosamente

Sérgio

 

 

[Italo Giurizzato Junior]

Boa tarde Sérgio,

Você atualizou os fontes?

Pela postagem do Juliomar no caso do Fast já foi enviando para o repositório.

[Gabriel Bonzanini]

Em 14/10/2017 at 22:48, Juliomar Marchetti disse:

Boa noite

subi sua sugestão para a correção achei ela correta.

Obrigado.

Fico feliz em poder ajudar. É o mínimo que posso fazer, o projeto de vocês é fantástico e economiza muito tempo de programação.

Abraço!

[Rigotti]

Bom dia, alterei também para o Fortes se alguém puder subir ficaria agradecido. 

Foi a mesma alteração, para pegar a informação do RNTRC das tags conforme a versão do MDFe.

ACBrMDFeDAMDFeRLRetrato.pas

[Italo Giurizzato Junior]

Boa tarde Rigotti,

Muito obrigado pela colaboração, já esta no repositório.