$PBExportHeader$w_sc_workpricetable.srw forward global type w_sc_workpricetable from w_publ_1ton_share_detail end type type cb_save from uo_imflatbutton within w_sc_workpricetable end type type cb_addmx_2 from uo_imflatbutton within w_sc_workpricetable end type type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_sc_workpricetable end type type em_1 from editmask within w_sc_workpricetable end type type st_2 from statictext within w_sc_workpricetable end type type ddlb_status from dropdownlistbox within w_sc_workpricetable end type type st_3 from statictext within w_sc_workpricetable end type type ddlb_mtrlprp from uo_ddlb_mtrlprp within w_sc_workpricetable end type type tab_1 from tab within w_sc_workpricetable end type type tabpage_1 from userobject within tab_1 end type type dw_1 from u_dw_rbtnfilter within tabpage_1 end type type tabpage_1 from userobject within tab_1 dw_1 dw_1 end type type tabpage_2 from userobject within tab_1 end type type dw_2 from u_dw_rbtnfilter within tabpage_2 end type type tabpage_2 from userobject within tab_1 dw_2 dw_2 end type type tab_1 from tab within w_sc_workpricetable tabpage_1 tabpage_1 tabpage_2 tabpage_2 end type type cb_1 from commandbutton within w_sc_workpricetable end type type cb_2 from commandbutton within w_sc_workpricetable end type end forward global type w_sc_workpricetable from w_publ_1ton_share_detail string title = "工价表" boolean maxbox = true windowstate windowstate = maximized! event insert_childrow ( ) event ue_copy ( ) event ue_paste ( ) event ue_addworkmx ( ) event ue_print_all ( ) event ue_viewprint_all ( ) event ue_workhour_mod ( ) event ue_proorder_mod ( ) event ue_audit_gs ( ) event ue_c_audit_gs ( ) event ue_fj_view ( ) event ue_fj_edit ( ) event ue_p_workqty ( ) event ue_p_workprice ( ) event ue_p_wrkgrpid ( ) event ue_p_pro ( ) cb_save cb_save cb_addmx_2 cb_addmx_2 ddlb_mtrlorigin ddlb_mtrlorigin em_1 em_1 st_2 st_2 ddlb_status ddlb_status st_3 st_3 ddlb_mtrlprp ddlb_mtrlprp tab_1 tab_1 cb_1 cb_1 cb_2 cb_2 end type global w_sc_workpricetable w_sc_workpricetable type variables uo_workpricetable u_wrkprice Long flag = 0 s_workpricetable s_pricetable[] Long mxid = 0 Long cur_mtrlorigin = 0 Int cur_mtrlprp = -1 //当前显示物料属性 Int cur_flag = -1 int cur_ifwrkprice = -1 datawindow dw_mx,dw_mxmx end variables forward prototypes public subroutine wf_copytable () public subroutine wf_pastetable () public function integer wf_refresh_curuc (long arg_mtrlid) public subroutine wf_read_procode (long arg_old_mtrlid, long arg_new_mtrlid) public subroutine wf_cmpl_price () public function integer wf_addmx (long arg_mtrlid) public function integer wf_lock_child () public function integer wf_bill_paste (ref string arg_msg) public function integer wf_bill_copy (ref string arg_msg) public subroutine wf_add_mx () end prototypes event insert_childrow();Long li_row li_row = dw_mx.InsertRow(0) dw_mx.ScrollToRow(li_row) IF li_row > 1 THEN dw_mx.object.wrkgrpid[li_row] = dw_mx.object.wrkgrpid[li_row - 1] dw_mx.object.proorder[li_row] = dw_mx.object.proorder[li_row - 1] + 1 END IF dw_mx.SetColumn ('procode') end event event ue_copy();IF NOT f_power_ind(1336) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF wf_copytable() end event event ue_paste();wf_pastetable() end event event ue_addworkmx();IF NOT f_power_ind(1338) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF Long ll_mtrlid Long ll_row ll_row = dw_pageretr.GetRow() IF ll_row <= 0 THEN MessageBox('系统提示','请选择目标产品') RETURN END IF ll_mtrlid = dw_pageretr.Object.mtrlid[ll_row] IF ll_mtrlid <= 0 THEN MessageBox('系统提示','请选择目标产品') RETURN END IF IF wf_addmx(ll_mtrlid) = 1 THEN MessageBox('系统提示','操作成功') THIS.TriggerEvent('retrieve_childdw') END IF end event event ue_print_all();//--直接打印 uo_print_preview uo_print IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN S_print_MSG LS_PRMSG IF dw_pageretr.RowCount() = 0 THEN MessageBox('系统信息','没有可打印的单据！') RETURN END IF Long ll_mtrlid,ll_wrkGrpid ll_mtrlid = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] OpenWithParm(w_workprice_print_all,ll_mtrlid) ll_wrkGrpid = Message.DoubleParm IF ll_wrkGrpid = 0 THEN RETURN LS_PRMSG.obj_dwNAME = 'dw_rp_workpricetable_all' LS_PRMSG.TAG_TEXT = '工价表全套工价' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_scid = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] LS_PRMSG.retr_pramnmb = ll_wrkGrpid LS_PRMSG.rowcnt = dw_mxmx.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_viewprint_all(); Long LS_ROW LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF Long ll_mtrlid,ll_wrkGrpid ll_mtrlid = dw_pageretr.Object.mtrlid[LS_ROW] OpenWithParm(w_workprice_print_all,ll_mtrlid) ll_wrkGrpid = Message.DoubleParm IF ll_wrkGrpid = 0 THEN RETURN S_print_MSG LS_PRMSG LS_PRMSG.obj_dwNAME = 'dw_rp_workpricetable_all' LS_PRMSG.TAG_TEXT = '工价表全套工价' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_scid = dw_pageretr.Object.mtrlid[LS_ROW] LS_PRMSG.retr_pramnmb = ll_wrkGrpid LS_PRMSG.rowcnt = dw_mxmx.RowCount() OpenWithParm(w_publ_preview,LS_PRMSG) end event event ue_workhour_mod();IF dw_edit_mode THEN MessageBox('系统提示','编辑状态下不能使用') RETURN END IF IF NOT f_power_ind(1340) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF Long ll_row ll_row = dw_pageretr.GetRow() IF ll_row <= 0 THEN MessageBox('Error','请选择要修改工价表工时的产品') RETURN END IF Long ll_mtrlid ll_mtrlid = dw_pageretr.Object.mtrlid[ll_row] Long cnt cnt = 0 SELECT count(*) INTO :cnt FROM u_sc_workprice Where mtrlid = :ll_mtrlid ; IF sqlca.SQLCode <> 0 THEN MessageBox('Error','查询产品的工价表失败'+sqlca.SQLErrText) RETURN END IF IF cnt = 0 THEN MessageBox('系统提示','该产品还没有设定工价表,请检查!') RETURN END IF OpenWithParm(w_workprice_workhour_mod,ll_mtrlid) THIS.TriggerEvent('retrieve_childdw') end event event ue_proorder_mod();IF dw_edit_mode THEN MessageBox('系统提示','编辑状态下不能使用') RETURN END IF IF NOT f_power_ind(1336) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF Long ll_row ll_row = dw_pageretr.GetRow() IF ll_row <= 0 THEN MessageBox('Error','请选择要修改工价表工序序号的产品') RETURN END IF Long ll_mtrlid ll_mtrlid = dw_pageretr.Object.mtrlid[ll_row] Long cnt cnt = 0 SELECT count(*) INTO :cnt FROM u_sc_workprice Where mtrlid = :ll_mtrlid ; IF sqlca.SQLCode <> 0 THEN MessageBox('Error','查询产品的工价表失败'+sqlca.SQLErrText) RETURN END IF IF cnt = 0 THEN MessageBox('系统提示','该产品还没有设定工价表,请检查!') RETURN END IF OpenWithParm(w_workprice_workhour_mod_order,ll_mtrlid) THIS.TriggerEvent('retrieve_childdw') end event event ue_audit_gs();IF NOT f_power_ind(1339) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN MessageBox('系统提示','编辑状态下不可用') RETURN END IF String arg_msg Long ll_mtrlid,ll_wrkGrpid IF MessageBox ("IF","是否确定要审核当前工价表工时吗?",Question!,YesNo! ) = 2 THEN RETURN Long pagerert_row pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF ll_mtrlid = dw_pageretr.Object.mtrlid[pagerert_row] OpenWithParm(w_workprice_audit,ll_mtrlid) ll_wrkGrpid = Message.DoubleParm IF ll_wrkGrpid = 0 THEN RETURN IF u_wrkprice.auditing_gs(ll_mtrlid,ll_wrkGrpid,publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'审核成功!') wf_refresh_curuc(dw_pageretr.Object.mtrlid[pagerert_row]) THIS.TriggerEvent('retrieve_childdw') END IF end event event ue_c_audit_gs();IF NOT f_power_ind(1339) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN MessageBox('系统提示','编辑状态下不可使用') RETURN END IF IF MessageBox ("IF","是否确定要工时审核当前工价表吗?",Question!,YesNo! ) = 2 THEN RETURN String arg_msg = '',ls_code Long pagerert_row,ls_id Long ll_mtrlid,ll_wrkGrpid pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF ll_mtrlid = dw_pageretr.Object.mtrlid[pagerert_row] OpenWithParm(w_workprice_audit,ll_mtrlid) ll_wrkGrpid = Message.DoubleParm IF ll_wrkGrpid = 0 THEN RETURN IF u_wrkprice.c_auditing_gs(ll_mtrlid,ll_wrkGrpid,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'撤审成功!') wf_refresh_curuc(dw_pageretr.Object.mtrlid[pagerert_row]) THIS.TriggerEvent('retrieve_childdw') END IF end event event ue_fj_view();IF dw_edit_mode THEN MessageBox('提示','编辑状态下不可用') RETURN END IF s_edit_index_tran s_pic Long ll_ConnectionID String arg_msg Long ls_row ls_row = dw_pageretr.GetRow() IF ls_row <= 0 THEN MessageBox('提示','请选择资料') RETURN END IF IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN MessageBox('提示','没有指定附件数据库连接'+arg_msg) RETURN END IF s_pic.f_long = 201 //物料资料 mainID s_pic.f_string = dw_pageretr.Object.mtrlcode[ls_row] s_pic.g_long = dw_pageretr.Object.mtrlid[ls_row] s_pic.d_long = 0 //relid_mx s_pic.d_string = '' //relcode_mx s_pic.e_long = 0 // scid s_pic.sqltransaction = sys_filedb_sqlca OpenWithParm(w_fj_bill_view,s_pic) end event event ue_fj_edit();IF dw_edit_mode THEN MessageBox('提示','编辑状态下不可用') RETURN END IF s_edit_index_tran s_pic Long ll_ConnectionID String arg_msg Long ls_row ls_row = dw_pageretr.GetRow() IF ls_row <= 0 THEN MessageBox('提示','请选择资料') RETURN END IF IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN MessageBox('提示','没有指定附件数据库连接'+arg_msg) RETURN END IF s_pic.f_long = 201 //物料资料 mainID s_pic.f_string = dw_pageretr.Object.mtrlcode[ls_row] s_pic.g_long = dw_pageretr.Object.mtrlid[ls_row] s_pic.d_long = 0 //relid_mx s_pic.d_string = '' //relcode_mx s_pic.e_long = 0 // scid s_pic.sqltransaction = sys_filedb_sqlca OpenWithParm(w_fj_bill_mng,s_pic) end event event ue_p_workqty();IF Not dw_edit_mode THEN MessageBox('系统提示',"非编辑状态下不可以使用!") RETURN END IF IF dw_mx.RowCount() <= 1 THEN RETURN IF MessageBox('询问','是否确认要批设置数量?',question!,yesno!) = 2 THEN RETURN Long ll_i dw_mx.SetRedraw(False) dw_mx.AcceptText() FOR ll_i = 2 To dw_mx.RowCount( ) dw_mx.Object.workqty[ll_i] = dw_mx.Object.workqty[1] NEXT dw_mx.SetRedraw(True) end event event ue_p_workprice();IF NOT dw_edit_mode THEN MessageBox('系统提示','非编辑状态不可使用') RETURN END IF IF dw_mx.RowCount() <= 1 THEN RETURN IF MessageBox(publ_operator,'是否要确定要批设定单件工价', question!, YesNo!, 2) = 2 THEN RETURN END IF Long ll_i dw_mx.AcceptText() dw_mx.SetRedraw(FALSE) FOR ll_i = 2 TO dw_mx.RowCount() dw_mx.Object.workprice[ll_i] = dw_mx.Object.workprice[1] NEXT dw_mx.SetRedraw(TRUE) end event event ue_p_wrkgrpid();IF Not dw_edit_mode THEN MessageBox('系统提示','非编辑状态不可使用') RETURN END IF IF dw_mx.RowCount() <= 1 THEN RETURN IF MessageBox(publ_operator,'是否要确定要批设定工组', question!, YesNo!, 2) = 2 THEN RETURN END IF Long ll_i dw_mx.AcceptText() Long ll_wrkgrpid ll_wrkgrpid = dw_mx.Object.wrkgrpid[1] //工组 IF ll_wrkgrpid = 0 THEN RETURN //相同工组才设定 dw_mx.SetRedraw(False) FOR ll_i = 2 To dw_mx.RowCount() dw_mx.Object.wrkgrpid[ll_i] = ll_wrkgrpid NEXT dw_mx.SetRedraw(True) end event event ue_p_pro();IF NOT dw_edit_mode THEN MessageBox('系统提示','非编辑状态不可使用') RETURN END IF IF dw_mx.RowCount() <= 1 THEN RETURN IF MessageBox(publ_operator,'是否要确定要批设定工序', question!, YesNo!, 2) = 2 THEN RETURN END IF Long ll_i dw_mx.AcceptText() dw_mx.SetRedraw(FALSE) FOR ll_i = 2 TO dw_mx.RowCount() dw_mx.Object.procode[ll_i] = dw_mx.Object.procode[1] dw_mx.Object.u_sc_workprice_proname[ll_i] = dw_mx.Object.u_sc_workprice_proname[1] NEXT dw_mx.SetRedraw(TRUE) end event public subroutine wf_copytable ();Long i,ll_mtrlid,ll_wrkgrpid IF dw_pageretr.GetRow() <= 0 THEN MessageBox(publ_operator,'没有复制对象!') RETURN END IF ll_mtrlid = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] OpenWithParm(w_sc_workpricetable_copy,ll_mtrlid) ll_wrkgrpid = Message.DoubleParm IF ll_wrkgrpid = 0 THEN RETURN mxid = 0 FOR i = 1 TO dw_mx.RowCount() IF ll_wrkgrpid = -1 OR ll_wrkgrpid > 0 AND dw_mx.Object.wrkgrpid[i] = ll_wrkgrpid THEN mxid++ s_pricetable[mxid].proid = dw_mx.Object.proid[i] s_pricetable[mxid].procode = dw_mx.Object.procode[i] s_pricetable[mxid].proname = dw_mx.Object.u_sc_workprice_proname[i] s_pricetable[mxid].worklevel = dw_mx.Object.worklevel[i] s_pricetable[mxid].techlevel = dw_mx.Object.techlevel[i] s_pricetable[mxid].workhour = dw_mx.Object.workhour[i] s_pricetable[mxid].workprice = dw_mx.Object.workprice[i] s_pricetable[mxid].dscrp = dw_mx.Object.dscrp[i] s_pricetable[mxid].wrkgrpid = dw_mx.Object.wrkgrpid[i] s_pricetable[mxid].lsxtype = dw_mx.Object.lsxtype[i] s_pricetable[mxid].workqty = dw_mx.Object.workqty[i] s_pricetable[mxid].proorder = dw_mx.Object.proorder[i] END IF NEXT MessageBox(publ_operator,'复制工价表:'+String(dw_uc.Object.mtrlname[dw_uc.GetRow()])+'成功') end subroutine public subroutine wf_pastetable ();IF NOT dw_edit_mode THEN MessageBox('系统提示','非编辑状态下不能操作') RETURN END IF IF UpperBound(s_pricetable) = 0 THEN MessageBox('系统提示','没有可复制的工价表,要复制请先按“复制工价表”') RETURN END IF Open(w_workprice_paste_ch) Int li_type li_type = Message.DoubleParm IF li_type = 0 THEN RETURN ELSEIF li_type = 1 THEN Long i,uc_row Long ll_i Int li_ifautid = 0 FOR ll_i = 1 TO dw_mx.RowCount() IF dw_mx.Object.auditflag[ll_i] = 1 THEN li_ifautid = 1 EXIT END IF NEXT IF li_ifautid = 1 THEN MessageBox('系统提示','已有审核的工序,不能粘贴工价表') RETURN END IF IF MessageBox('询问','粘贴操作将会覆盖原有工价表,是否继续?',question!,yesno!) = 2 THEN RETURN END IF dw_mx.Reset() END IF dw_mx.SetRedraw(FALSE) FOR i = 1 TO mxid uc_row = dw_mx.InsertRow(0) dw_mx.Object.procode[uc_row] = s_pricetable[i].procode dw_mx.Object.u_sc_workprice_proname[uc_row] = s_pricetable[i].proname dw_mx.Object.proid[uc_row] = s_pricetable[i].proid dw_mx.Object.worklevel[uc_row] = s_pricetable[i].worklevel dw_mx.Object.techlevel[uc_row] = s_pricetable[i].techlevel dw_mx.Object.workhour[uc_row] = s_pricetable[i].workhour dw_mx.Object.workprice[uc_row] = s_pricetable[i].workprice dw_mx.Object.dscrp[uc_row] = s_pricetable[i].dscrp dw_mx.Object.wrkgrpid[uc_row] = s_pricetable[i].wrkgrpid dw_mx.Object.lsxtype[uc_row] = s_pricetable[i].lsxtype dw_mx.Object.workqty[uc_row] = s_pricetable[i].workqty dw_mx.Object.proorder[uc_row] = s_pricetable[i].proorder NEXT dw_mx.SetRedraw(TRUE) MessageBox(publ_operator,'粘贴工价表成功!') end subroutine public function integer wf_refresh_curuc (long arg_mtrlid);IF arg_mtrlid <= 0 OR IsNull(arg_mtrlid) THEN RETURN 0 Long uc_row uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN RETURN 0 Long Mtrlid Long wpmtrlid Decimal wprate String a_mtrlcode String a_mtrlname String a_mtrlmode String mtrlcode String mtrlname String unit String Mtrltype String Mtrlsectype String mtrlmode String zxMtrlmode Int mtrlorigin Int mtrlprp String dscrp DateTime popdate String popemp Int Auditflag String Audit_emp DateTime Audit_date SELECT u_Mtrldef.Mtrlid , u_Mtrldef.wpmtrlid , u_Mtrldef.wprate , a.mtrlcode as a_mtrlcode, a.mtrlname as a_mtrlname, a.mtrlmode as a_mtrlmode, u_Mtrldef.mtrlcode , u_Mtrldef.mtrlname, u_Mtrldef.unit , u_Mtrldef.Mtrltype, u_Mtrldef.Mtrlsectype, u_Mtrldef.Mtrlmode , u_Mtrldef.zxMtrlmode , u_Mtrldef.mtrlorigin , u_Mtrldef.mtrlprp , u_Mtrldef.dscrp , u_Mtrldef.popdate , u_Mtrldef.popemp , u_Mtrldef.Auditflag , u_Mtrldef.Audit_emp , u_Mtrldef.Audit_date INTO :Mtrlid, :wpmtrlid, :wprate, :a_mtrlcode, :a_mtrlname, :a_mtrlmode, :mtrlcode, :mtrlname, :unit, :Mtrltype, :Mtrlsectype, :mtrlmode, :zxMtrlmode, :mtrlorigin, :mtrlprp, :dscrp, :popdate, :popemp, :Auditflag, :Audit_emp, :Audit_date FROM u_Mtrldef ,u_Mtrldef a WHERE u_Mtrldef.Isuse = 1 AND u_Mtrldef.wpmtrlid *= a.mtrlid AND u_Mtrldef.Mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示',"查询产品操作失败") RETURN 0 END IF dw_pageretr.SetRedraw(FALSE) dw_pageretr.Object.mtrlid[uc_row] = mtrlid dw_pageretr.Object.u_mtrldef_wpmtrlid[uc_row] = wpmtrlid dw_pageretr.Object.u_mtrldef_wprate[uc_row] = wprate dw_pageretr.Object.u_mtrldef_a_mtrlcode[uc_row] = a_mtrlcode dw_pageretr.Object.u_mtrldef_a_mtrlname[uc_row] = a_mtrlname dw_pageretr.Object.u_mtrldef_a_mtrlmode[uc_row] = a_mtrlmode dw_pageretr.Object.mtrlname[uc_row] = mtrlname dw_pageretr.Object.mtrlcode[uc_row] = mtrlcode dw_pageretr.Object.unit[uc_row] = unit dw_pageretr.Object.mtrltype[uc_row] = mtrltype dw_pageretr.Object.mtrlsectype[uc_row] = mtrlsectype dw_pageretr.Object.u_mtrldef_mtrlmode[uc_row] = mtrlmode dw_pageretr.Object.u_mtrldef_zxmtrlmode[uc_row] = zxmtrlmode dw_pageretr.Object.u_mtrldef_mtrlorigin[uc_row] = mtrlorigin dw_pageretr.Object.u_mtrldef_mtrlprp[uc_row] = mtrlprp dw_pageretr.Object.dscrp[uc_row] = dscrp dw_pageretr.Object.popdate[uc_row] = popdate dw_pageretr.Object.popemp[uc_row] = popemp dw_pageretr.Object.dscrp[uc_row] = dscrp dw_pageretr.Object.Auditflag[uc_row] = Auditflag dw_pageretr.Object.Audit_emp[uc_row] = Audit_emp dw_pageretr.Object.Audit_date[uc_row] = Audit_date dw_pageretr.SetRedraw(TRUE) dw_uc.Reset() dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!) RETURN 1 end function public subroutine wf_read_procode (long arg_old_mtrlid, long arg_new_mtrlid);Boolean if_replace = FALSE IF arg_old_mtrlid = 0 THEN if_replace = TRUE ELSE IF arg_old_mtrlid <> arg_new_mtrlid THEN IF MessageBox ("IF","是否确定要替换当前工序为新产品工序吗?",Question!,YesNo! ) = 2 THEN if_replace = FALSE ELSE if_replace = TRUE END IF END IF END IF IF if_replace = TRUE THEN dw_mx.Reset() s_workpricetable s_table[] Long ll_i,childrow,count DECLARE pro_cur CURSOR FOR SELECT u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proid, u_sc_workprice.worklevel, u_sc_workprice.techlevel, u_sc_workprice.workhour, u_sc_workprice.workprice, u_sc_workprice.dscrp, u_sc_workprice.wrkgrpid, u_sc_workprice.ifownpro, u_sc_workprice.lsxtype FROM u_sc_workprice WHERE u_sc_workprice.mtrlid = :arg_new_mtrlid Order By wrkgrpid,procode; OPEN pro_cur; count = 1 FETCH pro_cur INTO :s_table[count].procode,:s_table[count].proname,& :s_table[count].proid,:s_table[count].worklevel,& :s_table[count].techlevel,:s_table[count].workhour,& :s_table[count].workprice,:s_table[count].dscrp,& :s_table[count].wrkgrpid,:s_table[count].ifownpro,& :s_table[count].lsxtype; DO WHILE sqlca.SQLCode = 0 //循环读取明细数据 count++ FETCH pro_cur INTO :s_table[count].procode,:s_table[count].proname,& :s_table[count].proid,:s_table[count].worklevel,& :s_table[count].techlevel,:s_table[count].workhour,& :s_table[count].workprice,:s_table[count].dscrp,& :s_table[count].wrkgrpid,:s_table[count].ifownpro,& :s_table[count].lsxtype; LOOP count = count - 1 CLOSE pro_cur; IF count = 0 THEN MessageBox('提示','标准产品工价表未设定') RETURN END IF dw_mx.SetRedraw(FALSE) FOR ll_i = 1 TO count childrow = dw_mx.InsertRow(0) dw_mx.Object.procode[childrow] = s_table[ll_i].procode dw_mx.Object.u_sc_workprice_proname[childrow] = s_table[ll_i].proname dw_mx.Object.proid[childrow] = s_table[ll_i].proid dw_mx.Object.worklevel[childrow] = s_table[ll_i].worklevel dw_mx.Object.techlevel[childrow] = s_table[ll_i].techlevel dw_mx.Object.workhour[childrow] = s_table[ll_i].workhour dw_mx.Object.workprice[childrow] = s_table[ll_i].workprice dw_mx.Object.dscrp[childrow] = s_table[ll_i].dscrp dw_mx.Object.wrkgrpid[childrow] = s_table[ll_i].wrkgrpid dw_mx.Object.lsxtype[childrow] = s_table[ll_i].lsxtype dw_mx.Object.u_sc_workprice_ifstandard[childrow] = 1 NEXT dw_mx.SetRedraw(TRUE) END IF end subroutine public subroutine wf_cmpl_price ();IF NOT dw_edit_mode THEN RETURN Long ll_i,uc_row Decimal ld_wprate dw_mx.AcceptText() dw_uc.AcceptText() uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('提示','请选择产品') RETURN END IF ld_wprate = dw_uc.Object.u_mtrldef_wprate[uc_row] IF ld_wprate <= 0 THEN MessageBox('提示','非法的计算比例') RETURN END IF dw_mx.SetRedraw(FALSE) FOR ll_i = 1 TO dw_mx.RowCount() dw_mx.Object.workprice[ll_i] = Round(dw_mx.Object.workprice[ll_i] * ld_wprate,Long(em_1.Text)) NEXT dw_mx.SetRedraw(TRUE) end subroutine public function integer wf_addmx (long arg_mtrlid);//清除旧有的下级物料工价表 string arg_msg u_wrkprice.mtrlid = arg_mtrlid IF u_wrkprice.f_clearpfmx(arg_mtrlid,arg_msg,FALSE) = 0 THEN MessageBox ("系统提示",arg_msg,exclamation!,ok!) RETURN 0 END IF //插入自身工价表 u_wrkprice.deep_count = 0 u_wrkprice.il_printid = 0 IF u_wrkprice.f_addworkprice(arg_mtrlid,arg_msg,FALSE) = 0 THEN MessageBox ("系统提示",arg_msg,exclamation!,ok!) RETURN 0 END IF //插入下级自制物料工价表 String ls_pfcode ls_pfcode = f_get_dft_pf(arg_mtrlid) IF u_wrkprice.f_addpfmx(arg_mtrlid,ls_pfcode,1,1,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) RETURN 0 END IF 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_mx.SetTabOrder (LS_INT,LS_INT*10 ) NEXT ELSE FOR LS_INT=1 TO child_column_int dw_mx.SetTabOrder (LS_INT, 0) NEXT END IF RETURN 1 end function public function integer wf_bill_paste (ref string arg_msg);Long rslt = 1 IF NOT dw_edit_mode THEN rslt = 0 arg_msg = '非编辑状态下不可粘贴' GOTO ext END IF Long ll_rowcount dw_mx.AcceptText( ) ll_rowcount = ds_copy_bill.RowCount() IF ll_rowcount <= 0 THEN rslt = 0 arg_msg = '没有可粘贴的明细内容' GOTO ext END IF dw_mx.Reset() Long ll_child_rowcount ll_child_rowcount = dw_mx.RowCount() IF ds_copy_bill.RowsCopy(1, ll_rowcount, Primary!, dw_mx, 1, Primary!) = - 1 THEN rslt = 0 arg_msg = '粘贴明细内容失败' GOTO ext END IF dw_mx.AcceptText() ext: RETURN rslt end function public function integer wf_bill_copy (ref string arg_msg);Long rslt = 1 Long ll_rowcount dw_mx.AcceptText( ) ll_rowcount = dw_mx.RowCount() IF ll_rowcount <= 0 THEN rslt = 0 arg_msg = '没有可复制的明细内容' GOTO ext END IF ds_copy_bill.Reset() IF dw_mx.RowsCopy(1, ll_rowcount, Primary!, ds_copy_bill, 1, Primary!) = - 1 THEN rslt = 0 arg_msg = '复制明细内容失败' GOTO ext END IF ds_copy_bill.AcceptText() ext: RETURN rslt end function public subroutine wf_add_mx ();Long i, ll_row FOR i = 1 To s_tran.dw_share.RowCount() ll_row = dw_mx.InsertRow(0) dw_mx.Object.workqty[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_workqty[i] dw_mx.Object.workprice[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_workprice[i] dw_mx.Object.workprice[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_cost[i] dw_mx.Object.u_sc_workprice_wprice[ll_row] = s_tran.dw_share.Object.wprice[i] dw_mx.Object.procode[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_procode[i] dw_mx.Object.u_sc_workprice_proname[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_proname[i] dw_mx.Object.u_sc_workgroup_wrkgrpcode[ll_row] = s_tran.dw_share.Object.u_sc_workgroup_wrkgrpcode[i] dw_mx.Object.u_sc_workgroup_wrkgrpname[ll_row] = s_tran.dw_share.Object.u_sc_workgroup_wrkgrpname[i] dw_mx.Object.dscrp[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_dscrp[i] dw_mx.Object.wrkgrpid[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_wrkgrpid[i] // dw_mx.Object.wrkgrpid[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_proid[i] dw_mx.Object.proorder[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_proorder[i] NEXT end subroutine on w_sc_workpricetable.create int iCurrent call super::create this.cb_save=create cb_save this.cb_addmx_2=create cb_addmx_2 this.ddlb_mtrlorigin=create ddlb_mtrlorigin this.em_1=create em_1 this.st_2=create st_2 this.ddlb_status=create ddlb_status this.st_3=create st_3 this.ddlb_mtrlprp=create ddlb_mtrlprp this.tab_1=create tab_1 this.cb_1=create cb_1 this.cb_2=create cb_2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_save this.Control[iCurrent+2]=this.cb_addmx_2 this.Control[iCurrent+3]=this.ddlb_mtrlorigin this.Control[iCurrent+4]=this.em_1 this.Control[iCurrent+5]=this.st_2 this.Control[iCurrent+6]=this.ddlb_status this.Control[iCurrent+7]=this.st_3 this.Control[iCurrent+8]=this.ddlb_mtrlprp this.Control[iCurrent+9]=this.tab_1 this.Control[iCurrent+10]=this.cb_1 this.Control[iCurrent+11]=this.cb_2 end on on w_sc_workpricetable.destroy call super::destroy destroy(this.cb_save) destroy(this.cb_addmx_2) destroy(this.ddlb_mtrlorigin) destroy(this.em_1) destroy(this.st_2) destroy(this.ddlb_status) destroy(this.st_3) destroy(this.ddlb_mtrlprp) destroy(this.tab_1) destroy(this.cb_1) destroy(this.cb_2) end on 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_mtrldef.mtrlcode like '%"+Trim(sle_usual_query.Text)+"%')" ELSE ls_querystrpart = "(u_mtrldef.mtrlcode 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 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_mtrlorigin,cur_flag,cur_ifwrkprice,cur_mtrlprp) IF dw_pageretr.RowCount() > 0 THEN dw_pageretr.SetRow(1) dw_pageretr.triggerevent(rowfocuschanged!) end if 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 open;call super::open;uc_column_int = 3 //uc dw前8列可以编辑 child_column_int = 15 //子dw前4列可以编辑 u_wrkprice = Create uo_workpricetable IF s_tran.b_long > 0 THEN IF dw_pageretr.GetRow() > 0 THEN IF dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] = s_tran.b_long THEN //修改 cb_edit.TriggerEvent(Clicked!) //清空明细 dw_mx.Reset() //插入明细 wf_add_mx() END IF END IF END IF end event event refresh_interface;call super::refresh_interface;cb_save.Enabled = dw_edit_mode ddlb_mtrlprp.Enabled = NOT dw_edit_mode ddlb_mtrlorigin.Enabled = NOT dw_edit_mode cb_addmx_2.Enabled = dw_edit_mode ddlb_status.Enabled = NOT dw_edit_mode end event event retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid dw_mx.Reset() dw_mxmx.Reset() row = dw_pageretr.GetRow() IF row > 0 THEN uc_relid = dw_pageretr.Object.mtrlid[row] dw_mx.SetRedraw (FALSE) dw_mx.Retrieve(uc_relid) dw_mx.SetRedraw (TRUE) dw_mxmx.setfilter('') dw_mxmx.filter() dw_mxmx.SetRedraw (FALSE) dw_mxmx.Retrieve(uc_relid) dw_mxmx.SetRedraw (TRUE) ELSE dw_mx.Reset() dw_mxmx.Reset() END IF end event event ue_f8;call super::ue_f8;//用于选择明细内容,被F8[默认]\dw_mx.doubleclicked调用 Long child_row Long ls_null IF NOT dw_edit_mode THEN RETURN IF flag = 1 THEN RETURN child_row = dw_mx.GetRow() 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 = TRUE IF child_row > 0 THEN s_ch_tran.arg_string_code = dw_mx.Object.procode[child_row] Long ls_j IF NOT IsValid(w_sc_workprocedure_response) THEN 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 //正常返回值则可以取以下值 IF dw_mx.Find('proid='+String(S_INSCUST.wrkproid[ls_j]),1,dw_mx.RowCount()) = 0 THEN IF dw_mx.GetRow() > 0 THEN IF dw_mx.Object.proid[child_row] <> 0 THEN child_row = dw_mx.InsertRow (0) ELSE child_row = dw_mx.GetRow() END IF ELSE child_row = dw_mx.InsertRow (0) END IF END IF dw_mx.Object.proid[child_row] = S_INSCUST.wrkproid[ls_j] dw_mx.Object.procode[child_row] = S_INSCUST.wrkprocode[ls_j] dw_mx.Object.u_sc_workprice_proname[child_row] = S_INSCUST.wrkproname[ls_j] dw_mx.Object.worklevel[child_row] = S_INSCUST.worklevel[ls_j] dw_mx.Object.techlevel[child_row] = S_INSCUST.techlevel[ls_j] dw_mx.Object.workhour[child_row] = S_INSCUST.workhour[ls_j] dw_mx.Object.wrkgrpid[child_row] = S_INSCUST.wrkgrid[ls_j] dw_mx.Object.workprice[child_row] = S_INSCUST.workprice[ls_j] IF child_row > 1 THEN dw_mx.Object.proorder[child_row] = dw_mx.Object.proorder[child_row - 1] + 1 END IF END IF NEXT dw_mx.SetRow(child_row) dw_mx.ScrollToRow(child_row) dw_mx.SetFocus() IF UpperBound(S_INSCUST.wrkproid) > 0 THEN dw_mx.SetColumn("workprice") END IF END IF dw_mx.SetRedraw(TRUE) dw_mx.SetFocus() end event event ue_viewprint;call super::ue_viewprint; Long LS_ROW LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF S_print_MSG LS_PRMSG Boolean lb_all lb_all = Pos(ls_chnname, '[全套]') > 0 IF ls_newname <> '' THEN IF li_auditprint = 1 THEN IF dw_pageretr.Object.auditflag[dw_pageretr.GetRow()] = 0 THEN MessageBox('NO','目标单据还未审核,不能打印!') RETURN END IF END IF LS_PRMSG.obj_dwNAME = ls_newname ELSE // IF Not f_power_ind(7) THEN // MessageBox(publ_operator,'你没有使用权限！') // RETURN // END IF IF lb_all THEN LS_PRMSG.obj_dwNAME = 'dw_rp_workpricetable_all' ELSE LS_PRMSG.obj_dwNAME = 'dw_rp_workpricetable' END IF END IF Long ll_mtrlid,ll_wrkGrpid ll_mtrlid = dw_pageretr.Object.mtrlid[LS_ROW] IF lb_all THEN OpenWithParm(w_workprice_print_all,ll_mtrlid) ELSE OpenWithParm(w_workprice_print,ll_mtrlid) END IF ll_wrkGrpid = Message.DoubleParm IF ll_wrkGrpid = 0 THEN RETURN //LS_PRMSG.obj_dwNAME = 'dw_rp_workpricetable' LS_PRMSG.TAG_TEXT = This.Title LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_scid = ll_mtrlid LS_PRMSG.retr_pramnmb = ll_wrkGrpid IF lb_all THEN LS_PRMSG.rowcnt = dw_mxmx.RowCount() ELSE LS_PRMSG.rowcnt = dw_mx.RowCount() END IF OpenWithParm(w_publ_preview,LS_PRMSG) 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 IF dw_pageretr.RowCount() = 0 THEN MessageBox('系统信息','没有可打印的单据！') RETURN END IF Long ll_mtrlid,ll_wrkGrpid ll_mtrlid = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] OpenWithParm(w_workprice_print,ll_mtrlid) ll_wrkGrpid = Message.DoubleParm IF ll_wrkGrpid = 0 THEN RETURN LS_PRMSG.obj_dwNAME = 'dw_rp_workpricetable' LS_PRMSG.TAG_TEXT = '工价表' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_scid = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] LS_PRMSG.retr_pramnmb = ll_wrkGrpid LS_PRMSG.rowcnt = dw_mx.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_f9;call super::ue_f9;IF NOT dw_edit_mode THEN RETURN Long uc_row,ll_ol_mtrlid uc_row = dw_uc.GetRow() dw_uc.AcceptText() ll_ol_mtrlid = dw_uc.Object.u_mtrldef_wpmtrlid[uc_row] IF NOT IsValid(w_mtrldef_edit) THEN s_edit_index_tran s_ch_tran s_ch_tran.if_retrieve_all = FALSE s_ch_tran.work_mode = 1 s_ch_tran.arg_pkid = 0 s_ch_tran.arg_string_code = '' s_ch_tran.b_long = 0 s_ch_tran.c_long = -1 s_ch_tran.f_long = -1 s_ch_tran.if_select_all = FALSE dw_uc.AcceptText() OpenWithParm(w_mtrldef_edit,s_ch_tran) //调用 s_mtrldef_array s_inscust s_inscust = Message.PowerObjectParm //接受返回结构 dw_uc.SetRedraw(FALSE) IF s_inscust.mtrlid[1] > 0 THEN dw_uc.Object.u_mtrldef_wpmtrlid[uc_row] = s_inscust.mtrlid[1] dw_uc.Object.u_mtrldef_a_mtrlcode[uc_row] = s_inscust.mtrlcode[1] dw_uc.Object.u_mtrldef_a_mtrlname[uc_row] = s_inscust.mtrlname[1] dw_uc.Object.u_mtrldef_a_mtrlmode[uc_row] = s_inscust.mtrlmode[1] wf_read_procode(ll_ol_mtrlid,s_inscust.mtrlid[1]) dw_uc.SetFocus() dw_uc.SetColumn('u_mtrldef_wprate') END IF dw_uc.SetRedraw(TRUE) END IF end event event ue_before_open;dw_child.settransobject(sqlca) dw_uc.settransobject(sqlca) if_ue_retr=true if_ue_filter=true if_ue_sort=true dw_mx = tab_1.tabpage_1.dw_1 dw_mxmx = tab_1.tabpage_2.dw_2 dw_mx.settransobject(sqlca) dw_mxmx.settransobject(sqlca) ds_copypaste = create datastore ds_copypaste.dataobject = dw_mx.dataobject ds_copypaste.settransobject(sqlca) end event event resize;call super::resize;tab_1.Width = THIS.Width - (3600 - 3543) tab_1.Height = THIS.Height - (2300 - 892) dw_mx.Width = THIS.Width - (3600 - 3506) dw_mx.Height = THIS.Height - (2300 - 780) dw_mxmx.Width = THIS.Width - (3600 - 3506) dw_mxmx.Height = THIS.Height - (2300 - 780) end event event ue_f10;call super::ue_f10;IF NOT dw_edit_mode THEN RETURN Long uc_row,ll_mtrlid,child_row string ls_status uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请先选择产品') RETURN END IF child_row = dw_mx.getrow() if child_row <= 0 then MessageBox('系统提示','请选择明细') RETURN END IF dw_uc.AcceptText() dw_mx.AcceptText() ll_mtrlid = dw_uc.Object.mtrlid[uc_row] 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_mx.SetRedraw(FALSE) IF len(trim(ls_status)) > 0 THEN if ls_status = '[清空配置]' then ls_status = '' dw_mx.Object.u_sc_workprice_status[child_row] = ls_status dw_mx.SetFocus() dw_mx.SetColumn('dscrp') END IF dw_mx.SetRedraw(TRUE) END IF end event event ue_f6;call super::ue_f6;IF dw_edit_mode THEN RETURN Long ll_row,uc_row ll_row = dw_mx.GetRow() uc_row = dw_uc.GetRow() IF ll_row <= 0 THEN RETURN IF uc_row <= 0 THEN RETURN Long ll_mtrlid String ls_procode ll_mtrlid = dw_uc.Object.mtrlid[uc_row] ls_procode = dw_mx.Object.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_f12;call super::ue_f12;IF dw_edit_mode THEN RETURN Long ll_row ll_row = dw_mxmx.GetRow() IF ll_row <= 0 THEN RETURN Long ll_mtrlid String ls_procode ll_mtrlid = dw_mxmx.Object.u_sc_workprice_mx_mtrlid[ll_row] ls_procode = dw_mxmx.Object.u_sc_workprice_mx_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_deletemx;IF NOT dw_edit_mode THEN MessageBox('系统提示','非编辑状态下不可用') RETURN END IF IF MessageBox ("询问","是否确定要删除当前细目记录?",Question!,YesNo! ) = 2 THEN RETURN IF dw_mx.GetRow() = 0 THEN MessageBox('提示','请选择删除的行对象!') RETURN END IF if_del = TRUE Long ll_i dw_mx.SetRedraw(FALSE) FOR ll_i = dw_mx.RowCount() TO 1 STEP -1 IF dw_mx.IsSelected(ll_i) THEN dw_mx.DeleteRow (ll_i) END IF NEXT dw_mx.SetRedraw(TRUE) if_del = FALSE IF dw_mx.RowCount() = 0 THEN dw_mx.InsertRow(0) dw_mx.TriggerEvent (RowFocusChanged!) end event event ue_addmx;IF NOT dw_edit_mode THEN MessageBox('系统提示','非编辑状态下不可用') RETURN END IF THIS.TriggerEvent('ue_f8') dw_mx.SetFocus() end event event ue_copyrow;IF NOT dw_edit_mode THEN RETURN Long ll_childrow ll_childrow = dw_mx.GetRow() IF ll_childrow = 0 THEN MessageBox('NO','请选择复制对象!') RETURN END IF Long ll_i long ll_j ll_j = 0 FOR ll_i = 1 TO dw_mx.RowCount() IF dw_mx.IsSelected(ll_i) THEN ll_j++ dw_mx.RowsCopy (ll_i,ll_i,Primary!,ds_copypaste,ll_j,Primary!) END IF NEXT //dw_mx.RowsCopy (ll_childrow,ll_childrow,Primary!,ds_copypaste,1,Primary!) FOR ll_i = 1 TO ds_copypaste.RowCount() ds_copypaste.RowsCopy (ll_i,ll_i,Primary!,dw_mx,ll_childrow + ll_i,Primary!) NEXT //ds_copypaste.RowsCopy (1,1,Primary!,dw_mx,ll_childrow + 1,Primary!) ds_copypaste.Reset() dw_mx.SelectRow(0,FALSE) dw_mx.SetRow(ll_childrow + 1) dw_mx.ScrollToRow(ll_childrow + 1) dw_mx.SelectRow(ll_childrow + 1,TRUE) end event event ue_insertmx;long ll_childrow,li_row ll_childrow = dw_mx.getrow() li_row = dw_mx.insertrow(ll_childrow) dw_mx.selectrow(0,false) dw_mx.setrow(li_row) dw_mx.scrolltorow(li_row) dw_mx.selectrow(li_row,true) end event event ue_usual_query_filt;call super::ue_usual_query_filt;String obj_expr = '' IF Trim(sle_usual_query.Text) <> '' THEN IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN obj_expr = obj_expr+'( mtrlcode LIKE "%'+Trim(sle_usual_query.Text)+'%" )' ELSE obj_expr = obj_expr+'( mtrlcode LIKE "'+Trim(sle_usual_query.Text)+'" )' END IF END IF dw_pageretr.SetFilter(obj_expr) dw_pageretr.SetRedraw(False) dw_pageretr.Filter() IF dw_pageretr.RowCount() >= 1 THEN dw_pageretr.SelectRow(0,False) dw_pageretr.SelectRow(1,True) dw_pageretr.SetRow(1) dw_pageretr.TriggerEvent(RowFocusChanged!) END IF dw_pageretr.SetRedraw(True) end event event ue_f7;call super::ue_f7;//IF Not dw_edit_mode THEN RETURN dw_mx.AcceptText() String ls_pricestr Long ll_row s_edit_index_tran s_tran_str ll_row = dw_mx.GetRow() IF ll_row <= 0 THEN RETURN ls_pricestr = dw_mx.Object.u_sc_workprice_pricestr[ll_row] s_tran_str.b_long = 0 // 0-工价,1-数量 s_tran_str.b_string = ls_pricestr OpenWithParm(w_mtrl_workpricestr_compute_edit,s_tran_str) IF Not dw_edit_mode THEN RETURN ls_pricestr = Message.StringParm dw_mx.Object.u_sc_workprice_pricestr[ll_row] = ls_pricestr dw_mx.AcceptText() end event type cb_func from w_publ_1ton_share_detail`cb_func within w_sc_workpricetable end type type cb_exit from w_publ_1ton_share_detail`cb_exit within w_sc_workpricetable integer x = 2542 end type type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_sc_workpricetable integer x = 2546 integer width = 667 end type type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_sc_workpricetable integer x = 2994 integer width = 142 end type type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_sc_workpricetable integer x = 2693 end type type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_sc_workpricetable integer x = 1733 integer width = 1810 integer height = 980 string title = "产品摘要内容" string dataobject = "dw_sc_workpricetable_index" end type type st_1 from w_publ_1ton_share_detail`st_1 within w_sc_workpricetable integer x = 2354 integer width = 187 string text = "编码含" alignment alignment = right! end type type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_sc_workpricetable integer x = 3136 end type type dw_uc from w_publ_1ton_share_detail`dw_uc within w_sc_workpricetable integer width = 1733 integer height = 980 string dataobject = "dw_sc_workpricetable_edit" end type event dw_uc::buttonclicked;call super::buttonclicked;IF NOT dw_edit_mode THEN RETURN IF row <= 0 THEN RETURN IF dwo.Name = 'b_mtrl' THEN PARENT.TriggerEvent('ue_f9') ELSEIF dwo.Name = 'b_cancel' THEN THIS.SetRedraw(FALSE) THIS.Object.u_mtrldef_wprate[row] = 0 THIS.Object.u_mtrldef_a_mtrlmode[row] = '' THIS.Object.u_mtrldef_a_mtrlname[row] = '' THIS.Object.u_mtrldef_a_mtrlcode[row] = '' THIS.Object.u_mtrldef_wpmtrlid[row] = 0 THIS.SetRedraw(TRUE) ELSEIF dwo.Name = 'b_cmpl' THEN wf_cmpl_price() END IF end event event dw_uc::dwnkey;PARENT.TriggerEvent('user_key') IF Key = KeyDownArrow! THEN RETURN 1 IF dw_edit_mode THEN IF dw_uc.GetColumnName() = 'u_mtrldef_wprate' AND Key = KeyEnter! THEN dw_child.SetFocus() dw_child.ScrollToRow(dw_child.RowCount()) dw_child.SetColumn ('procode') 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 type gb_2 from w_publ_1ton_share_detail`gb_2 within w_sc_workpricetable integer x = 421 integer y = 500 integer width = 393 integer height = 192 string text = "产品摘要内容" end type type dw_child from w_publ_1ton_share_detail`dw_child within w_sc_workpricetable boolean visible = false integer y = 1280 integer width = 3543 integer height = 892 string title = "产品工序明细" string dataobject = "dw_sc_workpricetable_mx" boolean controlmenu = true end type event dw_child::dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key') String ls_procode,ls_proname,ls_techlevel,ls_worklevel decimal ld_workprice Long ls_proid,ll_wrkgrpid Dec ls_workhour Long child_row Long ls_null SetNull(ls_null) 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 dw_child.GetColumnName() = 'procode' THEN dw_child.AcceptText() child_row = dw_child.GetRow() ls_procode = dw_child.Object.procode[child_row] SELECT u_sc_workprocedure.proid, u_sc_workprocedure.name, u_sc_workprocedure.techlevel, u_sc_workprocedure.workhour, u_sc_workprocedure.worklevel, u_sc_workprocedure.workprice, u_sc_workprocedure.wrkgrpid INTO :ls_proid,:ls_proname,:ls_techlevel,:ls_workhour, :ls_worklevel,:ld_workprice,:ll_wrkgrpid FROM u_sc_workprocedure Where ( u_sc_workprocedure.code = :ls_procode); IF sqlca.SQLCode <> 0 THEN dw_child.Object.proid[child_row] = 0 dw_child.Object.u_sc_workprice_proname[child_row] = '' dw_child.Object.techlevel[child_row] = '' dw_child.Object.worklevel[child_row] = '' dw_child.Object.workhour[child_row] = 0 dw_child.Object.wrkgrpid[child_row] = 0 dw_child.Object.workprice[child_row] = 0 ELSE dw_child.Object.proid[child_row] = ls_proid dw_child.Object.u_sc_workprice_proname[child_row] = ls_proname dw_child.Object.techlevel[child_row] = ls_techlevel dw_child.Object.worklevel[child_row] = ls_worklevel dw_child.Object.workhour[child_row] = ls_workhour dw_child.Object.wrkgrpid[child_row] = ll_wrkgrpid dw_child.Object.workprice[child_row] = ld_workprice END IF IF Key = KeyEnter! THEN keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF ELSEIF dw_child.GetColumnName( ) = 'techlevel' 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 //u_mtrldef_mtrlcode //u_mtrldef_unit //u_inwaremx_mtrlid //u_inwaremx_planprice //u_inwaremx_price //u_mtrldef_mtrlname end event type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_sc_workpricetable integer x = 1920 end type type cb_print from w_publ_1ton_share_detail`cb_print within w_sc_workpricetable integer x = 1728 end type type cb_add from w_publ_1ton_share_detail`cb_add within w_sc_workpricetable boolean visible = false integer x = 279 integer y = 324 boolean enabled = false end type type cb_edit from w_publ_1ton_share_detail`cb_edit within w_sc_workpricetable end type event cb_edit::clicked;if not f_power_ind(1336) 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 u_wrkprice.updatebegin(dw_pageretr.object.mtrlid[uc_row],arg_msg)=0 then messagebox('Error!',arg_msg) return end if end if call super::clicked parent.triggerevent('refresh_interface') if dw_edit_mode then if dw_mx.rowcount()>0 then dw_mx.setfocus() dw_mx.SetColumn('procode') else parent.triggerevent('insert_childrow') dw_mx.setfocus() dw_mx.SetColumn('procode') end if end if end event type cb_delet from w_publ_1ton_share_detail`cb_delet within w_sc_workpricetable boolean visible = false integer x = 905 integer y = 204 string text = "撤审" string normalpicname = "caudit.BMP" end type event cb_delet::clicked;call super::clicked;IF NOT f_power_ind(21) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN RETURN IF NOT KeyDown(KeyControl!) THEN IF MessageBox ("IF","是否确定要"+THIS.Text+"当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN END IF String arg_msg = '',ls_code Long pagerert_row,ls_id Long ll_mtrlid,ll_wrkGrpid pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF ll_mtrlid = dw_pageretr.Object.mtrlid[pagerert_row] openwithparm(w_workprice_audit,ll_mtrlid) ll_wrkGrpid = message.doubleparm if ll_wrkGrpid = 0 then return IF u_wrkprice.c_auditing(ll_mtrlid,ll_wrkGrpid,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'撤审成功!') wf_refresh_curuc(dw_pageretr.Object.mtrlid[pagerert_row]) parent.triggerevent('retrieve_childdw') END IF end event type cb_addzy from w_publ_1ton_share_detail`cb_addzy within w_sc_workpricetable integer x = 1221 integer width = 256 end type event cb_addzy::clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr menustr = "Text=复制工价表~tEvent=ue_copy" menustr = menustr + "|" + "Text=粘贴工价表~tEvent=ue_paste" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=设定工时~tEvent=ue_workhour_mod" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=审核工时~tEvent=ue_audit_gs" menustr = menustr + "|" + "Text=撤审工时~tEvent=ue_c_audit_gs" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=计算全套工价~tEvent=ue_addworkmx" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=预览全套工价~tEvent=ue_viewprint_all" menustr = menustr + "|" + "Text=打印全套工价~tEvent=ue_print_all" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=图片管理~tEvent=ue_fj_edit" menustr = menustr + "|" + "Text=图片查看~tEvent=ue_fj_view" 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_sc_workpricetable integer x = 686 end type event cb_auditing::clicked;call super::clicked;IF dw_edit_mode THEN RETURN String arg_msg Long ll_mtrlid,ll_wrkGrpid IF NOT f_power_ind(1337) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF MessageBox ("IF","是否确定要审核当前工价表吗?",Question!,YesNo! ) = 2 THEN RETURN Long pagerert_row pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF ll_mtrlid = dw_pageretr.Object.mtrlid[pagerert_row] OpenWithParm(w_workprice_audit,ll_mtrlid) ll_wrkGrpid = Message.DoubleParm IF ll_wrkGrpid = 0 THEN RETURN IF u_wrkprice.auditing(ll_mtrlid,ll_wrkGrpid,publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'审核成功!') wf_refresh_curuc(dw_pageretr.Object.mtrlid[pagerert_row]) PARENT.TriggerEvent('retrieve_childdw') END IF end event type cb_xm from w_publ_1ton_share_detail`cb_xm within w_sc_workpricetable integer x = 1477 end type event cb_xm::clicked;// is_mx_menustr = '' IF dw_edit_mode THEN is_mx_menustr = is_mx_menustr + "|" + "Text=选常用公式设置工价公式~tEvent=ue_workpricestr_com_ch" is_mx_menustr = is_mx_menustr + "|" + "Text=-" 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=-" is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工组~tEvent=ue_p_wrkgrpid" is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工序~tEvent=ue_p_pro" END IF CALL Super::Clicked end event type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_sc_workpricetable end type type cb_xls from w_publ_1ton_share_detail`cb_xls within w_sc_workpricetable integer x = 2112 integer width = 279 end type type cb_help from w_publ_1ton_share_detail`cb_help within w_sc_workpricetable integer x = 2391 end type type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_sc_workpricetable integer x = 878 end type event cb_auditing_cancel::clicked;call super::clicked;IF NOT f_power_ind(1337) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN RETURN IF NOT KeyDown(KeyControl!) THEN IF MessageBox ("IF","是否确定要"+THIS.Text+"当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN END IF String arg_msg = '',ls_code Long pagerert_row,ls_id Long ll_mtrlid,ll_wrkGrpid pagerert_row = dw_pageretr.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF ll_mtrlid = dw_pageretr.Object.mtrlid[pagerert_row] openwithparm(w_workprice_audit,ll_mtrlid) ll_wrkGrpid = message.doubleparm if ll_wrkGrpid = 0 then return IF u_wrkprice.c_auditing(ll_mtrlid,ll_wrkGrpid,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'撤审成功!') wf_refresh_curuc(dw_pageretr.Object.mtrlid[pagerert_row]) parent.triggerevent('retrieve_childdw') END IF end event type p_msg from w_publ_1ton_share_detail`p_msg within w_sc_workpricetable end type type p_help from w_publ_1ton_share_detail`p_help within w_sc_workpricetable end type type p_encl from w_publ_1ton_share_detail`p_encl within w_sc_workpricetable end type type p_other from w_publ_1ton_share_detail`p_other within w_sc_workpricetable end type type gb_3 from w_publ_1ton_share_detail`gb_3 within w_sc_workpricetable end type type ln_bar from w_publ_1ton_share_detail`ln_bar within w_sc_workpricetable end type type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_sc_workpricetable end type type r_bar from w_publ_1ton_share_detail`r_bar within w_sc_workpricetable end type type ln_1 from w_publ_1ton_share_detail`ln_1 within w_sc_workpricetable end type type ln_2 from w_publ_1ton_share_detail`ln_2 within w_sc_workpricetable end type type cb_save from uo_imflatbutton within w_sc_workpricetable integer x = 302 integer width = 192 integer height = 164 integer taborder = 280 boolean bringtotop = true boolean enabled = false string text = "保存&S" string normalpicname = "save.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;Long uc_row,i String arg_msg IF dw_edit_mode THEN dw_uc.AcceptText() dw_mx.AcceptText() uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标单据!') RETURN END IF u_wrkprice.mtrlid = dw_uc.Object.mtrlid[uc_row] u_wrkprice.wpmtrlid = dw_uc.Object.u_mtrldef_wpmtrlid[uc_row] u_wrkprice.wprate = dw_uc.Object.u_mtrldef_wprate[uc_row] FOR i = 1 To dw_mx.RowCount() IF Trim(dw_mx.Object.procode[i]) <> '' And dw_mx.Object.auditflag[i] = 0 THEN IF u_wrkprice.acceptmx(dw_mx.Object.proid[i],& dw_mx.Object.procode[i],& dw_mx.Object.u_sc_workprice_proname[i],& dw_mx.Object.workqty[i],& dw_mx.Object.workprice[i],& dw_mx.Object.wrkgrpid[i],& Upper(dw_mx.Object.worklevel[i]),& Upper(dw_mx.Object.techlevel[i]),& dw_mx.Object.workhour[i],& dw_mx.Object.dscrp[i],& dw_mx.Object.lastflag[i],& dw_mx.Object.proorder[i],& 0,& dw_mx.Object.lsxtype[i],& dw_mx.Object.u_sc_workprice_ifstandard[i],& dw_mx.Object.u_sc_workprice_status[i],& dw_mx.Object.u_sc_workprice_ifjd[i],& dw_mx.Object.u_sc_workprice_pricestr[i],& dw_mx.Object.u_sc_workprice_stepstr[i],& arg_msg) = 0 THEN MessageBox('Error!',arg_msg) RETURN END IF END IF NEXT IF u_wrkprice.Save(True,arg_msg) = 0 THEN MessageBox('Error!',arg_msg) RETURN END IF wf_addmx(u_wrkprice.mtrlid) 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(u_wrkprice.mtrlid) //刷新uc END IF dw_edit_mode = Not dw_edit_mode wf_refresh_interface() IF dw_edit_mode THEN dw_uc.SetFocus() END IF Parent.TriggerEvent('refresh_interface') Parent.TriggerEvent("retrieve_childdw") end event type cb_addmx_2 from uo_imflatbutton within w_sc_workpricetable integer x = 1029 integer width = 192 integer height = 164 integer taborder = 290 boolean enabled = false string text = "增工序" string normalpicname = "mx.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;dw_child.setfocus() PARENT.TriggerEvent("insert_childrow") end event type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_sc_workpricetable integer x = 960 integer y = 192 integer width = 471 integer height = 480 integer taborder = 50 boolean bringtotop = true end type event selectionchanged;call super::selectionchanged;cur_mtrlorigin = THIS.uo_mtrlorigin PARENT.TriggerEvent('ue_usual_query_retr') end event type em_1 from editmask within w_sc_workpricetable integer x = 544 integer y = 188 integer width = 192 integer height = 84 integer taborder = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string text = "2" alignment alignment = center! borderstyle borderstyle = stylelowered! string mask = "#0" boolean spin = true string minmax = "0~~5" end type type st_2 from statictext within w_sc_workpricetable integer x = 18 integer y = 204 integer width = 507 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 = center! boolean focusrectangle = false end type type ddlb_status from dropdownlistbox within w_sc_workpricetable integer x = 1829 integer y = 192 integer width = 361 integer height = 468 integer taborder = 60 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 cur_ifwrkprice = -1 ELSEIF Index = 2 THEN cur_flag = 0 cur_ifwrkprice = 0 ELSEIF Index = 3 THEN cur_flag = 0 cur_ifwrkprice = 1 ELSEIF Index = 4 THEN cur_flag = 1 cur_ifwrkprice = -1 END IF PARENT.TriggerEvent('retrieve_pageretr') end event type st_3 from statictext within w_sc_workpricetable integer x = 763 integer y = 208 integer width = 187 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_mtrlprp from uo_ddlb_mtrlprp within w_sc_workpricetable integer x = 1435 integer y = 192 integer width = 379 integer taborder = 60 boolean bringtotop = true end type event selectionchanged;call super::selectionchanged;cur_mtrlprp = THIS.uo_mtrlprp PARENT.TriggerEvent('ue_usual_query_retr') end event type tab_1 from tab within w_sc_workpricetable integer y = 1280 integer width = 3543 integer height = 892 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 boolean raggedright = true integer selectedtab = 1 tabpage_1 tabpage_1 tabpage_2 tabpage_2 end type on tab_1.create this.tabpage_1=create tabpage_1 this.tabpage_2=create tabpage_2 this.Control[]={this.tabpage_1,& this.tabpage_2} end on on tab_1.destroy destroy(this.tabpage_1) destroy(this.tabpage_2) end on type tabpage_1 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3506 integer height = 780 long backcolor = 134217739 string text = "工序" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_1 dw_1 end type on tabpage_1.create this.dw_1=create dw_1 this.Control[]={this.dw_1} end on on tabpage_1.destroy destroy(this.dw_1) end on type dw_1 from u_dw_rbtnfilter within tabpage_1 integer width = 3506 integer height = 780 integer taborder = 20 string dataobject = "dw_sc_workpricetable_mx" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true end type event dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key') String ls_procode,ls_proname,ls_techlevel,ls_worklevel decimal ld_workprice Long ls_proid,ll_wrkgrpid Dec ls_workhour Long child_row Long ls_null SetNull(ls_null) IF dw_edit_mode THEN IF KeyDown(Keydownarrow!) THEN Long li_row IF dw_mx.GetRow() = dw_mx.RowCount() THEN PARENT.getparent().getparent().TriggerEvent("insert_childrow") END IF ELSE IF (KeyDown(KeyEnter!) OR KeyDown(KeyTab!)) AND NOT KeyDown(KeyControl!) AND NOT KeyDown(KeyShift!) THEN IF dw_mx.GetColumnName() = 'procode' THEN dw_mx.AcceptText() child_row = dw_mx.GetRow() ls_procode = dw_mx.Object.procode[child_row] SELECT u_sc_workprocedure.proid, u_sc_workprocedure.name, u_sc_workprocedure.techlevel, u_sc_workprocedure.workhour, u_sc_workprocedure.worklevel, u_sc_workprocedure.workprice, u_sc_workprocedure.wrkgrpid INTO :ls_proid,:ls_proname,:ls_techlevel,:ls_workhour, :ls_worklevel,:ld_workprice,:ll_wrkgrpid FROM u_sc_workprocedure Where ( u_sc_workprocedure.code = :ls_procode); IF sqlca.SQLCode <> 0 THEN dw_mx.Object.proid[child_row] = 0 dw_mx.Object.u_sc_workprice_proname[child_row] = '' dw_mx.Object.techlevel[child_row] = '' dw_mx.Object.worklevel[child_row] = '' dw_mx.Object.workhour[child_row] = 0 dw_mx.Object.wrkgrpid[child_row] = 0 dw_mx.Object.workprice[child_row] = 0 ELSE dw_mx.Object.proid[child_row] = ls_proid dw_mx.Object.u_sc_workprice_proname[child_row] = ls_proname dw_mx.Object.techlevel[child_row] = ls_techlevel dw_mx.Object.worklevel[child_row] = ls_worklevel dw_mx.Object.workhour[child_row] = ls_workhour dw_mx.Object.wrkgrpid[child_row] = ll_wrkgrpid dw_mx.Object.workprice[child_row] = ld_workprice END IF IF Key = KeyEnter! THEN keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF ELSEIF dw_mx.GetColumnName( ) = 'techlevel' AND dw_mx.GetRow() = dw_mx.RowCount() THEN PARENT.getparent().getparent().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 //u_mtrldef_mtrlcode //u_mtrldef_unit //u_inwaremx_mtrlid //u_inwaremx_planprice //u_inwaremx_price //u_mtrldef_mtrlname end event event doubleclicked;call super::doubleclicked;IF dw_edit_mode THEN IF dwo.Name = 'u_sc_workprice_status' THEN Parent.GetParent().GetParent().TriggerEvent('ue_f10') ELSEIF dwo.Name = 'u_sc_workprice_pricestr' THEN Parent.GetParent().GetParent().TriggerEvent('ue_f7') ELSE Parent.GetParent().GetParent().TriggerEvent('ue_f8') END IF ELSE IF dwo.Name = 'u_sc_workprice_pricestr' THEN Parent.GetParent().GetParent().TriggerEvent('ue_f7') else Parent.GetParent().GetParent().TriggerEvent('ue_f6') 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 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 rbuttondown;call super::rbuttondown;IF dw_edit_mode THEN Long ll_row,ll_column ll_row = THIS.GetRow() ll_column = THIS.GetColumn() IF ll_row <= 0 THEN RETURN IF ll_column <= 0 THEN RETURN IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = THIS.X + PARENT.X s_calender.Y = THIS.Y + PARENT.Y OpenWithParm(w_calendar,s_calender) THIS.SetItem(ll_row,ll_column,id_date_selected) else if Left(dwo.TYPE,4) = 'text' then return m_dwchild_rbotton m_print m_print = CREATE m_dwchild_rbotton m_print.m_0.PopMenu( THIS.X + THIS.PointerX() + 50,tab_1.y + THIS.Y + THIS.PointerY() + 50) END IF END IF end event type tabpage_2 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3506 integer height = 780 long backcolor = 134217739 string text = "全套工价" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_2 dw_2 end type on tabpage_2.create this.dw_2=create dw_2 this.Control[]={this.dw_2} end on on tabpage_2.destroy destroy(this.dw_2) end on type dw_2 from u_dw_rbtnfilter within tabpage_2 integer width = 3506 integer height = 780 integer taborder = 20 string dataobject = "dw_sc_workpricetable_mx_mx" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_filter_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow <=0 THEN RETURN this.selectrow(0,false) this.selectrow(currentrow,true) end event event doubleclicked;call super::doubleclicked;IF NOT dw_edit_mode THEN PARENT.GetParent().GetParent().TriggerEvent('ue_f12') END IF end event type cb_1 from commandbutton within w_sc_workpricetable integer x = 485 integer y = 1280 integer width = 297 integer height = 80 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "设定工时" end type event clicked;PARENT.TriggerEvent('ue_workhour_mod') end event type cb_2 from commandbutton within w_sc_workpricetable integer x = 818 integer y = 1280 integer width = 384 integer height = 80 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "设定工序序号" end type event clicked;PARENT.TriggerEvent('ue_proorder_mod') end event