Q5/ws_objects/Ew_mrp.pbl.src/w_sc_workpricetable_copy.srw

$PBExportHeader$w_sc_workpricetable_copy.srw
forward
global type w_sc_workpricetable_copy from w_publ_base
end type
type ddlb_1 from dropdownlistbox within w_sc_workpricetable_copy
end type
end forward

global type w_sc_workpricetable_copy from w_publ_base
integer width = 1093
integer height = 508
string title = "复制"
boolean minbox = false
windowtype windowtype = response!
ddlb_1 ddlb_1
end type
global w_sc_workpricetable_copy w_sc_workpricetable_copy

type variables
long rst_wrkgrpid
end variables

on w_sc_workpricetable_copy.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_1
end on

on w_sc_workpricetable_copy.destroy
call super::destroy
destroy(this.ddlb_1)
end on

event open;call super::open;Long ll_mtrlid
ll_mtrlid = Message.DoubleParm
Long ll_wrkGrpid
String ls_wrkGrpName

DECLARE pf CURSOR FOR
	SELECT distinct u_sc_workprice.wrkGrpid,
	u_sc_workgroup.wrkGrpName
	FROM u_sc_workprice Left OUTER JOIN u_sc_workgroup
	ON u_sc_workprice.wrkGrpid = u_sc_workgroup.wrkGrpid
	and u_sc_workprice.mtrlid = :ll_mtrlid
	order by u_sc_workprice.wrkGrpid;
	
OPEN pf;
FETCH pf INTO :ll_wrkGrpid,:ls_wrkGrpName;
DO WHILE sqlca.SQLCode = 0
	ddlb_1.AddItem(ls_wrkGrpName+Fill(' ',40)+'['+String(ll_wrkGrpid)+']')
	FETCH pf INTO :ll_wrkGrpid,:ls_wrkGrpName;
LOOP
close pf;
ddlb_1.AddItem('全部')
ddlb_1.text = '全部'
rst_wrkgrpid = 0





end event

event close;call super::close;closewithreturn(this,rst_wrkgrpid)
end event

type cb_func from w_publ_base`cb_func within w_sc_workpricetable_copy
integer x = 160
integer y = 264
integer width = 311
integer height = 96
string text = "确定"
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

event cb_func::clicked;if ddlb_1.text = '全部' then
	rst_wrkgrpid = -1
else
	rst_wrkgrpid = Long(Mid ( ddlb_1.Text,Pos(ddlb_1.Text,'[') + 1,Len(ddlb_1.Text) - Pos(ddlb_1.Text,'[') - 1 ))
end if
close(parent)
end event

type cb_exit from w_publ_base`cb_exit within w_sc_workpricetable_copy
integer x = 553
integer y = 268
end type

type ddlb_1 from dropdownlistbox within w_sc_workpricetable_copy
integer x = 206
integer y = 80
integer width = 645
integer height = 880
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type