SET FORMAT*
 Activa un formato cuando se ejecuta READ
------------------------------------------------------------------------------

 Sintaxis

      SET FORMAT TO [<idProcedimiento>[.<ext>]]

 Argumentos

     TO <idProcedimiento> es un fichero de formato (.fmt), de programa
     (.prg) o un procedimiento.

     <ext> es la extensión del fichero de formato. Si no se especifica,
     la extensión por defecto es (.fmt).

     SET FORMAT TO sin argumentos desactiva el formato actual.

 Descripción

     SET FORMAT define un procedimiento que debe ejecutarse cuando se invoca
     un READ. A diferencia del entorno interpretado, los formatos no se
     abren ni se ejecutan durante la ejecución. En lugar de ello, el
     compilador de CA-Clipper trata a SET FORMAT del mismo modo que a un
     mandato DO. El compilador mira en primer lugar si ya ha compilado un
     procedimiento con el mismo nombre que <idProcedimiento>. Si lo ha
     hecho, utiliza dicho procedimiento para la referencia. Si no se
     encuentra <idProcedimiento>, el compilador busca en el disco un fichero
     con el mismo nombre. Si no lo encuentra, se genera una referencia
     externa que debe resolverse en el momento del enlace.

     SET FORMAT es un mandato de compatibilidad y su uso no es
     recomendable.

 Notas

     ■ Procedimientos de formato activos: A diferencia de otros
        dialectos en los que cada área de trabajo puede tener un formato
        activo, CA-Clipper sólo admite un procedimiento de formato activo
        para todas las áreas de trabajo.

     ■ Borrado de pantalla: CA-Clipper no borra la pantalla cuando
        se ejecuta un procedimiento de formato.

     ■ Sentencias válidas: Los procedimientos de formato permiten
        sentencias y mandatos además de @...SAY y @...GET.

     ■ Varias páginas: CA-Clipper no admite procedimientos de formato
        de varias páginas.

 Ejemplos

      Este ejemplo utiliza un procedimiento de formato para añadir
        registros a un fichero de base de datos hasta que el usuario pulse
        Esc:

        USE Ventas NEW
        SET FORMAT TO VentasScr
        DO WHILE LASTKEY() != 27
           APPEND BLANK
           READ
        ENDDO
        RETURN

        PROCEDURE VentasScr
           @ 12, 12 SAY "Sucursal   : " GET  Sucursal
           @ 13, 12 SAY "Vendedor   : " GET  Vendedor
           RETURN

 Ficheros   La biblioteca asociada es CLIPPER.LIB.

 To download this example - click here.

See Also: @...GET @...SAY PROCEDURE READ