#include "protheus.ch" USER FUNCTION CN100COR() Local aParam xParam := PARAMIXB[1] Local aRet := {} DO CASEIf CASE ValType( aParamxParam) == "A" //- Proteção para garantir que recebe array//- Alteração total da legenda vermelha (RED). nPos := aScan( aParamxParam, {|x|UPPER(x[2]) == 'RED'})
aParam xParam[nPos,1] := "Alltrim(CN9->CN9_SITUAC) == 'Z1'" //- Condição
aParam xParam[nPos,2] := "BLACK" //- Cor
aParam xParam[nPos,3] := "Legenda Customizada 1" //- Texto //- Inclui nova cor para legenda. aAdd( aParamxParam,{"Alltrim(CN9->CN9_SITUAC) == 'Z2'","RED","Legenda Customizada 2"}) CASE ValType(xParam) == "O" //- Adição de legenda por Browser xParam:AddLegend("Alltrim(CN9->CN9_SITUAC) == 'Z3'","GREEN","Legenda Customizada 3") ENDCASEEndIf aRet := aParamxParam RETURN aRet
|