Ejemplo WSBFE Visual Basic

Este ejemplo usa el identificador "1" como 3°er argumento del método registrar. Debe usar un identificador único y diferente para obtener CAE diferentes en cada ejecución. Después de probar el ejemplo lea toda la documentación referente a "identificador" y "reproceso" para una explicación detallada sobre la función de este argumento. Este ejemplo requiere la versión 100.81 o superior.

Para usar el control ActiveX en Visual Basic 5 o posterior:

Dim lResultado As Boolean

lResultado = Me.fe.iniciar(0, "aqui cuit del certificado", "aui ruta del certificado *.pfx", "")

me.fe.bversion = 1

If lResultado Then

   lResultado = Me.fe.bObtenerTicketAcceso()

   If lResultado Then

        Me.fe.bTipo_Doc = 80

        Me.fe.bNro_doc = "aqui cuit del cliente"

        Me fe.bCondicionIvaReceptor = 1

        Me.fe.bTipo_cbte = 1

        Me.fe.bPunto_vta = 2

        Me.fe.bImp_total = 121

        Me.fe.bImp_neto = 100

        Me.fe.bimpto_liq = 0

        Me.fe.bimpto_liq_rni = 0

        Me.fe.bimp_op_ex = 0

        Me.fe.bImp_perc = 0

        Me.fe.bImp_iibb = 0

        Me.fe.bImp_internos = 0

        Me.fe.bImp_moneda_id = 1

        Me.fe.bImp_moneda_ctz = 1

        REM Me.fe.bCanMisMonExt = "S"

REM si el comprobante es en pesos este campo no debe ser informado, o si se lo hace  debe ser con el valor "N" ya que este campo solo es relevante  para los comprobantes en moneda extranjera

        Me.fe.bFecha_cbte = "20090608"

        Me.fe.bZona = 1

        me.fe.bFecha_vto_pago = ""

        Me.fe.bItemCantidad = 1

        Me.fe.bIndiceItem = 0

        Me.fe.bITEMpro_codigo_sec = "0"

        Me.fe.bITEMpro_codigo_ncm = "7308.10.00"

        Me.fe.bITEMpro_ds = "articulo"

        Me.fe.bITEMpro_precio_uni = 100

        Me.fe.bITEMpro_qty = 1

        Me.fe.bITEMpro_umed = 7

        Me.fe.bITEMIva_id = 1

        Me.fe.bITEMimp_total = 100

        Me.fe.bITEMimp_bonif = 0

        Me.bQrArchivo = "d:\bqr2.jpg"

        Me.bQrFormato = 6

        Me.bQrResolucion = 4

        Me.bQrTolerancia = 0

        Me.fe.bcteasociadoitemcantidad = 1

        Me.fe.bIndiceItem = 0

        Me.fe.bcbteasociadocbte_numero = " 

        Me.fe.bcbteasociadocuit = "cuit"

        Me.fe.bcbteasociadoFecha_cbte = "20161201"

        Me.fe.bcbteasociadoPunto_vta = 1

        Me.fe.bcbteasociadoTipo_cbte = 1

         Me.fe.bDetalleOpcionalItemCantidad = 1

         me.fe.bfeindiceitem = 0

         Me.fe.bDetalleOpcionalId = "1"

         Me.fe.bDetalleOpcionalValor = "prueba"

         me.fe.archivoxmlenviado ="d:\rutavalida\enviado.xml"

         me.fe.archivoxmlrecibido ="d:\rutavalida\recibido.xml"

        If Me.fe.bRegistrar(2, 1, "1") Then

            MsgBox ("CAE: " + Me.fe.bRespuestaCAE + Chr(10) + "REPROCESO " + Me.fe.bRespuestaReproceso + Chr(10) + "Evento " + Me.fe.bEventMsg + Chr(10) + "Observacion: " + Me.fe.bRespuestaOBS)

        Else

            MsgBox ("ERROR " + Me.fe.berrmsg + Chr(10) + "OBS: " + Me.fe.bRespuestaOBS + Chr(10) + "ERROR " + Me.fe.bRespuestaOBS + Chr(10) + Me.fe.berrmsg + "ERROR " + Chr(10) + Me.fe.UltimoMensajeError + Chr(10) + "Reproceso: " + Me.fe.bRespuestaReproceso)

        End If

   Else

      MsgBox ("Fallo al obtener ticket acceso: " + Chr(10) + Me.fe.UltimoMensajeError)

   End If

Else

  MsgBox ("Control no iniciado")

End If