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