Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Charbel

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    21

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Charbel

    Boleto Bancário FastReport

    em ACBrBoleto

    Postado

    Preciso de ajudar pra instalar o novo acbr truck2 no delphi 7..

     

    AO INSTALAR ISNTALOU DUAS BARRAS UMA SOMENTE COM ACBR E TODOS OS COMPONENTE MENOS O ACBrBoletoFCFR1 QUE FICOU EM UMA ABA SEPARADA, AO ASSOCIAR OS DOIS BOLETOS E ACBrBoletoFCFR1 ocorre esses erros.

    Preciso muito coloca pra funcionar no Delphi 7 ate poder migrar para outro delphi.

    Erro_ACBR1.png

    Erro_ACBR2.png

    Boleto para o banco BRB

    em ACBrBoleto

    Postado

    Olha quero te agradecer muito mesmo.

    Então fiz o que pediu e enviei um novo arquivo pra homologação BRB.

    e)      Campo 276 a 277: inserir código "03";

    f)       Campo 280 a 281: inserir código "94";

    Esses dois campos não achei a propriedade,  no acbr.

     

    2 horas atrás, Charbel disse:

    f)       Campo 280 a 281: inserir código "94";

    Boleto para o banco BRB

    em ACBrBoleto

    Postado

    Em 13/07/2012 at 13:41, Juliana Tamizou disse:

    Boa tarde Camilo.

     

     

    Até o momento ainda não recebemos nenhuma contribuição para este banco, porém caso queira colaborar com o projeto desenvolvendo esta classe, fique a vontade para postar as dúvidas que surgirem aqui.

     

    Att.

    Preciso urgente de ajudar com geraçãod e carne e remessa do brb , gerei passando os parametros mais o brb informa que falta estas informacoes

     

    a)      Campo 123 a 135: inserir "seu número" ( deve ser o mesmo inserido no boleto "Número do documento");

    B)      Campo 154 a 157: inserir número correto da agência ( exemplo: 0268);

    c)       Campo 222 a 223: inserir código de juros (Mês ou dia);

    d)      Campo 224 a 237: inserir percentual de juros ( exemplo: para 1% - 00000000000100);

    e)      Campo 276 a 277: inserir código "03";

    f)       Campo 280 a 281: inserir código "94";

    g)      Campo 282 a 283: inserir prazo para recebimento após vencimento ( ex.: "30" para recebimento até 30 dias após vencimento);

    h)      Campo 284 a 288: inserir percentual de multa ( ex. 00200 para 2%)

     

     

    Enviar email dos boletos em pdf

    em ACBrBoleto

    Postado

    Bom  joaomello , entao agradeço faço o mesmo loop para adicionar mais aonde coloco as informacoes pra que seja enviado o email, como smtp, email de envio, porta essas informacoes pois vi que tem 

     

      if TipoInteracao = ImprimirComEmail then
                    ACBrBoleto.EnviarEmail(Sacado.Email,'Teste boleto', nil, True);

    obrigado pela ajuda pois tenho muita necessidade desta rotina

    Enviar email dos boletos em pdf

    em ACBrBoleto

    Postado

    Em 22/01/2016 at 16:31, joaomello disse:

    Ao executar "ACBrBoletoFCFR1.GerarPDF" será criar um arquivo pdf com todos os boletos gerados, por exemplo uns 10 boletos, como faço pra separar esses boletos e encaminhar para o e-mail dos respectivos clientes?

    joaomello

    Seria possivel vc me ajudar com um exemplo, estou com dificuldade em fazer esta rotina.

    5 horas atrás, Juliana Tamizou disse:

    Bom dia.

    Os exemplos em lazarus ficam no mesmo caminho dos exemplos em delphi, ou seja "..\Exemplos\ACBrBoleto\Lazarus\..."

    Att.

    So pra saber quando abro com o delphi 7 ele abre totalmente truncado, sem que eu possa ver como e feito o exemplo.

    caso tenha um exemplo agradeço

    Envio De Boleto Por E-Mail

    em ACBrBoleto

    Postado

    Em 27/05/2015 at 15:42, Vinicius Sanchez disse:

    Boa tarde pessoal,

     

    Estou implementando o processo de geração de boleto utilizando o ACBr no meu projeto. A geração funcionou perfeitamente, porem quando vou utilizar o método disponível no componente de enviar o e-mail com o boleto, o mesmo não funciona. Estava olhando os fontes do ACBr e vi que foi comentado os códigos referente ao mesmo.  

    
