Ejemplo ACCESS
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.
Para este ejemplo en ACCESS 2003 se usa el control OCX. También es posible usarlo desde una macro mediante la interface COM. Como se muestra en el ejemplo EXCEL.
On Error GoTo Err_Comando1_Click
On Error GoTo Err_Comando1_Click
If Me.fe.iniciar(0, "aqui cuit del emisor sin separado", "ruta y nombre del certificado PFX", "") Then
If Me.fe.ObtenerTicketAcceso() Then
Dim lResultado As Boolean
Dim cIdentificador as string
Me.fe.FECabeceraCantReg = 1
Me.fe.FECabeceraPresta_serv = 1
Me.fe.indice = 0
Me.fe.FEDetalleFecha_vence_pago = "20090101"
Me.fe.FEDetalleFecha_serv_desde = "20090101"
Me.fe.FEDetalleFecha_serv_hasta = "20090101"
Me.fe.FEDetalleFecha_vence_pago = "20090101"
Me.fe.FEDetalleImp_neto = 100
Me.fe.FEDetalleImp_total = 121
Me.fe.FEDetalleFecha_cbte = "20090101"
Me.fe.FEDetalleNro_doc = "aqui cuit válido del cliente."
Me.fe.FEDetalleTipo_doc = 80
cIdentificador = "1"
lResultado = fe.Registrar(1, 1, cIdentificador)
Me.fe.indice = 0
If lResultado Then
Me.fe.indice = 0
MsgBox ("CAE: " + Me.fe.FERespuestaDetalleCae + Chr(10) + "MOTIVO: " + Me.fe.FERespuestaDetalleMotivo + Chr(10) + "PROCESO: " + Me.fe.FERespuestaReproceso + Chr(10) + "Numero: " + Str(Me.fe.FERespuestaDetalleCbt_desde))
Else
MsgBox ("mOTIVO: " + Me.fe.FERespuestaDetalleMotivo + Chr(10) + " eRROR " + Me.fe.Permsg + "ULTMO: " + Me.fe.UltimoMensajeError)
End If
Else
MsgBox Me.fe.UltimoMensajeError
End If
Else
MsgBox Me.fe.UltimoMensajeError
End If
Exit_Comando1_Click:
Exit Sub
Err_Comando1_Click:
MsgBox Err.Description
Resume Exit_Comando1_Click