Jump to content

dev botao

Gerar boleto pela primeira vez


Alberto Antonio
Go to solution Solved by José M. S. Junior,
  • Este tópico foi criado há 2431 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores

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...

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

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.

Edited by Alberto Antonio
Link to comment
Share on other sites

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

 

 

Link to comment
Share on other sites

  • Moderadores
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...

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

  • Moderadores
  • Solution

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...

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.