Frameworkjoi

Home

Frameworkjoi

Child pages
  • LGX - Garantia Estendida
  • Created by Unknown User (rubens.santos), last modified on 02 Mar, 2016

Verificação da garantia estendida

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.

 

Autor
Rubens Dos Santos Filho

Desde
26/01/2016

Versão
Logix 12.1.10

Sintaxe
LICENSE_isExtendedWarrantyValid([l_cod_usuario],[l_cod_empresa],l_modo_exibicao_msg)

Parâmetros

NomeTipoDescrição
l_cod_usuarioCHAR(08)Código do usuário, se não informado usa por padrão a global p_user.
l_cod_empresaCHAR(02)Código da empresa, se não informado usa por padrão a global p_cod_empresa.
l_modo_exibicao_msgSMALLINT

Modo de exibição de mensagem durante o processamento. As opções possível são:

  • 0 (ONLINE): a mensagem será exibida ao usuário.
  • 1 (BATCH): a mensagem ficará armazenada na memória, para que o programa possa acessar e utilizar seu conteúdo de acordo com a necessidade da rotina em execução através das funções log0030_mensagem_get_<atributo>() ou exibi-la posteriormente em tela utilizando a função log0030_exibe_ultima_mensagem().
Retorno
l_statusSMALLINTVerdadeiro se o cliente possui um contrato de garantia estendida válido.

Observações

  • Função disponível a partir da versão 12.1.10 do Logix.

Exemplos

Para o correto uso desta função é recomendado incluir sua chamada após a execução do LOG_initApp, porém antes de iniciar o programa conforme o exemplo abaixo:

#------------------------------------------------------------------------------#
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: