[Resolvido] Calcular dv cobrança Banco Real

Alberto, kal eh a regra desta funcao? tem como passar?

Abçs

Junior, agradeço a atenção

Segue a consulta. Um abraço.

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER FUNCTION [dbo].Modulo10)
RETURNS CHAR(1)
AS
BEGIN
declare
@max smallint,
@contador smallint,
@peso varchar(24),
@resto smallint,
@valor smallint,
@soma int,
@retorno int

 select @peso = '121212121212121212121212'
 select @max = datalength(@numero)
 select @peso = right(@peso, @max)
 set @contador = @max+1
 set @soma = 0
 loop:
 set @contador = @contador-1
 set @valor = isnull((ascii(substring(@peso, @contador, 1))-48) *

(ascii(substring(@numero, @contador, 1))-48), 0)
set @soma = isnull((select (case when (@valor<10) then
@valor when (@valor>9) then @valor-10 end)), 0)+@soma
set @soma = isnull((select (case when (@valor<10) then
null when (@valor>9) then 1 end)), 0)+@soma
if (@contador >1) goto loop

 select @resto= sum(@soma)%10
 select @retorno = case @resto when 0 then 0 else 10-@resto end
 return(Convert(char(1), @retorno))

END

alberto, passe alguns resultados deste select

SUBSTRING(BaseCobranca, 0, 24)

Abçs

Junior, o pessoal do ScriptBrasil me ajudou a resolver.

Bem como voce também indicou para ver o select do substring

Criei uma nova função ModuloCob colocando 24 como base. Fico imensamente grato a você pela ajuda.

Amanhã deve vir a resposta da analise de 3 boletos.

Acredito que o DV Geral se der problemas, será da mesma forma e farei as devidas adaptações.

Segue o select completo:

 

 

SELECT associado, baseseq, BaseCobranca, dbo.ModuloCob(SUBSTRING(BaseCobranca, 0, 25)) AS DvCobranca, DVGeral, CodigoDebarras,

'3569' + SUBSTRING(CodigoDebarras, 20, 5) AS BCampo1, dbo.Modulo10('3569' + SUBSTRING(CodigoDebarras, 20, 5)) AS DVCampo1, SUBSTRING(CodigoDebarras, 25, 10) AS BCampo2, dbo.Modulo10(SUBSTRING(CodigoDebarras, 25, 10)) AS DVCampo2, SUBSTRING(CodigoDebarras, 35, 10) AS BCampo3, dbo.Modulo10(SUBSTRING(CodigoDebarras, 35, 10)) AS DVCampo3, exercicio, dtvcto, dtproc, vr, seq, Codigo, Carteira, Agencia, Cedente, DvCedente FROM dbo.QryBoletosMovR3

Um abraço.

Fico feliz em saber que resolveu o seu problema e obrigado pelo feedback....

eu imaginei que o problema poderia ser no subselect....

Abçs e boa sorte