Ana Fernanda

Prezados boa tarde! Estou implementando na minha aplicação a geração do boleto pelo acbr para o Banco do Brasil. Não consigo fazer minha aplicação gerar os mesmos dados do boleto gerado pelo sistema do BB. Em anexo seguem os boletos e a seguir o código da minha aplicação. Se alguém puder me ajudar, desde já agradeço. if testa = 0 then begin // tudo validado, gerando o boleto na tabela e em seguida imprimindo dm.tb_boleto.open; dm.tb_boleto.Append; dm.tb_boletocodigo_cliente.value:= dm.query1.fieldbyname('Código').value; dm.tb_boletovencimento.value:=strtodate(maskedit3.text); dm.tb_boletonosso_numero.value:=inttostr(nosso_numero); dm.tb_boletovalor.Value:=total; dm.tb_boletocodigo_filial.value:=cod_filial; dm.tb_boletonumero_documento.value:=edit3.text; dm.tb_boletocodigo_banco.value:=codigo_banco; dm.tb_boletocodigo_mensagem_banco.value:=memo1.text; dm.tb_boletodata_documento.value:=strtodate(maskedit2.text); dm.tb_boletodata_processamento.value:=strtodate(maskedit2.text); if edit7.text <> '' then dm.tb_boletomulta.value:=strtofloat(edit7.text); if edit5.text <> '' then dm.tb_boletojuros.value:=strtofloat(edit5.text); dm.tb_boletoespecie.value:='DM'; dm.tb_boletoaceite.value:='NÃO'; dm.tb_boletomoeda.value:='R$'; dm.tb_boletostatus_boleto.value:='E'; dm.tb_boleto.post; application.MessageBox('Boleto gerado com sucesso! Preparando a impressão!','SISTEMALOCAR'); // utilizando o acbr para imprimir o boleto codigo_boleto:=dm.tb_boletocodigo_boleto.Value; if dm.tb_boleto.Locate('codigo_boleto',codigo_boleto,[]) = true then begin dm.tb_banco.close; dm.tb_banco.Open; if dm.tb_banco.Locate('codigo_banco',codigo_banco,[]) = true then begin try begin Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin texto:=numero_banco; texto:='c:\teste_boleto\sistema_aluga\logo_banco\'+texto+'.bmp'; // ACBrBoletoFCFortes1.DirLogo:=pchar(texto); ACBrBoletoFCFortes1.DirLogo:='c:\teste_boleto\sistema_aluga\logo_banco\'; ACBrBoletoFCFortes1.Filtro:=finenhum; ACBrBoletoFCFortes1.LayOut:=lpadrao; ACBrBoleto1.Banco.Digito:=dm.tb_bancodigito_numero_banco.asinteger; ACBrBoleto1.Banco.Numero:=dm.tb_banconumero_banco.asinteger; if dm.tb_banconumero_banco.asinteger = 104 then acbrboleto1.Banco.TipoCobranca:=cobCaixaEconomica; if dm.tb_banconumero_banco.asinteger = 001 then acbrboleto1.Banco.TipoCobranca:=cobBancoDoBrasil; dm.tb_filial.open; dm.tb_filial.locate('codigo_filial',cod_filial,[]); ACBrBoleto1.Cedente.Nome:=dm.tb_filialdesc_filial.asstring; cnpj:= dm.tb_filialcnpj.asstring; result :=copy(cnpj,1,2)+'.'+copy(cnpj,3,3)+'.'+copy(cnpj,6,3)+'/'+ copy(cnpj,9,4)+'-'+copy(cnpj,13,2); acbrboleto1.cedente.CNPJCPF:=result; acbrboleto1.Cedente.UF:=dm.tb_filialestado.asstring; acbrboleto1.Cedente.CodigoCedente:=dm.tb_bancocodigo_cedente.asstring; acbrboleto1.Cedente.Agencia:=dm.tb_banconumero_agencia.AsString; acbrboleto1.Cedente.AgenciaDigito:=dm.tb_bancodigito_agencia.AsString; acbrboleto1.cedente.Conta:=dm.tb_banconumero_conta.asstring; acbrboleto1.cedente.ContaDigito:=dm.tb_bancodigito_conta.asstring; acbrboleto1.cedente.Convenio:=dm.tb_bancoconvenio.AsString; // montando os dados do boleto Vencimento := strtodate(maskedit3.text); DataDocumento := strtodate(maskedit2.text) ; NumeroDocumento := dm.tb_boletonumero_documento.asstring; EspecieDoc := dm.tb_boletoespecie.asstring; if dm.tb_boletoaceite.AsString = 'SIM' then Aceite := atSim else Aceite := atNao; DataProcessamento := strtodate(maskedit2.text); Carteira := dm.tb_bancocarteira.AsString; if dm.tb_banconumero_banco.asinteger = 104 then begin NossoNumero := inttostrzero(nosso_numero,15); nossonumero:= '8'+copy(nossonumero,2,14); end; if dm.tb_banconumero_banco.asinteger = 001 then begin // ACREDITO QUE O PROBLEMA ESTEJA AQUI n1:=dm.tb_bancoconvenio.value; nossonumero:=n1+DM.tb_boletonosso_numero.ASSTRING; end; ValorDocumento := dm.tb_boletovalor.AsFloat; dm.tb_cliente.open; if dm.tb_cliente.locate('codigo_cliente',dm.tb_boletocodigo_cliente.Value,[]) = true then begin Sacado.NomeSacado := dm.tb_clientenome_cliente.AsString; if dm.tb_clientetipo.Value = '1' then begin cnpj:=dm.tb_clientecnpj.AsString; result :=copy(cnpj,1,2)+'.'+copy(cnpj,3,3)+'.'+copy(cnpj,6,3)+'/'+ copy(cnpj,9,4)+'-'+copy(cnpj,13,2); Sacado.CNPJCPF :=result; end else begin cnpj:=dm.tb_clientecpf.AsString; result :=copy(cnpj,1,3)+'.'+copy(cnpj,4,3)+'.'+copy(cnpj,7,3)+'-'+ copy(cnpj,10,2); Sacado.CNPJCPF :=result; end; Sacado.Logradouro := dm.tb_clienteendereco.value; Sacado.Numero := dm.tb_clientenumero.AsString; Sacado.Bairro := dm.tb_clientebairro.AsString; Sacado.Cidade := dm.tb_clientecidade.AsString; Sacado.UF := dm.tb_clienteestado.AsString; Sacado.CEP := copy(dm.tb_clientecep.AsString,1,5)+'-'+copy(dm.tb_clientecep.AsString,6,3); end; ValorAbatimento := 0; LocalPagamento := dm.tb_bancolocal_pagamaneto.AsString; ValorMoraJuros := 0; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := 0; DataDesconto := 0; DataAbatimento := 0; PercentualMulta := 0; textocompleto:=dm.tb_boletocodigo_mensagem_banco.AsString; if dm.tb_boletomulta.AsString <> '' then textocompleto:=textocompleto+'Após vencimento multa de '+formatfloat('R$ ###,##0.00',(dm.tb_boletovalor.value*dm.tb_boletomulta.value/100)); if dm.tb_boletojuros.AsString <> '' then textocompleto:=textocompleto+#13+'Após vencimento juros ao dia de '+formatfloat('R$ ###,##0.00',(dm.tb_boletovalor.value*dm.tb_boletojuros.value/100)); Mensagem.Text :=textocompleto; OcorrenciaOriginal.Tipo := toRemessaBaixar; Parcela := 1; end; try acbrboleto1.Imprimir; ACBrBoleto1.ListadeBoletos.Clear; DM.TB_BANCO.CLOSE; dm.tb_boleto.close; dm.query1.close; except application.messagebox('Algum erro ocorreu e o boleto não pode ser impresso! Tente a reimpressão!','SISTEMALOCAR'); end; end;

