Jump to content

dev botao

  • Este tópico foi criado há 2490 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Posted

Pessoal, bom dia!

A um tempo atrás eu havia feito um pedido mas acho que pode ter passado desapercebido, tanto trabalho, entendo....portanto, baixei os fontes novamente hoje (rev. 14171) e alterei incluindo um layout simples de boleto contendo o recibo de entrega no topo da página. É uma versão simplificada que permite o cliente imprimir dois boletos (ambos com recibo de entrega) em uma mesma folha. Além de prático se torna também mais econômico pro cliente. Serve pra todos os bancos, basta informar na propriedade Layout que o modelo é lReciboTopo.

Não alterei na versão para Lazarus pois não o tenho instalado, mas quem tem é só copiar e pronto. Segue os fontes alterados e um modelo de como fica o boleto impresso. Onde tem alteração tem um comentário    // consulta tec 'data que carrego essa alteração'

Alterações simples em ACBrBoleto: 

1-) onde está   TACBrBolLayOut = (lPadrao, lCarne, lFatura, lPadraoEntrega) ; agora tem    TACBrBolLayOut = (lPadrao, lCarne, lFatura, lPadraoEntrega, lReciboTopo) ;  // consulta tec incluiu recibotopo

Alterações simples em ACBrBoletoFCFortesFr: 

1-) onde está

        case LayOut of
           lCarne : RLLayout:= BoletoCarne;
        else
           RLLayout:= LayoutBoleto;
        end;

        Agora está

        case LayOut of
           lCarne : RLLayout:= BoletoCarne;
           lReciboTopo : RLLayout := BoletoReciboTopo;  // consulta tec 04/10/2017
        else
           RLLayout:= LayoutBoleto;
        end;
 

2-) E tem um novo procedure TACBrBoletoFCFortesFr.RLBand5BeforePrint(Sender: TObject; var PrintIt: Boolean); no arquivo ACBrBoletoFCFortesFr, por causa do novo layout incluído.

Se puderem dar uma olhada, testar e subir seria interessante, pois a cada vez que atualizo o ACBr pelo tortoisesvn tenho que refazer essas alterações. 8-)

Agradecido e no aguardo.

ACBrBoleto.pas

Boleto exemplo - Sicredi Ag0999-11 Conta11222-0.pdf

ACBrBoletoFCFortesFr.pas

ACBrBoletoFCFortesFr.dfm

-- 

Alexandre de Oliveira

Diretor de T.I.

xx16 3811 0155

www.consultatec.com.br - [email protected]

image.png.744a897bbf36127e428c6e687ef05731.png

 

  • 1 month later...
Posted
Em 03/01/2018 at 17:02, José M. S. Junior disse:

Boa tarde, 

Atualizado no SVN, favor realizar os testes... Obrigado.

Boa tarde fiz um ajuste no ACBrBoletoFCFortesFr no modelo Carne pois a data de processamento não estava aceitando o que era passado pro componente estava fixo a data.

alteracao realizada na linha 924.

antes :       txtDataProces.Caption           :=  FormatDateTime('dd/mm/yyyy',Now);

agora:       txtDataProces.Caption           := IfThen(Titulo.DataProcessamento = 0,
                                                FormatDateTime('dd/mm/yyyy',Now),
                                                FormatDateTime('dd/mm/yyyy',Titulo.DataProcessamento));

somente em delphi nao tenho lazarus.

Fortes.rar

  • 4 weeks later...
  • Este tópico foi criado há 2490 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • 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.