Ejemplo Fox Pro II

Para usar el control ActiveX en Visual FoxPro:

lLOCAL lResultado as Boolean

lResultado = thisform.fe.iniciar(0, "aqui cuit de certificado sin separado", "aqui ruta del certificado *.pfx", "")

IF lResultado

lResultado = thisform.fe.bObtenerTicketAcceso()

IF lResultado

thisform.fe.bTipo_Doc = 80

thisform.fe.bNro_doc = "aqui cuit del cliente sin separadores"

thisform.fe.bTipo_cbte = 1

thisform.fe.bPunto_vta = 2

thisform.fe.bImp_total = 121

thisform.fe.bImp_neto = 100

thisform.fe.bimpto_liq = 0

thisform.fe.bimpto_liq_rni = 0

thisform.fe.bimp_op_ex = 0

thisform.fe.bImp_perc = 0

thisform.fe.bImp_iibb = 0

thisform.fe.bImp_internos = 0

thisform.fe.bImp_moneda_id = 1

thisform.fe.bImp_moneda_ctz = 1

thisform.fe.bFecha_cbte = "20090608"

thisform.fe.bZona = 1

thisform.fe.bItemCantidad = 1

thisform.fe.bIndiceItem = 0

thisform.fe.bITEMpro_codigo_sec = "0"

thisform.fe.bITEMpro_codigo_ncm = "7308.10.00"

thisform.fe.bITEMpro_ds = "articulo"

thisform.fe.bITEMpro_precio_uni = 100

thisform.fe.bITEMpro_qty = 1

thisform.fe.bITEMpro_umed = 7

thisform.fe.bITEMIva_id = 1

thisform.fe.bITEMimp_total = 100

thisform.fe.bITEMimp_bonif = 0

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

messagebox("CAE: " + thisform.fe.bRespuestaCAE + Chr(10) + "REPROCESO " + thisform.fe.bRespuestaReproceso+CHR(10)+"Evento "+thisform.fe.beventMsg+CHR(10)+"Observacion: "+thisform.fe.bRespuestaOBS)

Else

messagebox("ERROR " + thisform.fe.berrmsg + Chr(10) + "OBS: " + thisform.fe.brespuestaOBS + Chr(10) + "ERROR " + thisform.fe.bRespuestaOBS + Chr(10) + thisform.fe.berrmsg + "ERROR "+Chr(10) + thisform.fe.ultimoMensajeError+CHR(10)+"Reproceso: "+thisform.fe.bRespuestaReproceso)

ENDIF

ELSE

MESSAGEBOX("Fallo al obtener ticket acceso: "+CHR(10)+thisform.fe.ultimoMensajeError)

ENDIF

ELSE

MESSAGEBOX("Control no iniciado")

ENDIF