No ejecuta la funcion de la libreria
Publicado: Mié Jul 20, 2016 6:11 pm
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:
Pero la funcion GeneraCFDExt no se ejecuta
Si cargo el ini y timbro desde el cfdilib test funciona correctamente
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 IfSi cargo el ini y timbro desde el cfdilib test funciona correctamente