Mostrando postagens com marcador _Curso_Certificado. Mostrar todas as postagens

segunda-feira, 24 de maio de 2021

DICAS 3335 - WINDEV WEBDEV MOBILE - CertificateSelect - Abre uma janela para selecionar os certificado - CURSO CERTIFICADO 15

wH3eQzIPQy0

Bom Dia Boa Tarde Boa Noite

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

email : amarildo.matos@gmail.com

Seja Membro do Canal

https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join

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

DICAS 3335 - WINDEV WEBDEV MOBILE - CertificateSelect - Abre uma janela para selecionar os certificado - CURSO CERTIFICADO 15

https://windevdesenvolvimento.blogspot.com/2021/05/dicas-3335-windev-webdev-mobile.html

https://help.windev.com/en-US/?1000019295&name=CertificateSelect

https://repository.windev.com/

Assunto:

CertificateSelect - Abre uma janela para selecionar os certificado
Vamos criar uma Window chamado Certificado Seleciona
Vamos Criar um botao para selecionar o certificado
Vamos criar os controles que serao usados para pegar dados do certificado
vamos fazer o codigo do seleciona certificado
vamos testar
Mostrar exemplo pratico em cliente producao

----------- Codigo

certificado is Certificate // vamos criar uma variavel certificado
certificado = CertificateSelect() // vamos selecionar os certificados
IF certificado.ValidForSignature = False THEN
Info("O certificado selecionado não pode ser utilizada para gerar uma assinatura")
RETURN
END
EDT_Nome_resumido = certificado.Name //
EDT_Nome = certificado.FullIssuer
EDT_Data_inicial_validade = certificado.StartValidityDate
EDT_Data_final_validade = certificado.EndValidityDate
EDT_Emissora = certificado.Issuer //
EDT_Confianca = certificado.Reliability
SWITCH certificado.Reliability
CASE certificateOk:
EDT_Observacao = "Certificado Valido"
CASE certificateInvalid:
EDT_Observacao = "Certificado Invalido"
CASE certificateUntrusted:
EDT_Observacao = "Certificao Nao confiavel"
CASE certificateExpired:
EDT_Observacao = "Expirado Certificado"
END
EDT_Valid_for_signature = certificado.ValidForSignature
EDT_Objeto_objet = certificado.Subject
EDT_Serial_numero = certificado.SerialNumber
EDT_Thumprint_impressao_digitao = NoSpace(certificado.ThumbPrint,sscAll)
CertificateOpenProperties(certificado)

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

DICAS 3334 - WINDEV WEBDEV MOBILE - CertificateList - Retorna a lista de certificados disponíveis no computador - CURSO CERTIFICADO 14
DICAS 3335 - WINDEV WEBDEV MOBILE - CertificateSelect - Abre uma janela para selecionar os certificado - CURSO CERTIFICADO 15

PlayList WebDev tutorial Amarildo Webdev

https://www.youtube.com/playlist?list=PLwJwZaqiZW-m1VKca0Ju9xWGT1rFus7ku

Playlist Windev Tutorial Amarildo Windev

https://www.youtube.com/playlist?list=PLwJwZaqiZW-lxU1XF0M0htb5S5f8pavuE

PlayList Windev Mobile

https://www.youtube.com/playlist?list=PLwJwZaqiZW-nB1qP-YajNzjhi2j2mBsfI

Amarildo

http://www.amarildomatos.com.br/

Donwloads Windev

https://www.windev.com/ts/download/index.html

Windev

https://www.windev.com/

WxSolucoes

http://www.wxsolucoes.com.br/

Matos Informatica

http://www.matosinformatica.com.br/

Repositorio Windev

https://repository.windev.com/

Inscricao Evento Pcsof

https://www.pcsoft.fr/pcsoft/tdfcom/2020/index.html

Site forum Google

https://groups.google.com/forum/?oldui=1&oi=1#!forum/amarildowindev

