Código de Excel - Factura Electronica Excel

sin imagen de perfil
Val: 16
Ha aumentado su posición en 2 puestos en Excel (en relación al último mes)
Gráfica de Excel

Factura Electronica Excelgráfica de visualizaciones


Excel

Publicado el 29 de Junio del 2016 por Abel (3 códigos)
5.127 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
estrellaestrellaestrellaestrellaestrella(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
5.128 visualizaciones desde el 29 de Junio del 2016
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
'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
estrellaestrellaestrellaestrellaestrella
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
4 de Marzo del 2020
estrellaestrellaestrellaestrellaestrella
MUY BUENO
Responder

Comentar la versión: 1.1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3565