4D View v16PV CELLS TO ARRAY |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D View v16
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 | |||||
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).
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
Produto: 4D View
Tema: PV Valor célula
Número
15909
Criado por: 4D View 6.8
4D View Linguagem ( 4D View v16)
Adicionar um comentário