//Em Ingles
//Selecionar o Certificado //Select the certificate //Spelectionnez le certificat
//Pegados Dados Do Certificado //taking certificate dice //Prenant certificat dice
_certificado is Certificate // certificate // certificat //
IF EDT_certificado_digitado="" THEN
//Vai procurar certificado no Windows
//Will seek certificate in Windows
//Cherchera certificat dans Windows
_certificado = CertificateSelect()
ELSE
//Vai buscar o arqivo certificado pfx
//Go get the certificate file pfx
//Allez chercher le fichier de certificat .pfx
arr_certificado is array of Certificates
arr_certificado = CertificateLoad(EDT_certificado_digitado,EDT_SenhaCertificado)
_certificado=arr_certificado[1]
END
s_retorno_certificado is string="" // s_retorno certificate // certificat s_retorn
verifica_certificado() // check certificate // chèque certificat
IF s_retorno_certificado="Certificado Valido" THEN
dados_certificado() // certificate data //données de certificat
END
INTERNAL PROCEDURE verifica_certificado()
IF _certificado..Name="" THEN
s_retorno_certificado="Erro"
Info(s_retorno_certificado)
RETURN
END
IF _certificado..ValidForSignature=False THEN
s_retorno_certificado="O Certificado selecionado não pode ser utilizado para gerar uma assinatura"
Info(s_retorno_certificado)
RETURN
END
SWITCH _certificado..Reliability
CASE certificateOk:
s_retorno_certificado="Certificado Valido"
CASE certificateInvalid:
s_retorno_certificado="Certificado invalidido"
CASE certificateUntrusted:
s_retorno_certificado="Certificado Nao Confiavel"
CASE certificateExpired:
s_retorno_certificado="Expirado Certificado"
END
Info(s_retorno_certificado)
//Selecionar o Certificado //Select the certificate //Spelectionnez le certificat
//Pegados Dados Do Certificado //taking certificate dice //Prenant certificat dice
_certificado est un Certificat // certificate // certificat //
SI EDT_certificado_digitado="" ALORS
//Vai procurar certificado no Windows
//Will seek certificate in Windows
//Cherchera certificat dans Windows
_certificado = CertificatSélecteur()
SINON
//Vai buscar o arqivo certificado pfx
//Go get the certificate file pfx
//Allez chercher le fichier de certificat .pfx
arr_certificado est tableau de Certificat
arr_certificado = CertificatCharge(EDT_certificado_digitado,EDT_SenhaCertificado)
_certificado=arr_certificado[1]
FIN
s_retorno_certificado est chaîne="" // s_retorno certificate // certificat s_retorn
verifica_certificado() // check certificate // chèque certificat
SI s_retorno_certificado="Certificado Valido" ALORS
dados_certificado() // certificate data //données de certificat
FIN
PROCEDURE INTERNE verifica_certificado()
SI _certificado..Nom="" ALORS
s_retorno_certificado="Erro"
Info(s_retorno_certificado)
RETOUR
FIN
SI _certificado..ValidePourSignature=Faux ALORS
s_retorno_certificado="O Certificado selecionado não pode ser utilizado para gerar uma assinatura"
Info(s_retorno_certificado)
RETOUR
FIN
SELON _certificado..Fiabilité
CAS certificatOk:
s_retorno_certificado="Certificado Valido"
CAS certificatInvalide:
s_retorno_certificado="Certificado invalidido"
CAS certificatNonFiable:
s_retorno_certificado="Certificado Nao Confiavel"
CAS certificatExpiré:
s_retorno_certificado="Expirado Certificado"
FIN
Info(s_retorno_certificado)
