Frameworkjoi

Home

Frameworkjoi

Child pages
  • LGX - Garantia Estendida

Versions Compared

Old Version 7

changes.mady.by.user Unknown User (rubens.santos)

Saved on

compared with

New Version 8

changes.mady.by.user Unknown User (rubens.santos)

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

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

Parâmetros

NomeTipo/TamanhoUsoDescrição
l_cod_usuarioCHAR(08)Não obrigatório.Código do usuário, senão se não informado usa por padrão a global p_user.
l_cod_empresaCHAR(02)Não obrigatório.Código da empresa, se não informado usa por padrão a global p_cod_empresa.
l_modo_exibicao_msgSMALLINTObrigatório.

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