Este ejemplo para el WSLUM de lechería muestra como leer los campos de una respuesta del servidor. Debe usarse el instalador 33.20 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 "lumLeerPropiedad" 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.lumObtenerTicketAcceso() Then
fe.ArchivoXMLRecibido = "d:\lumconsulta.xml"
bresultado = fe.lumConsultarConceptos()
MsgBox ("resultado " + fe.UltimoMensajeError + " " + fe.lumErrorDescripcion1)
Dim ncantidad As Integer
Dim nsubcantidad As Integer
ncantidad = CInt(fe.lumLeerPropiedad("lumconsultarconceptos", "itemcantidad", "", 0, 0))
Dim nIndex As Integer
Dim nsubindex As Integer
Dim cConcepto As String
Dim cSubConcepto As String
For nIndex = 0 To ncantidad - 1
cConcepto = fe.lumLeerPropiedad("lumconsultarconceptos", "descripcion", "", nIndex, 0)
MsgBox (cConcepto)
nsubcantidad = CInt(fe.lumLeerPropiedad("lumconsultarconceptos", "subtipo.itemcantidad", "", nIndex, 0))
For nsubindex = 0 To nsubcantidad - 1
cSubConcepto = fe.lumLeerPropiedad("lumconsultarconceptos", "subtipo.descripcion", "", nIndex, nsubindex)
MsgBox (cConcepto + " " + cSubConcepto)
Next
Next
Else
MsgBox ("fallo acceso " + fe.UltimoMensajeError)
End If
Else
MsgBox ("fallo iniciar " + fe.UltimoMensajeError)
End If