Clarion - Calculo de C.B.U.

 
Vista:

Calculo de C.B.U.

Publicado por EDC (87 intervenciones) el 22/01/2009 01:09:12
Saludos. Necesito saber si alguien realizó una routine para el cálculo del CBU (de los dígitos verificadores en realidad). Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Calculo de C.B.U.

Publicado por guillermo (143 intervenciones) el 22/01/2009 23:24:47
hola, esto lo saque de una pagina (me parece que de evolution consulting). espero que te sirva

Digito Verificador para Cualquier Longitud
Si no sabes que longitud puede tener el numero a verificar podes probar verificarla con este codigo
Crea una funcion cuyo parametro es el numero a verificar y retorne el digito verificador. Ej. DigitoV(STRING xNumero),BYTE
!Inicializa
loc:Numero = xNumero
loc:Valor = 0
loc:Multiplo = 1

!Barrido y calculo
LOOP loc:Posicion = LEN(CLIP(loc:Numero)) TO 1 BY -1
loc:Multiplo += 1
IF loc:Multiplo > 7
loc:Multiplo = 2
END
loc:Valor += loc:Numero[loc:Posicion] * loc:Multiplo
END

loc:Digito = loc:Valor % 11

IF loc:Digito = 10
loc:Digito = 0
END

RETURN loc:Digito
Ruben Garcia (DiPS)
[editar]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

RE:Calculo de C.B.U.

Publicado por Marcelo Madelón (299 intervenciones) el 14/12/2022 12:53:22
Cálculo de cbu

Debe separarse la CBU en 2 bloques:

El 1º bloque contiene:
Banco (3 dígitos)
Dígito Verificador 1 (1 dígito) ! Debe tratarse como otro número cualquiera por que viene calculado
Sucursal (3 dígitos)
Dígito Verificador 2 (1 digito) ! Primer Dígito a calcular

El 2º bloque contiene:
Cuenta (13 dígitos)
Dígito Verificador (1 dígito) ! Segundo Dígito a calcular

Validación:

Por ejemplo: CBU 2850590940090418135201

Validación 1º bloque (28505909)

Banco = 285 (Descomponer en sus dígitos B1 = 2, B2 = 8, B3 = 5)
DigitoVerificador1 = 0
Sucursal = 590 (Descomponer en sus dígitos S1 = 5, S2 = 9, S3 = 0)
DigitoVerificador2 = 9
Obtener:

SUMA1 = B1*7 + B2*1 + B3*3 + DigitoVerificador1*9 + S1*7 + S2*1 + S3*3
SUMA1 = 2*7 + 8*1 + 5*3 + 0*9 + 5*7 + 9*1 + 0*3 = 14 + 8 + 15 + 0 + 35 + 9 + 0 = 81
Obtener:

DIFERENCIA1 = 10 - ultimo digito de SUMA1 = 10 - 1 = 9
Si DIFERENCIA1 = DigitoVerificador2 => CBU OK !! Primer OK


Validación 2º bloque (40090418135201)

Cuenta = 4009041813520 (Descomponer en sus dígitos C1 = 4, C2 = 0, C3 = 0, C4 = 9, C5 = 0, C6 = 4, C7 = 1, C8 = 8, C9 = 1, C10 = 3, C11 = 5, C12 = 2, C13 = 0
Digito = 1

Obtener:

SUMA2 = C1*3 + C2*9 + C3*7 + C4*1 + C5*3 + C6*9 + C7*7 + C8*1 + C9*3 + C10*9 + C11*7 + C12*1 + C13*3
SUMA2 = 12 + 0 + 0 + 9 + 0 + 36 + 7 + 8 + 3 + 27 + 35 + 2 + 0
SUMA2 = 139

Obtener:

DIFERENCIA2 = 10 - ultimo digito de SUMA2 = 10 - 9 = 1
Si DIFERENCIA2 = Digito => CBU OK !! Segundo OK


ATENCIÓN: UNICAMENTE SI LOS DOS DÍGITOS DAN OK ES CBU SERÁ VÁLIDO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

RE:Calculo de C.B.U.

Publicado por eduardo (6 intervenciones) el 14/12/2022 13:48:29
Gracias Muy amable!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

RE:Calculo de C.B.U.

Publicado por Marcelo Madelón (299 intervenciones) el 14/12/2022 14:10:34
Eduardo

Si se te complica puedo ayudarte con el código.

¿Desde donde escribís?

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Calculo de C.B.U.

Publicado por eduardo (6 intervenciones) el 14/12/2022 14:17:57
En realidad éste Post es del 2009, ya lo había solucionado, pero agradecí tu respuesta ya que no es muy normal que respondan por acá!! yo antes contestaba lo que sabía para dar una mano pero se durmió un poco el foro... Estoy en Mendoza, tengo un sistema de laboratorios bioquimicos que está en el 90% de los Laboratorio de la región. Lo mismo si necesitás algo, solo avisas! alli te abro mi email !! Saludos Marcelo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

RE:Calculo de C.B.U.

Publicado por Marcelo Madelón (299 intervenciones) el 14/12/2022 16:04:19
Si vi que es del 2009, pero pensé que a alguno les iba a servir

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Calculo de C.B.U.

Publicado por eduardo (6 intervenciones) el 14/12/2022 23:52:58
Por supuesto! todo source siempre es bien recibido! Saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar