Ejemplo WSMTXCA Visual Basic 6 obtener CAE

Este ejemplo usa la versión100.81  (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.fxCondicionIvaReceptor = 1

                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..fxCanMisMonExt = "si"

                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