Dígito verificado comprobantes fiscales AFIP

[ecfisa]

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);//Result:= IntToStr(i); (si queres solo el díg.)
      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

[marilinspi]

Hola Ecfisa, genial genial genial... si eso es lo que necesitaba, funciona perfecto! La verdad te felicito como en tan pocas lineas pudiste resolver esa rutina... ojala algún día yo pueda llegar a eso. Muchisimas gracias, saludos