WSCG ejemplo buscar CTG

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