4D Doc Center : PV ARRAY TO CELLS

4D View v14

PV ARRAY TO CELLS


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

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

Descripción

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_INTEGER($Index) `Índice del bucle

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

 C_INTEGER($Conversion) `¿Forzar la conversión a texto?

 

 ARRAY STRING(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)