4D View v16

PV ARRAY TO CELLS

Inicio

 
4D View v16
PV ARRAY TO CELLS

PV ARRAY TO CELLS 


 

PV ARRAY TO CELLS ( area ; direccion ; columna ; linea ; conversion ; array ) 
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 la columna de inicio
linea  Entero largo in Número de la línea de inicio
conversion  Entero in 0 = Tipo texto; 1 = Tipo original
array  Array in Nombre del array

El comando PV ARRAY TO CELLS inserta en area el contenido de los arrays cuyos nombres se especifican en array. El contenido se inserta a partir de las coordenadas definidas por linea y columna, en el sentido definido por direccion.

Nota: el uso del parámetro direccion 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 ARRAY TO CELLS, la direccion es hacia la derecha (0=linea), o hacia la parte inferior (1=columna).

El quinto parámetro, conversion, permite cambiar el tipo de los datos de las celdas que terminarán como texto. El tipo de valor fuente debe ser compatible con esta operación: si solicita un cambio de tipo de datos de un BLOB o de una imagen a texto, conversion se ignorará.

Ejemplo  

Copiamos nuevamente, hacia abajo, tres arrays de tipos diferentes a partir de la celda actual. Dependiendo de la respuesta al diálogo de confirmación del cambio de tipo, el contenido del array puede ejecutarse en celdas 4D View en forma convertida (texto) o no.

 C_LONGINT($Index`Índice del bucle
 C_LONGINT($Column;$Row`Coordenadas de la celda de inicio
 C_LONGINT($Conversion`¿Forzar la conversión a texto?
 
 ARRAY TEXT(20;$ArrayString;10) `Array de valores alfanuméricos (comienza en la celda actual)
 ARRAY DATE($ArrayDates;10) `Array de fechas (columna siguiente)
 ARRAY BOOLEAN($ArrayBooleans;10) `Array de booleanos (tercera columna)
 
  `Inicialización
 For($Index;1;Size of array($ArrayString))
    $ArrayString{$Index}:=String($Index*10) `"10", "20", "30"...
    $ArrayDates{$Index}:=Current date(*)+$Index `25/06/2001, 26/06/2001...
    $ArrayBooleans{$Index}:=($Index%2=0) `True = par
 End for
 
 PV GET CURRENT CELL(Area;$Column;$Row)
 
 CONFIRM("¿Quiere convertir el contenido de los arrays a texto?")
 $Conversion:=1-OK
 
  `Para obtener las columnas "$ArrayString", "$ArrayDates" y "$ArrayBooleans":
 PV ARRAY TO CELLS(Area;1;$Column;$Row;$Conversion;$ArrayString`1 = hacia abajo
 PV ARRAY TO CELLS(Area;1;$Column+1;$Row;$Conversion;$ArrayDates)
 PV ARRAY TO CELLS(Area;1;$Column+2;$Row;$Conversion;$ArrayBooleans)



Ver también 

PV CELLS TO ARRAY
PV FIELD TO CELLS

 
PROPIEDADES 

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

 
HISTORIA 

Creado por: 4D View 6.8

 
ARTICLE USAGE

4D View - Lenguaje ( 4D View v16)