4D Doc Center : PV SET CELL NAME

4D View v14

PV SET CELL NAME


PV SET CELL NAME ( area ; columna ; linea ; nombre ; modo )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D View
columna	Entero largo	Número de columna de la celda
linea	Entero largo	Número de línea de la celda
nombre	Cadena	Nombre de la celda
modo	Entero largo	0 o se omite = Añadir el nombre, 1 = Remplazar el nombre

Descripción

El comando PV SET CELL NAME define el nombre de una celda definida por los parámetros columna y linea.

Puede acceder a una celda, ya sea por su referencia absoluta, número de línea y columna, o por su nombre. Las fórmulas del área 4D View también se pueden referenciar a esta celda utilizando su nombre.

Notas:

Los tres primeros caracteres de un nombre de celda no deben ser números.
El nombre de la celda no debe contener espacios (los espacios que figuran en el parámetro nombre serán truncados por el comando).

El parámetro opcional modo se utiliza para definir la manera como debe definirse el nuevo nombre de la celda si la celda a tiene uno o más nombre(s). Puede utilizar las siguientes constantes del tema PV Propiedades celda:

Constante	Tipo	Valor
pv add name	Entero largo	0
pv replace name	Entero largo	1

Para borrar todos los nombres asociados a la celda, pase una cadena vacía ("") en nombre y pv replace name en modo.

Ejemplo

Este ejemplo permite dar un nombre a la celda actual. Si ya tiene un nombre, el usuario puede cambiarlo:

 C_TEXT($CellName) `Nombre a asignar a la celda

 C_LONGINT($Column) `Número de la columna de la celda actual

 C_LONGINT($Row) `Número de línea de la celda actual

 

 PV GET CURRENT CELL(Area;$Column;$Row) `Recuperación de las coordenadas de la celda actual

 $CellName:=PV Get cell name(Area;$Column;$Row) `Nombre posiblemente dado

 

 If($CellName="") `¿La celda ya tiene un nombre?

    $CellName:=Request("¿Qué nombre quiere asignar a esta celda?";"Nuevo nombre")

    If($CellName#"") `Se introdujo un nombre

       PV SET CELL NAME(Area;$Column;$Row;$CellName) `Asignación del nombre introducido

    End if

 Else `La celda actual ya tiene un nombre

    CONFIRM("Esta celda se llama "+$CellName+". ¿Desea renombrarla?";"Sí";"No")

    If(OK=1) `El usuario desea renombrar la celda

       PV SET CELL NAME(Area;$Column;$Row;$CellName;pv replace name)

    End if

 End if