[GUFA] Responder: Consultar CUIT

2016-06-13 Por tema Sergio D.Castellari 
Hola Oscar,

Abajo, transcribo la rutina completa que utilizo, tanto para consultar CUITs, 
como DNI y también ‘generar’ las consultas de Inscripción en formato PDF.

Aclaración: En la actualidad no utilizo VisualFox para programar, utilizo otro 
lenguaje muy similar (viene desde Clipper) llamado ooHG, que es gratuito y de 
código fuente abierto. No utilizo ninguna librería extra. Seguramente para 
utilizarlo en VF, deberán adaptar algo de código.
Estoy en esta lista, por que mis comienzos fueron con VisualFox (gracias Rafael 
Copquin), y además siempre aprendo algo, hay gente con muchísimo conocimiento.

Saludos,
Sergio Castellari
www.sdcinformatica.com.ar
www.facebook.com/sdcsolucionesinformaticas

Hola Gente,



Aqui va como lo hago:



*--*

* ConsultaPadronAFIP() *

* Recibe: cCuit > String con el CUIT/DNI a consultar   *

* lVer == .t. --> Visulualiza datos en pantalla*

* .f. --> Solo obtener la data (por Default)   *

*  cConstancia == .t. --> Solicita Constancia (PDF) del CUIT indicado  *

* .f. --> NO solicita Constancia (por Default) *

* Nota: Si cCUIT es un CUIT y lVer == .f. , la función carga un array privado  *

*   llamado: aPadronAFIP[] 
* 

* 23-09-2015 
--*

Function ConsultaPadronAFIP(cCuit,lVer,cConstancia)

LocalcCUIT_URL   :='https://soa.afip.gob.ar/sr-padron/v2/persona/'

Local cDNI_URL:='https://soa.afip.gob.ar/sr-padron/v2/personas/'

Local cConstancia_URL :='https://soa.afip.gob.ar/sr-padron/v1/constancia/'

Local oPadron, cTip:='', cResp:='', nLen:=0, hRes, cMsg:='', hData, hDir, 
aDNIs:={}

Local nCuit:='999', cDoc:='Sin identificar', cEstado:='', cNombre:='', 
cTipDoc:='', nDoc:=''

Local cDirec:='', cLocal:='', cCP:='', nProv:='00', cTipo:=''



Default lVerto .f.

Default cConstancia to .f.



#include "HBCompat.ch"

#INCLUDE 'hbxml.ch' 


  

#include "Fileio.ch"



*** Filtro el String de CUIT/DNI ***

cCuit:=AllTrim(StrTran(cCuit,'-',''))

If Len(cCuit)<6 .or. Len(cCuit)>11

  MsgStop('CUIT/CUIL/DNI: '+cCuit+chr(13)+'erroneo !!!','Verifique...') ; 
Return .f.

EndIf

If Len(cCuit)<11

  cTip:='D'

Else

  cTip:='C'

EndIf



*** Si solicita Constancia de Inscripción ***

If cTip == 'C' .and. cConstancia == .t.

  URLInternet(cConstancia_URL + cCuit) ; Return .t.

EndIf



*** Creo y Válido el objeto de conexión ***

oPadron:=Win_OleCreateObject('MSXML2.XMLHTTP')

