Dica ofertada por @Jackson Douglas do pandeiro
Em pergunta de @Janio Aguiar
Como pegar o vencimento de um certificado digital em formato .pfx
arrCertificate = CertificateLoad( certificado.fpx, senha )
MyCertificate = arrCertificate[4]
ConferenceDuration is Duration = SysDateTime() - MyCertificate.EndValidityDate
IF MyCertificate.EndValidityDate < SysDateTime() then
INFO( "VENCIDO")
END
@Ronei Marcos Heck tambem contribuiu
sListaCertificados is string = ""
arrCertificados is array of Certificates
arrCertificados = CertificateList()
nNrCertificado is int = 0
FOR EACH Certificado OF arrCertificados
nNrCertificado ++
sListaCertificados += "<Certificado" + nNrCertificado + ">"
sListaCertificados += Certificado..Name + ";"
sListaCertificados += Upper(Replace(Certificado..ThumbPrint, " ", "")) + ";"
sListaCertificados += Certificado..FullIssuer + ";"
sListaCertificados += Certificado..StartValidityDate + ";"
sListaCertificados += Certificado..EndValidityDate + ";"
sListaCertificados += Replace(Certificado..SerialNumber, " ", "") + ";"
sListaCertificados += Certificado..ValidForSignature
sListaCertificados += "</Certificado" + nNrCertificado + ">"
END