WSLUM ejemplo listas

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