Video sobre 3 Mil Videos Windev

https://www.youtube.com/watch?v=ASY7T3Tt0sY&list=PLYgB8kapIj5-yeSTIQdHbzeY_lEaSJpg9

Video sobre Alfaserver servidor

https://youtu.be/EqnYJFpvPAI

https://alphaservers.com.br/

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

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

email : amarildo.matos@gmail.com

Seja Membro do Canal

https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join

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

https://windevdesenvolvimento.blogspot.com/2021/05/dicas-3334-windev-webdev-mobile.html

https://help.windev.com/en-US/?1000019293&name=certificatelist_function

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

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

PlayList WebDev tutorial Amarildo Webdev

https://www.youtube.com/playlist?list=PLwJwZaqiZW-m1VKca0Ju9xWGT1rFus7ku

Playlist Windev Tutorial Amarildo Windev

https://www.youtube.com/playlist?list=PLwJwZaqiZW-lxU1XF0M0htb5S5f8pavuE

PlayList Windev Mobile

https://www.youtube.com/playlist?list=PLwJwZaqiZW-nB1qP-YajNzjhi2j2mBsfI

Amarildo

http://www.amarildomatos.com.br/

Donwloads Windev

https://www.windev.com/ts/download/index.html

Windev

https://www.windev.com/

WxSolucoes

http://www.wxsolucoes.com.br/

Matos Informatica

http://www.matosinformatica.com.br/

Repositorio Windev

https://repository.windev.com/

Inscricao Evento Pcsof

https://www.pcsoft.fr/pcsoft/tdfcom/2020/index.html

Site forum Google

https://groups.google.com/forum/?oldui=1&oi=1#!forum/amarildowindev

Video sobre 3 Mil Videos Windev

https://www.youtube.com/watch?v=ASY7T3Tt0sY&list=PLYgB8kapIj5-yeSTIQdHbzeY_lEaSJpg9

Video sobre Alfaserver servidor

https://youtu.be/EqnYJFpvPAI

https://alphaservers.com.br/

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

quarta-feira, 9 de janeiro de 2019

DICAS 1981 - WINDEV MOBILE - CERTIFICADO 13 - InternetConnected (Função) VERIFICAR SE TEM INTERNET -

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

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

www.matosinformatica.com.br
amarildo@matosinformatica.com.br
skype: amarildo.matos.informatica
(51)984197742
ErpMatos
Precisa de Consultoria
Procure Amarildo
https://groups.google.com/d/forum/amarildowindev

http://windevdesenvolvimento.blogspot.com.br/2018/01/inscricao-para-grupo-privado-amarildo.html

Seja bem vindo ao grupo Amarildo Windev , mantido pelo Amarildo Matos - Senhor dos Windevs

https://groups.google.com/d/forum/amarildowindev

www.matosinformatica.com.br (51)35821451 ErpMatos Entre em Contato abaixo para se inscrever No Grupo Privado Amarildo Somente 1 Real ao dia ou 110 Reais Trimestre skype: amarildo.matos.informatica email: amarildo.matos@gmail.com Youtube: amarildo matos Whats: 51984197742

quinta-feira, 13 de dezembro de 2018

DICAS 1955 - PUBLICA - WINDEV - Certificado 12 - CertificateSelect

http://windevdesenvolvimento.blogspot.com.br/2018/01/inscricao-para-grupo-privado-amarildo.html

Seja bem vindo ao grupo Amarildo Windev , mantido pelo Amarildo Matos - Senhor dos Windevs

https://groups.google.com/d/forum/amarildowindev

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

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

segunda-feira, 27 de março de 2017

Aula 1103 - Windev - Certificado 011/... - DonwLoad Arquivo/Barra Progresso/Http

Video no Youtube Se Gostou clique aqui para dar joinha

Nessa aula de hoje
vou ensinar a fazer DownLoad Arquivo
usar Barra de Tarefas com
Http

http://doc.windev.com/en-US/?3043004&name=http_functions

