ADVPL Pintar a cor do cabeçalho protheus

Salve, salve

No link da fonte (rodapé), Daniel Atilio aborda como pintar o cabeçalho utilizando o aControls

No corpo da onde é realizado o ajuste e comparação, fiz uma alteração para array.

Segue abaixo o trecho adaptado:

                                                    

Method fAltText(oObjeto) Class ORGENC01
    Local aDados     := {"", ""}
    Local aInfo      := {}
    Local cTexto     := ""
    Local cCss       := ""
	Local nI 		 := 00



	aAdd( aInfo, { '01', " | XX"	, 'F39C12', 'yellow'	, 'grey' } )
	aAdd( aInfo, { '02', " | YY"				, '0B9BBF', 'cyan'		, 'grey' } )
	aAdd( aInfo, { '03', " | ZZ"					, 'bb9ed1', 'green'		, 'blue' } )
	aAdd( aInfo, { '04', " | EURAI"		, '30e3b3', '#e1c5f1'	, '#806490' } )
	aAdd( aInfo, { '05', " | RAPELLI"	, 'c7d43a', 'grey'		, 'blue' } )

    cTexto := oObjeto:cCaption
	For nI := 01 to Len( aInfo )
    	If aInfo[nI,02] $ cTexto
    		cTexto := StrTran(cTexto, aInfo[nI,02], "")
		Endif
		If SubStr(cFilAnt, 1, 8) == aInfo[nI,01]
    		cCSS 	:= "TSay { margin: 2px; color: #" + aInfo[nI,03] + "; font: 20px Arial; background: qlineargradient( x1:0 y1:0.75, x2:0 y2:1, stop:0 "+ aInfo[nI,04] +", stop:1 "+ aInfo[nI,05] +");  }"
    		cTexto 	+= aInfo[nI,02]
		Endif
	Next nI
    
  
    aDados[1] := cTexto
    aDados[2] := cCSS
Return( aDados )

Fonte:

• realcar-a-informacao-de-empresa-e-filial-no-cabecalho-do-protheus-ti-responde-004/

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