Ejemplo preliminar

Este ejemplo teórico para el WSCT de autorización comprobante turismo muestra como cargar todos los campos posibles para autorizar. Tener en cuenta que en la autorización real algunos campos o grupos de campos se deben informar o no según el tipo. Es decir este ejemplo no intenta obtener un CAE pero si mostrar como se deben informar los campos para lograrlo. Debe usarse e instalador 44.80 o superior.

Algunos campos son opcionales (pueden enviarse o no) dependiendo del tipo de comprobantes a autorizar. Para los campos opcioanles 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

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

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

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

fe.ArchivoCertificadoPassword = ""

If fe.tObtenerTicketAcceso() Then

Dim nindex As Integer

Dim ntope As Integer

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

bresultado = fe.tCargarPropiedad("importeGravado", "0.0", 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", "0.0", 0, 0)

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

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

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

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

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

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

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

bresultado = fe.tCargarPropiedad("Items.codigoAlicuotaIVA", "1", 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", "1.0", 0, 0)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

bresultado = fe.tCargarPropiedad("ComprobantesAsociados.codigotipocomprobante", "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))

MsgBox("vto " + fe.tLeerPropiedad("tAutorizarComprobante", "comprobanteResponse.fechaVencimientoCAE", "", 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