nrspx

boa tarde, estava com o mesmo problema, uso delphi 7, e estava tentando imprimir pelo quickreport, tentei de várias formas e não consegui, instalei o outro componente que imprime o boleto, se eu nao to enganado é fortesreport, e imprimiu certinho... optei por este porque já foi desenvolvido pelo acbr, muito mais fácil de colocar na aplicação, no meu caso é claro, mas de repente pode ajudar mais alguma pessoa... até mais.

consegui resolver a questao da carteira, para resolver meu problema momentaneamente fiz a seguinte alteração na função "MontarCampoNossoNumero" por favor, vejam se está correta e se posso deixa-la dessa maneira... function TACBrBancoBrasil.MontarCampoNossoNumero (const ACBrTitulo: TACBrTitulo ) : String; var ANossoNumero : string; begin ANossoNumero := FormataNossoNumero(ACBrTitulo); if (Length(ACBrBanco.ACBrBoleto.Cedente.Convenio) = 7) or (Length(ANossoNumero) = 17) then Result:= ANossoNumero else Result := ANossoNumero + '-' + CalcularDigitoVerificador(ACBrTitulo); end; a alteração feita foi adicionar or (Length(ANossoNumero) = 17). esta alteração está correta?

Estou com dificuldades para validar o layout do boleto do Banco do Brasil, segundo o anexo 5 do manual de especificações técnicas para confecção de bloqueto de cobrança do Banco do Brasil, o campo nosso numero não tem digito verificador, apenas possui 17 posições livres para a montagem do campo nosso numero. Mas, para o componente ACBr Boleto, convenio de 6 digitos, ele coloca o digito verificador no nosso numero. alguem sabe alguma coisa sobre isso? para resolver meu problema momentaneamente fiz a seguinte alteração na função "MontarCampoNossoNumero" por favor, vejam se está correta e se posso deixa-la dessa maneira... function TACBrBancoBrasil.MontarCampoNossoNumero (const ACBrTitulo: TACBrTitulo ) : String; var ANossoNumero : string; begin ANossoNumero := FormataNossoNumero(ACBrTitulo); if (Length(ACBrBanco.ACBrBoleto.Cedente.Convenio) = 7) or (Length(ANossoNumero) = 17) then Result:= ANossoNumero else Result := ANossoNumero + '-' + CalcularDigitoVerificador(ACBrTitulo); end; a alteração feita foi adicionar or (Length(ANossoNumero) = 17). obrigado, até logo.

pessoal, nao consigo validar o layout do boleto bancario... segue o codigo aqui abaixo... falta passar alguma informação? ou estou passando alguma informação incorreta? procedure Tfrmdocumentosreceber.InsereDocumento; var Titulo : TACBrTitulo; strNossoNumero: String; intTeste: Integer; begin Titulo := bltPrincipal.CriarTituloNaLista; intTeste := (qryContaCorrenteInstituicao.FieldbyName('SEQUENCIANROBOLETO').AsInteger); Inc(intTeste); strNossoNumero := IntToStr(intTeste); with Titulo do begin if (adoqcliente.FieldByName('TIPOPESSOA').AsString = 'F') then begin Sacado.Pessoa := pFisica; end else begin Sacado.Pessoa := pJuridica; end; Aceite := atNao; Vencimento := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime; DataDocumento := tabdados.FieldbyName('DT.EMISSAO').AsDateTime; NumeroDocumento := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString; EspecieDoc := 'RC'; DataProcessamento := Now; Carteira := qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString; NossoNumero := strNossoNumero; Sacado.NomeSacado := adoqcliente.FieldByName('NOME').AsString; Sacado.CNPJCPF := adoqcliente.FieldByName('CNPJ_CPF').AsString; Sacado.Logradouro := adoqcliente.FieldByName('ENDERECO').AsString; Sacado.Numero := adoqcliente.FieldByName('IDCLIENTE').AsString; Sacado.Bairro := adoqcliente.FieldByName('BAIRRO').AsString; Sacado.Cidade := adoqcliente.FieldByName('DESCRICAO').AsString; Sacado.UF := adoqcliente.FieldByName('UF').AsString; Sacado.CEP := adoqcliente.FieldByName('CEP').AsString; ValorDocumento := tabdados.FieldbyName('VLR.FACE').AsFloat; ValorDocumento := tabdados.FieldbyName('VLR.FACE').AsFloat; LocalPagamento := 'PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO.'; OcorrenciaOriginal.Tipo := toRemessaBaixar; end; end; a informação que o pessoal do banco me retornou é que o nosso numero que vai no corpo do boleto não tem dígito verificador e que o codigo de barras está incorreto tambem, mas muita gente usa esse componente, ele é seguro e estavel, devo estar cometendo algum erro, alguem pode me ajudar? obrigado pessoal.. Teste.PDF

