Ocx para factura electrónica AFIP

Solución para sistemas informáticos existentes. Ideal para programadores.

FEAFIP es el OCX para factura electrónica diseñado para que los sistemas de facturación puedan obtener el CAE automáticamente de AFIP sin necesidad de hacer la carga manual de las facturas. El mismo esta siendo utilizado por miles de empresas y ampliamente probado en distintas plataformas de desarrollo.

Se ofrece no solo un producto sino además un servicio de asesoramiento integral con FEAFIP, desde situaciones técnicas hasta de trámites de certificados y administrativos. El módulo ha sido distribuido desde el año 2010. Soporta todos los comprobantes de facturación con sus regímenes y todo ello viene entregado en un único precio.

No hay margen al error cuando miles de empresas imprimen a través de nuestra solución. Nos nutrimos permanentemente de las distintas situaciones que se puedan presentar así que si tenes un error durante el desarrollo y no sabes que sucede. Ya nosotros seguramente lo analizamos y ajustamos el código para que no pierdas tiempo.

Funcionalidades del OCX para factura electrónica

Generación de código QR.
Compatibilidad con protocolos TLS 1.2.
Obtención de CAE para facturas A, B, C además de exportación, mtxca y bonos fiscales electrónicos
Generador/Renovador de certificados digitales
Leer la fecha de vencimiento del certificado para emitir alertas al usuario
Consulta directa de CUIT / DNI al padrón de AFIP
Consulta directa de alícuotas de ARBA
Descarga directa de constancia de AFIP de cualquier contribuyente
Constatación de comprobantes emitidos por propios y terceros
Consulta de comprobantes emitidos
Almacenamiento automático de token.
Adaptabilidad a entornos de red o de múltiples usuarios.
Procesamiento de lotes de facturas
Factura turismo T (costo adicional)
Factura de crédito (costo dicional)

Compatibilidad de lenguajes (algunos de ellos)

Visual Basic 6
Visual Basic.NET
C#
Visual Foxpro
Delphi
Clarion
Java
Harbour
PowerBuilder
Cobol
Access
Excel
PHP (ver FEAFIP.PHP)

Documentación

Ejemplos de integración dll factura electrónica con lenguajes de programación

Junto con nuestro OCX para factura electrónica mostramos un ejemplo a continuación. Estos y otros están disponibles en la demo para descargar.

' Los nombres de los parametros de las funciones se obtienen descomprimiendo FEAFIP DOC
' y luego abriendo el archivo index.html de la carpeta "Doc Interfaces".
' la interfaz correspondiente a este ejemplo es Iwsfev1 para facturas A y B.

'URLs de autenticacion y negocio. Cambiarlas por las de producción al implementarlas en el cliente(abajo)
Const URLWSAA = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms" 
'Producción: https://wsaa.afip.gov.ar/ws/services/LoginCms 
Const URLWSW = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx" 
' Producción: https://servicios1.afip.gov.ar/wsfev1/service.asmx

' Si esta linea falla es porqu eno agrego la referencia en a FEAFIPLib desde el menu de proyecto
Dim wsfev1 As FEAFIPLib.wsfev1
Dim nro As Double
CAE$ = ""
Vencimiento$ = ""
Resultado$ = ""
Reproceso$ = ""
nro = 0
PtoVta = 10
TipoComp = 1 '' Factura A(ir a http://bitingenieria.com.ar/codigos.html)
FechaComp = Format(Now(), "yyyymmdd")

Set wsfev1 = New FEAFIPLib.wsfev1
wsfev1.CUIT = 20939802593# ' Cuit del vendedor
wsfev1.URL = URLWSW
If wsfev1.login("certificado.crt", "clave.key", URLWSAA) Then
    If Not wsfev1.RecuperaLastCMP(PtoVta, TipoComp, nro) Then
        MsgBox (wsfev1.ErrorDesc)
    End If
    nro = nro + 1
    wsfev1.Reset
    wsfev1.AgregaFactura 1, 80, 30707219072#, nro, nro, FechaComp, 121, 0, 100, 0, "", "", "", "PES", 1
    wsfev1.AgregaIVA 5, 100, 21 'ir a http://bitingenieria.com.ar/codigos.html
    If wsfev1.Autorizar(PtoVta, TipoComp) Then
       wsfev1.AutorizarRespuesta 0, CAE, Vencimiento, Resultado, Reproceso
       If Resultado = "A" Then
           MsgBox "Felicitaciones! Si ve este mensaje instalo correctamente FEAFIP. CAE y Vencimiento: " & _
                CAE + " " + Vencimiento
       Else
           MsgBox wsfev1.AutorizarRespuestaObs(0)
       End If
    Else
       MsgBox wsfev1.ErrorDesc
End If
Else
    MsgBox wsfev1.ErrorDesc
End If

Descargar demo

Tutorial