Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
57 lines (47 sloc) 2.28 KB
Attribute VB_Name = "Module1"
' Ejemplo de Uso de Interface COM para consultar
' Padron Unico de Contribuyentes AFIP via webservice (servicio web WS-SR-Padron Alcance 4)
' Documentación: http://www.sistemasagiles.com.ar/trac/wiki/PadronContribuyentesAFIP
' 2017 (C) Mariano Reingart <reingart@gmail.com>
' Licencia: GPLv3
Sub Main()
Dim Padron As Object, ok As Variant
' Crear la interfaz COM
Set Padron = CreateObject("WSSrPadronA4")
Debug.Print Padron.Version
Debug.Print Padron.InstallDir
' Crear objeto interface Web Service Autenticación y Autorización
Set WSAA = CreateObject("WSAA")
ta = WSAA.Autenticar("ws_sr_padron_a4", WSAA.InstallDir + "\reingart.crt", WSAA.InstallDir + "\reingart.key")
ok = Padron.Conectar()
Padron.SetTicketAcceso ta
Padron.Cuit = "20267565393"
' Consultar CUIT (online con AFIP):
id_persona = InputBox("Ingrese CUIT a buscar:", "Consultar Padron AFIP", "20000000516")
ok = Padron.Consultar(id_persona)
Debug.Print ok, Err.Description
' Imprimir respuesta obtenida
Debug.Print "Denominacion:", Padron.denominacion
Debug.Print "Tipo:", Padron.tipo_persona, Padron.tipo_doc, Padron.nro_doc
Debug.Print "Estado:", Padron.Estado
Debug.Print "Direccion:", Padron.direccion
Debug.Print "Localidad:", Padron.localidad
Debug.Print "Provincia:", Padron.provincia
Debug.Print "Codigo Postal:", Padron.cod_postal
For Each impuesto In Padron.impuestos
Debug.Print "Impuesto:", impuesto
Next
For Each actividad In Padron.actividades
Debug.Print "Actividad:", actividad
Next
Debug.Print "IVA", Padron.imp_iva
Debug.Print "MT", Padron.monotributo, Padron.actividad_monotributo
Debug.Print "Empleador", Padron.empleador
If Padron.Excepcion = "" Then
MsgBox Padron.denominacion & " " & Padron.Estado & vbCrLf & Padron.direccion & vbCrLf & Padron.localidad & vbCrLf & Padron.provincia & vbCrLf & Padron.cod_postal, vbInformation, "Resultado CUIT " & Cuit & " (online AFIP)"
Else
' respuesta del servidor (para depuración)
Debug.Print Padron.response
MsgBox "Error AFIP: " & Padron.Excepcion, vbCritical, "Resultado CUIT " & Cuit & " (online)"
End If
End Sub