Q5/ws_objects/Ew_define.pbl.src/w_mtrldef_edit_popup.srw

$PBExportHeader$w_mtrldef_edit_popup.srw
forward
global type w_mtrldef_edit_popup from w_mtrldef_edit
end type
end forward

global type w_mtrldef_edit_popup from w_mtrldef_edit
boolean minbox = true
boolean maxbox = true
windowtype windowtype = popup!
windowstate windowstate = maximized!
end type
global w_mtrldef_edit_popup w_mtrldef_edit_popup

forward prototypes
public subroutine wf_hidecol ()
end prototypes

public subroutine wf_hidecol ();String ls_modify

If Not f_power_ind(1928) Then //1928 查看设定购价
	ls_modify = ''
	ls_modify =  "destroy lmbuyprice_t ~n " + "lmbuyprice.visible=0 ~n "
	dw_index.Modify(ls_modify)
	dw_cost.Modify(ls_modify)
End If

If Not f_power_ind(1930) Then //1930 查看设定售价
	ls_modify = ''
	ls_modify =  "destroy lmsaleprice_t ~n " + "lmsaleprice.visible=0 ~n "
	dw_index.Modify(ls_modify)
	dw_cost.Modify(ls_modify)
End If

If Not f_power_ind(1929) Then //1929 编辑设定购价
	ls_modify = ''
	ls_modify =  "lmbuyprice.protect = 1 ~n" + "lmbuyprice_t.color = 0 ~n" + "lmbuyprice.color = 0 ~n"
	dw_cost.Modify(ls_modify)
End If

If Not f_power_ind(1931) Then //1931 编辑设定售价
	ls_modify = ''
	ls_modify =  "lmsaleprice.protect = 1 ~n" + "lmsaleprice_t.color = 0 ~n" + "lmsaleprice.color = 0 ~n"
	dw_cost.Modify(ls_modify)
End If

end subroutine

on w_mtrldef_edit_popup.create
call super::create
end on

on w_mtrldef_edit_popup.destroy
call super::destroy
end on

event ue_before_open;call super::ue_before_open;wf_hidecol()
end event

type cb_func from w_mtrldef_edit`cb_func within w_mtrldef_edit_popup
end type

type cb_exit from w_mtrldef_edit`cb_exit within w_mtrldef_edit_popup
end type

type sle_usual_query from w_mtrldef_edit`sle_usual_query within w_mtrldef_edit_popup
end type

type cb_nextpage from w_mtrldef_edit`cb_nextpage within w_mtrldef_edit_popup
end type

type cb_priorpage from w_mtrldef_edit`cb_priorpage within w_mtrldef_edit_popup
end type

type cb_firstpage from w_mtrldef_edit`cb_firstpage within w_mtrldef_edit_popup
end type

type cb_retrieveall from w_mtrldef_edit`cb_retrieveall within w_mtrldef_edit_popup
end type

type em_pagerowno from w_mtrldef_edit`em_pagerowno within w_mtrldef_edit_popup
end type

type st_pagerowno from w_mtrldef_edit`st_pagerowno within w_mtrldef_edit_popup
end type

type st_1 from w_mtrldef_edit`st_1 within w_mtrldef_edit_popup
end type

type cb_add from w_mtrldef_edit`cb_add within w_mtrldef_edit_popup
end type

type cb_edit from w_mtrldef_edit`cb_edit within w_mtrldef_edit_popup
end type

type cb_delet from w_mtrldef_edit`cb_delet within w_mtrldef_edit_popup
end type

type cb_choice from w_mtrldef_edit`cb_choice within w_mtrldef_edit_popup
end type

type cb_cancel from w_mtrldef_edit`cb_cancel within w_mtrldef_edit_popup
end type

type cbx_mlselect from w_mtrldef_edit`cbx_mlselect within w_mtrldef_edit_popup
end type

type cbx_allselect from w_mtrldef_edit`cbx_allselect within w_mtrldef_edit_popup
end type

type cb_mode_itfchg_b from w_mtrldef_edit`cb_mode_itfchg_b within w_mtrldef_edit_popup
end type

type cb_mode_itfchg from w_mtrldef_edit`cb_mode_itfchg within w_mtrldef_edit_popup
end type

type gb_1 from w_mtrldef_edit`gb_1 within w_mtrldef_edit_popup
end type

type dw_uc from w_mtrldef_edit`dw_uc within w_mtrldef_edit_popup
end type

type cb_retrieve from w_mtrldef_edit`cb_retrieve within w_mtrldef_edit_popup
end type

event cb_retrieve::clicked;call super::clicked;wf_hidecol()
end event

type cb_print from w_mtrldef_edit`cb_print within w_mtrldef_edit_popup
end type

type ln_bar from w_mtrldef_edit`ln_bar within w_mtrldef_edit_popup
end type

type ln_bar2 from w_mtrldef_edit`ln_bar2 within w_mtrldef_edit_popup
end type

type r_bar from w_mtrldef_edit`r_bar within w_mtrldef_edit_popup
end type

