&FLD = GetRecord(Record.X_VERIFY_WRK).GetField(Field.STRM);
&FLD.ClearDropDownList();
&SQL = CreateSQL("select distinct a.strm , b.descr from PS_STDNT_enrl a, ps_term_tbl b where a.strm=b.strm and a.emplid =:1", %EmployeeId);
While &SQL.Fetch(&strm, &descr)
&FLD.AddDropDownItem(&strm, &descr);
/* Adding each row from the SQL's output to the drop down */
End-While;
No comments:
Post a Comment