FUNCTION MAIN()
Local aVetor := {}
aVetor:=PEGA_CERTIFICADO()
IF LEN(aVetor) > 0
ALERT("Numero de Serie do certificado.:" + aVetor[1,1] + " - Vencimento.: " + DTOC(aVetor[1,2]))
ENDIF
RETURN
Codigo.:
********************************
STATIC FUNCTION PEGA_CERTIFICADO
*Retorna um Vetor com o numero de serie na primeira possição
*e o vencimento do certificado na segunda possição
*Leonardo Machado - 03/05/2010
********************************
Local oCerts1, oCerts2, oCerts3, oStore, oCertificates, aVETOR:={}
TRY
oCertificates := GetActiveObject( "CAPICOM.Certificates" )
CATCH
TRY
oCertificates := CreateObject( "CAPICOM.Certificates" )
CATCH
alert("A Dll (capicom.dll) Não está registrada, Favor executar o arquivo INSTALL.BAT")
//myrun("install.bat")
Return(aVETOR)
END
END
TRY
oStore = GetActiveObject("CAPICOM.Store")
CATCH
TRY
oStore := CreateObject( "CAPICOM.Store")
CATCH
alert("A Dll (capicom.dll) Não está registrada, Favor executar o arquivo INSTALL.BAT")
//myrun("install.bat")
Return(aVETOR)
END
END
TRY
oStore:open(2,'My',2)
oCerts1:=oStore:Certificates()
oCerts2:=oCerts1:Select("Selecione o certificado para uso da Nfe","Selecione o certificado",.F.)
IF oCerts2:Count() > 0
oCerts3 := oCerts2:Item(1)
AADD(aVETOR,{oCerts3:SerialNumber,oCerts3:ValidToDate})
ENDIF
CATCH
Return(aVETOR)
END
Return(aVETOR)