- 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 Connector
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 set the position in the data file to perform a browse loop among the records that correspond 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 read operation is performed, HOut returns True and HFound returns False.
- the function tries to lock a record that is already locked in read-only: no read operation is performed, HErrorLock returns True and HOut returns True.
Remark: 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 15 Versions 17 and later New in version 17 Versions 18 and later New in version 18 Remark: 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(<Data file> , <Item> , <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.
<Data file>: Character string (with or without quotes) Name of HFSQL data file, view or query used. <Item>: 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 search speed in Client/Server mode and on external databases (accessed via OLE DB or via Native Connectors). | hKeepFilter | The filter set 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, performance issues may arise for large 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 "Smith" (for the NAME item), all records whose Name item starts with "Smith" will match the search. Therefore, the record that contains "Smither" will match the search (HFound returns True). Remark: 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 sets the position 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. | Moor | hGeneric | 8 | True | False | Moor does not exist but the search is a generic search and Moore is found (among others). The end of data file was not reached yet. | Moor | | The record was not found (no move, the current record does not change). | False | False | Moor 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 appear in the "Compilation errors" pane.
Remark: 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 first element of composite key>, ...])
Example:
// Find the record HReadSeekFirst(CUSTOMER, LASTNAME_FIRSTNAME, ["MOORE", "Vince"])
2. Using HBuildKeyValueExample:
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 HConvertTo build the value of a 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 = Complete(Customer.CustomerLastName, Dimension(Customer.LastName), Charact(0)) + ... Complete(Customer.FirstName, Dimension(Customer.FirstName), Charact(0))
Search on an array item 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. Search and filter 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 set the position in the data file to perform a browse loop among the records that correspond 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…
|
|
|
| |
| //EXEMPLO DE USO DE CHAVE COMPOSTA COM 2 CAMPOS |
|
| //EXEMPLO DE USO DE CHAVE COMPOSTA COM 2 CAMPOS
valorNovo is int = TABLEGRID_T027_GRUPOS_PERGUNTAS.COL_T027_ORDEM + 1
bufSearch is Buffer = HBuildKeyValue(T027_GRUPOS_PERGUNTAS,T027_CHAVECOMPOSTA, pgnIDQuestionario,gnIDGrupoPergunta)
IF HReadSeekFirst(T027_GRUPOS_PERGUNTAS,T027_CHAVECOMPOSTA,bufSearch) = True IF HFound(T027_GRUPOS_PERGUNTAS) = True T027_GRUPOS_PERGUNTAS.T027_ORDEM = valorNovo HModify(T027_GRUPOS_PERGUNTAS) END END
TableDisplay(TABLEGRID_T027_GRUPOS_PERGUNTAS,taInit) TableDisplay(TABLEGRID_T027_GRUPOS_PERGUNTAS,taReExecuteQuery) |
|
|
|
| |
| |
| |
|
| 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
|
|
|
|
| |
| |
| |
| |
| |
| |
| | |
|