Métodos GET
Métodos acessíveis através da função _ADVPL_get_property que permite recuperar e manipular os valores do componente:
Método GET: ITEM_COUNT
Total de linhas da grade.
Sintaxe
_ADVPL_get_property( < cReference >, "ITEM_COUNT" ) ==> INTEGER
Retorno
| Tipo | Descrição |
|---|---|
| INTEGER | Quantidade total de linhas da grade. |
Exemplo
LET l_item_count = _ADVPL_get_property(l_table_reference,"ITEM_COUNT")
Veja também LGX - LTABLECOLUMNEX
Métodos SET
Uilizando a função _ADVPL_set_property que permite alterar e manipular os valores de uma propriedade do componente.
Método SET: ADJUST_COLUMNS_WIDTH
Ajusta a largura das colunas conforme tamanho total atribuído para a grade e para cada uma das colunas.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"ADJUST_COLUMNS_WIDTH")
Este método verifica se a largura total da grade é maior que a soma das larguras das colunas e distribui este excedente proporcionalmente para cada coluna da grade.
Exemplo
CALL _ADVPL_set_property(l_table_reference,"ADJUST_COLUMNS_WIDTH")
Método SET: AFTER_ROW_EVENT
Função executada após sair de qualquer linha da grade.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"AFTER_ROW_EVENT",< c4GLFunction >)
Parâmetros
| Nome | Tipo | Descrição | Obrigatório? |
|---|---|---|---|
| c4GLFunction | CHAR | Função que será executada após sair de qualquer linha da grade. | Sim |
Importante: esta função deverá retornar um indicador lógico que define se será permitido o usuário sair da linha ou não.
Método SET: BEFORE_ADD_ROW_EVENT
Função executada antes de incluir uma nova linha na grade.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"BEFORE_ADD_ROW_EVENT",< c4GLFunction >)
Parâmetros
| Nome | Tipo | Descrição | Obrigatório? |
|---|---|---|---|
| c4GLFunction | CHAR | Função que será executada antes de incluir uma nova linha na grade. | Sim |
Importante: esta função deverá retornar um indicador lógico que define se permitirá ou não a inclusão da nova linha no final da grade.
Método SET: BEFORE_EDIT_ROW
Função executada antes da edição da linha (em qualquer coluna) da grade.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"BEFORE_EDIT_ROW",< c4GLFunction >)
Parâmetros
| Nome | Tipo | Descrição | Obrigatório? |
|---|---|---|---|
| c4GLFunction | CHAR | Função a ser executada antes da edição da linha (em qualquer coluna) da grade. | Sim |
Importante: esta função deverá retornar um indicador lógico que define se permitirá ou não a edição da linha da grade.
Método SET: BEFORE_ORDER_EVENT
Função executada antes da ordenação de qualquer coluna da grade.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"BEFORE_ORDER_EVENT",< c4GLFunction >)
Parâmetros
| Nome | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| c4GLFunction | CHAR | Função que será acionada antes da ordenação de qualquer coluna da grade. | Sim |
Importante: esta função deverá retornar um indicador lógico que define se a ordenação será ou não realizada.
Método SET: BEFORE_REMOVE_ROW_EVENT
Função executada antes de excluir qualquer linha da grade.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"BEFORE_REMOVE_ROW_EVENT",< c4GLFunction >)
Parâmetros
| Nome | Tipo | Descrição | Obrigatório? |
|---|---|---|---|
| c4GLFunction | CHAR | Função que será executada antes de excluir qualquer linha da grade. | Sim |
Importante: esta função deverá retornar um indicador lógico que define se a exclusão da linha será ou não realizada.
Método SET: CLEAR_ALL_ATTRIBUTES
Define se na exclusão de determinada linha da grade, todos os atributos da variável de controle nesta linha, serão inicializados.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"CLEAR_ALL_ATTRIBUTES",< nStatus >)
Parâmetros
| Nome | Tipo | Descrição | Obrigatório? |
|---|---|---|---|
| nStatus | BOOLEAN | Indicador lógico que define se na exclusão de determinada linha da grade, todos os atributos da variável de controle nesta linha, serão inicializados. | Sim |
O padrão deste método é TRUE, ele define se ao excluir uma determinada linha da grade, todos os atributos da variável de controle serão excluídos ou somente os que estão visíveis na grade.
Exemplo:
A variável possui os atributos: campo1, campo2 e campo3, a grade está exibindo apenas os atributos: campo2 e campo3.
Ao excluir a linha, se este método estiver ativado (TRUE), serão limpos os atributos campo1, campo2 e campo3, caso contrário (FALSE) será limpo apenas os atributos campo2 e campo3 da variável.
Exemplo
CALL _ADVPL_set_property(l_table_reference,"CLEAR_ALL_ATTRIBUTES",FALSE)
Método SET: REMOVE_EMPTY_ROWS
Remove todas as linhas em branco da grade.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"REMOVE_EMPTY_ROWS")
Este método verifica linha após linha se alguma coluna foi informada, caso nenhuma coluna tenha informação, a linha verificada é excluída.
Exemplo
CALL _ADVPL_set_property(l_table_reference,"REMOVE_EMPTY_ROWS")
Método SET: SET_ROWS
Define a variável que irá controlar os valores e a quantidade de linhas inicias que será atribuída para a grade.
Sintaxe
_ADVPL_set_property(< l_table_reference >,"SET_ROWS",< oArrayOfRecord >, [ nLines ] )
Parâmetros
| Nome | Tipo | Descrição | Obrigatório? |
|---|---|---|---|
| oArrayOfRecord | ARRAY OF RECORD | Variável ARRAY OF RECORD que irá controlar os valores da grade. Os atributos deste ARRAY deverá ter o mesmo nome das colunas criadas na grade. | Sim |
| nLines | INTEGER | Quantidade de linhas iniciais que será atribuída para a grade. | Sim |
Importante: este método deverá ser chamado apenas uma vez para cada componente criado. Caso deseja-se alterar a quantidade de linhas da grade, utilizar o método "ITEM_COUNT".
Exemplo
CALL _ADVPL_set_property(l_table_reference,"SET_ROWS",ma_variable,1)
Método SET: VARIABLE
Define a variável que irá controlar os valores da grade.
Sintaxe
_ADVPL_set_property(< l_grid_reference >,"VARIABLE",< oArrayOfRecord >)
Parâmetros
| Nome | Tipo | Descrição | Obrigatório? |
|---|---|---|---|
| oArrayOfRecord | ARRAY OF RECORD | Variável ARRAY OF RECORD que irá controlar o valores da grade. Os atributos deste ARRAY OF RECORD deverão ter o mesmo nome dos componentes criados na grade. | Sim |
Importante: Este método deverá ser chamado apenas uma vez para cada componente criado.
Exemplo
CALL _ADVPL_set_property(l_table_reference,"VARIABLE",ma_variable)
Exemplo
Importante: esta grid é para edição por coluna, caso deseja uma grid para consulta, utilize o componente LTableEx.
DEFINE ma_variable ARRAY[100] OF RECORD
componente CHAR(50),
metodo ARRAY[100] OF CHAR(50)
END RECORD
#--------------------#
FUNCTION LBrowseEx()
#--------------------#
DEFINE l_value CHAR(50)
DEFINE l_variable CHAR(50)
DEFINE l_row SMALLINT
DEFINE l_column SMALLINT
DEFINE l_table_width SMALLINT
DEFINE l_dialog_reference VARCHAR(10)
DEFINE l_table_reference VARCHAR(10)
DEFINE l_column_reference VARCHAR(10)
# Neste exemplo será construída uma grade onde o número de colunas
# pode ser indefinido.
LET l_table_width = 0
INITIALIZE ma_variable TO NULL
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",650,250)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Ex.: LBROWSEEX")
LET l_table_reference = _ADVPL_create_component(NULL,"LBROWSEEX",l_dialog_reference)
CALL _ADVPL_set_property(l_table_reference,"ENABLE",TRUE)
CALL _ADVPL_set_property(l_table_reference,"EDITABLE",TRUE)
CALL _ADVPL_set_property(l_table_reference,"ALIGN","CENTER")
LET l_column_reference = _ADVPL_create_component(NULL,"LTABLECOLUMNEX",l_table_reference)
CALL _ADVPL_set_property(l_column_reference,"ALIGN","LEFT")
CALL _ADVPL_set_property(l_column_reference,"EDITABLE",FALSE)
CALL _ADVPL_set_property(l_column_reference,"COLUMN_WIDTH",100)
CALL _ADVPL_set_property(l_column_reference,"HEADER","Componente")
CALL _ADVPL_set_property(l_column_reference,"VARIABLE","componente")
LET l_table_width = l_table_width + 100
# Cria as linhas e colunas
FOR l_row = 1 TO 10
LET l_value = "componente ",l_row USING "<<&&&"
LET ma_variable[l_row].componente = l_value
FOR l_column = 1 TO 4
LET l_value = "metodo ",l_row USING "<<&&&",":",l_column USING "<<&&&"
LET ma_variable[l_row].metodo[l_column] = l_value
IF l_row = 1 THEN
# Na varíavel, a primeira posição é o valor e a segunda é o
# cabeçalho.
LET l_value = "Método ",l_column USING "<<&&&"
LET l_variable = "metodo[",l_column USING "<<<<<","]"
LET l_column_reference = _ADVPL_create_component(NULL,"LTABLECOLUMNEX",l_table_reference)
CALL _ADVPL_set_property(l_column_reference,"ALIGN","LEFT")
CALL _ADVPL_set_property(l_column_reference,"EDITABLE",TRUE)
CALL _ADVPL_set_property(l_column_reference,"COLUMN_WIDTH",50)
CALL _ADVPL_set_property(l_column_reference,"HEADER",l_value)
CALL _ADVPL_set_property(l_column_reference,"VARIABLE",l_variable)
CALL _ADVPL_set_property(l_column_reference,"EDIT_COMPONENT","LTEXTFIELD")
CALL _ADVPL_set_property(l_column_reference,"EDIT_PROPERTY","LENGTH",20)
CALL _ADVPL_set_property(l_column_reference,"EDIT_PROPERTY","PICTURE","@&")
# Efetua a soma das colunas somente na primeira linha.
LET l_table_width = l_table_width + 50
END IF
END FOR
END FOR
# Atualiza a grade com os tamanhos de colunas corretos, linhas e variável.
CALL _ADVPL_set_property(l_table_reference,"SIZE",l_table_width,250)
CALL _ADVPL_set_property(l_table_reference,"ADJUST_COLUMNS_WIDTH")
CALL _ADVPL_set_property(l_table_reference,"SET_ROWS",ma_variable,(l_row - 1))
CALL _ADVPL_set_property(l_table_reference,"REFRESH")
CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION
Visualização
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas