Q5/ws_objects/Ew_report.pbl.src/w_rp_ware_mtrlware.srw

$PBExportHeader$w_rp_ware_mtrlware.srw
forward
global type w_rp_ware_mtrlware from w_publ_pageretr_easyq
end type
type cb_1 from uo_imflatbutton within w_rp_ware_mtrlware
end type
type ddlb_2 from dropdownlistbox within w_rp_ware_mtrlware
end type
end forward

global type w_rp_ware_mtrlware from w_publ_pageretr_easyq
string title = "成品库存表"
cb_1 cb_1
ddlb_2 ddlb_2
end type
global w_rp_ware_mtrlware w_rp_ware_mtrlware

type variables

end variables

forward prototypes
public function integer wf_replacedw ()
end prototypes

public function integer wf_replacedw ();String ls_windowname
ls_windowname = This.ClassName ( )

Int rslt = 1
String ls_old_dwname,ls_new_dwname = ''
Boolean lb_ch = False

ls_old_dwname = dw_pageretr.DataObject
ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname)

IF ls_new_dwname = '' THEN
	ls_new_dwname = ls_old_dwname
ELSE
	lb_ch = True
END IF

dw_pageretr.DataObject = ls_new_dwname

rslt = dw_pageretr.SetTransObject(sqlca)
IF rslt <> 1 THEN
	IF lb_ch THEN
		MessageBox('系统提示','替换格式['+ls_new_dwname+']初始化失败!系统将还原为标准格式显示!')
		dw_pageretr.DataObject = ls_old_dwname
		dw_pageretr.SetTransObject(sqlca)
		lb_ch = false
	END IF
END IF

dw_pageretr.uf_read_profile_layout()
//wf_hidecol()
f_title_change(dw_pageretr)

if lb_ch then 
	if pos(this.title, '[替换]') = 0 then 
		this.title += '[替换]'
	end if
else
	if pos(this.title, '[替换]') > 0 then 
		this.title = Replace(this.title, pos(this.title, '[替换]'), len('[替换]'), "")
	end if
end if
RETURN 1

end function

on w_rp_ware_mtrlware.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.ddlb_2=create ddlb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.ddlb_2
end on

on w_rp_ware_mtrlware.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.ddlb_2)
end on

event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart=''
ls_newselect=lower(ori_oldselect)
if trim(sle_usual_query.text)<>'' then
	if pos(trim(sle_usual_query.text),'%')=0 then
		ls_querystrpart="(u_mtrldef.mtrlcode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(u_mtrldef.mtrlcode like '"+trim(sle_usual_query.text)+"')"
	end if

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
wf_retrieveuc(dw_pageretr,ls_newselect,1)  
this.triggerevent('retrieve_pageretr')

end event

event ue_usual_query_filt;call super::ue_usual_query_filt;string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	if pos(trim(sle_usual_query.text),'%')=0 then
		obj_expr=obj_expr+'( mtrlcode like "%'+trim(sle_usual_query.text)+'%" )'
		obj_expr=obj_expr+' or ( mtrlname like "%'+trim(sle_usual_query.text)+'%" )'
	else
		obj_expr=obj_expr+'( mtrlcode like "'+trim(sle_usual_query.text)+'" )'
		obj_expr=obj_expr+' or ( mtrlname like "'+trim(sle_usual_query.text)+'" )'
	end if 
end if

dw_pageretr.setfilter(obj_expr)

dw_pageretr.setredraw(false)
dw_pageretr.filter()
if dw_pageretr.rowcount()>=1 then
	dw_pageretr.selectrow(0,false)
	dw_pageretr.selectrow(1,true)
end if
dw_pageretr.setredraw(true)
end event

event open;call super::open;s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype' 
f_hide_col(1308,dw_pageretr,s_col_mtrlsectype) 

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode' 
f_hide_col(1309,dw_pageretr,s_col_zxmtrlmode)

end event

type cb_func from w_publ_pageretr_easyq`cb_func within w_rp_ware_mtrlware
integer taborder = 190
end type

type cb_exit from w_publ_pageretr_easyq`cb_exit within w_rp_ware_mtrlware
integer x = 1417
integer picsize = 16
toolbaralignment pic_align = alignattop!
end type

type sle_usual_query from w_publ_pageretr_easyq`sle_usual_query within w_rp_ware_mtrlware
integer x = 215
integer width = 640
integer height = 88
end type

type cb_retrieveall from w_publ_pageretr_easyq`cb_retrieveall within w_rp_ware_mtrlware
boolean visible = false
integer x = 1929
integer width = 146
integer taborder = 150
end type

