segunda-feira, 31 de maio de 2021

DICAS 3345 - WINDEV WEBDEV MOBILE - Como Fazer tela Mdi - Curso Mdi 2




https://youtu.be/VeBSVmXatSE






---------------- Indice Curso Mdi


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 10:00 do dia 08/06/2021

DICAS 3345 - WINDEV WEBDEV MOBILE - Como Fazer tela Mdi - Curso Mdi 2


Fazer exemplo no pdf_windev_26_Amarildo 


ASSUNTOS

Vamos entrar no exemplo no pdf_windev_26_Amarildo 
Vamos entrar na janela menu 
Vamos entrar nas propriedades da janela 
    - Gui - Na largura coloquei 1086 e Altera 725 
Agora no Menu ribbon , botao direito , gui -  Largura 1084 e altuura 86
Agora no botao de cada menu , vamos entrar gui, e alterar largura para 60 e altura 52
Agora detalhe bem importante
botao direito description, Detailhs, Mdi parent 
Baixar para baixo para enquadrar a janela mdi 
Agora vamos entrar em cada janela, details, mdi child, e vamos marcar Indepdendt hfsql context 
Vamos agora entrar no menu, onde chama as telas 

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

//open(WIN_Pdf)
// vamos perguntar se a janela ainda nao esta aberta 

IF WinStatus(WIN_Pdf)=NotFound THEN
OpenChild(WIN_Pdf)
ELSE
Restore(WIN_Pdf)
END

















DICAS 3344 - WINDEV WEBDEV MOBILE - ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados - CURSO ARRAY 26





https://youtu.be/1xL6Q49gs6A


E:\_exemplos_windev_web_mob\windev_amarildo_aula\array_exemplo_windev_Amarildo

DICAS_3344_WINDEV_WEBDEV_MOBILE_ArraySeek_FOR_EACH_Consultar_um_array_com_varias_colunas_e_ver_seus_dados_CURSO_ARRAY_26

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

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

DICAS 3344 - WINDEV WEBDEV MOBILE - ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados  - CURSO ARRAY 26


https://help.windev.com/en-US/?1510016
https://help.windev.com/?3075002&lang=en-US&productversion=xxF260100j

E:\_exemplos_windev_web_mob\windev_amarildo_aula\array_exemplo_windev_Amarildo

ASSUNTOS
ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados 
Vamos criar uma estrutura cliente , com codigo,nome e data 
Vamos criar um array em cima da estrutura 
Vamos preencher manualmente os dados 
Vamos crirar uma listBox para mostrar os dados do array 
Vamos criar uma data para procura 
Vamos fazer procura por ArraySeek
Vamos fazer procura por for each 
Vamos mostrar os dados 


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

// Global declarations
STCliente_estrutura is Structure // Criando uma Estrutura - Chamada cliente
nCodigo is int
sNome is string   
dAta_Dia is Date  
END
gstCliente_dados is STCliente_estrutura  // cliente cliente dados e cliente array
garrCliente_array is array of STCliente_estrutura 
informa_dados()
// vamos limpar o listbox e preencher com os dados do array 
LIST_array.DeleteAll()
FOR EACH ELEMENT stLinha OF garrCliente_array
LIST_array.Add(stLinha.nCodigo+"|"+stLinha.sNome+"|"+stLinha.dAta_Dia)
END


INTERNAL PROCEDURE informa_dados()
gstCliente_dados.nCodigo = 1 // preenchendo dados - primeiro registro
gstCliente_dados.sNome = "Amarildo"
gstCliente_dados.dAta_Dia = Today()  
ArrayAdd(garrCliente_array,gstCliente_dados)
gstCliente_dados.nCodigo = 2 // preenchendo dados - segundo registro
gstCliente_dados.sNome = "Michele"
gstCliente_dados.dAta_Dia = Today()  
ArrayAdd(garrCliente_array,gstCliente_dados)
gstCliente_dados.nCodigo = 3 // preenchendo dados - terceiro registro
gstCliente_dados.sNome = "Matos"
gdAta_gera is Date=Today()
gdAta_gera.Day+=1
gstCliente_dados.dAta_Dia = gdAta_gera
ArrayAdd(garrCliente_array,gstCliente_dados)
END
END

------------------

