Ejemplo WSSEG Visual FoxPro
Para usar el control ActiveX en Visual FoxPro:
En Herramientas Opciones Controles Agregar el control WSAFIPFE
Insertar el control WSAFIPFE a un fomulario (ver en la documentación de FoxPro todo lo referente a la propiedad AutoYield). Cambiar la propiedad "name" a "FE".
En el evento click de un control tipo botón insertar el siguiente código:
lLOCAL lResultado as Boolean
lResultado = thisform.fe.iniciar(0, "aqui cuit de certificado sin separador", "aqui ruta del certificado *.pfx", "")
IF lResultado
lResultado = thisform.fe.sObtenerTicketAcceso()
IF lResultado
thisform.fe.sTipo_Doc = 80
thisform.fe.sNro_doc = "aqui cuit del cliente sin separadores"
thisform.fe.sTipo_cbte = 1
thisform.fe.sPunto_vta = 2
thisform.fe.sImp_total = 121
thisform.fe.sImp_neto = 100
thisform.fe.simpto_liq = 0
thisform.fe.simpto_liq_rni = 0
thisform.fe.simp_op_ex = 0
thisform.fe.sImp_perc = 0
thisform.fe.sImp_iibb = 0
thisform.fe.sImp_internos = 0
thisform.fe.sImp_moneda_id = 1
thisform.fe.sImp_moneda_ctz = 1
thisform.fe.sImp_otrib_prov = 0
thisform.fe.sFecha_cbte = "20091013"
thisform.fe.sItemCantidad = 1
thisform.fe.sIndiceItem = 0
thisform.fe.sITEMpoliza = "seguro auto"
thisform.fe.sITEMendoso = "endoso 1"
thisform.fe.sITEMds = "auto 1"
thisform.fe.sITEMprecio_uni = 100
thisform.fe.sITEMqty = 1
thisform.fe.sITEMIva_id = 1
thisform.fe.sITEMimp_total = 100
thisform.fe.sITEMimp_bonif = 0
thisform.fe.sITEMimp_valor_aseg = 1000
thisform.fe.sITEMimp_moneda_vaseg = "PES"
If thisform.fe.sRegistrar(3, 1, "1") Then
messagebox("CAE: " + thisform.fe.sRespuestaCAE + Chr(10) + "REPROCESO " + thisform.fe.sRespuestaReproceso+CHR(10)+"Evento "+thisform.fe.seventMsg+CHR(10)+"Observacion: "+thisform.fe.sRespuestaOBS)
Else
messagebox("ERROR " + thisform.fe.serrmsg + Chr(10) + "OBS: " + thisform.fe.srespuestaOBS + Chr(10) + "ERROR " + thisform.fe.sRespuestaOBS + Chr(10) + thisform.fe.serrmsg + "ERROR "+Chr(10) + thisform.fe.ultimoMensajeError+CHR(10)+"Reproceso: "+thisform.fe.sRespuestaReproceso)
ENDIF
ELSE
MESSAGEBOX("Fallo al obtener ticket acceso: "+CHR(10)+thisform.fe.ultimoMensajeError)
ENDIF
ELSE
MESSAGEBOX("Control no iniciado")
ENDIF