$PBExportHeader$w_outware_scll_salerqmtrl_ch.srw forward global type w_outware_scll_salerqmtrl_ch from w_pageretr_ch end type type cbx_ml from checkbox within w_outware_scll_salerqmtrl_ch end type type cb_ok from uo_imflatbutton within w_outware_scll_salerqmtrl_ch end type type cb_del from uo_imflatbutton within w_outware_scll_salerqmtrl_ch end type type cbx_mlselect from checkbox within w_outware_scll_salerqmtrl_ch end type type dw_choice from datawindow within w_outware_scll_salerqmtrl_ch end type type cbx_selectall from checkbox within w_outware_scll_salerqmtrl_ch end type type cbx_show_0 from checkbox within w_outware_scll_salerqmtrl_ch end type type cbx_sale from checkbox within w_outware_scll_salerqmtrl_ch end type type cbx_show_finish from checkbox within w_outware_scll_salerqmtrl_ch end type end forward global type w_outware_scll_salerqmtrl_ch from w_pageretr_ch integer width = 3611 integer height = 2380 string title = "领料出仓单 - 订单物料需求选择 [按Ctrl键反选]" event ue_retrieve_info ( ) event ue_help ( ) event ue_p_noscllcpqty ( ) cbx_ml cbx_ml cb_ok cb_ok cb_del cb_del cbx_mlselect cbx_mlselect dw_choice dw_choice cbx_selectall cbx_selectall cbx_show_0 cbx_show_0 cbx_sale cbx_sale cbx_show_finish cbx_show_finish end type global w_outware_scll_salerqmtrl_ch w_outware_scll_salerqmtrl_ch type variables boolean if_changeselect=true int if_mlselect=0 long ins_storageid long ins_wrkgrpid long ins_mtrldef_lljg = -1 long ins_scid s_outware_scll_salerqmtrl_ch INS_RT_STRU end variables forward prototypes public function integer wf_face_change () end prototypes event ue_retrieve_info();//Long ll_row //Long ll_mtrlid // //ll_row = dw_pageretr.GetRow() // //IF ll_row <= 0 THEN // ll_mtrlid = 0 //ELSE // ll_mtrlid = dw_pageretr.Object.mtrlid[ll_row] //END IF // //IF IsValid(w_mtrl_info) THEN // w_mtrl_info.WindowState = Normal! // w_mtrl_info.ins_mtrlid = ll_mtrlid // w_mtrl_info.wf_retrieve(ll_mtrlid) //END IF // end event event ue_help();Int i i = htmlhelpA(Handle(THIS), sys_help_chm, 0, THIS.Title+".html") end event event ue_p_noscllcpqty();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息进行批设定备注', question!, YesNo!, 2) = 2 THEN RETURN END IF Long ll_i dw_pageretr.AcceptText() dw_pageretr.SetRedraw(FALSE) FOR ll_i = 1 TO dw_pageretr.RowCount() IF dw_pageretr.Object.ch[ll_i] = 0 THEN CONTINUE dw_pageretr.Object.dscrp[ll_i] = dw_pageretr.Object.noscllcpqty[dw_pageretr.getrow()] NEXT dw_pageretr.SetRedraw(TRUE) end event public function integer wf_face_change ();//wf_face_change() IF cbx_ml.Checked THEN dw_pageretr.Height = this.height - dw_pageretr.y - 140 dw_choice.Visible = FALSE cb_ok.Visible = FALSE cb_del.Visible = FALSE ELSE dw_pageretr.Height = 1040 dw_choice.Visible = TRUE cb_ok.Visible = TRUE cb_del.Visible = TRUE END IF dw_pageretr.X = 9 dw_pageretr.Width = this.Width - dw_pageretr.x - 40 dw_choice.X = 9 dw_choice.Width = this.Width - dw_choice.x - 40 RETURN 1 end function on w_outware_scll_salerqmtrl_ch.create int iCurrent call super::create this.cbx_ml=create cbx_ml this.cb_ok=create cb_ok this.cb_del=create cb_del this.cbx_mlselect=create cbx_mlselect this.dw_choice=create dw_choice this.cbx_selectall=create cbx_selectall this.cbx_show_0=create cbx_show_0 this.cbx_sale=create cbx_sale this.cbx_show_finish=create cbx_show_finish iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cbx_ml this.Control[iCurrent+2]=this.cb_ok this.Control[iCurrent+3]=this.cb_del this.Control[iCurrent+4]=this.cbx_mlselect this.Control[iCurrent+5]=this.dw_choice this.Control[iCurrent+6]=this.cbx_selectall this.Control[iCurrent+7]=this.cbx_show_0 this.Control[iCurrent+8]=this.cbx_sale this.Control[iCurrent+9]=this.cbx_show_finish end on on w_outware_scll_salerqmtrl_ch.destroy call super::destroy destroy(this.cbx_ml) destroy(this.cb_ok) destroy(this.cb_del) destroy(this.cbx_mlselect) destroy(this.dw_choice) destroy(this.cbx_selectall) destroy(this.cbx_show_0) destroy(this.cbx_sale) destroy(this.cbx_show_finish) end on event ue_before_open;call super::ue_before_open;if_ue_retr=true if_ue_sort=true end event event close;call super::close;cLOSEWITHRETURN(THIS,INS_RT_STRU) // 窗体级子定义结构变量,用于返回 end event event open; This.TriggerEvent('ue_before_open') wf_movetocenter() OLD_TITLE = This.Title s_tran = Message.PowerObjectParm IF Not IsNull(s_tran) THEN retrieve_all = s_tran.if_retrieve_all mode = s_tran.work_mode arg_pkid = s_tran.arg_pkid arg_string_code = s_tran.arg_string_code ins_storageid = s_tran.b_long ins_mtrldef_lljg = s_tran.d_long ins_scid = s_tran.e_long IF ins_mtrldef_lljg = 0 THEN ins_mtrldef_lljg = -1 IF sys_option_outware_scll_ch_ifwrkgrp = 0 THEN ins_wrkgrpid = -1 ELSE ins_wrkgrpid = s_tran.c_long //领料工作中心 END IF END IF //////////////// // //This.Title = This.Title //////////////// // dw_pageretr.RBUTTON_FILTER_USE = True //右键查询功能开关 dw_pageretr.titleclick_sort_use = True //单击标题排序功能开关 dw_pageretr.SetTransObject (sqlca) pkcolumndbtname = wf_get_pkcolumndbtname(dw_pageretr) //取第一列为关键字 ori_oldselect = dw_pageretr.Describe("DataWindow.Table.Select") ls_newselect = ori_oldselect ds_curquery = Create DATASTORE ds_curquery.DataObject = 'd_extr_find' ds_curquery.SetTransObject (sqlca) wf_editindex_lockf() IF Not retrieve_all And Trim(arg_string_code) <> '' THEN sle_usual_query.Text = Trim(arg_string_code) This.TriggerEvent("ue_usual_query_RETR") //修改ls_newselect,retrieve ELSE wf_retrieveuc(dw_pageretr,ls_newselect,1) This.TriggerEvent('RETRIEVE_pageretr') END IF IF retrieve_all And Trim(arg_string_code) <> '' THEN This.TriggerEvent("ue_usual_query_filt") END IF dw_choice.SetTransObject(sqlca) wf_face_change() s_hide_col s_col s_col.col_1 = 'cost' s_col.col_2 = 'wareamt' f_hide_col(490,dw_pageretr,s_col) f_hide_col(490,dw_choice,s_col) s_hide_col s_col_mtrlsectype s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype' f_hide_col(1308,dw_pageretr,s_col_mtrlsectype) f_hide_col(1308,dw_choice,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) f_hide_col(1309,dw_choice,s_col_zxmtrlmode) end event event retrieve_pageretr;Boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled Boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled cb_nextpage_enabled = cb_nextpage.Enabled cb_retrieveall_enabled = cb_retrieveall.Enabled cb_func_enabled = cb_func.Enabled cb_nextpage.Enabled = False cb_retrieveall.Enabled = False cb_func.Enabled = False Int li_show_0 IF cbx_show_0.Checked THEN li_show_0 = 1 ELSE li_show_0 = 0 END IF Int li_sale IF cbx_sale.Checked THEN li_sale = 1 ELSE li_sale = 0 END IF Int li_show_finish = 0 IF Not (f_power_ind(2064)) AND NOT(sys_power_issuper) THEN cbx_show_finish.Enabled = False cbx_show_finish.Checked = False ELSE IF cbx_show_finish.Checked THEN li_show_finish = 1 ELSE li_show_finish = 0 END IF END IF SetPointer(HourGlass!) dw_pageretr.Retrieve(ins_storageid, li_show_0,ins_wrkgrpid,ins_mtrldef_lljg,li_sale,li_show_finish,ins_scid) IF dw_pageretr.RowCount() > 0 And dw_pageretr.GetRow() = 0 THEN dw_pageretr.SetRow(1) SetPointer(Arrow!) cb_nextpage.Enabled = cb_nextpage_enabled cb_retrieveall.Enabled = cb_retrieveall_enabled cb_func.Enabled = cb_func_enabled IF cbx_mlselect.Checked And dw_pageretr.RowCount() > 1 THEN dw_pageretr.SelectRow(1,False) END IF 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+'( u_mtrldef_mtrlcode LIKE "%'+trim(sle_usual_query.text)+'%") ' obj_expr=obj_expr+' or ( u_mtrldef_mtrlname LIKE "%'+trim(sle_usual_query.text)+'%" )' ELSE obj_expr=obj_expr+'( u_mtrldef_mtrlcode LIKE "'+trim(sle_usual_query.text)+'" )' obj_expr=obj_expr+' or ( u_mtrldef_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 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 = ls_querystrpart + "(u_mtrldef.mtrlcode like '%"+Trim(sle_usual_query.Text)+"%'" ls_querystrpart = ls_querystrpart + " or u_mtrldef.mtrlname like '%"+Trim(sle_usual_query.Text)+"%')" ELSE ls_querystrpart = ls_querystrpart + "( u_mtrldef.mtrlcode like '"+Trim(sle_usual_query.Text)+"'" ls_querystrpart = ls_querystrpart + " or u_mtrldef.mtrlname 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 type cb_func from w_pageretr_ch`cb_func within w_outware_scll_salerqmtrl_ch end type type cb_exit from w_pageretr_ch`cb_exit within w_outware_scll_salerqmtrl_ch end type type sle_usual_query from w_pageretr_ch`sle_usual_query within w_outware_scll_salerqmtrl_ch integer x = 347 end type type cb_retrieveall from w_pageretr_ch`cb_retrieveall within w_outware_scll_salerqmtrl_ch integer x = 1175 end type type em_pagerowno from w_pageretr_ch`em_pagerowno within w_outware_scll_salerqmtrl_ch integer x = 859 end type type dw_pageretr from w_pageretr_ch`dw_pageretr within w_outware_scll_salerqmtrl_ch integer x = 9 integer width = 3579 integer height = 1040 string dataobject = "dw_outware_scll_salerqmtrl_ch" end type event dw_pageretr::clicked;if row>0 then this.setrow(row) if if_mlselect=1 then if if_changeselect then this.selectrow(row,not this.IsSelected(row)) else if_changeselect=true end if else this.selectrow(0,false) this.selectrow(row,true) end if end if end event event dw_pageretr::doubleclicked; if cbx_ml.checked then cb_choice.TRIGGEREVENT(CLICKED!) else cb_ok.TRIGGEREVENT(CLICKED!) end if IF dwo.name = 'noscllcpqty_t' then IF MessageBox(publ_operator,'是否要确定要按当前选中行信息进行批设定备注', question!, YesNo!, 2) = 2 THEN RETURN END IF Long ll_i dw_pageretr.AcceptText() dw_pageretr.SetRedraw(FALSE) FOR ll_i = 1 TO dw_pageretr.RowCount() dw_pageretr.Object.noscllcpqty[ll_i] = dw_pageretr.Object.noscllcpqty[dw_pageretr.getrow()] NEXT dw_pageretr.SetRedraw(TRUE) end if end event event dw_pageretr::rowfocuschanged;if if_mlselect=1 then if currentrow <=0 then return if keydown(keycontrol!) then if this.isselected(currentrow) then this.selectrow(currentrow,false) if_changeselect=false else if_changeselect=true end if else if not this.isselected(currentrow) then this.selectrow(currentrow,true) if_changeselect=false else if_changeselect=true end if end if else if dw_edit_mode then return if currentrow <=0 then return this.selectrow(0,false) this.selectrow(currentrow,true) end if PARENT.TriggerEvent('ue_retrieve_info') end event event dw_pageretr::dwnkey;call super::dwnkey;if keydown(keyenter!) then return 1 end event event dw_pageretr::constructor;call super::constructor;dw_pageretr.Modify("u_mtrldef_a1_p_t.text='订单产品"+sys_option_change_mtrlsectype+"'") dw_pageretr.Modify("u_mtrldef_a2_p_t.text='订单产品"+sys_option_change_zxmtrlmode+"'") end event type st_1 from w_pageretr_ch`st_1 within w_outware_scll_salerqmtrl_ch integer x = 14 integer width = 343 string text = "编码/名称含:" end type type cb_nextpage from w_pageretr_ch`cb_nextpage within w_outware_scll_salerqmtrl_ch integer x = 1326 end type type cb_choice from w_pageretr_ch`cb_choice within w_outware_scll_salerqmtrl_ch integer taborder = 120 end type event cb_choice::clicked;call super::clicked;Long ROW,ls_i = 0,chC = 0 IF cbx_ml.Checked THEN FOR ROW = 1 To dw_pageretr.RowCount() IF dw_pageretr.IsSelected(row) THEN chc++ INS_RT_STRU.taskid[chc] = dw_pageretr.Object.u_salerqmtrl_scll_taskid[row] INS_RT_STRU.printid[chc] = dw_pageretr.Object.u_salerqmtrl_scll_printid[row] INS_RT_STRU.rqmtrlid[chc] = dw_pageretr.Object.u_salerqmtrl_scll_rqmtrlid[row] INS_RT_STRU.taskcode[chc] = dw_pageretr.Object.u_saletask_taskcode[row] INS_RT_STRU.mtrlwareid[chc] = dw_pageretr.Object.mtrlwareid[row] INS_RT_STRU.mtrlid[chc] = dw_pageretr.Object.u_salerqmtrl_scll_mtrlid[row] INS_RT_STRU.mtrlcode[chc] = dw_pageretr.Object.u_mtrldef_mtrlcode[row] INS_RT_STRU.mtrlname[chc] = dw_pageretr.Object.u_mtrldef_mtrlname[row] INS_RT_STRU.mtrlmode[chc] = dw_pageretr.Object.u_mtrldef_mtrlmode[row] INS_RT_STRU.unit[chc] = dw_pageretr.Object.u_mtrldef_unit[row] INS_RT_STRU.status[chc] = dw_pageretr.Object.u_salerqmtrl_scll_status[row] INS_RT_STRU.woodcode[chc] = dw_pageretr.Object.u_salerqmtrl_scll_woodcode[row] INS_RT_STRU.pcode[chc] = dw_pageretr.Object.u_salerqmtrl_scll_pcode[row] // 需求未领数 INS_RT_STRU.qty[chc] = dw_pageretr.Object.noscllcpqty[row] / dw_pageretr.Object.u_saletaskmx_orderqty[row] *dw_pageretr.Object.u_salerqmtrl_scll_truerqqty[row] INS_RT_STRU.upmtrlcode[chc] = dw_pageretr.Object.u_mtrldef_upmtrlcode[row] INS_RT_STRU.upmtrlname[chc] = dw_pageretr.Object.u_mtrldef_upmtrlname[row] INS_RT_STRU.upmtrlmode[chc] = dw_pageretr.Object.u_mtrldef_upmtrlmode[row] INS_RT_STRU.cost[chc] = dw_pageretr.Object.cost[row] INS_RT_STRU.storageid[chc] = dw_pageretr.Object.storageid[row] INS_RT_STRU.plancode[chc] = dw_pageretr.Object.plancode[row] INS_RT_STRU.mtrlsectype[chc] = dw_pageretr.Object.u_mtrldef_mtrlsectype[row] INS_RT_STRU.zxmtrlmode[chc] = dw_pageretr.Object.u_mtrldef_zxmtrlmode[row] INS_RT_STRU.sptid[chc] = dw_pageretr.Object.u_saletask_cusid[row] INS_RT_STRU.truerqqty[chc] = dw_pageretr.Object.u_salerqmtrl_scll_truerqqty[row] INS_RT_STRU.dstrqty[chc] = dw_pageretr.Object.u_salerqmtrl_scll_dstrqty[row] INS_RT_STRU.usaleqty[chc] = dw_pageretr.Object.u_saletaskmx_usaleqty[row] END IF NEXT ELSE FOR row = 1 TO dw_choice.RowCount() chc++ INS_RT_STRU.taskid[chc] = dw_choice.Object.u_salerqmtrl_scll_taskid[row] INS_RT_STRU.printid[chc] = dw_choice.Object.u_salerqmtrl_scll_printid[row] INS_RT_STRU.rqmtrlid[chc] = dw_choice.Object.u_salerqmtrl_scll_rqmtrlid[row] INS_RT_STRU.taskcode[chc] = dw_choice.Object.u_saletask_taskcode[row] INS_RT_STRU.mtrlwareid[chc] = dw_choice.Object.mtrlwareid[row] INS_RT_STRU.mtrlid[chc] = dw_choice.Object.u_salerqmtrl_scll_mtrlid[row] INS_RT_STRU.mtrlcode[chc] = dw_choice.Object.u_mtrldef_mtrlcode[row] INS_RT_STRU.mtrlname[chc] = dw_choice.Object.u_mtrldef_mtrlname[row] INS_RT_STRU.mtrlmode[chc] = dw_choice.Object.u_mtrldef_mtrlmode[row] INS_RT_STRU.unit[chc] = dw_choice.Object.u_mtrldef_unit[row] INS_RT_STRU.status[chc] = dw_choice.Object.u_salerqmtrl_scll_status[row] INS_RT_STRU.woodcode[chc] = dw_choice.Object.u_salerqmtrl_scll_woodcode[row] INS_RT_STRU.pcode[chc] = dw_choice.Object.u_salerqmtrl_scll_pcode[row] // 需求未领数 INS_RT_STRU.qty[chc] = dw_choice.Object.noscllcpqty[row] / dw_choice.Object.u_saletaskmx_orderqty[row] *dw_choice.Object.u_salerqmtrl_scll_truerqqty[row] INS_RT_STRU.upmtrlcode[chc] = dw_choice.Object.u_mtrldef_upmtrlcode[row] INS_RT_STRU.upmtrlname[chc] = dw_choice.Object.u_mtrldef_upmtrlname[row] INS_RT_STRU.upmtrlmode[chc] = dw_choice.Object.u_mtrldef_upmtrlmode[row] INS_RT_STRU.cost[chc] = dw_choice.Object.cost[row] INS_RT_STRU.storageid[chc] = dw_choice.Object.storageid[row] INS_RT_STRU.plancode[chc] = dw_choice.Object.plancode[row] INS_RT_STRU.mtrlsectype[chc] = dw_choice.Object.u_mtrldef_mtrlsectype[row] INS_RT_STRU.zxmtrlmode[chc] = dw_choice.Object.u_mtrldef_zxmtrlmode[row] INS_RT_STRU.sptid[chc] = dw_choice.Object.u_saletask_cusid[row] INS_RT_STRU.truerqqty[chc] = dw_choice.Object.u_salerqmtrl_scll_truerqqty[row] INS_RT_STRU.dstrqty[chc] = dw_choice.Object.u_salerqmtrl_scll_dstrqty[row] INS_RT_STRU.usaleqty[chc] = dw_choice.Object.u_saletaskmx_usaleqty[row] NEXT END IF IF chC = 0 THEN MessageBox('提示','请至少选择一个目标行!', Information!, OK! ) RETURN END IF Close(PARENT) end event type cb_refresh from w_pageretr_ch`cb_refresh within w_outware_scll_salerqmtrl_ch end type type cb_help from w_pageretr_ch`cb_help within w_outware_scll_salerqmtrl_ch end type type ln_bar from w_pageretr_ch`ln_bar within w_outware_scll_salerqmtrl_ch end type type ln_bar2 from w_pageretr_ch`ln_bar2 within w_outware_scll_salerqmtrl_ch end type type r_bar from w_pageretr_ch`r_bar within w_outware_scll_salerqmtrl_ch integer x = 1307 end type type ln_1 from w_pageretr_ch`ln_1 within w_outware_scll_salerqmtrl_ch end type type ln_2 from w_pageretr_ch`ln_2 within w_outware_scll_salerqmtrl_ch end type type cbx_ml from checkbox within w_outware_scll_salerqmtrl_ch integer x = 910 integer y = 196 integer width = 357 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 16711680 long backcolor = 134217739 string text = "直接多选" end type event clicked;wf_face_change() int use_ml if this.checked then use_ml=1 else use_ml=0 end if f_SetProfileString (sys_empid,dw_pageretr.DATAOBJECT, "use_ml", string(use_ml)) end event event constructor;int use_ml use_ml=integer(f_ProfileString (sys_empid,dw_pageretr.DATAOBJECT, "use_ml", '1')) if use_ml=0 then this.checked=false else this.checked=true end if end event type cb_ok from uo_imflatbutton within w_outware_scll_salerqmtrl_ch integer x = 2770 integer y = 1348 integer width = 379 integer taborder = 60 boolean bringtotop = true string text = "选定[Enter]" end type event clicked;call super::clicked;LONG ROW,ls_i,chC=0 ROW=dw_pageretr.GETROW() if ROW<=0 then messagebox('提示','请先选择目标行!', Information!, OK! ) return end if for ls_i=1 to dw_pageretr.rowcount() if dw_pageretr.isselected(ls_i) then if dw_choice.find('u_salerqmtrl_scll_rqmtrlid ='+string(dw_pageretr.object.u_salerqmtrl_scll_rqmtrlid[ls_i]),1,dw_choice.rowcount())=0 then chC++ dw_pageretr.RowsCopy(ls_i, ls_i, Primary!, dw_choice, dw_choice.rowcount() + 1, Primary!) end if end if next end event type cb_del from uo_imflatbutton within w_outware_scll_salerqmtrl_ch integer x = 3168 integer y = 1348 integer width = 311 integer taborder = 140 boolean bringtotop = true string text = "删除" string normalpicname = "delete.bmp" end type event clicked;call super::clicked;IF dw_choice.GETROW()=0 THEN MESSAGEBOX('提示','请选择删除的行对象!', Information!, OK! ) RETURN END IF dw_choice.DeleteRow (0) dw_choice.TriggerEvent (rowfocuschanged!) end event type cbx_mlselect from checkbox within w_outware_scll_salerqmtrl_ch integer x = 1317 integer y = 196 integer width = 219 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 string text = "多选" end type event clicked;if this.checked then if_mlselect=1 cbx_selectall.visible=true else if_mlselect=0 cbx_selectall.visible=false end if f_SetProfileString (sys_empid,dw_pageretr.DATAOBJECT, "if_mlselect", string(if_mlselect)) end event event constructor;if_mlselect=integer(f_ProfileString (sys_empid,dw_pageretr.DATAOBJECT, "if_mlselect", '0')) if if_mlselect =0 then this.checked=false cbx_selectall.visible=false else this.checked=true cbx_selectall.visible=true end if end event type dw_choice from datawindow within w_outware_scll_salerqmtrl_ch integer x = 9 integer y = 1460 integer width = 3584 integer height = 824 integer taborder = 130 string title = "none" string dataobject = "dw_outware_scll_salerqmtrl_ch" boolean minbox = true boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event rowfocuschanged;IF currentrow <=0 THEN RETURN this.selectrow(0,false) this.selectrow(currentrow,true) end event type cbx_selectall from checkbox within w_outware_scll_salerqmtrl_ch boolean visible = false integer x = 1559 integer y = 196 integer width = 233 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 string text = "全选" end type event clicked;long i if this.checked then for i=1 to dw_pageretr.rowcount() dw_pageretr.selectrow(i,true) next else for i=1 to dw_pageretr.rowcount() dw_pageretr.selectrow(i,false) next end if end event type cbx_show_0 from checkbox within w_outware_scll_salerqmtrl_ch integer x = 1815 integer y = 196 integer width = 398 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 string text = "显示0库存" boolean checked = true end type event clicked; Int show_0 IF THIS.Checked THEN show_0 = 1 ELSE show_0 = 0 END IF f_SetProfileString (sys_empid,dw_pageretr.DataObject, "show_0", String(show_0)) cb_refresh.triggerevent(clicked!) end event event constructor;Int show_0 show_0 = Integer(f_ProfileString (sys_empid,dw_pageretr.DataObject, "show_0", '1')) IF show_0 = 0 THEN THIS.Checked = FALSE ELSE THIS.Checked = TRUE END IF end event type cbx_sale from checkbox within w_outware_scll_salerqmtrl_ch integer x = 2258 integer y = 196 integer width = 521 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 string text = "只显示在进行订单" boolean checked = true end type event clicked; Int show_0 IF THIS.Checked THEN show_0 = 1 ELSE show_0 = 0 END IF f_SetProfileString (sys_empid,dw_pageretr.DataObject, "show_0", String(show_0)) cb_refresh.triggerevent(clicked!) end event event constructor;Int show_sale show_sale = Integer(f_ProfileString (sys_empid,dw_pageretr.DataObject, "show_sale", '1')) IF show_sale = 0 THEN THIS.Checked = FALSE ELSE THIS.Checked = TRUE END IF end event type cbx_show_finish from checkbox within w_outware_scll_salerqmtrl_ch integer x = 2898 integer y = 196 integer width = 631 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 string text = "显示已完成领料的明细" boolean checked = true end type event clicked;Int show_finish IF THIS.Checked THEN show_finish = 1 ELSE show_finish = 0 END IF f_SetProfileString (sys_empid,dw_pageretr.DataObject, "show_finish", String(show_finish)) cb_refresh.triggerevent(clicked!) end event event constructor;Int show_finish show_finish = Integer(f_ProfileString (sys_empid,dw_pageretr.DataObject, "show_finish", '1')) IF show_finish = 0 THEN THIS.Checked = FALSE ELSE THIS.Checked = TRUE END IF end event