[GUFA] consulta de cuits

Thu, 07 Dec 2017 03:21:08 -0800

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]>
To: "GUFA List Member" <[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/

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



























					Responder a