Libera todos los bloqueos en todas las áreas de trabajo

Sintaxis

     DBUNLOCKALL() –> NIL

Devuelve

DBUNLOCKALL() devuelve siempre NIL.

Descripción

DBUNLOCKALL() libera cualquier bloqueo de registro o de fichero realizado con el proceso actual en cualquier área de trabajo. DBUNLOCKALL() sólo es significativo en una base de datos compartida en un entorno de red. Equivale a utilizar DBUNLOCK() en las áreas de trabajo ocupadas.

DBUNLOCKALL() realiza la misma función que un mandato UNLOCK ALL. Si desea más información, consulte el mandato UNLOCK ALL.

 Ejemplos

     ¦  En el ejemplo siguiente se marca un registro para borrarlo, si el intento de ejecutar RLOCK() ha sido satisfactorio, y luego elimina todos los bloqueos en todas las áreas de trabajo:

        cApellido := “López”

        USE Ventas SHARED NEW VIA “DBFNTX”

        DBSETINDEX( “NOMVENDE” )

        DBSETINDEX( “APEVENDE” )

        //

        USE DISTRIBU SHARED NEW VIA “DBFNTX”

        DBSETINDEX( “NOMDISTR” )

        DBSETINDEX( “APEDISTR” )

        //

        DBSELECTAREA( “Ventas” )         // seleccionar el área

                                                        // de trabajo “Ventas”

        //

        IF ( Distribu->(DBSEEK(cApellido)) )

           IF Distribu->( DELETED() )

              ? “Registro borrado: “, Distribu->( DELETED() )

              IF Distribu->( RLOCK() )

                 Distribu->( DBRECALL() )

                 ? “Registro recuperado…”

              ENDIF

           ENDIF

        ELSE

           ? “No encontrado”

           DBUNLOCKALL()                 // eliminar todos los bloqueos

        ENDIF                                   // en las áreas de trabajo

 Ficheros:  La biblioteca asociada es DPXBASE.CH.