Cierra un área de trabajo

Sintaxis

     DBCLOSEAREA() –> NIL

Devuelve

DBCLOSEAREA() devuelve siempre NIL.

Descripción

DBCLOSEAREA() libera el área de trabajo actual. Se escriben las actualizaciones pendientes, se liberan los bloqueos y se cierra o se libera cualquier recurso asociado con el área de trabajo. DBCLOSEAREA() es equivalente al mandato CLOSE estándar sin cláusulas. Si desea más información, consulte los mandatos USE y CLOSE.

 Ejemplos

     ¦  En el ejemplo siguiente se cierra un área de trabajo con una referencia de alias:

        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() ) .AND. Ventas->( RLOCK() )

              Ventas->( DBRECALL() )

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

           ENDIF

        ELSE

           ? “No se encuentra”

           Distribu->( DBCLOSEAREA() )

        ENDIF

 Ficheros:  La biblioteca asociada es DPXBASE.CH.