Bloco de código |
---|
language | ruby |
---|
theme | Confluence |
---|
title | Código de exemplo do Componente LLayoutManager |
---|
linenumbers | true |
---|
collapse | true |
---|
|
DEFINE ma_tela ARRAY[100] OF
RECORD
coluna CHAR(200)
END RECORD
#------------------------#
FUNCTION layoutmanager()
#------------------------#
DEFINE l_dialog_reference,
l_panel_reference,
l_layout_reference,
l_layout_field_reference,
l_label_reference,
l_component_reference,
l_button_reference,
l_table_reference,
l_column_reference VARCHAR(10)
DEFINE l_ind SMALLINT
FOR l_ind = 1 TO 100
LET ma_tela[l_ind].coluna = "Coluna ", l_ind USING "&&&", "."
END FOR
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",640,480)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de Utilização: LLAYOUTMANAGER")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","TOP")
LET l_layout_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL _ADVPL_set_property(l_layout_reference,"MARGIN",TRUE)
CALL _ADVPL_set_property(l_layout_reference,"COLUMNS_COUNT",2)
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property(l_label_reference,"TEXT","Empresa:")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_layout_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","CENTER")
LET l_layout_field_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL _ADVPL_set_property(l_layout_field_reference,"MARGIN",FALSE)
CALL _ADVPL_set_property(l_layout_field_reference,"COLUMNS_COUNT",3)
LET l_component_reference = _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_field_reference)
CALL _ADVPL_set_property(l_component_reference,"LENGTH",2)
CALL _ADVPL_set_property(l_component_reference,"PICTURE","@!")
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","Código da empresa.")
LET l_button_reference = _ADVPL_create_component(NULL,"LIMAGEBUTTON",l_layout_field_reference)
CALL _ADVPL_set_property(l_button_reference,"IMAGE","BTPESQ")
CALL _ADVPL_set_property(l_button_reference,"SIZE",24,20)
LET l_component_reference = _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_field_reference)
CALL _ADVPL_set_property(l_component_reference,"LENGTH",30)
CALL _ADVPL_set_property(l_component_reference,"PICTURE","@!")
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","Descrição da empresa informada.")
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property(l_label_reference,"TEXT","CNPJ:")
LET l_component Bloco de código |
---|
|
language | ruby |
---|
theme | Confluence |
---|
title | Exemplo LQUERY |
---|
linenumbers | true |
---|
|
#--------------------#
FUNCTION TesteLFTP()
#--------------------#
DEFINE l_ind SMALLINT,
l_count SMALLINT,
l_status SMALLINT
DEFINE l_file_name CHAR(050)
DEFINE l_ftp_reference VARCHAR(10)
# Cria o componente para conexão FTP.
LET l_ftp_reference = _ADVPL_create_component(NULL,"
LFTP")
# Conecta o componente ao servidor FTP. LTEXTFIELD",l_layout_reference)
LET
l_status
=CALL _ADVPL_
getset_property(l_
ftpcomponent_reference,"
FTP_CONNECT","est1",21,"lg991933","********")
IF NOT l_status THEN
LENGTH",19)
CALL
log0030_mensagem("Não foi possível conectar-se ao servidor FTP.","excl")
RETURN
END IF_ADVPL_set_property(l_component_reference,"PICTURE","##.###.###/####-##")
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","CNPJ da empresa informada.")
#
Carrega
a lista dos arquivos de um diretório FTP.LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property(l_
ftplabel_reference,"
FTP_LOAD_FILE_LISTTEXT","
/home/lg991933/","*.*",TRUE)
Item:")
#
Recupera
a quantidade de arquivos encontrados no diretório. LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_layout_reference)
LET
l_count
=CALL _ADVPL_
getset_property(l_
ftppanel_reference,"
FTP_GET_FILE_LIST_COUNT") ALIGN","CENTER")
IF l_count = 0 THEN LET l_layout_field_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL
log0030_mensagem("Nenhum arquivo encontrado no diretório '/home/lg991933/' do servidor FTP.","excl")_ADVPL_set_property(l_layout_field_reference,"MARGIN",FALSE)
CALL _ADVPL_set_property(l_layout_field_reference,"COLUMNS_COUNT",3)
LET l_component_reference
= _ADVPL_create_component(NULL,"LTEXTFIELD",l_layout_field_reference)
RETURN CALL _ADVPL_set_property(l_component_reference,"LENGTH",15)
END
IF
CALL _ADVPL_set_property(l_component_reference,"PICTURE","@!")
FOR l_ind = 1 TO l_count
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","Código do item.")
LET l_button_reference
# Exibe no console todos os arquivos encontrados no diretório.= _ADVPL_create_component(NULL,"LIMAGEBUTTON",l_layout_field_reference)
CALL _ADVPL_set_property(l_button_reference,"IMAGE","BTPESQ")
CALL _ADVPL_set_property(l_button_reference,"SIZE",24,20)
LET l_
filecomponent_
namereference = _ADVPL_
getcreate_
property(l_ftp_reference,"FTP_GET_FILE_LIST_INDEXcomponent(NULL,"LTEXTFIELD",l_
ind) layout_field_reference)
CALL
conout_ADVPL_set_property(l_
file_name CLIPPED) component_reference,"LENGTH",36)
END
FOR
# Efetua o upload de um arquivo da máquina local para o servidor FTP.
LET l_status = _ADVPL_get_property(l_ftp_reference,"FTP_UPLOAD_FILE","C:\\ftp\\ftp_upload.txt","\\home\\lg991933\\")
# Efetua o download de um arquivo do servidor FTP para a maquina local.
LET l_status = _ADVPL_get_property(l_ftp_reference,"FTP_DOWNLOAD_FILE","\\home\\lg991933\\ftp_download.txt","C:\\ftp\\")
# Renomeia um arquivo do servidor FTP.
LET l_status = _ADVPL_get_property(l_ftp_reference,"FTP_RENAME_FILE","\\home\\lg991933\\ftp_download.txt","teste.txt")
# Exclui um arquivo do servidor FTP.
LET l_status = _ADVPL_get_property(l_ftp_reference,"FTP_REMOVE_FILE","\\home\\lg991933\\teste.txt")
# Disconecta do servidor FTP.
CALL _ADVPL_set_property(l_component_reference,"PICTURE","@!")
CALL _ADVPL_set_property(l_component_reference,"TOOLTIP","Descrição do item informada.")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","CENTER")
LET l_layout_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL _ADVPL_set_property(l_layout_reference,"COLUMNS_COUNT",1)
CALL _ADVPL_set_property(l_layout_reference,"EXPANSIBLE",TRUE)
LET l_table_reference = _ADVPL_create_component(NULL,"LTABLEEX",l_layout_reference)
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,"HEADER","Coluna")
CALL _ADVPL_set_property(l_column_reference,"VARIABLE","coluna")
CALL _ADVPL_set_property(l_table_reference,"SET_ROWS",ma_tela,100)
CALL _ADVPL_set_property(l_
ftpdialog_reference,"
FTP_DISCONNECTACTIVATE",TRUE)
END FUNCTION