Muchas Gracias Pablo x pasar la Info de la Norma y el WS a utilizar. Estaba buscando toda esta información. Ya me pongo a desarrollar el WS ws_sr_constancia_inscripcion.
Saludos Esteban -----Mensaje original----- De: [email protected] [mailto:[email protected]] En nombre de Pablo Pioli Enviado el: miércoles, 06 de diciembre de 2017 10:57 p.m. Para: GUFA List Member Asunto: [GUFA] consulta de cuits 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 > >