procedure TACBrBoleto.EnviarEmail(const sSmtpHost,
                                      sSmtpPort,
                                      sSmtpUser,
                                      sSmtpPasswd,
                                      sFrom,
                                      sTo,
                                      sAssunto: String;
                                      sMensagem : TStrings;
                                      SSL : Boolean;
                                      EnviaPDF: Boolean = true;
                                      sCC: TStrings=nil;
                                      Anexos:TStrings=nil;
                                      PedeConfirma: Boolean = False;
                                      AguardarEnvio: Boolean = False;
                                      NomeRemetente: String = '';
                                      TLS : Boolean = True;
                                      HTML:Boolean = False);
var
  ThreadSMTP : TSendMailThread;
  m:TMimemess;
  p: TMimepart;
  StreamNFe : TStringStream;
  i: Integer;
begin
  m:=TMimemess.create;

  ThreadSMTP := TSendMailThread.Create(Self) ;  // Não Libera, pois usa FreeOnTerminate := True ;
  StreamNFe  := TStringStream.Create('');
  try
    p := m.AddPartMultipart('mixed', nil);
    if sMensagem <> nil then
//       m.AddPartText(sMensagem, p);
      if HTML = true then
         m.AddPartHTML(sMensagem, p)
      else
         m.AddPartText(sMensagem, p);

    if (EnviaPDF) then
     begin
       if ACBrBoletoFC.NomeArquivo = '' then
          ACBrBoletoFC.NomeArquivo := 'boleto.pdf';;
       GerarPDF;
       m.AddPartBinaryFromFile(ACBrBoletoFC.NomeArquivo, p);
     end
    else
     begin
       if ACBrBoletoFC.NomeArquivo = '' then
          ACBrBoletoFC.NomeArquivo := 'boleto.html';;
       GerarHTML;
       m.AddPartBinaryFromFile(ACBrBoletoFC.NomeArquivo, p);
     end;


    if assigned(Anexos) then
       for i := 0 to Anexos.Count - 1 do
       begin
          m.AddPartBinaryFromFile(Anexos[i], p);
       end;

    m.header.tolist.add(sTo);

    if Trim(NomeRemetente) <> '' then
       m.header.From := Format('%s<%s>', [NomeRemetente, sFrom])
    else
       m.header.From := sFrom;

    m.header.subject:= sAssunto;
    m.Header.ReplyTo := sFrom;
    if PedeConfirma then
       m.Header.CustomHeaders.Add('Disposition-Notification-To: '+sFrom);
    m.EncodeMessage;

    ThreadSMTP.sFrom := sFrom;
    ThreadSMTP.sTo   := sTo;
    if sCC <> nil then
       ThreadSMTP.sCC.AddStrings(sCC);
    ThreadSMTP.slmsg_Lines.AddStrings(m.Lines);

    ThreadSMTP.smtp.UserName := sSmtpUser;
    ThreadSMTP.smtp.Password := sSmtpPasswd;

    ThreadSMTP.smtp.TargetHost := sSmtpHost;
    if trim(sSmtpPort)<>'' then     // Usa default
       ThreadSMTP.smtp.TargetPort := sSmtpPort;

    ThreadSMTP.smtp.FullSSL := SSL;
    ThreadSMTP.smtp.AutoTLS := TLS;


    ThreadSMTP.Resume; // inicia a thread
    if AguardarEnvio then
    begin
      repeat
         Sleep(1000);
         Application.ProcessMessages;
      until ThreadSMTP.Terminado;
    end;
 finally
    m.free;
    StreamNFe.Free ;
 end;
end;
    
procedure TACBrBoletoFCQuick.Imprimir;
var
  frACBrBoletoQuick : TACBRBoletoFCQuickFr;
  RLLayout: TQuickRep;
  //MultiExport : TQRMultiExport ;
  //FiltroExportacao: TQRPAbstractExportFilter;
  //HTMLFilter  : TQRHTMLDocumentFilter ;