Ok, vou testar...

Well, qual a carteira que voce está utilizando? para o campo carteira eu estou passando o valor "18-019"... como devo passar? apenas 18?

Well testei da forma que voce disse e ainda nada... para sair certo eu tenho que fazer desta forma... Titulo := bltPrincipal.CriarTituloNaLista; intTeste := StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString); Inc(intTeste); strNossoNumero := IntToStr(intTeste); with Titulo do begin Aceite := atNao; Vencimento := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime; DataDocumento := tabdados.FieldbyName('DT.EMISSAO').AsDateTime; NumeroDocumento := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString; EspecieDoc := tabdados.FieldbyName('ESPECIE').AsString; DataProcessamento := Now; Carteira := Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 01, 02) + Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 03, 03); NossoNumero := strNossoNumero + '00000'; Sacado.NomeSacado := adoqcliente.FieldByName('NOME').AsString; Sacado.CNPJCPF := adoqcliente.FieldByName('CNPJ_CPF').AsString; Sacado.Logradouro := adoqcliente.FieldByName('ENDERECO').AsString; Sacado.Numero := adoqcliente.FieldByName('IDCLIENTE').AsString; Sacado.Bairro := adoqcliente.FieldByName('BAIRRO').AsString; Sacado.Cidade := adoqcliente.FieldByName('DESCRICAO').AsString; Sacado.UF := adoqcliente.FieldByName('UF').AsString; Sacado.CEP := adoqcliente.FieldByName('CEP').AsString; ValorDocumento := tabdados.FieldbyName('VLR.FACE').AsFloat; ValorDocumento := tabdados.FieldbyName('VLR.FACE').AsFloat; Instrucao1 := frmMensagem.edMensagem1.Text + ' ' + frmMensagem.edMensagem2.Text; Instrucao2 := frmMensagem.edMensagem3.Text; end; mas essa solução nao deve estar correta.... obrigado Well por toda a ajuda prestada até o presente momento...

ninguem passou por esse problema pessoal? ou ao menos conseguiram visualizar meu erro? to doido já...

engraçado.... comigo nao está funcionando... saí o numero do convenio, mas o numero do documento sai zerado... acho que estou cometendo algum erro primario... mas nao estou encontrando... bltPrincipal.ListadeBoletos.Clear; Titulo := bltPrincipal.CriarTituloNaLista; strNossoNumero := IntToStr(StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString) + 1); with Titulo do begin Aceite := atNao; Vencimento := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime; DataDocumento := tabdados.FieldbyName('DT.EMISSAO').AsDateTime; NumeroDocumento := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString; EspecieDoc := tabdados.FieldbyName('ESPECIE').AsString; DataProcessamento := Now; Carteira := Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 01, 02) + Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 03, 03); NossoNumero := strNossoNumero; Sacado.NomeSacado := adoqcliente.FieldByName('NOME').AsString; Sacado.CNPJCPF := adoqcliente.FieldByName('CNPJ_CPF').AsString; Sacado.Logradouro := adoqcliente.FieldByName('ENDERECO').AsString; Sacado.Numero := adoqcliente.FieldByName('IDCLIENTE').AsString; Sacado.Bairro := adoqcliente.FieldByName('BAIRRO').AsString; Sacado.Cidade := adoqcliente.FieldByName('DESCRICAO').AsString; Sacado.UF := adoqcliente.FieldByName('UF').AsString; Sacado.CEP := adoqcliente.FieldByName('CEP').AsString; ValorDocumento := tabdados.FieldbyName('VLR.FACE').AsFloat; ValorDocumento := tabdados.FieldbyName('VLR.FACE').AsFloat; Instrucao1 := frmMensagem.edMensagem1.Text + ' ' + frmMensagem.edMensagem2.Text; Instrucao2 := frmMensagem.edMensagem3.Text; end;

ainda nem cheguei nessa parte... to preso na impressao dele ainda... tem algum tipo de jogada que tem que fazer para imprimir o nosso numero corretamente?

legal... consegui imprimir o nosso numero, mas o numero do documento sai zerado... fica assim: XXXXXX0000-5... alguem pode me falar como resolve? agradecimentos antecipados.

convenio de 6 caracteres.

Pessoal, bom dia.... Sou novo por aqui... e tenho uma dúvida... no boleto do BB, o nosso numero é de 11 digitos, ou 10? pois estou tentando passar 11 digitos e dá uma mensagem que o nosso numero é de apenas 10... mas na impressao do boleto o nosso numero sai com vários zeros a esquerda... alguem sabe como eu devo passar o nosso numero? sei que minha duvida é algo primario mas estou com dificuldades... agredeço e muito a quem puder me ajudar... ate mais...