RE: ayuda con digito verificador

Article View: chile.comp

Article #1474

#1474

From: Fernando D�az Poblete
Date: Mon, 03 Jul 2000 00:00

28 lines
1533 bytes

esto esta en clipper creo que es entendible.-
A1=(VAL(SUBSTR(mRUT,1,1))*3)+(VAL(SUBSTR(mRUT,2,1))*2)+;
   (VAL(SUBSTR(mRUT,4,1))*7)+(VAL(SUBSTR(mRUT,5,1))*6)+;
   (VAL(SUBSTR(mRUT,6,1))*5)+(VAL(SUBSTR(mRUT,8,1))*4)+;
   (VAL(SUBSTR(mRUT,9,1))*3)+(VAL(SUBSTR(mRUT,10,1))*2)
B1=A1-(INT((A1/11))*11)
IF B1=0
  RETURN "0"
ENDIF
C1=11-B1
IF C1=10
  RETURN "K"
ELSE
  RETURN ALLTRIM(STR(C1))
ENDIF

Erick Apablaza <eapablaza@hotmail.com> escribi� en el mensaje de noticias
8jk97o$7k058@nova.entelchile.net...
> No he podido acordarme de como sacar el digito verficador para un RUT, yo
se
> que se multiplican del 1 al 7, de divide por 11, pero no lo tengo muy
> claro............AYUNDENME PLEASE
>
> SALU2
>
>
>
>

Technical Details

Message-ID: <8jqab0$pml47@nova.entelchile.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <8jk97o$7k058@nova.entelchile.net>

Show Full Headers

Complete Article Headers

X-Google-Language: SPANISH,ASCII
X-Google-Thread: f9ea8,3b60de664ba79706
X-Google-Attributes: gidf9ea8,public
X-Google-Thread: 1079b3,3b60de664ba79706
X-Google-Attributes: gid1079b3,public
X-Google-Thread: 107d6b,3b60de664ba79706
X-Google-Attributes: gid107d6b,public
X-Google-Thread: 107515,6808b1d88304ee7c
X-Google-Attributes: gid107515,public
From: "Fernando D�az Poblete" <fernandodiaz@entelchile.net>
Subject: RE: ayuda con digito verificador
Date: 2000/07/03
Message-ID: <8jqab0$pml47@nova.entelchile.net>
X-Deja-AN: 642922217
References: <8jk97o$7k058@nova.entelchile.net>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Organization: ENTEL S.A.
X-MSMail-Priority: Normal
Newsgroups: chile.comp,chile.comp.misc,chile.comp.pc,chile.consultas

Reply to Parent Message