Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

Search the Community

Showing results for tags 'acbrboleto'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Fórum Aberto - ACBr
    • ACBr News
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • ACBr's Pub
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Data Base
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categories

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Free Download
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendars

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Community Calendar
  • ACBr Papo Pro
  • Feriados Nacionais

Blogs

  • Daniel Simoes' Blog
  • André Ferreira de Moraes
  • Moderadores ACBr
  • Teste de Blog
  • Notícias do ACBr

Categories

  • Suporte Pago - PRO
    • Webinars
    • Video Aulas
  • Vídeos Abertos
    • Video Aulas
    • Comunicados
    • Dia do ACBr 1a Ediçao
    • Dia do ACBr 2a Ediçao
    • Dia do ACBr 3a Ediçao
    • Equipamentos Homologados ACBr
    • TEF ACBr PayGo
  • Campanhas promocionais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL

  1. Bom dia , gostaria de saber como anda o desenvolvimento do layout do banco sofisa com os componentes de ACBRBoleto?
  2. Bom dia, Para importar uma DLL no projeto em Visual Dataflex, necessito do arquivo .TLB da DLL compilado com a opção de "Register for COM interop" marcada para conseguir "enxergar" os métodos e utilizar a mesma, existe uma versão da Dll com essa opção? ou até mesmo alguma outra opção viável?
  3. Olá Tudo Bem! Estou tentando homologar o Boleto do Sicredi usando cnab 240, estou com problema no número do código de barra, onde no inicio do código tem ficar 74891 nos boletos que estou gerando está ficando 74890(imagem em anexo) ou seja ta saindo zero. Segundo o banco ele referencio esse campo como sendo: Número padrão sequencial dos boletos. Não achei esse campo com esse nome no manual cnab 240 do Sicredi, no manual a página que trata dos números do código de barra é a pagina 89, tópico 7.2 Itens visuais do boleto, no caso o item 9 - Código numérico que correspondente ao tipo de cobrança: “1” – “Cobrança”, ao que parece esse 1 é obrigatório mas não está saindo. Não sei qual propriedade do ACBrBoleto informo esse 1, qual seria essa propriedade? Desde já Muito Obrigado pela Ajuda e Atenção!
  4. Olá Tudo Bem! Estou tentando gerar Boleto de dois Bancos diferentes, então pra isso preciso mudar em tempo de execução qual o Banco que vai ser gerado o boleto. O problema é que escolho o banco e seto a propriedade TipoCobranca, mas quando gera o boleto o campo Local de Pagamento sai como ''Não Definido"(segue a imagem em anexo). Isso ocorre na primeira vez que é carregado o form onde é Gerado o Boleto! Se eu gerar novamente o boleto com aquele mesmo Banco ae sim sai corretamente escrito o nome do Banco. Mas se sair do executável e entrar de novo e entrar no form na primeira vez sai como Não Definido, mas se gerar novamente sem sair do executável ou trocar de Banco sai correto o nome. Parece que ele carrega ACBrBoleto na primeira vez. Estou setando o banco da seguinte forma: Vcodbanco:=IBQCnab.FieldByName('BANCOD').AsInteger; case Vcodbanco of 1: begin //001 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoDoBrasil; end; 4: begin //004 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoDoNordeste; end; 21: begin //021 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBanestes; end; 8,33,353: begin //033,353,008 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobSantander; end; 41: begin //041 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBanrisul; end; 70: begin //070 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBRB; end; 85: begin //085 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoCECRED; end; 104:begin //104 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobCaixaEconomica; end; 237:begin //237 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBradesco; end; 341:begin //341 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobItau; end; 389:begin //389 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoMercantil; end; 748:begin //748 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobSicred; end; 756:begin //756 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoob; end; 399:begin //399 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobHSBC; end; 422:begin //422 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoSafra; end; end; O resto do boleto sai corretamente com as informações do banco escolhido, só o campo Local de Pagamento que notei essa diferença. Tentei colocar o nome na propriedade nome do banco no ACBrBoleto assim: ACBrBoleto.Banco.Nome:=nomedobanco; Mas não deu certo. Como faço pra quando escolher o banco em tempo execução não precise executar duas vezes pra gerar corretamente o boleto? Preciso setar alguma outro propriedade do ACBrBoleto? Desde já Muito Obrigado pela Atenção e Ajuda!
  5. Olá Tudo Bem! Estou tentando gerar Boleto de dois Bancos diferentes, então pra isso preciso mudar em tempo de execução qual o Banco que vai ser gerado o boleto. O problema é que escolho o banco e seto a propriedade TipoCobranca, mas quando gera o boleto o campo Local de Pagamento sai como ''Não Definido"(segue a imagem em anexo). Isso ocorre na primeira vez que é carregado o form onde é Gerado o Boleto! Se eu gerar novamente o boleto com aquele mesmo Banco ae sim sai corretamente escrito o nome do Banco. Mas se sair do executável e entrar de novo e entrar no form na primeira vez sai como Não Definido, mas se gerar novamente sem sair do executável ou trocar de Banco sai correto o nome. Parece que ele carrega ACBrBoleto na primeira vez. Estou setando o banco da seguinte forma: Vcodbanco:=IBQCnab.FieldByName('BANCOD').AsInteger; case Vcodbanco of 1: begin //001 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoDoBrasil; end; 4: begin //004 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoDoNordeste; end; 21: begin //021 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBanestes; end; 8,33,353: begin //033,353,008 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobSantander; end; 41: begin //041 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBanrisul; end; 70: begin //070 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBRB; end; 85: begin //085 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoCECRED; end; 104:begin //104 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobCaixaEconomica; end; 237:begin //237 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBradesco; end; 341:begin //341 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobItau; end; 389:begin //389 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoMercantil; end; 748:begin //748 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobSicred; end; 756:begin //756 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoob; end; 399:begin //399 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobHSBC; end; 422:begin //422 dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoSafra; end; end; O resto do boleto sai corretamente com as informações do banco escolhido, só o campo Local de Pagamento que notei essa diferença. Tentei colocar o nome na propriedade nome do banco no ACBrBoleto assim: ACBrBoleto.Banco.Nome:=nomedobanco; Mas não deu certo. Como faço pra quando escolher o banco em tempo execução não precise executar duas vezes pra gerar corretamente o boleto? Preciso setar alguma outro propriedade do ACBrBoleto? Desde já Muito Obrigado pela Atenção e Ajuda!
  6. Debugando para entender por quê o número da Agencia se repetia na impressão do boleto no campo "Agência/Código do Beneficiário" percebi que nesse trecho há uma concatenação, da Agencia+Conta sendo preenchido no campo Código do Cedente unit ACBrBoleto; function TACBrBancoClass.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ ACBrTitulo.ACBrBoleto.Cedente.Conta+'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end; E o código da Agencia já tem seu campo própio. unit ACBrBoletoFCFR; FieldByName('Nome').AsString := Cedente.Nome; FieldByName('CodigoCedente').AsString := Banco.MontarCampoCodigoCedente(Titulo); // Cedente.CodigoCedente; FieldByName('CodigoTransmissao').AsString := Cedente.CodigoTransmissao; FieldByName('Agencia').AsString := Cedente.Agencia; FieldByName('AgenciaDigito').AsString := Cedente.AgenciaDigito; Sendo assim eu alterei os Reports, removendo a agencia, já que a informação já está vindo junto com o código do Cedente. Antes estava assim: [Cedente."Agencia"]/[Cedente."CodigoCedente"] Deixei assim: [Cedente."CodigoCedente"] Caso concordem que está certo, atualizar os reports no repositório para colaboração geral. Boleto.fr3 BoletoFatura.fr3 BoletoFR.fr3
  7. Boa tarde. Alguns clientes estão tendo a necessidade de enviar a chave da nfe no arquivo de remessa para o banco. Banco ONIX http://onixcredit.com.br/tutoriais/TUTORIAL_PARA_IMPORTACAO_CNAB_ONIX.pdf Banco SOFISA https://tdn.totvs.com/pages/releaseview.action?pageId=505758869 No caso do banco ONIX, eles usam o padrão do banco Bradesco CNAB400 adicionando 44 posições que será usado para envio da chave da NFe, criando um "CNAB444". Fiz pequenas alterações: * No arquivo ACBrBoleto.pas adicionei o tipo c444 (TACBrLayoutRemessa = (c400, c240, c444)) e adicionei a propriedade ChaveNFE na classe TACBrTitulo. * No arquivo ACBrBancoBradesco.pas, rotina GerarRegistroTransacao400 adicionei a validação do layout (if LayoutRemessa = c444 then wLinha := wLinha + Copy(ChaveNFe,1,44)) para adicionar a chave da nfe no arquivo. Segue arquivos para análise. ACBrBoleto.pas ACBrBancoBradesco.pas
  8. Estou tendo problema ao gerar remessa o banco não está aceitando o arquivo REGISTRO COM ERRO CLIENTE NAO CADASTRADO NO MEIO MAGNETICO O problema está nas posições do Arquivo de Remessa, no Manual que eu tenho as posições estão bem diferentes do registro da remessa Anexei o Manual que eu tenho do Santander, o detalhe do erro e a remessa Minha dúvida qual manual foi utilizado pra gerar este arquivo de remessa 149-382-Cobranca Layout CNAB 240 Febraban Puro versao Setembro 2017.pdf erroInternet Banking.pdf CB23122020103645_01-Boletos ACBr.REM
  9. Olá, bom dia a todos. Sou novo no fórum e estou implementando a emissão de boletos em meu sistema em VB6 com a ajuda da ACBRLibBoleto. Fiquei na dúvida se deveria abrir este tópico na seção ACBRBoleto ou ACBRLib, me perdoem de antemão. Estou tendo problemas ao utilizar as funções Boleto_RetornaLinhaDigitavel e Boleto_RetornaCodigoBarras da dll versão 0.2.0.71. Quando emito mais de 10 boletos ao mesmo tempo, a DLL não retorna a linha digitável e o código de barras corretamente quando passo o índice 10 ou superior como parâmetro, nos índices de 0 a 9 funciona normalmente, mas do 10 em diante me parece que ele sempre retorna os dados do boleto do índice 1. A impressão também está correta, somente o retorno da DLL que está com problema. Peço um auxílio quanto a questão, desde já agradeço.
  10. Bom dia senhores, estou utilizando o Delphi 2010 com IntraWeb junto com o ACBr para emissão de boletos e notas de serviço, porém estou passando por um erro chato e intermitente ao gerar o PDF do boleto, no método TACBrBoleto.GerarPDF as vezes retorna o erro "There is no default printer currently selected". O problema é que não ocorre sempre, pelo que entendi, o ACBr não se comporta muito bem com o IntraWeb, creio que o ACBr esteja tentando acessar diretamente a impressora, porém no servidor onde está rodando a aplicação possui uma impressora PDF instalada e o fato do erro ser intermitente me deixa ainda mais confuso. Caso alguém já tenha passado por esse erro ou tenha alguma pista por favor me ajudem, estou enlouquecendo já rsrsrs. Obrigado.
  11. Bom dia. Estou com um problema na impressão de boletos usando o Fortes Report. Este problema ocorre em alguns marcas de impressora, por exemplo Brother. Já tentei mudar várias configurações na impressora mas nenhuma delas resolveu. O maior problema, como podem ver na primeira imagem, é a margem do lado esquerdo do boleto, que é onde fica o código de barras. A impressora não consegue imprimir o inicio do código de barras, aí quando o cliente vai tentar pagar usando o leitor de código de barras não consegue ler o código. Mas a linha digitável também sai um pouco cortada mas só um pequeno pedaço do último dígito da linha digitável (imagem 2 anexo). Até se verificarem na margem esquerda teria a informação no nome do sistema que está configurado para imprimir ali, mas também está cortando. Algumas impressoras conseguem imprimir esse nome do sistema, mas outras imprime cortado pois o nome do sistema fica bem na borda da página. E no caso se eu salvar o boleto em PDF e imprimir do PDF na impressora sai tudo corretamente. Mas imprimindo diretamente do relatório para a impressora sai com as margens cortadas. Verifiquei que já existe um tópico aberto sobre essa questão. É um tópico um pouco antigo, até eu questionei lá se tiverem alguma solução mas não obtive retorno aí estou abrindo este com o mesmo intuito. Saber se alguém passou pelo mesmo problema ou se conseguiu contornar de alguma forma e puder colaborar. Desde já agradeço.
  12. Peço a alteração dos fontes do ACBRBoleto na leitura do Retorno do Banrisul para que seja carregado o valor correto do "SEUNUMERO" conforme abaixo: procedure TACBrBanrisul.LerRetorno240(ARetorno: TStringList); 822 SeuNumero := Trim(Copy(FSegT, 38, 25)); //--- Valor antigo -->>> NumeroDocumento; procedure TACBrBanrisul.LerRetorno400(ARetorno: TStringList); 966 SeuNumero := copy(Linha,38,25); //--- Valor antigo -->>> copy(Linha,117,10) Atualmente ele esta retornando no "SeuNumero" o valor do "NumeroDocumento". Em anexo a unit ACBRBancoBanrisul.pas que eu alterei. Caso eu tenha cometido algum erro por favor informem. Obrigado a todos que participam do projeto ACBR pelo excelente trabalho e ajuda. ACBrBancoBanrisul.pas
  13. Foi tentar gerar um boleto para bancoob(sicoob) no cnab240 no meu codigo eu passo o valor das datas do juro e a data da multa, quando gero a remessa no meu sistema e mando para o validador ele aparece isso fala que contem a data de vencimento, revisei o codigo e unico lugar que pega a data do juro e da multa é aqui Alguem sabe me dizer o que pode ser ?
  14. Boa noite. Adicionei a propriedade Preview no componente ACBrBoletoFCFR, para a utilização do do TfrxPreview do Fast Report. Segue em anexo a unit para analise. Desde já agradeço! ACBrBoletoFCFR.dfmACBrBoletoFCFR.pas
  15. Estou gerando uma remessa do Santander, e o sequencial do lote do segmento P parece se comportar errado. Esta começando com o lote 1, corretamente, e depois, pula para o 5, ignorando o 2, 3 e 4. Vendo os fontes, o preenchimento ocorre da seguinte forma: function TACBrBancoSantander.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String; ....... ISequencia := (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo) * 4) + 1; O mesmo acontece no trailer do lote e do arquivo, essa multiplicação por 4. Desta forma, o banco me retornou que os totais estão incorretos. "REGISTRO DETALHE - SEGMENTO P REMESSA Posição 09 - 013 Nº seqüencial do registro de lote SEQUENCIAL DEVE INICIAR EM '00001' E SOMAR '1' A CADA LINHA ATÉ O FINAL DO LOTE, LINHA 4." Para corrigir, eu removi o " * 4", do sequencial do segmento P, e do trailer do arquivo e lote. 29052020143508_000005.txt
  16. Boa tarde, No retorno da caixa econômica padrão CNAB400, na procedure TACBrCaixaEconomica.LerRetorno400, o componente está pegando o valor do campo "SeuNumero" na posição errada: SeuNumero := copy(Linha,59,15); A posição acima é a do número do documento, na verdade deveria ser assim: SeuNumero := copy(Linha,32,25); Fiz a correção da unit, segue em anexo. ACBrBancoCaixa.pas
  17. Prezados(a), Estou com o mesmo problema que encontrei nesse topico que foi fechado por falta de respota . ,Verifiquei que foi instruido usar a rotina de NossoNumeroSemFormatacaoLerRetorno Porem a mesma é adaptada para o layout 240, assim não sendo possivel utilizar a mesma para layout 400 Visto isso, acredito que melhor solução seria a emprega nesse topico que citei acima
  18. Bom dia fiz uma atualização do ACBR hoje e a palheta do ACBRBoleto sumiu. Utilizo o Delphi 7. Estou fazendo a migração para Delphi Rio, porém tenho muita coisa ainda no Delphi 7 e preciso dessa palheta funcionando. Na aba package o componente aparece como instalado, porem clicando no botão components não tem nada. Alguem pode ajudar?
  19. Bom dia, se utilizar o metodo <ACBrMail>.Send consigo enviar de forma a imagem embedded, mas se por exemplo utilizar o metodo <ACBrBoleto>.EnviarEmail eu não consigo o mesmo resultado. Acabou sendo enviável alterar todo o meu fluxo de envio para outro método, desta forma na unit ACBrBoleto, alterei o comportamento para conseguir o resultado esperado. na rotina : dessa forma no envio de email estou passando assim xAssinatura.Add('<center><img src="cid:'+ExtractFileName(tabEmpresaEMAIL_HEADER.AsString)+'"></center>'); e no anexo : Anexos.Add(tabEmpresaEMAIL_HEADER.AsString); <ACBrBoleto>.EnviarEmail(xEMAIL_BOLETO, xRAZAO_SOCIAL+' :: Boleto B ancário', xAssinatura, true // Enviar PDF junto ,nil ,Anexos); Desde já agradeço a moderação. ACBrBoleto.pas
  20. Bom dia, iniciei um processo de homologação do banco safra (cobBancoSafra) e me deparei com dois problemas que não estou conseguindo resolver... 1º o nosso numero gerado no arquivo de remessa esta divergente do impresso pois ele esta adicionando um digito verificador na 9ª posição do NN. IfThen(NossoNumero = '000000000', '000000000', PadLeft(RightStr(NossoNumero,8),8,'0') + CalcularDigitoVerificador(ACBrTitulo)) + não consegui realizar a impressão utilizando esse digito verificador. 2º o banco esta obrigando que não tenha uma logo e esteja escrito 'BANCO SAFRA S/A' em seu lugar, esse eu posso simplesmente alterar para que escreva o texto, mas na próxima vez que o ACBR for atualizado eu teria que alterar novamente.
  21. Bom dia, Fiz a implementação para exportar boleto em formato Jpg, estou disponibilizando caso possível seja adicionado no repositório SVN. Esta alteração se fez necessário para efetuar a impressão em uma impressora Bluetooth portátil. Segue unit alterada para analise. ACBrBoleto.pas ACBrBoletoFCFR.dfm ACBrBoletoFCFR.pas
  22. Bom dia pessoal A empresa que trabalho necessitou a geração de remessa para o banco Safra 240 posições. Como não tinha no ACBR eu criei seguindo o padrão e estou disponibilizando. Pasta destino do arquivo: ...\Fontes\ACBrBoleto\ Grato ACBrBancoSafra.pas
  23. Bom dia, recentemente (Maio/2019) o Sicredi alterou seu layoute de cobrança CNAB400 para atender já no registro de títulos a opção de Negativação. Desta forma torna-se possível enviar já na remessa de cadastro de título a informação da Negativação. A utilização desta funcionalidade de negativação ficou muito semelhante ao já existente procedimento de protesto. Sendo assim alterei os fontes do ACBr para atender tal alteração. Porém só fiz a alteração para o layoute CNAB400. O manual atualizado da cobrança Sicredi CNAB400 onde possui agora os campos para informação da negativação está no link https://www.sicredi.com.br/html/para-sua-empresa/recebimentos/cobranca/arquivos/manual-cnab-400.pdf (Pág. 36 do manual, posição 193-194 e 195-196 do registro detalhe do arquivo de remessa). Também envio em anexo os fontes do ACBr alterados para atender essa opção de negativação. Peço que analisem os fontes abaixo para uma possível submissão para o repositório de fontes no SVN. ACBrBoleto.pas ACBrBancoSicredi.pas
  24. Tenho olhando e continuo olhando o código da demo, por dificuldades na instalação do componente acabei tendo que não instalar o fortes report e uso o fastreport, o fast funciona para minhas aplicações que usam o componente mas não consigo alterar o arquivo ini de forma correta para a demo funcionar com o fast, Mas minha dúvida é a seguinte, estou gerando o pdf do boleto com valor total mas quero parcelar, alimentei o campo parcela mas creio que não seja o jeito correto também selecionei carne no layou mas aparentemente eu não estou alimentando a variável certa: Mesmo atribuindo '10' para parcela ele não alimenta o campo de setparcela, estou bem perdido mas pesquisando dentro do código do componente, alguém pode me dar uma luz de como parcelar para que o pdf gerado sai com por exemplo uma entrada de valor: 1000,00R$ e saia com 10 boletos de 100,00R$ no mesmo pdf?
  25. Boa tarde, Estou tendo dificuldades para gerar boleto, estou recebendo o erro "Not enough timers available", logo após a chamada de "ACBrBoleto1.Imprimir" Debuguei o ACBRBoleto.pas mas não identifiquei o momento da falha, o debug passa por duas funções após a chamada de "Imprimir" dentro delas não ocorre parada Logo que finaliza ele retorna esse erro: Segue a baixo o código de tentativa de impressão: procedure TFrmBoletos.IMPRIMIRClick(Sender: TObject); var Titulo : TACBrTitulo; begin Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := Now; DataDocumento := Now; NumeroDocumento := '123'; EspecieDoc := '1234'; if 'SIM' = 'SIM' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; NossoNumero := '1245'; Carteira := '12456'; ValorDocumento := 1.40; Sacado.NomeSacado := '12456'; Sacado.CNPJCPF := '12456'; Sacado.Logradouro := '12456'; Sacado.Numero := '12456'; Sacado.Bairro := '12456'; Sacado.Cidade := '12456'; Sacado.UF := '12456'; Sacado.CEP := '12456'; ValorAbatimento := 0; LocalPagamento := '12456'; ValorMoraJuros := 0; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := 0; DataDesconto := 0; DataAbatimento := 0; DataProtesto := Now; PercentualMulta := 0; Mensagem.Text := '12456'; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := '12456'; Instrucao2 := '12456'; Parcela := 1; end; // grava o nosso numero na conta // Atualiza a consulta ACBrBoleto1.ACBrBoletoFC.DirLogo := 'C:\Users\Trial\Desktop\B.Texte\LogoColorido'; ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao; ACBrBoleto1.Banco.Digito := 123456; ACBrBoleto1.Banco.Numero := 12345; ACBrBoleto1.Cedente.Nome := 'Fulano'; ACBrBoleto1.Cedente.CodigoCedente := 'Fulanoteste'; ACBrBoleto1.Cedente.Agencia := 'Fulanoteste'; ACBrBoleto1.Cedente.AgenciaDigito := 'Fulanoteste'; ACBrBoleto1.Cedente.Conta := 'Fulanoteste'; ACBrBoleto1.Cedente.ContaDigito := 'Fulanoteste'; ACBrBoleto1.Cedente.UF := 'Fulanoteste'; ACBrBoleto1.NomeArqRemessa := 'TESTE'; ACBrBoleto1.Imprimir; end;
×
×
  • 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.