Este ejemplo usa la versión 100.82 (o superior) del instalador.
Es totalmente operativo pero es necesario leer toda la documentación del WSPADRON PUC para una implementación real.
Este ejemplo usa el alcance 55 Para el modo prueba (0) el certificado debe estar asociado al servicio de constancia de inscripción con los pasos de la guia para el modo prueba y para el modo real (1) el certificado debe estar asociado al mismo servicio de constancia de inscripción ver guia para el modo real. Además para el modo real debe estar presente un archivo de licencia (4to argumento) definitivo o provisorio generado desde el panel de mi administración que incluya el sevicio WSPUC padrón.
En este ejemplo se hace uso del método p1verificarImpuesto, este método
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean
If fe.iniciar(0, "cuit", "certificado.pfx", "archiv.lic si es para el modo real 1") Then
fe.p1Version = 55
fe.ArchivoXMLEnviado = "d:\p1envio.xml"
fe.ArchivoXMLRecibido = "d:\p1recibo.xml"
fe.ArchivoCertificadoPassword = ""
If fe.p1ObtenerTicketAcceso() Then
bresultado = fe.p1GetPersona("cuit")
If fe.UltimoMensajeError = "" Then
MsgBox("apellido " + fe.p1LeerPropiedad("p1getPersona", "datosgenerales.apellido", "", 0, 0))
MsgBox("nombre " + fe.p1LeerPropiedad("p1getPersona", "datosgenerales.nombre", "", 0, 0))
MsgBox("razon " + fe.p1LeerPropiedad("p1getPersona", "datosgenerales.razonsocial", "", 0, 0))
MsgBox("localidad " + fe.p1LeerPropiedad("p1getPersona", "datosGenerales.domicilioFiscal.localidad", "", 0, 0))
MsgBox("direccion " + fe.p1LeerPropiedad("p1getPersona", "datosGenerales.domicilioFiscal.direccion", "", 0, 0))
MsgBox("tipo domicilio " + fe.p1LeerPropiedad("p1getPersona", "datosGenerales.domicilioFiscal.tipodomicilio", "", 0, 0))
If fe.p1VerificarImpuesto(20, "activo") Then
MsgBox("monotributista")
End If
If fe.p1VerificarImpuesto(30, "activo") Then
MsgBox("INSCRIPTO IVA")
End If
If fe.p1VerificarImpuesto(32, "activo") Then
MsgBox("exento IVA")
End If
Else
MsgBox("error general" + fe.UltimoMensajeError)
End If
Else
MsgBox("fallo acceso " + fe.UltimoMensajeError)
End If
Else
MsgBox("fallo iniciar " + fe.UltimoMensajeError)
End If