Um zoom pode ser utilizado para obter informações de outra entidade da base de dados ou de outros programas. Por padrão, o zoom sempre é executado ao clicar num botão de lupa ao lado do campo, ou ao acionar a tecla de atalho F4 dentro deste mesmo campo.

Os zooms podem ser utilizados tanto em campos de formulários quanto em colunas de uma grid e, possuem dois métodos de exibição de registros: de seleção única ou de múltipla seleção.

Hierarquia

• LComponent

Sintaxe

Métodos GET

Métodos acessíveis utilizando a função _ADVPL_get_property, que permite recuperar e manipular os valores do componente: 

Métodos SET 

Métodos acessíveis utilizando a função _ADVPL_set_property que permite alterar e manipular os valores do componente.

Exemplo

Clique no link na lateral direita para expandir o código de exemplo.

DATABASE logix
 
 DEFINE m_cod_item_reference,
        m_den_item_reference,
        m_count_empresas_reference VARCHAR(10)
 
 DEFINE m_zoom_item_reference

,
        

m_zoom_

empresa_reference 

VARCHAR(10)
 
 DEFINE mr_tela RECORD
      

cod_item 

CHAR(15),
         

den_

item 

      CHAR(76),
     

count_empresas SMALLINT
                END RECORD
 
 

DEFINE 

ma_

zoom_

empresa ARRAY[1000] OF
           

             RECORD
     

cod_empresa CHAR(02),
                            den_empresa CHAR(36)
                        END RECORD
 
#-----------------------

#
 FUNCTION zoommetadata

()
#-----------------------

#
     

DEFINE l_dialog_reference,
            

l_panel_reference,
 

l_

layout_

reference,
 

 l_

label_reference,
         

l_component_reference,

   l_

imagebutton_reference VARCHAR(10)
 
     INITIALIZE mr_tela.*,ma_zoom_empresa

TO NULL
 
     

#Conecta 

ao 

banco de 

dados
     CALL LOG_

connectDatabase("DEFAULT")
 
     

LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
     

CALL 

_

ADVPL_

set_property(

l_

dialog_

reference,"

SIZE",400,200)
     CALL _ADVPL_set_property(

l_

dialog_reference,"

Métodos SET   →parei aqui

Métodos acessíveis utilizando a função _ADVPL_set_property que permite alterar e manipular os valores do componente.

TITLE","Exemplo de Utilização: LZOOMMETADATA")
 
     LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
     CALL _ADVPL_set_property(

l_

panel_reference

,"

ALIGN",

"CENTER")
 
     LET l_

Parâmetros

Importante: para ativar ou desativar um formulário, deverá ter executado previamente o método "PARAMETER" ou "INIT_PARAMETER" para o mesmo.

Exemplo

layout_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
     CALL _ADVPL_set_property(l_layout_reference,"COLUMNS_COUNT",4)
     CALL _ADVPL_set_property(l_

layout_reference,"

MARGIN",TRUE)

 
     LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
     CALL _ADVPL_set_property(

l_

label_reference

Parâmetros

Exemplo

,"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",

Parâmetros

Exemplo

"@!")
     CALL _ADVPL_set_property(

m_cod_

item_reference,"

VARIABLE",mr_tela,"cod_item")
     CALL _ADVPL_set_property(

m_cod_item_reference

,"

WIDTH",

50)
 

Parâmetros

Importante: para ativar ou desativar um formulário, deverá ter executado previamente o método "PARAMETER" ou "INIT_PARAMETER" para o mesmo.

Exemplo

LET l_imagebutton_reference = _ADVPL_create_component(NULL,"LIMAGEBUTTON",l_layout_reference)
     CALL _ADVPL_set_property(l_imagebutton_reference,"CLICK_EVENT","zoommetadata_execute_zoom_item")
     

CALL _ADVPL_set_property(l_imagebutton_reference,"IMAGE","BTPESQ")
     CALL 

_ADVPL_set_property(l_imagebutton_reference,"SIZE",24,20)
 
     

LET 

m_den_

item_

reference 

= _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_reference)
     CALL _ADVPL_set_property(m_den_item_reference,"ENABLE",FALSE)
     CALL _ADVPL_set_property(m_den_item_reference,"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_den_item_reference,"WIDTH",200)
 
     

LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
     

CALL _ADVPL_set_property(l_label_reference,"TEXT","Empresas: ")
 
     LET m_count_empresas_reference = _ADVPL_create_component(NULL,"LNUMERICFIELD",l_layout_reference)
     CALL _ADVPL_set_property(m_count_empresas_reference,"ENABLE",FALSE)
     CALL _ADVPL_set_property(m_count_empresas_reference,"LENGTH",04)
     CALL _ADVPL_set_property(m_count_empresas_reference,"VARIABLE",mr_tela,"count_empresas")
    

CALL _ADVPL_set_property(m_count_empresas_reference,"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(l_imagebutton_reference,"IMAGE","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(l_dialog_reference,"ACTIVATE",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_zoom_

item_reference,"

ZOOM","

zoom_item")
     END 

IF

Método SET: ITEM_COUNT

Quantidade de linhas de um determinado multivalorado do formulário.

Sintaxe

CHAR

CHAR

CHAR

BOOLEAN

CHAR

CHAR

_ADVPL_set_property(< l_form_reference >,"ITEM_COUNT", < Associação >, < Quantidade >)

Parâmetros

CHAR

CHAR

Importante: caso o multivalorado possua apenas um campo e não possua associação, deverá ser passado no primeiro parâmetro o nome do campo multivalorado.

Exemplo

CALL _ADVPL_set_property(l_form_reference,"ITEM_COUNT","item",10)

Método SET: PARAMETER

Carrega as informações do formulário, mas não o executa. Utilizado em casos em que é necessário carregar o formulário e após isso executar diretamente uma operação do mesmo.

Sintaxe

_ADVPL_set_property(< l_form_reference >,"PARAMETER",< Formulário >, [ Record ], [ Array of Record ])

Parâmetros

CHAR

CHAR

Importante: a ordem das variáveis deve ser sempre a mesma, independente do formulário ter ou não campos monovalorados ou multivalorados, primeiro o RECORD para os campos monovalorados e depois o ARRAY OF RECORD para os campos multivalorados.

Exemplo

 
     #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_zoom_empresa_reference,"ZOOM","zoom_empresa")
         CALL _ADVPL_set_property(m_zoom_empresa_reference,"ZOOM_TYPE",1)
         CALL _ADVPL_set_property(m_zoom_empresa_reference,"ARRAY_RECORD_RETURN",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_count_empresas_reference,"VALUE",mr_tela.count_empresas)
 END FUNCTION