Visual Basic - error en codigo de autenticacion

Sub cae

    ' Ejemplo de Uso de Interfaz PyAfipWs para Windows Script Host

' con Web Service Autenticaci n / Factura Electr nica AFIP

' 20134(C) Mariano Reingart <reingart@gmail.com>

' Licencia: GPLv3

'  Requerimientos: scripts wsaa.py y wsfev1.py registrados

' Documentacion:

'  http://www.sistemasagiles.com.ar/trac/wiki/PyAfipWs

'  http://www.sistemasagiles.com.ar/trac/wiki/ManualPyAfipWs

    'Msgbox "CUIT: " & CurrentView.Body.CUIT.Text

    'Msgbox "E_Punt_Vent: " & CurrentView.Body.E_Punt_Vent.Text

    'Msgbox "E_Concepto: " & CurrentView.Body.E_Concepto.Text

    Msgbox "E_NRODOC_AB: " & CurrentView.Body.E_NRODOC_AB.Text

    'Msgbox "E_cbt_hasta: " & CurrentView.Body.E_cbt_hasta.Text

    'Msgbox "E_cbt_desde_: " & CurrentView.Body.E_cbt_desde_.Text

    Msgbox "E_TOTAL_DOC: " & CurrentView.Body.E_TOTAL_DOC.Text

    'Msgbox "E_ENETO: " & CurrentView.Body.E_ENETO.Text

    'Msgbox "E_imp_tot_conc: " & CurrentView.Body.E_imp_tot_conc.Text

    'Msgbox "E_ImpIva: " & CurrentView.Body.E_ImpIva.Text

    'Msgbox "E_imp_trib: " & CurrentView.Body.E_imp_trib.Text

    'Msgbox "E_imp_op_ex: " & CurrentView.Body.E_imp_op_ex.Text

    'Msgbox "FECHA: " & CurrentView.Body.FECHA.Text

    Msgbox "E_Venc: " & CurrentView.Body.E_Venc.Text

' Crear el objeto WSAA (Web Service de Autenticaci n y Autorizaci n) AFIP

    Set WSAA = CreateObject("WSAA")

' Solicitar Ticket de Acceso

    wsdl = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms" ' Homologaci n!

    'wsdl = "https://wsaa.afip.gov.ar/ws/services/LoginCms" ' produccion!

    scriptdir =WSAA.InstallDir

    ok = WSAA.Autenticar("wsfe", scriptdir & "\reingart.crt", scriptdir & "\reingart.key", wsdl) 'en homo cambiar Key

    'ok = WSAA.Autenticar("wsfe",  "\rutacompleta al certif..crt", "\ruta de clave priv.key", wsdl) 'en produccion cambiar Key

    Msgbox wsaa.XmlRequest

    Msgbox wsaa.XmlResponse

' Crear el objeto WSFEv1 (Web Service de Factura Electr nica version 1) AFIP

    Set WSFEv1 = CreateObject("WSFEv1")

' Establecer parametros de uso:

    WSFEv1.Cuit = "20267565393" 'homologacion

    'WSFEv1.Cuit = "20130871616" 'produccion

    WSFEv1.Token = WSAA.Token

    WSFEv1.Sign = WSAA.Sign

' Conectar al websrvice

    wsdl = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx?WSDL" 'homologacion

    'wsdl = "https://servicios1.afip.gov.ar/wsfev1/service.asmx?WSDL" 'produccion

    WSFEv1.Conectar "", wsdl

' Consultar ltimo comprobante autorizado en AFIP

    tipo_cbte = 1 'aqui puede ir el campo tipo de comprobante,fact.A1,ndA2,ncA3

                          ',fact.B6 ,ndB7 ,ncB8 ,recA4 ,recB9

    punto_vta = 4003

    ult = WSFEv1.CompUltimoAutorizado(tipo_cbte, punto_vta)

    Msgbox WSFEv1.CompUltimoAutorizado(tipo_cbte, punto_vta)

    Msgbox wsfev1.XmlRequest

    Msgbox wsfev1.XmlResponse

' Calculo el pr ximo n mero de comprobante:

    If ult = "" Then

        cbte_nro = 0                ' no hay comprobantes emitidos

    Else

        cbte_nro = Clng(ult)        ' convertir a entero largo

        cbte_nro = cbte_nro + 1

    End If

    If cbte_nro <> Val(CurrentView.Body.E_cbt_desde_.Text) Then

        Msgbox "Proximo Nº  factura " & cbte_nro & ", no coincide con el form: " & CurrentView.Body.E_cbt_desde_.Text

    End If

' Formateo fecha actual en formato yyymmdd:

    d = Date ' fecha actual

    fecha = Year(d) & Right("0" & Month(d), 2)  & Right("0" & Day(d),2)

