sexta-feira, 14 de agosto de 2020

DICAS 3019 - WINDEV TUTORIAL 42 - Pesquisa Simples - Navegacao pelos Arquivos - PARTE F

vvc0-KmjV-4

Bom Dia/Boa Tarde/Boa Noite

Esse Ao Vivo vai estrear as 19:00 do dia 25/08/2020

DICAS 3019 - WINDEV TUTORIAL 42 - Pesquisa Simples - Navegacao pelos Arquivos - PARTE F

Tutoriel WINDEV : Leçon 4.3.f. Recherche simple - Parcours des fiches

https://windevdesenvolvimento.blogspot.com/2020/08/dicas-3019-windev-tutorial-42-pesquisa.html

ASSUNTOS

EXPLICANDO O QUE SERA FEITO

CRIANDO BOTAO PRIMEIRO

ACERTANDO LARGURA IGUAL A ALTURA

COMANDOS UTILIZADOS

FAZENDO O CODIGO DO PRIMEIRO CLIENTE

HReadFirst

HOut

FileToScreen

FAZENDO O CODIGO DO CLIENTE ANTERIOR

HReadLast

HReadPrevious

FAZENDO O CODIGO DO PROXIMO CLIENTE

HReadFirst

HReadNext

FAZENDO O ULTIMO CLIENTE

HReadLast

https://doc.windev.com/en-US/?1410087533&name=lecon_43_recherche_simple_parcours_des_enregistrements

Video original da Franca

https://youtu.be/y4OfwgxgdcI

Playlist Windev TUTORIAL

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

// btn_pesquisa_identica

// Encontra o cliente a partir de seu identificador

HReadSeekFirst(Customer_cliente,CustomerID,COMBO_cliente)

IF HFound(Customer_cliente) THEN

// mostrar os dados

FileToScreen()

END

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

// BTN PESQUISA GENERICA

// Finds a customer from his name

// Encontra um cliente a partir de seu nome

HReadSeek(Customer_cliente,FullName,EDT_Nome_Procure)

IF HFound(Customer_cliente) THEN

// mostre os dados

FileToScreen()

ELSE

Error("nao encontrado")

END

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

// BTN_PRIMEIRO

// Le o primeiro Cliente // Reads the first customer

HReadFirst(Customer_cliente)

IF HOut(Customer_cliente) = True THEN

Info("NAO TEM DADOS")

ELSE

FileToScreen()

END

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

// BTN_ANTERIOR

// If no search is in progress

// Se nenhuma pesquisa estiver em andamento

IF HOut(Customer_cliente) THEN

HReadLast(Customer_cliente) // le o ultimo cliente

END

HReadPrevious(Customer_cliente) // le o cliente anterior

IF HOut(Customer_cliente)=True THEN

Info("inicio do arquivo de dados alcancado")

ELSE

FileToScreen() // vamos mostrar os dados nos edt

END

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

//BTN_PROXIMO

// If no search is in progress

// Se nenhuma pesquisa estiver em andamento

IF HOut(Customer_cliente) THEN

HReadFirst(Customer_cliente) // Lê o primeiro cliente

END

HReadNext(Customer_cliente) // Le o próximo cliente

// Se o final do arquivo de dados for alcançado

IF HOut(Customer_cliente)=True THEN

Info("FIM DO ARQUIVO ALCANCADO")

ELSE

FileToScreen() //MOSTRA OS DADOS

END

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

// BTN_FINAL

// Reads the last customer

// LER O CLIENTE FINAL

HReadLast(Customer_cliente)

IF HOut(Customer_cliente)=True THEN

Info("NAO ENCONTRADO CLIENTE")

ELSE

FileToScreen()

END

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

Browsing forms

We are now going to add four Button controls to browse the different records of the "Customer" data file. These controls are in a "recorder" layout.

These controls will allow you to:

browse through the different records in the data file,
browse through all the records corresponding to a generic search.

They include an icon and they are used to display:

the first record,
the previous record,
the next record,
the last record.

To create the Button control used to display the first file record:
1. If necessary, display the "Finding customers" Tab control pane in the editor.
2. On the "Creation" pane, in the "Usual controls" group, click .
3. The shape of the control appears under the mouse pointer. Then click the Tab control pane, below "Generic search". The Button control is automatically created.

A skin template will be used to standardize the interface of project windows. This skin template defines the style for all controls found in the windows. A specific style is defined for each recorder Button control. To apply this style:
1. Select the Button control if necessary.
2. Display the popup menu (right mouse click) and select "Choose a style".
3. All styles defined for the buttons are displayed in the window.
  Select "BTN_First".
4. Validate.

Modify the name of the Button control:
1. Open the control description window:
  - Select the Button control.
  - Display the popup menu (right mouse click) and select "Description".
2. This control is named "BTN_First".
3. Validate the description window.

We are now going to type the WLanguage code associated with this control:
1. Right-click the control. Select "Code" from the menu that is displayed.
2. In the code window that appears, write the following WLanguage code in the "Click" event:
  // Reads the first customer
  HReadFirst(Customer)
  IF HOut(Customer) = True THEN
  // No customer
  Info("No form to view.")
  ELSE
  // Displays the customer data
  FileToScreen()
  END
  HReadFirst is used to read the first file record according to the key used for the last search (FullName in our case).

Likewise, create 3 Button controls.
- The names of these controls are: "BTN_Previous", "BTN_Next" and "BTN_Last".
- These controls are respectively associated with the styles: "BTN_Previous", "BTN_Next" and "BTN_Last".
- The WLanguage code corresponding to the "Click" event of "BTN_Previous" is:
  // If no search is in progress
  IF HOut(Customer) THEN
  // Reads the last customer
  HReadLast(Customer)
  END
  
  // Reads the previous customer
  HReadPrevious(Customer)
  // If the start of the data file is reached
  IF HOut(Customer) = True THEN
  Info ("Start of data file reached.")
  ELSE
  // Displays the customer data
  FileToScreen()
  END
- The WLanguage code corresponding to the "Click" event of "BTN_Next" is:
  // If no search is in progress
  IF HOut(Customer) THEN
  // Reads the first customer
  HReadFirst(Customer)
  END
  
  // Reads the next customer
  HReadNext(Customer)
  // If the end of the data file is reached
  IF HOut(Customer) = True THEN
  Info("End of data file reached.")
  ELSE
  // Displays the customer data
  FileToScreen()
  END
- The WLanguage code corresponding to the "Click" event of "BTN_Last" is:
  // Reads the last customer
  HReadLast(Customer)
  IF HOut(Customer) = True THEN
  // No customer
  Info("No form to view.")
  ELSE
  // Displays the customer data
  FileToScreen()
  END
In these different codes:
- HReadLast is used to read the last file record according to the key used for the last search.
- HReadNext reads the record whose key value is immediately greater than the one of current record.
- HReadPrevious reads the record whose key value is immediately less than the one of current record.
In any case:
- HOut is used to find out whether the data file is empty.
- FileToScreen is used to display the record on the screen.


	Remark	The code in the "Next" and "Previous" Button controls contains additional lines of code to: Check whether a search was already performed in the Customer data file (test of HOut to find out whether the file reading has started). Read the first or last record if necessary. Indeed, the next or previous record cannot be read if no reading was performed in the data file.

Save the window by clicking among the quick access buttons.

Window test

Let's run a window test:
1. Run the window test ( among the quick access buttons).
2. Click the "Finding customers" tab pane if necessary.
3. Find a customer (perform a generic search on "BEEF" for example).
4. Browse the data file by clicking each one of the browse buttons.
5. Stop the test to go back to the editor.