How to Clear Drop-Down List Peoplecode

How to Clear Drop-Down List PeopleCode: Dynamic DropDown Lists PeopleCode for sort or clear some dropdown list by PeopleCode for each requirement. You can clear drop-down list of translate values in PeopleCode at rowinit event or field change event.

This peoplecode for clear all translate values of field “WO_WO_TYPE” and select some data for show in drop-down list box by use code where expression and order by this code

“Where fieldname = ‘WO_WO_TYPE’ AND FIELDVALUE NOT IN ( ‘0’,’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’10’,’12′” ORDER BY decode(XLATLONGNAME,’Income’,0,’Value Creation’,’2′ ,’Benchmarking’,’3′ ,’Risk Management’,3 ,’KPI Main’,3,1)

Peoplecode Example

Local Rowset &Xlat;
&Xlat = CreateRowset(Record.PSXLATITEMLANG);
&Xlat.Flush();
rem &Xlat.Fill("Where fieldname = 'Field Name' order by decode(Fieldvalue,'Jan',1,0),fieldvalue");
&Xlat.Fill("Where fieldname = 'WO_WO_TYPE' AND FIELDVALUE NOT IN ( '0','1','2','3','4','5','6','7','8','9','10','12') ORDER BY decode(XLATLONGNAME,'Income',0,'Value Creation','2' ,'Benchmarking','3' ,'Risk Management',3 ,'KPI Main',3,1)");
WO_TBL.WO_WO_TYPE.ClearDropDownList();
&j = &Xlat.ActiveRowCount + 1;
For &i = 1 To &Xlat.ActiveRowCount
&Value = &Xlat.GetRow(&i).PSXLATITEMLANG.FIELDVALUE.Value;
&descr = &Xlat.GetRow(&i).PSXLATITEMLANG.XLATLONGNAME.Value;
rem DERIVED_WO.WO_WO_TYPE.AddDropDownItem(&Value, &Descr);
If &Value = "11" Then
&descr = "Value Creation Special";
End-If;
WO_TBL.WO_WO_TYPE.AddDropDownItem(&Value, Rept(Char(9), &j - &i) | &descr);
End-For;

Local Rowset &Xlat;

&Xlat = CreateRowset(Record.PSXLATITEMLANG);

&Xlat.Flush();

rem &Xlat.Fill("Where fieldname = 'Field Name' order by decode(Fieldvalue,'Jan',1,0),fieldvalue");

&Xlat.Fill("Where fieldname = 'WO_WO_TYPE' AND FIELDVALUE NOT IN ( '0','1','2','3','4','5','6','7','8','9','10','12') ORDER BY decode(XLATLONGNAME,'Income',0,'Value Creation','2' ,'Benchmarking','3' ,'Risk Management',3 ,'KPI Main',3,1)");

WO_TBL.WO_WO_TYPE.ClearDropDownList();

&j = &Xlat.ActiveRowCount + 1;

For &i = 1 To &Xlat.ActiveRowCount

&Value = &Xlat.GetRow(&i).PSXLATITEMLANG.FIELDVALUE.Value;

&descr = &Xlat.GetRow(&i).PSXLATITEMLANG.XLATLONGNAME.Value;

rem DERIVED_WO.WO_WO_TYPE.AddDropDownItem(&Value, &Descr);

If &Value = "11" Then

&descr = "Value Creation Special";

End-If;

WO_TBL.WO_WO_TYPE.AddDropDownItem(&Value, Rept(Char(9), &j - &i) | &descr);

End-For;

For Example

This PeopleCode for replacing in Rowint in Record field

  Local Rowset &Xlat;
   &Xlat = CreateRowset(Record.TS_RANGESCORED);
   &Xlat.Flush();
   rem &Xlat.Fill("Where fieldname = 'Field Name' order by decode(Fieldvalue,'Jan',1,0),fieldvalue");
   &Xlat.Fill("  ORDER BY  TS_RANGE_SCORE_D desc ");
   TS_PERF_TRAN.TS_RANGE_SCORE_D.ClearDropDownList();
   &j = &Xlat.ActiveRowCount + 1;
   For &i = 1 To &Xlat.ActiveRowCount
      &Value = &Xlat.GetRow(&i).TS_RANGESCORED.TS_RANGE_SCORE_D.Value;
      &descr = &Xlat.GetRow(&i).TS_RANGESCORED.DESCR100.Value;
      
      TS_PERF_TRAN.TS_RANGE_SCORE_D.AddDropDownItem(&Value, Rept(Char(9), &j - &i) | &descr);
   End-For;

Local Rowset &Xlat;

&Xlat = CreateRowset(Record.TS_RANGESCORED);

&Xlat.Flush();

rem &Xlat.Fill("Where fieldname = 'Field Name' order by decode(Fieldvalue,'Jan',1,0),fieldvalue");

&Xlat.Fill(" ORDER BY TS_RANGE_SCORE_D desc ");

TS_PERF_TRAN.TS_RANGE_SCORE_D.ClearDropDownList();

&j = &Xlat.ActiveRowCount + 1;

For &i = 1 To &Xlat.ActiveRowCount

&Value = &Xlat.GetRow(&i).TS_RANGESCORED.TS_RANGE_SCORE_D.Value;

&descr = &Xlat.GetRow(&i).TS_RANGESCORED.DESCR100.Value;

TS_PERF_TRAN.TS_RANGE_SCORE_D.AddDropDownItem(&Value, Rept(Char(9), &j - &i) | &descr);

End-For;

Example code of dropdown list in row init event of record

If %Page = Page.TEST_PERF_TRAN Then
      
   /*--- Define Year_Tha & Quater from TEST_perf_sch  ----*/
   SQLExec("select to_number(to_char(EFFDT,'yyyy'))+543, decode (to_char(EFFDT,'mm') ,06,1,11,2) from ps_TEST_perf_srch where TEST_EMPLID_TO_NUM =:1 and EMPLID=:2 and EFFDT =%datein(:3)", TEST_PERF_SRCH.TEST_EMPLID_TO_NUM, TEST_PERF_SRCH.EMPLID, TEST_PERF_SRCH.EFFDT, &YEAR_THA, &QUATER);
   
   Local Rowset &Xlat;
   
   &Xlat = CreateRowset(Record.TEST_PERFDISPTBL);
   &Xlat.Flush();
   rem &Xlat.Fill("Where fieldname = 'Field Name' order by decode(Fieldvalue,'Jan',1,0),fieldvalue");
   &Xlat.Fill(" WHERE TEST_YEAR_THA = :1 and TEST_quater = :2 and TEST_WO_WO1_TYPE = :3 ORDER BY to_number(TEST_PERF_DISP) desc ", &YEAR_THA, &QUATER, TEST_PERF_TRAN.TEST_WO_WO1_TYPE);
   TEST_PERF_TRAN.TEST_PERF_DISP_D.ClearDropDownList();
   
   rem WinMessage(&Xlat.ActiveRowCount, 0);
   
   For &i = 1 To &Xlat.ActiveRowCount
      &Value = &Xlat.GetRow(&i).TEST_PERFDISPTBL.TEST_PERF_DISP.Value;
      &descr = &Xlat.GetRow(&i).TEST_PERFDISPTBL.DESCR100.Value;
      rem WinMessage(&Value, 0);
      TEST_PERF_TRAN.TEST_PERF_DISP_D.AddDropDownItem(&Value, Rept(Char(9), &j - &i) | &descr);
   End-For;
   
End-If;

If %Page = Page.TEST_PERF_TRAN Then

/*--- Define Year_Tha & Quater from TEST_perf_sch ----*/

SQLExec("select to_number(to_char(EFFDT,'yyyy'))+543, decode (to_char(EFFDT,'mm') ,06,1,11,2) from ps_TEST_perf_srch where TEST_EMPLID_TO_NUM =:1 and EMPLID=:2 and EFFDT =%datein(:3)", TEST_PERF_SRCH.TEST_EMPLID_TO_NUM, TEST_PERF_SRCH.EMPLID, TEST_PERF_SRCH.EFFDT, &YEAR_THA, &QUATER);

Local Rowset &Xlat;

&Xlat = CreateRowset(Record.TEST_PERFDISPTBL);

&Xlat.Flush();

rem &Xlat.Fill("Where fieldname = 'Field Name' order by decode(Fieldvalue,'Jan',1,0),fieldvalue");

&Xlat.Fill(" WHERE TEST_YEAR_THA = :1 and TEST_quater = :2 and TEST_WO_WO1_TYPE = :3 ORDER BY to_number(TEST_PERF_DISP) desc ", &YEAR_THA, &QUATER, TEST_PERF_TRAN.TEST_WO_WO1_TYPE);

TEST_PERF_TRAN.TEST_PERF_DISP_D.ClearDropDownList();

rem WinMessage(&Xlat.ActiveRowCount, 0);

For &i = 1 To &Xlat.ActiveRowCount

&Value = &Xlat.GetRow(&i).TEST_PERFDISPTBL.TEST_PERF_DISP.Value;

&descr = &Xlat.GetRow(&i).TEST_PERFDISPTBL.DESCR100.Value;

rem WinMessage(&Value, 0);

TEST_PERF_TRAN.TEST_PERF_DISP_D.AddDropDownItem(&Value, Rept(Char(9), &j - &i) | &descr);

End-For;

End-If;