https://doc.windev.com/en-US/?3043009&name=HTTPProgressBar
https://doc.windev.com/en-US/?3043007&name=httprequest_function
https://doc.windev.com/en-US/?3043001&name=HTTPGetResult
https://doc.windev.com/en-US/?1514042&name=Buffer_type
https://doc.windev.com/en-US/?1000019412&name=fSaveBuffer

//Com comentarios

b_fazer_download is boolean=True
// Criando uma Variavel Chamado fazer donwLoad e sera verdadeiro ou falso
// Creating a Callable Variable make donwLoad and will be true or false
_arquivo_existe is boolean = fFileExist("d:\amarildo\dll_dia_233.zip")
// Criando Variavel arquivo existe que sera verdadeiro ou falso e vou verificar se o arquivo existe
// Creating Variable file exists that will be true or false and I will check if the file exists
IF _arquivo_existe=True THEN // Se arquivo existe for igual a verdadeiro
    IF YesNo("Arquivo já existe, deseja refazer download?") THEN
        // Estou perguntando se desejo fazer download
    ELSE //Senao
        b_fazer_download=False
        // dizendo que fazer download é igual a falso
    END
END
IF b_fazer_download=True THEN
    //Se fazer donwload for igual a verdadeiro
    PROGBAR_download..Visible=True
    // tornando visivel a barra de progresso
    HTTPProgressBar(PROGBAR_download)
    // Mostra Barra de tarefa enquanto estiver executando Consulta Http
    // Show Taskbar while running httpProgressBar
    _arquivo is boolean = HTTPRequest("http://www.matosinformatica.com.br/Arquivos/dll_dia_233.zip")
    // Inicia uma solicitação HTTP em um servidor. O resultado da consulta pode ser:
    //    Salvo em um arquivo de backup por HTTPDestination
    //    Recuperado por HTTPGetResult .
    // Starts an HTTP request on a server. The result of the query can be:
    //    Saved in a backup file by HTTPDestination
    //    Recovered by HTTPGetResult
    HTTPProgressBar("")
    // Cancela barra progresso
    // Cancel progress bar
    IF _arquivo = True THEN
        // Se arquivo for igual a verdadeiro
        // If file is equal to true
        _baixar_arquivo is Buffer = HTTPGetResult()
        // buffer = O tipo de buffer corresponde a uma zona de memória binária
        // HTTPGetResult = Recupera o resultado ou o cabeçalho da última execução de solicitação HTTP.
        // Esta solicitação foi iniciada por HTTPRequest ou por HTTPSendForm
        // Buffer = The buffer type corresponds to a binary memory zone
         // Retrieves the result or the header of the last HTTP request execution.
         // This request was initiated by HTTPRequest or by HTTPSendForm
        _arquivo = fSaveBuffer("d:\amarildo\dll_dia_233.zip",_baixar_arquivo) // fSaveBuffer = Cria e preenche um arquivo externo com o conteúdo de uma string
        // ou variável de buffer. Se o arquivo já existir, ele será excluído e recriado
        // FSaveBuffer = Creates and fills an external file with the contents of a string
        // Or buffer variable. If the file already exists, it will be deleted and recreated.
        IF _arquivo = True THEN
            Info("Download efetuado com sucesso!'") // Se arquivo for verdadeiro, sucesso donwload // If file is true, download success
        ELSE
            Error("Não foi possivel efetuar o download.")    // Senão deu erro // Otherwise,
        END
    END
END

//Sem Comentarios

b_fazer_download is boolean=True
_arquivo_existe is boolean = fFileExist("d:\amarildo\dll_dia_233.zip")
IF _arquivo_existe=True THEN // Se arquivo existe for igual a verdadeiro
    IF YesNo("Arquivo já existe, deseja refazer download?") THEN
    ELSE //Senao
        b_fazer_download=False
    END
