WSPADRON PUC Ejemplo

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.tls = 12

            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