Ejemplo WSFEX Visual Basic

Este ejemplo usa el identificador "1" como 3°er argumento del método registrar(conNumero). 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. El ejemplo usa el método "xRegistrarConNumero" (y el instalador 100.81 o superior) equivalente al método "xRegistrar" pero con un 4°to argumento: el número de comprobante a autorizar que debe ser calculado manualmente. Se deben usar fechas del dia.

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

  Dim cIdentificador As String

  Dim nNumero As Integer

  Dim nIndex As Integer

  Dim nPuntoventa As Integer

  Dim ntipoComprobante As Integer

  cIdentificador = "1"

  nNumero = 1

  nPuntoventa = 3

  ntipoComprobante = 19

  If fe.iniciar(0, "aqui c.u.i.t. emisor sin separadores", "aqui ruta y nombre del certificado tipo *.pfx", "") Then

     fe.xversion = 1

     If fe.xObtenerTicketAcceso() Then

        fe.xFecha_cbte = "20191104"

       fe.xFecha_pago = "20191104"

        fe.xtipo_expo = 1

        fe.xPermiso_existenteS = "S"

        fe.xDst_cmp = 203

        fe.xCliente = "Joao Da Silva"

        fe.xCuit_pais_clienteS = "50000000016"

        fe.xDomicilio_cliente = "Rua 76 km 34.5 Alagoas"

        fe.xId_impositivo = "PJ54482221-l"

        fe.xMoneda_idS = "012"

        fe.xMoneda_ctzS = 0.51

        fe.xCanMisMonExt = "S"

        fe.xObs_comerciales = "Sin observaciones"

        fe.xImp_total = 500

        fe.xForma_pago = "Contado"

        fe.xIncoTerms = "CIF"

        fe.xIncoTerms_ds = "Texto dic."

        fe.xIdioma_cbte = 1

        fe.ArchivoXMLRecibido = "c:\recibido.xml"

        fe.xItemCantidad = 2

        fe.xIndiceItem = 0

        fe.xITEMPro_codigo = "PRO1"

        fe.xITEMPro_ds = "Producto Tipo 1 Exportacion MERCOSUR ISO 9001"

        fe.xITEMPro_qty = 1

        fe.xITEMPro_umed = 7

        fe.xITEMPro_precio_uni = 250

        fe.xITEMPro_precio_item = 250

        fe. xITEMPro_bonificacion = 0

        fe.xIndiceItem = 1

        fe.xITEMPro_codigo = "PRO1"

        fe.xITEMPro_ds = "Producto Tipo 1 Exportacion MERCOSUR ISO 9001"

        fe.xITEMPro_qty = 1

        fe.xITEMPro_umed = 7

        fe.xITEMPro_precio_uni = 250

        fe.xITEMPro_precio_item = 250

        fe. xITEMPro_bonificacion = 0

        fe.xPermisoCantidad = 2

        fe.xPermisoNoInformar = 0

        fe.xIndiceItem = 0

        fe.xPERMISO_id_permiso = "09052EC01006154G"

        fe.xPERMISO_dst_merc = 203

        fe.xIndiceItem = 1

        fe.xPERMISO_id_permiso = "09052EC01006154G"

        fe.xPERMISO_dst_merc = 202

        fe.xCmps_asocCantidad = 1

        fe.xIndiceItem = 0

        fe.xCMPS_ASOC_cbte_cuit = "123456789"

        fe.xCMPS_ASOC_cbte_nroS = "1234"

        fe.xCMPS_ASOC_cbte_punto_venta = 1

        fe.xCMPS_ASOC_cbte_tipo = 1

        If fe.xRegistrarConNumero(nPuntoventa, ntipoComprobante, cIdentificador, nNumero) Then

           MsgBox ("Reproceso " + fe.xRespuestaReproceso)

           MsgBox ("resultado correcto " + fe.xRespuestaResultado)

           MsgBox ("CAE " + fe.xRespuestaCAE)

           MsgBox ("número " + fe.xRespuestacbte_numeroS)

        Else

           MsgBox ("Reproceso " + fe.xRespuestaReproceso)

           MsgBox ("resultado falso " + fe.xRespuestaResultado)

           MsgBox ("error " + fe.xerrmsg)

           MsgBox ("motivo " + fe.xRespuestaMotivos_obs)

           MsgBox ("ultimo mensaje error " + fe.UltimoMensajeError)

        End If

     Else

        MsgBox ("fallo en acceso " + fe.xerrmsg)

     End If

  Else

     MsgBox ("fallo iniciar " + fe.UltimoMensajeError)

  End If