How to change font color PeopleCode
You can change the font color PeopleCode using function “style”. For example, my requirement have to check the status. If status = E then change style font field EMPLID and Relate field of empid in column grid PeopleSoft to color fo style equal PSMULTILANG.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Local Rowset &rs_1, &rs_0; If %Component = Component.TS_TL_CLK_TBL Then &index = CurrentRowNumber(); &rs_0 = GetLevel0(); &rs_1 = &rs_0.GetRow(1).GetRowset(Scroll.TS_TL_CLK_TBL); /* Default Stly is RESET */ If (&rs_1(&index).TS_TL_CLK_TBL.TS_STATUS.Value = "E") Then &rs_1(&index).TS_TL_CLK_TBL.EMPLID.Style = "PSMULTILANG"; &rs_1(&index).TS_TL_CLK_TBL.EMPLID.GetRelated(PERSON_NAME.NAME).Style = "PSMULTILANG"; &rs_1(&index).TS_TL_CLK_TBL.TS_MCHN_CD.Style = "PAHYPERLINKERRSTAT"; &rs_1(&index).TS_TL_CLK_TBL.TS_MCHN_CD2.Style = "PAHYPERLINKERRSTAT"; &rs_1(&index).TS_TL_CLK_TBL.TS_CLOCK_IN.Style = "PAHYPERLINKERRSTAT"; &rs_1(&index).TS_TL_CLK_TBL.TS_CLOCK_OUT.Style = "PAHYPERLINKERRSTAT"; &rs_1(&index).TS_TL_CLK_TBL.REASON_CD.GetRelated(TS_TL_RSN_TBL.TS_DESCR10).Style = "PAHYPERLINKERRSTAT"; Else &rs_1(&index).TS_TL_CLK_TBL.EMPLID.Style = "RESET"; &rs_1(&index).TS_TL_CLK_TBL.TS_MCHN_CD.Style = "RESET"; &rs_1(&index).TS_TL_CLK_TBL.TS_MCHN_CD2.Style = "RESET"; &rs_1(&index).TS_TL_CLK_TBL.TS_CLOCK_IN.Style = "RESET"; &rs_1(&index).TS_TL_CLK_TBL.TS_CLOCK_OUT.Style = "RESET"; End-If; End-If; |