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
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.
Como faço para aplicar esse fonte, é apenas compilar e pronto, ou precisar configurar algo mais?
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.