Clarion - Calculo de C.B.U.

   
Vista:

Calculo de C.B.U.

Publicado por EDC (82 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
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

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