domingo, 24 de outubro de 2021

video 3469 - rest - podcast -




https://youtu.be/b15Cor3EGuU





Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


video 3469 - rest - podcast - 






Assuntos :

00:00:00 Inicio Atividades as 16:00
00:22:00 Criando Arquivo Tabela cliente
00:43:05 Tirar cabecalho do json
01:40:00 Vendo rest windev 26
01:49:00 Autenticacao - Maravilha
01:53:00 Post - Alterar,excluir

==============

PROCEDURE get_cliente()

sToken is string = WebserviceReadHTTPHeader("Authorization")

sRetorno is string=""
IF sToken="123" THEN
nNCLIENTES is int=WebserviceParameter("id")
sNome is string=WebserviceParameter("nome")
IF nNCLIENTES=0 THEN
QRY_cliente_ler.parametro_cliente_id=Null
ELSE
QRY_cliente_ler.parametro_cliente_id=nNCLIENTES
END
HExecuteQuery(QRY_cliente_ler,hQueryDefault)
HExportJSON(QRY_cliente_ler,"cliente.json",hExpCreation)
sRetorno=fLoadText("cliente.json")
texto1 is string=[
{ "QRY_cliente_ler":[
]
sRetorno=Replace(sRetorno,texto1,"")
fSaveText("r1.txt",sRetorno)
sRetorno=Replace(sRetorno,"] }","")
fSaveText("r2.txt",sRetorno)
ELSE
sRetorno="erro autenticacao"
END
//paulo viana
//paulo viana disse:Meujson_s = "["+ExtractStringBetween(meujson_full,1,"[","]")+"]" 

RESULT sRetorno

==========
PROCEDURE POST_CLIENTE()

sToken is string = WebserviceReadHTTPHeader("Authorization")
IF sToken<>"123" THEN
RESULT "nao autorizado"
END
sJSON is string=WebserviceParameter(paramBuffer)
stCampos is Structure
clienteID is int
nome is string
email is string
valor is currency
data is Date
sttipo is string // tipo, incluir,alterar ou excluir
END
stSCampos is stCampos 
Deserialize(stSCampos, sJSON, psdJSON) 

IF stSCampos.sttipo="inclusao" THEN
HReset(cliente)
END
fSaveText("clientedados.json",sJSON)
HImportJSON(cliente,"clientedados.json")
//HSAVE(cliente)

---------
// consulta

oRequest is httpRequest 
oResponse is httpResponse
oRequest.URL = "http://localhost/cliente23?id=0" 
oRequest.Method = httpGet 
oRequest..Header["Authorization"] = "123"//EDT_Senha
//oResponse = HTTPSend(oRequest)
oResponse=RESTSend(oRequest)

EDT_resultado=oResponse..Content

----

// incluscao, alteracao 

oRequest is httpRequest 
oResponse is httpResponse
oRequest.URL = "http://localhost/cliente23" 
oRequest.Method = httpPost
oRequest.Content=EDT_JSON_MONTADO
oRequest.ContentType=typeMimeJSON
oRequest..Header["Authorization"] = "123"//EDT_Senha
oResponse=RESTSend(oRequest)

EDT_resultado=oResponse..Content

--------------------- Indice WebService

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 - 
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 - 
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP












sábado, 23 de outubro de 2021

VIDEO 3467 - WILLIAN ENSINANDO REST




https://youtu.be/niAYQ9jbsBA


Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 22:30 do dia 23/10/2021

VIDEO 3467 - WILLIAN ENSINANDO REST 







00:24 Criando rest
01:02 Criando analise com uma tabela cliente
01:36 Preenchendo dados 
02:13 Criando Global procedure get_cliente
02:49 Criando campços structure 
03:55 Criando Array Campos 
04:31 Lendo o registro cliente
05:11 Prenchendo array 
06:06 Criando variavel json
06:28 Pegando quantidade de array
06:48 Colocando no array no json 
07:04 Mandando resultado json 
07:36 Criando parametro para receber se quer todos ou um cliente 
08:31 Verificando se tipo de parametro 
09:00 lendo todos os cliente e colocando no array 
Final Vai ter uma live domingo continuando sobre rest 

Fonte repositorio windev 26 rest exemplo


//------------------

PROCEDURE GET_CLIENTE()

nNCLIENTES is int=WebserviceParameter("id")
st_campos is Structure 
id is int
nome is string 
sexo is string 
END
arrCAMPOS is array of st_campos
IF nNCLIENTES=0 THEN
    FOR EACH CLIENTE 
arrCAMPOS.Add([CLIENTE.CLIENTEID,CLIENTE.NOME,CLIENTE.SEXO])
END
ELSE
HReadSeekFirst(CLIENTE,CLIENTEID,nNCLIENTES)
IF HFound(CLIENTE)=True THEN
arrCAMPOS.Add([CLIENTE.CLIENTEID,CLIENTE.NOME,CLIENTE.SEXO])
END
END
restjson is JSON 
restjson.qtd = ArrayCount(arrCAMPOS)
restjson.campos = arrCAMPOS
RESULT restjson

//-----------------


requisicao is restRequest 
requisicao..url="localhost/cliente?id=0"
requisicao..method=httpGet
resposta is restResponse
resposta=RESTSend(requisicao)

Info(resposta..content)











--------------------- Indice WebService

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 - 
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 - 
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP

sexta-feira, 22 de outubro de 2021

video 3463 - barra progresso backup




https://youtu.be/Xw8-I7XvLYk



Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 10:00 do dia 22/10/2021

video 3463 - barra progresso backup








ASSUNTOS

ASSUNTOS:
00:21:00 Introducao
00:42:00 Adicionando Barra progresso
01:20:00 Colocando no codigo a barra de progresso 
01:50:00 vamos criar internal procedure 
02:12:00 fazer thread 
02:38:00 vamos mostrar 














quarta-feira, 13 de outubro de 2021

VIDEO 3450 - PARAMETROS- WINDEV26 E WINDEV21 OU ACIMA





https://youtu.be/hk8a8QSSmgI





Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as xx:00 do dia 15/10/2021

VIDEO 3450 - PARAMETROS- WINDEV26 E WINDEV21 OU ACIMA






Fonte no Repositorio Versao 21 e acima


ASSUNTOS

00:00 Introducao 
00:29 Sobre curso que finaliza e outro 
00:50 Criando windows procedures 
01:10 Criando Tab 
01:31 Criando os edts 
02:50 Criando um botao vamos mandar parametros 
03:00 Criando outra windows , recebe parametros 
03:26 copiando os controls edts 
03:38 Chamando a windows recebe parametros e testando
04:00 Vamos receber os parametros 
04:30 Prenenchendo os edt com parametros 
05:06 Vamos chamar a janela com os parametros 
05:44 Executar e testar
06:00 Colocando tipo de campo no recebe parametros 
07:22 Criando botao para chamar parametro com array 
07:30 Criando os edts de retorno
07:46 Entrando no codigo do botao
07:50 Criando internal procedure para receber arra 
08:07 ver quantos array tenho 
08:22 varrer o array e mostrar o conteudo
08:45 retornar quantos e nome 
09:13 Criar um Array 
09:20 adicionar no array os edts 
09:44 Chamar procedure interna  e passar o parametros 
09:54 Adicionar retorno 






























.





segunda-feira, 4 de outubro de 2021

VIDEO 3436 - CURSO WINDEV 8 DE 10







1.  Vamos criar o diretorio, em que sera o nosso novo projeto 
       \My Projects\ERPCURSO\WINDEV21
       \My Projects\ERPCURSO\WINDEV26
2.  O Nome do projeto sera ErpCurso
3.  Vamos criar uma nova analise 
4.  Caminho da analise
      C:\My Projects\ERPCURSO\WINDEV21\ERPCURSO\ERPCURSO.ana
5. Vamos escolher Hfsql Cliente/Server 
6. Vamos colocar o nome da conexao -  conexao_erpcurso
7. Vamos entrar com dados da conexao 
8. Vamos entrar com server , nome do servidor  
          localhost - ou ip - ou - \\nome_computador
9. digitar usuario - admin - e senha 
10. a data base sera, curso_windev_01
11. Agora vamos copiar as tabelas do projeto anterior e colar no novo
12. Vamos criar no ErpCurso o Menu manualmente 
13. Vamos Transformar para menu Ribbon e depois criar manualmente e  
     podemos ficar com 2 menus 
14. vamos criar um novo projeto, e ele vai se chamar cadastros 




----------------------------------------
C:\My Projects\__CURSO_WINDEV_001\WINDEV_21\WINDEV_21_AULA_06_3425_INICIO_TAB_GRAF_REL\WINDEV_21_AULA_06_3425_INICIO_TAB_GRAF_REL.ana
----------------------------------------

Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 10:00 do dia 17/11/2021

DICAS 3405 - 17-11 WINDEV WEBDEV MOBILE - Vamos mover o arquivo de um diretorio para outro em windev - Curso Gerenciamento Arquivos e Diretorios 17





ASSUNTOS













sábado, 2 de outubro de 2021

Podcast XII 12 - Video 3432 - live do amarildo - sabado 02 10 2021 AS 14:00





Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 14:00 do dia 02/10/2021

Podcast XII 12 - Video 3432 - live do amarildo - sabado 02 10 2021 AS 14:00





ASSUNTOS













VIDEO 3431 - WINDEV - PALESTRA E SORTEIO COM CLAUDEMIR ELGIN - PATROCINADOR CURSO WINDEV - 09:00








EL250 - Leitor de Código de Barras de mão, 2D


i8 Impressora térmica de cupom



bom dia..
as 09:00 Tera uma palestra
VIDEO 3431 - WINDEV - PALESTRA E SORTEIO COM CLAUDEMIR ELGIN - PATROCINADOR CURSO WINDEV - 09:00
Serao 2 sorteios, e os ganhadores, poderao escolher entre:
Quem vai participar do sorteio, serao os alunos
do Curso de Windev , Ministrado Pelo Prof. Amarildo Matos 
ou o Programador dos Pampas 
Conteudo da Palestra 
Inovação, Futuro do Mercado e IOT 


EL250 - Leitor de Código de Barras de mão, 2D


i8 Impressora térmica de cupom




Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


VIDEO 3431 - WINDEV - PALESTRA E SORTEIO COM CLAUDEMIR ELGIN - PATROCINADOR CURSO WINDEV - 09:00

DICAS 3405 - 17-11 WINDEV WEBDEV MOBILE - Vamos mover o arquivo de um diretorio para outro em windev - Curso Gerenciamento Arquivos e Diretorios 17





ASSUNTOS













video 3430 desenvolvimento ao vivo 01 10 2021 20:40




https://youtu.be/trkoV9V6I8o





Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 10:00 do dia 17/11/2021

DICAS 3405 - 17-11 WINDEV WEBDEV MOBILE - Vamos mover o arquivo de um diretorio para outro em windev - Curso Gerenciamento Arquivos e Diretorios 17





ASSUNTOS













sexta-feira, 1 de outubro de 2021

video 3428 - windev ao vivo - 3428


https://youtu.be/LiFbPrVFxl0




Bom Dia Boa Tarde Boa Noite

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

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


windev ao vivo - 3428





ASSUNTOS













Teste

Teste
teste