Pago Fácil, obtener dígito verificador

[DamianG]

Hola a todos, alguien tendrá el algoritmo en delphi para generar el dígito verificador de PAGO FACIL de Argentina?

Muchas gracias

[ecfisa]

Hola DamianG.

La verdad es que es la primera vez que oigo hablar del tema, pero según el modo de obtención explicado en este [enlace], sería:

Código Delphi [-]
function DVPagoFacil(Valor: string): Byte;
var
  i,serie: Integer;
  mult: Single;
begin
  serie := 1;
  mult  := 0;
  for i:= 1 to Length(Valor) do
  begin
    if serie > 9 then serie := 3;
    mult := mult + StrToInt(Valor[i])*serie;
    Inc(serie,2);
  end;
  mult := mult / 2;
  Result := Trunc(mult) mod 10;
end;

Llamada ejemplo:

Código Delphi [-]
  Edit2.Text:= IntToStr(DigVerifPF(Edit1.Text));

Saludos.

[ecfisa]

Hola DamianG.

Cambié el título original de tu mensaje: "Pago facil" por "Pago fácil, obtener digito verificador" por ser más significativo.

Saludos.

[DamianG]

Gracias ecfisa!!!! muy amable, lo pruebo!

Saludos