Expandir |
---|
title | SET ARRAY_RECORD_RETURN |
---|
|
Define um ARRAY OF RECORD do 4GL onde serão carregados os valores selecionados no zoom de múltipla seleção. Bloco de código |
---|
TITLE","Exemplo de Utilização: LZOOMMETADATA")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property( < ml_ zoompanel_reference >," ARRAY_RECORD_RETURN", < r_ArrayRecord >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
r_ArrayRecord | () | ARRAY OF RECORD do 4GL onde serão carregados os registros selecionados no zoom | Sim |
Exemplo
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
ALIGN","CENTER")
LET l_layout_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL _ADVPL_set_property(l_layout_reference,"COLUMNS_COUNT",4)
CALL _ADVPL_set_property(
ml_
zoom_empresalayout_reference,"
ARRAY_RECORD_RETURN",ma_zoom_empresa) Expandir |
---|
|
Integra um componente da tela com o zoom. Com esta integração, ao executar o zoom, o mesmo irá atribuir o foco e o valor para o campo e também irá efetuar outras validações automaticamente. Bloco de código |
---|
MARGIN",TRUE)
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property( < l_ zoomlabel_reference >," ZOOM_COMPONENT",<c_Component>, <n_Type>, <n_Size>, [n_Precision] ) |
Nome | Tipo | Descrição | Obrigatório? |
---|
l_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Component | CHAR | Referência do componente que será integrado com o zoom. | Sim |
n_Type | INTEGER | Tipo do componente, sendo: 1–CHAR, 2–SMALLINT, 3–INTEGER, 4–DECIMAL, 5–DATE, 6–DATETIME, 7–VARCHAR, 8–SERIAL e 9–IMAGE. | Sim |
n_Size | INTEGER | Tamanho do tipo de dado do componente. | Sim |
n_Precision | INTEGER | Precisão do tipo de dado do componente | Não |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
TEXT","Item: ")
LET m_cod_item_reference = _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_reference)
CALL _ADVPL_set_property(m_cod_item_reference,"ENABLE",FALSE)
CALL _ADVPL_set_property(m_cod_item_reference,"LENGTH",15)
CALL _ADVPL_set_property(m_cod_item_reference,"PICTURE","@!")
CALL _ADVPL_set_property(
l_zoomm_cod_item_reference,"
ZOOM_COMPONENTVARIABLE",mr_tela,"
zoomcod_
component",3,10,5) Expandir |
---|
|
Carrega as informações do zoom informado, cadastrado no metadado. Bloco de código |
---|
item")
CALL _ADVPL_set_property( < l_zoomm_cod_item_reference >," ZOOMWIDTH", < c_Zoom > ) |
Nome | Tipo | Descrição | Obrigatório? |
---|
l_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Zoom | CHAR
| Nome do zoom que será carregado, o mesmo deve estar cadastrado no metadado | Sim |
Exemplo
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
50)
LET l_imagebutton_reference = _ADVPL_create_component(NULL,"LIMAGEBUTTON",l_layout_reference)
CALL _ADVPL_set_property(
l_
zoomimagebutton_reference
,"
ZOOMCLICK_EVENT","zoommetadata_execute_zoom_
empresa") Expandir |
---|
|
Define o tipo do zoom que será executado, de seleção única ou múltipla seleção. Bloco de código |
---|
item")
CALL _ADVPL_set_property(l_imagebutton_reference,"IMAGE","BTPESQ")
CALL _ADVPL_set_property( < l_ zoomimagebutton_reference >," ZOOM_TYPE",< n_Type >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
l_zoom_reference | CHAR
| Referência do formulário. | Sim |
n_Type | INTEGER
| Tipo do zoom que será executando, sendo: 0 - Seleção única e 1 - Múltipla seleção | Sim |
Exemplo
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
CALL SIZE",24,20)
LET m_den_item_reference = _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_reference)
CALL _ADVPL_set_property(
l_zoomm_den_item_reference,"
ZOOM_TYPEENABLE",
1FALSE)
Expandir |
---|
|
Marca/desmarca um determinado registro do zoom de múltipla seleção. Bloco de código |
---|
CALL _ADVPL_set_property( < m_ browseden_item_reference >,"SELECT_ITEM", < n_Row >, < n_Status >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_browse_reference | CHAR
| Referência do formulário. | Sim |
n_Row | INTEGER | Número da linha do registro que será selecionado. | Sim |
n_Status | INTEGER | Verdadeiro para marcar o registro da linha informada, falso para desmarcar. | Sim |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
,"LENGTH",76)
CALL _ADVPL_set_property(m_den_item_reference,"PICTURE","@!")
CALL _ADVPL_set_property(m_den_item_reference,"VARIABLE",mr_tela,"den_item")
CALL _ADVPL_set_property(m_
browseden_
filteritem_reference,"
SELECT_ITEMWIDTH",
1,5) Expandir |
---|
title | SET CLEAR_SELECT_ITEM |
---|
|
Desmarca todos registros do zoom de múltipla seleção. Bloco de código |
---|
200)
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property( < l_ zoom_reference >,"CLEAR_SELECT_ITEM") |
Nome | Tipo | Descrição | Obrigatório? |
---|
l_zoom_reference | CHAR
| Referência do formulário. | Sim |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
label_reference,"TEXT","Empresas: ")
LET m_count_empresas_reference = _ADVPL_create_component(NULL,"LNUMERICFIELD",l_layout_reference)
CALL _ADVPL_set_property(m_
browsecount_
filterempresas_reference,"
CLEAR_SELECT_ITEM") Expandir |
---|
|
Marca/desmarca todos os registros do zoom de múltipla seleção. Bloco de código |
---|
ENABLE",FALSE)
CALL _ADVPL_set_property(m_count_empresas_reference,"LENGTH",04)
CALL _ADVPL_set_property( < l_zoomm_count_empresas_reference >," SELECT_ITEM_ALL",< n_Select >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
l_zoom_reference | CHAR
| Referência do formulário. | Sim |
n_Select | INTEGER | Verdadeiro para marcar todos os registros do zoom, falso para desmarcar. | Sim |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
VARIABLE",mr_tela,"count_empresas")
CALL _ADVPL_set_property(m_
browsecount_
filterempresas_reference,"
SELECT_ITEM_ALL",1) Expandir |
---|
title | SET BEFORE_LOAD_EVENT |
---|
|
Define um evento que será executado após o carregamento do zoom, porém antes de sua abertura. A função cadastrada para este método deve retornar verdadeiro ou falso para continuar ou interromper a abertura do zoom. Bloco de código |
---|
WIDTH",50)
LET l_imagebutton_reference = _ADVPL_create_component(NULL,"LIMAGEBUTTON",l_layout_reference)
CALL _ADVPL_set_property(l_imagebutton_reference,"CLICK_EVENT","zoommetadata_execute_zoom_empresa")
CALL _ADVPL_set_property( < ml_ zoomimagebutton_reference >," BEFORE_LOAD_EVENT",< c_Event >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Event | ( ) | Função 4GL que será executada antes da abertura do zoom | Sim |
Ao utilizar este método, se houver uma função cadastrada no Before Load no metadado do zoom, a mesma será desconsiderada.
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
CALLIMAGE","BTPESQ")
CALL _ADVPL_set_property(l_imagebutton_reference,"SIZE",24,20)
CALL _ADVPL_set_property(l_layout_reference,"ADD_EMPTY_COLUMN")
CALL _ADVPL_set_property(
ml_
browse_filterdialog_reference,"
SELECT_ITEM_ALLACTIVATE",
"zoom_metadata_execute_zoom") Expandir |
---|
title | SET AFTER_LOAD_EVENT |
---|
|
Define um evento que será executado na abertura do zoom. Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"AFTER_LOAD_EVENT",< c_Event >) |
|
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Event | ( ) | Função 4GL que será executada na abertura do zoom | Sim |
Ao utilizar este método, se houver uma função cadastrada no After Load no metadado do zoom, a mesma será desconsiderada.
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
TRUE)
END FUNCTION
#-----------------------------------------#
FUNCTION zoommetadata_execute_zoom_item()
#-----------------------------------------#
DEFINE l_cod_item CHAR(15),
l_den_item CHAR(76)
#Carrega o zoom de itens, se o mesmo ainda não foi carregado
IF m_zoom_item_reference IS NULL THEN
LET m_zoom_item_reference = _ADVPL_create_component(NULL,"LZOOMMETADATA")
CALL _ADVPL_set_property(m_
browsezoom_
filteritem_reference,"
AFTER_LOAD_EVENTZOOM","zoom_
metadata_execute_zoom") Expandir |
---|
|
Define um evento que será executado ao confirmar a seleção dos registros no zoom.
A função cadastrada para este método deve retornar verdadeiro ou falso para continuar ou interromper a confirmação do zoom.
Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"CONFIRM_EVENT",< c_Event >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Event | ( ) | Função 4GL que será executada na confirmação do zoom. | Sim |
Ao utilizar este método, se houver uma função cadastrada no Confirm no metadado do zoom, a mesma será desconsiderada.
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
CALL _ADVPL_set_property(m_browse_filter_reference,"CONFIRM_EVENT","zoom_metadata_execute_zoom") |
Expandir |
---|
|
Define um evento que será executado ao cancelar a seleção dos registros no zoom.
A função cadastrada para este método deve retornar verdadeiro ou falso para continuar ou interromper o cancelamento do zoom.
Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"CANCEL_EVENT",< c_Event >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Event | ( ) | Função 4GL que será executada no cancelamento do zoom. | Sim |
Ao utilizar este método, se houver uma função cadastrada no Cancel no metadado do zoom, a mesma será desconsiderada.
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
CALL _ADVPL_set_property(m_browse_filter_reference,"CANCEL_EVENT","zoom_metadata_execute_zoom") |
Expandir |
---|
title | SET BEFORE_ZOOM_EVENT |
---|
|
Define um evento que será executado antes do carregamento e da abertura do zoom.
A função cadastrada para este método deve retornar verdadeiro ou falso para continuar ou interromper a abertura do zoom.
Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"BEFORE_ZOOM_EVENT",< c_Event >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Event | ( ) | Função 4GL que será executada antes da abertura do zoom. | Sim |
Ao utilizar este método, se houver uma função cadastrada no Before Zoom no metadado do formulário, a mesma será desconsiderada.
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
CALL _ADVPL_set_property(m_browse_filter_reference,"BEFORE_ZOOM_EVENT","zoom_metadata_execute_zoom") |
Expandir |
---|
title | SET AFTER_ZOOM_EVENT |
---|
|
Define um evento que será executado após a finalização do zoom.
Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"AFTER_ZOOM_EVENT",< c_Event >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
c_Event | ( ) | Função 4GL que será executada após a finalização do zoom. | Sim |
Ao utilizar este método, se houver uma função cadastrada no After Zoom no metadado do formulário, a mesma será desconsiderada.
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
CALL _ADVPL_set_property(m_browse_filter_reference,"AFTER_ZOOM_EVENT","zoom_metadata_execute_zoom") |
Expandir |
---|
|
Define a quantidade de registros pré-selecionados no zoom de múltipla seleção.
Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"SELECTED",< n_Selected >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
n_Selected | INTEGER | Quantidade de registros pré-selecionados no zoom. | Sim |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
CALL _ADVPL_set_property(m_browse_filter_reference,"SELECTED",10) |
Expandir |
---|
|
Habilita/desabilita a edição dos registros do zoom, caso o mesmo possua um formulário cadastrado para edição. Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"CAN_EDIT",< n_Edit >) |
|
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
n_Edit | INTEGER | Verdadeiro para habilitar a edição dos registros do zoom, falo para desabilitar. | Sim |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
item")
END IF
#Ativa o zoom de itens
CALL _ADVPL_get_property(m_zoom_item_reference,"ACTIVATE")
#Recupera os valores selecionados no zoom
LET l_cod_item = _ADVPL_get_property(m_zoom_item_reference,"RETURN_BY_TABLE_COLUMN","item","cod_item")
LET l_den_item = _ADVPL_get_property(m_zoom_item_reference,"RETURN_BY_TABLE_COLUMN","item","den_item_reduz")
IF l_cod_item IS NOT NULL OR l_den_item IS NOT NULL THEN
LET mr_tela.cod_item = l_cod_item
LET mr_tela.den_item = l_den_item
END IF
CALL _ADVPL_set_property(m_cod_item_reference,"VALUE",mr_tela.cod_item)
CALL _ADVPL_set_property(m_den_item_reference,"VALUE",mr_tela.den_item)
END FUNCTION
#--------------------------------------------#
FUNCTION zoommetadata_execute_zoom_empresa()
#--------------------------------------------#
#Carrega o zoom de empresas, se o mesmo ainda não foi carregado
IF m_zoom_empresa_reference IS NULL THEN
LET m_zoom_empresa_reference = _ADVPL_create_component(NULL,"LZOOMMETADATA")
CALL _ADVPL_set_property(m_
browsezoom_
filterempresa_reference,"
CAN_EDIT",10) Expandir |
---|
|
Habilita/desabilita filtrar os registros do zoom. Bloco de código |
---|
ZOOM","zoom_empresa")
CALL _ADVPL_set_property( < m_zoom_empresa_reference >," CANZOOM_ FILTERTYPE", < n_Filter >) |
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
n_Filter | INTEGER | Verdadeiro para habilitar filtrar os registros do zoom, falso para desabilitar | Sim |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
1)
CALL _ADVPL_set_property(m_
browsezoom_
filterempresa_reference,"
CANARRAY_RECORD_
FILTERRETURN",
1) Expandir |
---|
title | SET ALWAYS_SHOW_FILTER |
---|
|
Habilita/desabilita a exibição do filtro de registros antes da exibição do zoom. Bloco de código |
---|
_ADVPL_set_property(< m_zoom_reference >,"ALWAYS_SHOW_FILTER",< n_ShowFilter >) |
|
Nome | Tipo | Descrição | Obrigatório? |
---|
m_zoom_reference | CHAR
| Referência do formulário. | Sim |
n_ShowFilter | INTEGER | Verdadeiro para habilitar a exibição do filtro de registros antes da exibição do zoom, falo para desabilitar. | Sim |
Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
linenumbers | true |
---|
|
ma_zoom_empresa)
END IF
#Ativa o zoom de empresas
CALL _ADVPL_get_property(m_zoom_empresa_reference,"ACTIVATE")
#Recupera a quantidade de registros selecionados no zoom
LET mr_tela.count_empresas = _ADVPL_get_property(m_zoom_empresa_reference,"RETURN")
CALL _ADVPL_set_property(m_
browsecount_
filterempresas_reference,"VALUE"
ALWAYS_SHOW_FILTER",1),mr_tela.count_empresas)
END FUNCTION