// botao consulta array com arrayseek
dAta is Date=EDT_data_procura
nRetorno is int=ArraySeek(garrCliente_array,asLinear,"dAta_Dia",dAta)
IF nRetorno=-1 THEN
Info("nao encontrado")
ELSE 
gstCliente_dados=garrCliente_array[nRetorno]
Info(gstCliente_dados.nCodigo+CR+gstCliente_dados.sNome+CR+gstCliente_dados.dAta_Dia+CR)
END
--------
//  consulta array com for each 
dAta is Date=EDT_data_procura
FOR EACH ELEMENT stLinha OF garrCliente_array where stLinha.dAta_Dia=dAta 

    Info(stLinha.nCodigo+CR+stLinha.sNome+CR+stLinha.dAta_Dia)
END


------------------ INDICE DO CURSO DE ARRAY e ESTRUTURA


WinDev - Array - 001/... Adiciona/Classifica Ordem/Mostra
WinDev - Array - 002/... Quantas Ocorrencias Array
WinDev - Array - 003/... ArrayDeleteLine - Eliminha uma Linha do Array
WinDev - Array - 004/... ArrayToString - Leva Array Para String
WinDev - Array - 005/... Seek - Procura Por Valor
WinDev - Array - 006/... ArrayDeleteDuplicate - Elimina itens duplos
WinDev - Array - 007/... Delete - Elimina Uma Linha
WinDev - Array - 008/... DeleteAll - Limpa Array
WinDev - Array - 009/... SwapLine - Mover de Lugar
WinDev - Array - 010/... Sum - Somar Array
ARRAYREVERSE - ARRAY - 011/ ... AULA 1185 
ARRAY INICIO - ARRAY 012 / AULA 1229

----------------------------------------------------

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 10:00 do dia 07/06/2021

DICAS 3344 - WINDEV WEBDEV MOBILE - ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados  - CURSO ARRAY 26




ASSUNTOS

ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados 
Vamos criar uma estrutura cliente , com codigo,nome e data 
Vamos criar um array em cima da estrutura 
Vamos preencher manualmente os dados 
Vamos crirar uma listBox para mostrar os dados do array 
Vamos criar uma data para procura 
Vamos fazer procura por ArraySeek
Vamos fazer procura por for each 
Vamos mostrar os dados 

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


// Global declarations
cliente_estrutura is Structure  // Criando uma Estrutura - Chamada cliente
codigo is int
nome is string
data_dia is Date 
END
stCliente_dados is cliente_estrutura // cliente cliente dados e cliente array
cliente_array is array of cliente_estrutura
stCliente_dados.codigo = 1 // preenchendo dados - primeiro registro
stCliente_dados.nome = "amarildo"
stCliente_dados.data_dia = Today()
ArrayAdd(cliente_array,stCliente_dados)
stCliente_dados.codigo = 2 // preenchendo dados - segundo registro
stCliente_dados.nome = "joao"
stCliente_dados.data_dia = Today()
ArrayAdd(cliente_array,stCliente_dados)
stCliente_dados.codigo = 3 // preenchendo dados - segundo registro
stCliente_dados.nome = "jxxxxoao"
gdAta_gera is Date=Today()
gdAta_gera.Day+=1
stCliente_dados.data_dia = gdAta_gera
ArrayAdd(cliente_array,stCliente_dados)
LIST_conteudo_array.DeleteAll()
FOR EACH ELEMENT stLinha OF cliente_array
LIST_conteudo_array.Add(stLinha.codigo+"|"+stLinha.nome+"|"+stLinha.data_dia+"|")
END


-----------------------

// botao consulta array com arrayseek

data is Date = EDT_data_procura
retorno is int = ArraySeek(cliente_array,asLinear,"data_dia",data)
IF retorno=-1 THEN
Info("Nao encontrato")
ELSE
stCliente_dados=cliente_array[retorno]
Info(stCliente_dados.codigo+CR+stCliente_dados.nome+CR+stCliente_dados.data_dia+CR)
END


-----------------------

//  consulta array com for each 
data is Date = EDT_data_procura
FOR EACH ELEMENT stLinha OF cliente_array
IF stLinha.data_dia=data THEN
    Info(stLinha.codigo+CR+stLinha.nome+CR+stLinha.data_dia+CR)
    BREAK
    END     
END















Teste

Teste
teste