Q5/ws_objects/Ew_ljfieb.pbl.src/w_mtrlware_propel_rule.srw

$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