' Establezco los valores de la factura a autorizar:

    concepto = 1 '' E_Concepto 'ventas.-1 productos 2 servicios 3 ambos

    tipo_doc = 80 'TIPO 'ventas.80 cambiar por 96 si es DNI o 99 si es Consumidor Final

    nro_doc = CurrentView.Body.CUIT.Text   'ventas."33693450239"  para reemplazar con el varlor del formualiro: CurrentView.Body.CUIT.Text

    cbt_desde = CurrentView.Body.E_cbt_desde_.Text '-ventas.-cbte_nro

    cbt_hasta = CurrentView.Body.E_cbt_hasta.Text  'ventas.-cbte_nro

    imp_tot_conc = E_imp_tot_conc 'ventas."2.00"

    imp_neto = Round( Ccur(CurrentView.Body.E_ENETO.Text),2) '"100.00"

    imp_trib = 0 ' E_imp_trib'ventas."1.00"

    imp_op_ex = E_imp_op_ex'ventas."0.00"

    fecha_cbte = FECHA'ventas.fecha

    fecha_venc_pago = E_Venc 'ventas."

    imp_iva = Round(Ccur(CurrentView.Body.E_ImpIva.Text) ,2)'"21.00"

    imp_total =  Round(Ccur(CurrentView.Body.E_TOTAL_DOC.Text),2) '"124.00"

' Fechas del per odo del servicio facturado (solo si concepto > 1)

    fecha_serv_desde = ""

    fecha_serv_hasta = ""

    moneda_id = "PES"

    moneda_ctz = "1.000"

    ok = WSFEv1.CrearFactura(concepto, tipo_doc, nro_doc, tipo_cbte, punto_vta, _

    cbt_desde, cbt_hasta, imp_total, imp_tot_conc, imp_neto, _

    imp_iva, imp_trib, imp_op_ex, fecha_cbte, fecha_venc_pago, _

    fecha_serv_desde, fecha_serv_hasta, _

    moneda_id, moneda_ctz)

' Agrego los comprobantes asociados:

    If False Then ' solo nc/nd

        tipo = 19

        pto_vta = 2

        nro = 1234

        ok = WSFEv1.AgregarCmpAsoc(tipo, pto_vta, nro)

    End If

' Agrego impuestos varios

    ''id = 99

    ''desc = "Impuesto Municipal Matanza'"

    ''base_imp = "100.00"

    ''alic = "1.00"

    ''importe = "1.00"

    ''ok = WSFEv1.AgregarTributo(id, desc, base_imp, alic, importe)

' Agrego tasas de IVA

    'iva_id = 5 ' 21%

    'base_imp =  Round(Ccur(CurrentView.Body.E_ENETO.Text), 2) '"100.00"

    'importe = Round( Ccur(CurrentView.Body.E_ImpIva.Text),2) '"21.00"

    'ok = WSFEv1.AgregarIva(iva_id, base_imp, importe)

' Agrego tasas de IVA (solo si hay impuesto liquidado al 21%)

    importe = Round( Ccur(CurrentView.Body.E_SUMA21.Text),2)

    If importe > 0 Then

        iva_id = 5 ' 21%

        base_imp = Round(importe*100/21.00, 2)

        ok = WSFEv1.AgregarIva(iva_id, base_imp, importe)

    End If

' Agrego tasas de IVA (solo si hay impuesto liquidado al 10.5%)

    importe = Round( Ccur(CurrentView.Body.E_SUMA105.Text),2)

    If importe > 0 Then

        iva_id = 4 ' 10,5%

        base_imp = Round(importe*100/10.50, 2)

        ok = WSFEv1.AgregarIva(iva_id, base_imp, importe)

    End If

'Agrego tasas de IVA

    'iva_id = 5 ' 21%

    'base_imp = Round(Ccur(CurrentView.Body.E_ENETO.Text), 2)'"100.00"

    'importe = Round( Ccur(CurrentView.Body.E_SUMA21.Text),2)'"21.00"

    'ok = WSFEv1.AgregarIva(id, base_imp, importe)

' Agrego tasas de IVA

    'iva_id = 4 ' 10,5%

    'base_imp = Round(Ccur(CurrentView.Body.E_ENETO.Text), 2)'"100.00"

    'importe = Round( Ccur(CurrentView.Body.E_SUMA105.Text),2)'"21.00"

    'ok = WSFEv1.AgregarIva(id, base_imp, importe)

' Habilito reprocesamiento autom tico (predeterminado):

    WSFEv1.Reprocesar = True

' Solicito CA

    WSFEv1.LanzarExcepciones = False

    WSFEv1.CAESolicitar

    If WSFEv1.Excepcion <> "" Then

        Msgbox WSFEv1.Traceback,  vbInformation + vbOKOnly, WSFEv1.Excepcion

    End If

    If WSFEv1.ErrMsg <> "" Then

        Msgbox WSFEv1.ErrMsg,  vbInformation + vbOKOnly, "Errores AFIP"

    End If

' Imprimo pedido y respuesta XML para depuraci n (errores de formato)

    Msgbox wsfev1.XmlRequest

    Msgbox wsfev1.XmlResponse

    CurrentView.Body.CAE_N_.Text  = wsfev1.CAE

    CurrentView.Body.CAEFECHADV.Text = wsfev1.Vencimiento

    'CurrentView.Body.COMODIN.Text = WSFEv1.Code

    Msgbox "Resultado:" & WSFEv1.Resultado & " CAE: " & wsfev1.CAE & " Venc: " & WSFEv1.Vencimiento & " Obs: " & WSFEv1.obs & " Reproceso: " & WSFEv1.Reproceso, vbInformation + vbOKOnly

End Sub