- Generic search/Exact-match search
- Search performed on a key item or on a non-key item
- Performing a search on a composite key
- Search on an array item
- Search and filter
- Browsing the records corresponding to a condition
- Exact-match search in Access
- Locks
- Optimizing the browse operations
- Native XML Access
HReadSeekFirst (Function) In french: HLitRecherchePremier
 Not available with this kind of connection
Positions on the first record of a data file whose value for a specific item is strictly equal to a sought value (exact-match search). The record is read and the corresponding HFSQL variables are updated. In most cases, HReadSeekFirst is used to position in the data file in order to perform a browse loop among the records corresponding to a condition. HReadNext is used to read the next record corresponding to the condition. Several cases may occur after the call to HReadSeekFirst: - a record corresponding to the condition was found, locked (if necessary) and loaded in memory: HFound returns True.
- if no record corresponding to the condition exists but if a record with a greater value is found: the record is read, HOut returns False and HFound returns False.
- the data file is empty: no reading is performed, HOut returns True and HFound returns False.
- the function tries to lock a record that is already locked in read-only: no reading is performed, HErrorLock returns True and HOut returns True.
Note: An automatic management of lock errors and modification conflicts is performed by default (except in the code of stored procedures). This assisted management of errors can be customized or disabled at any time by HOnError.
HReadSeekFirst can be used with the data files, HFSQL views or queries.  Versions 15 and later New in version 15Versions 17 and later New in version 17 Versions 18 and later New in version 18 Note: From version 19, HFSQL is the new name of HyperFileSQL. Versions 21 and later New in version 21
// Find the first record for which
// the CUSTOMER name is MOORE
HReadSeekFirst(CUSTOMER, NAME, "MOORE")
IF HFound(CUSTOMER) = False THEN
Error("Customer not found")
RETURN
ELSE
// Continue the process on the customer named MOORE
END
Syntax
<Result> = HReadSeekFirst(<File name> , <Item name> , <Sought value> [, <Options>])
<Result>: Boolean - True if the record was found (corresponds to the value returned by HFound).
- False if a problem occurred. This problem can be caused by:
- a positioning problem (empty data file, ...): HFound returns False and HError returns 0.
- an error: HError returns an integer other than 0. HErrorInfo returns more details.
<File name>: Character string (with or without quotes) Name of HFSQL data file, view or query used. <Item name>: Character string (with or without quotes) Name of item on which the search will be performed. This item can be a search key or not.
<Sought value>: Type corresponding to the value Value of sought item. <Options>: Optional constant (or combination of constants) Used to configure:- the lock mode applied to the sought record
- the type of search performed.
| | | hLockReadWrite | Lock in read/write: the record currently read cannot be read or modified by another application.
The lock mode is ignored if a query is used.
| | hLockWrite | Lock in write mode: the record currently read can be read by another application but it cannot be modified by another application.
The lock mode is ignored if a query is used.
| | hLockNo | No lock (even if HStartLock was called): the record can be read or modified by another application during the reading.
| Versions 17 and laterhForwardOnly New in version 17hForwardOnly hForwardOnly | | | hGeneric | Generic search (see the Notes)
An exact-match search is performed by default (constant not specified). | | hLimitParsing | The browse will stop as soon as the last sought value is found or if no value corresponds to the search.
The current record will correspond to this last record found.
HFound will return False and HOut will return True.
This constant is used to optimize the speed in Client/Server mode and on the external databases (accessed via OLE DB or via Native Accesses). | | hKeepFilter | The filter implemented by HFilter will be taken into account, even if the search key is not optimized for the filter. Reminder: HFilter returns the search key optimized for the filter.
Caution: in this case, poor performance may occur on huge data files.
By default, the browse performed after HReadSeekFirst ignores the filter. | | hNoRefresh | |
Remarks Generic search/Exact-match search - Generic search (mainly on the Character String items): Finds all records starting with the specified value.
For example: When a generic search is performed on "Martin" (for the NAME item), all records whose Name item starts with "Martin" will correspond to the search. Therefore, the record containing "Martinez" will correspond to the search (HFound returns True).
Note: For backward compatibility with WINDEV 5.5, the generic search of an empty string ("") is equivalent to the use of HReadFirst. - Exact-match search: Finds all records that exactly correspond to the specified value.
For example: When an exact-match search is performed on "Smith" (for the NAME item), HFound returns True for the records whose item exactly matches "Smith". - Examples of searches performed on CUSTOMER file sorted by name:
| | | | | | | Sought value | Options | HReadSeekFirst positions on the record. | HFound returns | HOut returns | Explanations | | Davon | | 1 | True | False | Davon exists.
The end of data file was not reached yet. | | Davo | | 1 | False | False | Davo does not exist. Position on the first greater value (Davon).
The end of data file was not reached yet. | | Davi | hGeneric | 8 | True | False | Davi does not exist but the search is a generic search and Davies is found (among others).
The end of data file was not reached yet. | | Davi | | The record was not found (no move, the current record does not change). | False | False | Davi does not exist.
The end of data file was not reached yet. | | Norbert | | The record was not found (no move, the current record does not change). | False | True | Norbert does not exist.
Position on the first greater value (this value does not exist): the end of data file has been reached. |
See the Hyper File 5.5 and 7: How to manage the space characters in the searches? table for more details Search performed on a key item or on a non-key item The search can be performed on a key item or a non-key item. If the search is performed on a key item: - the search is fast and the result is sorted.
- if the browse is continued by HReadNext, the next records will correspond to the values greater than or equal to the sought value. In this case, HOut must be checked after each read operation to find out whether the end of data file has been reached.
If the search is performed on a non-key item: - the selected item will appear in red in the code editor and a warning will be displayed in the "Compilation errors" pane.
Note: The automatic completion proposes the key items only. - if the browse is continued by HReadNext, the next records will correspond to the values equal to the sought value.
Performing a search on a composite key Several methods can be used to perform a search on a composite key: 1. Using a list of values The following syntax is used to perform a search on a composite key:
HReadSeekFirst(<File Name>, <Name of Composite Key>,
[<Search Value of First Element of Composite Key>,
<Search Value of Second Element of Composite Key>, ...])
Example:
// Find the record
HReadSeekFirst(CUSTOMER, LASTNAME_FIRSTNAME, ["MOORE", "Vince"])
2. Using HBuildKeyValue Example:
bufSoughtVal is Buffer = HBuildKeyValue(CUSTOMER, LASTNAME_FIRSTNAME, sLastName, sFirstName)
HSeekFirst(CUSTOMER, LASTNAME_FIRSTNAME, bufSoughtVal)
WHILE HFound(CUSTOMER)
HDelete(CUSTOMER)
HNext(CUSTOMER, LASTNAME_FIRSTNAME)
END
3. Using HConvert To build the value of composite key without using HBuildKeyValue, you must: - fill the text components on their entire size with Charact(0).
- convert the numeric components with HConvert.
Example:
MyCompositeKey = Complète(Customer.CustomerLastName, Dimension(Customer.LastName), Charact(0)) + ...
Complète(Customer.FirstName, Dimension(Customer.FirstName), Charact(0))
The search is performed on the first array element (element whose subscript is 1). To perform a search on the other array elements, use the filters or queries. If a filter is enabled ( HFilter), the filter is taken into account by the search only if the key used is identical. To take this filter into account in the rest of browse (even if the search key is not optimized for the filter), use the hKeepFilter constant. Browsing the records corresponding to a condition In most cases, HReadSeekFirst is used to position in the data file in order to perform a browse loop among the records corresponding to a condition. HReadNext and HReadPrevious are used to read the next and previous records corresponding to the condition. To ignore the search while going to the next or previous record, use one of the following functions:
This page is also available for…
|
|
|
| |
| Vamos a cambiar el registro. |
|
| //Aula 1153 WinDev Curso ErpAmarildo 11 - Tabela Codigo de Alteração
//Nessa aula de hoje
//vamos fazer a alteração do registro.
//En esta clase de hoy
//Vamos a cambiar el registro.
//In this class today
//Let's do the registry change.
IF TableSelect(TABLE_QRY_RELACAO_EMPRESAS)=-1 THEN RETURN
_indice is int=TableSelect(TABLE_QRY_RELACAO_EMPRESAS)
HReadSeekFirst(empresa,empresaID,TABLE_QRY_RELACAO_EMPRESAS.COL_EmpresaID)
IF HFound(empresa) THEN
Open(WIN_Form_empresa)
END
TableDisplay(TABLE_QRY_RELACAO_EMPRESAS,taReExecuteQuery)
TableSelectPlus(TABLE_QRY_RELACAO_EMPRESAS,_indice) |
|
|
|
| |
| |
| |
|
| | // adds a row into the looper
//by Boller - nome das janelas = GPU_WindowPages
//------------------------------------------------
ok is boolean = HReadSeekFirst(GPU_WindowPages,GPU_WindowPages.Name,sElementName,hKeepFilter)
IF ok = True AND HFound(GPU_WindowPages) = False
GPU_WindowPages.Name = sElementName
HAdd(GPU_WindowPages)
END
//------------------------------------------------ |
|
|
|
| |
| |
| |
|
| Como Pegar Saldo Anterior Caixa |
|
| 1) Nessa aula de hoje, vou mostrar como
pegar o saldo incial do caixa.
2) Vamos ter um campo saldo inicial do caixa conta
3) vamos fazer uma query lendo os totais de entrada e saida
4) Vamos atualizar o saldo
//Qry_Saldo_caixa_Inicial
SELECT
SUM(caixa.valor_entradas) AS total_valor_entradas,
SUM(caixa.valor_saidas) AS total_valor_saidas
FROM
caixa
WHERE
caixa.id_empresa = {Parametro_empresa}
AND caixa.Caixa_contaID = {Parametro_contaID}
AND caixa.data_documento<{Parametro_data_inicial}
//
//Chama Rotina Saldo Caixa
saldo_caixa()
//Rotina Saldo Caixa
PROCEDURE saldo_caixa()
HReadSeekFirst(caixa_conta,caixa_contaID,gn_recebe_id_conta)
cy_saldo_inicial is currency=caixa_conta.saldo_inicial // Iniciar 100,00
qry_saldo_caixa_inicial.Parametro_contaID=gn_recebe_id_conta // 1
qry_saldo_caixa_inicial.Parametro_data_inicial=EDT_Data_Inicial // 10 01 2017
qry_saldo_caixa_inicial.Parametro_empresa=gnEmpresaCodigo // 1
HExecuteQuery(qry_saldo_caixa_inicial,hQueryDefault) // executando query
cy_saldo_entradas is currency=qry_saldo_caixa_inicial.total_valor_entradas
//vai somar todas entradas menores que a data inicial = 09 01 2017
cy_saldo_saidas is currency=qry_saldo_caixa_inicial.total_valor_saidas
//vai somar todas saidas menores que a data inicial = 09 01 2017
cy_saldo_inicial=cy_saldo_inicial+cy_saldo_entradas-cy_saldo_saidas
EDT_Saldo_Anterior=cy_saldo_inicial
http://windevdesenvolvimento.blogspot.com.br/2017/01/aula-1031-dicas-012-pegar-saldo.html
https://www.youtube.com/watch?v=xpqkboM8LFY
|
|
|
|
| |
| |
| |
|
| Exemplo HreadSeekFirst - Ncm |
|
| PROCEDURE ncm_estado_ler()
HReadSeekFirst(ncm_estado,chave_Ncm_classificacao_Uf,[material.ncm_classificacao,cliente.endereco_uf])
IF HFound(ncm_estado) THEN
info("existe")
ELSE
info("nao Existe")
END
//Blog com Exemplo e video
http://windevdesenvolvimento.blogspot.com.br/2015/11/windev-curso-144-chavecomposta.html
|
|
|
|
| |
| |
| |
| |
| |
| |
| | |
|