Calcular un digito de chequeo

[droguerman]

podria ser algo asi (falta optimizar)

Código Delphi [-]
var
  texto : string;
  i : integer;
  suma : integer;
  resultado : integer;
 begin
  texto := IntToStr(numero);
  suma := 0;
  for i:= 1 to length(texto) do
  begin
      suma := suma + StrToInt( texto[i] ) * (1+(i mod 2));
  end;
 resultado := 30-suma;
end;

[GrupoDatasoft]

la operacion seria asi:
si el codigo del cliente fuera:
2156674

entonces:
(2 X 2) + (1 X 1) + (5 X 2) + (6 X 1) + (6 X 2) + (7 X 1) + (4 X2)

los ceros intermedios no se descartan, ellos se multiplican por su primo correspondiente, solo se descarta si el cero es al principio.

[GrupoDatasoft]

Es decir, siempre la secuencia va a ser : 2 1 2 1 2 1 2 1

[GrupoDatasoft]

Exactamente lo que me piden en el banco es lo siguiente:

TAL CUAL:

DEPOSITO NACIONAL CON REFERENCIA
RUTINA MODULO 5

El código del cliente es un campo de 8 caracteres; el cálculo se hace tomando a partir del primer digito significativo (no cero) de izquierda a derecha y multiplicando sucesivamente por 2 y por 1, se suman luego los resultados de estas multiplicaciones y se aproxima a la centena más próxima por arriba o por abajo.

Código de cliente 081802
8 1 8 0 2
X2 X1 X2 X1 X2
16 1 16 0 4

(1+6) + 1 + (1+6) + 0 + 4 = 19 Este valor se resta de 20 y el dígito es 1.

Código de cliente 0156674
1 5 6 6 7 4
X2 X1 X2 X1 X2 X1
2 5 12 6 14 4

2 + 5 + (1+ 2) + 6 + (1+4) + 4 = 25 se resta de 30 o se le resta 20 el dígito es 5
Cuando la sumatoria de las multiplicaciones termina en 5 es indiferente restarlo la decena más próxima por arriba o restarle las más prósima por abajo el dígito será el mismo 5.
Los documentos pueden contener como primer carácter una letra en cuyo caso se sonsiderara el primer dígito numérico a la iaquierda para efectuar las multiplicaciones respectivas.

[GrupoDatasoft]

Exactamente eso es lo que debo aplicar en delphi, y no tengo idea de como hacerlo, alguna idea que me pueda ayudar??

[droguerman]

El código que te envie hace eso, la parte (1 + (i mod 2) ) realiza la multiplicación por 1 o por 2 según el cado, el error de la resta deberia ser algo como (falta optimizar otra vez).

Código Delphi [-]
  if resultado mod 10 > 5 then
    resultado := suma mod 10
 else 
   resultado := suma - (suma div 10)*10;

saludos