Calcular un digito de chequeo
Hola a todos, estoy haciendo una aplicación para recaudo en bancos, el banco me exige una rutina para calcular el digito de chequeo correspondiente a cada cliente, pero no tengo ni idea de como implementarlo a delphi, trabajo con delphi 5 y tablas paradox, alguien me puede ayudar?
la rutina es la siguiente:
Codigo del cliente: 0156674 (maximo de 7 digitos)
1 5 6 6 7 4
x2 x1 x2 x1 x2 x1
2 5 12 6 14 4
Se suman los resultados así:
2 + 5 + (1+2) + 6 + (1+4) + 4 = 25, este resultado siempre debe restarse de 30 y el resultado es el digito de chequeo que corresponde a este codigo de cliente. Como ven los resultados de 2 digitos como el 12 se tienen que sumar entre si es decir: 12 se suma (1+2). Bueno, el algoritmo lo entiendo muy bien porque es fácil, lo que no sé es como aplicar eso en delphi a partir del código del cliente que se encuentra en un dbedit y calcular el digito de chequeo de este cliente y poner el resultado en otro dbedit. Agradezco enormemente a quien me pueda ayudar con este caso porque de verdad es muy importante para mí poder resolver esto. Gracias a todos los que me den una pista de como hacerlo.
|