type ln_1 from w_mtrldef_edit`ln_1 within w_mtrldef_edit_popup
end type

type ln_2 from w_mtrldef_edit`ln_2 within w_mtrldef_edit_popup
end type

type dw_index from w_mtrldef_edit`dw_index within w_mtrldef_edit_popup
end type

type cb_help from w_mtrldef_edit`cb_help within w_mtrldef_edit_popup
end type

type ddlb_notuse from w_mtrldef_edit`ddlb_notuse within w_mtrldef_edit_popup
end type

type cb_1 from w_mtrldef_edit`cb_1 within w_mtrldef_edit_popup
end type

type cb_other from w_mtrldef_edit`cb_other within w_mtrldef_edit_popup
end type

type ddlb_storageid from w_mtrldef_edit`ddlb_storageid within w_mtrldef_edit_popup
end type

type tab_1 from w_mtrldef_edit`tab_1 within w_mtrldef_edit_popup
end type

type tabpage_1 from w_mtrldef_edit`tabpage_1 within tab_1
end type

type dw_base from w_mtrldef_edit`dw_base within tabpage_1
end type

type tabpage_2 from w_mtrldef_edit`tabpage_2 within tab_1
end type

type dw_cost from w_mtrldef_edit`dw_cost within tabpage_2
end type

type tabpage_3 from w_mtrldef_edit`tabpage_3 within tab_1
end type

type dw_storage from w_mtrldef_edit`dw_storage within tabpage_3
end type

type tabpage_4 from w_mtrldef_edit`tabpage_4 within tab_1
end type

type cb_pastepack from w_mtrldef_edit`cb_pastepack within tabpage_4
end type

type cb_copypack from w_mtrldef_edit`cb_copypack within tabpage_4
end type

type cb_del_con from w_mtrldef_edit`cb_del_con within tabpage_4
end type

type cb_edit_con from w_mtrldef_edit`cb_edit_con within tabpage_4
end type

type cb_add_con from w_mtrldef_edit`cb_add_con within tabpage_4
end type

type dw_configure2 from w_mtrldef_edit`dw_configure2 within tabpage_4
end type

type dw_packpz from w_mtrldef_edit`dw_packpz within tabpage_4
end type

type tabpage_5 from w_mtrldef_edit`tabpage_5 within tab_1
end type

type cb_pastepz from w_mtrldef_edit`cb_pastepz within tabpage_5
end type

type cb_copypz from w_mtrldef_edit`cb_copypz within tabpage_5
end type

type cb_delpz from w_mtrldef_edit`cb_delpz within tabpage_5
end type

type cb_modpz from w_mtrldef_edit`cb_modpz within tabpage_5
end type

type cb_addpz from w_mtrldef_edit`cb_addpz within tabpage_5
end type

type cbx_all_pz from w_mtrldef_edit`cbx_all_pz within tabpage_5
end type

type dw_configure from w_mtrldef_edit`dw_configure within tabpage_5
end type

type tabpage_6 from w_mtrldef_edit`tabpage_6 within tab_1
end type

type dw_config_def from w_mtrldef_edit`dw_config_def within tabpage_6
end type

type tabpage_7 from w_mtrldef_edit`tabpage_7 within tab_1
end type

type cb_pastempack from w_mtrldef_edit`cb_pastempack within tabpage_7
end type

type cb_copympack from w_mtrldef_edit`cb_copympack within tabpage_7
end type

type cb_delpack from w_mtrldef_edit`cb_delpack within tabpage_7
end type

type cb_modpack from w_mtrldef_edit`cb_modpack within tabpage_7
end type

type cb_addpack from w_mtrldef_edit`cb_addpack within tabpage_7
end type

type cbx_allpack from w_mtrldef_edit`cbx_allpack within tabpage_7
end type

type dw_mtrldef_pack from w_mtrldef_edit`dw_mtrldef_pack within tabpage_7
end type

type cbx_hc from w_mtrldef_edit`cbx_hc within w_mtrldef_edit_popup
end type

type cb_mx_ch from w_mtrldef_edit`cb_mx_ch within w_mtrldef_edit_popup
end type

type cb_mx_del from w_mtrldef_edit`cb_mx_del within w_mtrldef_edit_popup
end type

type dw_ch from w_mtrldef_edit`dw_ch within w_mtrldef_edit_popup
end type

type cbx_auto_mtrlcode from w_mtrldef_edit`cbx_auto_mtrlcode within w_mtrldef_edit_popup
end type

type st_2 from w_mtrldef_edit`st_2 within w_mtrldef_edit_popup
end type

type em_1 from w_mtrldef_edit`em_1 within w_mtrldef_edit_popup
end type

type sp_v1 from w_mtrldef_edit`sp_v1 within w_mtrldef_edit_popup
end type

type tv_1 from w_mtrldef_edit`tv_1 within w_mtrldef_edit_popup
end type

type st_msg from w_mtrldef_edit`st_msg within w_mtrldef_edit_popup
end type

type ddlb_mtrlorigin from w_mtrldef_edit`ddlb_mtrlorigin within w_mtrldef_edit_popup
end type