Como Mudar a cor na Grid Registros bloqueados no Totvs Protheus?

Vamos ver como mudar a cor na Grid registros bloqueados no ERP Totvs Protheus (campo MSBLQL), tanto para Clientes, Fornecedores, Produtos entre outros registros bloqueados do Protheus, inclusive para registros da SXB (consultas padrão).

Cor no Padrão:

No Padrão do sistema Protheus essas linhas na Grid são apresentadas na cor Cinza com letra na cor branco conforme o seu tema, mas através desse Ponto de Entrada (PE) MBlkColor, é possível alterar a cor.
Confome podemos ver no vídeo apresentado abaixo.

Academia Protheus
Sua academia para uma carreira de sucesso!

Ref. Links do TDN:

https://tdn.totvs.com/display/public/framework/Campo+Reservado+_MSBLQD+e+_MSBLQL
https://tdn.totvs.com/display/public/framework/MBlkColor+-+Retorna+cores+a+utilizar

#Include "Protheus.ch"
 
#Define CLR_RGB_PRETO    	RGB(000,000,000)	//Cor Preto
#Define CLR_RGB_BRANCO  	RGB(254,254,254)	//Cor Branco
#Define CLR_RGB_VERMELHO  	RGB(255,000,000)	//Cor Vermelho
 
/*-------------------------------------------------------------------------------------------*
	{Protheus.doc} User Function MBlkColor
    ()   
    @type: 		User Function
    @author: 	Jose Moura
    @site: 		https://academiaprotheus.com.br
    @desc.: 	Altera a cor da linha bloqueada

 *-------------------------------------------------------------------------------------------*/

User Function MBlkColor()
	Local aRet := {} 
	 
	//Ajustando o array aRet com as cores
	aAdd(aRet, CLR_RGB_VERMELHO) 
	aAdd(aRet, CLR_RGB_BRANCO) 
 
Return aRet

Moura

Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia Protheus, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.