$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
- Sources
- Kodigo
- OpenExplorer
- n_dropdown_standard_images.sru
File: n_dropdown_standard_images.sru
Size: 1030
Date: Mon, 07 Apr 2008 21:31:47 +0200
Size: 1030
Date: Mon, 07 Apr 2008 21:31:47 +0200
- n_base_dropdown n_dropdown_standard_images(sru)