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]

  Em 20/08/2018 at 16:28, 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?

Expandir  

Boa tarde, Simbolus.

Veja esse tópico, talvez possa te ajudar:

 

[Simbolus]

  Em 20/08/2018 at 16:47, Felipe E. Resende Mesquita disse:

Boa tarde, Simbolus.

Veja esse tópico, talvez possa te ajudar:

 

Expandir  

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]

  Em 20/08/2018 at 19:26, denerbuzato disse:

Boa tarde, Simbolus.

Veja esse tópico, talvez possa te ajudar:

 

 

Expandir  

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 17: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...

Expandir  

Obrigado por reportar.

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

 

  Em 29/08/2018 at 11:54, Dangelo2010 disse:

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

Expandir  

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.