AFIP Argentina: Consultas al padron de contribuyentes

[[AgustinOrtu]]

Hola

Como se puede ver en este post, existe un WebService de la AFIP que permite, entre otras cosas, realizar consultas por Numero de CUIT/DNI/etc para obtener datos de los contribuyentes registrados

Se trata de un servidor REST, asi que es bastante sencillo implementar las operaciones GET

Lo que quiza es medio "engorroso", es convertir el JSON y meterlo dentro de clases Delphi

Esta tarde me dedique a esto. Lamentablemente lo hice con Delphi 10 Seattle, porque queria probar los nuevos componentes TNetHttpClient y la biblioteca System.JSON; creo que ambos estan disponibles a partir de XE8, sino 10 Seattle

Aun asi, el codigo es facilmente adaptable (creo) para usarlo con Indy y alguna otra biblioteca Json (incluso las que venian con Delphi antes, creo que la unidad era Rest.Json)

Pueden obtener el codigo en mi repositorio o seguir directamente este enlace

Tambien subí la documentacion

Implemente solo 3 metodos, hay algunos mas que quiza implemente mas adelante (lo mismo que una version compatible con los Delphi anteriores basada en Indy)

Código Delphi [-]
ConsultaNroDocumento(NroDocumento: string)

Devuelve todos los CUIT, CUIL, etc asociados a NroDocumento (DNI). La AFIP llama a estos numeros los "Id" de las personas

Código Delphi [-]
ObtenerConstancia(Cuit/Cuil/Cdi: string/Int64)

Curioso metodo. Devuelve un archivo en formato PDF con la Constancia de Inscripción emitida por AFIP o con un texto indicando motivo por el cual esa constancia no pudo ser emitida.

Código Delphi [-]
ConsultaPersona(const Cuit/Cuil/Cdi: string)

Este metodo devuelve una interface con una numerosa cantidad de campos, por ejemplo, razon social o nombre, domicilio fiscal, fecha inscripcion, estado inscripcion (activa, inactiva), si es persona fisica o juridica, etc


Saludos

[Casimiro Notevi]

[[ElKurgan]]

Gracias por el aporte

[[AgustinOrtu]]

Hola de nuevo

He implementado los metodos que faltaban, los que segun la documentacion son del sistema "parametros", podria decirse que son "tablas auxiliares", o "tablas lookup"

- Impuestos
- Conceptos
- Caracterizaciones
- Etc

Tambien dado que alguna de estas consultas "demoran" un poquito porque devuelven mas informacion (actividades creo que devuelve unas 2500 tuplas) agregue una pequeña capa de persistencia

En realidad es una sencilla interface que cada desarrollador puede implementar como mas le guste y luego inyectarla en el constructor de la clase

Hay una implementacion de la interface a modo de ejemplo que utiliza colecciones (diccionarios) para almacenar la informacion en memoria

En el demo se puede ver que listar las 2500 tuplas en el memo, si hago la consulta a traves del web service, tarda unos 2,5 - 3 segundos, pero usando la info de la cache tarda 600 mseg

Luego tambien esta la posibilidad de aun asi "forzar" a que traiga los datos frescos del web services (los metodos tienen el parametro GetFromPersistent, por defecto a True) que indica si quiero traer los datos desde la clase de persistencia (true) o del webservice (false)

Lo que son consultas de datos de las personas no lo meti nada en la capa de persistencia porque es bastante rapido, es mucha menos la informacion que viene asi que no tiene sentido


Saludos

[[Al González]]

Parece muy buen trabajo, Agustín. Estoy seguro de que será de gran utilidad.

[cmschneider]

Hola Agustín: aprovecho que realizaste este excelente trabajo para consultarte si pudiste hacer algo similar con Indy. He intentado de todo con el componente IdHTTP (ya que tengo Delphi XE8, y no poseo las librerías que utilizaste), para la consulta de CUIT en AFIP (https://soa.afip.gob.ar/sr-padron/v2...na/33709585229) y por más pruebas que hago no puede obtener como resultado la cadena json, sino un documento en blanco. Desde ya cualquier dato, sugerencia o, código se agradece.

[cmschneider]

Voy a ampliar y aclarar mi consulta anterior.
Ocurre que deseo consultar los datos del padrón AFIP de Argentina, desde Delphi XE8, utilizando Indy.
Cuando pego la siguiente dirección en un navegador: https://soa.afip.gob.ar/sr-padron/v2...na/33709585229
obtengo: {"success":true,"data":{"idPersona":33709585229,"tipoPersona":"JURIDICA","tipoClave":"CUIT","estadoC lave":"ACTIVO","nombre":"GOOGLE ARGENTINA S.R.L.","domicilioFiscal":{"direccion":"MOREAU DE JUSTO A.AV 350 Piso:2","codPostal":"1107","idProvincia":0},"idDependencia":10,"mesCierre":12,"fechaInscripcion":"20 06-04-07","fechaContratoSocial":"2006-03-29","impuestos":[10,25,30,103,211,217,218,301,353],"actividades":[731009,620900,711003],"caracterizaciones":[68,72,255]}}

Bien, intento desde Delphi, utilizando IdHttp

Código Delphi [-]
procedure TForm1.BitBtn5Click(Sender: TObject);
var
  lHTTP: TIdHTTP;
  resp: String;
begin
  lHTTP := TIdHTTP.Create(nil);
  try
    resp := lHTTP.Get('https://soa.afip.gob.ar/sr-padron/v2/persona/33709585229');
    Memo1.Lines.Add(Resp);
  finally
    lHTTP.Free;
  end;

end;

y que obtengo?: <html><head></head><body><br><br></body></html>

He probado otras variantes, pero siempre llego al mismo resultado. ¿Alguna idea?

[[AgustinOrtu]]

Hola cmschneider

La verdad he usado poco y nada los componentes Indy,

En esta ocasion hice las pruebas con Delphi 2010; la version de los componentes Indy es la 10.5.5

Copie el codigo tal cual lo pusiste y obtengo una excepcion de tipo EIdIOHandlerPropInvalid con el mensaje

IOHandler value is not valid

Seguire investigando

[cmschneider]

Hola Agustín: ante todo muchas gracias por tu tiempo. Luego de muchos intentar, me dí cuenta que las librerías que me faltaban para hacer funcionar tu proyecto son las encargadas de parsear los Json devueltos (System.Json.Types, System.Json.Readers). Así que modifiqué la unit Afip.PublicAPI.Parsers para hacerla funcionar con las herramientas que tengo en XE8 y funcionó!
Nuevamente gracias; me será de mucha utilidad.

[[AgustinOrtu]]

En realidad es un error de mi parte haberlo implementado de esa forma, ya que se generan dependencias con otras bibliotecas y no existe la posibilidad de cambiar eso sin trocear el código

Por cierto no pude lograr obtener una respuesta con Indy, y eso que he agregado el componente interceptor para OpenSSL

En ese caso obtengo una excepción socket timeout