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