WSCG ejemplo buscar CTG

El ejemplo requiere versión 100.92  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

los parametros (todas tipo string) de este método son:

1: tipo de certificado(R=retiro, T=transferencia, P=primario, ver manual ARCA)

2: cuit depositante

3: número de planta (opional puede ser "")

4: código grano obligatorio

5: campaña (año) obligatorio

6: número CTG (opcional puede ser "")

7: "CPE", "FC","CTG"  (opcional puede ser "")

8: número carta de porte (opcional puede ser "")

9: desde formato aaaammdd (opcional puede ser "") fecha confirmación CTG

10: hasta formato aaaammdd (opcional puede ser "") fecha confirmación CTG

        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