COMPARTO LO QUE HAGO YO, hay cosas que alguien compartio en su momento y lo adapte, si queres el archivo json.prg después te lo paso. Si lo mejoras compartilo. Gracias.
PARAMETERS MCUIT cCuit=STR(mcuit,11,0) WAIT WINDOWS 'CONECTANDONOS AL PADRON DE AFIP' NOWAIT oXMLHTTP = CREATEOBJECT( "Microsoft.XMLHTTP" ) cCUIT_URL='https://soa.afip.gob.ar/sr-padron/v2/persona/' oXMLHTTP.open('GET', cCUIT_URL + cCuit, .F.) oXMLHTTP.send() cJSON = oXMLHTTP.responseText set proc to json additive oRespuesta= json_decode( cJson) razonsocial=oRespuesta._data._nombre estados = orespuesta._data._estadoclave codicpd=oRespuesta._data._domiciliofiscal._codpostal domicilio=oRespuesta._data._domiciliofiscal._direccion TRY respu = oRespuesta._data._impuestos.array(2) cantidac = Alen(oRespuesta._data._impuestos.array) impuestosq=SPACE(255) PUBLIC categoria categoria=SPACE(20) FOR i = 1 TO cantidac IF orespuesta._data._impuestos.array(i)=20 categoria='MONOTRIBUTO' ENDIF IF orespuesta._data._impuestos.array(i)=30 categoria='IVA Inscripto' ENDIF IF orespuesta._data._impuestos.array(i)=32 categoria='EXENTO' ENDIF ENDFOR =MESSAGEBOX(estados+CHR(10)+RAZONSOCIAL+CHR(10)+DOMICILIO+CHR(10)+categoria+CHR(10),'INFORMACION OBTENIDA DE LA AFIP') WAIT windows 'AGUARDE CONECTANDOSE AL REGISTRO DE CONSTANCIAS DE INSCRIPCION' NOWAIT o = CREATEOBJECT("Shell.Application") o.open("https://soa.afip.gob.ar/sr-padron/v1/constancia/"+CCUIT) WAIT WINDOWS 'ABRIENDO LA CONSTANCIA EN EL NAVEGADOR' NOWAIT APRUEBA=.T. CATCH =MESSAGEBOX('DATOS ERRONEOS') APRUEBA=.F. ENDTRY El 23 de noviembre de 2016, 10:39, Norberto Mario Alvarez < [email protected]> escribió: > Estimados Colisteros, resulta que en un cliente es muy habitual que los > clientes cambien de Posición de IVA, por ej. De Monotributista a > Responsable Inscripto. Estoy usando la librería de sistemas Agiles, y mi > idea era en el momento de facturar consultar la posición de IVA y si > coincide con la de mi tabla facturo directamente y en caso que no coincida > modificarla automáticamente y continuar con la facturación. La pregunta es > si existe esa posibilidad y como hacerlo. Desde ya muchas gracias!!!!! > > > > > > *Norberto Alvarez* > > *Socio # 1882* > > > > >
