Ejemplo operativo

 Este ejemplo operativo para el WSCT de comprobante T muestra como cargar  campos para autorizar una factura T y obtener el CAE. para ejecutar el ejemplo:

Debe usarse el instalador 100.81 o superior.

  En el ejemplo usar datos concretos. Se han comentado (REM) los campos que no deben cargarse para esta liquidación en particular.

Ver más detalles en el apartado como usar.

  Algunos campos son opcionales (pueden enviarse o no) dependiendo del tipo de comprobantes a autorizar. Para los campos opcionales que expresamente no se envian (diferente a enviarlos en cero o vacio) se debe usar el campo asociado terminado en "NO" que al ser puesto en verdadero hará que el campo no sea informado (con ningún valor, aunque se lo cargue en el código)

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 "tCargarPropiedad" para simplificar la carga de datos y evitar la saturación de propiedades

       Dim fe As New WSAFIPFE.Factura

        Dim bresultado As Boolean = True

        If fe.iniciar(0, "cuit", "certificado *.pfx cuit", "") Then

            rem fe.forzarCertificadoSSL(True)

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

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

            fe.ArchivoCertificadoPassword = ""

            If fe.tObtenerTicketAcceso() Then              

                bresultado = fe.tCargarPropiedad("limpiar", "", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoAutorizacion", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoAutorizacionNO", "V", 0, 0)

                bresultado = fe.tCargarPropiedad("cancelaEnMismaMonedaExtranjera", "S", 0, 0)       

                bresultado = fe.tCargarPropiedad("codigoMoneda", "PES", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoPais", "203", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoPaisNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoRelacionEmisorReceptor", "3", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoTipoAutorizacion", "E", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoTipoAutorizacionNO", "F", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoTipoComprobante", "195", 0, 0)

                bresultado = fe.tCargarPropiedad("codigoTipoDocumento", "80", 0, 0)

                bresultado = fe.tCargarPropiedad("cotizacionMoneda", "1.0", 0, 0)

                bresultado = fe.tCargarPropiedad("cotizacionMonedaNO", "F", 0, 0)

                bresultado = fe.tCargarPropiedad("domicilioReceptor", "Sao Paolo", 0, 0)

                REM bresultado = fe.tCargarPropiedad("domicilioReceptor", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("fechaEmision", "20170622", 0, 0)

                bresultado = fe.tCargarPropiedad("fechaEmisionNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("fechaVencimiento", "20170622", 0, 0)

                bresultado = fe.tCargarPropiedad("idImpositivo", "9", 0, 0)

                bresultado = fe.tCargarPropiedad("importeExento", "0.0", 0, 0)

                bresultado = fe.tCargarPropiedad("importeExentoNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("importeGravado", "100", 0, 0)

                bresultado = fe.tCargarPropiedad("importeGravadoNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("importeOtrosTributos", "0.0", 0, 0)

                bresultado = fe.tCargarPropiedad("importeOtrosTributosNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("importeNoGravado", "0.0", 0, 0)

                bresultado = fe.tCargarPropiedad("importeNoGravadoNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("importeReintegro", "-21", 0, 0)

                bresultado = fe.tCargarPropiedad("importeReintegroNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("importeTotal", "100", 0, 0)

                bresultado = fe.tCargarPropiedad("numeroComprobante", "3", 0, 0)

                bresultado = fe.tCargarPropiedad("numeroDocumento", "50000000059", 0, 0)

                bresultado = fe.tCargarPropiedad("numeroPuntoVenta", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("observaciones", "prueba", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.itemcantidad", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.codigoAlicuotaIVA", "5", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.codigoTurismo", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.codigoTurismoNO", "F", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.descripcion", "servicio 1", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.importeItem", "121", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.importeIVA", "21", 0, 0)

                bresultado = fe.tCargarPropiedad("Items.tipo", "0", 0, 0)

                bresultado = fe.tCargarPropiedad("DatosAdicionales.itemcantidad", "0", 0, 0)

                REM  bresultado = fe.tCargarPropiedad("DatosAdicionales.c1", "dato 1", 0, 0)

                REM bresultado = fe.tCargarPropiedad("DatosAdicionales.c2", "dato 2", 0, 0)

                REM bresultado = fe.tCargarPropiedad("DatosAdicionales.c3", "dato 3", 0, 0)

                REM bresultado = fe.tCargarPropiedad("DatosAdicionales.c4", "dato 4", 0, 0)

                REM bresultado = fe.tCargarPropiedad("DatosAdicionales.c5", "dato 5", 0, 0)

                REM bresultado = fe.tCargarPropiedad("DatosAdicionales.c6", "dato 6", 0, 0)

                REM bresultado = fe.tCargarPropiedad("DatosAdicionales.t", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.itemcantidad", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.codigo", "68", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.numeroCuenta", "1.0", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.numeroCuentaNO", "V", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.numeroTarjeta", "123456", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.numeroTarjetaNO", "f", 0, 0)

                REM bresultado = fe.tCargarPropiedad("FormasPago.swiftCode", "", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.tipoCuenta", "1", 0, 0)

                REM bresultado = fe.tCargarPropiedad("FormasPago.tipoCuentaNO", "V", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.tipoTarjeta", "99", 0, 0)

                bresultado = fe.tCargarPropiedad("FormasPago.tipoTarjetaNO", "f", 0, 0)

                bresultado = fe.tCargarPropiedad("OtrosTributos.itemcantidad", "0", 0, 0)

                REM bresultado = fe.tCargarPropiedad("OtrosTributos.baseImponible", "1.0", 0, 0)

                REM bresultado = fe.tCargarPropiedad("OtrosTributos.baseImponibleNO", "f", 0, 0)

                REM bresultado = fe.tCargarPropiedad("OtrosTributos.descripcion", "prueba", 0, 0)

                REM bresultado = fe.tCargarPropiedad("OtrosTributos.importe", "1.0", 0, 0)

                bresultado = fe.tCargarPropiedad("SubtotalesIVA.itemcantidad", "1", 0, 0)

                bresultado = fe.tCargarPropiedad("SubtotalesIVA.codigo", "5", 0, 0)

                bresultado = fe.tCargarPropiedad("SubtotalesIVA.importe", "21", 0, 0)

                bresultado = fe.tCargarPropiedad("ComprobantesAsociados.itemcantidad", "0", 0, 0)

                REM bresultado = fe.tCargarPropiedad("ComprobantesAsociados.numeroComprobante", "1", 0, 0)

                REM bresultado = fe.tCargarPropiedad("ComprobantesAsociados.numeroPuntoVenta", "1", 0, 0)

                If fe.UltimoMensajeError = "" Then

                    bresultado = fe.tAutorizarComprobante()

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

                        MsgBox("CAE " + fe.tLeerPropiedad("tAutorizarComprobante", "comprobanteresponse.cae", "", 0, 0))

                    Else

                        MsgBox("error general" + fe.UltimoMensajeError)

                        MsgBox("error servidor " + fe.tErrorDescripcion1)

                    End If

                Else

                    MsgBox("error carga datos" + fe.UltimoMensajeError)

                End If

            Else

                MsgBox("fallo acceso " + fe.UltimoMensajeError)

            End If

        Else

            MsgBox("fallo iniciar " + fe.UltimoMensajeError)

        End If