FiveTech Support Forums

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) } )

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.

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.

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.

RSalazarU wrote:Adrian:

ArrayToFields()
FieldsToArray()
Estas dos funciones las tengo definidas de la siguiente manera:

Code (fw): Select all Collapse

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.