Pago Fácil, obtener dígito verificador
 

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

Muchas gracias

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.

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.

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

Saludos