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 Atilio (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

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