Ejemplo WSMTXCA Visual Basic 6 obtener CAE
Este ejemplo usa la versión 96.70 (o superior) del instalador.
Al pie figura el XML que el ejemplo genera.
Dim fe As New WSAFIPFE.Factura
If fe.iniciar(0, "CUIT el emisor sin separadores", "ruta y nombre del certificado *.pfx", "") Then
fe.tls = 12
If fe.fxObtenerTicketAcceso() Then
fe.fxversion = 0
fe.fxCodigoTipoComprobante = 1
fe.fxNumeroPuntoVenta = 5
fe.fxNumeroComprobante = 1
fe.fxCodigoConcepto = 1
fe.fxFechaEmision = "20101115"
fe.fxCodigoTipoAutorizacion = ""
fe.fxFechaServicioDesde = ""
fe.fxFechaServicioHasta = ""
fe.fxFechaVencimiento = ""
fe.fxFechaVencimientoPago = ""
fe.fxCodigoTipoDocumento = 80
fe.fxNumeroDocumento = "30000000007"
fe.fxImporteGravado = 10916.04
fe.fxImporteNoGravado = 12
fe.fxImporteExento = 4132
fe.fxImporteSubTotal = 15060.04
fe.fxImporteOtrosTributos = 16
fe.fxImporteTotal = 17645
fe.fxCodigoMoneda = "PES"
fe.fxCotizacionMoneda = 1
fe.fxObservaciones = "libre"
fe.fxFechaHoraGen = "20101115"
fe.fxFechaHoraGenNO = true
fe.fxQrArchivo = "d:\xqr.jpg"
fe.fxQrFormato = 6
fe.fxQrResolucion = 4
fe.fxQrTolerancia = 0
fe.fxItemsItemCantidad = 4
fe.fxIndiceItem = 0
fe.fxItemUnidadesMtx = 123456
fe.fxItemCodigoMtx = "123456789"
fe.fxItemDescripcion = "producto 1"
fe.fxItemCodigo = "P0001"
fe.fxItemCantidad = 1
fe.fxItemCodigoUnidadMedida = 7
fe.fxItemPrecioUnitario = 12383
fe.fxItemImporteBonificacion = 0
fe.fxItemCodigoCondicionIva = 5
fe.fxItemImporteIva = 2600.43
fe.fxItemImporteItem = 14983.43
fe.fxIndiceItem = 1
fe.fxItemUnidadesMtxs = "1"
fe.fxItemCodigoMtx = ""
fe.fxItemDescripcion = "Descuento general"
fe.fxItemCodigo = ""
fe.fxItemCantidadNO = True
fe.fxItemCodigoUnidadMedida = 99
fe.fxItemPrecioUnitarioNO = True
fe.fxItemImporteBonificacionNO = True
fe.fxItemCodigoCondicionIva = 5
fe.fxItemImporteIva = -31.47
fe.fxItemImporteItem = -1498.43
fe.fxIndiceItem = 2
fe.fxItemUnidadesMtxs = "3"
fe.fxItemCodigoMtx = "123456789"
fe.fxItemDescripcion = "producto 2"
fe.fxItemCodigo = "P0002"
fe.fxItemCantidad = 1
fe.fxItemCodigoUnidadMedida = 1
fe.fxItemPrecioUnitario = 12
fe.fxItemImporteBonificacion = 0
fe.fxItemCodigoCondicionIva = 1
fe.fxItemImporteIva = 0
fe.fxItemImporteItem = 12
fe.fxIndiceItem = 3
fe.fxItemUnidadesMtxs = "3"
fe.fxItemCodigoMtx = "123456789"
fe.fxItemDescripcion = "producto 3"
fe.fxItemCodigo = "P0003"
fe.fxItemCantidad = 1
fe.fxItemCodigoUnidadMedida = 7
fe.fxItemPrecioUnitario = 4132
fe.fxItemImporteBonificacion = 0
fe.fxItemCodigoCondicionIva = 2
fe.fxItemImporteIva = 0
fe.fxItemImporteItem = 4132
fe.fxOtrosTributosItemCantidad = 1
fe.fxIndiceItem = 0
fe.fxOtrosTributosCodigo = 1
fe.fxOtrosTributosDescripcion = "otro tributos"
fe.fxOtrosTributosBaseImponible = 1000
fe.fxOtrosTributosImporte = 16
fe.fxComprobantesAsociadosItemCantidad = 1
fe.fxIndiceItem = 0
fe.fxComprobanteAsosiadoCodigoTipoComprobante = 1
fe.fxComprobanteAsosiadoNumeroComprobanteS = "1"
fe.fxComprobanteAsosiadoNumeroPuntoVenta = 1
fe.fxComprobanteAsosiadoCUIT = "3235323532"
fe.fxComprobanteAsosiadoCUITNO = false
fe.fxComprobanteAsociadoPeriodoFechaDesde = "20200301"
fe.fxComprobanteAsociadoPeriodoFechaHasta = "20200301"
REM se puede informar el comprobante asociado o el periodo asociado o ninguno. No ambos.
REM en el modo real el servidor no acepta periodo asociado hasta el 01/04/2021. por lo que cualquier instalador anterior a esa fecha no lo incluye en el XML enviado. Hasta el 01/04/2021 solo es posible informar comprobantes asociados. y con un instalador posterior (96.70 o superior) cualquier de los datos (si corresponde).
fe.fxSubTotalesItemCantidad = 1
fe.fxIndiceItem = 0
fe.fxSubTotalesIvaCodigo = 5
fe.fxSubTotalesIvaImporte = 2568.96
fe.fxDatosAdicionalesItemCantidad = 1
fe.fxIndiceItem = 0
fe.fxDatosAdicionalesC1 = "prueba 1"
fe.fxDatosAdicionalesC2 = "prueba "
fe.fxDatosAdicionalesC3 = "prueba 3"
fe.fxDatosAdicionalesC4 = "prueba 4"
fe.fxDatosAdicionalesC5 = "prueba 5"
fe.fxDatosAdicionalesC6 = "prueba 6 "
fe.fxDatosAdicionalest1 = 1
fe.ArchivoXMLEnviado = "c:\enviado.xml"
fe.ArchivoXMLRecibido = "c:\recibido.xml"
lREsultado = fe.fxAutorizarComprobante()
If lREsultado Then
MsgBox("resultado verdadero ")
Else
MsgBox("resultado falso ")
End If
MsgBox("resultado: " + fe.fxRespuestaResultado)
MsgBox("error general: " + fe.fxErrorMsg1)
MsgBox("ultimo error: " + fe.UltimoMensajeError)
MsgBox("error detallado: " + fe.FxRespuestaObservacionDescripcion1)
MsgBox("CAE: " + fe.fxRespuestaCAE)
MsgBox("Número: " + str(fe.fxRespuestaNumeroComprobante))
Else
MsgBox ("fallo acceso " + fe.UltimoMensajeError)
End If
Else
MsgBox ("fallo iniciar " + fe.UltimoMensajeError)
End If