$PBExportHeader$w_orderrqwp_change.srw forward global type w_orderrqwp_change from w_publ_1ton_share_detail end type type st_2 from statictext within w_orderrqwp_change end type type ddlb_status from dropdownlistbox within w_orderrqwp_change end type type st_3 from statictext within w_orderrqwp_change end type type ddlb_scid from uo_ddlb_scid within w_orderrqwp_change end type end forward global type w_orderrqwp_change from w_publ_1ton_share_detail string title = "工序变更单 " boolean maxbox = true windowstate windowstate = maximized! event insert_childrow ( ) event ue_mtrlarea_rate ( ) event ue_p_wrkgrpid ( ) event ue_p_dipztype ( ) event ue_p_ifover ( ) event ue_p_workprice ( ) event ue_p_lsxtype ( ) event ue_p_pro ( ) event ue_p_workqty ( ) event ue_p_ifjd ( ) event ue_p_workhour ( ) event ue_p_rate_price ( ) event ue_p_status ( ) event ue_p_editflag ( ) event ue_p_wrkid ( ) event ue_formula_cmpl ( ) event ue_formula_def ( ) event ue_formula_dwset ( ) event ue_formula_view ( ) st_2 st_2 ddlb_status ddlb_status st_3 st_3 ddlb_scid ddlb_scid end type global w_orderrqwp_change w_orderrqwp_change type variables long cur_flag= -1 //-1：全部，0未审 Long cur_scid Long cur_scid_arr[] uo_orderrqwp_change uo_change 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 (long arg_billid) public function integer wf_check (long arg_wagemth, long arg_wageid, ref string arg_msg) end prototypes event insert_childrow();long li_row li_row=dw_child.insertrow(0) dw_child.scrolltorow(li_row) dw_child.SetColumn ('u_orderrqwp_change_mx_editflag') end event event ue_mtrlarea_rate();IF NOT dw_edit_mode THEN MessageBox('系统提示',"非编辑状态下不可以使用!") RETURN END IF IF MessageBox ("询问","本功能将根据油漆面积及相关比例计算出新用料量,是否继续?",question!,yesno! ) = 2 THEN RETURN Decimal ld_rebate Long ll_areatype Long ll_i Open(w_mtrlarea_rate) s_edit_index_tran s_tranbate s_tranbate = Message.PowerObjectParm ld_rebate = s_tranbate.b_decimal ll_areatype = s_tranbate.b_long IF ld_rebate = 0 THEN RETURN dw_child.SetRedraw(FALSE) FOR ll_i = 1 TO dw_child.RowCount( ) IF ll_areatype = 0 THEN dw_child.Object.u_prdpf_changemx_sonscale[ll_i] = ld_rebate * dw_child.Object.u_mtrldef_mtrlarea[ll_i] ELSEIF ll_areatype = 1 THEN dw_child.Object.u_prdpf_changemx_sonscale[ll_i] = ld_rebate * dw_child.Object.u_mtrldef_mtrlarea1[ll_i] ELSEIF ll_areatype = 2 THEN dw_child.Object.u_prdpf_changemx_sonscale[ll_i] = ld_rebate * dw_child.Object.u_mtrldef_mtrlarea2[ll_i] END IF NEXT dw_child.SetRedraw(TRUE) 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 IF dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[1] = 0 THEN RETURN dw_child.setredraw(false) FOR ll_i = 1 TO dw_child.RowCount() IF ll_i = 1 THEN CONTINUE IF dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = 0 THEN CONTINUE dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[ll_i] = dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[1] NEXT dw_child.setredraw(true) end event event ue_p_dipztype();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_prdpf_changemx_dipztype[ll_i] = dw_child.Object.u_prdpf_changemx_dipztype[1] NEXT dw_child.setredraw(true) end event event ue_p_ifover();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_prdpf_changemx_ifover[ll_i] = dw_child.Object.u_prdpf_changemx_ifover[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_workprice();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = dw_child.Object.u_orderrqwp_change_mx_workprice[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_lsxtype();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_workprice_changemx_lsxtype[ll_i] = dw_child.Object.u_workprice_changemx_lsxtype[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_pro();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 ll_i = 1 THEN CONTINUE IF dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = 0 THEN CONTINUE dw_child.Object.u_orderrqwp_change_mx_procode[ll_i] = dw_child.Object.u_orderrqwp_change_mx_procode[1] dw_child.Object.u_orderrqwp_change_mx_proname[ll_i] = dw_child.Object.u_orderrqwp_change_mx_proname[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_workqty();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_orderrqwp_change_mx_proqty[ll_i] = dw_child.Object.u_orderrqwp_change_mx_proqty[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_ifjd();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_workprice_changemx_ifjd[ll_i] = dw_child.Object.u_workprice_changemx_ifjd[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_workhour();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_workprice_changemx_workhour[ll_i] = dw_child.Object.u_workprice_changemx_workhour[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_rate_price();IF NOT dw_edit_mode THEN MessageBox('系统提示','非编辑状态下不能使用') RETURN END IF Long ll_i Decimal ld_rate Long ll_if_all Long ll_row Long ll_dec Long ll_way ll_row = dw_child.GetRow() IF ll_row <= 0 THEN MessageBox('系统提示','请选择明细内容') RETURN END IF s_edit_index_tran s_ins_rate Open(w_workprice_change_rate_edit) s_ins_rate = Message.PowerObjectParm ld_rate = s_ins_rate.b_decimal ll_if_all = s_ins_rate.b_long ll_dec = s_ins_rate.c_long ll_way = s_ins_rate.d_long IF ll_if_all = -1 THEN RETURN dw_child.AcceptText() IF ll_if_all = 0 THEN IF ll_way = 0 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] + ld_rate,ll_dec) ELSEIF ll_way = 1 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] - ld_rate,ll_dec) ELSEIF ll_way = 2 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] * ld_rate,ll_dec) ELSEIF ll_way = 3 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] / ld_rate,ll_dec) END IF ELSEIF ll_if_all = 1 THEN dw_child.SetRedraw(FALSE) FOR ll_i = 1 TO dw_child.RowCount() IF ll_way = 0 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] + ld_rate,ll_dec) ELSEIF ll_way = 1 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] - ld_rate,ll_dec) ELSEIF ll_way = 2 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] * ld_rate,ll_dec) ELSEIF ll_way = 3 THEN dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] / ld_rate,ll_dec) END IF NEXT dw_child.SetRedraw(TRUE) END IF end event event ue_p_status();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 IF dw_child.Object.u_orderrqwp_change_mx_status [1] = '' THEN RETURN dw_child.SetRedraw(FALSE) FOR ll_i = 1 TO dw_child.RowCount() IF ll_i = 1 THEN CONTINUE IF dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = 0 THEN CONTINUE IF dw_child.Object.u_mtrldef_statusflag [ll_i] <> 2 THEN CONTINUE dw_child.Object.u_orderrqwp_change_mx_status[ll_i] = dw_child.Object.u_orderrqwp_change_mx_status[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_p_editflag();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 ll_i = 1 THEN CONTINUE dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = dw_child.Object.u_orderrqwp_change_mx_editflag[1] NEXT dw_child.SetRedraw(True) end event event ue_p_wrkid();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 ll_i = 1 THEN CONTINUE IF dw_child.Object.u_workprice_changemx_editflag[ll_i] = 0 THEN CONTINUE dw_child.Object.u_workprice_changemx_wrkid[ll_i] = dw_child.Object.u_workprice_changemx_wrkid[1] NEXT dw_child.SetRedraw(TRUE) end event event ue_formula_cmpl();long i string ls_formula string ls_express, ls_dname, ls_tname dec lde_workprice string ls_rtn long ll_row long ARGNUM = 9 ls_formula = f_ProfileString(-1, "sc_workpricetable_formula_def", "formula", "") ls_express = Trim(ls_formula) for i = 1 to ARGNUM ls_dname = 'arg'+string(i) ls_tname = f_ProfileString(-1, "sc_workpricetable_formula_def", "arg"+String(i)+"_name", "参数"+String(i)) SELECT Top 1 Replace( :ls_express,:ls_tname,:ls_dname) Into :ls_express From u_user; next datastore ds ds = Create datastore ds.DataObject = 'ds_sc_workpricetable_formula_cmpl' ll_row = ds.InsertRow(0) ls_rtn = ds.Modify("compute.expression='"+ls_express+"'") IF ls_rtn <> '' THEN messagebox('ERROR', '语法检查不通过,计算公式必须是符合四则运算逻辑表达式') RETURN END IF dw_child.accepttext() for i = 1 to dw_child.rowcount() ds.object.arg1[ll_row] = dw_child.object.arg1[i] ds.object.arg2[ll_row] = dw_child.object.arg2[i] ds.object.arg3[ll_row] = dw_child.object.arg3[i] ds.object.arg4[ll_row] = dw_child.object.arg4[i] ds.object.arg5[ll_row] = dw_child.object.arg5[i] ds.object.arg6[ll_row] = dw_child.object.arg6[i] ds.object.arg7[ll_row] = dw_child.object.arg7[i] ds.object.arg8[ll_row] = dw_child.object.arg8[i] ds.object.arg9[ll_row] = dw_child.object.arg9[i] dw_child.object.u_workprice_changemx_workprice[i] = ds.object.compute[ll_row] next return end event event ue_formula_def(); openwithparm(w_sc_workpricetable_formula_def, 1) //open(w_sc_workpricetable_formula_def) //dw_child.settransobject(sqlca) //dw_child.triggerevent("constructor") this.triggerevent("ue_formula_dwset") end event event ue_formula_dwset();Long i, ll_row String ls_argnewname Int li_isuse string ls_modify long ARGNUM = 9 FOR i = 1 To ARGNUM ls_argnewname = f_ProfileString(-1, "sc_workpricetable_formula_def", "arg"+String(i)+"_name", "参数"+String(i)) li_isuse = Integer(f_ProfileString(-1, "sc_workpricetable_formula_def", "arg"+String(i)+"_isnse", "1")) if li_isuse = 1 then ls_modify += "arg"+String(i)+'_t'+ ".text='"+ls_argnewname+"'"+ ' ~n ' else ls_modify += "destroy arg"+String(i) + ' ~n ' ls_modify += "destroy arg"+String(i)+'_t' + ' ~n ' // ls_modify += " arg"+String(i) + '.visible = false ~n ' // ls_modify += " arg"+String(i)+'_t.visible = false' + ' ~n ' end if NEXT dw_child.Modify(ls_modify) end event event ue_formula_view();openwithparm(w_sc_workpricetable_formula_def, 0) 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 (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 Long billid DateTime billdate String relcode String rep String dscrp Int flag DateTime opdate String opemp DateTime moddate String modemp DateTime auditdate String auditemp Long scid String billcode SELECT billdate, relcode, rep, dscrp, flag, opdate, opemp, moddate, modemp, auditdate, auditemp, scid, billcode INTO :billdate, :relcode, :rep, :dscrp, :flag, :opdate, :opemp, :moddate, :modemp, :auditdate, :auditemp, :scid, :billcode FROM u_orderrqwp_change Where billid = :arg_billid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示',"查询操作失败(错误单据唯一码)") RETURN 0 END IF dw_pageretr.SetRedraw(False) dw_pageretr.Object.billid[uc_row] = arg_billid dw_pageretr.Object.billdate[uc_row] = billdate dw_pageretr.Object.relcode[uc_row] = relcode dw_pageretr.Object.rep[uc_row] = rep dw_pageretr.Object.dscrp[uc_row] = dscrp dw_pageretr.Object.flag[uc_row] = flag 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.auditdate[uc_row] = auditdate dw_pageretr.Object.auditemp[uc_row] = auditemp dw_pageretr.Object.scid[uc_row] = scid dw_pageretr.Object.billcode[uc_row] = billcode 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_check (long arg_wagemth, long arg_wageid, ref string arg_msg);//检查该月该项目所属的单据是否已审 Int rslt = 1 Long ll_wagemode Long cnt Long li_year,li_month li_year = Long(Left(String(arg_wagemth),4)) li_month = Long(Right(String(arg_wagemth),2)) SELECT wagemode INTO :ll_wagemode FROM u_gz_wageitem Where wageid = :arg_wageid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工资项目计算方法失败'+sqlca.SQLErrText GOTO ext END IF CHOOSE CASE ll_wagemode CASE 12 cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_2 WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND flag = 0 AND billtype = 1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询个人产品计件单明细失败!原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的个人产品计件单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 13 cnt = 0 SELECT count(*) INTO :cnt FROM u_sc_taskwork WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND Auditingflag = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询产品个人计件单明细失败!原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的产品个人计件单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 14 cnt = 0 SELECT count(*) INTO :cnt FROM u_sc_abnormity WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND secAuditingflag = 0; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否有异常计件单未审核失败,原因>>'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN arg_msg = '该月的异常计件单没有审核,不能更改该项目工资金额!' rslt = 0 GOTO ext END IF CASE 15 cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork WHERE u_scwg_taskwork.wageid = :arg_wageid AND u_scwg_taskwork.wagemth = :arg_wagemth AND u_scwg_taskwork.Auditingflag = 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询操作失败,已经审核数量' GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '还有工作中心工序单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 16 cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_2 WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND flag = 0 AND billtype = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工作中心产品月分配计件单明细失败!原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的工作中心产品月分配计件单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 17 cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工作中心产品日分配计件单操作失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的工作中心产品日分配计件单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 18 cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_2 WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND flag = 0 AND billtype = 2; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工作中心月分配异常计件单明细失败!原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的工作中心月分配异常计件单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 19 cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工作中心日分配异常计件单操作失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的工作中心日分配异常计件单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 21 cnt = 0 SELECT count(*) INTO :cnt FROM u_gz_loanwage WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND flag = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询借支单明细失败！原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的借支单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 22 cnt = 0 SELECT count(*) INTO :cnt FROM u_outware WHERE billtype = 10 AND relid = :arg_wageid AND secflag = 0 AND year(outdate) = :li_year AND Month(outdate) = :li_month; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询扣费单明细失败！原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的扣费单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 23 cnt = 0 SELECT count(*) INTO :cnt FROM u_gz_award_punish WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND flag = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询奖罚单明细失败!原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的奖罚单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 24 cnt = 0 SELECT count(*) INTO :cnt FROM u_kq_cwork WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND flag = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询考勤单明细失败！原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的考勤单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 25 cnt = 0 SELECT count(*) INTO :cnt FROM u_test WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND secAuditingflag = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询绩效考核单明细失败!原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的绩效考核单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE 26 cnt = 0 SELECT count(*) INTO :cnt FROM u_consume_list WHERE wagemth = :arg_wagemth AND wageid = :arg_wageid AND wageflag = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询消费单明细失败!原因：'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '该月的消费单没有审核,不能更改该项目工资金额!' GOTO ext END IF CASE ELSE END CHOOSE ext: RETURN rslt end function on w_orderrqwp_change.create int iCurrent call super::create this.st_2=create st_2 this.ddlb_status=create ddlb_status this.st_3=create st_3 this.ddlb_scid=create ddlb_scid iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.st_2 this.Control[iCurrent+2]=this.ddlb_status this.Control[iCurrent+3]=this.st_3 this.Control[iCurrent+4]=this.ddlb_scid end on on w_orderrqwp_change.destroy call super::destroy destroy(this.st_2) destroy(this.ddlb_status) destroy(this.st_3) destroy(this.ddlb_scid) end on event open;call super::open;uc_column_int = 5 child_column_int = 10 uo_change = create uo_orderrqwp_change end event event close;call super::close;destroy uo_change end event event refresh_interface;call super::refresh_interface;wf_flagstatus_rf() ddlb_status.enabled=not dw_edit_mode ddlb_scid.Enabled = 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_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_orderrqwp_change.billcode like '%"+trim(sle_usual_query.text)+"%')" else ls_querystrpart="(u_orderrqwp_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;Long ll_pwrid Long LS_ROW LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF ll_pwrid = 1627 S_print_MSG LS_PRMSG IF ls_powerid = 0 THEN ls_powerid = ll_pwrid END IF IF ls_newname <> '' THEN IF Not f_power_ind(ls_powerid,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF IF li_auditprint = 1 THEN IF dw_pageretr.Object.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(ll_pwrid,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) 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 = This.Title 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 row = dw_pageretr.GetRow() dw_child.setsort('u_workprice_changemx_printid A') dw_child.sort() IF row > 0 THEN uc_relid = dw_pageretr.Object.billid[row] dw_child.SetRedraw (FALSE) dw_child.Retrieve(uc_relid) dw_child.SetRedraw (TRUE) ELSE dw_child.Reset() END IF end event event ue_f8;call super::ue_f8;IF Not dw_edit_mode THEN RETURN Long uc_row,ls_j Int li_statusflag,li_woodcodeflag,li_pcodeflag Long ll_statustype,ll_woodcodetype,ll_pcodetype String ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode //Long ll_dftwrkgrpid Long ll_wkpid s_mtrldef_array arg_s_mtrldef uc_row = dw_child.GetRow() IF uc_row = 0 THEN MessageBox('系统提示','请选定单据!') RETURN END IF dw_child.AcceptText() IF Not IsValid(w_order_ml_mx_mtrl_ch) THEN s_edit_index_tran s_open //传递参数使用 s_open.if_select_any = True s_open.b_string = Trim(dw_child.Object.u_saletask_taskcode[uc_row]) IF cur_scid < 0 THEN s_open.d_long = dw_child.Object.u_orderrqwp_change_mx_scid[uc_row] ELSE s_open.d_long = cur_scid END IF s_open.f_long = 0 s_open.g_long = 1 //使用终止计件条件 s_open.h_long = 0 //进仓 s_open.c_long = 1 //领料 OpenWithParm(w_order_ml_mx_mtrl_ch,s_open) s_saletask_mtrl s_inscust s_inscust = Message.PowerObjectParm //接受返回结构 dw_child.SetRedraw(False) FOR ls_j = 1 To UpperBound(s_inscust.taskid) IF s_inscust.taskid[ls_j] > 0 THEN //正常返回值则可以取以下值 IF dw_child.GetRow() > 0 THEN IF dw_child.Object.u_orderrqwp_change_mx_relid[uc_row] > 0 THEN uc_row = dw_child.InsertRow (0) ELSE uc_row = dw_child.GetRow() END IF ELSE uc_row = dw_child.InsertRow (0) END IF IF uc_row > 1 THEN dw_child.Object.u_orderrqwp_change_mx_editflag[uc_row] = dw_child.Object.u_orderrqwp_change_mx_editflag[uc_row - 1] END IF dw_child.Object.u_orderrqwp_change_mx_relid[uc_row] = s_inscust.taskid[ls_j] dw_child.Object.u_orderrqwp_change_mx_relprintid[uc_row] = s_inscust.printid[ls_j] dw_child.Object.u_saletask_taskcode[uc_row] = s_inscust.taskcode[ls_j] dw_child.Object.u_orderrqwp_change_mx_mtrlid[uc_row] = s_inscust.mtrlid[ls_j] dw_child.Object.u_mtrldef_mtrlcode[uc_row] = s_inscust.mtrlcode[ls_j] dw_child.Object.u_mtrldef_mtrlname[uc_row] = s_inscust.mtrlname[ls_j] dw_child.Object.u_mtrldef_unit[uc_row] = s_inscust.unit[ls_j] dw_child.Object.u_orderrqwp_change_mx_status[uc_row] = s_inscust.status[ls_j] IF f_find_mtrl(s_inscust.mtrlcode[1],-1,arg_s_mtrldef) = 0 THEN li_statusflag = 0 li_woodcodeflag = 0 li_pcodeflag = 0 ll_statustype = 0 ll_woodcodetype = 0 ll_pcodetype = 0 // ll_dftwrkgrpid = 0 ls_mtrlmode = '' ls_mtrlsectype = '' ls_zxmtrlmode = '' ls_usermtrlmode = '' ELSE li_statusflag = arg_s_mtrldef.statusflag[1] ll_statustype = arg_s_mtrldef.statustype[1] li_woodcodeflag = arg_s_mtrldef.woodcodeflag[1] ll_woodcodetype = arg_s_mtrldef.woodcodetype[1] li_pcodeflag = arg_s_mtrldef.pcodeflag[1] ll_pcodetype = arg_s_mtrldef.pcodetype[1] // ll_dftwrkgrpid = arg_s_mtrldef.dftwrkgrpid[1] ls_mtrlmode = arg_s_mtrldef.mtrlmode[1] ls_mtrlsectype = arg_s_mtrldef.mtrlsectype[1] ls_zxmtrlmode = arg_s_mtrldef.zxmtrlmode[1] ls_usermtrlmode = arg_s_mtrldef.usermtrlmode[1] END IF dw_child.Object.u_mtrldef_statusflag[uc_row] = li_statusflag dw_child.Object.u_mtrldef_mtrlmode[uc_row] = ls_mtrlmode dw_child.Object.u_mtrldef_mtrlsectype[uc_row] = ls_mtrlsectype dw_child.Object.u_mtrldef_zxmtrlmode[uc_row] = ls_zxmtrlmode dw_child.Object.u_mtrldef_usermtrlmode[uc_row] = ls_usermtrlmode END IF NEXT dw_child.SetRedraw(True) END IF end event event ue_print;call super::ue_print;//--直接打印 uo_print_preview uo_print IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN S_print_MSG LS_PRMSG long ll_pwrid Long LS_ROW LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF ll_pwrid = 1627 IF ls_powerid = 0 THEN ls_powerid = ll_pwrid END IF IF ls_newname <> '' THEN IF Not f_power_ind(ls_powerid,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF IF li_auditprint = 1 THEN IF dw_pageretr.Object.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(1627,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) 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 = this.title 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(1626,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) 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_change.add_dscrp(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.billid[uc_row]) END IF end event event ue_f9;call super::ue_f9;//用于选择明细内容,被F10[默认]\dw_child.doubleclicked调用 IF NOT dw_edit_mode THEN RETURN Long child_row child_row = dw_child.GetRow() IF NOT IsValid(w_sc_workprocedure_response) THEN s_edit_index_tran s_ch_tran s_ch_tran.if_retrieve_all = TRUE s_ch_tran.work_mode = 1 s_ch_tran.arg_pkid = 0 s_ch_tran.b_long = 0 s_ch_tran.if_select_all = FALSE Long chc = 1,ls_j IF dw_child.GetRow() > 0 THEN s_ch_tran.arg_string_code = Trim(dw_child.Object.u_orderrqwp_change_mx_procode[dw_child.GetRow()]) OpenWithParm(w_sc_workprocedure_response,s_ch_tran) //调用 s_workprocedure S_INSCUST S_INSCUST = Message.PowerObjectParm //接受返回结构 FOR ls_j = 1 TO UpperBound(S_INSCUST.wrkproid) IF S_INSCUST.wrkproid[ls_j] > 0 THEN //正常返回值则可以取以下值 dw_child.Object.u_orderrqwp_change_mx_procode[child_row] = S_INSCUST.wrkprocode[ls_j] dw_child.Object.u_orderrqwp_change_mx_proname[child_row] = S_INSCUST.wrkproname[ls_j] dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[child_row] = S_INSCUST.workprice[ls_j] dw_child.Object.u_orderrqwp_change_mx_workprice[child_row] = S_INSCUST.wrkGrid[ls_j] END IF NEXT dw_child.SetColumn("u_orderrqwp_change_mx_proqty") dw_child.SetFocus() END IF end event event ue_f7;call super::ue_f7;Long child_row,uc_row Long ls_j Long ll_empid String ls_empcode,ls_empname Int li_statusflag String ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode s_mtrldef_array arg_s_mtrldef dw_child.AcceptText() dw_uc.AcceptText() uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选择单据!') RETURN END IF child_row = dw_child.GetRow() IF child_row <= 0 THEN MessageBox('系统提示','当前没有记录!') RETURN END IF IF Not IsValid(w_order_ml_pro_change_ch) THEN s_edit_index_tran s_select_open //传递参数使用 s_select_open.if_select_any = true //可以多选 IF dw_uc.Object.billid[uc_row] = 0 THEN s_select_open.c_long = cur_scid ELSE s_select_open.c_long = dw_uc.Object.scid[uc_row] END IF OpenWithParm(w_order_ml_pro_change_ch,s_select_open) s_workpricetable_array s_inscust s_inscust = Message.PowerObjectParm dw_child.SetRedraw(False) FOR ls_j = 1 To UpperBound(s_inscust.procode) IF IsNull(s_inscust.procode[ls_j]) Or s_inscust.procode[ls_j] = '' THEN CONTINUE IF dw_child.GetRow() > 0 THEN IF dw_child.Object.u_orderrqwp_change_mx_relid[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_orderrqwp_change_mx_procode[child_row] = s_inscust.procode[ls_j] dw_child.Object.u_orderrqwp_change_mx_proname[child_row] = s_inscust.proname[ls_j] dw_child.Object.u_orderrqwp_change_mx_proorder[child_row] = s_inscust.proorder[ls_j] dw_child.Object.u_orderrqwp_change_mx_workprice[child_row] = s_inscust.workprice[ls_j] dw_child.Object.u_orderrqwp_change_mx_workprice_ori[child_row] = s_inscust.workprice[ls_j] dw_child.Object.u_orderrqwp_change_mx_proqty[child_row] = s_inscust.proqty[ls_j] dw_child.Object.u_orderrqwp_change_mx_proqty_ori[child_row] = s_inscust.proqty[ls_j] dw_child.Object.u_orderrqwp_change_mx_status[child_row] = s_inscust.status[ls_j] // dw_child.Object.u_orderrqwp_change_mx_ifjd[child_row] = s_inscust.ifjd[ls_j] // dw_child.Object.u_orderrqwp_change_mx_lastflag[child_row] = s_inscust.lastflag[ls_j] dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[child_row] = s_inscust.wrkgrpid[ls_j] // dw_child.Object.u_order_ml_status_mode[child_row] = s_inscust.status_mode[ls_j] // dw_child.Object.u_order_ml_taskcode[child_row] = s_inscust.taskcode[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_unit[child_row] = s_inscust.unit[ls_j] dw_child.Object.u_orderrqwp_change_mx_scid[child_row] = s_inscust.scid[ls_j] dw_child.Object.u_orderrqwp_change_mx_relid[child_row] = s_inscust.taskid[ls_j] dw_child.Object.u_orderrqwp_change_mx_relprintid[child_row] = s_inscust.printid[ls_j] // dw_child.Object.u_orderrqwp_change_mx_taskid[child_row] = s_inscust.taskid[ls_j] dw_child.Object.u_orderrqwp_change_mx_mtrlid[child_row] = s_inscust.mtrlid[ls_j] IF f_find_mtrl(s_inscust.mtrlcode[1],-1,arg_s_mtrldef) = 0 THEN li_statusflag = 0 ls_mtrlmode = '' ls_mtrlsectype = '' ls_zxmtrlmode = '' ls_usermtrlmode = '' ELSE li_statusflag = arg_s_mtrldef.statusflag[1] ls_mtrlmode = arg_s_mtrldef.mtrlmode[1] ls_mtrlsectype = arg_s_mtrldef.mtrlsectype[1] ls_zxmtrlmode = arg_s_mtrldef.zxmtrlmode[1] // ls_usermtrlmode = arg_s_mtrldef.usermtrlmode[1] END IF dw_child.Object.u_mtrldef_statusflag[uc_row] = li_statusflag dw_child.Object.u_mtrldef_mtrlmode[uc_row] = ls_mtrlmode dw_child.Object.u_mtrldef_mtrlsectype[uc_row] = ls_mtrlsectype dw_child.Object.u_mtrldef_zxmtrlmode[uc_row] = ls_zxmtrlmode // dw_child.Object.u_mtrldef_usermtrlmode[uc_row] = ls_usermtrlmode NEXT dw_child.SetRedraw(True) END IF end event event ue_f10;call super::ue_f10;long ll_row,ll_mtrlid string ls_pfcode //dw_child.accepttext() // //ll_row = dw_child.getrow() // //if ll_row <= 0 then return // //ll_mtrlid = dw_child.object.u_prdpf_changemx_mtrlid[ll_row] // //if ll_mtrlid <= 0 then // messagebox('提示','请先选择上级物料') // return //end if // //openwithparm(w_mtrl_pf_ch,ll_mtrlid) //ls_pfcode = message.stringparm // //if ls_pfcode <> '' then dw_child.object.u_prdpf_changemx_pfcode[ll_row] = ls_pfcode end event event ue_f11;call super::ue_f11;Long ll_row,ll_mtrlid String ls_pfcode Long uc_row //dw_uc.AcceptText() //dw_child.AcceptText() // //uc_row = dw_uc.GetRow() //IF uc_row <= 0 THEN RETURN // //ll_row = dw_child.GetRow() //IF ll_row <= 0 THEN RETURN // //ll_mtrlid = dw_uc.Object.u_prdpf_change_sonmtrlid[ll_row] // //IF ll_mtrlid <= 0 THEN // MessageBox('提示','请先选择物料') // dw_uc.SetFocus() // dw_uc.SetColumn("u_mtrldef_mtrlcode") // RETURN //END IF // //OpenWithParm(w_mtrl_pf_ch,ll_mtrlid) //ls_pfcode = Message.StringParm // //IF ls_pfcode <> '' THEN dw_child.Object.u_prdpf_changemx_sonpfcode[ll_row] = ls_pfcode end event event ue_f12;call super::ue_f12;IF Not dw_edit_mode THEN RETURN Long uc_row,ll_mtrlid,child_row String ls_status child_row = dw_child.GetRow() IF child_row <= 0 THEN MessageBox('系统提示','请选择明细') RETURN END IF dw_child.AcceptText() ll_mtrlid = dw_child.Object.u_orderrqwp_change_mx_mtrlid[child_row] IF ll_mtrlid <= 0 THEN MessageBox('系统提示','请选择物料') RETURN END IF IF Not IsValid(w_configure_ch_zj) THEN s_edit_index_tran s_ch_tran s_ch_tran.c_long = ll_mtrlid OpenWithParm(w_configure_ch_zj,s_ch_tran) //调用 ls_status = Message.StringParm //接受返回结构 dw_child.SetRedraw(False) IF Len(Trim(ls_status)) > 0 THEN IF ls_status = '[清空配置]' THEN ls_status = '' dw_child.Object.u_orderrqwp_change_mx_status[child_row] = ls_status dw_child.SetFocus() dw_child.SetColumn('u_orderrqwp_change_mx_proqty') END IF dw_child.SetRedraw(True) END IF end event event ue_f6;call super::ue_f6;IF dw_edit_mode THEN RETURN Long ll_row ll_row = dw_child.GetRow() IF ll_row <= 0 THEN RETURN Long ll_mtrlid String ls_procode ll_mtrlid = dw_child.Object.u_workprice_changemx_mtrlid[ll_row] ls_procode = dw_child.Object.u_workprice_changemx_procode[ll_row] IF ll_mtrlid = 0 OR ls_procode = '' THEN RETURN s_edit_index_tran s_tran_his //传递参数使用 s_tran_his.b_long = ll_mtrlid s_tran_his.b_string = ls_procode OpenWithParm(w_workprice_change_his,s_tran_his) end event event ue_allowedit;// end event type cb_func from w_publ_1ton_share_detail`cb_func within w_orderrqwp_change end type type cb_exit from w_publ_1ton_share_detail`cb_exit within w_orderrqwp_change integer x = 2368 end type type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_orderrqwp_change integer x = 229 integer width = 553 end type type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_orderrqwp_change integer x = 2821 end type type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_orderrqwp_change integer x = 2519 end type type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_orderrqwp_change integer x = 1733 integer width = 1861 integer height = 824 string dataobject = "dw_orderrqwp_change_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_orderrqwp_change integer x = 0 alignment alignment = right! end type type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_orderrqwp_change integer x = 2971 end type type dw_uc from w_publ_1ton_share_detail`dw_uc within w_orderrqwp_change integer width = 1723 integer height = 824 string dataobject = "dw_orderrqwp_change_edit" end type event dw_uc::buttonclicked;call super::buttonclicked;IF row > 0 And dw_edit_mode THEN IF dwo.Name = 'b_pro' THEN Parent.TriggerEvent('ue_f9') END IF END IF end event 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_child.ScrollToRow(1) dw_child.SetFocus() dw_child.SetColumn ('u_orderrqwp_change_mx_editflag') RETURN 1 ELSEIF dw_uc.GetColumnName ( ) = 'procode' AND Key = KeyEnter! THEN // ls_procode = dw_uc.Object.procode[dw_uc.GetRow()] // SELECT code,name // INTO :ls_procode_f,:ls_proname_f // FROM u_sc_workprocedure // Where code Like :ls_procode; // IF sqlca.SQLCode <> 0 THEN // // ELSE // // IF ll_ori_mtrlid <> ll_mtrlid AND ll_ori_mtrlid <> 0 THEN // IF MessageBox('询问','物料发生改变,明细列表将被清空,是否继续?',Question!,YesNo! ) = 2 THEN RETURN // dw_child.Reset() // dw_child.InsertRow(0) // END IF // dw_uc.Object.procode[dw_uc.GetRow()] = ll_mtrlid // dw_uc.Object.proname[dw_uc.GetRow()] = ls_mtrlcode // // 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 event event dw_uc::doubleclicked;IF dw_edit_mode AND row > 0 THEN IF dwo.Name = 'procode' or & dwo.name = 'proname' THEN PARENT.TriggerEvent('ue_f9') END IF END IF end event type gb_2 from w_publ_1ton_share_detail`gb_2 within w_orderrqwp_change 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_orderrqwp_change integer y = 1120 integer width = 3589 integer height = 1052 string dataobject = "dw_orderrqwp_change_mx_edit" end type event dw_child::dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key') Long child_row String ls_procode,ls_proname String ls_mtrlcode,ls_mtrlname,ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode Long ll_mtrlid 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 IF dw_child.Object.u_workprice_changemx_editflag[child_row] = 1 THEN ls_mtrlcode = dw_child.Object.u_mtrldef_mtrlcode[child_row] SELECT mtrlid, mtrlname, mtrlmode, mtrlsectype, zxmtrlmode INTO :ll_mtrlid, :ls_mtrlname, :ls_mtrlmode, :ls_mtrlsectype, :ls_zxmtrlmode FROM u_mtrldef Where mtrlcode = :ls_mtrlcode; IF sqlca.SQLCode <> 0 THEN PARENT.TriggerEvent('ue_f8') ELSE dw_child.Object.u_workprice_changemx_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 END IF END IF END IF ELSEIF THIS.GetColumnName() = 'u_workprice_changemx_procode' THEN dw_child.AcceptText() child_row = dw_child.GetRow() IF child_row > 0 THEN IF dw_child.Object.u_workprice_changemx_editflag[child_row] = 1 THEN ls_procode = dw_child.Object.u_workprice_changemx_procode[child_row] SELECT u_sc_workprocedure.name INTO :ls_proname FROM u_sc_workprocedure Where ( u_sc_workprocedure.code = :ls_procode); IF sqlca.SQLCode <> 0 THEN PARENT.TriggerEvent('ue_f9') ELSE dw_child.Object.u_workprice_changemx_proname[child_row] = ls_proname END IF 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;dw_child.AcceptText() IF dw_edit_mode AND row > 0 THEN IF dw_child.Object.u_orderrqwp_change_mx_editflag[row] = 0 THEN PARENT.TriggerEvent('ue_f7') ELSE IF dwo.name = 'u_mtrldef_mtrlcode' or dwo.name = 'u_saletask_taskcode' THEN PARENT.TriggerEvent('ue_f8') ELSEIF dwo.name = 'u_orderrqwp_change_mx_procode' OR dwo.name = 'u_orderrqwp_change_mx_proname' or dwo.name = 'u_orderrqwp_change_mx_proorder' THEN PARENT.TriggerEvent('ue_f9') ELSEIF dwo.name = 'u_orderrqwp_change_mx_status' AND dw_child.Object.u_mtrldef_statusflag[row] = 2 THEN PARENT.TriggerEvent('ue_f12') END IF END IF END IF end event type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_orderrqwp_change integer x = 1723 end type type cb_print from w_publ_1ton_share_detail`cb_print within w_orderrqwp_change integer x = 1531 end type type cb_add from w_publ_1ton_share_detail`cb_add within w_orderrqwp_change end type event cb_add::clicked;IF Not f_power_ind(1623,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF String arg_msg = '' Long uc_row,i,count = 0 s_orderrqwp_change arg_s_change 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.rep[uc_row] = '' THEN MessageBox('系统提示','请填写经手人!') dw_uc.SetFocus() dw_uc.SetColumn("rep") RETURN END IF arg_s_change.billid = dw_uc.Object.billid[uc_row] arg_s_change.billdate = dw_uc.Object.billdate[uc_row] arg_s_change.rep = dw_uc.Object.rep[uc_row] arg_s_change.dscrp = dw_uc.Object.dscrp[uc_row] arg_s_change.relcode = dw_uc.Object.relcode[uc_row] FOR i = 1 To dw_child.RowCount() IF dw_child.Object.u_orderrqwp_change_mx_relid[i] > 0 THEN IF dw_child.Object.u_orderrqwp_change_mx_procode[i] = '' Or & dw_child.Object.u_orderrqwp_change_mx_proname[i] = '' THEN MessageBox('系统提示','工序号或工序名称不能为空,第'+String(i)+'行') RETURN END IF IF dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[i] = 0 THEN MessageBox('系统提示','请选择工组,第'+String(i)+'行') RETURN END IF IF Trim(dw_child.Object.u_orderrqwp_change_mx_status[i]) <> '' THEN IF Pos(dw_child.Object.u_order_ml_status_mode[i],dw_child.Object.u_orderrqwp_change_mx_status[i]) <= 0 THEN MessageBox('系统提示','第'+String(i)+'行,与选的工序组合配置与指令单的组合配置不相符,请检查') RETURN END IF END IF count++ arg_s_change.arg_s_mx[count].printid = count arg_s_change.arg_s_mx[count].mtrlid = dw_child.Object.u_orderrqwp_change_mx_mtrlid[i] arg_s_change.arg_s_mx[count].proqty_ori = dw_child.Object.u_orderrqwp_change_mx_proqty_ori[i] arg_s_change.arg_s_mx[count].proqty = dw_child.Object.u_orderrqwp_change_mx_proqty[i] arg_s_change.arg_s_mx[count].workprice_ori = dw_child.Object.u_orderrqwp_change_mx_workprice_ori[i] arg_s_change.arg_s_mx[count].workprice = dw_child.Object.u_orderrqwp_change_mx_workprice[i] arg_s_change.arg_s_mx[count].wrkgrpid = dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[i] arg_s_change.arg_s_mx[count].dscrp = dw_child.Object.u_orderrqwp_change_mx_dscrp[i] arg_s_change.arg_s_mx[count].procode = dw_child.Object.u_orderrqwp_change_mx_procode[i] arg_s_change.arg_s_mx[count].proname = dw_child.Object.u_orderrqwp_change_mx_proname[i] arg_s_change.arg_s_mx[count].proorder = dw_child.Object.u_orderrqwp_change_mx_proorder[i] arg_s_change.arg_s_mx[count].status = dw_child.Object.u_orderrqwp_change_mx_status[i] arg_s_change.arg_s_mx[count].ifjd = dw_child.Object.u_orderrqwp_change_mx_ifjd[i] arg_s_change.arg_s_mx[count].scid = dw_child.Object.u_orderrqwp_change_mx_scid[i] arg_s_change.arg_s_mx[count].relid = dw_child.Object.u_orderrqwp_change_mx_relid[i] arg_s_change.arg_s_mx[count].relprintid = dw_child.Object.u_orderrqwp_change_mx_relprintid[i] arg_s_change.arg_s_mx[count].editflag = dw_child.Object.u_orderrqwp_change_mx_editflag[i] arg_s_change.arg_s_mx[count].lastflag = dw_child.Object.u_orderrqwp_change_mx_lastflag[i] END IF NEXT IF uo_change.Save(arg_s_change,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(uo_change.uo_billid) //刷新uc ELSE IF cur_scid < 0 THEN MessageBox('error!',"请选择分部") RETURN END IF END IF CALL Super::Clicked IF dw_edit_mode THEN Parent.TriggerEvent("insert_childrow") 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_orderrqwp_change end type event cb_edit::clicked;IF NOT f_power_ind(1623,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) 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_change.updatebegin(dw_pageretr.Object.billid[uc_row],arg_msg) = 0 THEN MessageBox('Error!',arg_msg) RETURN END IF wf_refresh_curuc(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_orderrqwp_change end type event cb_delet::clicked;IF NOT f_power_ind(1624,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) 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_change.del(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_orderrqwp_change integer x = 1029 end type event cb_addzy::clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr IF NOT dw_edit_mode THEN menustr = "Text=增加备注~tEvent=ue_addzy" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=复制单据~tEvent=ue_bill_copy" ELSE menustr = "Text=粘贴单据~tEvent=ue_bill_paste" 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_auditing from w_publ_1ton_share_detail`cb_auditing within w_orderrqwp_change end type event cb_auditing::clicked;call super::clicked;IF NOT f_power_ind(1625,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) 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_change.audit(ll_billid,publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'审核成功!') wf_refresh_curuc(dw_pageretr.Object.billid[pagerert_row]) END IF end event type cb_xm from w_publ_1ton_share_detail`cb_xm within w_orderrqwp_change integer x = 1280 end type event cb_xm::clicked;is_mx_menustr = '' IF dw_edit_mode THEN is_mx_menustr = is_mx_menustr + "|" + "Text=批设置类型~tEvent=ue_p_editflag" is_mx_menustr = is_mx_menustr + "|" + "Text=-" is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工序~tEvent=ue_p_pro" is_mx_menustr = is_mx_menustr + "|" + "Text=批设置数量~tEvent=ue_p_workqty" is_mx_menustr = is_mx_menustr + "|" + "Text=批设置新单件工价~tEvent=ue_p_workprice" is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工组~tEvent=ue_p_wrkgrpid" is_mx_menustr = is_mx_menustr + "|" + "Text=批设置配置~tEvent=ue_p_status" is_mx_menustr = is_mx_menustr + "|" + "Text=按比例设置新单件工价~tEvent=ue_p_rate_price" END IF CALL Super::Clicked end event type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_orderrqwp_change end type type cb_xls from w_publ_1ton_share_detail`cb_xls within w_orderrqwp_change integer x = 1915 end type type cb_help from w_publ_1ton_share_detail`cb_help within w_orderrqwp_change integer x = 2217 end type type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_orderrqwp_change boolean visible = false integer x = 3209 boolean enabled = false end type type p_msg from w_publ_1ton_share_detail`p_msg within w_orderrqwp_change end type type p_help from w_publ_1ton_share_detail`p_help within w_orderrqwp_change end type type p_encl from w_publ_1ton_share_detail`p_encl within w_orderrqwp_change end type type p_other from w_publ_1ton_share_detail`p_other within w_orderrqwp_change end type type gb_3 from w_publ_1ton_share_detail`gb_3 within w_orderrqwp_change end type type ln_bar from w_publ_1ton_share_detail`ln_bar within w_orderrqwp_change end type type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_orderrqwp_change end type type r_bar from w_publ_1ton_share_detail`r_bar within w_orderrqwp_change integer x = 3310 end type type ln_1 from w_publ_1ton_share_detail`ln_1 within w_orderrqwp_change end type type ln_2 from w_publ_1ton_share_detail`ln_2 within w_orderrqwp_change end type type st_2 from statictext within w_orderrqwp_change integer x = 1618 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_orderrqwp_change integer x = 1806 integer y = 188 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 st_3 from statictext within w_orderrqwp_change integer x = 805 integer y = 200 integer width = 165 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 ddlb_scid from uo_ddlb_scid within w_orderrqwp_change integer x = 978 integer y = 188 integer width = 549 integer height = 1120 integer taborder = 20 boolean bringtotop = true long textcolor = 0 long backcolor = 16777215 end type event constructor;call super::constructor;cur_scid=this.uo_scid end event event selectionchanged;call super::selectionchanged;cur_scid=this.uo_scid parent.triggerevent("retrieve_pageretr") end event