Código de Access - Factura electrónica Access

sin imagen de perfil
Val: 18
Ha disminuido su posición en 9 puestos en Access (en relación al último mes)
Gráfica de Access

Factura electrónica Accessgráfica de visualizaciones


Access

Publicado el 29 de Junio del 2016 por Abel (3 códigos)
6.615 visualizaciones desde el 29 de Junio del 2016
Este código permite obtener el cae de la afip. Esta desarrollado en Access y 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(3)

Publicado el 29 de Junio del 2016gráfica de visualizaciones de la versión: 1.1
6.616 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 (3)

Tristan Chevalier
29 de Marzo del 2017
estrellaestrellaestrellaestrellaestrella
Hola, podrías indicarme como hacer la referencia a feAFIPLib desde el menu de proyecto ya que la linea de referencia esta fallando.
1
2
' Si esta linea falla es porqu eno agrego la referencia en a FEAFIPLib desde el menu de proyecto
Dim wsfev1 As FEAFIPLib.wsfev1
Desde ya muchas gracias.
Responder
Eduardo
15 de Enero del 2020
estrellaestrellaestrellaestrellaestrella
No puedo ver el ejemplo Access funcionando ya que aparece un msg: El numero o fecha del comprobante no se corresponde con el proximo a autorizar. Consultar metodo FECompUltimoAutorizado.
Access 227 o 2010 - Windows 7 32.
feafiplib en referencias OK
feafip.dll registrada OK

Me interesa implementar en desarrollo propio Access. Me gustaría ver funcionar su ejemplo que descargué de la web de BITIngeniería
Desde ya Gracias
Responder
Gaston
30 de Julio del 2020
estrellaestrellaestrellaestrellaestrella
Eduardo. Me gustaría contactarme. Gracias
resler.gaston@gmail.com.
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/s3564