Você já precisou exibir mensagens de teste durante um programa? Conheça a função ShowLog.
Já vi alguns usuários testando exibindo mensagens durante o desenvolvimento de alguma rotina, ou até mesmo de alguma query.

No artigo de hoje, vou mostrar uma dica, de como exibir com a função ShowLog, e somente se for um administrador.

Então por exemplo, supondo que eu tenha uma query e use a função, o resultado seria similar a abaixo:

Exemplo da ShowLog

Abaixo o trecho desenvolvido:

//...
  
//Montagem da Query
cQuery := " SELECT * FROM " + RetSQLName("SBM") + " SBM WHERE BM_FILIAL = '" + FWxFilial("SBM") + "' AND SBM.D_E_L_E_T_ = ' '"
  
//Se o usuário estiver no grupo de administradores, mostra a query SQL
If FWIsAdmin()
    ShowLog(cQuery)
EndIf
  
//...

Update Dezembro de 2022:

Pensando em facilitar, criamos uma função chamada zViewQry, onde basta você aciona-la logo após criar sua variável, por exemplo, u_zViewQry(cQuery), que ela já aciona o ShowLog e já faz os testes necessários se o usuário é administrador. Abaixo o código fonte completo:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zViewQry
Função para visualizar a query caso o usuário seja administrador
@type  Function
@author Atilio
@since 10/10/2022
@param cQuery, Caractere, Consulta SQL que poderá ser exibida
/*/

User Function zViewQry(cQuery)
    Default cQuery := ""

    //Somente se
    // #1 - Não estiver em execução automática
    // #2 - A variável da query tiver dados
    // #3 - For usuário Administrador
    // #4 - For confirmado a pergunta para visualizar a query
    If ! IsBlind() .And. ! Empty(cQuery) .And. FWIsAdmin() .And. FWAlertYesNo("Deseja visualizar a query?", "Atenção (" + FunName() + ")")
	    ShowLog(cQuery)
	EndIf
Return

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPLProtheus