EjemplosVarios

Consultar derivados granarios:

Dim fe As New WSAFIPFE.Factura

      If fe.iniciar(0, "cuit", "certificado pfx tramitado en AFIP", "") Then

           REM ATENCION, ejecutar este método necesario para que la interfaz capture el trafico hacia y desde el servidor antes que el sistema operativo.

           REM servidor WS CPE usa un formato incompatible y debe ser transformado para operar normalmente.

           If fe.registrarTrafico(True) Then

           Else

               MsgBox("error capturar trafico " + fe.UltimoMensajeError)

           End If

           fe.cpeversion = 220

           fe.tls = 12

           fe.ArchivoXMLEnviado = "d:\aenvio.xml"

           fe.ArchivoXMLRecibido = "d:\arecibo.xml"

           fe.ArchivoCertificadoPassword = ""

           If fe.cpeObtenerTicketAcceso() Then                    

               bResultado = fe.cpeConsultarDerivadosGranarios()

                If bResultado Then

                Else

                    MsgBox("falso")

                End If

                If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then

                    Dim nTope As Integer

                    nTope = Val(fe.CPELeerPropiedad("cpeConsultarDerivadosGranarios", "DerivadoGranario.itemcantidad", "", 0, 0))

                    For nIndex = 1 To nTope

                        MsgBox(fe.CPELeerPropiedad("cpeConsultarDerivadosGranarios", "DerivadoGranario.codigo", "", 0, 0))

                    Next

                Else

                    MsgBox("error método " + fe.UltimoMensajeError + " " + fe.cpeErrorDescripcion1)

                End If

           Else

               MsgBox("fallo acceso " + fe.UltimoMensajeError)

           End If

       Else

           MsgBox("fallo iniciar " + fe.UltimoMensajeError)

       End If