| 4D View v15PV CELLS TO ARRAY | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D View v15
 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 | |||||
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).
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
	Producto: 4D View
	Tema: PV Valor celda
	Número 
        15909
        
        
        
	
	Creado por: 4D View 6.8
	4D View - Lenguaje ( 4D View v15)
	
	
	
	
	
	
	
 Añadir un comentario
Añadir un comentario