Hola
Hoy me puse a ver esto, para lo cual uso la siguiente sintaxis que
aportó Mariano Reingart (mientras nos lo permitan). Le agregué el for
a la consulta habitual por si revive la web de la afip. En mi máquina
anda de maravillas, a modo comando y ejecutable, producción y
homologación, pero no anda en los clientes,
siemprelnGetResultsdevuelve un valor, alguien tuvo este problema? En
el browser
https://www.sistemasagiles.com.ar/padron/consulta/persona/cuit funciona.
FOR iAfip=1 TO 2 &&12/12/17 xq se cayó en Oct/17 el servicio Rest de
la Afip
IF iAfip=1
xxcuit="https://soa.afip.gob.ar/sr-padron/v2/persona/"+Strtran(cuit,"-","")
ELSE
xxcuit="https://www.sistemasagiles.com.ar/padron/consulta/persona/"+Strtran(cuit,"-","")
&&20000000516
ENDIF
*-- Arma la variable que referencia al archivo temporario 'TXT'.
lcTempTxtFile =
Forceext("c:\temp\cuit"+Strtran(cuit,"-","")+IIF(iAfip=1,"WebAfip","SistAgiles")+"_"+
Sys(2015), "TXT")
lnGetResults = 0
lnGetResults = URLDownloadToFile(0, xxcuit, lcTempTxtFile, 0, 0)
If lnGetResults = 0
EXIT
Endif
NEXT iAfip
If lnGetResults # 0
Messagebox("Falla de lectura - Error "+ALLTRIM(STR(lnGetResults,15))
,0,"")
Wait Clear
Return .F.
ENDIF
cpoafip = Filetostr(lcTempTxtFile)
cpoafip =Strtran(cpoafip,' : ',':')
JSONStart()
cuitobj = json.Parse(cpoafip)
If Type("cuitobj.data")<>"U"
If cuitobj.Data.estadoclave="ACTIVO"
Wait Window cuitobj.Data.nombre +" "+ cuitobj.Data.estadoclave Nowait
Noclear
thisform.pageframe1.page1.txttitulo.BackColor= RGB(208,255,208) &&verde
thisform.pageframe1.page1.txttitulo.DisabledBackColor=
RGB(208,255,208) &&verde
Else
Messagebox(cuitobj.Data.nombre+ " -- "+cuitobj.Data.estadoclave)
thisform.pageframe1.page1.txttitulo.BackColor= RGB(255,128,0) &&naranja
thisform.pageframe1.page1.txttitulo.DisabledBackColor= RGB(255,128,0)
&&naranja
Endif
Else
Messagebox(cuitobj.Error.mensaje)
thisform.pageframe1.page1.txttitulo.BackColor= RGB(255,128,0) &&naranja
thisform.pageframe1.page1.txttitulo.DisabledBackColor= RGB(255,128,0)
&&naranja
Endif
Thisform.buscocuitafip=cuit
Saludos
Lic. Estela Lázaro
<https://ar.linkedin.com/pub/estela-l%C3%A1zaro/36/725/ab7>
*D&SIP*
/Desarrollo y Servicios Informáticos Profesionales/
www.dsip.com.ar <http://www.dsip.com.ar/>
Estela en LinkedIn
<https://ar.linkedin.com/pub/estela-l%C3%A1zaro/36/725/ab7>
------------------------------------------------------------------------
*De:* Carlos Morandin <[email protected]>
*Para:* GUFA List Member <[email protected]>
*Enviado:* Jueves, 7 de diciembre, 2017 8:21:22
*Asunto:* [GUFA] consulta de cuits
Exactamente, tuve que optar por comprar la libreria WSPadron que tienen
los que hacen la de factura electronica
(https://sites.google.com/site/facturaelectronicax/) aunque ahora es un
poco mas complicado porque hay que habilitar el servicio en la pagina de
afip de cada cliente.
Gracias !
Carlos
El 06/12/2017 a las 22:56, Pablo Pioli escribió:
> Lo que Carlos consultaba era para efectuar la validacion online del
> estado de la CUIT. Porque puede ser valida pero AFIP puede haberla
> deshabilitado. Entonces es responsabilidad del que vende controlar esa
> situacion. Por comodidad son cosas que se incluyen en el programa.
>
> Con respecto a esto, salio la normativa oficial.
>
>
https://www.boletinoficial.gob.ar/web2/utils/pdfView?file=%2Fpdf%2Fnorma%2F175252%2F20171127%2FPrimera%2FUuqhr4kl1FL0ZHrqnnsq0S1bLS1JVi1bLbzFRzBNnUTXuCAHFGWmb%2BI%3D%2F0
>
> La API Rest esta kaput, la consulta se debe hacer exclusivamente via
> WebService, previa autenticacion del consultante.
>
>
> El 6/12/2017 a las 19:21, Hernán Baranda escribió:
>> Esto lo escribí asesorándome con alguien el Afip y anda de 10
>> Saludos
>>
>> WITH THISFORM.pageframe1.page1
>>
>> c1=SUBSTR(.txtCuit.value,1,1)
>>
>> c2=SUBSTR(.txtCuit.value,2,1)
>>
>> c3=SUBSTR(.txtCuit.value,4,1)
>>
>> c4=SUBSTR(.txtCuit.value,5,1)
>>
>> c5=SUBSTR(.txtCuit.value,6,1)
>>
>> c6=SUBSTR(.txtCuit.value,7,1)
>>
>> c7=SUBSTR(.txtCuit.value,8,1)
>>
>> c8=SUBSTR(.txtCuit.value,9,1)
>>
>> c9=SUBSTR(.txtCuit.value,10,1)
>>
>> c10=SUBSTR(.txtCuit.value,11,1)
>>
>> c11=SUBSTR(.txtCuit.value,13,1)
>>
>>
sumatoria=(5*VAL(c1)+4*VAL(c2)+3*VAL(c3)+2*VAL(c4)+7*VAL(c5)+6*VAL(c6)+;
>>
>> 5*VAL(c7)+4*VAL(c8)+3*VAL(c9)+2*VAL(c10))
>>
>> resto=MOD(sumatoria,11)
>>
>> verificador=11-resto
>>
>> DO CASE
>>
>> CASE EMPTY(compras.Cuit)=.T.
>>
>> .txtCuit.SelectOnEntry=.T.
>>
>> RETURN .T.
>>
>> CASE .txtCuit.value=" - - "
>>
>> .txtCuit.SelectOnEntry=.T.
>>
>> RETURN .T.
>>
>> CASE len(alltrim(.txtCuit.value))<13
>>
>> =MESSAGEBOX("FALTAN DIGITOS",0+48,"NUMERO DE CUIT")
>>
>> .txtCuit.SelectOnEntry=.F.
>>
>> RETURN .F.
>>
>> CASE INLIST(VAL(c1+c2),20,23,24,27,30,33,34)=.F.
>>
>> =MESSAGEBOX("NO ES UN NUMERO DE CUIT",0+48,"NUMERO DE CUIT")
>>
>> .txtCuit.SelectOnEntry=.F.
>>
>> RETURN .F.
>>
>> CASE verificador=VAL(c11)
>>
>> .txtCuit.SelectOnEntry=.T.
>>
>> RETURN .T.
>>
>> CASE (resto=0 AND VAL(c11)=0)
>>
>> .txtCuit.SelectOnEntry=.T.
>>
>> RETURN .T.
>>
>> OTHERWISE
>>
>> =MESSAGEBOX("NO ES CORRECTO ESTE NUMERO DE CUIT",0+48,;
>>
>> "NUMERO DE CUIT")
>>
>> .txtCuit.SelectOnEntry=.F.
>>
>> RETURN .F.
>>
>> ENDCASE
>>
>> ENDWITH
>>
>>
>>
>> ----- Original Message ----- From: "Carlos Morandin"
>> <[email protected] <mailto:[email protected]>>
>> To: "GUFA List Member" <[email protected] <mailto:[email protected]>>
>> Sent: Thursday, November 23, 2017 9:54 AM
>> Subject: [GUFA] consulta de cuits
>>
>>
>>> Hola, buen dia
>>>
>>> esta caido hace un par de dias para consultar cuits validos
>>>
>>> https://soa.afip.gob.ar/sr-padron/v2/persona/
<https://soa.afip.gob.ar/sr-padron/v2/persona/>
>>>
>>> alguno tiene otra alternativa ?
>>>
>>> Saludos
>>>
>>> Carlos
>>>
>>>
>>
>> ---
>> El software de antivirus Avast ha analizado este correo electrónico en
>> busca de virus.
>> https://www.avast.com/antivirus <https://www.avast.com/antivirus>
>>
>>
