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 44.80 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("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("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