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 .

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