segunda-feira, 18 de janeiro de 2021

DICAS 3247 - WINDEV - PERGUNTAS E RESPOSTAS 9 - Como realizar uma navegação completa no arquivo



https://youtu.be/7dYte-uU1Sc



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video Ao Vivo vai estrear as 19:00 do dia 21/01/2021 

DICAS 3247 - WINDEV - PERGUNTAS E RESPOSTAS 9 - Como realizar uma navegação completa no arquivo?


ASSUNTOS


How to perform a full file browse?
Como realizar uma navegação completa no arquivo?

VAMOS CRIAR UMA PAGINA CHAMADA NAVEGACAO ARQUIVOS
VAMOS CRIAR UM BOTAO - LENDO ARQUIVOS COM FUNCOES
VAMOS CRIAR UMA TABELA POR PROGRACAO COM DUAS COLUNAS, CODIGO E NOME 
VAMOS ENTRAR PROPRIEDADE TABELA E QUE A COLUNA DO NOME, SE EXTENDA, NO CASO COLUNA 2
VAMOS ENTRAR NO CODIGO DO BOTAO 
VAMOS USAR OS COMANDOS , HReadFirst,HOut,HReadNext
VAMOS CRIAR OUTRO BOTAO - LENDO ARQUIVO COM FOR EACH 
ENTRAR NO CODIGO DO Botao
VAMOS FAZER O CODIGO USANDO FOR EACH 


=============
//btn_lendo_arquivos_com_funcoes
TABLE_EMPRESA.DeleteAll() // eliminado dados da tabela
HReadFirst(empresa_v26,empresa_v26ID) // é usado para acessar o primeiro registro de acordo com a chave de pesquisa.
WHILE NOT HOut(empresa_v26) // é usado para descobrir se o fim do arquivo foi atingido.
TABLE_EMPRESA.AddLine(empresa_v26.empresa_v26ID,empresa_v26.nome) // adicionado dados na tabela
HReadNext(empresa_v26) // proximo registro
END
ToastDisplay("finalizado arquivo empresa",toastLong,vaMiddle,haCenter) // mensagem
================
// lendo arquivo com for each 

TABLE_EMPRESA.DeleteAll() // eliminado dados da tabela

FOR EACH empresa_v26  // percorre o arquivo empresa ate o final

TABLE_EMPRESA.AddLine(empresa_v26.empresa_v26ID,empresa_v26.nome) // adicionado dados na tabela
END
ToastDisplay("finalizado arquivo empresa",toastLong,vaMiddle,haCenter) // mensagem
===============
// lendo arquivo com for each invertido

TABLE_EMPRESA.DeleteAll() // eliminado dados da tabela

FOR EACH empresa_v26 FromEnd  // percorre o arquivo empresa do final ate o inicio
TABLE_EMPRESA.AddLine(empresa_v26.empresa_v26ID,empresa_v26.nome) // adicionado dados na tabela
END

ToastDisplay("finalizado arquivo empresa",toastLong,vaMiddle,haCenter) // mensagem-----------

----
















=============== INDICE PERGUNTAS E RESPOSTA





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 












Como realizar uma navegação completa no arquivo?
How to perform a full file browse
Visão geral
Dois métodos podem ser usados ​​para realizar a navegação completa de um arquivo de dados:
Método 1: funções de navegação
Este método usa as funções WLanguage para navegar pelos arquivos de dados:
Neste método:
  • HReadFirst é usado para acessar o primeiro registro de acordo com a chave de pesquisa.
  • HReadNext é usado para acessar o próximo registro (na ordem da chave de pesquisa).
  • HOut é usado para descobrir se o fim do arquivo foi atingido.
Observação : Você tem a capacidade de usar HReadLast e HReadPrevious para realizar uma navegação na ordem inversa.

Exemplo

// Navegue por todos os registros do arquivo do cliente
// classificados por nome do cliente.

HReadFirst(CUSTOMERCustomerName)
WHILE not HOut(CUSTOMER)
    // Processa o registro CUSTOMER
HReadNext(CUSTOMERCustomerName)
END

Método 2: FOR EACH declaração
instrução FOR EACH é usada para navegar pelos registros encontrados em um arquivo de dados. No nosso caso, esta instrução será usada para ler os registros encontrados em um arquivo de dados.
instrução FOR EACH espera os seguintes parâmetros:
  • o nome do arquivo para navegar
  • o nome do índice (ou chave) para classificar os registros
O primeiro registro e o próximo registro são lidos pela instrução FOR EACH. Não há necessidade de usar as funções HReadXXX.
Observação : A palavra DESC permite que você execute uma navegação na ordem inversa.

Exemplo de código

// Navegue por todos os registros do arquivo do cliente.
// Navegar classificado por nome crescente
FOR EACH CUSTOMER ON CustomerName
    // Processar o registro do CLIENT

END

Teste

Teste
teste