If Empty(oPadron)

  oPadron:=Nil ; MsgExclamation('NO se pudo acceder al Servidor de la 
AFIP','Verificaciones de conexión...') ; Return .f.

EndIf



*** Consulto al Servidor de la AFIP ***

TRY 


  

  If cTip == 'C'   //CUIT...

If cConstancia == .f.

  oPadron:Open('GET', cCUIT_URL + cCuit, .F.)   ; oPadron:Send()

Else

  *MsgStop(cConstancia_URL + cCuit)

  *oPadron:Open('GET', cConstancia_URL + cCuit, .F.)

  *oPadron:setRequestHeader( 'Accept', 
'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' )

  *oPadron:setRequestHeader( 'Accept-Language', 
'es-AR,es;q=0.8,en-US;q=0.5,en;q=0.3' )

  *oPadron:setRequestHeader( 'Accept-Encoding', 'gzip, deflate' )

  *oPadron:setRequestHeader( 'Content-Type', 'application/octet-stream' )

  *oPadron:setRequestHeader( 'Connection', 'Keep-Alive' )

  *oPadron:Send()

EndIf

ElseIf cTip == 'D'   //DNI...

  oPadron:Open('GET', cDNI_URL + cCuit, .F. ) ; oPadron:Send()

Else

  oPadron:=Nil ; MsgStop('¡¡ CUIT/DNI no válido !! ','Verifique...') ; Break

EndIf

CATCH

  oPadron:=Nil ; MsgStop('¡¡ ERROR !! '+Chr(13)+'Controle conexión a Internet y 
Reintente...','Verifique conexión...') ; Return .f.

END

cResp:=oPadron:ResponseText



*** Si el status es diferente a 200, ocurrió algún error de conectividad con el 
WS ***

If oPadron:Status <> 200

  MsgStop('¡¡ ERROR !! '+Chr(13)+'Status:'+AllTrim(Str(oPadron:Status))+' 
'+oPadron:StatusText,'Error Enlace AFIP...')

  oPadron:=Nil ; Return .f.

EndIf

*** Solicito una Constancia de AFIP ***

*If cTip == 'C' .and. cConstancia == .t.

[GUFA] Responder: Consultar CUIT

2016-06-13 Por tema Pablo Pioli 
Yo habia enviado una version alternativa por si a alguno le servia









--





ifox = CreateObject("iFox.HTTP")

  resp =
  ifox.Get("https://soa.afip.gob.ar/sr-padron/v2/persona/30500010912;)

  ? resp

  

  SET CLASSLIB TO (LOCFILE("JSON.VCX", "VCX", "Buscar")) additive

  json = CREATEOBJECT("JSON")

  

  obj = json.Parse(resp)

  

  ? obj.data.nombre











Requiere iFox (https://github.com/ColiseoSoftware/ifox) y un parser json



http://www.sweetpotatosoftware.com/SPSBlog/PermaLink,guid,5f96efd7-f350-4bc8-86c5-caffd9e833eb.aspx
  (este use para el ejemplo)





o


https://vfpx.codeplex.com/wikipage?title=nfJson=Home



From: walter.com...@gmail.com
To: GUFA@mug.org.ar
Subject: [GUFA] Responder: Consultar CUIT
Date: Mon, 13 Jun 2016 09:49:36 -0300

Si yo pedi que nos diera una mano porque lo necesito, esta muy bueno el aporte, 
solo faltarían algunas cositas para poder usarlo.Esperamos que nos puedas 
enviar lo que nos falta.Gracias. Walter Cómito Analista de Sistemas MP 0397 
C.P.C.I.P.C. ›  walter.com...@gmail.com wcom...@hotmail.com '   +54 9 
351 494.4667 +54 9 3513.292.707 þ www.softram.com.ar Q  Si no es 
necesario, no imprima este correo.Todos somos responsables por el cuidado del 
medio ambiente.  NOTA DE CONFIDENCIALIDAD 
Este mensaje (y sus anexos) es confidencial y puede contener información de 
propiedad 
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje 
por error, 
por favor comuníquelo inmediatamente a walter.com...@gmail.com y tenga la 
amabilidad 
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a ninguna 
persona.Muchas Gracias.  De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre 
de Oscar Stasiulevicius
Enviado el: sábado, 11 de junio de 2016 14:21
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT Sergioaun no lo probe, pero vi en el 
mismo hilo de mails que no les funciono, y esperaban las librerias que se 
referenciaban en el codigoGracias! El 11 de junio de 2016, 11:02, Sergio 
D.Castellari  escribió:Hola Oscar, No requiere de 
ninguna libreria especial. Fijate en la lista, que postee todo el codigo que 
utilizo. Saludos,Sergio   From: Oscar Stasiulevicius Sent: Saturday, June 11, 
2016 10:46 AMTo: GUFA List Member Subject: [GUFA] Responder: Consultar CUIT 
Sergio, estas consultas serian para los "mismos" cuits, clientes/proveedores 
habituales?Atte.Oscar El 26 de abril de 2016, 23:27, Ing César Luque 
 escribió:Sergio Aguardamos tu colaboraciòn. Saludos.- 

Cèsar Luque From: Sergio Castellari -mvl- Sent: Tuesday, April 26, 2016 6:38 
PMTo: GUFA List Member Subject: [GUFA] Responder: Consultar CUIT S se 
puede.  AFIP tiene un ws para consultar el estado. Incluso podes obtener el pdf 
de constancia de inscripción. 
Ahora no estoy con la compu,  pero si me acuerdo cuando llegue,  te paso como 
lo hago.
Además,  también podes enviar un dni y obtener el cuit desde la afip 
Saludos, Sergio Castellari 
Enviado desde mi teléfono inteligente Sony Xperia™


 Sergio . escribió Amigos, hay forma de consultar ONLINE si un CUIT de 
un cliente está en regla con AFIP ?

Saludos

  
 

  
Libre de virus. www.avast.com

[GUFA] Responder: Consultar CUIT

2016-06-13 Por tema Walter Comito 
Si yo pedi que nos diera una mano porque lo necesito, esta muy bueno el aporte, 
solo faltarían algunas cositas para poder usarlo.

Esperamos que nos puedas enviar lo que nos falta.









Gracias.



Walter Cómito

 Analista de Sistemas

 MP 0397 C.P.C.I.P.C.



›    walter.com...@gmail.com

   wcom...@hotmail.com



'   +54 9 351 494.4667

 +54 9 3513.292.707



þ   www.softram.com.ar



Q  Si no es necesario, no imprima este correo.

Todos somos responsables por el cuidado del medio ambiente.





NOTA DE CONFIDENCIALIDAD
Este mensaje (y sus anexos) es confidencial y puede contener información de 
propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje 
por error,
por favor comuníquelo inmediatamente a   
walter.comito@  gmail.com y tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a ninguna 
persona.

Muchas Gracias.



De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Oscar Stasiulevicius
Enviado el: sábado, 11 de junio de 2016 14:21
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT



Sergio

aun no lo probe, pero vi en el mismo hilo de mails que no les funciono, y 
esperaban las librerias que se referenciaban en el codigo

Gracias!



El 11 de junio de 2016, 11:02, Sergio D.Castellari  
escribió:

Hola Oscar,



No requiere de ninguna libreria especial. Fijate en la lista, que postee todo 
el codigo que utilizo.



Saludos,

Sergio







From: Oscar Stasiulevicius   

Sent: Saturday, June 11, 2016 10:46 AM

To: GUFA List Member 

Subject: [GUFA] Responder: Consultar CUIT



Sergio, estas consultas serian para los "mismos" cuits, clientes/proveedores 
habituales?

Atte.

Oscar



El 26 de abril de 2016, 23:27, Ing César Luque  escribió:

Sergio



Aguardamos tu colaboraciòn.



Saludos.-

Cèsar Luque

From: Sergio Castellari -mvl- 

Sent: Tuesday, April 26, 2016 6:38 PM

To: GUFA List Member 

Subject: [GUFA] Responder: Consultar CUIT



S se puede.  AFIP tiene un ws para consultar el estado. Incluso podes 
obtener el pdf de constancia de inscripción.
Ahora no estoy con la compu,  pero si me acuerdo cuando llegue,  te paso como 
lo hago.
Además,  también podes enviar un dni y obtener el cuit desde la afip

Saludos, Sergio Castellari

Enviado desde mi teléfono inteligente Sony Xperia™



 Sergio . escribió 

Amigos, hay forma de consultar ONLINE si un CUIT de un cliente está en regla 
con AFIP ?



Saludos









---
El software de antivirus Avast ha analizado este correo electrónico en busca de 
virus.
https://www.avast.com/antivirus