Alain da Silva Posted January 18, 2018 Report Share Posted January 18, 2018 bom dia pessoal, eu consigo pegar a propriedade "nome amigável" do certificado? Através do "CAPICOM.Store" eu pego alguns dados exemplo: oCertSelecao := oCertificados:Select("Selecione o certificado para uso da Nf-e","Selecione o certificado",.F.) oSerialNumber:= oCertSelecao:Item(1):SerialNumber (numero do certificado) Outra coisa, tem como saber todas as propriedades/nomes do certificado que existem? obrigado Quote Link to comment Share on other sites More sharing options...
sygecom Posted January 18, 2018 Report Share Posted January 18, 2018 Está tudo no MSDN https://msdn.microsoft.com/en-us/library/windows/desktop/aa376092(v=vs.85).aspx#properties Exemplo: .... TRY oStore:open(IIF(cTIP='USUARIO',_CAPICOM_CURRENT_USER_STORE,_CAPICOM_LOCAL_MACHINE_STORE),'My',_CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED) oCertificados := oStore:Certificates() // Lista de Certificados oCertSelecao := oCertificados:Select("Selecione o certificado para uso da Nfe","Selecione o certificado",.F.) IF oCertSelecao:Count() > 0 aRetorno['OK'] := .T. aRetorno['Serial'] := oCertSelecao:Item(1):SerialNumber aRetorno['IssuerName'] := oCertSelecao:Item(1):IssuerName aRetorno['SubjectName'] := oCertSelecao:Item(1):SubjectName aRetorno['Thumbprint'] := oCertSelecao:Item(1):Thumbprint aRetorno['ValidFromDate'] := oCertSelecao:Item(1):ValidFromDate aRetorno['ValidToDate'] := oCertSelecao:Item(1):ValidToDate aRetorno['Version'] := oCertSelecao:Item(1):Version ELSE aRetorno['OK'] := .F. aRetorno['MsgErro'] := 'Certificado não localizado' ENDIF CATCH aRetorno['OK'] := .F. aRetorno['MsgErro'] := "Certificado não localizado" Return(aRetorno) END .... Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted January 18, 2018 Author Report Share Posted January 18, 2018 Sygecom, eu até vi essa pagina mas não consegui a propriedade que quero: Tentei fazer aRetorno["friendlyname"] := oCertSelecao:Item(1):oid:friendlyname Da erro: Error description: Error CAPICOM.Store:CERTIFICATES:ITEM/6 DISP_E_UNKNOWNNAME: OID Args: Quote Link to comment Share on other sites More sharing options...
FiveWinBr Posted January 22, 2018 Report Share Posted January 22, 2018 Boa tarde, Eu havia feito alguns ajustes para o Jackson relacionado a isso, acredito que pode te ajudar.https://github.com/JoseQuintas/sefazclass/blob/master/source/ze_sefazcapicom.prg Fiz a função para instalar e desinstalar o certificado. Voce pode personalizar para verficiar as datas tambem e remover o que estiver vencido etc. Att. Lailton Fernando Marianohttps://www.harbour.com.br - <lailton@harbour.com.br> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.