Cierra todas las áreas de trabajo ocupadas

Sintaxis

     DBCLOSEALL() –> NIL

Devuelve

DBCLOSEALL() devuelve siempre NIL.

Descripción

DBCLOSEALL() libera todas las áreas de trabajo ocupadas. Equivale a utilizar DBCLOSEAREA() en todas las áreas de trabajo ocupadas.

DBCLOSEALL() tiene el mismo efecto que el mandato CLOSE DATABASES estándar. Si desea más información, consulte los mandatos USE y CLOSE.

 Ejemplos

     ¦  En el ejemplo siguiente se cierran todas las áreas de trabajo:

        cApellido := «López»

        DBUSEAREA(.T., «DBFNTX», «Ventas», «Ventas», .T.)

        DBSETINDEX( «SALEFNAM» )

        DBSETINDEX( «SALELNAM» )

        //

        DBUSEAREA(.T., «DBFNTX», «Distribu», «Distribu», .T.)

        DBSETINDEX( «COLLFNAM» )

        DBSETINDEX( «COLLLNAM» )

        //

        DBSELECTAREA( «Ventas» )         // seleccionar el área

                                                        // de trabajo «Ventas»

        //

        IF ( Ventas->(DBSEEK(cApellido)) )

           IF Ventas->( DELETED() )

              IF RLOCK()

                 Ventas->( DBRECALL() )

                 ? «Registro borrado: «, Ventas->( DELETED() )

              ENDIF

           ENDIF

        ELSE

           ? «No se encuentra»

        ENDIF

        DBCLOSEALL()                     // cerrar todas las áreas

                                                 // de trabajo

 Ficheros:  La biblioteca asociada es DPXBASE.CH.