Como pegar DV número sicoob?

[Simbolus]

Boa tarde pessoal, tudo bem?
Atualmente gero um relatório que apresenta os títulos que foram tratados no sistema (leitura do retorno)... Apresento a numeração do nosso número que consigo acessar através da propriedade NossoNumero , porém tem também o dígito do nosso número que gostaria de adicionar no relatório. Alguém sabe como obter ele?

[Felipe E. Resende Mesquita]

18 minutos atrás, Simbolus disse:

Boa tarde pessoal, tudo bem?
Atualmente gero um relatório que apresenta os títulos que foram tratados no sistema (leitura do retorno)... Apresento a numeração do nosso número que consigo acessar através da propriedade NossoNumero , porém tem também o dígito do nosso número que gostaria de adicionar no relatório. Alguém sabe como obter ele?

Boa tarde, Simbolus.

Veja esse tópico, talvez possa te ajudar:

 

[Simbolus]

9 minutos atrás, Felipe E. Resende Mesquita disse:

Boa tarde, Simbolus.

Veja esse tópico, talvez possa te ajudar:

 

Boa tarde Felipe,

Então eu cheguei verificar este tópico, mas nele seria para realizar o calculo e utilizar o dv do nosso número na geração de boleto e remessa.. No meu caso o dígito já está no arquivo de retorno, posição 74.. seria apenas para verificar se contém alguma propriedade que já faz a leitura dele, ou algo parecido...

[denerbuzato]

Boa tarde, Simbolus.

Veja esse tópico, talvez possa te ajudar:

 

 

[Simbolus]

22 horas atrás, denerbuzato disse:

Boa tarde, Simbolus.

Veja esse tópico, talvez possa te ajudar:

 

 

Dei uma olhada no tópico e testei a solução indicada, porém ao utilizar o ACBrBoleto1.Banco.CalcularDigitoVerificador().  no meu caso ele não estava gerando os dígitos corretos.
Então acabei alterando na função copy de 11 para 12...

Código atual:

NossoNumero := copy( Copy(Linha,63,11),Length( Copy(Linha,63,11) )-TamanhoMaximoNossoNum+1  ,TamanhoMaximoNossoNum);

Como deixei:

NossoNumero := copy( Copy(Linha,63,12),Length( Copy(Linha,63,12) )-TamanhoMaximoNossoNum+1  ,TamanhoMaximoNossoNum);

 

Obrigado pela ajuda.

Tópico pode encerrado...

[Dangelo2010]

Existe alguma função para verificar a validade do código de barras de cada boleto?

[Felipe E. Resende Mesquita]

 

Em 21/08/2018 at 14:36, Simbolus disse:

Dei uma olhada no tópico e testei a solução indicada, porém ao utilizar o ACBrBoleto1.Banco.CalcularDigitoVerificador().  no meu caso ele não estava gerando os dígitos corretos.
Então acabei alterando na função copy de 11 para 12...

Código atual:

NossoNumero := copy( Copy(Linha,63,11),Length( Copy(Linha,63,11) )-TamanhoMaximoNossoNum+1  ,TamanhoMaximoNossoNum);

Como deixei:

NossoNumero := copy( Copy(Linha,63,12),Length( Copy(Linha,63,12) )-TamanhoMaximoNossoNum+1  ,TamanhoMaximoNossoNum);

 

Obrigado pela ajuda.

Tópico pode encerrado...

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

 

7 horas atrás, Dangelo2010 disse:

Existe alguma função para verificar a validade do código de barras de cada boleto?

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.