END
IF b_fazer_download=True THEN
    PROGBAR_download..Visible=True
    HTTPProgressBar(PROGBAR_download)
    _arquivo is boolean = HTTPRequest("http://www.matosinformatica.com.br/Arquivos/dll_dia_233.zip")
    HTTPProgressBar("")
    IF _arquivo = True THEN
        _baixar_arquivo is Buffer = HTTPGetResult()
        _arquivo = fSaveBuffer("d:\amarildo\dll_dia_233.zip",_baixar_arquivo) // fSaveBuffer = Cria e preenche um arquivo externo com o conteúdo de uma string
        IF _arquivo = True THEN
            Info("Download efetuado com sucesso!'") // Se arquivo for verdadeiro, sucesso donwload // If file is true, download success
        ELSE
            Error("Não foi possivel efetuar o download.")    // Senão deu erro // Otherwise,
        END
    END
END

quinta-feira, 7 de julho de 2016

Curso WinDev - Certificado - 010 - Soap - Status Nfe Sefaz

Video Youtube

Nessa aula vou ensinar a Fazer Soap - Status Nfe - Sefaz

In this lesson I will teach Soap Making - Status Nfe - Sefaz

Dans cette leçon, je vais enseigner Soap Making - Statut Nfe - SEFAZ

http://doc.windev.com/en-US/?3043007&name=HTTPRequest
http://doc.pcsoft.fr/fr-FR/?3043007&name=httprequete_fonction

//Site com WebService Sefaz RS // Site with webservcie sefaz RS // Site avec WebService Sefaz RS https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx
//Inserir o Soap // Insert Soap // Insérer Savon //
s_envelop_soap is string=[
    <?xml version="1.0" encoding="utf-8"?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
    <soap12:Header>
    <nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2">
    <cUF>#cUF#</cUF>
    <versaoDados>3.10</versaoDados>
    </nfeCabecMsg>
    </soap12:Header>
    <soap12:Body>
    <nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2">
    <consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">
    <tpAmb>2</tpAmb>
    <cUF>43</cUF>
    <xServ>STATUS</xServ>
    </consStatServ>
    </nfeDadosMsg>
    </soap12:Body>
    </soap12:Envelope>
]
s_uf is string="43"
s_envelop_soap=Replace(s_envelop_soap,"#cUF#",s_uf)
s_envelop_soap=Replace(s_envelop_soap,CR,"")
// colocar o webservice // put the web service // mettre le service web//
s_webservice_consulta is string="https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx"
//Criar webservice ok // create webservice ok // créer webservice ok
b_webservice_ok is boolean=False
b_webservice_ok=HTTPRequest(s_webservice_consulta,"","",s_envelop_soap,"text/xml","","")
IF b_webservice_ok=True THEN //verificar se webservice_ok esta ok // check ok ok this webservice // vérifier ok ok ce webservcie
    s_retorno is string=HTTPGetResult(httpResult) //pegar retorno httpgetresult // return catch// retour captures
    EDT_retorno=s_retorno
    EDT_cStat=pesquisa_tag_nfe_wdk("cStat",s_retorno)
    EDT_xMotivo=pesquisa_tag_nfe_wdk("xMotivo",s_retorno)
END
//Vamos TEstar

PROCEDURE pesquisa_tag_nfe_wdk(_tag,_retorno_xml)

_texto_inicial is string="<"+_tag+">"
_texto_final is string="</"+_tag+">"
nPosicaoInicial is int=0
nPosicaoFinal is int=0
nPosicaoInicial = PositionOccurrence(_retorno_xml,_texto_inicial,firstRank,FromBeginning) + Length(_texto_inicial)
nPosicaoFinal = PositionOccurrence(_retorno_xml,_texto_final,firstRank,FromBeginning)
IF nPosicaoFinal>nPosicaoInicial THEN
RESULT Middle(_retorno_xml,nPosicaoInicial,nPosicaoFinal-nPosicaoInicial)
ELSE
RESULT ""
END