4D Doc Center : PV CELLS TO ARRAY

4D View v14

PV CELLS TO ARRAY


PV CELLS TO ARRAY ( area ; endereço ; coluna ; linha ; array ; numero )

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

Descrição

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(255;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