PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → WX - Selecionando o Certificado Digital para versões = < 21
WX - Selecionando o Certificado Digital para versões = < 21
Débuté par BOLLER, 22 sep. 2017 17:30 - 1 réponse
#1
Membre enregistré
3 654 messages
Popularité : +175 (223 votes)
Posté le 22 septembre 2017 - 17:30
//Selecionando o Certificado Digital para versões = < 21
arrCertificate = CertificateList()
MyCertificate is Certificate
FOR EACH MyCertificate OF arrCertificate
IF MyCertificate..ValidForSignature = True THEN
ListAdd(MySelf,MyCertificate..Name)
END
END


Contribuição Julio Pedroso

:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
#2
Membre enregistré
3 654 messages
Popularité : +175 (223 votes)
Posté le 22 septembre 2017 - 18:51
DT_NomeCertificado = MySelf..DisplayedValue
arrCertificate = CertificateList()
MyCertificate is Certificate
FOR EACH MyCertificate OF arrCertificate
IF MyCertificate..Name = MySelf..DisplayedValue THEN
EDT_Thumb_print = Upper(Replace(MyCertificate..ThumbPrint," ",""))
EDT_Serial_number = MyCertificate..SerialNumber
EDT_Validade = MyCertificate..EndValidityDate
END
END


Contribuição de Julio Pedroso

Obrigado

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Revenir à WINDEV 25