FoxPro/Visual FoxPro - Nuevo error: No se puede crear el objeto Chilkat.PrivateKey..

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 42 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Nuevo error: No se puede crear el objeto Chilkat.PrivateKey..

Publicado por Hércules (1 intervención) el 13/07/2020 19:02:32
Que tal!

Es un gusto saludarlos nuevamente (ya tiene tiempo no consulto..)

De antemano, muchas gracias, les contacto porque tengo la siguiente situación...

Esto ha surgido recientemente y no he podido determinar la causa del error...

Estamos trabajando parte del código de HALCONDIVINO (gracias..).. para factura electrónica... y todo bien.. hasta el momento en que empezo a hacer lo siguiente:

Manda error: No se puede crear el objeto Chilkat.PrivateKey..

Al parecer es en esta parte del código en donde se bloquea.. (por asi decirlo)...

1
2
3
4
5
6
*  Objetos
loPkey = CreateObject('Chilkat.PrivateKey')
If swError
   MessageBox("No se puede crear el objeto Chilkat.PrivateKey I",16+0,"Error")
   return
endif

Les comento adicionalmente que... esta parte del código la paso DOS veces ..

- La primera para generar el no. de certificado y certificado para después generar la cadena con la plantilla del SAT... (cadenaoriginal_3_3.xsl que me pide tenga estos datos)..

1
2
3
4
5
6
7
8
noCertificado      = SubStr(N,02,1)+SubStr(N,04,1)+SubStr(N,06,1)+SubStr(N,08,1)+SubStr(N,10,1)+;
                     SubStr(N,12,1)+SubStr(N,14,1)+SubStr(N,16,1)+SubStr(N,18,1)+SubStr(N,20,1)+;
                     SubStr(N,22,1)+SubStr(N,24,1)+SubStr(N,26,1)+SubStr(N,28,1)+SubStr(N,30,1)+;
                     SubStr(N,32,1)+SubStr(N,34,1)+SubStr(N,36,1)+SubStr(N,38,1)+SubStr(N,40,1)+;
                     SubStr(N,42,1)+SubStr(N,44,1)+SubStr(N,46,1)+SubStr(N,48,1)+SubStr(N,50,1)
 
Certificado        = SubStr(loCert.GetEncoded(), 1, Len(loCert.GetEncoded()) - 2)
Certificado        = strTran(Certificado, chr(13)+chr(10), '')				&&& A partir de integrar consume de WServices de FINKOK Agosot-Septiembre 2018


- La segunada para generar el Sello aplicando decodificación "sha-256"

1
strSello           = loRsa.SignStringENC(strOriginal,"sha-256")

He estado realizando pruebas y nada.. ni virus.. cambio de carpeta.. reinstalo el componente Chilkat... y nada..

Después de un tiempo vuelve a trabajar... (a unque no lo crean!)..

Sigo al pendiente para cualquier duda o comentario..

Reciban un cordial saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder