PBMiner

$PBExportHeader$n_dropdown_standard_images.sru
forward
global type n_dropdown_standard_images from n_base_dropdown
end type
end forward

global type n_dropdown_standard_images from n_base_dropdown
string #windowclassname = "w_dropdown_standard_images"
end type
global n_dropdown_standard_images n_dropdown_standard_images

on n_dropdown_standard_images.create
call super::create
end on

on n_dropdown_standard_images.destroy
call super::destroy
end on

event ke_setdwvalue;call super::ke_setdwvalue;//override
IF ISVALID(idw_source) THEN
   IF al_row <= adw.RowCount() THEN
      //determine datatype
      n_svc_mgr lnv_svc
      n_svc_dw lnv_dw
      string ls_type
      
      lnv_svc.of_LoadSvc(lnv_dw, CSvc.DW)
      ls_type = lnv_dw.of_Getcolumndatatype(adw, as_colname)
      
      IF ls_type = CDWDataType.CHAR THEN
         adw.SetItem(al_row, as_colname, STRING(aa_value))
      ELSE
         MessageBox(Classname(), "Invalid column datatype, expecting string.", StopSign!)
      END IF
      
      adw.AcceptText()
   END IF
END IF
end event