No ejecuta la funcion de la libreria

[MOGG]

Buen dia, solicito apoyo con este problema Desconozco por que la librería no se esta cargando en este equipo, tengo muchos otros y no he tenido problema no se si puedan apoyarme, es VB6

Uso el siguiente codigo en un modulo:

Código: Seleccionar todo

Public Declare Function GeneraCFDExt Lib "C:\VENTAS\PKI\CFDLib.dll" (ByVal IniFileName As String, ByVal ClaveLlavePrivada As String, ByVal Cadena As String, ByVal Sello As String, ByVal Error As String, ByVal ErrorExt As String) As Byte

      Set obj_FSO = Nothing
       Set Archivo = Nothing

            Dim Cadena As String
            Dim Sello As String
            Dim Error As String
            Dim ErrorExt As String
  
            Cadena = ""
            Sello = ""
            Error = ""
            ErrorExt = ""
        
            Cadena = String(16000, vbNullChar)
            Sello = String(1024, vbNullChar)
            Error = String(200, vbNullChar)
            ErrorExt = String(200, vbNullChar)
       
    If GeneraCFDExt("C:\VENTAS\INI\" & seriefolio & ".INI", "XXXXXXX", Cadena, Sello, Error, ErrorExt) = 0 Then
    
    Else
        MsgBox ("Hubo un error " & vbCrLf & vbCrLf & Error & vbCrLf & vbCrLf & ErrorExt)
        Exit Sub
    End If

Pero la funcion GeneraCFDExt no se ejecuta

Si cargo el ini y timbro desde el cfdilib test funciona correctamente

[Dado]

Yo no programo en VB6

Pero se me ocurre que el error pudiera ser porque no encuentra la DLL

Asegurate que la DLL esta en la carpeta "C:\VENTAS\PKI\CFDLib.dll" al igual que ssleay32.dll y libeay32.dll

[jggtz]

Podrias dar mas detalles de ese equipo en particular (donde no se ejecuta) y las diferencias contra los equipos donde si se ejecuta... creo que por ahi puede ser el problema... yo los he tenido tambien...