Ir para conteúdo
  • Cadastre-se

dev botao

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


engs
  • Este tópico foi criado há 1967 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

  • 10 meses depois ...
  • Consultores

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)';

GIF_001_EXEMPLOS.gif.0432ef675984d187c819e1c614507c3c.gif

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

Obrigado

 

RAR_001_ACBr.rar

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Renato,

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

  • Curtir 1
  • Obrigado 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1967 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.