DEVPOS() Desplaza el cursor o el cabezal de impresión a una nueva posición, según el dispositivo actual ------------------------------------------------------------------------------ Sintaxis DEVPOS(<nFila>, <nCol>) --> NIL Argumentos <nFila> y <nCol> son las nuevas posiciones de fila y columna del cursor o del cabezal de impresión. Devuelve DEVPOS() devuelve siempre NIL. Descripción DEVPOS() es una función de entorno, que sitúa el cursor en la pantalla o desplaza el cabezal de impresión, en función del valor actual de SET DEVICE. Si se ha establecido SET DEVICE TO SCREEN, DEVPOS() actúa igual que SETPOS(): desplaza el cursor a la situación especificada y actualiza ROW() y COL() con la nueva posición del cursor. Si se ha establecido SET DEVICE TO PRINTER, DEVPOS() desplaza el cabezal de impresión. Para ello, envía cierto número de caracteres de salto de línea y/o de salto de página a la impresora, haciendo avanzar el cabezal de impresión a la nueva posición. Si el valor de SET MARGIN actual es mayor que cero, dicho valor se añade a <nCol>. El cabezal de impresión se desplaza a la posición específica de <nFila> y <nCol> y PROW() y PCOL() se actualizan. Si <nFila> o <nCol> son menores que los valores PROW() y PCOL() actuales, el cabezal de impresión se desplaza según estas reglas: ■ Si <nFila> es menor que PROW(), se envía un EJECT (CHR(12)) automático a la impresora seguido por el número de caracteres de salto de línea (CHR(10)) necesarios para situar el cabezal de impresión en la <nFila> de la página siguiente. ■ Si <nCol>, incluyendo el valor de SET MARGIN actual, es menor que PCOL(), se envían a la impresora un carácter de retorno de carro (CHR(13)) y el número de caracteres de espacio necesarios para situar la cabeza de impresión en <nCol>. Si desea evitar este comportamiento, utilice SETPRC() para asignar los nuevos valores a PROW() y PCOL() antes de utilizar DEVPOS(). Consulte la descripción de SETPRC() si desea más información. Si la salida a la impresora se redirige a un fichero utilizando el mandato SET PRINTER, DEVPOS() actualiza el fichero en lugar de la impresora. Ficheros La biblioteca asociada es CLIPPER.LIB. To download this example - click here.
See Also: @...SAY DEVOUT() PCOL() PROW() SET DEVICE