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