[GUFA] Responder: Consultar CUIT
AFIP ***
*If cTip == 'C' .and. cConstancia == .t.
* fh:=fcreate('ok-constancia-20227327406-2015-09-23.pdf')
* if fh<0
*Ferase(GetCurrentFolder()+'\ok-constancia-20227327406-2015-09-23.pdf')
*msgexclamation("Handle create?",'1')
*return .f.
* endif
* fwrite(fh, cResp)
* fclose(fh)
* MsgStop('ok-constancia-20227327406-2015-09-23.pdf fue creado')
* oPadron:=Nil ; Return .t.
*EndIf
*** Grabo la Respuesta ***
MemoWrit('ConsultaPadron.txt',cResp)
*** Visualizo en pantalla la Respuesta ***
*MsgStop(cResp,'Respuesta AFIP...') //ACTIVAR para hacer DEBUGGER
*** Decodifico jSon (java) ***
nLen:=HB_JsonDecode(cResp , @hRes) //AFIP devuelve un
archivo en formato Java jSON
If !HB_HGET(hRes,'success')
oPadron:=Nil ; MsgStop('¡¡ ERROR !!. NO existe persona Fisica/Juridica con
ese N°...','Verifique CUIT/CUIL/DNI...') ; Return .f.
EndIf
If cTip == 'C' //Ingreso CUIT...
*** Leo el Hash DATA ***
hData:=HB_HGETDEF(hRes,'data',.f.)
If Valtype(hData) == 'H'
nCuit :=AllTrim(Str(HB_HGETDEF(hData,'idPersona',999)))
//N° de CUIT
cDoc :=HB_HGETDEF(hData,'tipoClave','Sin identificar')
//CUIT/DNI/CUIL
cTipo :=HB_HGETDEF(hData,'tipoPersona','')
//ACTIVO o INACTIVO
cEstado:=HB_HGETDEF(hData,'estadoClave','')
//FISICA o JURIDICA
cNombre:=HB_HGETDEF(hData,'nombre','')
//Apellido y Razon Social
cTipDoc:=HB_HGETDEF(hData,'tipoDocumento','')
//DNI, LC, etc
nDoc :=HB_HGETDEF(hData,'numeroDocumento','')
//N° de documento
*** Leo el Hash DOMICILIOFISCAL ***
hDir:=HB_HGETDEF(hData,'domicilioFiscal',.f.)
If Valtype(hDir) == 'H'
cDirec:=HB_HGETDEF(hDir,'direccion','')
//Calle, Nro. Piso, etc
cLocal:=HB_HGETDEF(hDir,'localidad','')
//Localidad (no se nombra cuando es Capital)
cCP :=HB_HGETDEF(hDir,'codPostal','')
//Codigo postal (8 caracteres)
nProv :=AllTRim(Strzero(HB_HGETDEF(hDir,'idProvincia',0),2))
//N2 Obtener descripciones a través del recurso /parametros/v1/provincias
Endif
EndIf
If lVer
*** Elijo SOLO ver los datos de consulta ***
cMsg:='Razon Social: '+cNombre+' ['+cEstado+']'+chr(13)
cMsg+=cDoc+' '+nCuit+' ['+cTipo+']'+chr(13)
cMsg+='Doc: '+cTipDoc+' '+nDoc+chr(13)
cMsg+='Domicilio: '+cDirec+chr(13)
cMsg+=cLocal+' CP:'+cCP
MsgStop(cMsg,'Respuesta servidor AFIP...')
Else
*** Cargo array privado aPadronAFIP ***
aPadronAFIP[1] :=nCuit
aPadronAFIP[2] :=cDoc
aPadronAFIP[3] :=cTipo
aPadronAFIP[4] :=cEstado
aPadronAFIP[5] :=cNombre
aPadronAFIP[6] :=cTipDoc
aPadronAFIP[7] :=nDoc
aPadronAFIP[8] :=cDirec
aPadronAFIP[9] :=cLocal
aPadronAFIP[10]:=cCP
aPadronAFIP[11]:=nProv
EndIf
Else //Ingreso DNI
*** Leo el Hash DATA ***
hData:=HB_HGETDEF(hRes,'data',.f.)
If Valtype(hData) == 'A'
cMsg:='CUIT/CUIL:'+chr(13)
For n=1 to Len(hData)
cMsg+=AllTrim(Str(hData[n]))+chr(13)
Next
MsgStop('El DNI ingresado generó:'+chr(13)+chr(13)+cMsg+chr(13)+;
'Puede utilizar este CUIT/CUIL para consultar datos
fiscales','Respuesta servidor AFIP...')
ELse
MsgStop('El DNI ingresado generó un ERROR !!!','Respuesta servidor AFIP...')
EndIf
EndIf
*HB_HGET( , ) ->
*hb_hGetDef( aHash, Key, DefaultVal )
Return .t.
From: Oscar Stasiulevicius
Sent: Saturday, June 11, 2016 2:20 PM
To: GUFA List Member
Subject: [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 <sergio197...@yahoo.com.ar>
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 <clu...@arnet.com.ar> 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 cuan
[GUFA] Responder: Consultar CUIT
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 <sergio197...@yahoo.com.ar> 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
<clu...@arnet.com.ar> 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
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. › <mailto:walter.com...@gmail.com> walter.com...@gmail.com <mailto:wcom...@hotmail.com> wcom...@hotmail.com ' +54 9 351 494.4667 +54 9 3513.292.707 þ <http://www.softram.com.ar/> 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 <mailto:walter.com...@gmail.com> walter.comito@ <http://gmail.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 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 <sergio197...@yahoo.com.ar> 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 <mailto:correo.oscar.stasiulevic...@gmail.com> Sent: Saturday, June 11, 2016 10:46 AM To: GUFA List Member <mailto:GUFA@mug.org.ar> 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 <clu...@arnet.com.ar> escribió: Sergio Aguardamos tu colaboraciòn. Saludos.- Cèsar Luque From: Sergio Castellari -mvl- <mailto:sergio197...@yahoo.com.ar> Sent: Tuesday, April 26, 2016 6:38 PM To: GUFA List Member <mailto:GUFA@mug.org.ar> 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
[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 < sergio197...@yahoo.com.ar> 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 <correo.oscar.stasiulevic...@gmail.com> > *Sent:* Saturday, June 11, 2016 10:46 AM > *To:* GUFA List Member <GUFA@mug.org.ar> > *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 <clu...@arnet.com.ar> > escribió: > >> Sergio >> >> Aguardamos tu colaboraciòn. >> >> Saludos.- >> >> Cèsar Luque >> *From:* Sergio Castellari -mvl- <sergio197...@yahoo.com.ar> >> *Sent:* Tuesday, April 26, 2016 6:38 PM >> *To:* GUFA List Member <GUFA@mug.org.ar> >> *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 >> >> >> >
[GUFA] Responder: Consultar CUIT
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 <clu...@arnet.com.ar> 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
[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 <clu...@arnet.com.ar> escribió: > Sergio > > Aguardamos tu colaboraciòn. > > Saludos.- > > Cèsar Luque > *From:* Sergio Castellari -mvl- <sergio197...@yahoo.com.ar> > *Sent:* Tuesday, April 26, 2016 6:38 PM > *To:* GUFA List Member <GUFA@mug.org.ar> > *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 > > >
[GUFA] Responder: Consultar CUIT
Hola gente!,
Primero y antes que nada...DISCULPAS!! (estoy en varias listas de programación)
En la intención de ayudar al colega, ofrecí mi colaboración sin darme cuenta
que mi ayuda fue en un lenguaje similar a Fox pero no igual. Me di cuenta al
leer éste correo...
Soy programador independiente y si bien utilicé FOX (Gracias y saludos Rafael
Copquin), termine eligiendo otro lenguaje xBase visual open free compatible con
Clipper y muy parecido a Fox.
Obviamente que si lo quieren copiar y pegar directamente en Fox, no va a
funcionar.
Lo importante son las direcciones URLs de la AFIP y saber que devuelve un Hash
en formato json con el formato descripto en el PRG. Deberán saber cuales son
las instrucciones que tiene Fox, para ‘levantar’ el Hash.
Nuevamente disculpas, solo quería colaborar!!! De todas formas quedo a
disposición de quien lo necesite.
Sergio Castellari
www.sdcinformatica.com.ar
www.facebook.com/sdcsolucionesinformaticas
From: Sergio .
Sent: Thursday, April 28, 2016 5:27 PM
To: GUFA List Member
Subject: [GUFA] Responder: Consultar CUIT
Idem no logro arrancar
El 28 de abril de 2016, 17:08, PabloC <pablo.canon...@mug.org.ar> escribió:
Y también faltan los include
#include "HBCompat.ch"
#INCLUDE 'hbxml.ch'
#include "Fileio.ch"
From: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] On Behalf Of Walter Comito
Sent: jueves, 28 de abril de 2016 16:48
To: GUFA List Member <GUFA@mug.org.ar>
Subject: [GUFA] Responder: Consultar CUIT
NO SE QUE ESTOY HACIENDO MAL
ME DA ERROR EN TODAS ESTAS LINEAS
cCuit = "20160134322"
lVer = .T.
cConstancia = .T.
ConsultaPadronAFIP(cCuit,lVer,cConstancia)
Local cCUIT_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:=''
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 Ramon Giubi
Enviado el: jueves, 28 de abril de 2016 12:41
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT
Buenisimo…esa info no la tenia y es mejor que la otra opción que estaba
usando.
Gracias.
Saludos.
Ramon Giubi
De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Sergio D.Castellari
Enviado el: miércoles, 27 de abril de 2016 12:53
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT
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/'
Loca
[GUFA] Responder: Consultar CUIT
Y también faltan los include
#include "HBCompat.ch"
#INCLUDE 'hbxml.ch'
#include "Fileio.ch"
From: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] On Behalf Of Walter Comito
Sent: jueves, 28 de abril de 2016 16:48
To: GUFA List Member <GUFA@mug.org.ar>
Subject: [GUFA] Responder: Consultar CUIT
NO SE QUE ESTOY HACIENDO MAL
ME DA ERROR EN TODAS ESTAS LINEAS
cCuit = "20160134322"
lVer = .T.
cConstancia = .T.
ConsultaPadronAFIP(cCuit,lVer,cConstancia)
Local cCUIT_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:=''
Gracias.
Walter Cómito
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
* <mailto:walter.com...@gmail.com> walter.com...@gmail.com
<mailto:wcom...@hotmail.com> wcom...@hotmail.com
' +54 9 351 494.4667
+54 9 3513.292.707
* <http://www.softram.com.ar/> 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 <mailto:walter.com...@gmail.com>
walter.comito@ <http://gmail.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> [mailto:GUFA@mug.org.ar] En
nombre de Ramon Giubi
Enviado el: jueves, 28 de abril de 2016 12:41
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT
Buenisimo…esa info no la tenia y es mejor que la otra opción que estaba usando.
Gracias.
Saludos.
Ramon Giubi
De: GUFA@mug.org.ar <mailto:GUFA@mug.org.ar> [mailto:GUFA@mug.org.ar] En
nombre de Sergio D.Castellari
Enviado el: miércoles, 27 de abril de 2016 12:53
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT
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 =
[GUFA] Responder: Consultar CUIT
NO SE QUE ESTOY HACIENDO MAL
ME DA ERROR EN TODAS ESTAS LINEAS
cCuit = "20160134322"
lVer = .T.
cConstancia = .T.
ConsultaPadronAFIP(cCuit,lVer,cConstancia)
Local cCUIT_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:=''
Gracias.
Walter Cómito
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
› <mailto:walter.com...@gmail.com> walter.com...@gmail.com
<mailto:wcom...@hotmail.com> wcom...@hotmail.com
' +54 9 351 494.4667
+54 9 3513.292.707
þ <http://www.softram.com.ar/> 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 <mailto:walter.com...@gmail.com>
walter.comito@ <http://gmail.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 Ramon Giubi
Enviado el: jueves, 28 de abril de 2016 12:41
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT
Buenisimo…esa info no la tenia y es mejor que la otra opción que estaba usando.
Gracias.
Saludos.
Ramon Giubi
De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Sergio D.Castellari
Enviado el: miércoles, 27 de abril de 2016 12:53
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT
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()
[GUFA] Responder: Consultar CUIT
Buenisimo…esa info no la tenia y es mejor que la otra opción que estaba usando.
Gracias.
Saludos.
Ramon Giubi
De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Sergio D.Castellari
Enviado el: miércoles, 27 de abril de 2016 12:53
Para: GUFA List Member
Asunto: [GUFA] Responder: Consultar CUIT
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.
* fh:=fcreate('ok-constancia-20227327406-2015-09-23.pdf')
* if fh<0
*Ferase(GetCurrentFolder()+'\ok-constancia-20227327406-2015-09-23.pdf')
*msgexclamation("Handle create?",'1')
*return .f.
* endif
* fwrite(fh, cResp)
* fclose(fh)
* MsgStop('ok-constancia-20227327406-2015-09-23.pdf fue
[GUFA] Responder: Consultar CUIT
Perdon, pero lo de la consulta de CUIT fue respondido, porque tengo problemas muchas veces que no me entran los mails de la lista. Gracias. Cristian Conte El mié 27-abr-16, Sergio . <gestion.pampas...@gmail.com> escribió: Asunto: [GUFA] Responder: Consultar CUIT Para: "GUFA List Member" <GUFA@mug.org.ar> Fecha: miércoles, 27 de abril de 2016, 10:22 Eso es lo que estaría necesitando Sergio, aguardo tu aporte. Saludos y gracias. Sergio El 26 de abril de 2016, 23:27, Ing César Luque <clu...@arnet.com.ar> 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
[GUFA] Responder: Consultar CUIT
Stop('¡¡ ERROR !!. NO existe persona Fisica/Juridica con
ese N°...','Verifique CUIT/CUIL/DNI...') ; Return .f.
EndIf
If cTip == 'C' //Ingreso CUIT...
*** Leo el Hash DATA ***
hData:=HB_HGETDEF(hRes,'data',.f.)
If Valtype(hData) == 'H'
nCuit :=AllTrim(Str(HB_HGETDEF(hData,'idPersona',999)))
//N° de CUIT
cDoc :=HB_HGETDEF(hData,'tipoClave','Sin identificar')
//CUIT/DNI/CUIL
cTipo :=HB_HGETDEF(hData,'tipoPersona','')
//ACTIVO o INACTIVO
cEstado:=HB_HGETDEF(hData,'estadoClave','')
//FISICA o JURIDICA
cNombre:=HB_HGETDEF(hData,'nombre','')
//Apellido y Razon Social
cTipDoc:=HB_HGETDEF(hData,'tipoDocumento','')
//DNI, LC, etc
nDoc :=HB_HGETDEF(hData,'numeroDocumento','')
//N° de documento
*** Leo el Hash DOMICILIOFISCAL ***
hDir:=HB_HGETDEF(hData,'domicilioFiscal',.f.)
If Valtype(hDir) == 'H'
cDirec:=HB_HGETDEF(hDir,'direccion','')
//Calle, Nro. Piso, etc
cLocal:=HB_HGETDEF(hDir,'localidad','')
//Localidad (no se nombra cuando es Capital)
cCP :=HB_HGETDEF(hDir,'codPostal','')
//Codigo postal (8 caracteres)
nProv :=AllTRim(Strzero(HB_HGETDEF(hDir,'idProvincia',0),2))
//N2 Obtener descripciones a través del recurso /parametros/v1/provincias
Endif
EndIf
If lVer
*** Elijo SOLO ver los datos de consulta ***
cMsg:='Razon Social: '+cNombre+' ['+cEstado+']'+chr(13)
cMsg+=cDoc+' '+nCuit+' ['+cTipo+']'+chr(13)
cMsg+='Doc: '+cTipDoc+' '+nDoc+chr(13)
cMsg+='Domicilio: '+cDirec+chr(13)
cMsg+=cLocal+' CP:'+cCP
MsgStop(cMsg,'Respuesta servidor AFIP...')
Else
*** Cargo array privado aPadronAFIP ***
aPadronAFIP[1] :=nCuit
aPadronAFIP[2] :=cDoc
aPadronAFIP[3] :=cTipo
aPadronAFIP[4] :=cEstado
aPadronAFIP[5] :=cNombre
aPadronAFIP[6] :=cTipDoc
aPadronAFIP[7] :=nDoc
aPadronAFIP[8] :=cDirec
aPadronAFIP[9] :=cLocal
aPadronAFIP[10]:=cCP
aPadronAFIP[11]:=nProv
EndIf
Else //Ingreso DNI
*** Leo el Hash DATA ***
hData:=HB_HGETDEF(hRes,'data',.f.)
If Valtype(hData) == 'A'
cMsg:='CUIT/CUIL:'+chr(13)
For n=1 to Len(hData)
cMsg+=AllTrim(Str(hData[n]))+chr(13)
Next
MsgStop('El DNI ingresado generó:'+chr(13)+chr(13)+cMsg+chr(13)+;
'Puede utilizar este CUIT/CUIL para consultar datos
fiscales','Respuesta servidor AFIP...')
ELse
MsgStop('El DNI ingresado generó un ERROR !!!','Respuesta servidor AFIP...')
EndIf
EndIf
*HB_HGET( , ) ->
*hb_hGetDef( aHash, Key, DefaultVal )
Return .t.
Saludos,
Sergio Castellari
From: Ing César Luque
Sent: Tuesday, April 26, 2016 11:27 PM
To: GUFA List Member
Subject: [GUFA] Responder: Consultar CUIT
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
[GUFA] Responder: Consultar CUIT
Eso es lo que estaría necesitando Sergio, aguardo tu aporte. Saludos y gracias. Sergio El 26 de abril de 2016, 23:27, Ing César Luque <clu...@arnet.com.ar> escribió: > Sergio > > Aguardamos tu colaboraciòn. > > Saludos.- > > Cèsar Luque > *From:* Sergio Castellari -mvl- <sergio197...@yahoo.com.ar> > *Sent:* Tuesday, April 26, 2016 6:38 PM > *To:* GUFA List Member <GUFA@mug.org.ar> > *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 > > >
[GUFA] Responder: Consultar CUIT
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
[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 > >
