Erro Invalid Property Value(FastReport)

[Thalles Henrique]

Bom dia, sempre gosto de pesquisar bem antes de publicar qualquer dúvida, já procurei em vários fóruns e nada até o momento então peço que me auxiliem por favor...

[Descrição do erro]

Application Error

Error reading frxReport.OnProgressStart: Invalid property value.

[Suposição]

Acredito que o problema deve estar no meu componente ACBrBoletoFCFR ou ACBrBoleto pois são únicos que iniciam com meu Data Módulo, não permitindo que o sistema funcione...

se eu remover esse DM do auto create consigo iniciar normalmente..

[Meu erro]

Fiquei um certo período sem atualizar o ACBr, alguns meses, e agora após atualizar o SVN e remover e recompilar o Trunk2 novamente  me deparei com esse problema, creio que outros estão por vir  rsrs.

[BigWings]

17 minutos atrás, Thalles Henrique disse:

Error reading frxReport.OnProgressStart: Invalid property value. 

Provavelmente você está usando uma versão do FastReport incompatível, onde a assinatura desse evento é diferente da versão do FR usada no componente.

A versão do FR usada no ACBr é a 5.x.

Veja a declaração do evento na unit ACBrBoletoFCFR.pas:

    procedure frxReportProgressStart(Sender: TfrxReport;
      ProgressType: TfrxProgressType; Progress: Integer);

 

[Thalles Henrique]

@BigWings uso a versão do 5.3.16 Enterprise do FastReport, qual seria a recomendada?

segue abaixo ..

procedure TdmACBrBoletoFCFR.frxReportProgressStart(Sender: TfrxReport;
  ProgressType: TfrxProgressType; Progress: Integer);
begin
  ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString + '\' + cdsBanco.FieldByName('Numero').AsString + '.bmp', 'Logo_1');
  ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString + '\' + cdsBanco.FieldByName('Numero').AsString + '.bmp', 'Logo_2');
  ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString + '\' + cdsBanco.FieldByName('Numero').AsString + '.bmp', 'Logo_3');
end;

[BigWings]

7 minutos atrás, Thalles Henrique disse:

 uso a versão do 5.3.16 Enterprise do FastReport, qual seria a recomendada? 

Essa deveria servir...

7 minutos atrás, Thalles Henrique disse:

procedure TdmACBrBoletoFCFR.frxReportProgressStart(Sender: TfrxReport;
  ProgressType: TfrxProgressType; Progress: Integer);

Coloque um componente frxReport em um formulário qualquer e inicie o evento OnProgressStart e veja se a lista de parâmetros é a mesma da acima.

[Thalles Henrique]

@BigWings obrigado pela ajuda, após verificar novamente os códigos removi a referência OnProgressStart e modifiquei o fonte do ACBrBoletoFCFR..

segue abaixo meu procedimento, que sirva para outros, obrigado novamente e grande abraço !

[Solução]

Criei um novo projeto VCL Delphi coloquei um FrxReport + ACBrBoleto + ACBrBoletoFCFR dentro dele executei a aplicação e o próprio delphi me solicitou a remoção da referência OnProgressStart.

Após isso me deu outro erro que não hávia encontrado a função frxJPEGExport, fiz a alteração do fonte ACBrBoletoFCFR conforme alterção do Juliomar disponível no GitHub, problema resolvido.

 

[Código ACBrBoletoFCFR + FrxJPEGExport] 