begin
  inherited Imprimir;    // Executa verificações padroes

  frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self);
  try
     with frACBrBoletoQuick do
     begin
        case LayOut of
           lCarne  : RLLayout:= BoletoCarne;
           lPadraoEntrega  : RLLayout:= LayoutPadraoEntrega;
        else
           RLLayout := LayoutBoleto;
        end;

        RLLayout.PrinterSettings.Copies := NumCopias ;

        case Filtro of
          fiPDF  :
            begin
//              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
//                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
//                RLLayout.ExportToFilter(FiltroExportacao);
              finally
//                FiltroExportacao.Free;
              end;
//               MultiExport := TQRMultiExport.Create(self);
//               try
//                  MultiExport.Report       := RLLayout ;
//                  MultiExport.ExportFormat := qrxPDF ;
//                  MultiExport.FileName     := NomeArquivo ;
//                  MultiExport.ShowDialog   := MostrarSetup ;
//                  MultiExport.DPI          := 300 ;
//                  MultiExport.DoExport ;
//               finally
//                  MultiExport.Free ;
//               end ;
            end ;

          fiHTML :
            begin
               (*  Codigo abaixo comentado pois  não funciona...
               HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo );
               try
                  RLLayout.ExportToFilter( HTMLFilter );
               finally
                  HTMLFilter.Free ;
               end ;
               *)
               raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ;
            end ;
        else
          begin
            if MostrarPreview then
               RLLayout.PreviewModal
            else
             begin
               if MostrarSetup then
                  RLLayout.PrinterSetup ;

               if (RLLayout.Tag = 0) then
                  RLLayout.Print;
             end ;
          end
        end ;
     end ;
  finally
     frACBrBoletoQuick.Free ;
  end;