Bom dia pessoal, Gerei a sequência de boletos necessária para tentar a homologação. Mas depois de algum tempo recebi o arquivo em anexo, onde o problema de todos os boletos é o mesmo. "erros de representação numérica". A seguir o código utilizado para gerar o boleto: if dm.tb_banco.Locate('codigo_banco',codigo_banco,[]) = true then begin try begin Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin texto:=numero_banco; texto:='c:\teste_boleto\sistema_aluga\logo_banco\'+texto+'.bmp'; // ACBrBoletoFCFortes1.DirLogo:=pchar(texto); ACBrBoletoFCFortes1.DirLogo:='c:\teste_boleto\sistema_aluga\logo_banco\'; ACBrBoletoFCFortes1.Filtro:=finenhum; ACBrBoletoFCFortes1.LayOut:=lpadrao; ACBrBoleto1.Banco.Digito:=dm.tb_bancodigito_numero_banco.asinteger; ACBrBoleto1.Banco.Numero:=dm.tb_banconumero_banco.asinteger; if dm.tb_banconumero_banco.asinteger = 104 then acbrboleto1.Banco.TipoCobranca:=cobCaixaEconomica; if dm.tb_banconumero_banco.asinteger = 001 then acbrboleto1.Banco.TipoCobranca:=cobBancoDoBrasil; dm.tb_filial.open; dm.tb_filial.locate('codigo_filial',cod_filial,[]); ACBrBoleto1.Cedente.Nome:=dm.tb_filialdesc_filial.asstring; cnpj:= dm.tb_filialcnpj.asstring; result :=copy(cnpj,1,2)+'.'+copy(cnpj,3,3)+'.'+copy(cnpj,6,3)+'/'+ copy(cnpj,9,4)+'-'+copy(cnpj,13,2); acbrboleto1.cedente.CNPJCPF:=result; acbrboleto1.Cedente.UF:=dm.tb_filialestado.asstring; acbrboleto1.Cedente.CodigoCedente:=dm.tb_bancocodigo_cedente.asstring; acbrboleto1.Cedente.Agencia:=dm.tb_banconumero_agencia.AsString; acbrboleto1.Cedente.AgenciaDigito:=dm.tb_bancodigito_agencia.AsString; acbrboleto1.cedente.Conta:=dm.tb_banconumero_conta.asstring; acbrboleto1.cedente.ContaDigito:=dm.tb_bancodigito_conta.asstring; acbrboleto1.cedente.Convenio:=dm.tb_bancoconvenio.AsString; // montando os dados do boleto Vencimento := strtodate(maskedit3.text); DataDocumento := strtodate(maskedit2.text) ; NumeroDocumento := dm.tb_boletonumero_documento.asstring; EspecieDoc := dm.tb_boletoespecie.asstring; if dm.tb_boletoaceite.AsString = 'SIM' then Aceite := atSim else Aceite := atNao; DataProcessamento := strtodate(maskedit2.text); Carteira := dm.tb_bancocarteira.AsString; NossoNumero := IntToStrZero(nosso_numero,10); ValorDocumento := dm.tb_boletovalor.AsFloat; dm.tb_cliente.open; if dm.tb_cliente.locate('codigo_cliente',dm.tb_boletocodigo_cliente.Value,[]) = true then begin Sacado.NomeSacado := dm.tb_clientenome_cliente.AsString; if dm.tb_clientetipo.Value = '1' then begin cnpj:=dm.tb_clientecnpj.AsString; result :=copy(cnpj,1,2)+'.'+copy(cnpj,3,3)+'.'+copy(cnpj,6,3)+'/'+ copy(cnpj,9,4)+'-'+copy(cnpj,13,2); Sacado.CNPJCPF :=result; end else begin cnpj:=dm.tb_clientecpf.AsString; result :=copy(cnpj,1,3)+'.'+copy(cnpj,4,3)+'.'+copy(cnpj,7,3)+'-'+ copy(cnpj,10,2); Sacado.CNPJCPF :=result; end; Sacado.Logradouro := dm.tb_clienteendereco.value; Sacado.Numero := dm.tb_clientenumero.AsString; Sacado.Bairro := dm.tb_clientebairro.AsString; Sacado.Cidade := dm.tb_clientecidade.AsString; Sacado.UF := dm.tb_clienteestado.AsString; Sacado.CEP := copy(dm.tb_clientecep.AsString,1,5)+'-'+copy(dm.tb_clientecep.AsString,6,3); end; ValorAbatimento := 0; LocalPagamento := dm.tb_bancolocal_pagamaneto.AsString; ValorMoraJuros := 0; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := 0; DataDesconto := 0; DataAbatimento := 0; PercentualMulta := 0; textocompleto:=dm.tb_boletocodigo_mensagem_banco.AsString; if dm.tb_boletomulta.AsString <> '' then textocompleto:=textocompleto+#13+' Após vencimento multa de '+formatfloat('R$ ###,##0.00',(dm.tb_boletovalor.value*dm.tb_boletomulta.value/100)); if dm.tb_boletojuros.AsString <> '' then textocompleto:=textocompleto+#13+' Após vencimento juros ao dia de '+formatfloat('R$ ###,##0.00',(dm.tb_boletovalor.value*dm.tb_boletojuros.value/100)); Mensagem.Text :=textocompleto; OcorrenciaOriginal.Tipo := toRemessaBaixar; Parcela := 1; end; try acbrboleto1.Imprimir; ACBrBoleto1.ListadeBoletos.Clear; DM.TB_BANCO.CLOSE; dm.tb_boleto.close; dm.query1.close; except application.messagebox('Algum erro ocorreu e o boleto não pode ser impresso! Tente a reimpressão!','SISTEMALOCAR'); end; end; except application.messagebox('Algum erro ocorreu e o boleto não pode ser impresso! Tente a reimpressão!','SISTEMALOCAR'); end; end; homologacao.pdf

Estou tentando imprimir meu primeiro boleto com acbrboleto fortes e estou recebendo está mensagem. Alguém pode me ajudar? Ana Fernanda

Olá Pessoal, Hoje baixei o tortoise e tentei fazer a instalação do ACBr boleto para qreport. Mas a instalação não se completa e dá uma mensagem de erro. Olhei o arquivo de log e diz: ACBr_BoletoFC_Quick.dpk(32) Fatal: Required package 'QR5RunD7' not found Compilation failure Ocorreu erro ao instalar a CAPICOM em "C:\Windows\SysWOW64": "Ocorreu o seguinte erro ao tentar copiar o arquivo "Capicom\capicom.dll": 5 - Acesso negado" Ocorreu erro ao instalar a OPENSSL em "C:\Windows\SysWOW64": "Ocorreu o seguinte erro ao tentar copiar o arquivo "OpenSSL\libeay32.dll": 5 - Acesso negado" Alguém pode me ajudar. Desde já agradeço, Ana Fernanda