Frameworkjoi

Home

Frameworkjoi

Child pages
  • LGX - Garantia Estendida

Versions Compared

Old Version 1

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

Saved on

compared with

New Version Current

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

Saved on

Key

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

Pagetitle
Classe TDialogClasse TDialog

Cria uma janela de diálogo, no programa, para entrada de dados não modal. Desta forma, é permitido que outras janelas recebam dados enquanto esta estiver ativa.

Hierarquia

Construtores

...

Propriedades

...

Métodos

...

Observações

  • Recomendamos a utilização da classe MsDialog que é herdada desta classe.
  • Os métodos windowState() e hasFocus(), bem como as propriedades bWindowState e bfocusChange, estão disponíveis somente em builds superiores a 7.00.101202A.

Exemplos

Code Block
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
  #include "TOTVS.CH"
  User Function TDialog()  
   // cria diálogo 
   Local oDlg := TDialog():New(180,180,550,700,'Exemplo TDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.) 
   // ativa diálogo centralizado 
   oDlg:Activate(,,,.T.,{||msgstop('validou!'),.T.},,{||msgstop('iniciando…')} )
  Return

Exemplo da classe TDialog

Image Removed

Abrangência

Garantia Estendida
Garantia Estendida

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:

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

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:

Image AddedAdvanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, TOTVS Application Server 11