加載字段的 translateValue

If %Component = "DEPARTMENT_TBL_GBL" Then
   Local Rowset &RsPendingTxn, &RsXlat, &RsEmplJob, &RsGrid, &RsPending;
   Local Field &ActionFld;
   Local boolean &Select, &Done;
   
   
   &ActionFld = GetField(ALI_BONUS_ENTRY.ALI_BONUS1);
   &ActionFld.ClearDropDownList();
   &RsXlat = CreateRowset(Record.PSXLATITEM);
   &RsXlat.Fill("WHERE FIELDNAME = :1 AND %EFFDTCHECK(PSXLATITEM, FILL, %CURRENTDATEIN) AND EFF_STATUS = 'A'", &ActionFld.Name);
   
   For &i = 1 To &RsXlat.ActiveRowCount
      &Val = &RsXlat(&i).PSXLATITEM.FIELDVALUE.Value;
      &Desc = &RsXlat(&i).PSXLATITEM.XLATLONGNAME.Value;
      If &Val <> "D" Then
         &ActionFld.AddDropDownItem(&Val, &Desc);
      End-If;
      
   End-For;
   
End-If;