Ejemplo WSSEG Visual Basic

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", "")

If lResultado Then

lResultado = Me.fe.sObtenerTicketAcceso()

If lResultado Then

Me.fe.sTipo_Doc = 80

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

Me.fe.sTipo_cbte = 1

Me.fe.sPunto_vta = 3

Me.fe.sImp_total = 121

Me.fe.sImp_neto = 100

Me.fe.simpto_liq = 0

Me.fe.simpto_liq_rni = 0

Me.fe.simp_op_ex = 0

Me.fe.sImp_perc = 0

Me.fe.sImp_iibb = 0

Me.fe.sImp_internos = 0

Me.fe.sImp_otrib_prov = 0

Me.fe.sImp_moneda_id = 1

Me.fe.sImp_moneda_ctz = 1

Me.fe.sFecha_cbte = "20091012"

Me.fe.sItemCantidad = 1

Me.fe.sIndiceItem = 0

Me.fe.sITEMPoliza = "Seguro auto"

Me.fe.sITEMEndoso = "endoso 1"

Me.fe.sITEMds = "auto 1"

Me.fe.sITEMprecio_uni = 100

Me.fe.sITEMqty = 1

Me.fe.sITEMIva_id = 1

Me.fe.sITEMimp_total = 100

Me.fe.sITEMimp_bonif = 0

me.fe.sITEMimp_valor_aseg = 1000

me.fe.sITEMImp_moneda_vaseg = "PES"

If Me.fe.sRegistrar(3, 1, "1") Then

MsgBox ("CAE: " + Me.fe.sRespuestaCAE + Chr(10) + "REPROCESO " + Me.fe.sRespuestaReproceso + Chr(10) + "Evento " + Me.fe.sEventMsg + Chr(10) + "Observacion: " + Me.fe.sRespuestaOBS)

Else

MsgBox ("ERROR " + Me.fe.serrmsg + Chr(10) + "OBS: " + Me.fe.sRespuestaOBS + Chr(10) + "ERROR " + Me.fe.sRespuestaOBS + Chr(10) + Me.fe.serrmsg + "ERROR " + Chr(10) + Me.fe.UltimoMensajeError + Chr(10) + "Reproceso: " + Me.fe.sRespuestaReproceso)

End If

Else

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

End If

Else

MsgBox ("Control no iniciado")

End If