Hola marilinspi.
Si al que te referis es al punto "C" de este:
enlace, siguiendo lo que entendí de las indicaciones me quedaría:
Código Delphi
[-]
function DigitoVerificador(Numero: string): string;
var
i, par, non, sum : Integer;
begin
par:= 0;
non:= 0;
for i:= 1 to Length(Numero) do
if i mod 2 = 0 then
Inc(par, StrToInt(Numero[i]))
else
Inc(non, StrToInt(Numero[i]));
non:= non * 3;
sum:= non + par;
for i:= 0 to 9 do
if (sum + i) mod 10 = 0 then
begin
Result:= Numero + IntToStr(i); Exit;
end;
end;
llamada:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DigitoVerificador('01234567890'));
end;
salida:
Como verás, funciona correctamente con el número de ejemplo que da la afip en la página y según la lógica, pienso que tendría que hacerlo con cualquier otro. Pero tendrías que verificarlo con otros datos reales, lamento no disponer de ellos ahora para realizar mas pruebas.
Saludos