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