Validar CUIL/CUIT

[aspabper]

Buen día foro.
Una consulta.
Alguien tendrá o hizo validaciones de claves tributarias!!?
Si alguien tiene algún ejemplo y me lo puede pasar estaría muy agradecido.
Saludos

[anibalponce]

Hola, te paso el que uso para el cuit. Ya no recuerdo de donde lo saqué
Saludos
Anibal

ValidaCUIT PROCEDURE (Cuit1) ! Declare Procedure
cuit2 STRING(255)
digver LONG
lon LONG
fac LONG
car STRING(1)

CODE
cuit2=cuit1
digver=0
fac=2
lon=LEN(CLIP(cuit2))
LOOP i#=lon-1 TO 1 BY -1
car=SUB(cuit2,i#,1)
IF car<'0' OR car>'9' THEN
CYCLE
.
digver=digver+(car*fac)
fac+=1
IF fac>7 THEN
fac=2
.
.
digver=11-(digver%11)
IF digver>9 THEN
digver=0
.
cuit2=SUB(cuit2,1,lon-1) & FORMAT(digver,@n01)
RETURN(cuit2)

[aspabper]

Hola, te paso el que uso para el cuit. Ya no recuerdo de donde lo saqué
Saludos
Anibal

ValidaCUIT PROCEDURE (Cuit1) ! Declare Procedure
cuit2 STRING(255)
digver LONG
lon LONG
fac LONG
car STRING(1)

CODE
cuit2=cuit1
digver=0
fac=2
lon=LEN(CLIP(cuit2))
LOOP i#=lon-1 TO 1 BY -1
car=SUB(cuit2,i#,1)
IF car<'0' OR car>'9' THEN
CYCLE
.
digver=digver+(car*fac)
fac+=1
IF fac>7 THEN
fac=2
.
.
digver=11-(digver%11)
IF digver>9 THEN
digver=0
.
cuit2=SUB(cuit2,1,lon-1) & FORMAT(digver,@n01)
RETURN(cuit2)

Hola Anibal, buenos día
Muchas gracias por el aporte y la buena onda de responder.
Soy nuevo en Clarion, hace año hice una rutina en la Vers. 5 pero no fue significativa.
Estoy tratando de retomar nuevamente, te confieso que me cuesta mucho pero voy logrando entende el IDE (de apoco, claro).
Una consulta más.
Puedo hacerte consultas o preguntarte cuando tenga dificultades en algo...!!?
Indicame si lo hago por este foro o por algún correo que me pases.
Un saludo cordial y muchas gracias nuevamente .

[anibalponce]

Hola Pablo, me parece que lo mejor para vos es practicar asi te familiarizas con la herramienta. Las dudas las podes resolver buscando en el foro, hay mucha informacion. Si no la encontrás siempre alguien te va a ayudar con algo puntual. Seguramente hay alguno que haga algun soporte personalizado, pero no creo que te haga falta.
Saludos
Anibal

[aspabper]

Hola Anibal
Muchas gracias
Saludos