sisloja

Boa tarde Igor! Procedi na re-instalação do componente e o problema - aparentemente - sumiu. Os path's estão setados corretamente. De qualquer forma agradeço a atenção. vamos ver como se comporta para os próximos dias...

Boa noite! Estou iniciando um novo projeto e ao tentar compilar o 'demo' da NF-e do Projeto ACBR meu ambiente acusa o erro que está 'printado' na tela anexa. Alguém já passou por esse 'abençoado' erro ? Se sim, qual a solução proposta ? Existe algum .PAS corrigido ? Help!

Boa noite Régis! Obrigado pela ajuda! Foi de grande valia...

Boa noite! Estou tentando instalar o componente ACBR Boleto mas recebo erro conforme a tela anexo. Acredito que seja eu que esteja instalando de modo errado o componente. Já sincronizei os arquivos via Tortoise mas continuo recebendo esse erro do Delphi ( versão 2010 ). Agradeço se alguém puder opinar sobre o que estou fazendo errado.

Sei que o tópico foi praticamente resolvido mas gostaria de deixar minha contribuição; eu uso a rotina abaixo; em um Form coloque 1 Edit, 1 Button, 1 Label e 1 ACBrBarCode. No evento OnClick do botão o código abaixo: procedure TForm1.Button1Click(Sender: TObject); var Vvalor, Vinicial : string; v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,vcalc,varl,vres,vpar,vimp: Integer; begin Vvalor := Edit1.Text; Vinicial := Vvalor; varl := (Length(Vvalor)); if varl < 12 then begin ShowMessage('Número deve conter 12 dígitos'); Edit1.SetFocus; end else begin v1 := StrToInt(Copy(Vvalor,1,1)); v2 := StrToInt(Copy(Vvalor,2,1)); v3 := StrToInt(Copy(Vvalor,3,1)); v4 := StrToInt(Copy(Vvalor,4,1)); v5 := StrToInt(Copy(Vvalor,5,1)); v6 := StrToInt(Copy(Vvalor,6,1)); v7 := StrToInt(Copy(Vvalor,7,1)); v8 := StrToInt(Copy(Vvalor,8,1)); v9 := StrToInt(Copy(Vvalor,9,1)); v10 := StrToInt(Copy(Vvalor,10,1)); v11 := StrToInt(Copy(Vvalor,11,1)); v12 := StrToInt(Copy(Vvalor,12,1)); vimp := v1 + v3 + v5 + v7 + v9 + v11; vpar := (v2 + v4 + v6 + v8 + v10 + v12) * 3; vcalc := (vimp) + (vpar); vres := 100000000 - vcalc; Vvalor := IntToStr(vres); vres := StrToInt(Copy(Vvalor,8,1)); Label1.Caption := Vinicial + '-' + IntToStr(vres); ACBrBarCode1.Text := Vinicial + IntToStr(vres); end; end; O código-fonte completo é: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ACBrBarCode; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Button1: TButton; ACBrBarCode1: TACBrBarCode; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Vvalor, Vinicial : string; v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,vcalc,varl,vres,vpar,vimp: Integer; begin Vvalor := Edit1.Text; Vinicial := Vvalor; varl := (Length(Vvalor)); if varl < 12 then begin ShowMessage('Número deve conter 12 dígitos'); Edit1.SetFocus; end else begin v1 := StrToInt(Copy(Vvalor,1,1)); v2 := StrToInt(Copy(Vvalor,2,1)); v3 := StrToInt(Copy(Vvalor,3,1)); v4 := StrToInt(Copy(Vvalor,4,1)); v5 := StrToInt(Copy(Vvalor,5,1)); v6 := StrToInt(Copy(Vvalor,6,1)); v7 := StrToInt(Copy(Vvalor,7,1)); v8 := StrToInt(Copy(Vvalor,8,1)); v9 := StrToInt(Copy(Vvalor,9,1)); v10 := StrToInt(Copy(Vvalor,10,1)); v11 := StrToInt(Copy(Vvalor,11,1)); v12 := StrToInt(Copy(Vvalor,12,1)); vimp := v1 + v3 + v5 + v7 + v9 + v11; vpar := (v2 + v4 + v6 + v8 + v10 + v12) * 3; vcalc := (vimp) + (vpar); vres := 100000000 - vcalc; Vvalor := IntToStr(vres); vres := StrToInt(Copy(Vvalor,8,1)); Label1.Caption := Vinicial + '-' + IntToStr(vres); ACBrBarCode1.Text := Vinicial + IntToStr(vres); end; end; end. Espero ter ajudado em algo.