4D View v16

PV CELLS TO ARRAY

Inicio

 
4D View v16
PV CELLS TO ARRAY

PV CELLS TO ARRAY 


 

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

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 TEXT(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



Ver también 

PV ARRAY TO CELLS
PV FIELD TO CELLS

 
PROPIEDADES 

Producto: 4D View
Tema: PV Valor celda
Número 15909

 
HISTORIA 

Creado por: 4D View 6.8

 
ARTICLE USAGE

4D View - Lenguaje ( 4D View v16)