Ir para conteúdo
  • Cadastre-se

dev botao

Imprimir Pdf Direto Em Um Diretorio


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

Recommended Posts

  • 1 ano depois...

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);

 

 

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

Link para o comentário
Compartilhar em outros sites

  • Administradores

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

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

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


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.