Ejemplo listas

Este ejemplo para el WSLSP de liquidación pecuaria muestra como leer los campos de una respuesta del servidor. Debe usarse el instalador 41.00 o superior.

En el proyecto en visual basic, agregar una referencia al objeto WSAFIPFE y ejecutar el código desde un botón.

En este ejemplo se hace uso del método "lspLeerPropiedad" para simplificar la lectura de datos y evitar la saturación de propiedades

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean

If fe.iniciar(0, "cuit", "pfx cuit", "") Then

fe.ArchivoCertificadoPassword = ""

If fe.lspObtenerTicketAcceso() Then

fe.ArchivoXMLRecibido = "d:\lspconsulta.xml"

bresultado = fe.lspConsultarProvincia()

MsgBox ("resultado " + fe.UltimoMensajeError + " " + fe.lspErrorDescripcion1)

Dim ncantidad As Integer

Dim nsubcantidad As Integer

ncantidad = val(fe.lspLeerPropiedad("lspconsultarprovincia", "itemcantidad", "", 0, 0))

Dim nIndex As Integer

Dim nsubindex As Integer

Dim cConcepto As String

For nIndex = 0 To ncantidad - 1

cConcepto = fe.lspLeerPropiedad("lspconsultarprovincia", "descripcion", "", nIndex, 0)

MsgBox (cConcepto)

Next

Else

MsgBox ("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox ("fallo iniciar " + fe.UltimoMensajeError)

End If