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

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

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://windevdesenvolvimento.blogspot.com/2021/05/dicas-3344-windev-webdev-mobile.html

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

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

// 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

Array 13 - http://windevdesenvolvimento.blogspot.com/2018/07/dicas-1801-publica-windev-23-array-13.html
DICAS 2052 - WINDEV - ARRAY - 14 - Max
DICAS 2053 - WINDEV - ARRAY - 15 - MIN

Array 16 - DICAS 3241 - WINDEV - PERGUNTAS E RESPOSTAS 3 - COMO USAR ESTRUTURA COM ARRAY

Array 17 - DICAS 3270 - WINDEV_WEBDEV_MOBILE - ArrayDistinct - NOVIDADES - INDICE 32

Array 18 - DICAS 3271 - WINDEV_WEBDEV_MOBILE - ArrayUnion e ArrayUnionAll - União de dois array - NOVIDADES - INDICE 33

Array 19 - DICAS 3272 - WINDEV_WEBDEV_MOBILE - ArrayIntersect - Interseção de dois array NOVIDADES VERSAO 26- INDICE 34

Array 20 - DICAS 3283 - WINDEV WEBDEV MOBILE - Como Criar e Manipular uma Estrutura - PERGUNTAS E RESPOSTAS - 40

DICAS 3313 - WINDEV WEBDEV MOBILE - Array Associativa - Associative array - Curso Array 21

DICAS 3314 - WINDEV WEBDEV MOBILE - ArrayAddSorted - ArraySort - Classifica um Array e Adiciona tambem - Curso Array 22

Array 23 - DICAS 3315 - WINDEV WEBDEV MOBILE - Queria saber como fazer um arraysort composto com dois campos- Perguntas e Respostas - 48

DICAS 3316 - WINDEV WEBDEV MOBILE - FileToArray - Vamos preencher um array com estrutura e o arquivo de dados - Curso Array 24

DICAS 3317 - WINDEV WEBDEV MOBILE - Vamos fazer um filtro no array usando Filter - Curso Array 25

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

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

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://repository.windev.com/

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