Ejemplo EXCEL
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 excel se usa la interface COM sin acceder por el control ActiveX. Las macros deben estar habilitadas. Ver nota al final sobre incompatiblidad en Excel Error .
En una planilla en blanco acceder a la hoja de macros. Crear un nuevo módulo.
En el menu herramientas referencias. Agregar una referencia a la biblioteca WSAFIPFE (no al control activeX WSAFIPFE)
En el módulo insertar el siguiente código:
Sub prueba()
Dim fe As WSAFIPFE.factura
Dim cIdentificador as string
Set fe = New WSAFIPFE.factura
If fe.iniciar(0, "aqui cuit sin seprador", "aqui ruta del certificado", "") Then
If fe.ObtenerTicketAcceso() Then
Dim lResultado As Boolean
fe.FECabeceraCantReg = 1
fe.FECabeceraPresta_serv = 1
fe.indice = 0
fe.FEDetalleFecha_vence_pago = "20090101"
fe.FEDetalleFecha_serv_desde = "20090101"
fe.FEDetalleFecha_serv_hasta = "20090101"
fe.FEDetalleFecha_vence_pago = "20090101"
fe.FEDetalleImp_neto = 100
fe.FEDetalleImp_total = 121
fe.FEDetalleFecha_cbte = "20090101"
fe.FEDetalleNro_doc = "aqui cuit del cliente"
fe.FEDetalleTipo_doc = 80
cIdentificador = "1"
lResultado = fe.Registrar(1, 1, cIdentificador)
fe.indice = 0
If lResultado Then
fe.indice = 0
MsgBox ("CAE: " + fe.FERespuestaDetalleCae + Chr(10) + "MOTIVO: " + fe.FERespuestaDetalleMotivo + Chr(10) + "PROCESO: " + fe.FERespuestaReproceso + Chr(10) + "Numero: " + Str(fe.FERespuestaDetalleCbt_desde))
Else
MsgBox ("mOTIVO: " + fe.FERespuestaDetalleMotivo + Chr(10) + " eRROR " + fe.Permsg + "ULTMO: " + fe.UltimoMensajeError)
End If
Else
MsgBox fe.UltimoMensajeError
End If
Else
MsgBox fe.UltimoMensajeError
End If
Set fe = Nothing
End Sub