El ejemplo requiere versión 99.70 superior del instalador.
Los datos son teóricos y como muestra.
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 cgLeerPropiedadRespuesta para simplificar la lectura de la respuesta y evitar la saturación de propiedades
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean
Dim nindex As Integer
Dim nitems As Integer
If fe.iniciar(0, "cuit", "certificado pfx", "") Then
If fe.cgObtenerTicketAcceso() Then
bresultado = fe.cgBuscarCTG("D", "20235709490", "", "31", "1213", "", "CPE", "", "20141101", "20141210")
If bresultado Then
MsgBox("resultado método verdadero")
Else
MsgBox("resultado método falso")
End If
MsgBox("ultimo error " + fe.UltimoMensajeError)
MsgBox("error servidor " + fe.lpgErrorDescripcion1)
nitems = Val(fe.cgLeerPropiedadRespuesta("cgBuscarCTG", "itemcantidad", 0))
MsgBox("items devueltos " + Str(nitems))
For nindex = 0 To nitems - 1
MsgBox(Str(nindex) + " ctg " + fe.cgLeerPropiedadRespuesta("cgBuscarCTG", "ctg", nindex))
MsgBox(Str(nindex) + " grano " + fe.cgLeerPropiedadRespuesta("cgBuscarCTG", "codGrano", nindex))
MsgBox(Str(nindex) + " kilos " + fe.cgLeerPropiedadRespuesta("cgBuscarCTG", "kilosconfirmados", nindex))
Next
Else
MsgBox("fallo acceso " + fe.UltimoMensajeError)
End If
Else
MsgBox("fallo iniciar " + fe.UltimoMensajeError)
End If