| Pagetitle | ||||||
|---|---|---|---|---|---|---|
|
Verifica se o cliente possui um contrato de garantia estendida válido para a execução de programas cuja versão foi descontinuada.
Para garantir que o cliente possua um contrato de garantia estendida válido é verificada a versão em execução (atualmente a última disponível é a versão 12), se a data atual é menor que 30/06/2016 e se há licenças disponíveis no SLOT 4011 do License Server.
Desde
26/01/2016
Versão
Logix 12.1.10
SintaxeLICENSE_isExtendedWarrantyValid([l_cod_usuario],[l_cod_empresa],l_modo_exibicao_msg)
Parâmetros
| Nome | Tipo | Descrição |
|---|---|---|
l_cod_usuario | CHAR(08) | Código do usuário, se não informado usa por padrão a global p_user. |
l_cod_empresa | CHAR(02) | Código da empresa, se não informado usa por padrão a global p_cod_empresa. |
l_modo_exibicao_msg | SMALLINT | Modo de exibição de mensagem durante o processamento. As opções possível são:
|
| Retorno | ||
l_status | SMALLINT | Verdadeiro se o cliente possui um contrato de garantia estendida válido. |
Para utilizar esta o correto uso desta função é necessário recomendado incluir sua chamada após a execução do LOG_initApp, porém antes de iniciar o programa conforme o exemplo abaixo:
| Code Block | ||
|---|---|---|
| ||
#------------------------------------------------------------------------------# FUNCTION prg00001() #------------------------------------------------------------------------------# IF LOG_initApp("[SYSTEMKEY]") = 0 THEN IF LICENSE_isExtendedWarrantyValid(p_user,p_cod_empresa,0) THEN INITIALIZE mr_tela. |
...
* TO NULL
LET m_form_reference = _ADVPL_create_component(NULL,"LFORMMETADATA")
CALL _ADVPL_set_property(m_form_reference,"INIT_FORM","prg00001",mr_tela)
END IF
END IF
END FUNCTION |
Se o parâmetro do modo de exibição de mensagem informado for ONLINE e o cliente não possui um contrato de garantia estendida válido, será exibida a mensagem de alerta conforme ilustrada na imagem:
