Código de Access - Factura electrónica Access

Factura electrónica Accessgráfica de visualizaciones


Access

Publicado el 29 de Junio del 2016 por Abel
960 visualizaciones desde el 29 de Junio del 2016. Una media de 49 por semana
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

Publicado el 29 de Junio del 2016gráfica de visualizaciones de la versión: 1.1
961 visualizaciones desde el 29 de Junio del 2016. Una media de 49 por semana
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 (0)


No hay comentarios
 

Comentar la versión: 1.1

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

http://lwp-l.com/s3564