Jump to content

2 Dia do ACBr

O Dia da Automação Comercial está chegando!
Inscreva-se

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

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

Jeferson Cruz

Imprimir Pdf Direto Em Um Diretorio

Recommended Posts

usando o RLBoleto;

 

 

{Dados do titulo}
   with gbTitulo1 do
   begin
      NumeroDocumento := cdsTitulosNUMERODOCUMENTO.AsString+'/'+cdsTitulosPARCELA.AsString;
      SeuNumero := cdsTitulosNUMERODOCUMENTO.AsString;
      EspecieDocumento := edFatura;
      NossoNumero := cdsTitulosBOL_NUMERO.AsString;
 
      Carteira := cdsCedentesCARTEIRA.AsString;
      DataDocumento := cdsTitulosDATAEMISSAO.AsDateTime;
      DataVencimento := cdsTitulosDATAVENCIMENTO.AsDateTime;
      DataProcessamento := cdsTitulosDATADIGITACAO.AsDateTime;
      ValorDocumento := cdsTitulosVALORORIGINAL.AsCurrency;
 
      vInstrucoes := 'dados da instruções para pagamento';
 
      Instrucoes.Text := vInstrucoes;
 
      {Dados do cedente}
      with Cedente do
      begin
         if AnsiUpperCase(cdsCedentesTIPOINSCRICAO.Value) = 'F' then
            TipoInscricao := tiPessoaFisica {CPF}
         else if AnsiUpperCase(cdsCedentesTIPOINSCRICAO.Value) = 'J' then
            TipoInscricao := tiPessoaJuridica {CNPJ}
         else
            TipoInscricao := tiOutro;
 
         NumeroCPFCGC := cdsCedentesNUMEROINSCRICAO.Value;
         Nome := cdsCedentesNOMECEDENTE.Value;
         CodigoCedente := cdsCedentesCODIGOCEDENTE.Value;       //33 a 52 - Código do convênio no banco
         DigitoCodigoCedente := cdsCedentesDIGITOCEDENTE.Value;
 
         {Endereço do cedente}
         with Endereco do
         begin
            Rua := cdsCedentesRUA.AsString;
            Endereco.Numero := cdsCedentesNUMERO.AsString;
            Complemento := cdsCedentesCOMPLEMENTO.AsString;
            Bairro := cdsCedentesBAIRRO.AsString;
            Cidade := cdsCedentesCIDADE.AsString;
            Estado := cdsCedentesESTADO.AsString;
            CEP := stringreplace(cdsCedentesCEP.AsString,'-','',[rfReplaceAll]);
            Email := cdsCedentesEMAIL.AsString;
         end; {with Endereco}
 
         {Dados bancários do cedente}
         with ContaBancaria do
         begin
            Banco.Codigo  := cdsCedentesNUMBANCO.AsString;
            CodigoAgencia := cdsCedentesNUMAGENCIA.AsString;
            DigitoAgencia := cdsCedentesDIGITOAGENCIA.AsString;
            NumeroConta   := cdsCedentesNROCONTA.AsString;
            DigitoConta   := cdsCedentesDIGITOCONTA.AsString;
            // B.B.
 
            Convenio := cdsCedentesNUMCONVENIO.AsString;
         end; {with Banco}
      end; {with Cedente}
 
      {Dados do sacado do título}
      with Sacado do
      begin
         if AnsiUpperCase(qryClientesPESSOAFISJUR.AsString) = 'F' then
            TipoInscricao :=  tiPessoaFisica
         else if AnsiUpperCase(qryClientesPESSOAFISJUR.AsString) = 'J' then
            TipoInscricao := tiPessoaJuridica
         else
            TipoInscricao := tiOutro;
         NumeroCPFCGC := LimpaCGCCPF(qryClientesCGCCFO.AsString);
         Nome := qryClientesNOME.AsString + '   (' + qryClientesNOMEFANTASIA.AsString + ' ' + qryClientesCODCFO.AsString + ')';
 
         {Endereço do sacado do título}
         with Endereco do
         begin
            if not Empty(qryClientesRUAPGTO.AsString) then
            begin
              Rua := qryClientesRUAPGTO.AsString;
              Numero := qryClientesNUMEROPGTO.AsString;
              Complemento := qryClientesCOMPLEMENTOPGTO.AsString;
              Bairro := qryClientesBAIRROPGTO.AsString;
              Cidade := qryClientesCIDADEPGTO.AsString;
              Estado := qryClientesCODETDPGTO.AsString;
              CEP := stringreplace(qryClientesCEPPGTO.AsString,'-','',[rfReplaceAll]);
            end
            else
            begin
              Rua := qryClientesRUA.AsString;
              Numero := qryClientesNUMERO.AsString;
              Complemento := qryClientesCOMPLEMENTO.AsString;
              Bairro := qryClientesBAIRRO.AsString;
              Cidade := qryClientesCIDADE.AsString;
              Estado := qryClientesCODETD.AsString;
              CEP := stringreplace(qryClientesCEP.AsString,'-','',[rfReplaceAll]);
            end;
            Email := qryClientesEMAIL.AsString;
         end; {with Endereco}
 
         {Dados bancários do sacado do título}
         with ContaBancaria do
         begin
            Banco.Codigo := '';
            CodigoAgencia := '';
            DigitoAgencia := '';
            NumeroConta := '';
            DigitoConta := '';
         end; {with Banco}
      end; {with Sacado}
   end; {with Titulo}

 

       gbTitulo1.InsertRecord;

       gbTitulo1.SalvarPDF(NomeArquivoPDF);

 

 

----------------

Share this post


Link to post
Share on other sites

Boa noite.

 

Basta setar a propriedade MostrarPreview como false no componente de impressão de boletos.

Você pode utilizar ainda o comando GerarPDF() do ACBrBoleto.

 

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites

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