Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Thalles Henrique

Membros
  • Content Count

    4
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Thalles Henrique

  • Rank
    Novato
  • Birthday 09/09/1995

Contact Methods

Profile Information

  • Sexo
    Masculino
  • Localização
    Nova Mutum

Recent Profile Visitors

294 profile views
  1. @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.
  2. @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.
  3. @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;
  4. 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.
×
×
  • Create New...