###---------------------------------------------------------------------------------------------------------------------------------###
### A aplicação WEB LOGIX sempre deverá ter uma função onde o prefixo é _getRelativePath() para determinar o caminho relativo da
### pasta onde está localizada a pasta de mesmo nome da aplicação que conterá os artefatos para execução da tela WEB.
### Exemplo:
### Aplicação: exemploweb
### Fonte 4GL: exemploweb.4gl
### Funções desenvolvidas neste código fonte 4GL:
### - Function exemploweb()
### - Function exemploweb_getRelativePath()
###---------------------------------------------------------------------------------------------------------------------------------###
DATABASE logix
DEFINE m_container_reference VARCHAR(10)
DEFINE m_webdialog_reference VARCHAR(10)
#------------------------------------------------------------------#
FUNCTION exemploweb()
#------------------------------------------------------------------#
RETURN exemploweb_runInContainer(NULL)
END FUNCTION
#------------------------------------------------------------------#
FUNCTION exemploweb_runInContainer(l_container_refer)
#------------------------------------------------------------------#
#OBJETIVO: função para acionamento de programa a partir de uma tela COCKPIT,
# onde deverá passar a referencia do painel lateral do cockpit, onde
# o formulário deverá ser renderizado, como parâmetro.
DEFINE l_container_refer VARCHAR(10)
INITIALIZE m_webdialog_reference TO NULL
IF LOG_initApp("PADRAO") = 0 THEN
IF m_container_reference <> " " THEN
LET m_container_reference = _ADVPL_create_component(NULL,"LSCROLLPANEL",m_container_reference)
CALL _ADVPL_set_property(m_container_reference,"ALIGN","CENTER")
END IF
LET m_webdialog_reference = _ADVPL_create_component(NULL,"LWEBDIALOG",m_container_reference)
### Neste caso imaginemos que no meu appserver está configurado assim:
### ROOTPATH: c:\totvs\logix
### Ambiente web:
### -------------------------------------------------
### [<HOST_OR_IP>:<HTTP_OR_HTTPS_PORT>/apps]
### ENVIRONMENT=<Environment_name>
### RESPONSEJOB=JOBWEB
### DEFAULTPAGE=index.html
### PATH=c:\totvs\logix\web\apps
### SOURCEPATH=c:\totvs\logix\web\apps
### CACHE-CONTROL=no-store
### PRAGMA=no-cache
###
### a aplicação exemploweb terá seus artefatos web armazenados na pasta c:\totvs\logix\web\apps\exemplos\exemploweb\
### Onde a pasta "/exemplos/" é a pasta relativa localizada a partir da pasta principal indicada para o ambiente web no appserver.
### e a pasta "exemploweb" é a pasta com o nome da aplicação que armazena todos artefatos web para execução da tela.
CALL _ADVPL_set_property(m_webdialog_reference,"INIT_APP","exemploweb")
END IF
END FUNCTION
#------------------------------------------------------------------#
FUNCTION exemploweb_getRelativePath()
#------------------------------------------------------------------#
### Retorna o caminho do PATH relativo a pasta raiz configurada a partir da pasta indicada como ROOTPATH no Appserver
### onde ficam armazenados os artefatos desta aplicação WEB (imagens, html, json, artefatos angular, etc).
RETURN "/exemplos/"
END FUNCTION |