Atualização não tem mais ACBrDFeQRCodeBar.pas

[Fabrício G. Araújo]

Olá pessoal,

Fiquei um bom tempo sem atualizar todo o Acbr, e possuo um Danfe próprio, só que quando atualizei, percebi que não existe mais a ACBrDFeQRCodeBar.pas, que ficava em (Acbr\Fontes\ACBrDFe), então dava uses nessa unit para gerar o código de barras da NF-e no Danfe da seguinte forma:

uses ACBrDFeQRCodeBar;

procedure TFormRelDANFE.SetBarCodeImage(ACode: String; QRImage: TQRImage);
var
  b : TBarCode128c;
begin
  b := TBarCode128c.Create;
  b.Code := ACode ;
  b.PaintCodeToCanvas( ACode, QRImage.Canvas, QRImage.ClientRect );
  b.free;
end;

// Exemplos de chamadas no BeforePrint do QuickReport

SetBarCodeImage(strChave, qriBarCode);
ou
SetBarCodeImage(strChaveContingencia, qriBarCodeContingencia);

Então vem a pergunta, por qual unit posso substituir o código acima para continuar funcionando meu Danfe?

Quem puder ajudar, agradeço muito.

[Doni Delphi]

Boa tarde

se você precisar uma copia deste arquivo eu tenho

 

[Fabrício G. Araújo]

Bom dia @Doni Delphi,

Valeu por tentar ajudar, mas também tenho a cópia do fonte, inclusive já copiei ele e coloquei no dpr do meu projeto para voltar a compilar sem fazer mais nada. Só achei que teria algo com os fontes atuais que poderia substituir a rotina para que não precisasse fazer isso. Mas enfim, está funcionando e então vou deixar dessa forma.

Mais uma vez obrigado, um ótimo dia.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.