{******************************************************************************}
	{ Projeto: Componentes ACBr }
	{ Biblioteca multiplataforma de componentes Delphi para interação com equipa- }
	{ mentos de Automação Comercial utilizados no Brasil }
	{ }
	{ Direitos Autorais Reservados (c) 2009 http://acbr.sf.net }
	{ }
	{ Colaboradores nesse arquivo: Isaque Pinheiro }
	{ }
	{ Você pode obter a última versão desse arquivo na pagina do Projeto ACBr }
	{ Componentes localizado em http://www.sourceforge.net/projects/acbr }
	{ }
	{ }
	{ Esta biblioteca é software livre; você pode redistribuí-la e/ou modificá-la }
	{ sob os termos da Licença Pública Geral Menor do GNU conforme publicada pela }
	{ Free Software Foundation; tanto a versão 2.1 da Licença, ou (a seu critério) }
	{ qualquer versão posterior. }
	{ }
	{ Esta biblioteca é distribuída na expectativa de que seja útil, porém, SEM }
	{ NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU }
	{ ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral Menor}
	{ do GNU para mais detalhes. (Arquivo LICENÇA.TXT ou LICENSE.TXT) }
	{ }
	{ Você deve ter recebido uma cópia da Licença Pública Geral Menor do GNU junto}
	{ com esta biblioteca; se não, escreva para a Free Software Foundation, Inc., }
	{ no endereço 59 Temple Street, Suite 330, Boston, MA 02111-1307 USA. }
	{ Você também pode obter uma copia da licença em: }
	{ http://www.opensource.org/licenses/lgpl-license.php }
	{ }
	{ Daniel Simões de Almeida - [email protected] - www.djsystem.com.br }
	{ Praça Anita Costa, 34 - Tatuí - SP - 18270-410 }
	{ }
	{******************************************************************************}
	{******************************************************************************
	|* Historico
	|
	|* 0.0.15 - 16/06/2016: Paulo Monteiro
	|* [*] Adicionado a propriedade IncorporarBackgroundPdf e IncorporarFontesPdf
	|* 0.0.14 - 19/04/2016: Paulo Monteiro
	|* [*] Adicionado a propriedade modo thread para quem utiliza o recurso de geração
	|* de boleto em aplicações multi thread datasnap, isapi, etc.
	|* 0.0.13b - 07/05/2014: Paulo Monteiro
	|* [*] Adicionado algumas propriedades na exportação para pdf seguindo o padrão
	|* dos outros componentes e setando o frxPDFExport.Background := false;
	|* isso faz diminuir 70% do tamanho do pdf
	|* 31/07/2011: Isaque Pinheiro
	|* - Inicio do desenvolvimento
	|*
	******************************************************************************}
	{$I ACBr.inc}
	unit ACBrBoletoFCFR;
	interface
	uses
	SysUtils, Classes, DB, DBClient, ACBrBase, ACBrBoleto, StrUtils,
	frxClass, frxDBSet, frxBarcode, frxExportHTML, frxExportPDF, frxExportImage;
	const
	CACBrBoletoFCFR_Versao = '0.0.15';
	type
	EACBrBoletoFCFR = class(Exception);
	TdmACBrBoletoFCFR = class;
	{ TACBrBoletoFCFR }
	{$IFDEF RTL230_UP}
	[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
	{$ENDIF RTL230_UP}
	TACBrBoletoFCFR = class(TACBrBoletoFCClass)
	private
	MensagemPadrao: TStringList;
	{ Private declarations }
	fFastReportFile: String;
	FImpressora: String;
	fIndice: Integer;
	FdmBoleto: TdmACBrBoletoFCFR;
	FModoThread: Boolean;
	FIncorporarFontesPdf: Boolean;
	FIncorporarBackgroundPdf: Boolean;
	function PrepareBoletos: Boolean;
	function PreparaRelatorio: Boolean;
	function GetACBrTitulo: TACBrTitulo;
	public
	{ Public declarations }
	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
	procedure Imprimir; override;
	function CarregaFastReportFile: Boolean;
	function PreparedReport: TfrxReport;
	property Titulo: TACBrTitulo read GetACBrTitulo;
	published
	property FastReportFile: String read fFastReportFile write fFastReportFile;
	property Impressora: String read FImpressora write FImpressora;
	property ModoThread: Boolean read FModoThread write FModoThread;
	property dmBoleto: TdmACBrBoletoFCFR read FdmBoleto write FdmBoleto;
	property IncorporarBackgroundPdf: Boolean read FIncorporarBackgroundPdf write FIncorporarBackgroundPdf;
	property IncorporarFontesPdf: Boolean read FIncorporarFontesPdf write FIncorporarFontesPdf;
	end;
	{ TdmACbrBoletoFCFR }
	TdmACBrBoletoFCFR = class(TDataModule)
	frxPDFExport: TfrxPDFExport;
	cdsTitulo: TClientDataSet;
	frxTitulo: TfrxDBDataset;
	frxBarCodeObject: TfrxBarCodeObject;
	frxReport: TfrxReport;
	frxHTMLExport: TfrxHTMLExport;
	cdsCedente: TClientDataSet;
	frxCedente: TfrxDBDataset;
	cdsBanco: TClientDataSet;
	frxBanco: TfrxDBDataset;
	frxJPEGExport: TfrxJPEGExport;
	procedure DataModuleCreate(Sender: TObject);
	procedure frxReportProgressStart(Sender: TfrxReport;
	ProgressType: TfrxProgressType; Progress: Integer);
	private
	{ Private declarations }
	procedure SetDataSetsToFrxReport;
	procedure ImprimeLogoMarca(sCaminhoFoto, sfrxPicture: string);
	public
	{ Public declarations }
	end;
	implementation
	{$R *.dfm}
	uses ACBrUtil, ACBrBancoBanestes;
	{ TdmACBrBoletoFCFR }
	procedure TdmACBrBoletoFCFR.frxReportProgressStart(Sender: TfrxReport;
	ProgressType: TfrxProgressType; Progress: Integer);
	begin
	ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString + '\' + cdsBanco.FieldByName('Numero').AsString + '.bmp', 'Logo_1');
	ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString + '\' + cdsBanco.FieldByName('Numero').AsString + '.bmp', 'Logo_2');
	ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString + '\' + cdsBanco.FieldByName('Numero').AsString + '.bmp', 'Logo_3');
	end;
	function TACBrBoletoFCFR.GetACBrTitulo: TACBrTitulo;
	begin
	Result := fACBrBoleto.ListadeBoletos[fIndice];
	end;
	procedure TdmACBrBoletoFCFR.ImprimeLogoMarca(sCaminhoFoto, sfrxPicture: string);
	var
	strAux: String; // Variável String auxiliar
	frxPict: TfrxPictureView; // Componente para inserção de imagem na impressão.
	begin
	// INSERE imagem do disco no relatorio
	frxPict := TfrxPictureView(Self.frxReport.FindObject(sfrxPicture));
	if Assigned(frxPict) then
	Begin
	strAux := sCaminhoFoto;
	if FileExists(strAux) then
	frxPict.Picture.LoadFromFile(strAux)
	ELSE
	frxPict.Picture := nil;
	End;
	end;
	procedure TdmACBrBoletoFCFR.SetDataSetsToFrxReport;
	begin
	frxReport.EnabledDataSets.Clear;
	frxReport.EnabledDataSets.Add(frxBanco);
	frxReport.EnabledDataSets.Add(frxTitulo);
	frxReport.EnabledDataSets.Add(frxCedente);
	end;
	procedure TdmACBrBoletoFCFR.DataModuleCreate(Sender: TObject);
	begin
	frxReport.PreviewOptions.Buttons := [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbNavigator, pbExportQuick];
	frxReport.EngineOptions.UseGlobalDataSetList := False;
	// Banco
	with cdsBanco do
	begin
	Close;
	FieldDefs.Clear;
	FieldDefs.Add('Numero', ftString, 20);
	FieldDefs.Add('Digito', ftString, 1);
	FieldDefs.Add('Nome', ftString, 100);
	FieldDefs.Add('DirLogo', ftString, 254);
	FieldDefs.Add('OrientacoesBanco', ftString, 254);
	CreateDataSet;
	end;
	// Cedente
	with cdsCedente do
	begin
	Close;
	FieldDefs.Clear;
	FieldDefs.Add('Nome', ftString, 100);
	FieldDefs.Add('CodigoCedente', ftString, 20);
	FieldDefs.Add('CodigoTransmissao', ftString, 20);
	FieldDefs.Add('Agencia', ftString, 5);
	FieldDefs.Add('AgenciaDigito', ftString, 2);
	FieldDefs.Add('Conta', ftString, 20);
	FieldDefs.Add('ContaDigito', ftString, 2);
	FieldDefs.Add('Modalidade', ftString, 20);
	FieldDefs.Add('Convenio', ftString, 20);
	FieldDefs.Add('ResponEmissao', ftInteger);
	FieldDefs.Add('CNPJCPF', ftString, 18);
	FieldDefs.Add('TipoInscricao', ftInteger);
	FieldDefs.Add('Logradouro', ftString, 100);
	FieldDefs.Add('NumeroRes', ftString, 10);
	FieldDefs.Add('Complemento', ftString, 100);
	FieldDefs.Add('Bairro', ftString, 100);
	FieldDefs.Add('Cidade', ftString, 100);
	FieldDefs.Add('UF', ftString, 2);
	FieldDefs.Add('CEP', ftString, 8);
	FieldDefs.Add('Telefone', ftString, 10);
	CreateDataSet;
	end;
	// Titulo
	with cdsTitulo do
	begin
	Close;
	FieldDefs.Clear;
	FieldDefs.Add('NossoNum', ftString, 100);
	FieldDefs.Add('CodCedente', ftString, 100);
	FieldDefs.Add('CodBarras', ftString, 100);
	FieldDefs.Add('LinhaDigitavel', ftString, 100);
	FieldDefs.Add('TipoDoc', ftString, 10);
	FieldDefs.Add('Vencimento', ftDateTime);
	FieldDefs.Add('DataDocumento', ftDateTime);
	FieldDefs.Add('NumeroDocumento', ftString, 20);
	FieldDefs.Add('TotalParcelas', ftInteger);
	FieldDefs.Add('Parcela', ftInteger);
	FieldDefs.Add('EspecieDoc', ftString, 10);
	FieldDefs.Add('EspecieMod', ftString, 10);
	FieldDefs.Add('Aceite', ftInteger);
	FieldDefs.Add('DataProcessamento', ftDateTime);
	FieldDefs.Add('NossoNumero', ftString, 20);
	FieldDefs.Add('Carteira', ftString, 20);
	FieldDefs.Add('ValorDocumento', ftBCD, 18);
	FieldDefs.Add('LocalPagamento', ftString, 100);
	FieldDefs.Add('ValorMoraJuros', ftBCD, 18);
	FieldDefs.Add('ValorDesconto', ftBCD, 18);
	FieldDefs.Add('ValorAbatimento', ftBCD, 18);
	FieldDefs.Add('DataMoraJuros', ftDateTime);
	FieldDefs.Add('DataDesconto', ftDateTime);
	FieldDefs.Add('DataAbatimento', ftDateTime);
	FieldDefs.Add('DataProtesto', ftDateTime);
	FieldDefs.Add('PercentualMulta', ftFloat);
	FieldDefs.Add('Mensagem', ftString, 300);
	FieldDefs.Add('OcorrenciaOriginal', ftInteger);
	FieldDefs.Add('Instrucao1', ftString, 300);
	FieldDefs.Add('Instrucao2', ftString, 300);
	FieldDefs.Add('TextoLivre', ftMemo, 2000);
	FieldDefs.Add('Asbace', ftString, 40);
	// Sacado
	FieldDefs.Add('Sacado_NomeSacado', ftString, 100);
	FieldDefs.Add('Sacado_CNPJCPF', ftString, 18);
	FieldDefs.Add('Sacado_Logradouro', ftString, 100);
	FieldDefs.Add('Sacado_Complemento', ftString, 100);
	FieldDefs.Add('Sacado_Numero', ftString, 10);
	FieldDefs.Add('Sacado_Bairro', ftString, 100);
	FieldDefs.Add('Sacado_Cidade', ftString, 100);
	FieldDefs.Add('Sacado_UF', ftString, 2);
	FieldDefs.Add('Sacado_CEP', ftString, 8);
	FieldDefs.Add('Sacado_Avalista', ftString, 100);
	FieldDefs.Add('Sacado_Avalista_CNPJCPF', ftString, 18);
	FieldDefs.Add('Sacado_Fone', ftString, 100);
	CreateDataSet;
	end;
	end;
	{ TACBrBoletoFCFR }
	constructor TACBrBoletoFCFR.Create(AOwner: TComponent);
	begin
	inherited Create(AOwner);
	fpAbout := 'ACBRBoletoFCFR ver: ' + CACBrBoletoFCFR_Versao;
	fFastReportFile := '';
	FImpressora := '';
	fIndice := 0;
	FModoThread := False;
	FIncorporarBackgroundPdf := False;
	FIncorporarFontesPdf := False;
	FdmBoleto := TdmACBrBoletoFCFR.Create(Self);
	MensagemPadrao := TStringList.Create;
	end;
	destructor TACBrBoletoFCFR.Destroy;
	begin
	MensagemPadrao.Free;
	FdmBoleto.Free;
	inherited;
	end;
	function TACBrBoletoFCFR.PreparedReport: TfrxReport;
	begin
	ACBrBoleto.ChecarDadosObrigatorios;
	inherited Imprimir; // Verifica se a lista de boletos está vazia
	with FdmBoleto do
	begin
	cdsBanco.EmptyDataSet;
	cdsCedente.EmptyDataSet;
	cdsTitulo.EmptyDataSet;
	if PreparaRelatorio then
	Result := frxReport
	else
	Result := nil;
	end;
	end;
	procedure TACBrBoletoFCFR.Imprimir;
	begin
	inherited Imprimir; // Verifica se a lista de boletos está vazia
	with FdmBoleto do
	begin
	cdsBanco.EmptyDataSet;
	cdsCedente.EmptyDataSet;
	cdsTitulo.EmptyDataSet;
	if PreparaRelatorio then
	begin
	frxReport.PrintOptions.ShowDialog := (MostrarSetup) and (not FModoThread);
	if Length(Impressora) > 0 then
	frxReport.PrintOptions.Printer := Impressora;
	case Filtro of
	fiNenhum:
	begin
	if (MostrarPreview) and (not FModoThread) then
	frxReport.ShowReport(False)
	else
	frxReport.Print;
	end;
	fiPDF:
	begin
	if FModoThread then
	begin
	frxPDFExport.ShowDialog := False;
	frxPDFExport.ShowProgress := False;
	end
	else
	begin
	frxPDFExport.ShowDialog := MostrarSetup;
	frxPDFExport.ShowProgress := MostrarProgresso;
	end;
	frxPDFExport.FileName := NomeArquivo;
	frxPDFExport.Author := SoftwareHouse;
	frxPDFExport.Creator := SoftwareHouse;
	frxPDFExport.Producer := SoftwareHouse;
	frxPDFExport.Title := 'Boleto';
	frxPDFExport.Subject := frxPDFExport.Title;
	frxPDFExport.Keywords := frxPDFExport.Title;
	frxPDFExport.Background := IncorporarBackgroundPdf;//False diminui 70% do tamanho do pdf
	frxPDFExport.EmbeddedFonts := IncorporarFontesPdf;
	frxReport.Export(FdmBoleto.frxPDFExport);
	if frxPDFExport.FileName <> NomeArquivo then
	NomeArquivo := frxPDFExport.FileName;
	end;
	fiHTML:
	begin
	frxHTMLExport.FileName := NomeArquivo;
	frxHTMLExport.ShowDialog := MostrarSetup;
	frxHTMLExport.ShowProgress := MostrarSetup;
	frxReport.Export(FdmBoleto.frxHTMLExport);
	if frxHTMLExport.FileName <> NomeArquivo then
	NomeArquivo := frxHTMLExport.FileName;
	end;
	fiJPG:
	begin
	frxJPEGExport.FileName := NomeArquivo;
	frxJPEGExport.ShowDialog := False;
	frxJPEGExport.ShowProgress := True;
	frxJPEGExport.Monochrome := True;
	frxJPEGExport.SeparateFiles := True;
	frxJPEGExport.JPEGQuality := 200;
	frxJPEGExport.Resolution := 160;
	frxReport.Export(FdmBoleto.frxJPEGExport);
	if frxJPEGExport.FileName <> NomeArquivo then
	NomeArquivo := frxJPEGExport.FileName;
	end;
	else
	exit;
	end;
	end;
	end;
	end;
	function TACBrBoletoFCFR.CarregaFastReportFile: Boolean;
	var
	BoletoStreamFR3: TStringStream;
	begin
	Result := False;
	if Trim(fFastReportFile) <> '' then
	begin
	if Pos('.FR3',UpperCase(fFastReportFile)) = 0 then
	begin
	BoletoStreamFR3:=TStringStream.Create(fFastReportFile);
	FdmBoleto.frxReport.FileName := '';
	FdmBoleto.frxReport.LoadFromStream(BoletoStreamFR3);
	BoletoStreamFR3.Free;
	end
	else
	begin
	if FileExists(fFastReportFile) then
	FdmBoleto.frxReport.LoadFromFile(fFastReportFile)
	else
	raise EACBrBoletoFCFR.CreateFmt('Caminho do arquivo de impressão do boleto "%s" inválido.', [fFastReportFile]);
	Result := True;
	end;
	end
	else
	raise EACBrBoletoFCFR.Create('Caminho ou o arquivo de impressão do boleto não assinalado.');
	end;
	function TACBrBoletoFCFR.PreparaRelatorio: Boolean;
	begin
	Result := False;
	with FdmBoleto do
	begin
	SetDataSetsToFrxReport;
	if FModoThread then
	begin
	//*****************
	//* Em modo thread não pode ficar carregando o arquivo a cada execução
	//* pois começa a gerar exception e memory leak
	//* Caso tenha mudança de arquivo pode ser chamando o CarregaFastReportFile que está public
	//*****************
	if Trim(frxReport.FileName) = '' then
	begin
	CarregaFastReportFile;
	frxReport.PrintOptions.ShowDialog := False;
	frxReport.ShowProgress := False;
	frxReport.EngineOptions.SilentMode := True;
	frxReport.EngineOptions.EnableThreadSafe := True;
	frxReport.EngineOptions.DestroyForms := False;
	frxReport.PreviewOptions.AllowEdit := False;
	end;
	end
	else
	begin
	frxReport.PrintOptions.ShowDialog := MostrarSetup;
	frxReport.ShowProgress := MostrarProgresso;
	frxReport.EngineOptions.SilentMode := False;
	frxReport.EngineOptions.EnableThreadSafe := False;
	frxReport.EngineOptions.DestroyForms := True;
	frxReport.PreviewOptions.AllowEdit := True;
	CarregaFastReportFile;
	end;
	if PrepareBoletos then
	begin
	Result := FdmBoleto.frxReport.PrepareReport;
	end;
	end;
	end;
	function TACBrBoletoFCFR.PrepareBoletos: Boolean;
	var
	iFor: Integer;
	sTipoDoc: String;
	// Titulos
	Field_NossNum: TField;
	Field_CodCendente: TField;
	Field_CodBarras: TField;
	Field_LinhaDigitaval: TField;
	Field_TipoDoc: TField;
	Field_Vencimento: TField;
	Field_DataDocumento: TField;
	Field_NumeroDocumento: TField;
	Field_TotalParcelas: TField;
	Field_Parcela: TField;
	Field_EspecieMod: TField;
	Field_EspecieDoc: TField;
	Field_Aceite: TField;
	Field_DataProcessamento: TField;
	Field_NossoNumero: TField;
	Field_Carteira: TField;
	Field_ValorDocumento: TField;
	Field_LocalPagamento: TField;
	Field_ValorMoraJuros: TField;
	Field_ValorDesconto: TField;
	Field_ValorAbatimento: TField;
	Field_DataMoraJuros: TField;
	Field_DataDesconto: TField;
	Field_DataABatimento: TField;
	Field_DataProtesto: TField;
	Field_PercentualMulta: TField;
	Field_Mensagem: TField;
	Field_OcorrenciaOriginal: TField;
	Field_Instrucao1: TField;
	Field_Instrucao2: TField;
	Field_TextoLivre: TField;
	Field_Asbace: TField;
	// Sacado
	Field_Sacado_NomeSacado: TField;
	Field_Sacado_CNPJCPF: TField;
	Field_Sacado_Logradouro: TField;
	Field_Sacado_Complemento: TField;
	Field_Sacado_Numero: TField;
	Field_Sacado_Bairro: TField;
	Field_Sacado_Cidade: TField;
	Field_Sacado_UF: TField;
	Field_Sacado_CEP: TField;
	Field_Sacado_Avalista: TField;
	Field_Sacado_Avalista_CNPJCPF : TField;
	Field_Sacado_Fone: TField;
	begin
	with ACBrBoleto do
	begin
	// Banco
	with FdmBoleto.cdsBanco do
	begin
	Append;
	FieldByName('Numero').AsString := FormatFloat('000', Banco.Numero);
	FieldByName('Digito').AsString := IfThen(Banco.Digito >= 10, 'X', IntToStrZero(Banco.Digito, 1));
	FieldByName('Nome').AsString := Banco.Nome;
	FieldByName('DirLogo').AsString := DirLogo;
	FieldByName('OrientacoesBanco').AsString := Banco.OrientacoesBanco.Text;
	Post;
	end;
	// Cedente
	with FdmBoleto.cdsCedente do
	begin
	Append;
	FieldByName('Nome').AsString := Cedente.Nome;
	FieldByName('CodigoCedente').AsString := Banco.MontarCampoCodigoCedente(Titulo); // Cedente.CodigoCedente;
	FieldByName('CodigoTransmissao').AsString := Cedente.CodigoTransmissao;
	FieldByName('Agencia').AsString := Cedente.Agencia;
	FieldByName('AgenciaDigito').AsString := Cedente.AgenciaDigito;
	FieldByName('Conta').AsString := Cedente.Conta;
	FieldByName('ContaDigito').AsString := Cedente.ContaDigito;
	FieldByName('Modalidade').AsString := Cedente.Modalidade;
	FieldByName('Convenio').AsString := Cedente.Convenio;
	FieldByName('ResponEmissao').AsInteger := Integer(Cedente.ResponEmissao);
	FieldByName('CNPJCPF').AsString := Cedente.CNPJCPF;
	FieldByName('TipoInscricao').AsInteger := Integer(Cedente.TipoInscricao);
	FieldByName('Logradouro').AsString := Cedente.Logradouro;
	FieldByName('NumeroRes').AsString := Cedente.NumeroRes;
	FieldByName('Complemento').AsString := Cedente.Complemento;
	FieldByName('Bairro').AsString := Cedente.Bairro;
	FieldByName('Cidade').AsString := Cedente.Cidade;
	FieldByName('UF').AsString := Cedente.UF;
	FieldByName('CEP').AsString := Cedente.CEP;
	FieldByName('Telefone').AsString := Cedente.Telefone;
	Post;
	end;
	// Titulos
	with FdmBoleto.cdsTitulo do
	begin
	Field_NossNum := FieldByName('NossoNum');
	Field_CodCendente := FieldByName('CodCedente');
	Field_CodBarras := FieldByName('CodBarras');
	Field_LinhaDigitaval := FieldByName('LinhaDigitavel');
	Field_TipoDoc := FieldByName('TipoDoc');
	Field_Vencimento := FieldByName('Vencimento');
	Field_DataDocumento := FieldByName('DataDocumento');
	Field_NumeroDocumento := FieldByName('NumeroDocumento');
	Field_TotalParcelas := FieldByName('TotalParcelas');
	Field_Parcela := FieldByName('Parcela');
	Field_EspecieMod := FieldByName('EspecieMod');
	Field_EspecieDoc := FieldByName('EspecieDoc');
	Field_Aceite := FieldByName('Aceite');
	Field_DataProcessamento := FieldByName('DataProcessamento');
	Field_NossoNumero := FieldByName('NossoNumero');
	Field_Carteira := FieldByName('Carteira');
	Field_ValorDocumento := FieldByName('ValorDocumento');
	Field_LocalPagamento := FieldByName('LocalPagamento');
	Field_ValorMoraJuros := FieldByName('ValorMoraJuros');
	Field_ValorDesconto := FieldByName('ValorDesconto');
	Field_ValorAbatimento := FieldByName('ValorAbatimento');
	Field_DataMoraJuros := FieldByName('DataMoraJuros');
	Field_DataDesconto := FieldByName('DataDesconto');
	Field_DataABatimento := FieldByName('DataAbatimento');
	Field_DataProtesto := FieldByName('DataProtesto');
	Field_PercentualMulta := FieldByName('PercentualMulta');
	Field_Mensagem := FieldByName('Mensagem');
	Field_OcorrenciaOriginal := FieldByName('OcorrenciaOriginal');
	Field_Instrucao1 := FieldByName('Instrucao1');
	Field_Instrucao2 := FieldByName('Instrucao2');
	Field_TextoLivre := FieldByName('TextoLivre');
	Field_Asbace := FieldByName('Asbace');
	// Sacado
	Field_Sacado_NomeSacado := FieldByName('Sacado_NomeSacado');
	Field_Sacado_CNPJCPF := FieldByName('Sacado_CNPJCPF');
	Field_Sacado_Logradouro := FieldByName('Sacado_Logradouro');
	Field_Sacado_Complemento := FieldByName('Sacado_Complemento');
	Field_Sacado_Numero := FieldByName('Sacado_Numero');
	Field_Sacado_Bairro := FieldByName('Sacado_Bairro');
	Field_Sacado_Cidade := FieldByName('Sacado_Cidade');
	Field_Sacado_UF := FieldByName('Sacado_UF');
	Field_Sacado_CEP := FieldByName('Sacado_CEP');
	Field_Sacado_Avalista := FieldByName('Sacado_Avalista');
	Field_Sacado_Avalista_CNPJCPF := FieldByName('Sacado_Avalista_CNPJCPF');
	Field_Sacado_Fone := FieldByName('Sacado_Fone');
	end;
	for iFor := 0 to ListadeBoletos.Count - 1 do
	begin
	case ACBrBoleto.Cedente.TipoInscricao of
	pFisica:
	sTipoDoc := 'CPF: ';
	pJuridica:
	sTipoDoc := 'CNPJ: ';
	else
	sTipoDoc := 'DOC.: ';
	end;
	// Monta mensagens de multa e juros
	MensagemPadrao.Clear;
	MensagemPadrao.Text := ListadeBoletos[iFor].Mensagem.Text;
	AdicionarMensagensPadroes(ListadeBoletos[iFor], MensagemPadrao);
	with FdmBoleto.cdsTitulo do
	begin
	Append;
	Field_NossNum.AsString := Banco.MontarCampoNossoNumero(ListadeBoletos[iFor]);
	Field_CodCendente.AsString := Banco.MontarCampoCodigoCedente(ListadeBoletos[iFor]);
	Field_CodBarras.AsString := Banco.MontarCodigoBarras(ListadeBoletos[iFor]);
	Field_LinhaDigitaval.AsString := Banco.MontarLinhaDigitavel(Field_CodBarras.AsString, ListadeBoletos[iFor]);
	Field_TipoDoc.AsString := sTipoDoc;
	Field_Vencimento.AsDateTime := ListadeBoletos[iFor].Vencimento;
	Field_DataDocumento.AsDateTime := ListadeBoletos[iFor].DataDocumento;
	Field_NumeroDocumento.AsString := ListadeBoletos[iFor].NumeroDocumento;
	Field_TotalParcelas.AsInteger := ListadeBoletos[iFor].TotalParcelas;
	Field_Parcela.AsInteger := ListadeBoletos[iFor].Parcela;
	Field_EspecieMod.AsString := ListadeBoletos[iFor].EspecieMod;
	Field_EspecieDoc.AsString := ListadeBoletos[iFor].EspecieDoc;
	Field_Aceite.AsInteger := Integer(ListadeBoletos[iFor].Aceite);
	Field_DataProcessamento.AsDateTime := ListadeBoletos[iFor].DataProcessamento;
	Field_NossoNumero.AsString := ListadeBoletos[iFor].NossoNumero;
	Field_Carteira.AsString := Banco.MontarCampoCarteira(ListadeBoletos[iFor]);
	Field_ValorDocumento.AsCurrency := ListadeBoletos[iFor].ValorDocumento;
	Field_LocalPagamento.AsString := ListadeBoletos[iFor].LocalPagamento;
	Field_ValorMoraJuros.AsCurrency := ListadeBoletos[iFor].ValorMoraJuros;
	Field_ValorDesconto.AsCurrency := ListadeBoletos[iFor].ValorDesconto;
	Field_ValorAbatimento.AsCurrency := ListadeBoletos[iFor].ValorAbatimento;
	Field_DataMoraJuros.AsDateTime := ListadeBoletos[iFor].DataMoraJuros;
	Field_DataDesconto.AsDateTime := ListadeBoletos[iFor].DataDesconto;
	Field_DataABatimento.AsDateTime := ListadeBoletos[iFor].DataAbatimento;
	Field_DataProtesto.AsDateTime := ListadeBoletos[iFor].DataProtesto;
	Field_PercentualMulta.AsFloat := ListadeBoletos[iFor].PercentualMulta;
	Field_Mensagem.AsString := MensagemPadrao.Text;
	Field_OcorrenciaOriginal.AsInteger := Integer(ListadeBoletos[iFor].OcorrenciaOriginal);
	Field_Instrucao1.AsString := ListadeBoletos[iFor].Instrucao1;
	Field_Instrucao2.AsString := ListadeBoletos[iFor].Instrucao2;
	Field_TextoLivre.AsString := ListadeBoletos[iFor].TextoLivre;
	if ACBrBoleto.Banco.Numero = 21 then
	Field_Asbace.AsString := TACBrBancoBanestes(Banco).CalcularCampoASBACE(ListadeBoletos[iFor]);
	// Sacado
	Field_Sacado_NomeSacado.AsString := ListadeBoletos[iFor].Sacado.NomeSacado;
	Field_Sacado_CNPJCPF.AsString := ListadeBoletos[iFor].Sacado.CNPJCPF;
	Field_Sacado_Logradouro.AsString := ListadeBoletos[iFor].Sacado.Logradouro;
	Field_Sacado_Complemento.AsString := ListadeBoletos[iFor].Sacado.Complemento;
	Field_Sacado_Numero.AsString := ListadeBoletos[iFor].Sacado.Numero;
	Field_Sacado_Bairro.AsString := ListadeBoletos[iFor].Sacado.Bairro;
	Field_Sacado_Cidade.AsString := ListadeBoletos[iFor].Sacado.Cidade;
	Field_Sacado_UF.AsString := ListadeBoletos[iFor].Sacado.UF;
	Field_Sacado_CEP.AsString := ListadeBoletos[iFor].Sacado.CEP;
	Field_Sacado_Avalista.AsString := ListadeBoletos[iFor].Sacado.Avalista;
	Field_Sacado_Avalista_CNPJCPF.asString := ListadeBoletos[iFor].Sacado.SacadoAvalista.CNPJCPF;
	Field_Sacado_Fone.AsString := ListadeBoletos[iFor].Sacado.Fone;
	Post;
	end;
	end;
	end;
	Result := True;
	end;
	end.

 

 

 

 

 

Editado 17 Agosto, 2018 por Thalles Henrique

[BigWings]

11 minutos atrás, Thalles Henrique disse:

[Solução]

Criei um novo projeto VCL Delphi coloquei um FrxReport + ACBrBoleto + ACBrBoletoFCFR dentro dele executei a aplicação e o próprio delphi me solicitou a remoção da referência OnProgressStart. 

Após isso me deu outro erro que não hávia encontrado a função frxJPEGExport, fiz a alteração do fonte ACBrBoletoFCFR conforme alterção do Juliomar disponível no GitHub, problema resolvido. 

Obrigado pelo retorno.

Quero lhe pedir para não colar trechos grandes de código na mensagem, use a opção de anexar arquivos.

Não compreendi que alteração você fez nos fontes, esse código está praticamente idêntico ao do repositório.

A propósito, o repositório do ACBr está no sourceforge:

svn://svn.code.sf.net/p/acbr/code/trunk2

Provavelmente o que você baixou do github é de um mirrror não oficial.

[Thalles Henrique]

@BigWings então, foi atualizado minha pasta ACBr com o repositório oficial do trunk2 nesse mesmo endereço do SVN e não foi feita a alteração automática pra min aqui...

a alteração foi feita no meu frxClass, obrigado pelas recomendações vou me atentar nas próximas.

Obrigado.

 

Editado 17 Agosto, 2018 por Thalles Henrique

[BigWings]

14 minutos atrás, Thalles Henrique disse:

 então, foi atualizado minha pasta ACBr com o repositório oficial do trunk2 nesse mesmo endereço do SVN e não foi feita a alteração automática pra min aqui... 

Provavelmente um problema com o cliente svn (Tortoise?). Experimente baixar novamente em uma nova pasta.

15 minutos atrás, Thalles Henrique disse:

outra pequena dúvida, após atualização o meu ACBrNFe não possui mas a propriedade ObterNomeArquivo, saberia me dizer qual comando agora para salvar o caminho + nome do arquivo no meu banco? 

Favor seguir as regras do fórum, para novo assunto abra novo tópico.