$PBExportHeader$w_mtrlware_propel_rule.srw forward global type w_mtrlware_propel_rule from w_publ_1ton_share_detail end type type st_13 from statictext within w_mtrlware_propel_rule end type type ddlb_retrstatus from dropdownlistbox within w_mtrlware_propel_rule end type type ddlb_scid from uo_ddlb_scid within w_mtrlware_propel_rule end type type st_2 from statictext within w_mtrlware_propel_rule end type type cb_propel from uo_imflatbutton within w_mtrlware_propel_rule end type end forward global type w_mtrlware_propel_rule from w_publ_1ton_share_detail string title = "库存推送策略" boolean maxbox = true windowstate windowstate = maximized! event insert_childrow ( ) st_13 st_13 ddlb_retrstatus ddlb_retrstatus ddlb_scid ddlb_scid st_2 st_2 cb_propel cb_propel end type global w_mtrlware_propel_rule w_mtrlware_propel_rule type variables Int cur_status = 0 Int cur_flag = -1 Long cur_scid uo_mtrlware_propel_rule uo_rule long cur_kind = 0 Transaction tr_eb_sqlca end variables forward prototypes public function integer wf_statusbtn_fc () 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_ruleid) end prototypes event insert_childrow();Long li_row li_row = dw_child.InsertRow(0) dw_child.ScrollToRow(li_row) dw_child.SetColumn ('u_mtrlware_propel_rule_mx_ifmatch') end event public function integer wf_statusbtn_fc ();//wf_statusbtn_fc //IF dw_edit_mode THEN // cb_auditing_cancel.Enabled = FALSE // cb_auditing.Enabled = FALSE // RETURN 0 //END IF //Long ls_row,status //ls_row = dw_pageretr.GetRow() // //IF NOT ls_row > 0 THEN // cb_auditing_cancel.Enabled = FALSE // cb_auditing.Enabled = FALSE // RETURN 0 //END IF //status = dw_pageretr.Object.u_order_wfjg_status[ls_row] //CHOOSE CASE status // CASE 0 // cb_auditing_cancel.Enabled = FALSE // cb_auditing.Enabled = TRUE // CASE 1 // cb_auditing_cancel.Enabled = TRUE // cb_auditing.Enabled = FALSE // CASE 2,3,4,5,6 // cb_auditing_cancel.Enabled = FALSE // cb_auditing.Enabled = FALSE // CASE ELSE // cb_auditing_cancel.Enabled = FALSE // cb_auditing.Enabled = FALSE //END CHOOSE 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] ll_scid = dw_pageretr.Object.u_order_wfjg_scid[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_scid,ll_id) next return 1 end function public function integer wf_refresh_curuc (long arg_ruleid);//wf_refresh_curuc Int rslt = 1 IF arg_ruleid <= 0 Or IsNull(arg_ruleid) THEN rslt = 0 GOTO ext END IF Long uc_row uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN rslt = 0 GOTO ext END IF String rulename String dscrp String rulestr DateTime opdate String opemp DateTime moddate String modemp Long storageid DateTime propeltime String storagename,filterstr long isrunning datetime nextexectime long timertype string timerparm datetime lastexectime SELECT u_mtrlware_propel_rule.rulename, u_mtrlware_propel_rule.dscrp, u_mtrlware_propel_rule.rulestr, u_mtrlware_propel_rule.opdate, u_mtrlware_propel_rule.opemp, u_mtrlware_propel_rule.moddate, u_mtrlware_propel_rule.modemp, u_mtrlware_propel_rule.storageid, u_mtrlware_propel_rule.propeltime, u_storage.storagename, case ltrim(rtrim(u_mtrlware_propel_rule.handtypestr)) when '' then ltrim(rtrim(u_mtrlware_propel_rule.rulestr)) else ltrim(rtrim(u_mtrlware_propel_rule.rulestr)) + ' 物料类别包含:'+ltrim(rtrim(u_mtrlware_propel_rule.handtypestr)) end as filterstr, isrunning, nextexectime, timertype, timerparm, lastexectime INTO :rulename, :dscrp, :rulestr, :opdate, :opemp, :moddate, :modemp, :storageid, :propeltime, :storagename, :filterstr, :isrunning, :nextexectime, :timertype, :timerparm, :lastexectime FROM u_mtrlware_propel_rule LEFT OUTER JOIN u_storage ON u_mtrlware_propel_rule.storageid = u_storage.storageid Where ( u_mtrlware_propel_rule.ruleid = :arg_ruleid ); IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示',"查询操作失败(错误外加工计划唯一码)") rslt = 0 GOTO ext END IF dw_pageretr.Object.ruleid[uc_row] = arg_ruleid dw_pageretr.Object.rulename[uc_row] = rulename dw_pageretr.Object.rulestr[uc_row] = rulestr dw_pageretr.Object.dscrp[uc_row] = dscrp 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.storageid[uc_row] = storageid dw_pageretr.Object.propeltime[uc_row] = propeltime dw_pageretr.Object.u_storage_storagename[uc_row] = storagename dw_pageretr.Object.filterstr[uc_row] = filterstr dw_pageretr.Object.isrunning[uc_row] = isrunning dw_pageretr.Object.nextexectime[uc_row] = nextexectime dw_pageretr.Object.timertype[uc_row] = timertype dw_pageretr.Object.timerparm[uc_row] = timerparm dw_pageretr.Object.lastexectime[uc_row] = lastexectime dw_uc.Reset() dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!) dw_uc.ResetUpdate() dw_uc.SetRedraw(True) This.PostEvent('retrieve_childdw') ext: wf_statusbtn_fc() RETURN rslt end function on w_mtrlware_propel_rule.create int iCurrent call super::create this.st_13=create st_13 this.ddlb_retrstatus=create ddlb_retrstatus this.ddlb_scid=create ddlb_scid this.st_2=create st_2 this.cb_propel=create cb_propel iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.st_13 this.Control[iCurrent+2]=this.ddlb_retrstatus this.Control[iCurrent+3]=this.ddlb_scid this.Control[iCurrent+4]=this.st_2 this.Control[iCurrent+5]=this.cb_propel end on on w_mtrlware_propel_rule.destroy call super::destroy destroy(this.st_13) destroy(this.ddlb_retrstatus) destroy(this.ddlb_scid) destroy(this.st_2) destroy(this.cb_propel) end on 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_kind) IF dw_pageretr.RowCount() > 0 THEN dw_pageretr.SetRow(1) dw_pageretr.TriggerEvent(RowFocusChanged!) END IF wf_statusbtn_fc() 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 = 4 //uc dw前5列可以编辑 child_column_int = 1 //子 dw前3列可以编辑 uo_rule = create uo_mtrlware_propel_rule end event event ue_f8;call super::ue_f8;IF NOT dw_edit_mode THEN RETURN Long uc_row,ls_j Long child_row,ll_receivecuscommid IF Not IsValid(w_cust_comm_ch) THEN s_edit_index_tran s_open //传递参数使用 s_open.if_select_any = True s_open.b_string = '' This.Enabled = False OpenWithParm(w_cust_comm_ch,s_open) This.Enabled = True s_custom_arr s_inscust s_inscust = Message.PowerObjectParm //接受返回结构 dw_child.SetRedraw(False) FOR ls_j = 1 To UpperBound(s_inscust.cusid) IF s_inscust.cusid[ls_j] > 0 THEN //正常返回值则可以取以下值 IF dw_child.Find("u_mtrlware_propel_rule_mx_cusid =" + String(s_inscust.cusid[ls_j]), 1, dw_child.RowCount()) > 0 THEN CONTINUE IF dw_child.GetRow() > 0 THEN IF dw_child.Object.cusid[dw_child.GetRow()] <> 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_mtrlware_propel_rule_mx_cusid[child_row] = s_inscust.cusid[ls_j] dw_child.Object.cuscode[child_row] = s_inscust.cuscode[ls_j] dw_child.Object.Name[child_row] = s_inscust.Name[ls_j] dw_child.Object.cusareaname[child_row] = s_inscust.cusareaname[ls_j] dw_child.Object.commcode[child_row] = s_inscust.commcode[ls_j] dw_child.Object.commsccode[child_row] = s_inscust.commsccode[ls_j] END IF NEXT dw_child.SetRedraw(True) END IF end event event refresh_interface;call super::refresh_interface;ddlb_retrstatus.Enabled = NOT dw_edit_mode ddlb_scid.Enabled = NOT dw_edit_mode wf_statusbtn_fc() end event event retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid row = dw_pageretr.GetRow() IF row > 0 THEN uc_relid = dw_pageretr.Object.ruleid[row] dw_child.SetRedraw (False) dw_child.Retrieve(uc_relid) dw_child.SetRedraw (True) IF dw_child.RowCount() > 0 THEN dw_child.SelectRow(0,False) dw_child.SelectRow(1,True) dw_child.SetRow(1) END IF ELSE dw_child.Reset() END IF end event event close;f_SetProfileString(sys_empid, "wfjg", "status", String(cur_status)) end event event ue_usual_query_filt;call super::ue_usual_query_filt;string obj_expr='' if trim(sle_usual_query.text)<>'' then IF POS(trim(sle_usual_query.text),'%')=0 THEN obj_expr=obj_expr+'( u_order_wfjg_taskcode LIKE "%'+trim(sle_usual_query.text)+'%" )' ELSE obj_expr=obj_expr+'( u_order_wfjg_taskcode LIKE "'+trim(sle_usual_query.text)+'" )' END IF end if dw_pageretr.setfilter(obj_expr) dw_pageretr.SetRedraw(False) dw_pageretr.filter() if dw_pageretr.rowcount()>=1 then dw_pageretr.selectrow(0,false) dw_pageretr.selectrow(1,true) end if dw_pageretr.SetRedraw(TRUE) end event event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart='' ls_newselect=lower(ori_oldselect) if trim(sle_usual_query.text)<>'' then if pos(trim(sle_usual_query.text),'%')=0 then ls_querystrpart="(u_order_wfjg.taskcode like '%"+trim(sle_usual_query.text)+"%')" else ls_querystrpart="(u_order_wfjg.taskcode 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 LS_ROW //LS_ROW = dw_pageretr.GetRow() //IF LS_ROW <= 0 THEN // MessageBox('NO','没有打印目标单据!') // RETURN //END IF // //S_print_MSG LS_PRMSG // // //IF ls_newname <> '' THEN // IF Not uo_power_spi.uf_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.u_order_wfjg_status[dw_pageretr.GetRow()] = 0 THEN // MessageBox('NO','目标单据还未审核,不能打印!') // RETURN // END IF // END IF // LS_PRMSG.obj_dwNAME = ls_newname //ELSE // // IF NOT uo_power_spi.uf_power_ind(391,sys_msg_pow) THEN // MessageBox(publ_operator,sys_msg_pow) // RETURN //END IF // // // LS_PRMSG.obj_dwNAME = 'dw_rp_order_wfjg_print' //END IF // //IF LS_PRMSG.obj_dwNAME = '' THEN RETURN // //LS_PRMSG.printrow = ll_prownum //LS_PRMSG.TAG_TEXT = '外加工计划' //LS_PRMSG.retr_pram_falg = 15 //LS_PRMSG.PAGECH_FLAG = 0 //LS_PRMSG.retr_scid = dw_pageretr.Object.u_order_wfjg_scid[LS_ROW] //LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_wfjgid[LS_ROW] //LS_PRMSG.rowcnt = dw_mtrlmx.RowCount() //OpenWithParm(w_publ_preview,LS_PRMSG) // ////更新打印次数 //String arg_msg //printnum = Message.DoubleParm // //Long ll_scid //String ls_code // //ll_scid = dw_pageretr.Object.u_order_wfjg_scid[dw_pageretr.GetRow()] //ls_code = dw_pageretr.Object.u_order_wfjg_taskcode[dw_pageretr.GetRow()] // //f_update_printnum(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE) 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 LS_ROW //LS_ROW = dw_uc.GetRow() //IF LS_ROW <= 0 THEN // MessageBox('NO','没有打印目标单据!') // RETURN //END IF // //IF ls_newname <> '' THEN // IF NOT uo_power_spi.uf_power_ind(ls_powerid,sys_msg_pow) THEN // MessageBox(publ_operator,sys_msg_pow) // RETURN //END IF // // // IF li_auditprint = 1 THEN // IF dw_uc.Object.u_order_wfjg_status[dw_uc.GetRow()] = 0 THEN // MessageBox('NO','目标单据还未审核,不能打印!') // RETURN // END IF // END IF // LS_PRMSG.obj_dwNAME = ls_newname //ELSE // // IF NOT uo_power_spi.uf_power_ind(391,sys_msg_pow) THEN // MessageBox(publ_operator,sys_msg_pow) // RETURN //END IF // // LS_PRMSG.obj_dwNAME = 'dw_rp_order_wfjg_print' //END IF // //IF LS_PRMSG.obj_dwNAME = '' THEN RETURN // //LS_PRMSG.printrow = ll_prownum //LS_PRMSG.retr_pram_falg = 15 //LS_PRMSG.TAG_TEXT = '外加工计划' //LS_PRMSG.FILTER_STRING = '' //LS_PRMSG.PAGECH_FLAG = 0 //LS_PRMSG.retr_scid = dw_uc.Object.u_order_wfjg_scid[dw_uc.GetRow()] //LS_PRMSG.retr_pramnmb = dw_uc.Object.u_order_wfjg_wfjgid[dw_uc.GetRow()] //LS_PRMSG.rowcnt = dw_mtrlmx.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() // ////更新打印次数 //printnum = 1 // //Long ll_scid //String ls_code // //ll_scid = dw_uc.Object.u_order_wfjg_scid[dw_uc.GetRow()] //ls_code = dw_uc.Object.u_order_wfjg_taskcode[dw_uc.GetRow()] // //f_update_printnum(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE) // // // // // end event event resize;ln_bar.EndX = THIS.Width ln_bar2.EndX = THIS.Width ln_1.EndX = THIS.Width ln_2.EndX = THIS.Width r_bar.Width = THIS.Width Long w_width,w_height w_width = 3602 w_height = 2300 IF newwidth < w_width THEN THIS.Width = w_width IF newheight < w_height THEN THIS.Height = w_height dw_child.Width = THIS.Width - (w_width - dw_child_w) dw_child.Height = THIS.Height - (w_height - dw_child_h) dw_pageretr.Width = THIS.Width - (w_width - dw_pageretr_w) //============================================================================== //YYX081007 //============================================================================== IF uc_width > 0 THEN dw_uc.Width = uc_width END IF IF uc_height > 0 THEN dw_uc.Height = uc_height END IF dw_pageretr.X = dw_uc.X + dw_uc.Width dw_pageretr.Width = THIS.Width - dw_pageretr.X - 40 dw_pageretr.Height = dw_uc.Height this.triggerevent('resize_p') end event event ue_addzy;call super::ue_addzy;//if uo_power_spi.unot f_power_ind(40) then // messagebox(publ_operator,'你没有使用权限！') // return //end if // //if dw_edit_mode then return // //string arg_msg='',LS_STR //long uc_row //s_inputbox S_SREU // //uc_row=dw_pageretr.getrow() //if uc_row<=0 then // messagebox('系统提示','请选定当前目标订单!') // return //end if //S_SREU.TITLE='请输入要补充到备注的内容' //S_SREU.OLD_TEXT='' //openwithparm(w_inputbox,S_SREU) //LS_STR=Message.StringParm //if trim(LS_STR)='' or isnull(LS_STR) then return // //if uo_wfjg.add_dscrp(dw_pageretr.object.u_order_wfjg_scid[uc_row],dw_pageretr.object.u_order_wfjg_wfjgid[uc_row],LS_STR,arg_msg,true)=0 then // messagebox('Error!',arg_msg) // return //else // messagebox(publ_operator,'添加备注操作成功!') // wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[uc_row],dw_pageretr.object.u_order_wfjg_wfjgid[uc_row]) //end if // end event event ue_rpt_viewprint;call super::ue_rpt_viewprint;// //Long row,uc_relid,ll_scid //row = dw_pageretr.GetRow() //IF row = 0 THEN RETURN // // //IF ls_rpname = '' THEN RETURN // //IF li_auditprint = 1 THEN // IF dw_pageretr.Object.u_order_wfjg_status[row] = 0 THEN // MessageBox('NO','目标单据还未审核,不能打印!') // RETURN // END IF //END IF // //s_rpt_print_msg s_print //s_print.retr_pram_falg = 15 //s_print.rpid = ls_msgprintid_rpt //s_print.retr_flag = TRUE //s_print.tag_text = THIS.Title // //s_print.rpname = ls_rpname //s_print.retr_scid = dw_pageretr.Object.u_order_wfjg_scid[row] //s_print.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_wfjgid[row] //s_print.rowcnt = dw_mtrlmx.RowCount() //OpenWithParm(w_rpt_preview,s_print) // ////**更新打印次料 //String arg_msg //printnum = Message.DoubleParm // //String ls_code // //ll_scid = dw_pageretr.Object.u_order_wfjg_scid[row] //ls_code = dw_pageretr.Object.u_order_wfjg_taskcode[row] // //f_update_printnum(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE) end event event ue_rpt_print;call super::ue_rpt_print;//Long row,uc_relid,ll_scid //row = dw_pageretr.GetRow() //IF row = 0 THEN RETURN // // //uo_rpt_print_preview uo_print //S_rpt_print_MSG LS_PRMSG // //IF dw_pageretr.RowCount() = 0 THEN // MessageBox('系统信息','没有可打印的单据！') // RETURN //END IF // //IF ls_rpname = '' THEN RETURN // //IF li_auditprint = 1 THEN // IF dw_pageretr.Object.u_order_wfjg_status[row] = 0 THEN // MessageBox('NO','目标单据还未审核,不能打印!') // RETURN // END IF //END IF // //IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN // //LS_PRMSG.retr_pram_falg = 15 //LS_PRMSG.TAG_TEXT = THIS.Title //LS_PRMSG.rpname = ls_rpname //LS_PRMSG.FILTER_STRING = '' // //LS_PRMSG.PAGECH_FLAG = 0 //LS_PRMSG.rpid = ls_msgprintid_rpt //LS_PRMSG.retr_scid = dw_pageretr.Object.u_order_wfjg_scid[row] //LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_wfjgid[row] //LS_PRMSG.rowcnt = dw_mtrlmx.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() // // ////**更新打印次料 //printnum = Message.DoubleParm // //String ls_code // //ll_scid = dw_pageretr.Object.u_order_wfjg_scid[row] //ls_code = dw_pageretr.Object.u_order_wfjg_taskcode[row] // //f_update_printnum(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE) end event event ue_news_add;call super::ue_news_add;Long ll_row_p s_admsg s_msg dw_pageretr.AcceptText() ll_row_p = dw_pageretr.GetRow() IF ll_row_p <= 0 THEN RETURN s_msg.billcode = dw_pageretr.Object.u_order_wfjg_taskcode[ll_row_p] OpenWithParm(w_new_admsg,s_msg) end event event ue_news_rel;call super::ue_news_rel;Long ll_row_p String ls_billcode dw_pageretr.AcceptText() ll_row_p = dw_pageretr.GetRow() IF ll_row_p <= 0 THEN RETURN ls_billcode = dw_pageretr.Object.u_order_wfjg_taskcode[ll_row_p] OpenWithParm(w_msg_billcode_rel,ls_billcode) end event event ue_f9;call super::ue_f9;IF Not dw_edit_mode THEN RETURN Long ll_ucrow String ls_rulestr,ls_handtypestr ,ls_filterstr Long ll_storageid s_mtrlware_filter_ch s_return dw_uc.AcceptText() ll_ucrow = dw_uc.GetRow() IF ll_ucrow <= 0 THEN MessageBox('系统提示','请先选择换料策略') RETURN END IF ll_storageid = dw_uc.Object.u_mtrlware_propel_rule_storageid[ll_ucrow] IF ll_storageid = 0 THEN MessageBox('系统提示','请先选择仓库') RETURN END IF OpenWithParm(w_ware_mtrlware_filter_ch,ll_storageid) s_return = Message.PowerObjectParm IF s_return.returnflag = 0 THEN RETURN dw_uc.Object.u_mtrlware_propel_rule_rulestr[ll_ucrow] = s_return.rulestr dw_uc.Object.u_mtrlware_propel_rule_handtypestr[ll_ucrow] = s_return.handtypestr IF s_return.handtypestr = '' THEN ls_filterstr = s_return.rulestr ELSE ls_filterstr = s_return.rulestr + ' 物料类别包含:'+s_return.handtypestr END IF dw_uc.Object.filterstr[ll_ucrow] = ls_filterstr dw_uc.AcceptText() end event event ue_f6;call super::ue_f6;//IF NOT dw_edit_mode THEN RETURN // //Long ll_row //String ls_rule_if,ls_rule_then //String ls_rule_if_re,ls_rule_then_re //int li_repeattype,li_repeattype_re // // //dw_mx.AcceptText() //ll_row = dw_mx.GetRow() // //IF ll_row = 0 THEN // ll_row = dw_mx.InsertRow(0) //END IF // //ls_rule_if = dw_mx.Object.rule_if[ll_row] //ls_rule_then = dw_mx.Object.rule_then[ll_row] //li_repeattype = dw_mx.Object.repeattype[ll_row] // //s_mtrl_change_rule_mx s_rulemx,s_return // //s_rulemx.rule_if = ls_rule_if //s_rulemx.rule_then = ls_rule_then //s_rulemx.kind = cur_kind //s_rulemx.repeattype = li_repeattype // //IF cur_kind = 0 or cur_kind = 2 THEN // OpenWithParm(w_mtrl_change_rule_edit_mx,s_rulemx) //ELSEIF cur_kind = 1 THEN // OpenWithParm(w_mtrl_change_rule_del_edit_mx,s_rulemx) //END IF // //s_return = Message.PowerObjectParm // //ls_rule_if_re = s_return.rule_if //ls_rule_then_re = s_return.rule_then //li_repeattype_re = s_return.repeattype // //dw_mx.Object.rule_if[ll_row] = ls_rule_if_re //dw_mx.Object.rule_then[ll_row] = ls_rule_then_re //dw_mx.Object.repeattype[ll_row] = li_repeattype_re // //dw_mx.AcceptText() // // end event event ue_f10;call super::ue_f10;IF Not dw_edit_mode THEN RETURN Long ll_ucrow dw_uc.AcceptText() ll_ucrow = dw_uc.GetRow() IF ll_ucrow <= 0 THEN MessageBox('系统提示','请先选择换料策略') RETURN END IF s_ljfieb_timer_ch s_parm s_parm.isrunning = dw_uc.Object.isrunning[ll_ucrow] s_parm.nextexectime = dw_uc.Object.nextexectime[ll_ucrow] s_parm.timertype = dw_uc.Object.timertype[ll_ucrow] s_parm.timerparm = dw_uc.Object.timerparm[ll_ucrow] OpenWithParm(w_ljfieb_timer_ch, s_parm) s_parm = Message.PowerObjectParm IF s_parm.ifchange THEN dw_uc.Object.isrunning[ll_ucrow] = s_parm.isrunning dw_uc.Object.nextexectime[ll_ucrow] = s_parm.nextexectime dw_uc.Object.timertype[ll_ucrow] = s_parm.timertype dw_uc.Object.timerparm[ll_ucrow] = s_parm.timerparm END IF end event type cb_func from w_publ_1ton_share_detail`cb_func within w_mtrlware_propel_rule end type type cb_exit from w_publ_1ton_share_detail`cb_exit within w_mtrlware_propel_rule integer x = 1079 integer width = 142 integer taborder = 250 end type type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_mtrlware_propel_rule boolean visible = false integer x = 224 integer width = 539 end type type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_mtrlware_propel_rule integer x = 1545 integer width = 142 integer taborder = 230 end type type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_mtrlware_propel_rule integer x = 1243 integer taborder = 200 end type type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_mtrlware_propel_rule integer x = 1970 integer y = 184 integer width = 1568 integer height = 1000 string title = "推送策略摘要内容" string dataobject = "dw_mtrlware_propel_rule_index" end type event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;wf_statusbtn_fc() IF currentrow <= 0 THEN dw_child.Reset() END IF end event event dw_pageretr::retrieveend;wf_statusbtn_fc() end event type st_1 from w_publ_1ton_share_detail`st_1 within w_mtrlware_propel_rule boolean visible = false integer width = 192 alignment alignment = right! end type type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_mtrlware_propel_rule integer x = 1687 integer taborder = 240 end type type dw_uc from w_publ_1ton_share_detail`dw_uc within w_mtrlware_propel_rule integer y = 184 integer width = 1966 integer height = 1012 integer taborder = 130 string dataobject = "dw_mtrlware_propel_rule_edit" end type event dw_uc::dwnkey;Parent.TriggerEvent('user_key') IF Key = KeyDownArrow! THEN RETURN 1 IF dw_edit_mode THEN 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 event event dw_uc::buttonclicked;call super::buttonclicked;IF dw_edit_mode And row > 0 and dwo.name = 'b_ch' THEN Parent.TriggerEvent('ue_f9') elseIF dw_edit_mode And row > 0 and dwo.name = 'b_timer' THEN Parent.TriggerEvent('ue_f10') END IF end event type gb_2 from w_publ_1ton_share_detail`gb_2 within w_mtrlware_propel_rule integer x = 329 integer y = 396 integer width = 425 integer height = 336 integer taborder = 90 string text = "详细内容" end type type dw_child from w_publ_1ton_share_detail`dw_child within w_mtrlware_propel_rule integer y = 1196 integer width = 3543 integer height = 1060 integer taborder = 170 string title = "推送对象列表(双击选择)" string dataobject = "dw_mtrlware_propel_rule_mx_edit" end type type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_mtrlware_propel_rule boolean visible = false integer x = 1568 integer taborder = 50 end type type cb_print from w_publ_1ton_share_detail`cb_print within w_mtrlware_propel_rule boolean visible = false integer x = 1376 integer taborder = 160 end type type cb_add from w_publ_1ton_share_detail`cb_add within w_mtrlware_propel_rule integer taborder = 210 end type event cb_add::clicked;IF Not uo_power_spi.uf_power_ind(3356,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF String arg_msg = '' Long uc_row,i,j Long cnt_mx s_mtrlware_propel_rule arg_s_rule 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 Len(String(dw_uc.Object.u_mtrlware_propel_rule_rulename[uc_row])) > 0 THEN MessageBox('系统提示','请填写策略名称!') dw_uc.SetFocus() dw_uc.SetColumn("u_mtrlware_propel_rule_rulename") RETURN END IF if dw_uc.object.u_mtrlware_propel_rule_storageid[uc_row] = 0 then MessageBox('系统提示','请选择仓库!') dw_uc.SetFocus() dw_uc.SetColumn("u_mtrlware_propel_rule_storageid") RETURN END IF // IF Not Len(String(dw_uc.Object.u_mtrlware_propel_rule_rulestr[uc_row])) > 0 THEN // MessageBox('系统提示','请选择筛选条件!') // dw_uc.SetFocus() // RETURN // END IF arg_s_rule.ruleid = dw_uc.Object.u_mtrlware_propel_rule_ruleid[uc_row] arg_s_rule.rulename = dw_uc.Object.u_mtrlware_propel_rule_rulename[uc_row] arg_s_rule.rulestr = dw_uc.Object.u_mtrlware_propel_rule_rulestr[uc_row] arg_s_rule.handtypestr = dw_uc.Object.u_mtrlware_propel_rule_handtypestr[uc_row] arg_s_rule.dscrp = dw_uc.Object.u_mtrlware_propel_rule_dscrp[uc_row] arg_s_rule.storageid = dw_uc.Object.u_mtrlware_propel_rule_storageid[uc_row] arg_s_rule.isrunning = dw_uc.Object.isrunning[uc_row] arg_s_rule.nextexectime = dw_uc.Object.nextexectime[uc_row] arg_s_rule.timertype = dw_uc.Object.timertype[uc_row] arg_s_rule.timerparm = dw_uc.Object.timerparm[uc_row] FOR i = 1 To dw_child.RowCount() IF dw_child.Object.u_mtrlware_propel_rule_mx_cusid[i] > 0 THEN cnt_mx++ arg_s_rule.arg_s_mx[cnt_mx].cusid = dw_child.Object.u_mtrlware_propel_rule_mx_cusid[i] arg_s_rule.arg_s_mx[cnt_mx].ifmatch = dw_child.Object.u_mtrlware_propel_rule_mx_ifmatch[i] END IF NEXT IF uo_rule.Save(arg_s_rule,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_rule.uo_ruleid) //刷新uc END IF IF Not dw_edit_mode THEN Int li_row li_row = dw_pageretr.InsertRow (1) dw_pageretr.ScrollToRow(li_row) dw_child.Reset() dw_uc.Reset() dw_uc.SetFocus() dw_pageretr.RowsCopy(li_row,li_row, Primary!, dw_uc, 1, Primary!) END IF dw_edit_mode = Not dw_edit_mode wf_refresh_interface() IF dw_edit_mode THEN Parent.TriggerEvent("insert_childrow") dw_uc.SetFocus() dw_uc.SetColumn("u_mtrlware_propel_rule_rulename") ELSE Parent.TriggerEvent("retrieve_childdw") END IF end event type cb_edit from w_publ_1ton_share_detail`cb_edit within w_mtrlware_propel_rule integer taborder = 60 end type event cb_edit::clicked;IF Not uo_power_spi.uf_power_ind(3356,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 wf_refresh_curuc(dw_pageretr.Object.ruleid[uc_row]) PARENT.TriggerEvent("retrieve_childdw") END IF CALL SUPER::Clicked end event type cb_delet from w_publ_1ton_share_detail`cb_delet within w_mtrlware_propel_rule integer width = 142 integer taborder = 180 end type event cb_delet::clicked;call super::clicked;IF NOT uo_power_spi.uf_power_ind(3357,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_rule.del(dw_pageretr.Object.ruleid[uc_row],arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE //日志 Long ls_id String ls_code ls_id = dw_pageretr.Object.ruleid[uc_row] ls_code = dw_pageretr.Object.rulename[uc_row] f_setsysoplog('库存推送策略','库存推送策略删除,id:'+String(ls_id)+',code:'+ls_code,arg_msg,TRUE) //-- MessageBox(publ_operator,'删除库存推送策略'+String(dw_pageretr.Object.rulename[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_mtrlware_propel_rule boolean visible = false integer x = 827 integer width = 297 integer taborder = 190 end type event cb_addzy::clicked;call super::clicked;IF dw_pageretr.GetRow() <= 0 THEN RETURN m_Dfc_Control_PopupMenu dmPopupMenu String menustr IF NOT dw_edit_mode THEN menustr = "Text=增加备注~tEvent=ue_addzy" 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_mtrlware_propel_rule boolean visible = false integer x = 827 integer taborder = 220 string text = "审批&F" end type event cb_auditing::clicked;call super::clicked;// // //IF dw_edit_mode THEN RETURN //String arg_msg = '' //Long pagerert_row // //pagerert_row = dw_pageretr.GetRow() //IF pagerert_row <= 0 THEN // MessageBox('系统提示','请选定当前目标外加工计划!') // RETURN //END IF // // //IF MessageBox ("IF","是否确定要对当前外加工计划作审核吗?",Question!,YesNo! ) = 2 THEN RETURN // //IF dw_pageretr.Object.u_order_wfjg_billtype[pagerert_row] = 0 THEN // IF NOT uo_power_spi.uf_power_ind(41) THEN // MessageBox(publ_operator,'你没有使用权限！') // RETURN // END IF //ELSE // IF NOT uo_power_spi.uf_power_ind(795) THEN // MessageBox(publ_operator,'你没有使用权限！') // RETURN // END IF //END IF // // //IF uo_wfjg.firstpermit(dw_pageretr.Object.u_order_wfjg_scid[pagerert_row],dw_pageretr.Object.u_order_wfjg_wfjgid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN // MessageBox('Error!',arg_msg) //ELSE // MessageBox(publ_operator,'外加工计划审核成功!') // IF cur_status <> -1 THEN // dw_pageretr.DeleteRow(pagerert_row) // dw_pageretr.TriggerEvent(RowFocusChanged!) // ELSE // wf_refresh_curuc(dw_pageretr.Object.u_order_wfjg_scid[pagerert_row],dw_pageretr.Object.u_order_wfjg_wfjgid[pagerert_row]) // END IF //END IF // // end event type cb_xm from w_publ_1ton_share_detail`cb_xm within w_mtrlware_propel_rule boolean visible = false integer x = 827 integer taborder = 70 end type event cb_xm::clicked;call super::clicked;//is_mx_menustr = '' // //IF dw_edit_mode THEN // is_mx_menustr = is_mx_menustr + "|" + "Text=批设定收入仓库~tEvent=ue_p_storageid_in" //END IF // //CALL SUPER::Clicked end event type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_mtrlware_propel_rule integer taborder = 140 end type type cb_xls from w_publ_1ton_share_detail`cb_xls within w_mtrlware_propel_rule boolean visible = false integer x = 1760 integer taborder = 150 end type type cb_help from w_publ_1ton_share_detail`cb_help within w_mtrlware_propel_rule boolean visible = false integer x = 1376 integer taborder = 100 end type type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_mtrlware_propel_rule boolean visible = false integer x = 1019 integer taborder = 110 end type type p_msg from w_publ_1ton_share_detail`p_msg within w_mtrlware_propel_rule boolean visible = false end type type p_help from w_publ_1ton_share_detail`p_help within w_mtrlware_propel_rule boolean visible = false end type type p_encl from w_publ_1ton_share_detail`p_encl within w_mtrlware_propel_rule boolean visible = false end type type p_other from w_publ_1ton_share_detail`p_other within w_mtrlware_propel_rule boolean visible = false end type type gb_3 from w_publ_1ton_share_detail`gb_3 within w_mtrlware_propel_rule integer taborder = 120 end type type ln_bar from w_publ_1ton_share_detail`ln_bar within w_mtrlware_propel_rule end type type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_mtrlware_propel_rule end type type r_bar from w_publ_1ton_share_detail`r_bar within w_mtrlware_propel_rule integer x = 2665 end type type ln_1 from w_publ_1ton_share_detail`ln_1 within w_mtrlware_propel_rule boolean visible = false end type type ln_2 from w_publ_1ton_share_detail`ln_2 within w_mtrlware_propel_rule boolean visible = false end type type st_13 from statictext within w_mtrlware_propel_rule boolean visible = false integer x = 1431 integer y = 204 integer width = 151 integer height = 48 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 boolean enabled = false string text = "状态" alignment alignment = right! boolean focusrectangle = false end type type ddlb_retrstatus from dropdownlistbox within w_mtrlware_propel_rule boolean visible = false integer x = 1595 integer y = 192 integer width = 347 integer height = 856 integer taborder = 80 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 boolean vscrollbar = true string item[] = {"待审核","在进行","已暂停","已终止","自动完成","手动完成","[所有]"} borderstyle borderstyle = stylelowered! end type event selectionchanged;choose case index case 1 //待采购审批 cur_status=0 case 2 //在进行 cur_status=1 case 3 //'已暂停' cur_status=2 case 4 //'已终止' cur_status=3 case 5 //'自动完成' cur_status=5 case 6 //'手动完成' cur_status=6 case else cur_status= -1 end choose parent.triggerevent("retrieve_pageretr") end event event constructor;cur_status=long(f_ProfileString(sys_empid, "wfjg", "status", "-1")) choose case cur_status case 0 ddlb_retrstatus.text="待审核" case 1 ddlb_retrstatus.text="在进行" case 2 ddlb_retrstatus.text="已暂停" case 3 ddlb_retrstatus.text="已终止" case 5 ddlb_retrstatus.text="自动完成" case 6 ddlb_retrstatus.text="手动完成" case -1 ddlb_retrstatus.text="[所有]" end choose end event type ddlb_scid from uo_ddlb_scid within w_mtrlware_propel_rule boolean visible = false integer x = 914 integer y = 192 integer width = 539 integer height = 620 integer taborder = 20 boolean bringtotop = true 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 type st_2 from statictext within w_mtrlware_propel_rule boolean visible = false integer x = 750 integer y = 204 integer width = 151 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 cb_propel from uo_imflatbutton within w_mtrlware_propel_rule integer x = 827 integer width = 251 integer height = 164 integer taborder = 210 boolean bringtotop = true string text = "推送" string normalpicname = "update.BMP" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;If Not uo_power_spi.uf_power_ind(3358,sys_msg_pow) Then MessageBox(publ_operator,sys_msg_pow) Return End If If dw_edit_mode Then MessageBox('系统提示','编辑状态下不能推送') Return End If If MessageBox('确定','是否确定要按当前选中的策略推送库存?',question!,yesno!) = 2 Then Return Long ll_row Long ll_storageid,ll_ruleid String ls_handtypestr,ls_rulestr Long ll_i,ll_j Long ll_cusid,ll_ifmatch String ls_commcode,ls_commsccode Long ll_receivecuscommid,ll_sendcuscommid Long ll_cnt_ware s_mtrlware_ljfieb s_mtrlware[] String arg_msg_tmp,arg_msg String ls_cuscode Long ll_fail,ll_suc int li_custype ll_row = dw_pageretr.GetRow() If ll_row <= 0 Then MessageBox('系统提示','请先选择推送策略') Return End If ll_ruleid = dw_pageretr.Object.ruleid[ll_row] ll_storageid = dw_pageretr.Object.storageid[ll_row] ls_handtypestr = dw_pageretr.Object.u_mtrlware_propel_rule_handtypestr[ll_row] ls_rulestr = dw_pageretr.Object.rulestr[ll_row] tr_eb_sqlca = sys_email_sqlca // 电子商务连接 uo_ljfieb uo_fieb uo_fieb = Create uo_ljfieb uo_fieb.commit_transaction = tr_eb_sqlca datastore ds_mtrlware ds_mtrlware = Create datastore ds_mtrlware.DataObject = 'ds_mtrlware_propel_list' ds_mtrlware.SetTransObject(sqlca) datastore ds_rulemx ds_rulemx = Create datastore ds_rulemx.DataObject = 'dw_mtrlware_propel_rule_mx_edit' ds_rulemx.SetTransObject(sqlca) Select CusCommID Into :ll_sendcuscommid From LJFIEB_CusComm Where CusType = 0 Using tr_eb_sqlca; If tr_eb_sqlca.SQLCode <> 0 Then MessageBox('Error','查询本公司企业编号失败,'+tr_eb_sqlca.SQLErrText) Return End If ds_rulemx.Retrieve(ll_ruleid) For ll_i = 1 To ds_rulemx.RowCount() ll_cusid = ds_rulemx.Object.cusid[ll_i] ll_ifmatch = ds_rulemx.Object.u_mtrlware_propel_rule_mx_ifmatch[ll_i] ls_commcode = ds_rulemx.Object.commcode[ll_i] ls_commsccode = ds_rulemx.Object.commsccode[ll_i] ls_cuscode = ds_rulemx.Object.cuscode[ll_i] Select CusCommID,custype Into :ll_receivecuscommid,:li_custype From LJFIEB_CusComm Where cuscode = :ls_commcode Using tr_eb_sqlca; If tr_eb_sqlca.SQLCode <> 0 Then ll_receivecuscommid = 0 End If if li_custype = 5 then ll_ifmatch = 0 end if if ds_mtrlware.Retrieve(ll_storageid,ls_handtypestr,ll_cusid,ll_ifmatch) < 0 then arg_msg = arg_msg + '第'+String(ll_i)+'行,客户:'+ls_cuscode+',查询库存数据失败~r~n' ll_fail++ Continue end if ds_mtrlware.SetFilter(ls_rulestr) ds_mtrlware.Filter() ll_cnt_ware = 0 For ll_j = 1 To ds_mtrlware.RowCount() ll_cnt_ware++ s_mtrlware[ll_cnt_ware].scid = ds_mtrlware.Object.u_mtrlware_scid[ll_j] s_mtrlware[ll_cnt_ware].mtrlwareid = ds_mtrlware.Object.u_mtrlware_mtrlwareid[ll_j] s_mtrlware[ll_cnt_ware].mtrlid = ds_mtrlware.Object.u_mtrlware_mtrlid[ll_j] s_mtrlware[ll_cnt_ware].storagename = ds_mtrlware.Object.u_storage_storagename[ll_j] s_mtrlware[ll_cnt_ware].status = ds_mtrlware.Object.u_mtrlware_status[ll_j] s_mtrlware[ll_cnt_ware].woodcode = ds_mtrlware.Object.u_mtrlware_woodcode[ll_j] s_mtrlware[ll_cnt_ware].pcode = ds_mtrlware.Object.u_mtrlware_pcode[ll_j] s_mtrlware[ll_cnt_ware].plancode = ds_mtrlware.Object.u_mtrlware_plancode[ll_j] // s_mtrlware[ll_cnt_ware].mtrlcuscode = ds_mtrlware.Object.u_mtrlware_mtrlcuscode[ll_j] // s_mtrlware[ll_cnt_ware].Location = ds_mtrlware.Object.u_mtrlware_location[ll_j] // s_mtrlware[ll_cnt_ware].notauditnoallocqty = ds_mtrlware.Object.notauditnoallocqty[ll_j] s_mtrlware[ll_cnt_ware].mtrlcode = ds_mtrlware.Object.u_mtrldef_mtrlcode[ll_j] s_mtrlware[ll_cnt_ware].mtrlname = ds_mtrlware.Object.u_mtrldef_mtrlname[ll_j] Next If ll_cnt_ware > 0 Then If uo_fieb.send_mtrlware(ll_sendcuscommid,'',ll_receivecuscommid,ls_commsccode,s_mtrlware,arg_msg_tmp,True) = 0 Then arg_msg = arg_msg + '第'+String(ll_i)+'行,客户:'+ls_cuscode+',提交库存数据失败,'+arg_msg_tmp + '~r~n' ll_fail++ Continue End If ELSE arg_msg = arg_msg + '第'+String(ll_i)+'行,客户:'+ls_cuscode+',没有库存数据~r~n' ll_fail++ Continue End If ll_suc++ Next Destroy uo_fieb Destroy ds_mtrlware Destroy ds_rulemx MessageBox(publ_operator,'提交资料完成!成功:'+String(ll_suc)+',失败:'+String(ll_fail)) If ll_fail > 0 Then OpenWithParm(w_message_err,arg_msg) End If end event