| Validar el Cuit (Argentina) |
|
|
|
| Valida el numero de cuit/L para argentina, no permite ingresar un n° de cuit que no existe. |
Cualquier duda escribanme a [email protected]
y... AGUANTE CLIPPER!!!!!!
DO WHILE CONDIIVA = "RI"
@21,1 CLEAR TI 22,79
@12,54 GET CUI PICTURE "99/99999999/9"
READ
ELEM10=SUBSTR(LTRIM(STR(CUI)),10,1)
ELEM10N=VAL(ELEM10)
ELEM9=SUBSTR(LTRIM(STR(CUI)),9,1)
ELEM9N=VAL(ELEM9)
ELEM8=SUBSTR(LTRIM(STR(CUI)),8,1)
ELEM8N=VAL(ELEM8)
ELEM7=SUBSTR(LTRIM(STR(CUI)),7,1)
ELEM7N=VAL(ELEM7)
ELEM6=SUBSTR(LTRIM(STR(CUI)),6,1)
ELEM6N=VAL(ELEM6)
ELEM5=SUBSTR(LTRIM(STR(CUI)),5,1)
ELEM5N=VAL(ELEM5)
ELEM4=SUBSTR(LTRIM(STR(CUI)),4,1)
ELEM4N=VAL(ELEM4)
ELEM3=SUBSTR(LTRIM(STR(CUI)),3,1)
ELEM3N=VAL(ELEM3)
ELEM2=SUBSTR(LTRIM(STR(CUI)),2,1)
ELEM2N=VAL(ELEM2)
ELEM1=SUBSTR(LTRIM(STR(CUI)),1,1)
ELEM1N=VAL(ELEM1)
DO WHILE .T.
SUMA = ELEM10N * 2 + ELEM9N * 3 + ELEM8N * 4 + ELEM7N * 5;
+ ELEM6N * 6 + ELEM5N * 7 + ELEM4N * 2 + ELEM3N * 3;
+ ELEM2N * 4 + ELEM1N * 5
RESTO = SUMA / 11
IF RESTO = 0
COMCUI = 0
EXIT
ELSE
IF RESTO = 1 .AND. ELEM2N = 0
ELEM2N = 4
LOOP
ELSE
IF RESTO = 1 .AND. ELEM2N = 7
ELEM2N = 4
LOOP
ELSE
COMCUI = 11 - RESTO
EXIT
ENDIF
ENDIF
ENDIF
ENDDO
ELEM11 = SUBSTR(LTRIM(STR(CUI)),11,1)
ELEM11N=VAL(ELEM11)
IF COMCUI <> ELEM11N
@21,1 SAY PADC("El CUIT ingresado no corresponde, presione una tecla para continuar")
INKEY(0)
LOOP
ELSE
EXIT
ENDIF
ENDDO
|
|
| |
| Terminos de Uso |
|
1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.
2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.
3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.
4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.
|
|
|
|
|
