Mudando a cor de registros bloqueados no Protheus

Olá pessoal…

Hoje irei mostrar como mudar a cor de registros bloqueados no Protheus (campo MSBLQL), como por exemplo, produtos bloqueados, clientes bloqueados, etc.


Por padrão o Protheus deixa as linhas de bloqueio na cor Cinza, mas através do Ponto de Entrada MBlkColor, é possível alterar a cor, no print abaixo deixei a cor em Vermelho (essa cor também é atribuído nas grids das consultas padrão).

Exemplo de registro bloqueado em vermelho no Protheus

Exemplo de registro bloqueado em vermelho no Protheus

Testei pessoal, tanto no Protheus 11 quanto no 12 e em ambos deu certo a alteração na cor.

Abaixo o código fonte do ponto de entrada:

//Bibliotecas
#Include "Protheus.ch"

//Constantes
#Define CLR_RGB_BRANCO		RGB(254,254,254)	//Cor Branca em RGB
#Define CLR_RGB_VERMELHO		RGB(255,000,000)	//Cor Vermelha em RGB
#Define CLR_RGB_PRETO		RGB(000,000,000)	//Cor Preta em RGB

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  MBlkColor                                                                                     |
 | Autor: Daniel Atilio                                                                                 |
 | Data:  26/08/2014                                                                                    |
 | Desc:  Altera a cor da linha bloqueada                                                               |
 | Links: http://tdn.totvs.com/display/public/mp/MBlkColor+-+Retorna+cores+a+utilizar                   |
 |        http://tdn.totvs.com/display/public/mp/Campo+Reservado+_MSBLQD+e+_MSBLQL                      |
 *------------------------------------------------------------------------------------------------------*/

User Function MBlkColor()
	Local aRet := {}	//Se deixar assim tem o retorno padrão

	//Adicionando as cores
	aAdd(aRet, (CLR_RGB_PRETO)   ) //Cor do texto
	aAdd(aRet, (CLR_RGB_VERMELHO)) //Cor de fundo

Return aRet

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

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

2 Responses

  1. Alex Neto disse:

    Como faço para aplicar esse fonte, é apenas compilar e pronto, ou precisar configurar algo mais?

    • Dan_Atilio disse:

      Bom dia Alex.
      Sim, só compilar e pronto.
      Se não funcionar, como esse ponto de entrada é antigo, de 2014, pode ser que algo tenha sido alterado, ai o ideal seria entrar em contato através de chamado pedindo um exemplo funcional.
      Grande abraço.

Deixe uma resposta

Terminal de Informação