CONSULTA SIT. IVA CON CUIT

[Roberto Tello & Asoc. - Estudio Informatico]

Feliz 2016 para todos.... 

Consulto: se puede con un cuit saber su situación ante afip..?? (RI -EX - MT etc...)

Estuve buscando y encontré algo sobre una API Padrón... de afip... pero no logro encontrarla.-

Alguna sugerencia...??

Saludos y Felicidades Totales...!!!

--
Roberto 

[Arnaldo Toledano]

1.- Si lo queres hacer de manera automática.
Baja el padrón desde acá

 

http://www.afip.gov.ar/genericos/cinscripcion/archivocompleto.asp

Acá te paso los códigos

'NI', 'N' = No Inscripto
'AC', 'S' = Activo
'EX' = Exento
'NA' = No alcanzado 
'XN' = Exento no alcanzado
'AN' = Activo no alcanzado


Si queres acceder al sitio de afip, para ver el CUIT y tipo de inscripcion.

https://seti.afip.gov.ar/padron-puc-constancia-internet/ConsultaConstanciaAction.do

Arnaldo Toledano

[ACEROS CHUBUT]

Roberto:

            Yo lo resolvi de la siguiente manera.

             en principio se descar el archivo Zip de la pagina web de AFIP,  se descomprime y te genera un archivo *.s1, que es un archivo de texto plano, normal.

[ACEROS CHUBUT]

se me apreto sin querer queriendo.... sigo...

en principio se descarga el archivo Zip de la pagina web de AFIP,  se descomprime y te genera un archivo *.s1, que es un archivo de texto plano, normal.

lo importo a un cursor temporal, hago un substr() del campo general y voy evaluando las opciones que estan descriptas en la web de afip, o bien las que te paso Tesys., en breve te publico el codigo para que lo veas.

[ACEROS CHUBUT]

Me da verguenza publicarte el codigo por aca, porque soy muy mal programador, ( de echo no lo soy, soy un corajudo y nada mas), y ni hablar de los comentarios que deberia hacer... solo espero que no se burlen de mi...... ajajajajaaj

Esta tan mal programado, que haceme las preguntas que quieras asi te lo explico mejor.

[zelimott]

Esta codificación no me acuerdo de donde la obtuve (puede ser de este mismo foro)

A lo mejor sirve

LOCAL lcTempTxtFile, lnGetResults, lcURL

*-- Arma la variable que referencia al archivo tempporario 'TXT'.

*-- Usa la actual carpeta del VFP para TEMP [SYS(2023)] y

*-- un nombre de archivo random [SYS(2015)]

lcTempTxtFile = FORCEEXT(ADDBS(SYS(2023)) + SYS(2015), "TXT")

lnGetResults = 0

*-- Al final colocar el cuit del contribuyente a bajar

lcGetURL = "https://soa.afip.gob.ar/sr-padron/v2/persona/30709033103"

DECLARE LONG URLDownloadToFile IN URLMON.DLL ;

LONG, STRING, STRING, LONG, LONG

*-- Obtiene los datos usando el Urlmon.dll y lo guarda

*-- en el archivo temporario 'TXT'.

*-- Esta funcion retorna un valor distinto de cero si algo falla.

lnGetResults = URLDownloadToFile(0, lcGetURl, lcTempTxtFile, 0, 0)

IF lnGetResults # 0

MESSAGEBOX("Falla de lectura",0,"")

RETURN .F.

ENDIF

modi file (lcTempTxtFile)

ERASE (lcTempTxtFile)

[Jorge Rubinich]

Excelente, Zelimott, funciona perfecto este código. 

Ahora habrá que ver como desenmarañar en forma automática la respuesta para presentarlo mejor al usuario, pero la verdad que trae toda la info necesaria.-

Jorge Rubinich