4D Doc Center : PV CELLS TO ARRAY

4D View v14

PV CELLS TO ARRAY


PV CELLS TO ARRAY ( area ; direccion ; columna ; linea ; array ; numero )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D View
direccion	Entero	0 = Línea; 1 = Columna
columna	Entero largo	Número de columna de inicio
linea	Entero largo	Número de línea de inicio
array	Array	Nombre del array
numero	Entero largo	Número de celdas a utilizar

Descripción

El comando PV CELLS TO ARRAY llena el array con el contenido de las celdas especificadas por direccion, columna, linea y numero.

direccion especifica si el comando PV CELLS TO ARRAY debe efectuar una copia de las celdas contiguas en la dirección horizontal (0) o vertical (1), comenzando por la celda definida por linea y columna.

Nota: el uso del parámetro sentido es diferente del parámetro direccion en los comandos PV GOTO NEXT CELL y PV GET NEXT FREE CELL, donde la direccion puede ser en cualquier sentido. Para PV CELLS TO ARRAY, la direccion es hacia la derecha (0=linea), o hacia la parte inferior (1=columna).

Ejemplo

Tomemos, por ejemplo, un área 4D View incluida en la pantalla de entrada de la tabla de clientes: esta área incluida, contiene 10 líneas máximo, servirá para introducir o modificar los contactos del cliente. El área de entrada se compone de 10 celdas dispuestas en columnas a partir de la celda actual:

 ARRAY STRING(255;ContactsTab;0) `Array de nombres de contactos

 C_LONGINT($Column;$Row) `Coordenadas de la celda de inicio

 

 PV GET CURRENT CELL(Area;$Column;$Row)

 

  `10 líneas máximo a partir de la celda actual hacia abajo

 PV CELLS TO ARRAY(Area;1;$Column;$Row;ContactsTab;10)

 

 If(Size of array(ContactsTab)#0) `¿Se recuperó algo?

    RELATE MANY([Clientes]Code) `Recuperación de los registros relacionados

    DELETE SELECTION([Contactos]) `Elimina los contactos existentes

  `Actualizar los contactos (nuevo, modificado o eliminado)

    ARRAY TO SELECTION(ContactsTab;[Contactos]ContactName) `Creación de contactos

    APPLY TO SELECTION([Contactos];[Contactos]CodeClient:=[Clientes]Code) `Para conservar la relación

    QUERY SELECTION([Contactos];[Contactos]ContactName="") `Purga de los contactos vacíos

    DELETE SELECTION([Contactos])

 End if