Código de Excel - Factura Electronica Excel

Pos: 338

Val: 8

Ha disminuido su posición en 180 puestos en Excel (en relación al último mes)

Factura Electronica Excel

Excel

(2)

Publicado el 29 de Junio del 2016 por Abel (3 códigos)

8.263 visualizaciones desde el 29 de Junio del 2016

Este código permite obtener el cae de la afip. Esta desarrollado en Excely es muy simple. Como el proceso de factura electrónica requiere de una firma digital y algoritmo rsa sha1 estos no son posibles le generar en Access nativo.
Este código depende de un ocx llamado feafip que hace todo internamente.

Acá esta disponible el mismo http://www.bitingenieria.com.ar/feafip

Requerimientos

- Sistema Operativo Windows
- ocx feafip registrada
- MS Access cualquier versión

1.1
(2)

Actualizado el 1 de Julio del 2016 (Publicado el 29 de Junio del 2016)

gráfica de visualizaciones de la versión: 1.1

8.264 visualizaciones desde el 29 de Junio del 2016

'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://www.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://www.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

Comentarios sobre la versión: 1.1 (2)

Alejandro iturre

4 de Noviembre del 2018

Como te va? Estuve viendo en la web la posibilidad de emitir facturas electronicas desde excel, en lo posible en forma masiva. Este codigo me sirve? Como deberia instalarlo en excel? Necesito algo mas?
Muchas Gracias

Responder

Daniel

4 de Marzo del 2020

MUY BUENO

Responder