Gerar boleto pela primeira vez

[Alberto Antonio]

Pretendo iniciar o boleto da Caixa CNAB 240 para a Contribuição Sindical.

Será que poderiam disponibilizar algum código que gere o boleto e a remessa?

Como ponto de partida.

Desde já, obrigado.

 

[Juliomar Marchetti]

Bom dia

Qual o banco?

veja na pasta de exemplos que tem um para o componente ACBrBoleto

[Alberto Antonio]

Bom dia

 

Caixa Economica Federal  CNAB 240

 

[José M. S. Junior]

Bom dia, utilize o Demo do ACBrBoleto conforme mencionado pelo Juliomar para estudo e testes.

No componente: ACBrBoleto1 / Banco / TipoCobranca (altere para cobBancoCaixa)  e em: ACBrBoleto1 / LayoutRemessa (altere para c240) e realize os testes...

[Alberto Antonio]

Junior e Juliomar,

no exemplo só encontrei em imprimir dm.ACBrBoleto.Imprimir;
em Gerar Remessa   dm.ACBrBoleto.GerarRemessa(1);

Não existe como eu gerar o boleto tipo assim que é na NFE

var
i, x, sequencianota, filtro, notaint, emissao, finalidade : integer;
vr : Real;
prazo : variant;
notastr, sCPFCNPJ : string;
TotalNovo, frete, bicms, icms, seguro, desc, geral, despaces : Real;
total10 : Real;
Begin

NotasFiscais.Open;
ACBrNFe1.NotasFiscais.Clear;
with AcbrNfe1.NotasFiscais.Add.NFe do
Begin
NotasFiscais.Edit;
txttotal2.Caption := '500';
total10 := StrToFloat(txttotal2.Caption);
//frete := StrToFloat(dbedit10.text);

NotasFiscais.FieldByName('Total').AsFloat  := total10 ;
NotasFiscais.FieldByName('Geral').AsFloat  := total10 + frete;
NotasFiscais.Post;

{IDENTIFICAÇÃO DO CABEÇALHO =================================================================}
Ide.natOp     := Edit1.text;
Ide.nNF       := NotasFiscais.FieldByName('CodigoNotaFiscal').AsInteger;
Ide.cNF       := NotasFiscais.FieldByName('CodigoNotaFiscal').AsInteger;
sequencianota := NotasFiscais.FieldByName('CodigoNotaFiscal').AsInteger;
Ide.modelo    := 55;
Ide.serie     := 1;

---------------------
E assim por diante.

Gostaria de algo nesse sentido para o Boleto.

Desde já, obrigado.

Editado 11 Janeiro, 2018 por Alberto Antonio

[Alberto Antonio]

Criei um novo form e coloquei o acbrboleto e configurei.

Coloquei as uses do exemplo

uses IniFiles, ShellAPI, DateUtils, Math,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtrls, SHDocVw,
  ACBrNFe, pcnConversao, pcnConversaoNFe, ACBrNFeDANFEClass, ACBrUtil,
  pcnNFeW, pcnNFeRTXT, DB, ADODB, Menus, DBCtrls, Mask, Grids, DBGrids,
  jpeg, XPMan, ACBrBase, ACBrDFe, ACBrNFeDANFeRLClass, ACBrBoleto,
{$IFDEF demo_forte} uDMForte, {$ELSE}uDMFast, {$ENDIF}ACBrBase, ACBrBoleto, ACBrUtil;

Dá o erro File not found udm.fast.dcu.

Estou fazendo certo?

 

Citar

 

 

[José M. S. Junior]

3 horas atrás, Alberto Antonio disse:

no exemplo só encontrei em imprimir dm.ACBrBoleto.Imprimir;
em Gerar Remessa   dm.ACBrBoleto.GerarRemessa(1);

Não existe como eu gerar o boleto tipo assim que é na NFE

Sim, no demo veja o código do Botão (Incluir Boleto) ou (Incluir Vários Boletos)

3 horas atrás, Alberto Antonio disse:

Criei um novo form e coloquei o acbrboleto e configurei.

Coloquei as uses do exemplo

uses IniFiles, ShellAPI, DateUtils, Math,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtrls, SHDocVw,
  ACBrNFe, pcnConversao, pcnConversaoNFe, ACBrNFeDANFEClass, ACBrUtil,
  pcnNFeW, pcnNFeRTXT, DB, ADODB, Menus, DBCtrls, Mask, Grids, DBGrids,
  jpeg, XPMan, ACBrBase, ACBrDFe, ACBrNFeDANFeRLClass, ACBrBoleto,
{$IFDEF demo_forte} uDMForte, {$ELSE}uDMFast, {$ENDIF}ACBrBase, ACBrBoleto, ACBrUtil;

Dá o erro File not found udm.fast.dcu.

Estou fazendo certo?

 

 

Qual gerador de relatórios vai utilizar, Fortes ou Fast Report? Se não tem o Fast instalado remova a referência do uses...

[Alberto Antonio]

Júnior,  consegui gerar 1 boleto. O Acbr é realmente fantástico.

Gerei tambem a remessa. 

Vou me aprofundar mais e ver como consigo emtir varios boletos.

Geralmente aqui na empresa é por classe, orgão e periodo. 

Puxo os dados segundo os filtros e ele vão para uma nova tabela filtrados.

Como consigo fazer sob esses parametros, com diversos filtros?

Desde já, obrigado.

 

[José M. S. Junior]

Bom dia,

Os controles e filtros deve realizar pela sua aplicação, após emissão do boleto você atualiza essa informação na sua aplicação para ter o controle... utilize o filtro com os dados apenas para alimentar o componente boleto, veja pelo exemplo que pode incluir diversos títulos no componente e posteriormente imprime todos de uma vez... O mesmo ocorre para geração do arquivo de remessa...

[Alberto Antonio]

Valeu Junior.

Obrigado mais uma vez.