walfrido

Está funcionando corretamente, atualizado e testado! 100% em produção! Obrigado!

Ninguém pra dar um Feedback neste layout?

Sim, somente a disposição dos campos, apenas para o FortesReport. ACBrBoletoConversao.pas ACBrBoletoFCFortesFr.dfm ACBrBoletoFCFortesFr.pas

Adaptei um novo Layout ao ACBRBoleto para o meu uso que "lPrestaServicos", acredito que pode ser de grande utilidade para a comunidade. Estou usando em todos os meu clientes e gostaria que compartilhar. Como devo proceder? Att;

Já encontrei... Obrigado!!! ValorMoraJuros // Taxa de mora mês

Estou gerando a remessa e no layout do SICOOB está mencionando o percentual de juros diário mas como faço isso?

Agora só aguardar os moderadores analisarem e disponibilizarem.

Tinha esquecido de informar no Demo "Titulo.Sacado.Pessoa := pJuridica" ! Quais bancos são os "chatos"? Aqui funciona com: Caixa Federal, Sicoob, Sicredi, Bradesco, Itaú e B. Brasil. Não tive problemas até agora com nenhum destes. boleto.pdf

Não é o banco que está pedindo, ele que perguntou se teria essa possibilidade, pois tem cliente que sempre pede um QrCode para efetuar o pagamento através de aplicativos.

Bom dia, amigos! Criei um Layout para meu uso e com já está homologado e em produção, gostaria de compartilhar. Analisem e disponibilizem. Nesse layout inclui o logo da empresa do topo lado direito. Gostaria muito de incluir um QrCode para pagamentos, mas ainda não consegui. Para carregar o logo da empresa basta só passar o caminho da imagem. Titulo.ArquivoLogoEmp := ExtractFilePath(Application.ExeName)+'logo.jpg'; Anexo estão os arquivos que modifiquei que são: ACBrBoletoConversao.pas e ACBrBoletoFCFortesFr.pas + ACBrBoletoFCFortesFr.dfm E o Boleto.PDF Espero ter ajudado. boleto.pdf ACBrBoletoFCFortesFr.pas ACBrBoletoFCFortesFr.dfm ACBrBoletoConversao.pas

Um cliente perguntou se existe possibilidade de enviar o código de barras e o QrCode no boleto. Isso iria facilitar para o cara pagar o boleto usando o QrCode. Desde já agradeço qualquer ajuda.

Alguém tem ideia de como fazer a integração com api PJBank?? https://pjbank.com.br/

Atualizei os fontes e deu essa mensagem agora. Mudou alguma coisa?

Preciso enviar cerca de 500 notas no final de cada mês, então seria por volta de 10 lotes com 50 notas cada. Acontece que ao receber o primeiro lote de 50 notas, a GINFES processa normalmente, mas não deixa enviar mais. Tem alguma configuração que precisa ajustar? source_nfse.pas

mesmo erro... agora vou instalar o windows 10.

vou refazer a instalação, mas acredito que não seja isso! Att

Não tenho... somente uma! Acabei de formatar o meu PC e baixei o ACBr!

Mesmo erro...

Em anexo! log_Delphi_10.3_Rio.txt

sim

o caminho "ACBr\Lib\Delphi\LibD26" está ficando vazio....

Estou usando o windows 7 64 bits; Funcionou certinho anteriormente, só formatei a máquina e agora deu essa mensagem. Vasculhei o fórum mas não consegui resolver.

Estou passando por este problemas a dias e não encontro a solução. O erro de "Lote não Transmitido" é constante, mas para envio único funciona normalmente. O Suporte sempre responde a mesma coisa como "Verificamos que os métodos WSDL estão funcionando normalmente, onde os lotes recepcionados estão sendo processados. Conforme pode ser verificado abaixo, a URL de integração está sendo acessada normalmente." Se alguém tiver alguma idéia e puder ajudar vou agradecer muito. Abraço;

dba.ACBrNFSe1.GerarLote(vNumLote); //.Enviar(vNumLote); Desculpa, tinha feito um teste para ver se estava gerando o lote certinho, mas o código correto é este abaixo; dba.ACBrNFSe1.Enviar(vNumLote); Mas a questão é tenho que inserir apenas 50 notas por lote, certo? Mas neste caso preciso enviar mais de 500... Então coloquei um contador que ao atingir 50 registro ele envia e depois continua até terminar de enviar tudo... while not qryNotas.Eof do begin c := 1; dba.ACBrNFSe1.NotasFiscais.Clear; while not qryNotas.Eof and (c <= 50) do begin seqRPS := IntToStr(numeroRPS); AlimentaComponente(seqRPS); inc(numeroRPS); inc(c); qryNotas.Next; end; dba.ACBrNFSe1.Enviar(vNumLote); inc(vNumLote); end; Seria assim neh? Mas gerando timeout!

Italo, tudo bem? Está certo a forma que estou enviando as notas fiscais por lotes? Na qryNotas tem 500 registros para enviar. Só dá timeout, já aumentei o tempo para 50000 e não resolveu; *************************************************** c := 0; vNumLote := StrToInt(_Numero_do_Lote); numeroRPS := StrToIntDef(vNumNota, 1); // numero do RPS qryNotas.First; while not qryNotas.Eof do begin c := 1; dba.ACBrNFSe1.NotasFiscais.Clear; while not qryNotas.Eof and (c <= 50) do begin seqRPS := IntToStr(numeroRPS); AlimentaComponente(seqRPS); inc(numeroRPS); inc(c); qryNotas.Next; end; dba.ACBrNFSe1.GerarLote(vNumLote); //.Enviar(vNumLote); MemoDados.Lines.Add('Nome XML: '+dba.ACBrNFSe1.NotasFiscais.Items.NomeArq); MemoDados.Lines.Add('Nota Numero: '+dba.ACBrNFSe1.NotasFiscais.Items.NFSe.Numero); MemoDados.Lines.Add('Código de Verificação: '+dba.ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao); inc(vNumLote); end;