$PBExportHeader$w_saletask_pc.srw forward global type w_saletask_pc from w_publ_base_style end type type dw_1 from u_dw_rbtnfilter within w_saletask_pc end type type ddlb_1 from dropdownlistbox within w_saletask_pc end type type st_3 from statictext within w_saletask_pc end type type st_4 from statictext within w_saletask_pc end type type em_1 from editmask within w_saletask_pc end type type em_2 from editmask within w_saletask_pc end type type pb_em1 from picturebutton within w_saletask_pc end type type pb_em2 from picturebutton within w_saletask_pc end type type pb_2 from picturebutton within w_saletask_pc end type type st_1 from statictext within w_saletask_pc end type type cb_1 from uo_imflatbutton within w_saletask_pc end type type tab_1 from tab within w_saletask_pc end type type tabpage_1 from userobject within tab_1 end type type dw_2 from datawindow within tabpage_1 end type type tabpage_1 from userobject within tab_1 dw_2 dw_2 end type type tabpage_2 from userobject within tab_1 end type type p_1 from picture within tabpage_2 end type type cb_2 from commandbutton within tabpage_2 end type type tabpage_2 from userobject within tab_1 p_1 p_1 cb_2 cb_2 end type type tabpage_3 from userobject within tab_1 end type type tab_2 from tab within tabpage_3 end type type tabpage_4 from userobject within tab_2 end type type cb_8 from commandbutton within tabpage_4 end type type cb_7 from commandbutton within tabpage_4 end type type cb_6 from commandbutton within tabpage_4 end type type dw_4 from datawindow within tabpage_4 end type type tabpage_4 from userobject within tab_2 cb_8 cb_8 cb_7 cb_7 cb_6 cb_6 dw_4 dw_4 end type type tabpage_5 from userobject within tab_2 end type type cb_5 from commandbutton within tabpage_5 end type type cb_4 from commandbutton within tabpage_5 end type type cb_3 from commandbutton within tabpage_5 end type type dw_5 from datawindow within tabpage_5 end type type tabpage_5 from userobject within tab_2 cb_5 cb_5 cb_4 cb_4 cb_3 cb_3 dw_5 dw_5 end type type tab_2 from tab within tabpage_3 tabpage_4 tabpage_4 tabpage_5 tabpage_5 end type type dw_3 from datawindow within tabpage_3 end type type tabpage_3 from userobject within tab_1 tab_2 tab_2 dw_3 dw_3 end type type tab_1 from tab within w_saletask_pc tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_3 tabpage_3 end type type ln_1 from line within w_saletask_pc end type type ln_2 from line within w_saletask_pc end type end forward global type w_saletask_pc from w_publ_base_style integer width = 3013 integer height = 2000 string title = "工厂销售订单管理" boolean maxbox = true boolean resizable = true dw_1 dw_1 ddlb_1 ddlb_1 st_3 st_3 st_4 st_4 em_1 em_1 em_2 em_2 pb_em1 pb_em1 pb_em2 pb_em2 pb_2 pb_2 st_1 st_1 cb_1 cb_1 tab_1 tab_1 ln_1 ln_1 ln_2 ln_2 end type global w_saletask_pc w_saletask_pc type variables datawindow dw_2 datawindow dw_3 tab tab_2 datawindow dw_4 datawindow dw_5 end variables on w_saletask_pc.create int iCurrent call super::create this.dw_1=create dw_1 this.ddlb_1=create ddlb_1 this.st_3=create st_3 this.st_4=create st_4 this.em_1=create em_1 this.em_2=create em_2 this.pb_em1=create pb_em1 this.pb_em2=create pb_em2 this.pb_2=create pb_2 this.st_1=create st_1 this.cb_1=create cb_1 this.tab_1=create tab_1 this.ln_1=create ln_1 this.ln_2=create ln_2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.dw_1 this.Control[iCurrent+2]=this.ddlb_1 this.Control[iCurrent+3]=this.st_3 this.Control[iCurrent+4]=this.st_4 this.Control[iCurrent+5]=this.em_1 this.Control[iCurrent+6]=this.em_2 this.Control[iCurrent+7]=this.pb_em1 this.Control[iCurrent+8]=this.pb_em2 this.Control[iCurrent+9]=this.pb_2 this.Control[iCurrent+10]=this.st_1 this.Control[iCurrent+11]=this.cb_1 this.Control[iCurrent+12]=this.tab_1 this.Control[iCurrent+13]=this.ln_1 this.Control[iCurrent+14]=this.ln_2 end on on w_saletask_pc.destroy call super::destroy destroy(this.dw_1) destroy(this.ddlb_1) destroy(this.st_3) destroy(this.st_4) destroy(this.em_1) destroy(this.em_2) destroy(this.pb_em1) destroy(this.pb_em2) destroy(this.pb_2) destroy(this.st_1) destroy(this.cb_1) destroy(this.tab_1) destroy(this.ln_1) destroy(this.ln_2) end on event resize;call super::resize;ln_1.endx = this.width ln_2.endx = this.width dw_1.width = this.Workspacewidth() - dw_1.x dw_1.Height = (this.workspaceheight() - dw_1.y) / 3 tab_1.width = this.workspacewidth() - tab_1.x tab_1.y = dw_1.y + dw_1.Height tab_1.height = dw_1.Height * 2 dw_2.width = tab_1.tabpage_1.width dw_2.Height = tab_1.tabpage_1.height dw_3.width = tab_1.tabpage_3.width / 2 dw_3.height = tab_1.tabpage_3.height tab_2.x = dw_3.x + dw_3.width tab_2.width = dw_3.width tab_2.height = dw_3.height dw_4.width = tab_1.tabpage_3.tab_2.tabpage_4.width dw_4.height = tab_1.tabpage_3.tab_2.tabpage_4.height - dw_4.y dw_5.width = tab_1.tabpage_3.tab_2.tabpage_5.width dw_5.height = tab_1.tabpage_3.tab_2.tabpage_5.height - dw_5.y end event event open;call super::open;dw_2 = tab_1.tabpage_1.dw_2 dw_3 = tab_1.tabpage_3.dw_3 tab_2 = tab_1.tabpage_3.tab_2 dw_4 = tab_1.tabpage_3.tab_2.tabpage_4.dw_4 dw_5 = tab_1.tabpage_3.tab_2.tabpage_5.dw_5 end event type cb_func from w_publ_base_style`cb_func within w_saletask_pc integer x = 151 string text = "报价" end type event cb_func::clicked;call super::clicked;open(w_saletask_dm_edit) end event type cb_exit from w_publ_base_style`cb_exit within w_saletask_pc integer x = 302 end type type ln_bar from w_publ_base_style`ln_bar within w_saletask_pc integer beginy = 280 integer endy = 280 end type type ln_bar2 from w_publ_base_style`ln_bar2 within w_saletask_pc integer beginy = 284 integer endy = 284 end type type r_bar from w_publ_base_style`r_bar within w_saletask_pc end type type dw_1 from u_dw_rbtnfilter within w_saletask_pc integer y = 296 integer width = 2455 integer height = 852 integer taborder = 20 boolean bringtotop = true string dataobject = "dw_saletask_pc_index" end type event rowfocuschanged;call super::rowfocuschanged;this.selectrow(0,false) if currentrow > 0 then this.selectrow(currentrow, true) end if end event type ddlb_1 from dropdownlistbox within w_saletask_pc integer x = 329 integer y = 188 integer width = 549 integer height = 476 integer taborder = 30 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 string item[] = {"待询价","已报价","已下单","已发货","已收货"} borderstyle borderstyle = stylelowered! end type type st_3 from statictext within w_saletask_pc integer x = 905 integer y = 196 integer width = 315 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 boolean enabled = false string text = "订货日期从:" alignment alignment = right! boolean focusrectangle = false end type event constructor;this.backcolor = 14215660 end event type st_4 from statictext within w_saletask_pc integer x = 1737 integer y = 196 integer width = 105 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 boolean enabled = false string text = "到:" alignment alignment = right! boolean focusrectangle = false end type event constructor;this.backcolor = 14215660 end event type em_1 from editmask within w_saletask_pc integer x = 1230 integer y = 180 integer width = 407 integer height = 88 integer taborder = 120 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! maskdatatype maskdatatype = datemask! string mask = "yyyy-mm-dd" boolean spin = true end type event rbuttondown;s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = THIS.X s_calender.Y = THIS.Y OpenWithParm(w_calendar,s_calender) THIS.Text = String(id_date_selected) end event type em_2 from editmask within w_saletask_pc integer x = 1842 integer y = 180 integer width = 407 integer height = 88 integer taborder = 130 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! maskdatatype maskdatatype = datemask! string mask = "yyyy-mm-dd" boolean spin = true end type event rbuttondown;s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = THIS.X s_calender.Y = THIS.Y OpenWithParm(w_calendar,s_calender) THIS.Text = String(id_date_selected) end event type pb_em1 from picturebutton within w_saletask_pc integer x = 1646 integer y = 180 integer width = 101 integer height = 92 integer taborder = 130 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string picturename = "date.BMP" alignment htextalign = left! end type event clicked;em_1.triggerevent(rbuttondown!) end event type pb_em2 from picturebutton within w_saletask_pc integer x = 2258 integer y = 180 integer width = 101 integer height = 92 integer taborder = 140 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string picturename = "date.BMP" alignment htextalign = left! end type event clicked;em_2.triggerevent(rbuttondown!) end event type pb_2 from picturebutton within w_saletask_pc integer x = 2368 integer y = 180 integer width = 101 integer height = 92 integer taborder = 150 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string picturename = "date1.BMP" alignment htextalign = left! end type event clicked;m_Dfc_Control_PopupMenu dmPopupMenu string menustr menustr="Text=本日~tEvent=ue_date1" menustr = menustr + "|" + "Text=本周~tEvent=ue_date2" menustr = menustr + "|" + "Text=本月~tEvent=ue_date3" if len(trim(menustr))<>0 then dmPopupMenu = Create m_Dfc_Control_PopupMenu dmPopupMenu.mf_BuildMenu(This, menustr) dmPopupMenu.mf_PopMenu() Destroy dmPopupMenu end if end event type st_1 from statictext within w_saletask_pc integer x = 23 integer y = 200 integer width = 288 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "订单状态" alignment alignment = right! boolean focusrectangle = false end type event constructor;this.backcolor = 14215660 end event type cb_1 from uo_imflatbutton within w_saletask_pc integer width = 151 integer height = 164 integer taborder = 10 boolean bringtotop = true string text = "刷新" string normalpicname = "refresh.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;//DateTime first_date,end_date // //first_date = DateTime(Date(em_1.Text),Time(0)) //end_date = DateTime(Date(em_2.Text),Time('23:59:59')) //String ls_cust_str, ls_mtrl_str //IF Pos(sle_cust.Text,"%") <> 0 THEN // ls_cust_str = trim(sle_cust.Text) //ELSE // ls_cust_str = "%"+trim(sle_cust.Text)+"%" //END IF //IF Pos(sle_mtrl.Text,"%") <> 0 THEN // ls_mtrl_str = trim(sle_mtrl.Text) //ELSE // ls_mtrl_str = "%"+trim(sle_mtrl.Text)+"%" //END IF //dw_1.Retrieve(DATE(EM_1.TEXT),DATE(EM_2.TEXT),ls_cust_str,ls_mtrl_str) //dw_1.OBJECT.date_mid.TEXT=EM_1.TEXT+'~~'+EM_2.TEXT end event type tab_1 from tab within w_saletask_pc integer y = 1152 integer width = 2240 integer height = 1008 integer taborder = 30 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 boolean raggedright = true boolean focusonbuttondown = true integer selectedtab = 1 tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_3 tabpage_3 end type on tab_1.create this.tabpage_1=create tabpage_1 this.tabpage_2=create tabpage_2 this.tabpage_3=create tabpage_3 this.Control[]={this.tabpage_1,& this.tabpage_2,& this.tabpage_3} end on on tab_1.destroy destroy(this.tabpage_1) destroy(this.tabpage_2) destroy(this.tabpage_3) end on type tabpage_1 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 2203 integer height = 896 long backcolor = 134217739 string text = "附件" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_2 dw_2 end type on tabpage_1.create this.dw_2=create dw_2 this.Control[]={this.dw_2} end on on tabpage_1.destroy destroy(this.dw_2) end on type dw_2 from datawindow within tabpage_1 integer width = 1961 integer height = 400 integer taborder = 40 string title = "none" string dataobject = "dw_saletask_pc_fj" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type tabpage_2 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 2203 integer height = 896 long backcolor = 134217739 string text = "物料清单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 p_1 p_1 cb_2 cb_2 end type on tabpage_2.create this.p_1=create p_1 this.cb_2=create cb_2 this.Control[]={this.p_1,& this.cb_2} end on on tabpage_2.destroy destroy(this.p_1) destroy(this.cb_2) end on type p_1 from picture within tabpage_2 integer y = 92 integer width = 6231 integer height = 1020 boolean originalsize = true string picturename = "QQ截图20150626162704.png" boolean focusrectangle = false end type type cb_2 from commandbutton within tabpage_2 integer y = 8 integer width = 279 integer height = 84 integer taborder = 30 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "导入BOM" end type type tabpage_3 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 2203 integer height = 896 long backcolor = 134217739 string text = "指令单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 tab_2 tab_2 dw_3 dw_3 end type on tabpage_3.create this.tab_2=create tab_2 this.dw_3=create dw_3 this.Control[]={this.tab_2,& this.dw_3} end on on tabpage_3.destroy destroy(this.tab_2) destroy(this.dw_3) end on type tab_2 from tab within tabpage_3 integer x = 1303 integer width = 2240 integer height = 1008 integer taborder = 40 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 boolean raggedright = true boolean focusonbuttondown = true integer selectedtab = 1 tabpage_4 tabpage_4 tabpage_5 tabpage_5 end type on tab_2.create this.tabpage_4=create tabpage_4 this.tabpage_5=create tabpage_5 this.Control[]={this.tabpage_4,& this.tabpage_5} end on on tab_2.destroy destroy(this.tabpage_4) destroy(this.tabpage_5) end on type tabpage_4 from userobject within tab_2 integer x = 18 integer y = 96 integer width = 2203 integer height = 896 long backcolor = 134217739 string text = "已安排工作" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 cb_8 cb_8 cb_7 cb_7 cb_6 cb_6 dw_4 dw_4 end type on tabpage_4.create this.cb_8=create cb_8 this.cb_7=create cb_7 this.cb_6=create cb_6 this.dw_4=create dw_4 this.Control[]={this.cb_8,& this.cb_7,& this.cb_6,& this.dw_4} end on on tabpage_4.destroy destroy(this.cb_8) destroy(this.cb_7) destroy(this.cb_6) destroy(this.dw_4) end on type cb_8 from commandbutton within tabpage_4 integer x = 411 integer width = 183 integer height = 84 integer taborder = 20 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "打印" end type type cb_7 from commandbutton within tabpage_4 integer x = 187 integer width = 219 integer height = 84 integer taborder = 20 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "全不选" end type type cb_6 from commandbutton within tabpage_4 integer width = 183 integer height = 84 integer taborder = 50 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "全选" end type type dw_4 from datawindow within tabpage_4 integer y = 104 integer width = 686 integer height = 400 integer taborder = 40 string title = "none" string dataobject = "dw_sc_task_wkp_uc" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type tabpage_5 from userobject within tab_2 integer x = 18 integer y = 96 integer width = 2203 integer height = 896 long backcolor = 134217739 string text = "待安排工作" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 cb_5 cb_5 cb_4 cb_4 cb_3 cb_3 dw_5 dw_5 end type on tabpage_5.create this.cb_5=create cb_5 this.cb_4=create cb_4 this.cb_3=create cb_3 this.dw_5=create dw_5 this.Control[]={this.cb_5,& this.cb_4,& this.cb_3,& this.dw_5} end on on tabpage_5.destroy destroy(this.cb_5) destroy(this.cb_4) destroy(this.cb_3) destroy(this.dw_5) end on type cb_5 from commandbutton within tabpage_5 integer x = 411 integer width = 274 integer height = 84 integer taborder = 10 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "新建派工" end type type cb_4 from commandbutton within tabpage_5 integer x = 187 integer width = 219 integer height = 84 integer taborder = 10 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "全不选" end type type cb_3 from commandbutton within tabpage_5 integer width = 183 integer height = 84 integer taborder = 40 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "全选" end type type dw_5 from datawindow within tabpage_5 integer y = 96 integer width = 686 integer height = 400 integer taborder = 40 string title = "none" string dataobject = "dw_sc_task_wkp_notplan_index" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type dw_3 from datawindow within tabpage_3 integer width = 1285 integer height = 640 integer taborder = 40 string title = "none" string dataobject = "dw_order_ml_zlmx" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type ln_1 from line within w_saletask_pc long linecolor = 268435456 integer linethickness = 4 integer beginx = -18 integer beginy = 168 integer endx = 1998 integer endy = 168 end type type ln_2 from line within w_saletask_pc long linecolor = 16777215 integer linethickness = 4 integer beginx = -18 integer beginy = 172 integer endx = 2030 integer endy = 172 end type