4D View v16

PV CELLS TO ARRAY

Página Inicial

 
4D View v16
PV CELLS TO ARRAY

PV CELLS TO ARRAY 


 

PV CELLS TO ARRAY ( area ; endereço ; coluna ; linha ; array ; numero ) 
Parâmetro Tipo   Descrição
area  Inteiro longo in Área 4D View
endereço  Inteiro in 0 = Linha; 1 = Coluna
coluna  Inteiro longo in Número da coluna de início
linha  Inteiro longo in Número da linha de início
array  Array in Nome do array
numero  Inteiro longo in Número de células a utilizar

O comando PV CELLS TO ARRAY enche o array com o conteúdo das células especificadas por endereço, coluna, linha e numero.

endereço especifica se o comando PV CELLS TO ARRAY deve realizar uma cópia das células contiguas no endereço horizontal (0) ou vertical (1), começando pela célula definida por linha e coluna.

Nota: O uso do parâmetro sentido é diferente do parâmetro endereço nos comandos PV GOTO NEXT CELL e PV GET NEXT FREE CELL, onde o endereço pode ser em qualquer sentido. Para PV CELLS TO ARRAY, o endereço é para a direita (0=linha), ou para a parte inferior (1=coluna).

Exemplo  

Tomemos, por exemplo, uma área 4D View incluída na tela de entrada da tabela de clientes: esta área incluída, contém 10 linhas máximo, servirá para introduzir ou modificar os contatos do cliente. A área de entrada se compõe de 10 células dispostas em colunas a partir da célula atual:

 ARRAY STRING(ContactsTab;0) `Array de nomes de contatos
 C_LONGINT($Column;$Row`Coordenadas da célula de inicio
 
 PV GET CURRENT CELL(Area;$Column;$Row)
 
  `10 linhas máximo a partir da célula atual para baixo
 PV CELLS TO ARRAY(Area;1;$Column;$Row;ContactsTab;10)
 
 If(Size of array(ContactsTab)#0) `Se recuperou algo?
    RELATE MANY([Clientes]Code) `Recuperação dos registros relacionados
    DELETE SELECTION([Contatos]) `Elimina os contatos existentes
  `Atualizar os contatos (novo, modificado ou eliminado)
    ARRAY TO SELECTION(ContactsTab;[Contatos]ContactName) `Criação de contatos
    APPLY TO SELECTION([Contatos];[Contatos]CodeClient:=[Clientes]Code) `Para conservar a relação
    QUERY SELECTION([Contatos];[Contatos]ContactName="") `Purga dos contatos vazios
    DELETE SELECTION([Contatos])
 End if



Ver também 

PV ARRAY TO CELLS
PV FIELD TO CELLS

 
PROPRIEDADES 

Produto: 4D View
Tema: PV Valor célula
Número 15909

 
HISTÓRIA 

Criado por: 4D View 6.8

 
ARTICLE USAGE

4D View Linguagem ( 4D View v16)