$PBExportHeader$w_rp_mtrl_will_rqqty.srw forward global type w_rp_mtrl_will_rqqty from w_publ_easyq end type type cbx_1 from checkbox within w_rp_mtrl_will_rqqty end type type ddlb_scid from uo_ddlb_scid within w_rp_mtrl_will_rqqty end type type tab_1 from tab within w_rp_mtrl_will_rqqty end type type tabpage_5 from userobject within tab_1 end type type dw_rq_taskmx from u_dw_rbtnfilter within tabpage_5 end type type tabpage_5 from userobject within tab_1 dw_rq_taskmx dw_rq_taskmx end type type tabpage_1 from userobject within tab_1 end type type cb_4 from commandbutton within tabpage_1 end type type dw_2 from u_dw_rbtnfilter within tabpage_1 end type type tabpage_1 from userobject within tab_1 cb_4 cb_4 dw_2 dw_2 end type type tabpage_6 from userobject within tab_1 end type type dw_ware from u_dw_rbtnfilter within tabpage_6 end type type tabpage_6 from userobject within tab_1 dw_ware dw_ware end type type tabpage_2 from userobject within tab_1 end type type dw_3 from u_dw_rbtnfilter within tabpage_2 end type type tabpage_2 from userobject within tab_1 dw_3 dw_3 end type type tabpage_3 from userobject within tab_1 end type type dw_4 from u_dw_rbtnfilter within tabpage_3 end type type tabpage_3 from userobject within tab_1 dw_4 dw_4 end type type tabpage_4 from userobject within tab_1 end type type dw_5 from u_dw_rbtnfilter within tabpage_4 end type type tabpage_4 from userobject within tab_1 dw_5 dw_5 end type type tab_1 from tab within w_rp_mtrl_will_rqqty tabpage_5 tabpage_5 tabpage_1 tabpage_1 tabpage_6 tabpage_6 tabpage_2 tabpage_2 tabpage_3 tabpage_3 tabpage_4 tabpage_4 end type type cbx_ifminqty from checkbox within w_rp_mtrl_will_rqqty end type type cbx_ifnoallocqty from checkbox within w_rp_mtrl_will_rqqty end type type cbx_ifbuytask from checkbox within w_rp_mtrl_will_rqqty end type type cbx_iforder from checkbox within w_rp_mtrl_will_rqqty end type type cbx_ifwfjg from checkbox within w_rp_mtrl_will_rqqty end type type st_2 from statictext within w_rp_mtrl_will_rqqty end type type tv_1 from uo_tv_mtrltype within w_rp_mtrl_will_rqqty end type type p_resize from picture within w_rp_mtrl_will_rqqty end type type cbx_2 from checkbox within w_rp_mtrl_will_rqqty end type type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_rp_mtrl_will_rqqty end type type st_1 from statictext within w_rp_mtrl_will_rqqty end type type st_5 from statictext within w_rp_mtrl_will_rqqty end type type cb_billfunc from uo_imflatbutton within w_rp_mtrl_will_rqqty end type type cb_other from uo_imflatbutton within w_rp_mtrl_will_rqqty end type type cbx_ifrqqty from checkbox within w_rp_mtrl_will_rqqty end type type cbx_iftaskqty from checkbox within w_rp_mtrl_will_rqqty end type end forward global type w_rp_mtrl_will_rqqty from w_publ_easyq integer width = 3895 integer height = 2396 string title = "物料监控" event retrieve_mx ( ) event auto_requestbuy ( ) event auto_wfjg ( ) event auto_order ( ) event ue_view_mtrl_mx ( ) event ue_create_buytask ( ) event ue_retrieve_info ( ) event ue_create_buytask_view ( ) cbx_1 cbx_1 ddlb_scid ddlb_scid tab_1 tab_1 cbx_ifminqty cbx_ifminqty cbx_ifnoallocqty cbx_ifnoallocqty cbx_ifbuytask cbx_ifbuytask cbx_iforder cbx_iforder cbx_ifwfjg cbx_ifwfjg st_2 st_2 tv_1 tv_1 p_resize p_resize cbx_2 cbx_2 ddlb_mtrlorigin ddlb_mtrlorigin st_1 st_1 st_5 st_5 cb_billfunc cb_billfunc cb_other cb_other cbx_ifrqqty cbx_ifrqqty cbx_iftaskqty cbx_iftaskqty end type global w_rp_mtrl_will_rqqty w_rp_mtrl_will_rqqty type variables Int cur_mtrlorigin = 0 //当前显示物料来源 Int cur_mtrlprp = -1 Long cur_scid = 0 Long cur_scid_arr[] int cur_mtrlkind = -1 datawindow dw_order_ml,dw_buytask,dw_order,dw_wfjg datawindow dw_saletask, dw_ware String ls_handtype = '' end variables forward prototypes public function integer wf_cmpl_qty () end prototypes event retrieve_mx();Long li_row,li_mtrlid String ls_status,ls_woodcode,ls_pcode DateTime ld_dt ld_dt = DateTime(Date(em_1.Text),Time('23:59:59')) li_row = dw_1.GetRow() IF li_row <= 0 THEN dw_order_ml.Reset() dw_buytask.Reset() dw_order.Reset() dw_wfjg.Reset() dw_saletask.Reset() dw_ware.Reset() ELSE li_mtrlid = dw_1.Object.uv_mtrl_willuse_mtrlid[li_row] ls_status = dw_1.Object.uv_mtrl_willuse_status[li_row] ls_woodcode = dw_1.Object.uv_mtrl_willuse_woodcode[li_row] ls_pcode = dw_1.Object.uv_mtrl_willuse_pcode[li_row] dw_order_ml.Retrieve(cur_scid_arr,li_mtrlid,ls_status,ls_woodcode,ls_pcode,ld_dt) dw_buytask.Retrieve(cur_scid_arr,li_mtrlid,ls_status,ls_woodcode,ls_pcode,ld_dt) dw_order.Retrieve(cur_scid_arr,li_mtrlid,ls_status,ls_woodcode,ls_pcode,ld_dt) dw_wfjg.Retrieve(cur_scid_arr,li_mtrlid,ls_status,ls_woodcode,ls_pcode,ld_dt) dw_saletask.Retrieve(cur_scid_arr,li_mtrlid,ls_status,ls_woodcode,ls_pcode,ld_dt) dw_ware.Retrieve(cur_scid_arr,li_mtrlid,ls_status,ls_woodcode,ls_pcode) END IF end event event auto_requestbuy();Long i,cnt s_edit_index_tran s_tran //翻页功能窗口 传递参数使用 s_tran.if_retrieve_all = local_retrieve_all //是否一次RETRIEVE所有行 s_tran.work_mode = 0 //0-单纯编辑模式, 1-选择模式 s_tran.arg_pkid = 0 //目标定位PKID (备用) s_tran.arg_string_code = '' //查询列部分内容,用于初步筛选 s_tran.c_long = cur_scid s_tran.d_long = 1 s_tran.d_string = ddlb_scid.Text IF NOT f_power_ind(1053) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF dw_1.AcceptText() FOR i = 1 TO dw_1.RowCount() IF dw_1.Object.selectflag[i] = 1 THEN cnt++ s_tran.arr_long[cnt] = dw_1.Object.uv_mtrl_willuse_mtrlid[i] s_tran.arr_dec[cnt] = dw_1.Object.truerqqty[i] s_tran.arr_string[cnt] = dw_1.Object.uv_mtrl_willuse_status[i] s_tran.arr_string2[cnt] = dw_1.Object.uv_mtrl_willuse_woodcode[i] s_tran.arr_string3[cnt] = dw_1.Object.uv_mtrl_willuse_pcode[i] END IF NEXT IF cnt = 0 THEN MessageBox(publ_operator,'请选择物料') RETURN END IF //OpenWithParm(w_requestbuy,s_tran) end event event auto_wfjg();long i,cnt s_edit_index_tran s_tran //翻页功能窗口 传递参数使用 s_tran.if_retrieve_all = local_retrieve_all //是否一次RETRIEVE所有行 s_tran.work_mode = 0 //0-单纯编辑模式, 1-选择模式 s_tran.arg_pkid = 0 //目标定位PKID (备用) s_tran.arg_string_code = '' //查询列部分内容,用于初步筛选 s_tran.c_long = cur_scid s_tran.d_long = 1 s_tran.d_string = ddlb_scid.text if not f_power_ind(1251) then messagebox(publ_operator,'你没有使用权限！') return end if dw_1.accepttext() for i = 1 to dw_1.rowcount() if dw_1.object.selectflag[i]=1 then cnt++ s_tran.arr_long[cnt] = dw_1.object.uv_mtrl_willuse_mtrlid[i] s_tran.arr_dec[cnt] = dw_1.object.truerqqty[i] end if next if cnt = 0 then messagebox(publ_operator,'请选择物料') return end if //openwithparm(w_request_wfjg,s_tran) end event event auto_order();Long i,cnt s_edit_index_tran s_tran //翻页功能窗口 传递参数使用 s_tran.if_retrieve_all = local_retrieve_all //是否一次RETRIEVE所有行 s_tran.work_mode = 0 //0-单纯编辑模式, 1-选择模式 s_tran.arg_pkid = 0 //目标定位PKID (备用) s_tran.arg_string_code = '' //查询列部分内容,用于初步筛选 s_tran.c_long = cur_scid s_tran.d_long = 1 s_tran.d_string = ddlb_scid.Text IF NOT f_power_ind(35) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF dw_1.AcceptText() FOR i = 1 TO dw_1.RowCount() IF dw_1.Object.selectflag[i] = 1 THEN cnt++ s_tran.arr_long[cnt] = dw_1.Object.uv_mtrl_willuse_mtrlid[i] s_tran.arr_dec[cnt] = dw_1.Object.truerqqty[i] END IF NEXT IF cnt = 0 THEN MessageBox(publ_operator,'请选择物料') RETURN END IF //OpenWithParm(w_order_ml_add,s_tran) end event event ue_view_mtrl_mx();dw_1.AcceptText() Long ll_row Long ll_mtrlid string ls_mtrlcode ll_row = dw_1.GetRow() IF ll_row <= 0 THEN MessageBox('提示','请选择物料') RETURN END IF ll_mtrlid = dw_1.Object.uv_mtrl_willuse_mtrlid[ll_row] ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row] IF ll_mtrlid = 0 THEN MessageBox('提示','请选择物料') RETURN END IF f_view_mtrl_mx(ll_mtrlid,1) end event event ue_create_buytask();Long rslt = 1 String ls_msg = '' Long i,j, cnt Long ll_mtrlid Long sptid[] Long it_mx = 1 String arg_msg uo_buytask obj_task obj_task = Create uo_buytask obj_task.commit_transaction = sqlca uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price IF cur_scid < 0 THEN rslt = 0 arg_msg = "请先选择分部" GOTO ext END IF //确定供应商 FOR i = 1 To dw_1.RowCount() IF dw_1.Object.selectflag[i] = 1 And dw_1.Object.truerqqty[i] > 0 THEN FOR j = 1 To UpperBound(sptid) IF sptid[j] = dw_1.Object.u_mtrldef_dftsptid[i] THEN GOTO nxt END IF NEXT cnt ++ sptid[cnt] = dw_1.Object.u_mtrldef_dftsptid[i] END IF nxt: NEXT IF cnt = 0 THEN rslt = 0 arg_msg = "请选择已有默认供应商的缺料物料" GOTO ext END IF //按供应商生成订单 Long dftbanktypeid,dftmoneyid String ls_sptcode, ls_sptname FOR i = 1 To cnt //查询默认结算方式,默认币种 SELECT dftbanktypeid,dftmoneyid, sptcode,name INTO :dftbanktypeid,:dftmoneyid, :ls_sptcode, :ls_sptname FROM u_spt Where sptid = :sptid[i] Using sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询供应商信息失败,ID['+String(sptid[i])+'],'+sqlca.SQLErrText GOTO ext END IF IF dftbanktypeid = 0 THEN rslt = 0 arg_msg = '供应商编号['+ls_sptcode+']未定义默认结算方式' GOTO ext END IF IF dftmoneyid = 0 THEN rslt = 0 arg_msg = '供应商编号['+ls_sptcode+']未定义默认币种' GOTO ext END IF s_buytaskmx_arr s_buy IF obj_task.newbegin(cur_scid,arg_msg) = 0 THEN // rslt = 0 GOTO ext END IF obj_task.requiredate = DateTime(Today()) obj_task.Assign_emp = publ_operator obj_task.Kind = 0 obj_task.sptid = sptid[i] obj_task.relcode = '' obj_task.banktypeid = dftbanktypeid obj_task.train = '' obj_task.billtype = 0 obj_task.moneyid = dftmoneyid obj_task.mrate = f_get_mrate( dftmoneyid) FOR j = 1 To dw_1.RowCount() IF dw_1.Object.selectflag[j] = 1 And dw_1.Object.truerqqty[j] > 0 And sptid[i] = dw_1.Object.u_mtrldef_dftsptid[j] THEN it_mx++ s_buy.MtrlID[it_mx] = dw_1.Object.uv_mtrl_willuse_mtrlid[j] s_buy.mtrlcode[it_mx] = dw_1.Object.u_mtrldef_mtrlcode[j] s_buy.status[it_mx] = dw_1.Object.uv_mtrl_willuse_status[j] s_buy.woodcode[it_mx] = dw_1.Object.uv_mtrl_willuse_woodcode[j] s_buy.pcode[it_mx] = dw_1.Object.uv_mtrl_willuse_pcode[j] s_buy.unit[it_mx] = dw_1.Object.u_mtrldef_unit[j] s_buy.mrp_unit[it_mx] = dw_1.Object.u_mtrldef_mrp_unit[j] s_buy.unit_buy[it_mx] = dw_1.Object.u_mtrldef_unit_buy[j] s_buy.rate_buy[it_mx] = dw_1.Object.u_mtrldef_rate_buy[j] s_buy.unit_scll[it_mx] = dw_1.Object.u_mtrldef_unit_scll[j] s_buy.rate_scll[it_mx] = dw_1.Object.u_mtrldef_rate_scll[j] s_buy.unit_sale[it_mx] = dw_1.Object.u_mtrldef_unit_sale[j] s_buy.rate_sale[it_mx] = dw_1.Object.u_mtrldef_rate_sale[j] s_buy.buyunit[it_mx] = dw_1.Object.u_mtrldef_buyunit[j] s_buy.uqty[it_mx] = dw_1.Object.truerqqty[j] CHOOSE CASE s_buy.buyunit[it_mx] //mrp_unit CASE 0 s_buy.rate[it_mx] = 1 CASE 1 IF s_buy.rate_buy[it_mx] = 0 THEN s_buy.rate_buy[it_mx] = 1 s_buy.uqty[it_mx] = s_buy.uqty[it_mx] / s_buy.rate_buy[it_mx] s_buy.rate[it_mx] = s_buy.rate_buy[it_mx] s_buy.unit[it_mx] = s_buy.unit_buy[it_mx] CASE 2 s_buy.unit[it_mx] = s_buy.unit_scll[it_mx] s_buy.rate[it_mx] = s_buy.rate_scll[it_mx] IF s_buy.rate_scll[it_mx] = 0 THEN s_buy.rate_scll[it_mx] = 1 s_buy.uqty[it_mx] = s_buy.uqty[it_mx] / s_buy.rate_scll[it_mx] CASE 3 s_buy.unit[it_mx] = s_buy.unit_sale[it_mx] s_buy.rate[it_mx] = s_buy.rate_sale[it_mx] IF s_buy.rate_sale[it_mx] = 0 THEN s_buy.rate_sale[it_mx] = 1 s_buy.uqty[it_mx] = s_buy.uqty[it_mx] / s_buy.rate_sale[it_mx] END CHOOSE Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate,ld_rate String ls_unit ls_unit = s_buy.unit[it_mx] // IF uo_sptprice.uf_getmtrlsptprice(sptid[i],s_buy.MtrlID[it_mx],ls_unit,s_buy.status[it_mx],s_buy.woodcode[it_mx],s_buy.pcode[it_mx],0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) = 1 THEN // s_buy.uprice[it_mx] = ls_1stnewcost // // s_buy.rate[it_mx] = ls_1stzqrate // ELSE // s_buy.uprice[it_mx] = 0 // END IF //新的取价模式 IF uo_sptprice.uof_get_mtrl_buyprice(sptid[i],s_buy.MtrlID[it_mx],ls_unit,& s_buy.status[it_mx],s_buy.woodcode[it_mx],s_buy.pcode[it_mx],0,& ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) = 1 THEN s_buy.uprice[it_mx] = ls_1stnewcost // s_buy.rate[it_mx] = ls_1stzqrate ELSE s_buy.uprice[it_mx] = 0 END IF SELECT top 1 storageid INTO :s_buy.storageid[it_mx] FROM u_mtrl_storage Where MtrlID = :s_buy.MtrlID[it_mx] Using sqlca; IF sqlca.SQLCode <> 0 THEN SELECT top 1 storageid INTO :s_buy.storageid[it_mx] FROM u_buytaskmx WHERE mtrlid = :s_buy.MtrlID[it_mx] Order By taskid Desc Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = s_buy.mtrlcode[it_mx] + '请先设置存放仓库' END IF END IF IF obj_task.acceptmx(0,& 0,& '',& s_buy.MtrlID[it_mx],& s_buy.uqty[it_mx],& 0,& s_buy.uprice[it_mx],& 1,& 0,& '',& s_buy.mtrlcode[it_mx],& arg_msg,& j,& DateTime(Today()),& s_buy.storageid[it_mx],& s_buy.status[it_mx],& s_buy.woodcode[it_mx],& s_buy.pcode[it_mx],& s_buy.unit[it_mx],& s_buy.rate[it_mx],& 0,& 0,& '',& '',& 0,0,'','','','') = 0 THEN rslt = 0 GOTO ext END IF END IF NEXT IF obj_task.savesubmit(publ_operator,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF ls_msg = '' THEN ls_msg = obj_task.taskcode ELSE ls_msg += ',' + obj_task.taskcode END IF NEXT IF arg_msg = '' THEN arg_msg = '没有采购订单生成' ELSE arg_msg = '生成采购订单:' + ls_msg END IF //arg_msg = ls_msg ext: IF rslt = 0 THEN ROLLBACK Using sqlca; MessageBox("Error",arg_msg) ELSE COMMIT Using sqlca; MessageBox("系统提示",arg_msg) END IF end event event ue_retrieve_info();Long ll_row Long ll_mtrlid ll_row = dw_1.GetRow() IF ll_row <= 0 THEN ll_mtrlid = 0 ELSE ll_mtrlid = dw_1.Object.uv_mtrl_willuse_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_create_buytask_view();//辅助生成采购订单 IF Not f_power_ind(93) THEN MessageBox('提示',sys_msg_pow, Information!, OK! ) RETURN END IF Int rslt = 1 String arg_msg //Long cnt //String ls_msg Long i, it_mx Long ll_storageid IF cur_scid < 0 THEN MessageBox('系统提示','请先选择分部!',Information!,OK!) RETURN END IF dw_1.AcceptText() i = dw_1.Find('selectflag = 1', 1, dw_1.RowCount() ) IF i <= 0 THEN MessageBox('系统提示','请选定当前目标订单!',Information!,OK!) RETURN END IF s_buytaskmx_arr s_buy FOR i = 1 To dw_1.RowCount() IF dw_1.Object.selectflag[i] = 1 THEN it_mx++ s_buy.MtrlID[it_mx] = dw_1.Object.uv_mtrl_willuse_mtrlid[i] s_buy.mtrlcode[it_mx] = dw_1.Object.u_mtrldef_mtrlcode[i] s_buy.mtrlname[it_mx] = dw_1.Object.u_mtrldef_mtrlname[i] s_buy.mtrlmode[it_mx] = dw_1.Object.u_mtrldef_mtrlmode[i] s_buy.zxmtrlmode[it_mx] = dw_1.Object.u_mtrldef_zxmtrlmode[i] s_buy.mtrlsectype[it_mx] = dw_1.Object.u_mtrldef_mtrlsectype[i] s_buy.status[it_mx] = dw_1.Object.uv_mtrl_willuse_status[i] s_buy.woodcode[it_mx] = dw_1.Object.uv_mtrl_willuse_woodcode[i] s_buy.pcode[it_mx] = dw_1.Object.uv_mtrl_willuse_pcode[i] s_buy.unit[it_mx] = dw_1.Object.u_mtrldef_unit[i] s_buy.mrp_unit[it_mx] = dw_1.Object.u_mtrldef_mrp_unit[i] s_buy.unit_buy[it_mx] = dw_1.Object.u_mtrldef_unit_buy[i] s_buy.rate_buy[it_mx] = dw_1.Object.u_mtrldef_rate_buy[i] s_buy.unit_scll[it_mx] = dw_1.Object.u_mtrldef_unit_scll[i] s_buy.rate_scll[it_mx] = dw_1.Object.u_mtrldef_rate_scll[i] s_buy.unit_sale[it_mx] = dw_1.Object.u_mtrldef_unit_sale[i] s_buy.rate_sale[it_mx] = dw_1.Object.u_mtrldef_rate_sale[i] s_buy.buyunit[it_mx] = dw_1.Object.u_mtrldef_buyunit[i] if dw_1.Object.truerqqty[i] > 0 then s_buy.uqty[it_mx] = dw_1.Object.truerqqty[i] s_buy.qty[it_mx] = dw_1.Object.truerqqty[i] else s_buy.uqty[it_mx] = 0 s_buy.qty[it_mx] = 0 end if CHOOSE CASE s_buy.buyunit[it_mx] CASE 0 s_buy.rate[it_mx] = 1 CASE 1 IF s_buy.rate_buy[it_mx] = 0 THEN s_buy.rate_buy[it_mx] = 1 s_buy.uqty[it_mx] = s_buy.uqty[it_mx] / s_buy.rate_buy[it_mx] s_buy.rate[it_mx] = s_buy.rate_buy[it_mx] s_buy.unit[it_mx] = s_buy.unit_buy[it_mx] CASE 2 s_buy.unit[it_mx] = s_buy.unit_scll[it_mx] s_buy.rate[it_mx] = s_buy.rate_scll[it_mx] IF s_buy.rate_scll[it_mx] = 0 THEN s_buy.rate_scll[it_mx] = 1 s_buy.uqty[it_mx] = s_buy.uqty[it_mx] / s_buy.rate_scll[it_mx] CASE 3 s_buy.unit[it_mx] = s_buy.unit_sale[it_mx] s_buy.rate[it_mx] = s_buy.rate_sale[it_mx] IF s_buy.rate_sale[it_mx] = 0 THEN s_buy.rate_sale[it_mx] = 1 s_buy.uqty[it_mx] = s_buy.uqty[it_mx] / s_buy.rate_sale[it_mx] END CHOOSE END IF NEXT s_edit_index_tran s_open IF Not IsValid(w_buytask) THEN OpenWithParm(w_buytask,s_open) w_buytask.ddlb_scid.uf_selectsc(cur_scid) w_buytask.cb_add.TriggerEvent(Clicked!) w_buytask.dw_uc.Object.u_buytask_billtype[w_buytask.dw_uc.GetRow()] = 0 w_buytask.TriggerEvent('ue_f9') w_buytask.wf_autoaddmx_will_rq(s_buy) END IF end event public function integer wf_cmpl_qty ();Long i Long ll_mtrlid,ll_storageid String ls_status_uc,arg_msg,arg_lsg,ls_mtrlcode Decimal ld_ref_qty Open(w_sys_wait_jdt) //初始化进度条 w_sys_wait_jdt.Show() w_sys_wait_jdt.wf_accepttol(dw_1.RowCount()) //初始化进度条1 FOR i = 1 TO dw_1.RowCount() ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[i] w_sys_wait_jdt.st_msg.Text = "处理:"+ls_mtrlcode //进度信息 ll_mtrlid = dw_1.Object.uv_mtrl_willuse_mtrlid[i] ll_storageid = -1 ls_status_uc = dw_1.Object.uv_mtrl_willuse_status[i] IF f_cmp_di_qty(ll_mtrlid,ll_storageid,ls_status_uc,ld_ref_qty,arg_lsg,arg_msg) = 0 THEN CONTINUE; END IF dw_1.Object.install_cmplqty[i] = ld_ref_qty w_sys_wait_jdt.wf_inc(i) //进度 NEXT Close(w_sys_wait_jdt) RETURN 1 end function on w_rp_mtrl_will_rqqty.create int iCurrent call super::create this.cbx_1=create cbx_1 this.ddlb_scid=create ddlb_scid this.tab_1=create tab_1 this.cbx_ifminqty=create cbx_ifminqty this.cbx_ifnoallocqty=create cbx_ifnoallocqty this.cbx_ifbuytask=create cbx_ifbuytask this.cbx_iforder=create cbx_iforder this.cbx_ifwfjg=create cbx_ifwfjg this.st_2=create st_2 this.tv_1=create tv_1 this.p_resize=create p_resize this.cbx_2=create cbx_2 this.ddlb_mtrlorigin=create ddlb_mtrlorigin this.st_1=create st_1 this.st_5=create st_5 this.cb_billfunc=create cb_billfunc this.cb_other=create cb_other this.cbx_ifrqqty=create cbx_ifrqqty this.cbx_iftaskqty=create cbx_iftaskqty iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cbx_1 this.Control[iCurrent+2]=this.ddlb_scid this.Control[iCurrent+3]=this.tab_1 this.Control[iCurrent+4]=this.cbx_ifminqty this.Control[iCurrent+5]=this.cbx_ifnoallocqty this.Control[iCurrent+6]=this.cbx_ifbuytask this.Control[iCurrent+7]=this.cbx_iforder this.Control[iCurrent+8]=this.cbx_ifwfjg this.Control[iCurrent+9]=this.st_2 this.Control[iCurrent+10]=this.tv_1 this.Control[iCurrent+11]=this.p_resize this.Control[iCurrent+12]=this.cbx_2 this.Control[iCurrent+13]=this.ddlb_mtrlorigin this.Control[iCurrent+14]=this.st_1 this.Control[iCurrent+15]=this.st_5 this.Control[iCurrent+16]=this.cb_billfunc this.Control[iCurrent+17]=this.cb_other this.Control[iCurrent+18]=this.cbx_ifrqqty this.Control[iCurrent+19]=this.cbx_iftaskqty end on on w_rp_mtrl_will_rqqty.destroy call super::destroy destroy(this.cbx_1) destroy(this.ddlb_scid) destroy(this.tab_1) destroy(this.cbx_ifminqty) destroy(this.cbx_ifnoallocqty) destroy(this.cbx_ifbuytask) destroy(this.cbx_iforder) destroy(this.cbx_ifwfjg) destroy(this.st_2) destroy(this.tv_1) destroy(this.p_resize) destroy(this.cbx_2) destroy(this.ddlb_mtrlorigin) destroy(this.st_1) destroy(this.st_5) destroy(this.cb_billfunc) destroy(this.cb_other) destroy(this.cbx_ifrqqty) destroy(this.cbx_iftaskqty) end on event resize;ln_bar.endx = this.width ln_bar2.endx = this.width ln_1.endx = this.width ln_2.endx = this.width ln_3.endx = this.width ln_4.endx = this.width r_bar.width = this.width Long w_width,w_height w_width = 3600 w_height = 2300 IF newwidth < w_width THEN THIS.Width = w_width IF newheight < w_height THEN THIS.Height = w_height dw_1.Width = THIS.Width - dw_1.X - 60 dw_1.Height = THIS.Height - (w_height - 1020) p_resize.Height = dw_1.Height tv_1.Height = dw_1.Height tab_1.Width = THIS.Width - (w_width - 3543) dw_order_ml.Width = THIS.Width - (w_width - 3502) dw_buytask.Width = THIS.Width - (w_width - 3502) dw_order.Width = THIS.Width - (w_width - 3502) dw_wfjg.Width = THIS.Width - (w_width - 3502) dw_saletask.Width = THIS.Width - (w_width - 3502) dw_ware.Width = THIS.Width - (w_width - 3502) tab_1.Y = THIS.Height - (w_height - 1444) end event event ue_before_open;call super::ue_before_open;if_ue_filter = True if_ue_sort = True if_ue_sentdataout = True IF sys_version = 802001 THEN //商业版 cbx_iforder.Visible = False cbx_ifwfjg.Visible = False tab_1.tabpage_1.Visible = False tab_1.tabpage_3.Visible = False tab_1.tabpage_4.Visible = False END IF dw_order_ml = tab_1.tabpage_1.dw_2 dw_buytask = tab_1.tabpage_2.dw_3 dw_order = tab_1.tabpage_3.dw_4 dw_wfjg = tab_1.tabpage_4.dw_5 dw_saletask = tab_1.tabpage_5.dw_rq_taskmx dw_ware = tab_1.tabpage_6.dw_ware dw_order_ml.SetTransObject(sqlca) dw_buytask.SetTransObject(sqlca) dw_order.SetTransObject(sqlca) dw_wfjg.SetTransObject(sqlca) dw_saletask.SetTransObject(sqlca) dw_ware.SetTransObject(sqlca) p_resize.PictureName = ProfileString(SYS_INIFILENAME, "w_rp_mtrl_will_rqqty", "p_resize", 'w_resize_2.bmp') IF p_resize.PictureName = 'w_resize_2.bmp' THEN p_resize.X = 891 dw_1.X = 928 tv_1.Visible = TRUE ELSE p_resize.X = 0 dw_1.X = p_resize.Width + 5 tv_1.Visible = FALSE END IF THIS.TriggerEvent(Resize!) end event event close;call super::close;SetProfileString(SYS_INIFILENAME,"w_rp_mtrl_will_rqqty","p_resize",p_resize.PictureName) end event event ue_before_openretrieve;call super::ue_before_openretrieve;EM_1.Text = String(RelativeDate ( Today(), 30 ),'YYYY-MM-DD') cur_mtrlorigin = integer(f_ProfileString (sys_empid,dw_1.DataObject, "ddlb_mtrlorigin",'0')) ddlb_mtrlorigin.uf_setitem(cur_mtrlorigin) end event event ue_sentdataout;IF NOT f_power_ind(1830) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF OpenWithParm(w_sentdataout,DW_1) end event type cb_func from w_publ_easyq`cb_func within w_rp_mtrl_will_rqqty end type type cb_exit from w_publ_easyq`cb_exit within w_rp_mtrl_will_rqqty integer x = 1477 end type type cb_2 from w_publ_easyq`cb_2 within w_rp_mtrl_will_rqqty integer x = 1175 end type type cb_psetup from w_publ_easyq`cb_psetup within w_rp_mtrl_will_rqqty boolean visible = false integer x = 1394 integer y = 512 end type type cb_1 from w_publ_easyq`cb_1 within w_rp_mtrl_will_rqqty end type event cb_1::clicked;call super::clicked;Int li_qty,li_ifminqty,li_ifnoallocqty,li_ifbuytask,li_iforder,li_ifwfjg,li_ifrqqty,li_iftaskqty DateTime ld_dt ld_dt = DateTime(Date(em_1.Text),Time('23:59:59')) IF cbx_1.Checked THEN li_qty = 1 IF cbx_ifminqty.Checked THEN li_ifminqty = 1 IF cbx_ifnoallocqty.Checked THEN li_ifnoallocqty = 1 IF cbx_ifbuytask.Checked THEN li_ifbuytask = 1 IF cbx_iforder.Checked THEN li_iforder = 1 IF cbx_ifwfjg.Checked THEN li_ifwfjg = 1 if cbx_ifrqqty.checked then li_ifrqqty = 1 if cbx_iftaskqty.checked then li_iftaskqty = 1 DELETE FROM u_parm_pay Where id = 9 ; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','数据库操作失败！') ROLLBACK; RETURN END IF INSERT INTO u_parm_pay (firstdate,enddate,id) Values (:ld_dt,:ld_dt,9); IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','数据库操作失败') ROLLBACK; RETURN END IF COMMIT; dw_1.Retrieve(cur_scid_arr,cur_mtrlorigin,li_qty,li_ifminqty,li_ifnoallocqty,li_ifbuytask,li_iforder,li_ifwfjg,ls_handtype,cur_mtrlkind,li_ifrqqty,li_iftaskqty) PARENT.TriggerEvent('retrieve_mx') wf_cmpl_qty() //计算可装数 end event type st_3 from w_publ_easyq`st_3 within w_rp_mtrl_will_rqqty boolean visible = false integer x = 1138 integer y = 524 integer width = 142 string text = "日期:" end type type st_4 from w_publ_easyq`st_4 within w_rp_mtrl_will_rqqty boolean visible = false integer x = 1175 integer y = 640 end type type em_1 from w_publ_easyq`em_1 within w_rp_mtrl_will_rqqty integer x = 2181 integer y = 188 integer width = 398 end type type em_2 from w_publ_easyq`em_2 within w_rp_mtrl_will_rqqty boolean visible = false integer x = 1083 integer y = 624 boolean enabled = false end type type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_mtrl_will_rqqty boolean visible = false integer x = 1902 integer y = 512 end type type cbx_yl from w_publ_easyq`cbx_yl within w_rp_mtrl_will_rqqty integer x = 1678 integer y = 12 end type type dw_1 from w_publ_easyq`dw_1 within w_rp_mtrl_will_rqqty integer x = 928 integer width = 2903 integer height = 1020 string title = "缺料明细" string dataobject = "dw_rp_mtrl_will_rqqty" boolean maxbox = true end type event dw_1::rowfocuschanged;call super::rowfocuschanged;PARENT.TriggerEvent('retrieve_mx') PARENT.TriggerEvent('ue_retrieve_info') end event event dw_1::clicked;call super::clicked;IF row > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(row,TRUE) this.setrow(row) END IF end event event dw_1::doubleclicked;call super::doubleclicked;parent.triggerevent("ue_view_mtrl_mx") end event type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_mtrl_will_rqqty integer y = 664 end type type sle_cust from w_publ_easyq`sle_cust within w_rp_mtrl_will_rqqty integer y = 664 end type type st_mtrl from w_publ_easyq`st_mtrl within w_rp_mtrl_will_rqqty integer y = 680 end type type st_cust from w_publ_easyq`st_cust within w_rp_mtrl_will_rqqty integer y = 680 end type type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_mtrl_will_rqqty boolean visible = true integer x = 1678 integer y = 96 end type type pb_em1 from w_publ_easyq`pb_em1 within w_rp_mtrl_will_rqqty integer x = 2587 integer y = 188 end type type pb_em2 from w_publ_easyq`pb_em2 within w_rp_mtrl_will_rqqty boolean visible = false integer x = 1422 integer y = 608 end type type pb_2 from w_publ_easyq`pb_2 within w_rp_mtrl_will_rqqty boolean visible = false integer x = 1531 integer y = 608 end type type cb_help from w_publ_easyq`cb_help within w_rp_mtrl_will_rqqty integer x = 1326 end type type cb_copyself from w_publ_easyq`cb_copyself within w_rp_mtrl_will_rqqty integer x = 919 end type type gb_1 from w_publ_easyq`gb_1 within w_rp_mtrl_will_rqqty integer x = 1138 integer y = 676 integer width = 1696 integer height = 60 long backcolor = 134217739 end type type ln_bar from w_publ_easyq`ln_bar within w_rp_mtrl_will_rqqty end type type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_mtrl_will_rqqty end type type r_bar from w_publ_easyq`r_bar within w_rp_mtrl_will_rqqty end type type ln_1 from w_publ_easyq`ln_1 within w_rp_mtrl_will_rqqty end type type ln_2 from w_publ_easyq`ln_2 within w_rp_mtrl_will_rqqty end type type ln_3 from w_publ_easyq`ln_3 within w_rp_mtrl_will_rqqty end type type ln_4 from w_publ_easyq`ln_4 within w_rp_mtrl_will_rqqty end type type cbx_1 from checkbox within w_rp_mtrl_will_rqqty integer x = 1385 integer y = 200 integer width = 521 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 string text = "只显示缺料物料" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "ifqty", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "ifqty", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event type ddlb_scid from uo_ddlb_scid within w_rp_mtrl_will_rqqty integer x = 155 integer y = 188 integer width = 558 integer height = 544 integer taborder = 90 boolean bringtotop = true end type event constructor;call super::constructor;cur_scid=this.uo_scid cur_scid_arr = THIS.uo_scid_arr end event event selectionchanged;call super::selectionchanged;cur_scid=this.uo_scid cur_scid_arr = THIS.uo_scid_arr parent.triggerevent("retrieve_pageretr") end event type tab_1 from tab within w_rp_mtrl_will_rqqty integer y = 1444 integer width = 3826 integer height = 704 integer taborder = 80 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_5 tabpage_5 tabpage_1 tabpage_1 tabpage_6 tabpage_6 tabpage_2 tabpage_2 tabpage_3 tabpage_3 tabpage_4 tabpage_4 end type on tab_1.create this.tabpage_5=create tabpage_5 this.tabpage_1=create tabpage_1 this.tabpage_6=create tabpage_6 this.tabpage_2=create tabpage_2 this.tabpage_3=create tabpage_3 this.tabpage_4=create tabpage_4 this.Control[]={this.tabpage_5,& this.tabpage_1,& this.tabpage_6,& this.tabpage_2,& this.tabpage_3,& this.tabpage_4} end on on tab_1.destroy destroy(this.tabpage_5) destroy(this.tabpage_1) destroy(this.tabpage_6) destroy(this.tabpage_2) destroy(this.tabpage_3) destroy(this.tabpage_4) end on type tabpage_5 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3790 integer height = 592 long backcolor = 134217739 string text = "订单需求明细" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_rq_taskmx dw_rq_taskmx end type on tabpage_5.create this.dw_rq_taskmx=create dw_rq_taskmx this.Control[]={this.dw_rq_taskmx} end on on tabpage_5.destroy destroy(this.dw_rq_taskmx) end on type dw_rq_taskmx from u_dw_rbtnfilter within tabpage_5 integer width = 3502 integer height = 592 string dataobject = "dw_rp_mtrl_will_rqqty_mx_saletask" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type tabpage_1 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3790 integer height = 592 long backcolor = 134217739 string text = "生产需求明细" long tabbackcolor = 134217739 long picturemaskcolor = 536870912 cb_4 cb_4 dw_2 dw_2 end type on tabpage_1.create this.cb_4=create cb_4 this.dw_2=create dw_2 this.Control[]={this.cb_4,& this.dw_2} end on on tabpage_1.destroy destroy(this.cb_4) destroy(this.dw_2) end on type cb_4 from commandbutton within tabpage_1 integer y = 4 integer width = 402 integer height = 72 integer taborder = 20 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "修改需求日期" end type event clicked; s_rp_mtrl_will_rqqty_rqdate_mod s_rqdate Long ll_row DateTime ld_dt ld_dt = DateTime(Date(em_1.Text),Time('23:59:59')) ll_row = dw_1.GetRow() IF ll_row <= 0 THEN RETURN s_rqdate.scid = cur_scid_arr s_rqdate.mtrlid = dw_1.Object.uv_mtrl_willuse_mtrlid[ll_row] s_rqdate.status = dw_1.Object.uv_mtrl_willuse_status[ll_row] s_rqdate.woodcode = dw_1.Object.uv_mtrl_willuse_woodcode[ll_row] s_rqdate.pcode = dw_1.Object.uv_mtrl_willuse_pcode[ll_row] s_rqdate.rqdate = ld_dt OpenWithParm(w_rp_mtrl_will_rqqty_rqdate_mod,s_rqdate) PARENT.GetParent().GetParent().TriggerEvent('retrieve_mx') end event type dw_2 from u_dw_rbtnfilter within tabpage_1 integer y = 80 integer width = 3502 integer height = 512 integer taborder = 20 string dataobject = "dw_rp_mtrl_will_rqqty_mx_order_ml" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type tabpage_6 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3790 integer height = 592 long backcolor = 134217739 string text = "库存明细" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_ware dw_ware end type on tabpage_6.create this.dw_ware=create dw_ware this.Control[]={this.dw_ware} end on on tabpage_6.destroy destroy(this.dw_ware) end on type dw_ware from u_dw_rbtnfilter within tabpage_6 integer width = 3081 integer height = 592 string dataobject = "dw_rp_mtrl_will_rqqty_mx_mtrlware" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type tabpage_2 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3790 integer height = 592 long backcolor = 134217739 string text = "采购未到数" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_3 dw_3 end type on tabpage_2.create this.dw_3=create dw_3 this.Control[]={this.dw_3} end on on tabpage_2.destroy destroy(this.dw_3) end on type dw_3 from u_dw_rbtnfilter within tabpage_2 integer width = 3502 integer height = 592 integer taborder = 20 string dataobject = "dw_rp_mtrl_will_rqqty_mx_buytask" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type tabpage_3 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3790 integer height = 592 long backcolor = 134217739 string text = "计划未完成数" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_4 dw_4 end type on tabpage_3.create this.dw_4=create dw_4 this.Control[]={this.dw_4} end on on tabpage_3.destroy destroy(this.dw_4) end on type dw_4 from u_dw_rbtnfilter within tabpage_3 integer width = 3488 integer height = 592 integer taborder = 20 string dataobject = "dw_rp_mtrl_will_rqqty_mx_order" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type tabpage_4 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3790 integer height = 592 long backcolor = 134217739 string text = "外协未完成数" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_5 dw_5 end type on tabpage_4.create this.dw_5=create dw_5 this.Control[]={this.dw_5} end on on tabpage_4.destroy destroy(this.dw_5) end on type dw_5 from u_dw_rbtnfilter within tabpage_4 integer width = 3502 integer height = 592 integer taborder = 20 string dataobject = "dw_rp_mtrl_will_rqqty_mx_wfjg" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type cbx_ifminqty from checkbox within w_rp_mtrl_will_rqqty integer x = 270 integer y = 316 integer width = 411 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 string text = "考虑库存下限" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "ifminqty", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "ifminqty", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event type cbx_ifnoallocqty from checkbox within w_rp_mtrl_will_rqqty integer x = 727 integer y = 316 integer width = 402 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 string text = "考虑库存数" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "ifnoallocqty", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "ifnoallocqty", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event type cbx_ifbuytask from checkbox within w_rp_mtrl_will_rqqty integer x = 1175 integer y = 316 integer width = 466 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 string text = "考虑采购未到数" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "ifbuytask", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "ifbuytask", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event type cbx_iforder from checkbox within w_rp_mtrl_will_rqqty integer x = 1687 integer y = 316 integer width = 521 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 string text = "考虑生产未完成数" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "iforder", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "iforder", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event type cbx_ifwfjg from checkbox within w_rp_mtrl_will_rqqty integer x = 2254 integer y = 316 integer width = 521 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 string text = "考虑外协未完成数" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "ifwfjg", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "ifwfjg", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event type st_2 from statictext within w_rp_mtrl_will_rqqty integer x = 1911 integer y = 208 integer width = 256 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 type tv_1 from uo_tv_mtrltype within w_rp_mtrl_will_rqqty integer y = 412 integer width = 887 integer height = 1020 integer taborder = 70 boolean bringtotop = true integer textsize = -9 fontcharset fontcharset = gb2312charset! fontfamily fontfamily = anyfont! string facename = "宋体" end type event selectionchanged;call super::selectionchanged;ls_handtype = THIS.uo_cur_info.handtype ls_handtype = ls_handtype + '%' cb_1.triggerevent(clicked!) end event type p_resize from picture within w_rp_mtrl_will_rqqty integer x = 891 integer y = 412 integer width = 32 integer height = 1020 boolean bringtotop = true string pointer = "HyperLink!" string picturename = "w_resize_2.bmp" boolean focusrectangle = false end type event clicked;IF THIS.picturename = 'w_resize_1.bmp' THEN THIS.picturename = 'w_resize_2.bmp' THIS.X = 891 dw_1.X = 928 tv_1.Visible = TRUE ELSE THIS.picturename = 'w_resize_1.bmp' THIS.X = 0 dw_1.X = p_resize.Width + 5 tv_1.Visible = FALSE END IF PARENT.TriggerEvent(Resize!) end event type cbx_2 from checkbox within w_rp_mtrl_will_rqqty integer x = 41 integer y = 316 integer width = 206 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 16711680 long backcolor = 134217739 string text = "全选" end type event clicked;Long ll_i IF THIS.Checked THEN FOR ll_i = 1 TO dw_1.RowCount() dw_1.Object.selectflag[ll_i] = 1 NEXT ELSE FOR ll_i = 1 TO dw_1.RowCount() dw_1.Object.selectflag[ll_i] = 0 NEXT END IF end event type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_rp_mtrl_will_rqqty integer x = 859 integer y = 188 integer width = 457 integer taborder = 20 boolean bringtotop = true end type event selectionchanged;call super::selectionchanged;cur_mtrlorigin = this.uo_mtrlorigin //SetProfileString (sys_inifilename,dw_1.DATAOBJECT, "ddlb_mtrlorigin",string(cur_mtrlorigin)) f_SetProfileString (sys_empid,dw_1.DataObject, "ddlb_mtrlorigin",String(cur_mtrlorigin)) cb_1.triggerevent(clicked!) end event type st_1 from statictext within w_rp_mtrl_will_rqqty integer x = 18 integer y = 204 integer width = 137 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 = "分部" boolean focusrectangle = false end type type st_5 from statictext within w_rp_mtrl_will_rqqty integer x = 722 integer y = 204 integer width = 137 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 = "来源" boolean focusrectangle = false end type type cb_billfunc from uo_imflatbutton within w_rp_mtrl_will_rqqty integer x = 302 integer width = 256 integer height = 164 integer taborder = 20 boolean bringtotop = true string text = "辅助功能" string normalpicname = "update.BMP" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr menustr = "Text=辅助生成采购订单~tEvent=ue_create_buytask" menustr = menustr + "|" + "Text=辅助建立采购订单~tEvent=ue_create_buytask_view" //menustr = menustr + "|" + "Text=辅助生成外协订单~tEvent=ue_create_orderwfjg" 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 cb_other from uo_imflatbutton within w_rp_mtrl_will_rqqty integer x = 558 integer width = 361 integer height = 164 integer taborder = 30 boolean bringtotop = true string text = "物料相关查询" string normalpicname = "imexport.BMP" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;Long ll_row ll_row = dw_1.GetRow() IF ll_row <= 0 THEN MessageBox('提示','请选择物料', Information!, OK! ) RETURN END IF Long ll_mtrlid ll_mtrlid = dw_1.Object.uv_mtrl_willuse_mtrlid[ll_row] 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) ELSE OpenWithParm(w_mtrl_info,ll_mtrlid) END IF end event type cbx_ifrqqty from checkbox within w_rp_mtrl_will_rqqty integer x = 2825 integer y = 316 integer width = 521 integer height = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 134217739 string text = "考虑生产需求数" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "ifrqqty", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "ifrqqty", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event type cbx_iftaskqty from checkbox within w_rp_mtrl_will_rqqty integer x = 3355 integer y = 312 integer width = 466 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 string text = "考虑订单需求数" boolean checked = true end type event clicked;int li_if if this.checked then li_if=1 else li_if=0 end if f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "iftaskqty", string(li_if)) cb_1.triggerevent(clicked!) end event event constructor;int li_if li_if=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "iftaskqty", '1')) if li_if =0 then this.checked=false else this.checked=true end if end event