end;

    Repare que os códigos estão comentados. Alguém por favor pode me ajudar? Alguém utiliza o envio de boleto por e-mail?

     

    OBS: Utilizo o Delphi 2010 e uso o Quick Report.

     

     

    Att: Vinicius Sanchez

    Ola preciso tambem enviar por email boletos e uso o acbrboleto...

    vc conseguiu se puder me ajudar agradeço

    [email protected]

    Ola preciso tambem enviar por email boletos e uso o acbrboleto...

    vc conseguiu se puder me ajudar agradeço

    [email protected]

    Em 28/05/2015 at 21:03, Juliana Tamizou disse:

    Boa noite.

     

    Qual é o problema que você está tendo?

     

    Att.

    Ola preciso tambem enviar por email boletos e uso o acbrboleto...

    vc conseguiu se puder me ajudar agradeço na versão demo não temos um exemplo

    [email protected]

    Enviar email dos boletos em pdf

    em ACBrBoleto

    Postado

    Em 22/01/2016 at 16:54, Juliomar Marchetti disse:

    Untitled.png.2b60935e5ce7cf0943d4bfa16c4

    O pior é que tem, veja a imagem que segue o botão enviar e-mail

     

    Como faço pra baixar essa versão com envio pro email

    Em 22/01/2016 at 17:56, Juliomar Marchetti disse:

    Tem sim abre o exemplo em lazarus! eles sempre estão completos mais que em delphi!

    Como faço pra baixar essa versão com envio pro email.

    Em 22/01/2016 at 17:08, joaomello disse:

    Nos meus exemplos não tem esse botão, e acabei de atualizar... Você poderia me mandar o que tem no botão. Obrigado!

    Como faço pra baixar essa versão com envio pro email.

    Acbr com IntraWeb

    em Dúvidas Gerais sobre o ACBr

    Postado

    Em 26/08/2015 at 11:41, Charles Araujo disse:

    Bom dia pessoal

    os componentes acbrnfe funciona com intraweb?, pois intraweb roda no servidor(windows) da pra instalar tudo, capcom e as dll, mas na hora de mandar gerar a nfe ou ncfe ele vai conseguir ler o certificado da maquina cliente? e a questa da impressora no caso de nfce?

    Obrigado...

    PRECISO USAR O ACBRBOLETO EM INTRAWEB ALGUEM JA USOU ?

    ERP Web

    em Dúvidas Gerais sobre o ACBr

    Postado

    Em 13/03/2012 at 16:01, FLEXNET disse:

    EMBarbosa, estou enfrantando o mesmo dilema, e cheguei a conclusão que e mais viável (tempo e aprendizagem) fazer tudo em delphi mesmo, usando a tecnologia INTRAWEB, muitos condenam esta ferramenta, mas a grande maioria ou desconhece ou não sabem nada de delphi, no tempo da Borland o intraweb perdeu espeço para o PHP, .net entre outras ... mas com a Embarcadero em parceria com Atozed (fabricante dos componentes intraweb) vc pode fazer sites dinamico com banco de dados como se estivesse programando para VCL Desktop, parece até birncadeira, vc usar os evento ONLCLIK, onkeydown etc... e ver tudo funcionando no browser, e sem falar que as novas versões possui suporte pra AJAX, JavaScript, JQuery e CSS vc quer mais o que pra fazer um bom sistema web ?... vale a pena investir, inclusive andei testando sistemas com esta tecnologia que possui nf-e e muito mais !

     

    Ricardo

    Flexnet Sistemas

    Ola boa tarde procuro exemplos para impressao de boletos em intraweb usando o ACBRBOLETO ou qualquer outra forma.

     

    vc teria algo pra me ajudar.

    Em 17/06/2014 at 11:02, Hermilio disse:

    Estamos desenvolvendo um 100% web

     

    https://illimitar.illi.com.br

     

    Administrador

    usuario: admin

    senha: admin

     

    Venda

    usuario:caixa

    senha:caixa

    Ola boa tarde procuro exemplos para impressao de boletos em intraweb usando o ACBRBOLETO ou qualquer outra forma.

    vc teria algo pra me ajudar.

     

    Gostaria de migrar tudo para intraweb

    Ola boa tarde procuro exemplos para impressão de boletos em intraweb usando o ACBRBOLETO ou qualquer outra forma.

    ALGUÉM PODERIA ME AJUDAR COM ALGUM MATERIAL

     

    Acbr com IntraWeb

    em Dúvidas Gerais sobre o ACBr

    Postado

    Ola boa tarde preciso colocar o ACBRBOLETO para funcionar no Intraweb alguem ja usou ?

    Em 27/08/2015 at 02:35, Charles Araujo disse:

    sim, mas ai tem a questao das impressoras, pois soh consegui fazer o danfe com acbrdangeescpos no caso da nfce, entao tem q acessar a maquina do cliente, ja consegui fazer o abcr rodar no intraweb, funcionou file, só na nr imprimir deu esse problema de cominicacao com a porta, vou tentar instalar a impressora no servidor pode ser q funcione tipo quando se instala o driver no caso de terminal service, mas o acbr ja funcionou nao testei leitura de certicicado, sera o proximo passo

    Erro gerado na hr de imprimir via danfeescpos

    Sem título.png

    Estou com a mesma mensagem no acbrboleto

    [Resolvido] Banpará

    em ACBrBoleto

    Postado

    Então ate o momento acredito que ninguem conseguiu implementar BANPARA no acbrBoleto ?

    Bom dia à todos, tenho de desenvolver um boleto para o Banpará (Banco do Estado do Pará), o mesmo não possui manuais próprios, utilizam totalmente os manuais e padrões estabelecidos pela FEBRABAN, gostaria de saber se alguém já possui essa unit ou mesmo se poderia me indicar qual das existentes se assemelha mais com os manuais da FEBRABAN, sei que todos os bancos tem como base o mesmo, más existem as particularidades, então imagino que como o Banpará, possa existir algum outro banco que não possua manuais próprios e que possa haver já homologação do mesmo no ACBrBoleto.

    E ai conseguiu ?

    tambem estou desenvolvendo para carnês do banpará.

     

    Agora não consigo achar um layout para os arquivos de Retorno utilizados pelo meu cliente.

     

    O que o banpará fornece é o layout da FEBRABAN e não condiz com os arquivos baixados.

     

    Vc conseguiu???

    Vc conseguiu implementar banpara ?

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