VisualBasic

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 usar el control ActiveX en Visual Basic 5 o posterior:

Agregar al proyecto una referencia al componente WSAFIPFE

Insertar el control WSAFIPFE. Cambiar la propiedad "name" a "FE".

En el evento click de un control tipo botón insertar el siguiente código:

Dim bResultado As Boolean

Dim cIdentificador as string

bResultado = me.FE.iniciar(modoFiscal_Test, "aqui el cuit sin separador", "aqui ruta y nombre del certificado tipo *.pfx", "")

If bResultado Then

bResultado = me.FE.ObtenerTicketAcceso()

End If

If bResultado Then

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 del cliente"

Me.FE.FEDetalleTipo_doc = TipoDocumento_CUIT

cIdentificador = "1"

bResultado = Me.FE.Registrar(1, TipoComprobante_FacturaA, cIdentificador)

If bResultado Then

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 + "Detalle: " + Me.FE.UltimoMensajeError)

End If