DAMDFE - Impressão da unidade de medida Kg e Ton

[engs]

Olá pessoal.

Estou com problema na impressão do DAMDFE em relação à unidade de medida, pois mesmo escolhendo TON o DAMDFE imprime "PESO TOTAL (Kg)". Acho que deveria ser "PESO TOTAL (Ton)".

Fiz uma modificação do código do arquivo ACBrMDFeDAMDFeRLRetrato.pas, para alterar a unidade de medida na impressão, porém o Delphi não estar "enxergando" o código que coloquei. O projeto compila normalmente, mas é como se eu não tivesse feito nenhuma alteração no código, simplesmente ignora o novo trecho do código. Segue a modificação do trecho abaixo:

procedure TfrlDAMDFeRLRetrato.rlb_1_DadosManifestoBeforePrint(Sender: TObject; var PrintIt: Boolean);
...
begin
...

  if FMDFe.tot.cUnid = uTON then
    rlLabel12.Caption := 'PESO TOTAL (Ton)'
  else
    rlLabel12.Caption := 'PESO TOTAL (Kg)';

end;

Alguém sabe o porque do Delphi não considerar a modificação feita?

Será necessário recompilar o ABCr? Se Sim, como posso fazer isso?

Estou utilizando o Delphi Tokyo.

[BigWings]

21 minutos atrás, engs disse:

Será necessário recompilar o ABCr? Se Sim, como posso fazer isso?

Sim, usando o ACBrInstall_Trunk2.exe.

[engs]

Em 27/12/2017 at 10:00, BigWings disse:

Sim, usando o ACBrInstall_Trunk2.exe.

Ok, obrigado. Funcionou aqui.

[Renato Rubinho]

Boa tarde @Italo Jurisato Junior / @Juliomar Marchetti,

Configurei o ACBrMDFeDAMDFeRLRetrato.pas atualizado ( RAR_001_ACBr.rar ) para preencher o título do peso de acordo com a unidade do XML, conforme destacado abaixo:

procedure TfrlDAMDFeRLRetrato.rlb_1_DadosManifestoBeforePrint(Sender: TObject; var PrintIt: Boolean);
.
.
.
  if FMDFe.tot.cUnid = uTON then
    rlLabel12.Caption := 'PESO TOTAL (Ton)'
  else
    rlLabel12.Caption := 'PESO TOTAL (Kg)';

Por favor, verifiquem se a implementação pode ser adicionada ao projeto.

Obrigado

 

RAR_001_ACBr.rar

[Italo Giurizzato Junior]

Bom dia Renato,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.