domingo, 23 de maio de 2021

DICAS 3334 - WINDEV WEBDEV MOBILE - CertificateList - Retorna a lista de certificados disponíveis no computador - CURSO CERTIFICADO 14





https://youtu.be/Mn_d78iToAw




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 24/05/2021


DICAS 3334 - WINDEV WEBDEV MOBILE - CertificateList - Retorna a lista de certificados disponíveis no computador - CURSO CERTIFICADO 14




Assunto:


CertificateList  - Retorna a lista de certificados disponíveis no computador
Windev - Criar uma windows chamado Certificado 
Criar uma Tabela com Dados do Certificado 
Criar um botao para listar os certificados
Colunas 
1 Nome
2 Nome completo 
3 Issuer
4 situacao Certificfado
5 Data Inicial Valida
6 Data Final Valida
7 Serial 
8 ThumbPrint
9 subject
10 Objet
11 Empreinte

Fazer o codigo 
Mostrar Exemplo Pratico 



----------- Codigo
// Recupere a lista de certificados disponíveis no computador // (armazenamento de certificados pessoais do Windows)
TABLE_Certificado.DeleteAll() // vamos eliminar os dados da tabela
arrAy_certificado is array of Certificate //Vamos criar um array de certificado
arrAy_certificado=CertificateList() // Vamos agora preencher esse array com os certificados encontrados no windows
certificado_individual is Certificate // vamos criar um certificado individual 
FOR EACH certificado_individual OF arrAy_certificado // vamos percorrer o array 
IF certificado_individual.ValidForSignature=True THEN // Verifica se o certificado é válido para assinatura
sItuacao_certificado is string="" // vamos verificar a situacao do certificado
SWITCH certificado_individual.Reliability
CASE certificateOk: 
sItuacao_certificado = "Certificado Valido"
CASE certificateInvalid: 
sItuacao_certificado = "Certificado Invalido"
CASE certificateUntrusted:
sItuacao_certificado = "Certificao Nao confiavel"
CASE certificateExpired:
sItuacao_certificado = "Expirado Certificado"
END
nOcorrencia is int=TableAddLine(TABLE_Certificado)// vamos adicionar uma linha na tabela
TABLE_Certificado[nOcorrencia].COL_Nome=certificado_individual.Name 
TABLE_Certificado[nOcorrencia].COL_Nome_Completo = certificado_individual.FullIssuer
TABLE_Certificado[nOcorrencia].COL_Issuer = certificado_individual.Issuer // nome empresa
TABLE_Certificado[nOcorrencia].COL_Situacao_Certificado = sItuacao_certificado
TABLE_Certificado[nOcorrencia].COL_Data_Inicial_valida = certificado_individual.StartValidityDate
TABLE_Certificado[nOcorrencia].COL_Data_Final_Valida = certificado_individual.EndValidityDate
TABLE_Certificado[nOcorrencia].COL_Serial = certificado_individual.SerialNumber
TABLE_Certificado[nOcorrencia].COL_ThumbPrint = NoSpace(certificado_individual.ThumbPrint,sscAll)
TABLE_Certificado[nOcorrencia].COL_Subject = certificado_individual.Subject
TABLE_Certificado[nOcorrencia].COL_Objet = certificado_individual.Subject
TABLE_Certificado[nOcorrencia].COL_Empreinte = certificado_individual.ThumbPrint
    END
END



------------ Indice Certificado

Blog - WinDev - Curso Certificado - 001/... - Seleciona Certificado - Certificate Select 
Blog - WinDev - Curso Certificado - 002/... - Certificate Type - Pegar Dados Certificado
Blog - WinDev - Curso Certificado - 003/... - Ver se Certificado é Válido
Blog - WinDev - Curso Certificado - 004/... - CertificateLoad - Chamar pfx/arquivo
Blog - WinDev - Curso Certificado - 005/... - Assinatura Digital Nfe - Parte 1/...
Blog - WinDev - Curso Certificado - 006/... - Assinatura nfe - Parte 2/... - System.xml.xmlDocument
Blog - WinDev - Curso Certificado - 007/... - Assinatura nfe - Parte 3/... - Assinar Documento
Blog - Windev - Curso Certificado - 008/... HttpListCertificate
Blog - WinDev - Curso Soap - 009/... Consulta Cadastro Sefaz - WebService
Blog - WinDev - Curso Soap - 010 - Status Nfe Sefaz - WebService
DonwLoad Arquivo/Barra progresso/Http - WinDev - Certificado 011/...
CertificateSelect - DICAS 1955 - PUBLICA - WINDEV - Certificado 12 - 
DICAS 1981 - MOBILE-13- InternetConnected (Função) VERIFICAR SE TEM INTERNET -

PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 

















Teste

Teste
teste