$PBExportHeader$w_order_ml_rqmtrl_chng.srw forward global type w_order_ml_rqmtrl_chng from w_publ_1ton_share_detail end type type st_2 from statictext within w_order_ml_rqmtrl_chng end type type ddlb_status from dropdownlistbox within w_order_ml_rqmtrl_chng end type type ddlb_scid from uo_ddlb_scid within w_order_ml_rqmtrl_chng end type type st_3 from statictext within w_order_ml_rqmtrl_chng end type type dw_child2 from u_dw_rbtnfilter within w_order_ml_rqmtrl_chng end type end forward global type w_order_ml_rqmtrl_chng from w_publ_1ton_share_detail string title = "增料单" boolean maxbox = true windowstate windowstate = maximized! event insert_childrow ( ) event ue_p_wrkgrpid ( ) event insert_childrow2 ( ) event ue_add_bom ( ) event ue_p_str ( ) st_2 st_2 ddlb_status ddlb_status ddlb_scid ddlb_scid st_3 st_3 dw_child2 dw_child2 end type global w_order_ml_rqmtrl_chng w_order_ml_rqmtrl_chng type variables Int child2_column_int = 1 long cur_flag= -1 //-1：全部，0未审 Long cur_scid Long cur_scid_arr[] uo_order_ml_rqmtrl_chng uo_chng datastore ds_copy String ins_choose String ins_choose_text end variables forward prototypes public function integer wf_flagstatus_rf () public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg) public function integer wf_refresh_curuc (integer arg_scid, long arg_billid) public function integer wf_lock_child () public subroutine wf_add_dwchild2 (s_saletask_mtrl s_inscust) public subroutine wf_edit_pz (integer arg_row, string arg_pzname) end prototypes event insert_childrow();long li_row li_row=dw_child.insertrow(0) dw_child.scrolltorow(li_row) dw_child.SetColumn ('u_mtrldef_mtrlcode') end event event ue_p_wrkgrpid();IF NOT dw_edit_mode THEN MessageBox('系统提示','非编辑状态不可使用') RETURN END IF IF MessageBox(publ_operator,'是否要确定要批设定领用工组', question!, YesNo!, 2) = 2 THEN RETURN END IF Long ll_i dw_child.AcceptText() IF dw_child.RowCount() = 0 THEN RETURN dw_child.SetRedraw(FALSE) FOR ll_i = 1 TO dw_child.RowCount() IF dw_child.Object.u_orderrqmtrl_chngmx_wrkgrpid[1] = 0 THEN RETURN IF ll_i = 1 THEN CONTINUE dw_child.Object.u_orderrqmtrl_chngmx_wrkgrpid[ll_i] = dw_child.Object.u_orderrqmtrl_chngmx_wrkgrpid[1] NEXT dw_child.SetRedraw(TRUE) end event event insert_childrow2();long li_row li_row=dw_child2.insertrow(0) dw_child2.scrolltorow(li_row) dw_child2.SetColumn ('u_mtrldef_mtrlcode') end event event ue_add_bom();IF NOT f_power_ind(1485) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN RETURN String arg_msg = '' Long pagerert_row Long ll_billid pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF IF MessageBox ("询问","是否确定要添加清单?",Question!,YesNo! ) = 2 THEN RETURN ll_billid = dw_pageretr.Object.billid[pagerert_row] IF uo_chng.uf_add_bom(dw_pageretr.Object.scid[pagerert_row],ll_billid,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'添加清单成功!') wf_refresh_curuc(dw_pageretr.Object.scid[pagerert_row],dw_pageretr.Object.billid[pagerert_row]) END IF end event event ue_p_str();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息对勾选行批设定 '+ins_choose_text, question!, YesNo!, 2) = 2 THEN RETURN END IF Long ll_i,ll_cnt String ls_type Dec ld_get String ls_get dw_child.AcceptText() IF dw_child.RowCount() = 0 THEN RETURN IF dw_child.getrow() = 0 THEN RETURN ls_type = Left( dw_child.Describe( ins_choose+ ".coltype"),4) CHOOSE CASE ls_type CASE "char" ls_get = dw_child.GetItemString(dw_child.getrow(),ins_choose) CASE "int","long","deci" ld_get = dw_child.GetItemNumber(dw_child.getrow(),ins_choose) CASE ELSE RETURN END CHOOSE dw_child.SetRedraw(FALSE) FOR ll_i = 1 TO dw_child.RowCount() CHOOSE CASE ls_type CASE "char" dw_child.SetItem(ll_i,ins_choose,ls_get) CASE "int","long","deci" dw_child.SetItem(ll_i,ins_choose,ld_get) CASE ELSE RETURN END CHOOSE NEXT dw_child.SetRedraw(TRUE) end event public function integer wf_flagstatus_rf ();//==================================================================== // Function: wf_flagstatus_rf() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments:(None) //-------------------------------------------------------------------- // Returns: integer //-------------------------------------------------------------------- // Author: yyx Date: 2003.12.26 //-------------------------------------------------------------------- // Modify History: // //==================================================================== Long pagerert_row pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN cb_auditing.Enabled = FALSE GOTO ext END IF IF dw_edit_mode THEN cb_auditing.Enabled = FALSE ELSE IF dw_pageretr.Object.flag[pagerert_row] = 0 THEN cb_auditing.Enabled = TRUE ELSEIF dw_pageretr.Object.flag[pagerert_row] = 1 THEN cb_auditing.Enabled = FALSE END IF END IF ext: RETURN 0 end function public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg);//============================================================================== // 函数: w_publ_1ton_share_detail::wf_xls_retrievedata() //------------------------------------------------------------------------------ // 描述: 此函数需要 重载,复制祖先范例代码,然后修改retrieve参数部分两处即可 //------------------------------------------------------------------------------ Long LS_ROW,ll_id,i,ll_scid LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN arg_msg = '没有目标单据!' RETURN 0 END IF //修改点:获取 指定retriev参数 ll_id = dw_pageretr.Object.#1[LS_ROW] ////可选设置/// arg_obj_st.uo_const.create_new_pwd( ) //创建随机密码 if sys_option_xls_ifuse_passwd = 1 then arg_obj_st.uo_const.pwd = trim(sys_option_xls_user_passwd) //默认加密密码 默认为随即密码 boolean xls_locked xls_locked = not (sys_option_xls_lock = 1) /// Excel 的可选设置 if arg_obj_st.of_setoption(arg_ationid, xls_locked,true,arg_msg) <> 1 then return 0 end if for i = 1 to arg_str_billlist.count ////可选操作/// arg_str_billlist.bill[i].ds_data = create datastore // arg_str_billlist.bill[i].ds_data.dataobject = arg_str_billlist.bill[i].datawindow // arg_str_billlist.bill[i].ds_data.settransobject(sqlca) //修改点:注意retrieve 参数与上文对应 arg_str_billlist.bill[i].ds_data.retrieve(ll_id) next return 1 end function public function integer wf_refresh_curuc (integer arg_scid, long arg_billid);IF arg_billid <= 0 OR IsNull(arg_billid) THEN RETURN 0 Long uc_row uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN RETURN 0 DateTime billdate String relemp String relcode String dscrp Long flag DateTime opdate String opemp DateTime moddate String modemp DateTime auditingdate String auditingrep String billcode long relid, relprintid, mtrlid int CreateBomFlag SELECT billdate, relemp, relcode, dscrp, flag, opdate, opemp, moddate, modemp, auditingdate, auditingrep, billcode, CreateBomFlag INTO :billdate, :relemp, :relcode, :dscrp, :flag, :opdate, :opemp, :moddate, :modemp, :auditingdate, :auditingrep, :billcode, :CreateBomFlag FROM u_orderrqmtrl_chng Where billid = :arg_billid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示',"查询操作失败(错误单据唯一码)") RETURN 0 END IF dw_pageretr.SetRedraw(FALSE) dw_pageretr.Object.scid[uc_row] = arg_scid dw_pageretr.Object.billid[uc_row] = arg_billid dw_pageretr.Object.billcode[uc_row] = billcode dw_pageretr.Object.u_orderrqmtrl_chng_relemp[uc_row] = relemp dw_pageretr.Object.relcode[uc_row] = relcode dw_pageretr.Object.dscrp[uc_row] = dscrp dw_pageretr.Object.flag[uc_row] = flag dw_pageretr.Object.billdate[uc_row] = billdate dw_pageretr.Object.opdate[uc_row] = opdate dw_pageretr.Object.opemp[uc_row] = opemp dw_pageretr.Object.moddate[uc_row] = moddate dw_pageretr.Object.modemp[uc_row] = modemp dw_pageretr.Object.auditingdate[uc_row] = auditingdate dw_pageretr.Object.auditingrep[uc_row] = auditingrep dw_pageretr.Object.CreateBomFlag[uc_row] = CreateBomFlag dw_pageretr.SetRedraw(TRUE) dw_uc.Reset() dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!) wf_flagstatus_rf() RETURN 1 end function public function integer wf_lock_child ();//wf_lock_child INT LS_INT IF dw_edit_mode THEN FOR LS_INT=1 TO child_column_int dw_child.SetTabOrder (LS_INT,LS_INT*10 ) NEXT FOR LS_INT=1 TO child2_column_int dw_child2.SetTabOrder (LS_INT,LS_INT*10 ) NEXT ELSE FOR LS_INT=1 TO child_column_int dw_child.SetTabOrder (LS_INT, 0) NEXT FOR LS_INT=1 TO child2_column_int dw_child2.SetTabOrder (LS_INT, 0) NEXT END IF RETURN 1 end function public subroutine wf_add_dwchild2 (s_saletask_mtrl s_inscust);Long child_row, ls_j String ls_mtrlsectype,ls_zxmtrlmode,ls_mtrlengname,ls_barcode s_mtrldef_array arg_s_mtrldef child_row = dw_child2.GetRow() FOR ls_j = 1 TO UpperBound(S_INSCUST.mtrlid) IF S_INSCUST.mtrlid[ls_j] > 0 THEN IF dw_child2.GetRow() > 0 THEN IF dw_child2.Object.u_orderrqmtrl_chngmx2_mtrlid[child_row] <> 0 THEN child_row = dw_child2.InsertRow (0) ELSE child_row = dw_child2.GetRow() END IF ELSE child_row = dw_child2.InsertRow (0) END IF dw_child2.Object.u_orderrqmtrl_chngmx2_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j] dw_child2.Object.u_mtrldef_mtrlcode[child_row] = S_INSCUST.mtrlcode[ls_j] dw_child2.Object.u_mtrldef_mtrlname[child_row] = S_INSCUST.mtrlname[ls_j] dw_child2.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j] dw_child2.Object.u_mtrldef_unit[child_row] = S_INSCUST.unit[ls_j] dw_child2.Object.u_orderrqmtrl_chngmx2_relid[child_row] = S_INSCUST.taskid[ls_j] dw_child2.Object.u_orderrqmtrl_chngmx2_relprintid[child_row] = S_INSCUST.printid[ls_j] dw_child2.Object.relcode[child_row] = S_INSCUST.taskcode[ls_j] dw_child2.Object.u_saletask_taskdate[child_row] = S_INSCUST.taskdate[ls_j] dw_child2.Object.u_saletask_requiredate[child_row] = S_INSCUST.requiredate[ls_j] dw_child2.Object.u_saletaskmx_mtrlchangecode[child_row] = S_INSCUST.mtrlchangecode[ls_j] dw_child2.Object.u_saletaskmx_status[child_row] = S_INSCUST.status[ls_j] dw_child2.Object.u_saletaskmx_woodcode[child_row] = S_INSCUST.woodcode[ls_j] dw_child2.Object.u_saletaskmx_pcode[child_row] = S_INSCUST.pcode[ls_j] dw_child2.Object.u_saletaskmx_usaleqty[child_row] = S_INSCUST.qty[ls_j] long ls_taskid string ls_relcode,ls_cusname,ls_assign_emp,ls_plancode ls_taskid = S_INSCUST.taskid[ls_j] select isnull(u_saletask.relcode,''), isnull(u_cust.name,''), isnull(u_saletask.assign_emp,''),isnull(u_saletaskmx.plancode,'') into :ls_relcode, :ls_cusname, :ls_assign_emp, :ls_plancode from u_saletask inner join u_cust on u_saletask.cusid=u_cust.cusid inner join u_saletaskmx on u_saletask.scid=u_saletaskmx.scid and u_saletask.taskid=u_saletaskmx.taskid where u_saletask.taskid= :ls_taskid; dw_child2.Object.u_saletask_relcode[child_row] = ls_relcode dw_child2.Object.u_cust_name[child_row] = ls_cusname dw_child2.Object.u_saletask_assign_emp[child_row] = ls_assign_emp dw_child2.Object.u_saletaskmx_plancode[child_row] = ls_plancode //dw_child2.Object.u_saletask_relcode[child_row] = S_INSCUST.relcode[ls_j] //dw_child2.Object.u_cust_name[child_row] = S_INSCUST.cusname[ls_j] //dw_child2.Object.u_saletask_assign_emp[child_row] = S_INSCUST.assign_emp[ls_j] //dw_child2.Object.u_saletaskmx_plancode[child_row] = S_INSCUST.plancode[ls_j] IF f_find_mtrl(S_INSCUST.mtrlcode[ls_j],-1,arg_s_mtrldef) = 0 THEN ls_mtrlsectype = '' ls_zxmtrlmode = '' ls_mtrlengname = '' ls_barcode = '' ELSE ls_mtrlsectype = arg_s_mtrldef.mtrlsectype[1] ls_zxmtrlmode = arg_s_mtrldef.zxmtrlmode[1] ls_mtrlengname = arg_s_mtrldef.mtrlengname[1] ls_barcode = arg_s_mtrldef.barcode[1] END IF dw_child2.Object.u_mtrldef_mtrlsectype[child_row] = ls_mtrlsectype dw_child2.Object.u_mtrldef_zxmtrlmode[child_row] = ls_zxmtrlmode dw_child2.Object.u_mtrldef_mtrlengname[child_row] = ls_mtrlengname dw_child2.Object.u_mtrldef_barcode[child_row] = ls_barcode END IF NEXT dw_child.SetFocus() dw_child.SetColumn ('u_mtrldef_mtrlcode') end subroutine public subroutine wf_edit_pz (integer arg_row, string arg_pzname);if arg_row <= 0 then return string ls_findstr,ls_title long ll_flag String ls_data_type //arg_pzname //ll_flag = ls_data_type = dw_child.Describe(arg_pzname+".dddw.allowedit") IF ls_data_type = 'no' THEN RETURN s_view_dscrp s_view,s_return String ls_dscrp dw_child.AcceptText() ls_dscrp = dw_child.GetItemString(arg_row,arg_pzname) s_view.Title = ls_title s_view.dscrp = ls_dscrp s_view.editmode = dw_edit_mode OpenWithParm(w_view_dscrp_log,s_view) IF dw_edit_mode THEN s_return = Message.PowerObjectParm dw_child.SetItem (arg_row, arg_pzname, s_return.dscrp ) END IF end subroutine on w_order_ml_rqmtrl_chng.create int iCurrent call super::create this.st_2=create st_2 this.ddlb_status=create ddlb_status this.ddlb_scid=create ddlb_scid this.st_3=create st_3 this.dw_child2=create dw_child2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.st_2 this.Control[iCurrent+2]=this.ddlb_status this.Control[iCurrent+3]=this.ddlb_scid this.Control[iCurrent+4]=this.st_3 this.Control[iCurrent+5]=this.dw_child2 end on on w_order_ml_rqmtrl_chng.destroy call super::destroy destroy(this.st_2) destroy(this.ddlb_status) destroy(this.ddlb_scid) destroy(this.st_3) destroy(this.dw_child2) end on 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 if_sharedata = s_tran.if_sharedata //是否应用sharedata，当retrieve_all＝true是生效 ds_share = s_tran.ds_share if_power_sendout = s_tran.if_sendout if_power_print = s_tran.if_print END IF dw_pageretr.RBUTTON_FILTER_USE = TRUE //右键查询功能开关 dw_pageretr.titleclick_sort_use = TRUE //单击标题排序功能开关 dw_pageretr.SetTransObject (sqlca) dw_child2.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) ds_copy_bill = CREATE datastore ds_copy_bill.DataObject = dw_child.dataobject ds_copy_bill.SetTransObject(sqlca) wf_editindex_lockf() sle_usual_query.Text = Trim(arg_string_code) IF NOT retrieve_all THEN THIS.TriggerEvent("ue_usual_query_RETR") //修改ls_newselect,retrieve ELSE IF if_sharedata THEN ds_share.ShareData(dw_pageretr) ELSE wf_retrieveuc(dw_pageretr,ls_newselect,1) THIS.TriggerEvent('RETRIEVE_pageretr') END IF END IF IF retrieve_all THEN THIS.TriggerEvent("ue_usual_query_filt") END IF IF sys_option_taskplancode_auto = 0 THEN //不允许填批号 dw_child.Modify('u_orderrqmtrl_chngmx_plancode.protect="1"~n u_orderrqmtrl_chngmx_plancode.color="000000"') dw_child.Modify('u_orderrqmtrl_chngmx_plancode_t.color="000000"') END IF uc_column_int = 7 child_column_int = 13 child2_column_int = 5 uo_chng = create uo_order_ml_rqmtrl_chng end event event close;call super::close;destroy uo_chng end event event refresh_interface;call super::refresh_interface;wf_flagstatus_rf() ddlb_scid.Enabled = NOT dw_edit_mode ddlb_status.Enabled = NOT dw_edit_mode dw_child.RBUTTON_SETPOSITION_USE = NOT dw_edit_mode //定位 end event event retrieve_pageretr;boolean cb_nextpage_enabled,cb_retrieveall_enabled boolean 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 dw_uc.Retrieve() dw_pageretr.Retrieve(cur_scid_arr, cur_flag) IF dw_pageretr.RowCount() > 0 THEN dw_pageretr.SetRow(1) dw_pageretr.triggerevent(rowfocuschanged!) end if f_title_change(dw_uc) wf_flagstatus_rf() this.triggerevent('retrieve_childdw') cb_nextpage.enabled=cb_nextpage_enabled cb_retrieveall.enabled=cb_retrieveall_enabled cb_func.enabled=cb_func_enabled end event event ue_usual_query_filt;call super::ue_usual_query_filt;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="(billcode like '%"+trim(sle_usual_query.text)+"%')" else ls_querystrpart="(billcode 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_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_workprice_change.billcode like '%"+trim(sle_usual_query.text)+"%')" else ls_querystrpart="(u_workprice_change.billcode 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_viewprint;call super::ue_viewprint; IF NOT f_power_ind(1487) THEN MessageBox('提示','你没有使用权限！',information!,OK!) RETURN END IF Long LS_ROW LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF S_print_MSG LS_PRMSG IF ls_newname <> '' THEN IF li_auditprint = 1 THEN IF dw_pageretr.Object.u_prdpf_change_flag[dw_pageretr.GetRow()] = 0 THEN MessageBox('NO','目标单据还未审核,不能打印!') RETURN END IF END IF LS_PRMSG.obj_dwNAME = ls_newname ELSE IF NOT f_power_ind(1487) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF LS_PRMSG.obj_dwNAME = '' END IF IF LS_PRMSG.obj_dwNAME = '' THEN RETURN LS_PRMSG.printrow = ll_prownum LS_PRMSG.TAG_TEXT = '增料单' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 2 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = dw_pageretr.Object.billid[LS_ROW] LS_PRMSG.rowcnt = dw_child.RowCount() OpenWithParm(w_publ_preview,LS_PRMSG) end event event retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid, uc_scid row = dw_pageretr.GetRow() // IF row > 0 THEN uc_scid = dw_pageretr.Object.scid[row] uc_relid = dw_pageretr.Object.billid[row] dw_child.SetRedraw (FALSE) dw_child.Retrieve(uc_scid, uc_relid) dw_child.SetRedraw (TRUE) dw_child2.SetRedraw (FALSE) dw_child2.Retrieve(uc_scid, uc_relid) dw_child2.SetRedraw (TRUE) ELSE dw_child.Reset() dw_child2.Reset() END IF end event event ue_f8;call super::ue_f8;//用于选择物料明细内容,被f8[默认]\dw_child.doubleclicked调用 IF NOT dw_edit_mode THEN RETURN Long child_row String ls_sonmtrlname child_row = dw_child.GetRow() Decimal i_newprice Long uc_row uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选择单据') RETURN END IF IF NOT IsValid(w_order_ml_mod_tree_mtrl) THEN s_edit_index_tran s_tranf8 //传递参数使用 s_tranf8.if_retrieve_all = FALSE //是否一次retrieve所有行 s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式 s_tranf8.arg_pkid = 0 //目标定位pkid (备用) s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 s_tranf8.if_select_all = TRUE //多选 s_tranf8.b_long = 0 //选产品 s_tranf8.f_long = -1 Long ls_j IF dw_child.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_child.Object.u_mtrldef_mtrlcode[dw_child.GetRow()]) OpenWithParm(w_order_ml_mod_tree_mtrl,s_tranf8) //调用 s_mtrldef_array s_inscust s_inscust = Message.PowerObjectParm //接受返回结构 FOR ls_j = 1 TO UpperBound(s_inscust.mtrlid) IF s_inscust.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值 IF dw_child.GetRow() > 0 THEN IF dw_child.Object.u_OrderRqMtrl_chngmx_mtrlid[child_row] <> 0 THEN child_row = dw_child.InsertRow (0) ELSE child_row = dw_child.GetRow() END IF ELSE child_row = dw_child.InsertRow (0) END IF dw_child.Object.u_OrderRqMtrl_chngmx_mtrlid[child_row] = s_inscust.mtrlid[ls_j] dw_child.Object.u_mtrldef_mtrlcode [child_row] = s_inscust.mtrlcode[ls_j] dw_child.Object.u_mtrldef_mtrlname [child_row] = s_inscust.mtrlname[ls_j] dw_child.Object.u_mtrldef_mtrlmode [child_row] = s_inscust.mtrlmode[ls_j] dw_child.Object.u_mtrldef_mtrlsectype [child_row] = s_inscust.mtrlsectype[ls_j] dw_child.Object.u_mtrldef_zxmtrlmode [child_row] = s_inscust.zxmtrlmode[ls_j] dw_child.Object.u_mtrldef_mtrlengname [child_row] = s_inscust.mtrlengname[ls_j] dw_child.Object.u_mtrldef_barcode [child_row] = s_inscust.barcode[ls_j] dw_child.Object.u_mtrldef_unit[child_row] = s_inscust.unit[ls_j] dw_child.Object.u_mtrldef_mtrltype[child_row] = s_inscust.mtrltype[ls_j] dw_child.Object.u_mtrldef_mtrlprp[child_row] = s_inscust.mtrlprp[ls_j] dw_child.Object.u_mtrldef_mtrlorigin[child_row] = s_inscust.mtrlorigin[ls_j] dw_child.Object.u_OrderRqMtrl_chngmx_plantype[child_row] = s_inscust.mtrlorigin[ls_j] dw_child.Object.u_OrderRqMtrl_chngmx_status[child_row] = s_inscust.status[ls_j] dw_child.Object.u_OrderRqMtrl_chngmx_woodcode[child_row] = s_inscust.woodcode[ls_j] dw_child.Object.u_OrderRqMtrl_chngmx_pcode[child_row] = s_inscust.pcode[ls_j] dw_child.Object.u_OrderRqMtrl_chngmx_lp[child_row] = 1 END IF NEXT this.triggerevent('ue_allowedit') dw_child.SetFocus() dw_child.SetColumn ('u_orderrqmtrl_chngmx_truerqqty') END IF end event event ue_print;call super::ue_print;//--直接打印 IF NOT f_power_ind(1487) THEN MessageBox('提示','你没有使用权限！',information!,OK!) RETURN END IF uo_print_preview uo_print IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN S_print_MSG LS_PRMSG Long LS_ROW LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF IF ls_newname <> '' THEN IF li_auditprint = 1 THEN IF dw_pageretr.Object.u_prdpf_change_flag[dw_pageretr.GetRow()] = 0 THEN MessageBox('NO','目标单据还未审核,不能打印!') RETURN END IF END IF LS_PRMSG.obj_dwNAME = ls_newname ELSE IF NOT f_power_ind(1487) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF LS_PRMSG.obj_dwNAME = '' END IF if LS_PRMSG.obj_dwNAME = '' then return LS_PRMSG.retr_pram_falg = 2 LS_PRMSG.printrow = ll_prownum LS_PRMSG.TAG_TEXT = '增料单' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = dw_pageretr.Object.billid[LS_ROW] LS_PRMSG.rowcnt = dw_child.RowCount() uo_print.FACT_PRINT_MSG = LS_PRMSG String arg_msg IF uo_print.uof_print_begin(arg_msg) = 0 THEN MessageBox("系统提示",arg_msg) RETURN END IF uo_print.ds_print() end event event ue_addzy;call super::ue_addzy;IF NOT f_power_ind(1486) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN RETURN String arg_msg = '',LS_STR Long uc_row s_inputbox S_SREU uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF S_SREU.Title = '请输入要补充到备注的内容' S_SREU.OLD_TEXT = '' OpenWithParm(w_inputbox,S_SREU) LS_STR = Message.StringParm IF Trim(LS_STR) = '' OR IsNull(LS_STR) THEN RETURN IF uo_chng.add_dscrp(dw_pageretr.Object.scid[uc_row],dw_pageretr.Object.billid[uc_row],LS_STR,arg_msg,true) = 0 THEN MessageBox('Error!',arg_msg) RETURN ELSE MessageBox(publ_operator,'添加备注操作成功!') wf_refresh_curuc(dw_pageretr.Object.scid[uc_row],dw_pageretr.Object.billid[uc_row]) END IF end event event ue_f7;call super::ue_f7;//用于订单明细 IF NOT dw_edit_mode THEN RETURN Long uc_row uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选择单据') RETURN END IF Long child_row child_row = dw_child2.GetRow() IF NOT IsValid(w_saletask_mrp_ch) THEN s_edit_index_tran s_ch_tran //传递参数使用 s_ch_tran.if_retrieve_all = FALSE //是否一次RETRIEVE所有行 s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式 s_ch_tran.arg_pkid = 0 //目标定位PKID (备用) s_ch_tran.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 s_ch_tran.e_long = 0 Long chc = 1,ls_j dw_child2.AcceptText() OpenWithParm(w_saletask_mrp_ch,s_ch_tran) s_saletask_mtrl S_INSCUST S_INSCUST = Message.PowerObjectParm wf_add_dwchild2(S_INSCUST) // FOR ls_j = 1 TO UpperBound(S_INSCUST.mtrlid) // IF S_INSCUST.mtrlid[ls_j] > 0 THEN // // IF dw_child2.GetRow() > 0 THEN // IF dw_child2.Object.u_orderrqmtrl_chngmx2_mtrlid[child_row] <> 0 THEN // child_row = dw_child2.InsertRow (0) // ELSE // child_row = dw_child2.GetRow() // END IF // ELSE // child_row = dw_child2.InsertRow (0) // END IF // // dw_child2.Object.u_orderrqmtrl_chngmx2_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j] // dw_child2.Object.u_mtrldef_mtrlcode[child_row] = S_INSCUST.mtrlcode[ls_j] // dw_child2.Object.u_mtrldef_mtrlname[child_row] = S_INSCUST.mtrlname[ls_j] // dw_child2.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j] // dw_child2.Object.u_mtrldef_unit[child_row] = S_INSCUST.unit[ls_j] // // dw_child2.Object.u_orderrqmtrl_chngmx2_relid[child_row] = S_INSCUST.taskid[ls_j] // dw_child2.Object.u_orderrqmtrl_chngmx2_relprintid[child_row] = S_INSCUST.printid[ls_j] // dw_child2.Object.relcode[child_row] = S_INSCUST.taskcode[ls_j] // // dw_child2.Object.u_saletask_taskdate[child_row] = S_INSCUST.taskdate[ls_j] // dw_child2.Object.u_saletask_requiredate[child_row] = S_INSCUST.requiredate[ls_j] // dw_child2.Object.u_saletaskmx_mtrlchangecode[child_row] = S_INSCUST.mtrlchangecode[ls_j] // dw_child2.Object.u_saletaskmx_status[child_row] = S_INSCUST.status[ls_j] // dw_child2.Object.u_saletaskmx_woodcode[child_row] = S_INSCUST.woodcode[ls_j] // dw_child2.Object.u_saletaskmx_pcode[child_row] = S_INSCUST.pcode[ls_j] // dw_child2.Object.u_saletaskmx_usaleqty[child_row] = S_INSCUST.qty[ls_j] // // END IF // NEXT // dw_child2.SetFocus() END IF end event event resize;//dw_child2 ln_bar.EndX = THIS.Width ln_bar2.EndX = THIS.Width ln_1.EndX = THIS.Width ln_2.EndX = THIS.Width r_bar.Width = THIS.Width Long w_width,w_height w_width = 3602 w_height = 2300 IF newwidth < w_width THEN THIS.Width = w_width IF newheight < w_height THEN THIS.Height = w_height IF uc_width > 0 THEN dw_uc.Width = uc_width END IF IF uc_height > 0 THEN dw_uc.Height = uc_height END IF dw_pageretr.X = dw_uc.X + dw_uc.Width dw_pageretr.Width = THIS.Width - dw_pageretr.X - 40 dw_pageretr.Height = dw_uc.Height dw_child2.X = dw_uc.X dw_child2.Y = dw_uc.Y + dw_uc.Height + 4 dw_child2.Width = THIS.Width / 2 - 2 dw_child2.Height = THIS.Height - dw_child.Y - 150 dw_child.X = dw_child2.X + dw_child2.Width + 4 dw_child.Y = dw_uc.Y + dw_uc.Height + 4 dw_child.Width = THIS.Width / 2 - 2 dw_child.Height = THIS.Height - dw_child.Y - 150 this.triggerevent('resize_p') end event type cb_func from w_publ_1ton_share_detail`cb_func within w_order_ml_rqmtrl_chng end type type cb_exit from w_publ_1ton_share_detail`cb_exit within w_order_ml_rqmtrl_chng integer x = 2368 end type type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_order_ml_rqmtrl_chng integer x = 229 integer width = 553 end type type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_order_ml_rqmtrl_chng integer x = 2821 end type type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_order_ml_rqmtrl_chng integer x = 2519 end type type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_order_ml_rqmtrl_chng integer x = 1733 integer width = 1609 integer height = 924 string dataobject = "dw_order_ml_rqmtrl_chng_index" end type event dw_pageretr::rowfocuschanged;call super::rowfocuschanged; wf_flagstatus_rf() end event type st_1 from w_publ_1ton_share_detail`st_1 within w_order_ml_rqmtrl_chng integer x = 0 alignment alignment = right! end type type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_order_ml_rqmtrl_chng integer x = 2971 end type type dw_uc from w_publ_1ton_share_detail`dw_uc within w_order_ml_rqmtrl_chng integer width = 1723 integer height = 920 string dataobject = "dw_order_ml_rqmtrl_chng_edit" end type event dw_uc::dwnkey;PARENT.TriggerEvent('user_key') String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode String ls_mtrlsectype,ls_zxmtrlmode Long ll_mtrlid,ll_ori_mtrlid String ls_procode,ls_procode_f,ls_proname_f string ls_procode_ori IF Key = KeyDownArrow! THEN RETURN 1 dw_uc.AcceptText() IF dw_uc.GetRow() <= 0 THEN RETURN IF dw_edit_mode THEN IF dw_uc.GetColumnName ( ) = 'dscrp' AND Key = KeyEnter! THEN dw_child2.ScrollToRow(1) dw_child2.SetFocus() dw_child2.SetColumn ('relcode') RETURN 1 ELSE IF Key = KeyEnter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF END IF END IF end event event dw_uc::doubleclicked;IF dw_edit_mode AND row > 0 THEN IF dwo.Name = 'u_mtrldef_mtrlcode' THEN PARENT.TriggerEvent('ue_f7') END IF END IF end event event dw_uc::clicked;call super::clicked;IF dw_edit_mode AND row > 0 THEN IF dwo.Name = 'p_c' OR dwo.Name = 'choicesaletaskmx_t' THEN PARENT.TriggerEvent('ue_f7') END IF END IF end event type gb_2 from w_publ_1ton_share_detail`gb_2 within w_order_ml_rqmtrl_chng integer x = 352 integer y = 396 integer width = 704 integer height = 400 long backcolor = 134217739 end type type dw_child from w_publ_1ton_share_detail`dw_child within w_order_ml_rqmtrl_chng integer x = 1742 integer y = 1220 integer width = 1847 integer height = 952 string dataobject = "dw_order_ml_rqmtrl_chngmx_edit" end type event dw_child::dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key') Long child_row String ls_mtrlcode,ls_mtrlname,ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode Long ll_mtrlid string ls_unit, ls_mtrltype int li_mtrlprp, li_mtrlorigin IF dw_edit_mode THEN IF KeyDown(Keydownarrow!) THEN Long li_row IF dw_child.GetRow() = dw_child.RowCount() THEN PARENT.TriggerEvent("insert_childrow") END IF ELSE If (KeyDown(keyenter!) OR KeyDown(keytab!)) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN IF THIS.GetColumnName() = 'u_mtrldef_mtrlcode' THEN dw_child.AcceptText() child_row = dw_child.GetRow() IF child_row > 0 THEN ls_mtrlcode = dw_child.Object.u_mtrldef_mtrlcode[child_row] SELECT mtrlid, mtrlname, mtrlmode, mtrlsectype, zxmtrlmode, unit, mtrltype, mtrlprp, mtrlorigin INTO :ll_mtrlid, :ls_mtrlname, :ls_mtrlmode, :ls_mtrlsectype, :ls_zxmtrlmode, :ls_unit, :ls_mtrltype, :li_mtrlprp, :li_mtrlorigin FROM u_mtrldef Where mtrlcode = :ls_mtrlcode; IF sqlca.SQLCode <> 0 THEN PARENT.TriggerEvent('ue_f8') return 1 ELSE dw_child.Object.u_OrderRqMtrl_chngmx_mtrlid[child_row] = ll_mtrlid dw_child.Object.u_mtrldef_mtrlname [child_row] = ls_mtrlname dw_child.Object.u_mtrldef_mtrlmode [child_row] = ls_mtrlmode dw_child.Object.u_mtrldef_mtrlsectype [child_row] = ls_mtrlsectype dw_child.Object.u_mtrldef_zxmtrlmode [child_row] = ls_zxmtrlmode dw_child.Object.u_mtrldef_unit[child_row] = ls_unit dw_child.Object.u_mtrldef_mtrltype[child_row] = ls_mtrltype dw_child.Object.u_mtrldef_mtrlprp[child_row] = li_mtrlprp dw_child.Object.u_mtrldef_mtrlorigin[child_row] = li_mtrlorigin dw_child.Object.u_OrderRqMtrl_chngmx_plantype[child_row] = li_mtrlorigin dw_child.Object.u_OrderRqMtrl_chngmx_status[child_row] = "" dw_child.Object.u_OrderRqMtrl_chngmx_woodcode[child_row] = "" dw_child.Object.u_OrderRqMtrl_chngmx_pcode[child_row] = "" dw_child.Object.u_OrderRqMtrl_chngmx_lp[child_row] = 1 END IF parent.triggerevent('ue_allowedit') IF Key = keyenter! THEN keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF END IF // ELSEIF THIS.GetColumnName() = 'u_workprice_changemx_dscrp' AND dw_child.GetRow() = dw_child.RowCount() THEN // PARENT.TriggerEvent("insert_childrow") // RETURN 1 ELSE IF Key = keyenter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF END IF END IF END IF END IF end event event dw_child::doubleclicked;IF Not dw_edit_mode THEN RETURN String col[] Long i col = {'u_orderrqmtrl_chngmx_rqqty','u_orderrqmtrl_chngmx_truerqqty','u_orderrqmtrl_chngmx_wrkgrpid'} IF Lower(Left(dwo.Type,4)) = 'text' THEN s_inputbox S_SREU String LS_STR,column_name,ls_type column_name = dwo.Name ins_choose_text = this.Describe( column_name+ ".text") column_name = Left(column_name,Len(column_name) - 2) ins_choose = column_name for i =1 to upperbound(col) IF ins_choose = col[i] then Parent.TriggerEvent('ue_p_str') END IF next ELSE If (dwo.Name = "u_orderrqmtrl_chngmx_status" Or & dwo.Name = "u_orderrqmtrl_chngmx_pcode" Or & dwo.Name = "u_orderrqmtrl_chngmx_woodcode") And row > 0 Then wf_edit_pz(row,dwo.Name) Return End If IF dw_child.GetColumnName( ) = 'u_mtrldef_mtrlcode' THEN PARENT.TriggerEvent('ue_f8') END IF END IF end event event dw_child::editchanged;call super::editchanged;IF dw_edit_mode AND row > 0 THEN this.accepttext() IF dwo.name ='u_orderrqmtrl_chngmx_truerqqty' then IF data = '' then return this.object.u_orderrqmtrl_chngmx_rqqty[row] = this.object.u_orderrqmtrl_chngmx_truerqqty[row] end if end if end event type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_order_ml_rqmtrl_chng integer x = 1723 end type type cb_print from w_publ_1ton_share_detail`cb_print within w_order_ml_rqmtrl_chng integer x = 1531 end type type cb_add from w_publ_1ton_share_detail`cb_add within w_order_ml_rqmtrl_chng end type event cb_add::clicked;IF NOT f_power_ind(1483) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String arg_msg = '' Long uc_row,i,count = 0 s_order_ml_rqmtrl_chng arg_s_main IF dw_edit_mode THEN dw_uc.AcceptText() dw_child.AcceptText() uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF IF NOT dw_uc.Object.billdate[uc_row] > DateTime(2000-01-01,Now()) THEN MessageBox('系统提示','不合理发生时间!') dw_uc.SetFocus() dw_uc.SetColumn("billdate") RETURN END IF IF dw_uc.Object.u_orderrqmtrl_chng_relemp[uc_row] = '' THEN MessageBox('系统提示','请填写经手人!') dw_uc.SetFocus() dw_uc.SetColumn("u_orderrqmtrl_chng_relemp") RETURN END IF arg_s_main.scid = cur_scid arg_s_main.billid = dw_uc.Object.billid[uc_row] arg_s_main.billdate = dw_uc.Object.billdate[uc_row] arg_s_main.relemp = dw_uc.Object.u_orderrqmtrl_chng_relemp[uc_row] arg_s_main.dscrp = dw_uc.Object.dscrp[uc_row] arg_s_main.relcode = dw_uc.Object.relcode[uc_row] arg_s_main.CreateBomFlag = dw_uc.Object.CreateBomFlag[uc_row] count = 0 FOR i = 1 TO dw_child2.RowCount() IF dw_child2.Object.u_OrderRqMtrl_chngmx2_mtrlid[i] > 0 THEN IF dw_child2.Object.u_OrderRqMtrl_chngmx2_relid[i] = 0 OR & dw_child2.Object.u_OrderRqMtrl_chngmx2_relprintid[i] = 0 THEN MessageBox('系统提示','第'+String(i)+'行,请选择销售订单明细') RETURN END IF count++ arg_s_main.arg_s_mx2[count].printid = count arg_s_main.arg_s_mx2[count].mtrlid = dw_child2.Object.u_OrderRqMtrl_chngmx2_mtrlid[i] arg_s_main.arg_s_mx2[count].relid = dw_child2.Object.u_OrderRqMtrl_chngmx2_relid[i] arg_s_main.arg_s_mx2[count].relprintid = dw_child2.Object.u_OrderRqMtrl_chngmx2_relprintid[i] arg_s_main.arg_s_mx2[count].relcode = dw_child2.Object.relcode[i] END IF NEXT count = 0 FOR i = 1 TO dw_child.RowCount() IF dw_child.Object.u_OrderRqMtrl_chngmx_mtrlid[i] > 0 THEN IF dw_child.Object.u_orderrqmtrl_chngmx_truerqqty[i] = 0 OR & dw_child.Object.u_orderrqmtrl_chngmx_rqqty[i] = 0 THEN MessageBox('系统提示','第'+String(i)+'行,需求数或用料数不能为0') RETURN END IF IF dw_child.Object.u_orderrqmtrl_chngmx_wrkgrpid[i] = 0 THEN MessageBox('系统提示','第'+String(i)+'行,请选择领用工组') RETURN END IF count++ arg_s_main.arg_s_mx[count].printid = count arg_s_main.arg_s_mx[count].mtrlid = dw_child.Object.u_OrderRqMtrl_chngmx_mtrlid[i] arg_s_main.arg_s_mx[count].truerqqty = dw_child.Object.u_orderrqmtrl_chngmx_truerqqty[i] arg_s_main.arg_s_mx[count].plantype = dw_child.Object.u_orderrqmtrl_chngmx_plantype[i] arg_s_main.arg_s_mx[count].wrkgrpid = dw_child.Object.u_orderrqmtrl_chngmx_wrkgrpid[i] arg_s_main.arg_s_mx[count].rqqty = dw_child.Object.u_orderrqmtrl_chngmx_rqqty[i] arg_s_main.arg_s_mx[count].status = dw_child.Object.u_orderrqmtrl_chngmx_status[i] arg_s_main.arg_s_mx[count].woodcode = dw_child.Object.u_orderrqmtrl_chngmx_woodcode[i] arg_s_main.arg_s_mx[count].pcode = dw_child.Object.u_orderrqmtrl_chngmx_pcode[i] arg_s_main.arg_s_mx[count].plancode = dw_child.Object.u_orderrqmtrl_chngmx_plancode[i] IF IsNull(arg_s_main.arg_s_mx[count].plancode) then arg_s_main.arg_s_mx[count].plancode ='' END IF NEXT IF uo_chng.Save(arg_s_main,publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('error!',arg_msg) RETURN END IF MessageBox(publ_operator,'保存操作成功!') Long ll_row ll_row = dw_pageretr.GetRow() dw_pageretr.SelectRow(0,FALSE) dw_pageretr.SelectRow(ll_row,TRUE) wf_refresh_curuc(cur_scid,uo_chng.uo_billid) //刷新uc ELSE IF cur_scid < 0 THEN MessageBox('error!',"请选择分部") RETURN END IF dw_child2.RESET() END IF CALL SUPER::Clicked IF dw_edit_mode THEN PARENT.TriggerEvent("insert_childrow") PARENT.TriggerEvent("insert_childrow2") // dw_uc.SetRedraw(FALSE) // dw_uc.SetRedraw(TRUE) ELSE PARENT.TriggerEvent("retrieve_childdw") END IF THIS.TriggerEvent('refresh_interface') end event type cb_edit from w_publ_1ton_share_detail`cb_edit within w_order_ml_rqmtrl_chng end type event cb_edit::clicked;IF NOT f_power_ind(1483) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String arg_msg = '' Long uc_row uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF IF NOT dw_edit_mode THEN IF uo_chng.updatebegin(dw_pageretr.Object.scid[uc_row],dw_pageretr.Object.billid[uc_row],arg_msg) = 0 THEN MessageBox('Error!',arg_msg) RETURN END IF wf_refresh_curuc(dw_pageretr.Object.scid[uc_row],dw_pageretr.Object.billid[uc_row]) //刷新uc PARENT.TriggerEvent("retrieve_childdw") END IF CALL SUPER::Clicked end event type cb_delet from w_publ_1ton_share_detail`cb_delet within w_order_ml_rqmtrl_chng end type event cb_delet::clicked;IF NOT f_power_ind(1484) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN RETURN String arg_msg = '' Long uc_row uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF IF MessageBox ("IF","是否确定要删除当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN IF uo_chng.del(dw_pageretr.Object.scid[uc_row],dw_pageretr.Object.billid[uc_row],arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE //日志 Long ls_id String ls_code ls_id = dw_pageretr.Object.billid[uc_row] ls_code = dw_pageretr.Object.billcode[uc_row] f_setsysoplog('增料单','增料单删除,ID:'+String(ls_id)+',code:'+ls_code,arg_msg,TRUE) //-- MessageBox(publ_operator,'删除单据'+String(dw_pageretr.Object.billcode[uc_row])+'成功!') dw_pageretr.DeleteRow(uc_row) dw_pageretr.Triggerevent(rowfocuschanged!) END IF end event type cb_addzy from w_publ_1ton_share_detail`cb_addzy within w_order_ml_rqmtrl_chng integer x = 1029 end type event cb_addzy::clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr menustr = "Text=增加备注~tEvent=ue_addzy" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=添加清单~tEvent=ue_add_bom" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=复制单据~tEvent=ue_bill_copy" menustr = menustr + "|" + "Text=粘贴单据~tEvent=ue_bill_paste" 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_auditing from w_publ_1ton_share_detail`cb_auditing within w_order_ml_rqmtrl_chng end type event cb_auditing::clicked;call super::clicked;IF NOT f_power_ind(1485) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN RETURN String arg_msg = '' Long pagerert_row Long ll_billid pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF IF MessageBox ("询问","是否确定要审核当前单据吗(审核后单据将归档只读)?",Question!,YesNo! ) = 2 THEN RETURN ll_billid = dw_pageretr.Object.billid[pagerert_row] IF uo_chng.audit(dw_pageretr.Object.scid[pagerert_row],ll_billid,publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'审核成功!') wf_refresh_curuc(dw_pageretr.Object.scid[pagerert_row],dw_pageretr.Object.billid[pagerert_row]) END IF end event type cb_xm from w_publ_1ton_share_detail`cb_xm within w_order_ml_rqmtrl_chng integer x = 1280 end type event cb_xm::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr IF dw_edit_mode THEN menustr = "Text=增明细~tEvent=ue_addmx" menustr = menustr + "|" + "Text=删明细~tEvent=ue_deletemx" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=批设领用工组~tEvent=ue_p_wrkgrpid" END IF IF Trim(is_mx_menustr) <> '' THEN IF dw_edit_mode THEN menustr = menustr + "|" + "Text=-" END IF menustr = menustr + is_mx_menustr END IF IF if_MtrlPicView THEN IF Trim(menustr) <> "" THEN menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=明细物料图片查看~tEvent=ue_MtrlPicView" ELSE menustr = "Text=明细物料图片查看~tEvent=ue_MtrlPicView" END IF END IF 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_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_order_ml_rqmtrl_chng end type type cb_xls from w_publ_1ton_share_detail`cb_xls within w_order_ml_rqmtrl_chng integer x = 1915 end type type cb_help from w_publ_1ton_share_detail`cb_help within w_order_ml_rqmtrl_chng integer x = 2217 end type type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_order_ml_rqmtrl_chng boolean visible = false integer x = 3209 boolean enabled = false end type type p_msg from w_publ_1ton_share_detail`p_msg within w_order_ml_rqmtrl_chng end type type p_help from w_publ_1ton_share_detail`p_help within w_order_ml_rqmtrl_chng end type type p_encl from w_publ_1ton_share_detail`p_encl within w_order_ml_rqmtrl_chng end type type p_other from w_publ_1ton_share_detail`p_other within w_order_ml_rqmtrl_chng end type type gb_3 from w_publ_1ton_share_detail`gb_3 within w_order_ml_rqmtrl_chng end type type ln_bar from w_publ_1ton_share_detail`ln_bar within w_order_ml_rqmtrl_chng end type type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_order_ml_rqmtrl_chng end type type r_bar from w_publ_1ton_share_detail`r_bar within w_order_ml_rqmtrl_chng integer x = 3310 end type type ln_1 from w_publ_1ton_share_detail`ln_1 within w_order_ml_rqmtrl_chng end type type ln_2 from w_publ_1ton_share_detail`ln_2 within w_order_ml_rqmtrl_chng end type type st_2 from statictext within w_order_ml_rqmtrl_chng integer x = 1531 integer y = 204 integer width = 178 integer height = 48 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 ddlb_status from dropdownlistbox within w_order_ml_rqmtrl_chng integer x = 1719 integer y = 184 integer width = 480 integer height = 300 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 event selectionchanged;if index=1 then cur_flag=-1 elseif index=2 then cur_flag= 0 elseif index=3 then cur_flag= 1 end if parent.triggerevent("retrieve_pageretr") end event type ddlb_scid from uo_ddlb_scid within w_order_ml_rqmtrl_chng integer x = 974 integer y = 184 integer width = 549 integer height = 620 integer taborder = 60 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 st_3 from statictext within w_order_ml_rqmtrl_chng integer x = 791 integer y = 204 integer width = 174 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 dw_child2 from u_dw_rbtnfilter within w_order_ml_rqmtrl_chng integer y = 1232 integer width = 1294 integer height = 588 integer taborder = 20 boolean bringtotop = true boolean titlebar = true string title = "明细内容 2[双击选择]" string dataobject = "dw_order_ml_rqmtrl_chngmx2_edit" boolean maxbox = true boolean hscrollbar = true boolean vscrollbar = true boolean resizable = true boolean hsplitscroll = true boolean rbutton_setposition_use = true end type event doubleclicked;call super::doubleclicked;IF dw_edit_mode AND row > 0 THEN // IF this.GetColumnName( ) = 'u_mtrldef_mtrlcode' THEN PARENT.TriggerEvent('ue_f7') // END IF END IF end event event dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key') Long child_row String ls_mtrlcode,ls_mtrlname,ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode Long ll_mtrlid string ls_unit, ls_mtrltype int li_mtrlprp, li_mtrlorigin IF dw_edit_mode THEN IF KeyDown(Keydownarrow!) THEN Long li_row IF this.GetRow() = this.RowCount() THEN PARENT.TriggerEvent("insert_childrow2") END IF ELSE If (KeyDown(keyenter!) OR KeyDown(keytab!)) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN IF THIS.GetColumnName() = 'u_mtrldef_mtrlcode' or THIS.GetColumnName() = 'relcode' THEN this.AcceptText() child_row = this.GetRow() PARENT.TriggerEvent('ue_f7') // IF child_row > 0 THEN // ls_mtrlcode = this.Object.u_mtrldef_mtrlcode[child_row] // SELECT mtrlid, // mtrlname, // mtrlmode, // mtrlsectype, // zxmtrlmode, // unit, // mtrltype, // mtrlprp, // mtrlorigin // // INTO :ll_mtrlid, // :ls_mtrlname, // :ls_mtrlmode, // :ls_mtrlsectype, // :ls_zxmtrlmode, // :ls_unit, // :ls_mtrltype, // :li_mtrlprp, // :li_mtrlorigin // FROM u_mtrldef // Where mtrlcode = :ls_mtrlcode; // IF sqlca.SQLCode <> 0 THEN // PARENT.TriggerEvent('ue_f7') // return 1 // ELSE // this.Object.u_OrderRqMtrl_chngmx2_mtrlid[child_row] = ll_mtrlid // this.Object.u_mtrldef_mtrlname [child_row] = ls_mtrlname // this.Object.u_mtrldef_mtrlmode [child_row] = ls_mtrlmode // END IF // // IF Key = keyenter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab // keybd_event ( 9, 0, 2, 0 ) // 释放tab // RETURN 1 // END IF // // END IF ELSE IF Key = keyenter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF END IF END IF END IF END IF end event event clicked;call super::clicked;IF row > 0 AND dw_edit_mode THEN THIS.SetRow(row) IF KeyDown(keycontrol!) THEN IF if_changeselect THEN THIS.SelectRow(row,NOT THIS.IsSelected(row)) ELSE if_changeselect = TRUE END IF ll_lastrow = row ELSEIF KeyDown(keyshift!) THEN //按下SHIFT键 // IF ll_lastrow = 0 THEN //上次没选中任何行 // THIS.SelectRow(row,TRUE) // ll_lastrow = currentrow //ll_lastrow为实例变量，记录上次单击的行 // ELSE // THIS.SelectRow(0,FALSE) //全都不选中 // IF currentrow > ll_lastrow THEN // FOR ll_i = ll_lastrow TO currentrow // THIS.SelectRow(ll_i,TRUE) // NEXT // ELSE // FOR ll_i = ll_lastrow TO currentrow STEP -1 // THIS.SelectRow(ll_i,TRUE) // NEXT // END IF // END IF ELSE THIS.SelectRow(0,FALSE) THIS.SelectRow(row,TRUE) ll_lastrow = row END IF END IF end event event rowfocuschanged;call super::rowfocuschanged;//IF dw_edit_mode THEN RETURN Long ll_i IF NOT dw_edit_mode THEN IF currentrow <= 0 THEN RETURN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) ELSE IF if_del THEN RETURN IF KeyDown(keycontrol!) THEN IF NOT THIS.IsSelected(currentrow) THEN THIS.SelectRow(currentrow,TRUE) if_changeselect = FALSE ELSE if_changeselect = TRUE END IF ELSEIF KeyDown(keyshift!) THEN //按下SHIFT键 IF ll_lastrow = 0 THEN //上次没选中任何行 THIS.SelectRow(currentrow,TRUE) ll_lastrow = currentrow //ll_lastrow为实例变量，记录上次单击的行 ELSE THIS.SelectRow(0,FALSE) //全都不选中 IF currentrow > ll_lastrow THEN FOR ll_i = ll_lastrow TO currentrow THIS.SelectRow(ll_i,TRUE) NEXT ELSE FOR ll_i = ll_lastrow TO currentrow STEP -1 THIS.SelectRow(ll_i,TRUE) NEXT END IF END IF ELSE THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) ll_lastrow = currentrow END IF parent.triggerevent('ue_allowedit') END IF end event event resize;call super::resize; dw_child.x = this.x + this.width + 5 dw_child.width = parent.width - dw_child.X - 10 end event