Acbrboleto - Codigo De Barras

[pattarelli]

Ola Caros Colegas,

 

Minha duvida é a seguinte , estou usando o ACBRBoleto, por sinal otimo componente, para o HSBC , mas esta ocorrentdo o seguinte na hora que gero o boleto .

 

O codigo de barras esta ficando assim:

 

39993587300000001005914701000603040020700101

 

e banco dis que tem que ficar assim:

 

39991587300000001005914701000603042070010001

 

Não estou conseguindo localizar o erro , alguem poderia me ajudar ?

 

Trabalho com Delphi 7 , FireBird 2.5

 

Agradeco desde ja

 

Att

Paulo

 

 

 

[pattarelli]

Olha vi o seguinte ,

na hora que passo a seguinte infomacao para o componente ;

   DMFinanceiro.ACBrBoleto.Cedente.Conta := DMFinanceiro.CDSBancosCONTA.AsString;

       que seria = 20700, nao sei ainda o porque ele coloca assim 0020700

 

Alguem tem uma ideia do que seja ?
 

[Juliomar Marchetti]

Use o demo e faça um passo a passo pra gerar o problema e depois repasse aqui !

[pattarelli]

Juliomar Marchetti , Boa Tarde

 

Vou fazer o que vc sujeriu , mas como estou com uma certo urgencia fiz umas mudancas na unit acbrboletohsbc e resolveu para o momento .

 

 {'CSB' Cobranca Registrada}
      if aCarteira = '1' then
       begin
         Parte2 := CalcularFatorVencimento(Vencimento) +
                   IntToStrZero(Round(ValorDocumento * 100), 10) +
                   RightStr(padR(ANossoNumero, 13, '0'),11) +       // precisa passar nosso numero + digito
                   padL(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4, '0') +
                   padL(OnlyNumber(ACBrBoleto.Cedente.Conta), 5, '0')+
                   padL(ACBrBoleto.Cedente.ContaDigito,4,'0');

 

 

Aqui Tambem;

 

constructor TACBrBancoHSBC.create(AOwner: TACBrBanco);
begin
   inherited create(AOwner);
   fpDigito                := 9;
   fpNome                  := 'HSBC';
   fpNumero                := 399;
   fpTamanhoMaximoNossoNum := 11;
   fpTamanhoAgencia        := 4;
   fpTamanhoConta          := 5;
   fpTamanhoCarteira       := 3;
end;

 

 

Em vermelho indica as mudancas , para mim resolveu , nao sei se agi correto , mas vou fazer o teste na demo.

 

Muito Obrigado pela ajuda.

[Marcos Aurélio de Souza]

OnlyNumber, esta dando erro aqui o rodar o projeto, alguém pode me ajudar

[Juliana Tamizou]

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.

[Marcos Aurélio de Souza]

fico feliz, ao menos responderam para dar uma bronca

[Régys Silveira]

11 minutos atrás, Marcos Aurélio de Souza disse:

fico feliz, ao menos responderam para dar uma bronca

Com certeza se você abrir um tópico correto não esquecendo de buscar primeiro para verificar se já existe sua dúvida, e neste tópico der informações completas do que ocorreu, com mensagens de erro do delphi e tudo o mais, alguém vai lhe ajudar, lembre-se que o fórum é feito de pessoas que se ajudam. 

A boa convivência também é muito importante e ficar tirando sarro das pessoas que ajudam no fórum, não vai lhe ajudar a ter uma resposta.

[Marcos Aurélio de Souza]

Sr Régys, não foi esta a minha intenção, quero em algum determinado momento agregar valores aqui também. vou seguir os passos que me passou, e peço desculpas se alguém se sentiu ofendido.

 

Obrigado