ArrayToFields()
FieldsToArray()
Estas dos funciones las tengo definidas de la siguiente manera:
- Code: Select all Expand view RUN
MEMVAR __aArray
***
* Definicion de funcion: FieldsToArray() -> __aArray
* Devuelve el arreglo __aArray con los valores de los campos del actual registro
*
#Define FieldsToArray() AEVAL(__aArray:=ARRAY(FCOUNT()), {|xArray,nIndice| __aArray[nIndice]:=FIELDGET(nIndice) } )
***
* Definicion de funcion: ArrayToFields(<__aArray>) -> __aArray
* Coloca los valores del arreglo <__aArray> a los campos del actual registro
*
#Define ArrayToFields(__aArray) AEVAL( __aArray, {|xArray,nIndice| FIELDPUT(nIndice,xArray) } )
de la ayuda de xHarbour
Description
DbSkipper() is a helper function used in the :skipBlock code block of the TBrowse object. It provides for standard skip behaviour when browsing data in a work area.
de la ayuda de xHarbour
Description
The DbRUnlock() function releases a record lock for an individual record specified with <xRecno>. If no record identifier is passed to the function, DbRUnlock() bahaves like DbUnlock() since all active record locks are released.
Locking and unlocking one or more records for shared write access is the task of DbRlock() and DbRUnlock(), while RLock() works with the current record and DbUnlock() releases all locks.
en vez de esta funcion NetRecLock(, nRecordDown:=RECNO() )
usa esta otra
de la ayuda de xHarbour
Description
NetRecLock() is a network function used to obtain a lock on the current database record when the database file is open in shared mode for multi-user access. If the current database record cannot be locked due to the record being locked by another process, the function retries the operation for a maximum of <nSeconds> seconds and prompts the user if the operation should be retried or aborted.
Espero te ayude
Saludos.