type em_pagerowno from w_publ_pageretr_easyq`em_pagerowno within w_rp_ware_mtrlware
integer x = 1024
integer y = 548
end type

type dw_pageretr from w_publ_pageretr_easyq`dw_pageretr within w_rp_ware_mtrlware
integer y = 296
integer width = 3223
integer height = 1144
string dataobject = "dw_rp_ware_mtrlware"
end type

event dw_pageretr::doubleclicked;cb_1.triggerevent(clicked!)
end event

type st_1 from w_publ_pageretr_easyq`st_1 within w_rp_ware_mtrlware
integer x = 23
integer y = 200
integer width = 215
integer height = 56
end type

type cb_nextpage from w_publ_pageretr_easyq`cb_nextpage within w_rp_ware_mtrlware
boolean visible = false
integer x = 2354
integer width = 146
integer taborder = 180
end type

type ddlb_yl from w_publ_pageretr_easyq`ddlb_yl within w_rp_ware_mtrlware
integer x = 1865
end type

type cbx_yl from w_publ_pageretr_easyq`cbx_yl within w_rp_ware_mtrlware
integer x = 1655
integer width = 197
end type

event cbx_yl::clicked;call super::clicked;if this.checked then
	dw_edit_mode=true
	dw_pageretr.selectrow(0,false)
else
	dw_edit_mode=false
end if
end event

type cb_psetup from w_publ_pageretr_easyq`cb_psetup within w_rp_ware_mtrlware
integer x = 997
integer width = 270
integer taborder = 140
end type

type cb_2 from w_publ_pageretr_easyq`cb_2 within w_rp_ware_mtrlware
integer x = 846
end type

type cb_refresh from w_publ_pageretr_easyq`cb_refresh within w_rp_ware_mtrlware
integer taborder = 90
end type

event cb_refresh::clicked;parent.triggerevent("retrieve_pageretr")
end event

type cb_help from w_publ_pageretr_easyq`cb_help within w_rp_ware_mtrlware
integer x = 1266
end type

type cb_copyself from w_publ_pageretr_easyq`cb_copyself within w_rp_ware_mtrlware
integer x = 571
end type

type gb_2 from w_publ_pageretr_easyq`gb_2 within w_rp_ware_mtrlware
end type

type ln_bar from w_publ_pageretr_easyq`ln_bar within w_rp_ware_mtrlware
end type

type ln_bar2 from w_publ_pageretr_easyq`ln_bar2 within w_rp_ware_mtrlware
end type

type r_bar from w_publ_pageretr_easyq`r_bar within w_rp_ware_mtrlware
end type

type ln_1 from w_publ_pageretr_easyq`ln_1 within w_rp_ware_mtrlware
end type

type ln_2 from w_publ_pageretr_easyq`ln_2 within w_rp_ware_mtrlware
end type

type cb_1 from uo_imflatbutton within w_rp_ware_mtrlware
integer x = 302
integer width = 270
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "查看明细"
string normalpicname = "find2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;long ll_row
string ls_mtrlcode

ll_row = dw_pageretr.getrow()

if ll_row <= 0 then
	messagebox('提示','请选择目标产品',information!,OK!)
	return
end if
ls_mtrlcode = dw_pageretr.object.mtrlcode [ll_row]
openwithparm(w_rp_ware_mtrlware_mx,ls_mtrlcode)

end event

type ddlb_2 from dropdownlistbox within w_rp_ware_mtrlware
integer x = 2158
integer y = 48
integer width = 800
integer height = 448
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "成品库存表"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"成品库存表","成品库存表[带配置]"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;dw_pageretr.uf_save_profile_layout()
if ddlb_2.text='成品库存表' then
	dw_pageretr.dataobject='dw_rp_ware_mtrlware'	
elseif ddlb_2.text='成品库存表[带配置]' then
	dw_pageretr.dataobject='dw_rp_ware_mtrlware_1'
end if

dw_pageretr.settransobject(sqlca)

dw_pageretr.ins_INIfile_name = sys_inifilename
dw_pageretr.ins_opemp = publ_operator
dw_pageretr.cardw_empid = sys_empid
dw_pageretr.cur_DataObject = dw_pageretr.DataObject

dw_pageretr.uf_read_profile_layout()
f_title_change(dw_pageretr)


wf_replacedw()
cb_refresh.triggerevent(clicked!)


//

end event