ValidaCFD

Buen dia...

Con respecto a la libreria he tenido problemas para usar las funciones

Private Declare Function GetError Lib "CFDLib.dll" () As String
Private Declare Function GetErrorExt Lib "CFDLib.dll" () As String
Private Declare Function cadenaOriginal Lib "CFDLib.dll" Alias "CadenaOriginal" () As String
Private Declare Function SelloDigital Lib "CFDLib.dll" () As String


Al mandarlas llamar provoca que el ejecutable o el Vusual Basic se cuelgue y tenga que reiniciar la aplicacion aun cuando no hay error al generar el XML
alguna idea?

Editado: Tambien necesito Saber como liberar el uso de la libreria ya que cuando detengo el depurador tambien se cuelga la aplicacion

Nuevo Edit: Genero el INI este genera el XML pero al usar el exe para timbrar marca este error: Error General - Servicio No disponible
Pero si uso el mismo exe para timbrar tu XML de ejemplo lo hace correctamente... alguna idea?

Buen Dia Dado o alguien que pudiera apoyarme

Aun tengo problemas con lo siguiente

declaro las funciones como lo indicas en el ejemplo y como lei en el foro

Private Declare Function PruebaClaveDeLlavePrivada Lib "CFDLib.dll" (ByVal LlavePrivada As String, ByVal ClaveLlavePrivada As String) As Boolean
Private Declare Function GeneraCFD Lib "CFDLib.dll" (ByVal IniFileName As String, ByVal ClaveLlavePrivada As String) As TError
Private Declare Function TimbrarCFD Lib "CFDLib.dll" (ByVal IniFileName As String) As TError
Private Declare Function GetError Lib "CFDLib.dll" () As String
Private Declare Function GetErrorExt Lib "CFDLib.dll" () As String
Private Declare Function cadenaOriginal Lib "CFDLib.dll" Alias "CadenaOriginal" () As String
Private Declare Function SelloDigital Lib "CFDLib.dll" () As String
Private Declare Function FinalizaCFDLib Lib "CFDLib.dll" () As String

La funcion generar y timbrar aparente funcionan correctamente pero la funcion geterror y geterrorext se cuelgan cuando las mando llamar de la siguiente manera
x = GetError()
Y = GetErrorExt()
If Len(x) > 0 Then
MsgBox x & " " & Y, vbInformation, "Aviso"
'MsgBox "Resultado : OK. " + GetError + " " + GetErrorExt
'MsgBox "Cadena : " + cadenaOriginal
'MsgBox "Sello: " + SelloDigital

o incluso con
MsgBox "Resultado : OK. " + GetError + " " + GetErrorExt

Ignorando estos errores la aplicacion aparente timbra el XML como puedo comprobar que es correcto? sin estas funciones
como te comentaba en el post anterior:

Genero el INI este genera el XML pero al usar el exe para timbrar marca este error: Error General - Servicio No disponible
Pero si uso el mismo exe para timbrar tu XML de ejemplo lo hace correctamente... alguna idea?

Espero puedan apoyarme con esto ya que de esto depende si cambiamos a tu libreria y de PAC.. actualmente generamos xml 3.2 y timbramos con otro pero realmente es muy mal servicio el que tenemos.. para hablar de costos es por este medio o por tel correo?

Gracias esperando respuesta

Yo tengo este mismo problema, el CFDLib funciona apropiadamente y genera el XML versión 2.2, sin embargo, cuando intento llamar la cadena o el sello, el sistema se suspende y debo reiniciarlo.

Estoy utilizando la librería a través de Access y Visual Basic sobre Windows 7

Despues de crear el XML mediante CFDLib...

Dim Cadena as String, Sello as String
Cadena = CadenaOriginal
Sello = SelloDigital

Ya lo resolví corriendo sobre XP. La librería no funciona en Windows 7.
Dado, habrá manera de tener la librería compatible con Windows 7?