Q5/ws_objects/Ew_mrp.pbl.src/w_order_ml.srw

$PBExportHeader$w_order_ml.srw
forward
global type w_order_ml from w_publ_easyq
end type
type cb_auditing from uo_imflatbutton within w_order_ml
end type
type cb_notpermit from uo_imflatbutton within w_order_ml
end type
type cb_audit_scll from uo_imflatbutton within w_order_ml
end type
type cb_caudit_scll from uo_imflatbutton within w_order_ml
end type
type st_6 from statictext within w_order_ml
end type
type ddlb_status from dropdownlistbox within w_order_ml
end type
type st_7 from statictext within w_order_ml
end type
type ddlb_1 from dropdownlistbox within w_order_ml
end type
type cbx_all from checkbox within w_order_ml
end type
type ddlb_scid from uo_ddlb_scid within w_order_ml
end type
type st_2 from statictext within w_order_ml
end type
type st_1 from statictext within w_order_ml
end type
type sle_relcode from singlelineedit within w_order_ml
end type
type tab_1 from tab within w_order_ml
end type
type tabpage_4 from userobject within tab_1
end type
type cb_10 from commandbutton within tabpage_4
end type
type cb_mod_buyrqmtrl from commandbutton within tabpage_4
end type
type dw_4 from u_dw_rbtnfilter within tabpage_4
end type
type tabpage_4 from userobject within tab_1
cb_10 cb_10
cb_mod_buyrqmtrl cb_mod_buyrqmtrl
dw_4 dw_4
end type
type tabpage_5 from userobject within tab_1
end type
type cb_5 from commandbutton within tabpage_5
end type
type dw_5 from u_dw_rbtnfilter within tabpage_5
end type
type tabpage_5 from userobject within tab_1
cb_5 cb_5
dw_5 dw_5
end type
type tabpage_1 from userobject within tab_1
end type
type cb_4 from commandbutton within tabpage_1
end type
type dw_2 from u_dw_rbtnfilter within tabpage_1
end type
type cb_c_woodcode from commandbutton within tabpage_1
end type
type cb_c_status from commandbutton within tabpage_1
end type
type cb_c_pcode from commandbutton within tabpage_1
end type
type tabpage_1 from userobject within tab_1
cb_4 cb_4
dw_2 dw_2
cb_c_woodcode cb_c_woodcode
cb_c_status cb_c_status
cb_c_pcode cb_c_pcode
end type
type tabpage_2 from userobject within tab_1
end type
type cb_9 from commandbutton within tabpage_2
end type
type cb_8 from commandbutton within tabpage_2
end type
type cb_7 from commandbutton within tabpage_2
end type
type cb_6 from commandbutton within tabpage_2
end type
type dw_3 from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
cb_9 cb_9
cb_8 cb_8
cb_7 cb_7
cb_6 cb_6
dw_3 dw_3
end type
type tabpage_3 from userobject within tab_1
end type
type dw_mrpmx from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
dw_mrpmx dw_mrpmx
end type
type tabpage_6 from userobject within tab_1
end type
type dw_self from u_dw_rbtnfilter within tabpage_6
end type
type tabpage_6 from userobject within tab_1
dw_self dw_self
end type
type tab_1 from tab within w_order_ml
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_6 tabpage_6
end type
type cb_3 from uo_imflatbutton within w_order_ml
end type
type cb_11 from uo_imflatbutton within w_order_ml
end type
type cb_reccl from uo_imflatbutton within w_order_ml
end type
type cb_reccl_edit from uo_imflatbutton within w_order_ml
end type
type cbx_chk_zero from checkbox within w_order_ml
end type
type cb_viewprint from uo_imflatbutton within w_order_ml
end type
type st_5 from statictext within w_order_ml
end type
type ddlb_salestatus from dropdownlistbox within w_order_ml
end type
end forward

global type w_order_ml from w_publ_easyq
integer width = 4055
string title = "销售订单物料运算及工价设定表"
event ue_pz_pcode_change ( )
event ue_pz_pcode_clear ( )
event ue_pz_status_change ( )
event ue_pz_status_clear ( )
event ue_pz_woodcode_change ( )
event ue_pz_woodcode_clear ( )
event ue_addzy ( )
event ue_create_outware_scll ( )
event ue_setspt ( )
event ue_create_buytask ( )
event ue_addmtrl ( )
event ue_create_rqmtrl_chng ( )
event ue_edit_mrp ( )
event ue_create_orderwfjg ( )
event ue_create_inware_cp ( )
event ue_print ( )
event ue_viewprint ( )
event ue_sentdataout_mrpmx ( )
event ue_usual_query_retr ( )
event retrieve_pageretr ( )
cb_auditing cb_auditing
cb_notpermit cb_notpermit
cb_audit_scll cb_audit_scll
cb_caudit_scll cb_caudit_scll
st_6 st_6
ddlb_status ddlb_status
st_7 st_7
ddlb_1 ddlb_1
cbx_all cbx_all
ddlb_scid ddlb_scid
st_2 st_2
st_1 st_1
sle_relcode sle_relcode
tab_1 tab_1
cb_3 cb_3
cb_11 cb_11
cb_reccl cb_reccl
cb_reccl_edit cb_reccl_edit
cbx_chk_zero cbx_chk_zero
cb_viewprint cb_viewprint
st_5 st_5
ddlb_salestatus ddlb_salestatus
end type
global w_order_ml w_order_ml

type variables
Int cur_status
int cur_salestatus = 1
Int cur_scllflag = -1,cur_scllsecflag = -1
Long cur_scid
datawindow dw_2,dw_3,dw_4,dw_5,dw_6,dw_7
uo_order_ml uo_sale
uo_order_ml_mrp uo_ml_mrp



String ls_newname = ''
Long ll_prownum
Long ls_powerid
Int li_auditprint
String ls_rpname = ''
Long ls_msgprintid_rpt = 0
int ifpic = 0 

string is_ori_select //原始查询语句
end variables

forward prototypes
public function integer wf_rtr_dw2 ()
public function integer wf_refresh_curuc (long arg_scid, long arg_taskid, long arg_printid, long arg_row, ref string arg_msg)
public subroutine wf_rtr_dwmx ()
public function integer wf_cmp (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg)
public function integer pf_cmp (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, decimal arg_qty, string arg_status, string arg_woodcode, string arg_pcode, integer arg_type)
public function integer wf_rtr_dw1 ()
public function integer wf_rtr_dw3 ()
public function integer wf_flagstatus_rf ()
public function integer wf_rtr_dw4 ()
public function integer wf_rtr_dw5 ()
public function integer wf_rtr_dw6 ()
public subroutine wf_retrieveuc (datawindow arg_dw, string arg_newselect)
public function window getparentwindow ()
public subroutine wf_retr_currenrow_dw_2 (long arg_row)
public function integer wf_rtr_dw7 ()
end prototypes

event ue_pz_pcode_change();IF NOT f_power_ind(1303) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

Long ll_row
Long ll_rqmtrlid 

dw_2.AcceptText()

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('提示','请选择目标物料')
	RETURN
END IF

ll_rqmtrlid = dw_2.Object.rqmtrlid[ll_row]

Open(w_color_pcode_edit)

String ls_update,arg_msg

ls_update = Message.StringParm


IF ls_update = '' THEN RETURN

IF uo_sale.uof_pz_change(3,ls_update,&
	ll_rqmtrlid,&
	arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

wf_retr_currenrow_dw_2(ll_row)



end event

event ue_pz_pcode_clear();IF NOT f_power_ind(1303) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_row
Long ll_rqmtrlid


dw_2.AcceptText()

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('提示','请选择目标物料')
	RETURN
END IF

ll_rqmtrlid = dw_2.Object.rqmtrlid[ll_row]
String ls_update,arg_msg

ls_update = ''

IF uo_sale.uof_pz_change(3,ls_update,&
	ll_rqmtrlid,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

wf_retr_currenrow_dw_2(ll_row)
end event

event ue_pz_status_change();IF NOT f_power_ind(1301) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_row
Long ll_rqmtrlid


dw_2.AcceptText()

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('提示','请选择目标物料')
	RETURN
END IF

ll_rqmtrlid = dw_2.Object.rqmtrlid[ll_row]
 
Open(w_color_edit)

String ls_update,arg_msg

ls_update = Message.StringParm


IF ls_update = '' THEN RETURN

IF uo_sale.uof_pz_change(1,ls_update,&
	ll_rqmtrlid,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

wf_retr_currenrow_dw_2(ll_row)
end event

event ue_pz_status_clear();IF NOT f_power_ind(1301) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_row
Long ll_rqmtrlid


dw_2.AcceptText()

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('提示','请选择目标物料')
	RETURN
END IF

ll_rqmtrlid = dw_2.Object.rqmtrlid[ll_row]
 
String ls_update,arg_msg

ls_update = ''

IF uo_sale.uof_pz_change(1,ls_update,&
	ll_rqmtrlid,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

wf_retr_currenrow_dw_2(ll_row)

end event

event ue_pz_woodcode_change();IF NOT f_power_ind(1302) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

Long ll_row
Long ll_rqmtrlid

dw_2.AcceptText()

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('提示','请选择目标物料')
	RETURN
END IF

ll_rqmtrlid = dw_2.Object.rqmtrlid[ll_row] 
Open(w_color_wood_edit)

String ls_update,arg_msg

ls_update = Message.StringParm


IF ls_update = '' THEN RETURN

IF uo_sale.uof_pz_change(2,ls_update,&
	ll_rqmtrlid,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

wf_retr_currenrow_dw_2(ll_row)
//wf_rtr_dwmx()
end event

event ue_pz_woodcode_clear();IF NOT f_power_ind(1302) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_row
Long ll_rqmtrlid


dw_2.AcceptText()

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('提示','请选择目标物料')
	RETURN
END IF

ll_rqmtrlid = dw_2.Object.rqmtrlid[ll_row]
 
String ls_update,arg_msg

ls_update = ''

IF uo_sale.uof_pz_change(2,ls_update,&
	ll_rqmtrlid,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

wf_retr_currenrow_dw_2(ll_row)
//wf_rtr_dwmx()
end event

event ue_addzy();IF NOT f_power_ind(1304) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF



String arg_msg = '',LS_STR
Long uc_row
s_inputbox S_SREU

uc_row = dw_1.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标订单明细!',information!,ok!)
	RETURN
END IF

IF dw_1.Object.u_saletaskmx_flag[uc_row] = 0 THEN
	MessageBox('提示','订单明细处于待审核状态,不能添加备注!',information!,ok!)
	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_sale.add_mxdscrp(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],LS_STR,arg_msg,TRUE) = 0 THEN
	MessageBox('错误',arg_msg)
ELSE
	MessageBox('提示','订单明细添加备注成功!',information!,ok!)
	
	wf_refresh_curuc(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],uc_row,arg_msg)
END IF


end event

event ue_create_outware_scll();

IF NOT f_power_ind(1305) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF


Open(w_order_ml_storage)
Long ll_storageid

ll_storageid = Message.DoubleParm

IF ll_storageid = 0 THEN RETURN

Long cnt
String ls_msg
Long i,j
s_saletask_mtrl s_saletask
Long ll_scid

dw_1.AcceptText()
cnt = 0
FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[i] = 1 &
		AND dw_1.Object.u_saletaskmx_flag[i] = 1 &
		AND dw_1.Object.u_saletaskmx_scllflag[i] = 1 THEN
		
		FOR j = 1 TO UpperBound(s_saletask.scid)
			IF s_saletask.scid[j] <> dw_1.Object.scid[i] THEN
				MessageBox('系统提示','当前选定订单明细存在不同分部!',Information!,OK!)
				RETURN
			END IF
		NEXT
		
		cnt++
		ll_scid = dw_1.Object.scid[i]
		s_saletask.scid[cnt] =  dw_1.Object.scid[i]
		s_saletask.taskid[cnt] =  dw_1.Object.taskid[i]
		s_saletask.printid[cnt] =  dw_1.Object.printid[i]
		s_saletask.saletaskcode[cnt] =  dw_1.Object.u_saletask_taskcode[i]
		s_saletask.cusid[cnt] =  dw_1.Object.u_saletask_cusid[i]
		
	END IF
NEXT

IF cnt = 0 THEN
	i = dw_1.GetRow()
	IF i <= 0 THEN
		MessageBox('系统提示','请选定当前目标订单明细!',Information!,OK!)
		RETURN
	END IF
	
	IF Not (dw_1.Object.u_saletaskmx_flag[i] = 1 &
		AND dw_1.Object.u_saletaskmx_scllflag[i] = 1) THEN
		MessageBox('系统提示','当前选定订单明细没有用料审!',Information!,OK!)
		RETURN
	END IF
	
	ll_scid = dw_1.Object.scid[i]
	s_saletask.scid[1] =  dw_1.Object.scid[i]
	s_saletask.taskid[1] =  dw_1.Object.taskid[i]
	s_saletask.printid[1] =  dw_1.Object.printid[i]
	s_saletask.saletaskcode[1] =  dw_1.Object.u_saletask_taskcode[i]
	s_saletask.cusid[1] =  dw_1.Object.u_saletask_cusid[i]
END IF

IF Not ( f_power_ind(294) OR f_power_ind(1060) ) THEN
	MessageBox('提示','你没有领料出仓单的使用权限！', Information!, OK! )
	RETURN
END IF

s_edit_index_tran s_tran
IF NOT IsValid(w_outware_scll) THEN
	OpenWithParm(w_outware_scll,s_tran)
	
	w_outware_scll.ddlb_scid.uf_selectsc(ll_scid)
	//	w_outware_scll.cur_scid = ll_scid
	w_outware_scll.cb_add.TriggerEvent(Clicked!)
	w_outware_scll.dw_uc.Object.u_outware_storageid[w_outware_scll.dw_uc.GetRow()] = ll_storageid
	w_outware_scll.wf_autoaddmx_salerqmx(s_saletask,ls_msg)
END IF




end event

event ue_setspt();IF NOT f_power_ind(1478) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

s_edit_index_tran s_tran
s_tran.b_long = cur_scid
s_tran.c_long = cur_status
s_tran.d_long = cur_scllflag
s_tran.b_string = em_1.Text
s_tran.c_string = em_2.Text
s_tran.d_string = sle_relcode.Text

// 只修改选中的订单
long ll_i, cnt, ll_mx = 0
long ll_scid, ll_taskid, ll_printid
cnt = 0
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 1 THEN
		cnt++
	END IF
NEXT

IF cnt = 0 THEN
	if dw_1.GetRow() <= 0 then
		MessageBox('提示', '请选择内容')
		return
	end if
	
	ll_scid = dw_1.Object.scid[dw_1.GetRow()]
	ll_taskid = dw_1.Object.taskid[dw_1.GetRow()]
	ll_printid = dw_1.Object.printid[dw_1.GetRow()]
	
	ll_mx++
	s_tran.arr_string[ll_mx] = string(ll_scid) + '_' + string(ll_taskid) + '_' + string(ll_printid)
	
ELSE	
	FOR ll_i = 1 TO dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			
			ll_scid = dw_1.Object.scid[ll_i]
			ll_taskid = dw_1.Object.taskid[ll_i]
			ll_printid = dw_1.Object.printid[ll_i]
			ll_mx++
			s_tran.arr_string[ll_mx] = string(ll_scid) + '_' + string(ll_taskid) + '_' + string(ll_printid)
		END IF
	NEXT
END IF

openwithparm(w_order_ml_spt_change_forall, s_tran)

end event

event ue_create_buytask();IF NOT f_power_ind(1479) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_scid[],ll_taskid[],ll_printid[]
Long ll_cnt = 0
String arg_msg
dw_1.AcceptText()

Long ch = 0
Long ll_i

FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 1 THEN
		ch++
	END IF
NEXT

IF ch > 0 THEN
	FOR ll_i = 1 TO dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			IF dw_1.Object.u_saletaskmx_scllflag[ll_i] <> 1 THEN
				arg_msg = '第'+String(ll_i)+'行,订单编号'+dw_1.Object.u_saletask_taskcode[ll_i]+'产品['+dw_1.Object.u_mtrldef_mtrlcode[ll_i]+']未用料审核'
				MessageBox(publ_operator, arg_msg)
				RETURN
			END IF
			
			ll_cnt++
			ll_scid[ll_cnt] = dw_1.Object.scid[ll_i]
			ll_taskid[ll_cnt] = dw_1.Object.taskid[ll_i]
			ll_printid[ll_cnt] = dw_1.Object.printid[ll_i]
		END IF
	NEXT
ELSE
	IF dw_1.GetRow() = 0 THEN RETURN
	IF dw_1.Object.u_saletaskmx_scllflag[dw_1.GetRow()] <> 1 THEN
		MessageBox(publ_operator,'该计算订单明细未用料审核,不能操作')
		RETURN
	END IF
	ll_scid[1] = dw_1.Object.scid[dw_1.GetRow()]
	ll_taskid[1] = dw_1.Object.taskid[dw_1.GetRow()]
	ll_printid[1] = dw_1.Object.printid[dw_1.GetRow()]
END IF

IF uo_sale.uof_auto_build_buy_forarr(ll_scid,ll_taskid,ll_printid,arg_msg,TRUE) = 0 THEN
	MessageBox('提示',arg_msg,information!,ok!)
	RETURN
ELSE
	MessageBox(publ_operator,arg_msg)
END IF


wf_rtr_dw4()




end event

event ue_addmtrl();//
//// DONE: 批增物料
//
//Long ll_row
//long ch = 0
//
//s_edit_index_tran s_tran
//
//FOR ll_row = 1 To dw_1.RowCount()
//	if dw_1.Object.ch[ll_row] = 1 then
//		if dw_1.Object.u_saletaskmx_scllflag[ll_row] = 0 then
//			MessageBox('提示', '第' + string(ll_row) + '行未用料审不能增物料')
//			return
//		end if
//		
//		ch++
//		s_tran.arr_long[ch] = dw_1.Object.scid[ll_row]
//		s_tran.arr_long2[ch] = dw_1.Object.taskid[ll_row]
//		s_tran.arr_long3[ch] = dw_1.Object.printid[ll_row]
//		
//	end if
//NEXT
//
//if ch = 0 then
//	ll_row = dw_1.getRow()
//	if ll_row <= 0 then
//		MessageBox('提示', '请选择订单明细')
//		return
//	end if
//	
//	if dw_1.Object.u_saletaskmx_scllflag[ll_row] = 0 then
//		MessageBox('提示', '第' + string(ll_row) + '行未用料审不能增物料')
//		return
//	end if
//	
//	ch++
//	s_tran.arr_long[ch] = dw_1.Object.scid[ll_row]
//	s_tran.arr_long2[ch] = dw_1.Object.taskid[ll_row]
//	s_tran.arr_long3[ch] = dw_1.Object.printid[ll_row]
//	
//end if
//
//OpenWithParm(w_order_ml_mod_tree_bat, s_tran)
end event

event ue_create_rqmtrl_chng();// DONE: 批增物料
IF NOT f_power_ind(1493) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF

Long ll_row , j
Long ch = 0
Long ll_scid

s_edit_index_tran s_tran
s_saletask_mtrl S_sale_mtrl

FOR ll_row = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_row] = 1 THEN
		IF dw_1.Object.u_saletaskmx_scllflag[ll_row] = 0 THEN
			MessageBox('提示', '第' + String(ll_row) + '行未用料审不能增物料')
			RETURN
		END IF
		
		FOR j = 1 TO UpperBound(S_sale_mtrl.scid)
			IF S_sale_mtrl.scid[j] <> dw_1.Object.scid[ll_row] THEN
				MessageBox('系统提示','当前选定订单明细存在不同分部!',Information!,OK!)
				RETURN
			END IF
		NEXT
		
	
		
		ch++
		ll_scid = dw_1.Object.scid[ll_row]
		S_sale_mtrl.scid[ch] = dw_1.Object.scid[ll_row]
		
		S_sale_mtrl.mtrlid[ch] = dw_1.Object.mtrlid[ll_row]
		S_sale_mtrl.mtrlcode[ch] = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
		S_sale_mtrl.mtrlname[ch] = dw_1.Object.mtrlname[ll_row]
		S_sale_mtrl.mtrlmode[ch] = dw_1.Object.u_mtrldef_mtrlmode[ll_row]
		S_sale_mtrl.unit[ch] = dw_1.Object.u_mtrldef_unit[ll_row]
		
		S_sale_mtrl.taskid[ch] = dw_1.Object.taskid[ll_row]
		S_sale_mtrl.taskcode[ch] = dw_1.Object.u_saletask_taskcode[ll_row]
		S_sale_mtrl.printid[ch] = dw_1.Object.printid[ll_row]
		
		S_sale_mtrl.status[ch] = dw_1.Object.u_saletaskmx_status[ll_row]
		S_sale_mtrl.woodcode[ch] = dw_1.Object.u_saletaskmx_woodcode[ll_row]
		S_sale_mtrl.pcode[ch] = dw_1.Object.u_saletaskmx_pcode[ll_row]
		
		S_sale_mtrl.taskdate[ch] = dw_1.Object.u_saletask_taskdate[ll_row]
		S_sale_mtrl.requiredate[ch] = dw_1.Object.u_saletask_requiredate[ll_row]
		S_sale_mtrl.mtrlchangecode[ch] = dw_1.Object.u_saletaskmx_mtrlchangecode[ll_row]
		S_sale_mtrl.qty[ch] = dw_1.Object.usaleqty[ll_row]
		
	END IF
NEXT

IF ch = 0 THEN
	ll_row = dw_1.GetRow()
	IF ll_row <= 0 THEN
		MessageBox('提示', '请选择订单明细')
		RETURN
	END IF
	
	IF dw_1.Object.u_saletaskmx_scllflag[ll_row] = 0 THEN
		MessageBox('提示', '第' + String(ll_row) + '行未用料审不能增物料')
		RETURN
	END IF
	
	ch++
	ll_scid = dw_1.Object.scid[ll_row]
	S_sale_mtrl.scid[ch] = dw_1.Object.scid[ll_row]
		
	S_sale_mtrl.mtrlid[ch] = dw_1.Object.mtrlid[ll_row]
	S_sale_mtrl.mtrlcode[ch] = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	S_sale_mtrl.mtrlname[ch] = dw_1.Object.mtrlname[ll_row]
	S_sale_mtrl.mtrlmode[ch] = dw_1.Object.u_mtrldef_mtrlmode[ll_row]
	S_sale_mtrl.unit[ch] = dw_1.Object.u_mtrldef_unit[ll_row]
	
	S_sale_mtrl.taskid[ch] = dw_1.Object.taskid[ll_row]
	S_sale_mtrl.taskcode[ch] = dw_1.Object.u_saletask_taskcode[ll_row]
	S_sale_mtrl.printid[ch] = dw_1.Object.printid[ll_row]
	
	S_sale_mtrl.status[ch] = dw_1.Object.u_saletaskmx_status[ll_row]
	S_sale_mtrl.woodcode[ch] = dw_1.Object.u_saletaskmx_woodcode[ll_row]
	S_sale_mtrl.pcode[ch] = dw_1.Object.u_saletaskmx_pcode[ll_row]
	
	S_sale_mtrl.taskdate[ch] = dw_1.Object.u_saletask_taskdate[ll_row]
	S_sale_mtrl.requiredate[ch] = dw_1.Object.u_saletask_requiredate[ll_row]
	S_sale_mtrl.mtrlchangecode[ch] = dw_1.Object.u_saletaskmx_mtrlchangecode[ll_row]
	S_sale_mtrl.qty[ch] = dw_1.Object.usaleqty[ll_row]
	
END IF


IF NOT  f_power_ind(1482) THEN
	MessageBox('提示','你没有增料单的使用权限！', Information!, OK! )
	RETURN
END IF

IF NOT IsValid(w_order_ml_rqmtrl_chng) THEN
	OpenWithParm(w_order_ml_rqmtrl_chng, s_tran)
	
	w_order_ml_rqmtrl_chng.ddlb_scid.uf_selectsc(ll_scid)
	w_order_ml_rqmtrl_chng.cb_add.TriggerEvent(Clicked!)
	w_order_ml_rqmtrl_chng.wf_add_dwchild2(S_sale_mtrl)
END IF


end event

event ue_edit_mrp();IF NOT f_power_ind(1480) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_scid,ll_taskid,ll_printid
String arg_msg
dw_1.AcceptText()
IF dw_1.GetRow() = 0 THEN RETURN 
IF dw_1.Object.u_saletaskmx_scllflag[dw_1.GetRow()] = 1 THEN
	MessageBox(publ_operator,'该计算订单明细已用料审核')
	RETURN
END IF

s_order_ml_mrp s_ml_mrp,s_ch
ll_scid = dw_1.Object.scid[dw_1.GetRow()]
ll_taskid = dw_1.Object.taskid[dw_1.GetRow()]
ll_printid = dw_1.Object.printid[dw_1.GetRow()]

s_ml_mrp.scid = ll_scid
s_ml_mrp.taskid = ll_taskid
s_ml_mrp.printid = ll_printid
s_ml_mrp.dscrp = dw_1.Object.u_saletaskmx_mxdscrp[dw_1.GetRow()]


OpenWithParm(w_order_ml_mod_tree,s_ml_mrp)

wf_rtr_dwmx()

end event

event ue_create_orderwfjg();return
end event

event ue_create_inware_cp();//辅助生成生产进仓单
IF NOT f_power_ind(1494) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF


Open(w_order_ml_storage)
Long ll_storageid

ll_storageid = Message.DoubleParm

IF ll_storageid = 0 THEN RETURN

Long cnt
String ls_msg
Long i,j
s_saletask_mtrl s_saletask

Long ll_scid


dw_1.AcceptText()
cnt = 0
FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[i] = 1 &
		AND dw_1.Object.u_saletaskmx_flag[i] = 1 &
		AND dw_1.Object.u_saletaskmx_scllflag[i] = 1 THEN
		
		FOR j = 1 TO UpperBound(s_saletask.scid)
			IF s_saletask.scid[j] <> dw_1.Object.scid[i] THEN
				MessageBox('系统提示','当前选定订单明细存在不同分部!',Information!,OK!)
				RETURN
			END IF
		NEXT
		
		cnt++
		ll_scid = dw_1.Object.scid[i]
		s_saletask.scid[cnt] =  dw_1.Object.scid[i]
		s_saletask.taskid[cnt] =  dw_1.Object.taskid[i]
		s_saletask.printid[cnt] =  dw_1.Object.printid[i]
		s_saletask.saletaskcode[cnt] =  dw_1.Object.u_saletask_taskcode[i]
		
	END IF
NEXT

IF cnt = 0 THEN
	i = dw_1.GetRow()
	IF i <= 0 THEN
		MessageBox('系统提示','请选定当前目标订单明细!',Information!,OK!)
		RETURN
	END IF
	IF Not (dw_1.Object.u_saletaskmx_flag[i] = 1 &
		AND dw_1.Object.u_saletaskmx_scllflag[i] = 1) THEN
		MessageBox('系统提示','当前选定订单明细没有用料审!',Information!,OK!)
		RETURN
	END IF
	
	ll_scid = dw_1.Object.scid[i]
	s_saletask.scid[1] =  dw_1.Object.scid[i]
	s_saletask.taskid[1] =  dw_1.Object.taskid[i]
	s_saletask.printid[1] =  dw_1.Object.printid[i]
	s_saletask.saletaskcode[1] =  dw_1.Object.u_saletask_taskcode[i]
END IF

IF Not ( f_power_ind(291) OR f_power_ind(1053) ) THEN
	MessageBox('提示','你没有生产进仓单的使用权限！', Information!, OK! )
	RETURN
END IF

s_edit_index_tran s_tran
if not isvalid(w_inware_cp) then
	OpenWithParm(w_inware_cp,s_tran)

	w_inware_cp.ddlb_scid.uf_selectsc(ll_scid)
	w_inware_cp.cb_add.TriggerEvent(Clicked!)
	w_inware_cp.dw_uc.Object.storageid[w_inware_cp.dw_uc.GetRow()] = ll_storageid
	w_inware_cp.wf_autoaddmx_salemx(ll_scid,s_saletask,ll_storageid,ls_msg)
end if



end event

event ue_print();
Long ls_msgprintid
ls_msgprintid = Message.LongParm

SELECT dft_new_dwname,powerid,ifpic
	INTO :ls_newname,:ls_powerid,:ifpic
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = ''
	ls_powerid = 0
END IF


//--直接打印
IF NOT f_power_ind(7) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

uo_print_preview uo_print
IF MessageBox ("询问","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
S_print_MSG LS_PRMSG

Long LS_ROW
LS_ROW = dw_1.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('提示','没有打印目标单据!',information!,OK!)
	RETURN
END IF


LS_PRMSG.retr_pram_falg = 15

IF ls_newname <> '' THEN
	IF li_auditprint = 1 THEN
		IF dw_1.Object.u_SaleTask_Status[dw_1.GetRow()] = 0 THEN
			MessageBox('提示','目标单据还未审核,不能打印!',information!,OK!)
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_order_ml'
END IF

LS_PRMSG.TAG_TEXT = this.title

LS_PRMSG.FILTER_STRING = ''

LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_1.Object.taskid[LS_ROW]

uo_print.FACT_PRINT_MSG = LS_PRMSG
String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("错误",arg_msg,stopsign!,OK!)
	RETURN
END IF
uo_print.ds_print()



//**更新打印次料
f_update_printnum('u_order_ml',1,cur_scid,dw_1.Object.taskid[dw_1.GetRow()],'','',arg_msg,TRUE)





end event

event ue_viewprint();Long ls_msgprintid
ls_msgprintid = Message.LongParm

SELECT dft_new_dwname,powerid,auditprint,prownum,ifpic
	INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum,:ifpic
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = ''
	ls_powerid = 0
END IF


IF NOT f_power_ind(1503) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

String ls_id_arr[]
Long ll_taskid
Long ll_printid
Long LS_ROW, i
Long ll_scid

LS_ROW = dw_1.Find(" ch = 1 ",1, dw_1.RowCount())

IF LS_ROW > 0 THEN
	DO WHILE LS_ROW > 0
		ll_scid = dw_1.Object.scid[LS_ROW]
		ll_taskid = dw_1.Object.taskid[LS_ROW]
		ll_printid = dw_1.Object.printid[LS_ROW]
		
		i++
		ls_id_arr[i] = String(ll_taskid) + ","+String(ll_printid)
		
		IF LS_ROW >= dw_1.RowCount() THEN EXIT
		LS_ROW = dw_1.Find(" ch = 1 ",LS_ROW + 1, dw_1.RowCount())
	LOOP
ELSE
	LS_ROW = dw_1.GetRow()
	IF LS_ROW <= 0 THEN
		MessageBox('提示','没有打印目标单据!',information!,OK!)
		RETURN
	END IF
	ll_scid = dw_1.Object.scid[LS_ROW]
	ll_taskid = dw_1.Object.taskid[LS_ROW]
	ll_printid = dw_1.Object.printid[LS_ROW]
	
	i++
	ls_id_arr[i] = String(ll_taskid) + ","+String(ll_printid)
END IF

S_print_MSG LS_PRMSG
LS_PRMSG.ifpic = ifpic

IF ls_newname <> '' THEN
	//		IF li_auditprint = 1 THEN
	//		IF dw_1.Object.u_SaleTask_Status[dw_1.GetRow()] = 0 THEN
	//			MessageBox('提示','目标单据还未审核,不能打印!',information!,OK!)
	//			RETURN
	//		END IF
	//	END IF
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_rp_order_ml_print'
END IF

IF ll_scid < 0 THEN
	MessageBox('提示','请选择分部!',information!,OK!)
	RETURN
END IF

LS_PRMSG.TAG_TEXT = THIS.Title
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 17
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = cur_scid
LS_PRMSG.a_string_arr = ls_id_arr
LS_PRMSG.rowcnt = i



OpenWithParm(w_publ_preview,LS_PRMSG)


////**更新打印次料
//String arg_msg
//printnum = Message.DoubleParm
//f_update_printnum('u_order_ml',printnum,dw_1.Object.scid[dw_1.GetRow()],dw_1.Object.taskid[dw_1.GetRow()],'','',arg_msg,TRUE)





end event

event ue_sentdataout_mrpmx();IF NOT f_power_ind(1520) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF

OpenWithParm(w_sentdataout,dw_6)
end event

event ue_usual_query_retr();string ls_querystrpart=''
string ls_newselect

ls_newselect=lower(is_ori_select)
if trim(sle_relcode.text)<>'' then
	if pos(trim(sle_relcode.text),'%')=0 then
		ls_querystrpart="(u_saletask.taskcode like '%"+trim(sle_relcode.text)+"%')"
	else
		ls_querystrpart="(u_saletask.taskcode like '"+trim(sle_relcode.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

dw_1.Modify("datawindow.table.select = ~"" + ls_newselect+ "~"")

//wf_retrieveuc(dw_1,ls_newselect,1)  
this.triggerevent('retrieve_pageretr')

end event

event retrieve_pageretr();DateTime ld_firstdate,ld_enddate
//String ls_relcode
//Int li_otype

ld_firstdate = DateTime(Date(em_1.Text),Time(0))
ld_enddate = DateTime(Date(em_2.Text),Time('23:59:59'))
//ls_relcode = '%'+Trim(sle_relcode.Text)+'%'

Int li_option_outrep
IF sys_power_issuper THEN
	li_option_outrep = 0
ELSE
	li_option_outrep = sys_option_outrep
END IF

IF dw_1.Retrieve(cur_scid,cur_salestatus,cur_status,cur_scllflag,ld_firstdate,ld_enddate, sys_areaid,sys_user_outrep, li_option_outrep) > 0 THEN
	dw_1.SetFocus()
	dw_1.SelectRow(0,FALSE)
	dw_1.SelectRow(1,TRUE)
	wf_rtr_dwmx()
END IF

return
end event

public function integer wf_rtr_dw2 ();Long ll_row
Long ll_scid
Long ll_taskid
long ll_printid

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	dw_2.Reset()
ELSE
	ll_scid = dw_1.Object.scid[ll_row]
	ll_taskid = dw_1.Object.taskid[ll_row]
	ll_printid= dw_1.Object.printid[ll_row]
	IF dw_2.Retrieve(ll_scid,ll_taskid,ll_printid) > 0 THEN
		dw_2.SelectRow(0,FALSE)
		dw_2.SelectRow(1,TRUE)
	END IF
END IF

RETURN 1

end function

public function integer wf_refresh_curuc (long arg_scid, long arg_taskid, long arg_printid, long arg_row, ref string arg_msg);Int rslt = 1

Long flag
Long scllflag
String auditingrep
DateTime auditingdate
String scllrep
DateTime sclldate
string mxdscrp
SELECT u_SaleTaskMx.flag,
	u_SaleTaskMx.scllflag,
	u_SaleTaskMx.auditingrep,
	u_SaleTaskMx.auditingdate,
	u_SaleTaskMx.scllrep,
	u_SaleTaskMx.sclldate,
	u_saletaskmx.mxdscrp
	INTO :flag,
	:scllflag,
	:auditingrep,
	:auditingdate,
	:scllrep,
	:sclldate,
	:mxdscrp
	FROM u_SaleTaskMx Left OUTER join u_SaleTask ON u_SaleTaskMx.TaskID = u_SaleTask.TaskID AND
	u_SaleTaskMx.scid = u_SaleTask.scid	  ,
	u_mtrldef
	WHERE ( u_SaleTaskMx.MtrlID = u_mtrldef.MtrlID )  AND
	( u_SaleTask.status = 1 ) AND
	( u_SaleTaskMx.scid  = :arg_scid ) AND
	( u_SaleTaskMx.orderqty > 0  ) AND
	( u_SaleTaskMx.TaskID  = :arg_taskid ) AND
	( u_SaleTaskMx.printid  = :arg_printid ) ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询订单明细信息失败!'
	GOTO ext
END IF

dw_1.Object.u_SaleTaskMx_flag[arg_row] = flag
dw_1.Object.u_SaleTaskMx_scllflag[arg_row] = scllflag
dw_1.Object.u_SaleTaskMx_auditingrep[arg_row] = auditingrep
dw_1.Object.u_SaleTaskMx_auditingdate[arg_row] = auditingdate
dw_1.Object.u_SaleTaskMx_scllrep[arg_row] = scllrep
dw_1.Object.u_SaleTaskMx_sclldate[arg_row] = sclldate
dw_1.Object.u_saletaskmx_mxdscrp[arg_row] = mxdscrp


ext:
RETURN rslt



end function

public subroutine wf_rtr_dwmx ();wf_rtr_dw2()
wf_rtr_dw3()
wf_rtr_dw4()
wf_rtr_dw5()
wf_rtr_dw6()
wf_rtr_dw7()





end subroutine

public function integer wf_cmp (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg);Long rslt = 1
Decimal orderqty
Long mtrlid
string ls_status,ls_woodcode,ls_pcode

SELECT u_saletaskmx.orderqty,
	u_saletaskmx.mtrlid,
	u_saletaskmx.status,
	u_saletaskmx.woodcode,
	u_saletaskmx.pcode
	INTO :orderqty,
	:mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode
	FROM u_saletaskmx
	WHERE u_saletaskmx.scid = :Arg_scid AND
	u_saletaskmx.taskid = :arg_taskid AND
	u_saletaskmx.printid = :arg_printid ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询订单明细信息失败'
	GOTO ext
END IF


DELETE FROM u_saleRqMtrl_scll
	WHERE u_saleRqMtrl_scll.scid = :Arg_scid AND
	u_saleRqMtrl_scll.taskid = :arg_taskid AND
	u_saleRqMtrl_scll.printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除订单明细对应的需求明细失败'
	GOTO ext
END IF

IF pf_cmp(Arg_scid,arg_taskid,arg_printid,mtrlid,orderqty,ls_status,ls_woodcode,ls_pcode,1) = 0 THEN
	rslt = 0
	arg_msg = '生成订单明细对应的需求明细失败'
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSE
	COMMIT;
END IF
RETURN rslt
end function

public function integer pf_cmp (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, decimal arg_qty, string arg_status, string arg_woodcode, string arg_pcode, integer arg_type);Long it_mxbt,i,mtrlorigin,ls_newid
s_outwaremx outwaremx[]
String ls_msg

SELECT mtrlorigin
	INTO :mtrlorigin
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid;
IF sqlca.SQLCode <> 0 THEN RETURN 0

SELECT count(*)
	INTO :i
	FROM u_PrdPF
	Where u_PrdPF.mtrlid = :arg_mtrlid;
IF sqlca.SQLCode <> 0 THEN RETURN 0
IF i = 0  OR mtrlorigin = 2 THEN
	IF arg_type = 1 THEN RETURN 1
	ls_newid = f_sys_scidentity(arg_scid,"u_saleRqMtrl_scll","rqmtrlid",ls_msg,TRUE,sqlca)
	IF ls_newid <= 0 THEN
		RETURN 0
	END IF
	
	////插入运算结果表
	INSERT INTO u_saleRqMtrl_scll
		( rqmtrlid,
		scid,
		taskID,
		MtrlID,
		printid,
		trueRqqty,
		status,
		woodcode,
		pcode
		)
		VALUES ( :ls_newid,
		:arg_scid,
		:arg_taskID,
		:arg_mtrlid,
		:arg_printid,
		:arg_qty,
		:arg_status,
		:arg_woodcode,
		:arg_pcode
		)  ;
	IF sqlca.SQLCode <> 0 THEN RETURN 0
END IF


it_mxbt = 1
DECLARE cur_outwaremx CURSOR FOR
	SELECT  u_PrdPF.SonMtrlid,
	u_mtrldef.mtrlcode ,
	u_mtrldef.mtrlname ,
	u_mtrldef.mtrlmode,
	u_mtrldef.unit ,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_PrdPF.status,
	u_PrdPF.woodcode,
	u_PrdPF.pcode,
	reqty = case  when u_PrdPF.sonloss = 1 then 0 else :arg_qty * u_PrdPF.Sonscale /( 1 -  u_PrdPF.sonloss) + u_PrdPF.sondecloss END
	FROM u_PrdPF ,
	u_mtrldef
	WHERE ( u_PrdPF.SonMtrlid = u_mtrldef.mtrlid ) AND
	( u_PrdPF.mtrlid = :arg_mtrlid ) ;
OPEN cur_outwaremx;
FETCH cur_outwaremx INTO
	:outwaremx[it_mxbt].Mtrlid,
	:outwaremx[it_mxbt].mtrlcode,
	:outwaremx[it_mxbt].mtrlname,
	:outwaremx[it_mxbt].mtrlmode,
	:outwaremx[it_mxbt].unit,
	:outwaremx[it_mxbt].mtrlsectype,
	:outwaremx[it_mxbt].zxmtrlmode,
	:outwaremx[it_mxbt].status,
	:outwaremx[it_mxbt].woodcode,
	:outwaremx[it_mxbt].pcode,
	:outwaremx[it_mxbt].qty;
DO WHILE sqlca.SQLCode = 0
	it_mxbt++
	FETCH cur_outwaremx INTO
		:outwaremx[it_mxbt].Mtrlid,
		:outwaremx[it_mxbt].mtrlcode,
		:outwaremx[it_mxbt].mtrlname,
		:outwaremx[it_mxbt].mtrlmode,
		:outwaremx[it_mxbt].mtrlsectype,
		:outwaremx[it_mxbt].zxmtrlmode,
		:outwaremx[it_mxbt].unit,
		:outwaremx[it_mxbt].status,
		:outwaremx[it_mxbt].woodcode,
		:outwaremx[it_mxbt].pcode,
		:outwaremx[it_mxbt].qty;
LOOP
CLOSE cur_outwaremx;
it_mxbt = it_mxbt - 1

FOR i = 1 TO it_mxbt
	
	IF pf_cmp(arg_scid,arg_taskID,arg_printid,outwaremx[i].mtrlid,outwaremx[i].qty,outwaremx[i].status,outwaremx[i].woodcode,outwaremx[i].pcode,0) = 0  THEN
		RETURN 0
	END IF
NEXT

RETURN 1


end function

public function integer wf_rtr_dw1 ();DateTime ld_firstdate,ld_enddate
String ls_relcode
Int li_otype

ld_firstdate = DateTime(Date(em_1.Text),Time(0))
ld_enddate = DateTime(Date(em_2.Text),Time('23:59:59'))
ls_relcode = '%'+Trim(sle_relcode.Text)+'%'


IF dw_1.Retrieve(cur_scid,cur_status,cur_scllflag,ld_firstdate,ld_enddate,ls_relcode, sys_user_outrep, sys_option_outrep) > 0 THEN
	dw_1.SetFocus()
	dw_1.SelectRow(0,FALSE)
	dw_1.SelectRow(1,TRUE)
END IF


RETURN 1

end function

public function integer wf_rtr_dw3 ();Long ll_row
Long ll_scid
Long ll_taskid
long ll_printid

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	dw_3.Reset()
ELSE
	ll_scid = dw_1.Object.scid[ll_row]
	ll_taskid = dw_1.Object.taskid[ll_row]
	ll_printid= dw_1.Object.printid[ll_row]
	IF dw_3.Retrieve(ll_scid,ll_taskid,ll_printid) > 0 THEN
		dw_3.SelectRow(0,FALSE)
		dw_3.SelectRow(1,TRUE)
	END IF
END IF

RETURN 1

end function

public function integer wf_flagstatus_rf ();Long pagerert_row
Int li_flag,li_scllflag

pagerert_row = dw_1.GetRow()

IF pagerert_row <= 0 THEN
	cb_auditing.Enabled = FALSE
	cb_notpermit.Enabled = FALSE
	cb_audit_scll.Enabled = FALSE
	cb_caudit_scll.Enabled = FALSE
	GOTO ext
END IF

li_flag = dw_1.Object.u_saletaskmx_flag[pagerert_row]
li_scllflag = dw_1.Object.u_saletaskmx_scllflag[pagerert_row]

IF li_flag = 0 THEN
	cb_auditing.Enabled = TRUE
	cb_notpermit.Enabled = FALSE
	cb_audit_scll.Enabled = FALSE
	cb_caudit_scll.Enabled = FALSE
	
	cb_reccl.Enabled = FALSE
	cb_reccl_edit.Enabled = FALSE
	
	cb_reccl.text = "计算用料"
	
ELSEIF li_scllflag = 0 THEN
	cb_auditing.Enabled = FALSE
	cb_notpermit.Enabled = TRUE
	cb_audit_scll.Enabled = TRUE
	cb_caudit_scll.Enabled = FALSE
	
	cb_reccl.Enabled = TRUE
	cb_reccl_edit.Enabled = TRUE
	
	cb_reccl.text = "重算用料"
	
ELSEIF li_scllflag = 1 THEN
	cb_auditing.Enabled = FALSE
	cb_notpermit.Enabled = FALSE
	cb_audit_scll.Enabled = FALSE
	cb_caudit_scll.Enabled = TRUE
	
	cb_reccl.Enabled = FALSE
	cb_reccl_edit.Enabled = FALSE
	
	cb_reccl.text = "计算用料"
	
	
END IF

cb_reccl.TriggerEvent('ue_textchange')


ext:
RETURN 0






end function

public function integer wf_rtr_dw4 ();Long ll_row
Long ll_scid
Long ll_taskid,ll_printid

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	dw_4.Reset()
ELSE  
	ll_scid = dw_1.Object.scid[ll_row]
	ll_taskid = dw_1.Object.taskid[ll_row]
	ll_printid= dw_1.Object.printid[ll_row]
	IF dw_4.Retrieve(ll_taskid,ll_scid,ll_printid) > 0 THEN
		dw_4.SelectRow(0,FALSE)
		dw_4.SelectRow(1,TRUE)
	END IF
	
END IF

RETURN 1





end function

public function integer wf_rtr_dw5 ();Long ll_row
Long ll_scid
Long ll_taskid,ll_printid

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	dw_5.Reset()
ELSE  
	ll_scid = dw_1.Object.scid[ll_row]
	ll_taskid = dw_1.Object.taskid[ll_row]
	ll_printid= dw_1.Object.printid[ll_row]
	IF dw_5.Retrieve(ll_taskid,ll_scid,ll_printid) > 0 THEN
		dw_5.SelectRow(0,FALSE)
		dw_5.SelectRow(1,TRUE)
	END IF
	
END IF

RETURN 1

end function

public function integer wf_rtr_dw6 ();Long ll_row
Long ll_scid
Long ll_taskid,ll_printid

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	dw_6.Reset()
ELSE  
	ll_scid = dw_1.Object.scid[ll_row]
	ll_taskid = dw_1.Object.taskid[ll_row]
	ll_printid= dw_1.Object.printid[ll_row]
	IF dw_6.Retrieve(ll_taskid,ll_scid,ll_printid) > 0 THEN
		dw_6.SelectRow(0,FALSE)
		dw_6.SelectRow(1,TRUE)
	END IF
	
END IF

RETURN 1
end function

public subroutine wf_retrieveuc (datawindow arg_dw, string arg_newselect);
arg_dw.Modify("datawindow.table.select = ~"" + arg_newselect+ "~"")
	
end subroutine

public function window getparentwindow ();return this
end function

public subroutine wf_retr_currenrow_dw_2 (long arg_row);if arg_row <= 0 then return 
if arg_row > dw_2.rowcount() then return 

long ll_rqmtrlid
ll_rqmtrlid = dw_2.object.rqmtrlid[arg_row]

decimal lde_truerqqty, lde_dstrqty
string ls_status, ls_woodcode, ls_pcode
integer li_ifchanged,li_zlflag
decimal lde_truerqqty_ori, lde_wsdstrqty, lde_notdstrqty, lde_sum_noalocqty

				
  SELECT 
         u_saleRqMtrl_scll.trueRqqty,   
         u_saleRqMtrl_scll.DstrQty,    
         u_saleRqMtrl_scll.status,   
         u_saleRqMtrl_scll.woodcode,   
         u_saleRqMtrl_scll.pcode,   
         u_saleRqMtrl_scll.ifchanged,   
         u_saleRqMtrl_scll.truerqqty_ori,   
         u_saleRqMtrl_scll.wsdstrqty,  
			u_saleRqMtrl_scll.truerqqty - u_saleRqMtrl_scll.DstrQty as notDstrQty, 
        	uv_mtrlware_noallocqty_mtrlid_3pz.sum_noallocqty,
			case when isnull(uv_mtrlware_noallocqty_mtrlid_3pz.sum_noallocqty, 0) > (u_saleRqMtrl_scll.truerqqty - u_saleRqMtrl_scll.DstrQty) then 1 else 0 end as zlflag
				into :lde_truerqqty,
				:lde_dstrqty,
				:ls_status,
				:ls_woodcode,
				:ls_pcode,
				:li_ifchanged,
				:lde_truerqqty_ori,
				:lde_wsdstrqty,
				:lde_notdstrqty,
				:lde_sum_noalocqty,
				:li_zlflag
    FROM u_saleRqMtrl_scll INNER JOIN
      u_mtrldef ON u_saleRqMtrl_scll.MtrlID = u_mtrldef.mtrlid left outer join
		uv_mtrlware_noallocqty_mtrlid_3pz on uv_mtrlware_noallocqty_mtrlid_3pz.scid = u_saleRqMtrl_scll.scid and
		 uv_mtrlware_noallocqty_mtrlid_3pz.mtrlid = u_saleRqMtrl_scll.mtrlid and
		 uv_mtrlware_noallocqty_mtrlid_3pz.status = u_saleRqMtrl_scll.status and
  		 uv_mtrlware_noallocqty_mtrlid_3pz.woodcode = u_saleRqMtrl_scll.woodcode and
  		 uv_mtrlware_noallocqty_mtrlid_3pz.pcode = u_saleRqMtrl_scll.pcode 
	where  u_saleRqMtrl_scll.rqmtrlid = :ll_rqmtrlid;
	if sqlca.sqlcode <> 0 then 
		return
	end if
	
dw_2.object.truerqqty[arg_row] = lde_truerqqty
dw_2.object.dstrqty[arg_row] = lde_dstrqty
dw_2.object.status[arg_row] = ls_status
dw_2.object.woodcode[arg_row] = ls_woodcode
dw_2.object.pcode[arg_row] = ls_pcode
dw_2.object.ifchanged[arg_row] = li_ifchanged
//dw_2.object.truerqqty[arg_row] = lde_truerqqty_ori
//dw_2.object.truerqqty[arg_row] = lde_wsdstrqty
dw_2.object.notdstrqty[arg_row] = lde_notdstrqty
dw_2.object.uv_mtrlware_noallocqty_mtrlid_3pz_sum_noallocqty[arg_row] = lde_sum_noalocqty
//dw_2.object.truerqqty[arg_row] = li_zlflag
end subroutine

public function integer wf_rtr_dw7 ();
Long ll_row
Long ll_scid
Long ll_taskid,ll_printid

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	dw_7.Reset()
ELSE  
	ll_scid = dw_1.Object.scid[ll_row]
	ll_taskid = dw_1.Object.taskid[ll_row]
	ll_printid= dw_1.Object.printid[ll_row]
	IF dw_7.Retrieve(ll_taskid,ll_scid,ll_printid) > 0 THEN
		dw_7.SelectRow(0,FALSE)
		dw_7.SelectRow(1,TRUE)
	END IF
	
END IF

RETURN 1
end function

on w_order_ml.create
int iCurrent
call super::create
this.cb_auditing=create cb_auditing
this.cb_notpermit=create cb_notpermit
this.cb_audit_scll=create cb_audit_scll
this.cb_caudit_scll=create cb_caudit_scll
this.st_6=create st_6
this.ddlb_status=create ddlb_status
this.st_7=create st_7
this.ddlb_1=create ddlb_1
this.cbx_all=create cbx_all
this.ddlb_scid=create ddlb_scid
this.st_2=create st_2
this.st_1=create st_1
this.sle_relcode=create sle_relcode
this.tab_1=create tab_1
this.cb_3=create cb_3
this.cb_11=create cb_11
this.cb_reccl=create cb_reccl
this.cb_reccl_edit=create cb_reccl_edit
this.cbx_chk_zero=create cbx_chk_zero
this.cb_viewprint=create cb_viewprint
this.st_5=create st_5
this.ddlb_salestatus=create ddlb_salestatus
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_auditing
this.Control[iCurrent+2]=this.cb_notpermit
this.Control[iCurrent+3]=this.cb_audit_scll
this.Control[iCurrent+4]=this.cb_caudit_scll
this.Control[iCurrent+5]=this.st_6
this.Control[iCurrent+6]=this.ddlb_status
this.Control[iCurrent+7]=this.st_7
this.Control[iCurrent+8]=this.ddlb_1
this.Control[iCurrent+9]=this.cbx_all
this.Control[iCurrent+10]=this.ddlb_scid
this.Control[iCurrent+11]=this.st_2
this.Control[iCurrent+12]=this.st_1
this.Control[iCurrent+13]=this.sle_relcode
this.Control[iCurrent+14]=this.tab_1
this.Control[iCurrent+15]=this.cb_3
this.Control[iCurrent+16]=this.cb_11
this.Control[iCurrent+17]=this.cb_reccl
this.Control[iCurrent+18]=this.cb_reccl_edit
this.Control[iCurrent+19]=this.cbx_chk_zero
this.Control[iCurrent+20]=this.cb_viewprint
this.Control[iCurrent+21]=this.st_5
this.Control[iCurrent+22]=this.ddlb_salestatus
end on

on w_order_ml.destroy
call super::destroy
destroy(this.cb_auditing)
destroy(this.cb_notpermit)
destroy(this.cb_audit_scll)
destroy(this.cb_caudit_scll)
destroy(this.st_6)
destroy(this.ddlb_status)
destroy(this.st_7)
destroy(this.ddlb_1)
destroy(this.cbx_all)
destroy(this.ddlb_scid)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.sle_relcode)
destroy(this.tab_1)
destroy(this.cb_3)
destroy(this.cb_11)
destroy(this.cb_reccl)
destroy(this.cb_reccl_edit)
destroy(this.cbx_chk_zero)
destroy(this.cb_viewprint)
destroy(this.st_5)
destroy(this.ddlb_salestatus)
end on

event resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
ln_1.EndX = THIS.Width
ln_2.EndX = THIS.Width
ln_3.EndX = THIS.Width
ln_4.EndX = THIS.Width
r_bar.Width = THIS.Width

Long w_width,w_height
w_width = 4020
w_height = 2300

IF newwidth < w_width THEN THIS.Width = w_width
IF newheight < w_height THEN  THIS.Height = w_height

dw_1.Width = THIS.Width - dw_1.X - 40
dw_1.Height = 50 * (THIS.Height - dw_1.y ) / 100

tab_1.y = dw_1.y + dw_1.Height + 5
tab_1.Width = THIS.Width - tab_1.X - 40
tab_1.Height = THIS.Height - tab_1.y - 140

dw_2.Width = tab_1.Width - dw_2.x - 40
dw_2.height = tab_1.Height - dw_2.y - 100

dw_3.Width = tab_1.Width - dw_3.x - 40
dw_3.height = tab_1.Height - dw_3.y - 100

dw_4.Width = tab_1.Width - dw_4.x - 40
dw_4.height = tab_1.Height - dw_4.y - 100

dw_5.Width = tab_1.Width - dw_5.x - 40
dw_5.height = tab_1.Height - dw_5.y - 100

dw_6.Width = tab_1.Width - dw_6.x - 40
dw_6.height = tab_1.Height - dw_6.y - 100

dw_7.Width = tab_1.Width - dw_7.x - 40
dw_7.height = tab_1.Height - dw_7.y - 100

end event

event close;call super::close;f_SetProfileString(SYS_empid, this.classname(), "status", string(cur_status))
f_SetProfileString(SYS_empid, this.classname(), "scllflag", string(cur_scllflag))


DESTROY uo_ml_mrp
DESTROY  uo_sale
end event

event ue_before_open;call super::ue_before_open;dw_2 = tab_1.tabpage_1.dw_2
dw_2.SetTransObject(sqlca)
dw_3 = tab_1.tabpage_2.dw_3
dw_3.SetTransObject(sqlca)
dw_4 = tab_1.tabpage_4.dw_4
dw_4.SetTransObject(sqlca)
dw_5 = tab_1.tabpage_5.dw_5
dw_5.SetTransObject(sqlca) 

dw_6 = tab_1.tabpage_3.dw_mrpmx
dw_6.SetTransObject(sqlca) 

dw_7 = tab_1.tabpage_6.dw_self
dw_7.SetTransObject(sqlca) 


is_ori_select = dw_1.Describe("DataWindow.Table.Select")



uo_sale = create uo_order_ml 
uo_sale.commit_transaction = sqlca

uo_ml_mrp = CREATE uo_order_ml_mrp
end event

event ue_before_openretrieve;call super::ue_before_openretrieve;EM_2.Text = String(Today(),'YYYY-MM-DD')
EM_1.Text = String(RelativeDate ( Today(), -15 ),'YYYY-MM-DD')
end event

event open;call super::open;em_1.Text = string(year(today()))+'-'+string(month(today()))+'-01'
end event

type cb_func from w_publ_easyq`cb_func within w_order_ml
end type

event cb_func::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF if_ue_retr THEN
	menustr = "Text=高级查询~tEvent=ue_retr"
END IF

IF if_ue_filter THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=高级筛选~tEvent=ue_filter"
	ELSE
		menustr = menustr + "|" + "Text=高级筛选~tEvent=ue_filter"
	END IF
END IF

IF if_ue_sort THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=高级排序~tEvent=ue_sort"
	ELSE
		menustr = menustr + "|" + "Text=高级排序~tEvent=ue_sort"
	END IF
END IF

IF menustr <> "" AND if_ue_sentdataout THEN menustr = menustr + "|" + "Text=-"

IF if_ue_sentdataout THEN
	menustr = menustr + "|" + "Text=数据发送-订单~tEvent=ue_sentdataout"
	menustr = menustr + "|" + "Text=数据发送-运算结果~tEvent=ue_sentdataout_mrpmx"
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_exit from w_publ_easyq`cb_exit within w_order_ml
integer x = 2546
end type

type cb_2 from w_publ_easyq`cb_2 within w_order_ml
boolean visible = false
integer x = 3145
end type

event cb_2::clicked;IF NOT f_power_ind(1503) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

IF DW_1.RowCount() >= 1 THEN
	cbx_YL.Checked = TRUE
	cbx_YL.TriggerEvent(Clicked!)
	OpenWithParm(w_sys_printpagesetting,DW_1)
ELSE
	MessageBox('NO','数据窗口中没有任何记录，不能打印！')
END IF


IF Trim(DW_1.DataObject) = '' THEN RETURN
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_TOP",   String(DW_1.Object.DataWindow.Print.MARGIN.Top))
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_LEFT", String(DW_1.Object.DataWindow.Print.MARGIN.Left))

f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_BOTTOM",   String(DW_1.Object.DataWindow.Print.MARGIN.BOTTOM))
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_RIGHT", String(DW_1.Object.DataWindow.Print.MARGIN.Right))



end event

type cb_psetup from w_publ_easyq`cb_psetup within w_order_ml
boolean visible = false
integer x = 2889
end type

type cb_1 from w_publ_easyq`cb_1 within w_order_ml
end type

event cb_1::clicked;call super::clicked;parent.triggerevent("retrieve_pageretr")

//wf_rtr_dw1()
end event

type st_3 from w_publ_easyq`st_3 within w_order_ml
integer y = 324
end type

type st_4 from w_publ_easyq`st_4 within w_order_ml
integer y = 324
end type

type em_1 from w_publ_easyq`em_1 within w_order_ml
integer y = 308
end type

type em_2 from w_publ_easyq`em_2 within w_order_ml
integer y = 308
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_order_ml
boolean visible = false
integer x = 3813
integer y = 44
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_order_ml
boolean visible = false
integer x = 3607
integer y = 48
end type

type dw_1 from w_publ_easyq`dw_1 within w_order_ml
integer y = 416
integer width = 4000
integer height = 976
string dataobject = "dw_order_ml"
end type

event dw_1::clicked;call super::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
END IF
end event

event dw_1::rowfocuschanged;call super::rowfocuschanged;wf_rtr_dwmx()
wf_flagstatus_rf()
end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_order_ml
end type

type sle_cust from w_publ_easyq`sle_cust within w_order_ml
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_order_ml
end type

type st_cust from w_publ_easyq`st_cust within w_order_ml
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_order_ml
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_order_ml
integer y = 308
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_order_ml
integer y = 308
end type

type pb_2 from w_publ_easyq`pb_2 within w_order_ml
integer y = 308
end type

type cb_help from w_publ_easyq`cb_help within w_order_ml
integer x = 2395
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_order_ml
integer x = 1947
end type

type gb_1 from w_publ_easyq`gb_1 within w_order_ml
end type

type ln_bar from w_publ_easyq`ln_bar within w_order_ml
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_order_ml
end type

type r_bar from w_publ_easyq`r_bar within w_order_ml
integer x = 1367
end type

type ln_1 from w_publ_easyq`ln_1 within w_order_ml
end type

type ln_2 from w_publ_easyq`ln_2 within w_order_ml
end type

type ln_3 from w_publ_easyq`ln_3 within w_order_ml
end type

type ln_4 from w_publ_easyq`ln_4 within w_order_ml
end type

type cb_auditing from uo_imflatbutton within w_order_ml
integer x = 306
integer width = 192
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "审核&F"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF Not f_power_ind(1296) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF
s_order_ml_rqmtrl s_ref_mtrl,s_ref_null
s_order_ml_rqmtrl s_mtrl,s_mtrl_tree
String arg_msg,ls_errmsg,arg_msg_tmp = '',ls_ordercode
Long uc_row,cnt,cnt_1,ll_i,cnt_fail
Long ll_scid,ll_taskid,ll_printid
Boolean b_ifcommit
Long ll_fail = 0,ll_suc = 0
Long ll_cnt_lp = 0
Long cnt_if_mrp
Long i

Long ll_j
Long ch_tree, ch

dw_1.AcceptText()
cnt = 0
FOR ll_i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 1 THEN
		cnt++
	END IF
NEXT



IF cnt = 0 THEN
	uc_row = dw_1.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标订单明细!',Information!,OK!)
		RETURN
	END IF
	
	IF MessageBox ("询问","是否确定要对当前订单明细作审核吗?",Question!,YesNo! ) = 2 THEN RETURN
	
	//审核
	IF uo_sale.salemxprimt(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],publ_operator,arg_msg,True) = 0 THEN
		MessageBox('Error!',arg_msg)
	ELSE
		wf_refresh_curuc(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],uc_row,arg_msg)
		IF f_power_ind(1300) THEN //运算
			cb_reccl.TriggerEvent(Clicked!)
		END IF
		
		IF f_power_ind(1378)  THEN //生成工序
			tab_1.tabpage_2.cb_6.TriggerEvent(Clicked!)
		END IF
		
	END IF
ELSE
	IF MessageBox ("询问","是否确定要对选中订单明细作批审核吗?",Question!,YesNo! ) = 2 THEN RETURN
	
	Open(w_sys_wait_jdt) //初始化进度条
	w_sys_wait_jdt.Show()
	w_sys_wait_jdt.wf_accepttol(cnt)
	
	FOR ll_i = 1 To dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			
			ll_scid = dw_1.Object.scid[ll_i]
			ll_taskid = dw_1.Object.taskid[ll_i]
			ll_printid = dw_1.Object.printid[ll_i]
			
			ll_cnt_lp++
			w_sys_wait_jdt.st_msg.Text = ls_ordercode + " 正在审核..." //进度信息
			w_sys_wait_jdt.wf_inc(ll_cnt_lp)
			
			wf_refresh_curuc(ll_scid,ll_taskid,ll_printid,ll_i,arg_msg)
			
			IF uo_sale.salemxprimt(ll_scid,ll_taskid,ll_printid,publ_operator,arg_msg_tmp,True) = 0 THEN
				arg_msg = arg_msg + ls_ordercode + '审核失败原因: ' + arg_msg_tmp + '~r~n'
				ll_fail++
				CONTINUE
			ELSE
				wf_refresh_curuc(ll_scid,ll_taskid,ll_printid,ll_i,arg_msg_tmp)
			END IF
			
			//计算
			IF f_power_ind(1300) THEN
				//				IF uo_sale.uof_cmp(ll_scid,ll_taskid,ll_printid,arg_msg,TRUE) = 0 THEN
				//					arg_msg_tmp = arg_msg_tmp + '~N' + '第' + String(ll_i) + '行,' + arg_msg
				//					ll_fail++
				//				END IF
				//运算
				IF uo_ml_mrp.uof_check_dstrqty(ll_scid,ll_taskid,ll_printid,arg_msg_tmp) = 0 THEN
					arg_msg = arg_msg + ls_ordercode + '运算失败原因: ' + arg_msg_tmp + '~r~n'
					ll_fail++
					CONTINUE
				END IF
				
				SELECT count(*) INTO :cnt_if_mrp
					FROM u_OrderRqMtrl_tree
					WHERE scid = :ll_scid
					AND taskid = :ll_taskid
					And printid = :ll_printid;
				IF sqlca.SQLCode <> 0 THEN
					arg_msg = arg_msg + ls_ordercode + '运算失败原因: 查询生产计划是否已运算失败,'+sqlca.SQLErrText+ '~r~n'
					ll_fail++
					CONTINUE
				END IF
				
				IF cnt_if_mrp = 0 THEN //没运算过的
					s_ref_mtrl = s_ref_null
					s_mtrl = s_ref_null
					s_mtrl_tree = s_ref_null
					ch_tree = 0
					ch = 0
					uo_ml_mrp.deep = 0
					
					IF uo_ml_mrp.uof_cmpl_rqmtrl(dw_1.Object.scid[ll_i],&
						dw_1.Object.taskid[ll_i],&
						dw_1.Object.printid[ll_i],&
						0,&
						dw_1.Object.mtrlid[ll_i],&
						dw_1.Object.u_saletaskmx_status[ll_i],&
						dw_1.Object.u_saletaskmx_woodcode[ll_i],&
						dw_1.Object.u_saletaskmx_pcode[ll_i],&
						dw_1.Object.u_saletaskmx_orderqty[ll_i],&
						0,&
						0,&
						s_ref_mtrl,arg_msg_tmp,0,'') = 0 THEN
						arg_msg = arg_msg + ls_ordercode + '运算失败原因:计算需求失败,'+arg_msg_tmp
						ll_fail++
						CONTINUE
					END IF
					
					IF uo_ml_mrp.uof_add_rqmtrl(s_ref_mtrl,False,arg_msg_tmp) = 0 THEN
						arg_msg = arg_msg + ls_ordercode + '运算失败原因:保存物料需求表失败,'+arg_msg_tmp
						ll_fail++
						CONTINUE
					END IF
					
					IF uo_ml_mrp.uof_add_rqmtrl_tree(s_ref_mtrl,False,arg_msg_tmp) = 0 THEN
						arg_msg = arg_msg + ls_ordercode + '运算失败原因:保存物料需求结构表失败,'+arg_msg_tmp
						ll_fail++
						CONTINUE
					END IF
					
					IF uo_ml_mrp.uof_del_rqmtrl_scll(ll_scid,ll_taskid,ll_printid,False,arg_msg_tmp) = 0 THEN
						arg_msg = arg_msg + ls_ordercode + '运算失败原因:删除领料明细表失败,'+arg_msg_tmp
						ll_fail++
						CONTINUE
					END IF
					
					IF uo_ml_mrp.uof_add_rqmtrl_scll(s_ref_mtrl,True,arg_msg_tmp) = 0 THEN
						arg_msg = arg_msg + ls_ordercode + '运算失败原因:保存用料明细表失败,'+arg_msg_tmp
						ll_fail++
						CONTINUE
					END IF
					
//					FOR ll_j = 1 To UpperBound(s_ref_mtrl.mtrlid)
//						IF s_ref_mtrl.ifmainmtrlid[ll_j] = 1 THEN CONTINUE;
//						ch_tree++
//						s_mtrl_tree.taskid[ch_tree]    = s_ref_mtrl.taskid[ll_j]
//						s_mtrl_tree.printid[ch_tree]    = s_ref_mtrl.printid[ll_j]
//						s_mtrl_tree.scid[ch_tree]       = s_ref_mtrl.scid[ll_j]
//						s_mtrl_tree.mtrlid[ch_tree]     = s_ref_mtrl.mtrlid[ll_j]
//						s_mtrl_tree.ifmainmtrlid[ch_tree]     = s_ref_mtrl.ifmainmtrlid[ll_j]
//						s_mtrl_tree.plantype[ch_tree]   = s_ref_mtrl.plantype[ll_j]
//						s_mtrl_tree.qty[ch_tree]        = s_ref_mtrl.qty[ll_j]
//						s_mtrl_tree.cmplqty[ch_tree]    = s_ref_mtrl.cmplqty[ll_j]
//						s_mtrl_tree.mqty[ch_tree]       = s_ref_mtrl.mqty[ll_j]
//						s_mtrl_tree.bqty[ch_tree]       = s_ref_mtrl.bqty[ll_j]
//						s_mtrl_tree.wqty[ch_tree]       = s_ref_mtrl.wqty[ll_j]
//						s_mtrl_tree.pqty[ch_tree]       = s_ref_mtrl.pqty[ll_j]
//						//						s_mtrl_tree.produce_scid[ch_tree]       = s_ref_mtrl.produce_scid[ll_j]
//						s_mtrl_tree.produce_wrkgrpid[ch_tree]   = s_ref_mtrl.produce_wrkgrpid[ll_j]
//						s_mtrl_tree.wrkgrpid_scll[ch_tree]   = s_ref_mtrl.produce_wrkgrpid[ll_j]
//						s_mtrl_tree.lp[ch_tree]         = s_ref_mtrl.lp[ll_j]
//						s_mtrl_tree.status[ch_tree]         = s_ref_mtrl.status[ll_j]
//						s_mtrl_tree.woodcode[ch_tree]         = s_ref_mtrl.woodcode[ll_j]
//						s_mtrl_tree.pcode[ch_tree]         = s_ref_mtrl.pcode[ll_j]
//						s_mtrl_tree.pmtrlid[ch_tree]         = s_ref_mtrl.pmtrlid[ll_j]
//						s_mtrl_tree.ifchanged[ch_tree]         = s_ref_mtrl.ifchanged[ll_j]
//						
//						
//						IF s_ref_mtrl.qty[ll_j] = 0 And &
//							s_ref_mtrl.cmplqty[ll_j] = 0 THEN CONTINUE
//						
//						ch++
//						s_mtrl.taskid[ch]    = s_ref_mtrl.taskid[ll_j]
//						s_mtrl.printid[ch]    = s_ref_mtrl.printid[ll_j]
//						s_mtrl.scid[ch]       = s_ref_mtrl.scid[ll_j]
//						s_mtrl.mtrlid[ch]     = s_ref_mtrl.mtrlid[ll_j]
//						s_mtrl.ifmainmtrlid[ch]     = s_ref_mtrl.ifmainmtrlid[ll_j]
//						s_mtrl.plantype[ch]   = s_ref_mtrl.plantype[ll_j]
//						s_mtrl.qty[ch]        = s_ref_mtrl.qty[ll_j]
//						s_mtrl.cmplqty[ch]    = s_ref_mtrl.cmplqty[ll_j]
//						s_mtrl.mqty[ch]       = s_ref_mtrl.mqty[ll_j]
//						s_mtrl.bqty[ch]       = s_ref_mtrl.bqty[ll_j]
//						s_mtrl.wqty[ch]       = s_ref_mtrl.wqty[ll_j]
//						s_mtrl.pqty[ch]       = s_ref_mtrl.pqty[ll_j]
//						//						s_mtrl.produce_scid[ch]       = s_ref_mtrl.produce_scid[ll_j]
//						s_mtrl.produce_wrkgrpid[ch]   = s_ref_mtrl.produce_wrkgrpid[ll_j]
//						s_mtrl.wrkgrpid_scll[ch]   = s_ref_mtrl.produce_wrkgrpid[ll_j]
//						s_mtrl.lp[ch]         = s_ref_mtrl.lp[ll_j]
//						s_mtrl.status[ch]         = s_ref_mtrl.status[ll_j]
//						s_mtrl.woodcode[ch]         = s_ref_mtrl.woodcode[ll_j]
//						s_mtrl.pcode[ch]         = s_ref_mtrl.pcode[ll_j]
//						s_mtrl.pmtrlid[ch]         = s_ref_mtrl.pmtrlid[ll_j]
//						s_mtrl.ifchanged[ch]         = s_ref_mtrl.ifchanged[ll_j]
//						
//					NEXT
					
					
					
//					IF uo_ml_mrp.uof_add_rqmtrl(s_mtrl,False,arg_msg_tmp) = 0 THEN
//						arg_msg = arg_msg + ls_ordercode + '运算失败原因:保存物料需求表失败,'+arg_msg_tmp
//						ll_fail++
//						CONTINUE
//					END IF
//					
//					IF uo_ml_mrp.uof_add_rqmtrl_tree(s_mtrl_tree,False,arg_msg_tmp) = 0 THEN
//						arg_msg = arg_msg + ls_ordercode + '运算失败原因:保存物料需求结构表失败,'+arg_msg_tmp
//						ll_fail++
//						CONTINUE
//					END IF
//					
//					IF uo_ml_mrp.uof_del_rqmtrl_scll(ll_scid,ll_taskid,ll_printid,False,arg_msg_tmp) = 0 THEN
//						arg_msg = arg_msg + ls_ordercode + '运算失败原因:删除领料明细表失败,'+arg_msg_tmp
//						ll_fail++
//						CONTINUE
//					END IF
//					
//					IF uo_ml_mrp.uof_add_rqmtrl_scll(s_mtrl,True,arg_msg_tmp) = 0 THEN
//						arg_msg = arg_msg + ls_ordercode + '运算失败原因:保存用料明细表失败,'+arg_msg_tmp
//						ll_fail++
//						CONTINUE
//					END IF
					
				END IF
				
				
			END IF
			IF f_power_ind(1378) THEN //加工序
				IF uo_sale.uof_order_add_pro(ll_scid,ll_taskid,ll_printid,arg_msg,True) = 0 THEN
					arg_msg_tmp = arg_msg_tmp + '~N' + '第' + String(ll_i) + '行,' + arg_msg
					ll_fail++
				END IF
			END IF
			ll_suc++
		END IF
	NEXT
	
	Close(w_sys_wait_jdt)
	MessageBox(publ_operator,'批审核完成!成功:'+String(ll_suc)+',失败:'+String(ll_fail),Information!,OK!)
	IF ll_fail > 0 THEN
		OpenWithParm(w_message_err,arg_msg)
	END IF
END IF
wf_rtr_dwmx()

wf_flagstatus_rf()






end event

type cb_notpermit from uo_imflatbutton within w_order_ml
integer x = 494
integer width = 151
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "撤审"
string normalpicname = "caudit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1297) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF


String arg_msg = ''
Long uc_row,cnt,cnt_1,ll_i
Long ll_scid,ll_taskid,ll_printid
String ls_ordercode
Long ll_cnt_lp = 0
String arg_msg_tmp
Long ll_fail = 0,ll_suc = 0
dw_1.accepttext()
cnt = 0
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 1 THEN
		cnt++
	END IF
NEXT

IF cnt = 0 THEN
	uc_row = dw_1.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标销售订单明细!',information!,ok!)
		RETURN
	END IF
	
	IF MessageBox ("询问","是否确定要对当前销售订单明细作取消审核吗?",Question!,YesNo! ) = 2 THEN RETURN
	
	IF uo_sale.c_salemxprimt(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],arg_msg,TRUE) = 0 THEN
		MessageBox('Error!',arg_msg)
	ELSE
		MessageBox(publ_operator,'销售订单明细取消审核成功!',information!,ok!)
		wf_refresh_curuc(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],uc_row,arg_msg)
	END IF
ELSE
	IF MessageBox ("IF","是否确定要对选中的销售订单明细作批撤审吗?",Question!,YesNo! ) = 2 THEN RETURN
	
	Open(w_sys_wait_jdt) //初始化进度条
	w_sys_wait_jdt.Show()
	w_sys_wait_jdt.wf_accepttol(cnt)
	
	
	FOR ll_i = 1 TO dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			
			ll_scid = dw_1.Object.scid[ll_i]
			ll_taskid = dw_1.Object.taskid[ll_i]
			ll_printid = dw_1.Object.printid[ll_i]
			
			ll_cnt_lp++
			w_sys_wait_jdt.st_msg.Text = ls_ordercode + " 正在撤审..." //进度信息
			w_sys_wait_jdt.wf_inc(ll_cnt_lp)
			
			wf_refresh_curuc(ll_scid,ll_taskid,ll_printid,ll_i,arg_msg)
			
			IF uo_sale.c_salemxprimt(ll_scid,ll_taskid,ll_printid,arg_msg_tmp,TRUE) = 0 THEN
				arg_msg = arg_msg + ls_ordercode + '失败原因: ' + arg_msg_tmp + '~r~n'
				ll_fail++
				CONTINUE
			ELSE
				wf_refresh_curuc(ll_scid,ll_taskid,ll_printid,ll_i,arg_msg_tmp)
			END IF
			
			ll_suc++
		END IF
	NEXT
	
	Close(w_sys_wait_jdt)
	MessageBox(publ_operator,'批撤审完成!成功:'+String(ll_suc)+',失败:'+String(ll_fail),information!,ok!)
	IF ll_fail > 0 THEN
		OpenWithParm(w_message_err,arg_msg)
	END IF
END IF
wf_rtr_dwmx()

wf_flagstatus_rf()
end event

type cb_audit_scll from uo_imflatbutton within w_order_ml
integer x = 1193
integer width = 251
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "用料审核"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF Not f_power_ind(1298) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF

String arg_msg = ''
Long uc_row
Int li_scllflag,li_scllsecflag
String arg_msg_tmp = ''
Long ll_fail = 0,ll_suc = 0
Long ll_cnt_lp = 0,cnt = 0
String ls_ordercode
Long ll_i
Long ll_scid,ll_taskid,ll_printid
Int li_chk_zero

cnt = 0
FOR ll_i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 1 THEN
		cnt++
	END IF
NEXT

IF cbx_chk_zero.Checked THEN
	li_chk_zero = 1
ELSE
	li_chk_zero = 0
END IF

IF cnt = 0 THEN
	uc_row = dw_1.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('系统提示','请选定当前销售订单明细!',Information!,OK!)
		RETURN
	END IF
	
	IF MessageBox ("询问","是否确定要对当前销售订单明细作用料审核吗?",Question!,YesNo! ) = 2 THEN RETURN
	
	
	
	IF uo_sale.salemxscllprimt(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],&
		li_chk_zero, publ_operator,arg_msg,True) = 0 THEN
		MessageBox('Error!',arg_msg)
	ELSE
		MessageBox(publ_operator,'销售订单明细用料审核成功!',Information!,OK!)
		wf_refresh_curuc(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],uc_row,arg_msg)
	END IF
	
ELSE
	IF MessageBox ("询问","是否确定要对选中的销售订单明细作用料审核操作?",Question!,YesNo! ) = 2 THEN RETURN
	Open(w_sys_wait_jdt) //初始化进度条
	w_sys_wait_jdt.Show()
	w_sys_wait_jdt.wf_accepttol(cnt)
	
	FOR ll_i = 1 To dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			dw_1.Object.ch[ll_i] = 0
			
			ll_cnt_lp++
			w_sys_wait_jdt.st_msg.Text = " 正在用料审核..." //进度信息
			w_sys_wait_jdt.wf_inc(ll_cnt_lp)
			
			ll_scid = dw_1.Object.scid[ll_i]
			ll_taskid = dw_1.Object.taskid[ll_i]
			ll_printid = dw_1.Object.printid[ll_i]
			
			
			IF uo_sale.salemxscllprimt(ll_scid,ll_taskid,ll_printid,li_chk_zero,publ_operator,arg_msg_tmp,True) = 0 THEN
				arg_msg = arg_msg + ls_ordercode + '失败原因: ' + arg_msg_tmp + '~r~n'
				ll_fail++
				CONTINUE
			ELSE
				wf_refresh_curuc(ll_scid,ll_taskid,ll_printid,ll_i,arg_msg_tmp)
			END IF
			
			ll_suc++
		END IF
	NEXT
	
	Close(w_sys_wait_jdt)
	MessageBox(publ_operator,'批操作完成!成功:'+String(ll_suc)+',失败:'+String(ll_fail),Information!,OK!)
	IF ll_fail > 0 THEN
		OpenWithParm(w_message_err,arg_msg)
	END IF
	
END IF
wf_rtr_dwmx()
wf_flagstatus_rf()

end event

type cb_caudit_scll from uo_imflatbutton within w_order_ml
integer x = 1445
integer width = 251
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "用料撤审"
string normalpicname = "caudit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1299) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF


String arg_msg = ''
Long uc_row
Int li_scllflag,li_scllsecflag
String arg_msg_tmp = ''
Long ll_fail = 0,ll_suc = 0
Long ll_cnt_lp = 0,cnt = 0
String ls_ordercode
Long ll_i
Long ll_scid,ll_taskid,ll_printid

cnt = 0
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 1 THEN
		cnt++
	END IF
NEXT

IF cnt = 0 THEN
	uc_row = dw_1.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标销售订单明细!',information!,ok!)
		RETURN
	END IF
	
	
	IF MessageBox ("IF","是否确定要对当前销售订单明细取消用料审核吗?",Question!,YesNo! ) = 2 THEN RETURN
	
	IF uo_sale.c_salemxscllprimt(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg)
	ELSE
		MessageBox(publ_operator,'当前销售订单明细取消用料审核成功!',information!,ok!)
		wf_refresh_curuc(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],uc_row,arg_msg)
	END IF
	
ELSE
	IF MessageBox ("询问","是否确定要对选中的销售订单明细作用料审核操作?",Question!,YesNo! ) = 2 THEN RETURN
	Open(w_sys_wait_jdt) //初始化进度条
	w_sys_wait_jdt.Show()
	w_sys_wait_jdt.wf_accepttol(cnt)
	
	FOR ll_i = 1 TO dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			dw_1.Object.ch[ll_i] = 0
			ll_cnt_lp++
			w_sys_wait_jdt.st_msg.Text = " 正在取消用料审核..." //进度信息
			w_sys_wait_jdt.wf_inc(ll_cnt_lp)
			
			
			ll_scid = dw_1.Object.scid[ll_i]
			ll_taskid = dw_1.Object.taskid[ll_i]
			ll_printid = dw_1.Object.printid[ll_i]
						
			IF uo_sale.c_salemxscllprimt(ll_scid,ll_taskid,ll_printid,arg_msg,TRUE) = 0 THEN
				arg_msg = arg_msg + ls_ordercode + '失败原因: ' + arg_msg_tmp + '~r~n'
				ll_fail++
				CONTINUE
			ELSE
				wf_refresh_curuc(ll_scid,ll_taskid,ll_printid,ll_i,arg_msg_tmp)
			END IF
			
			ll_suc++
		END IF
	NEXT
	
	Close(w_sys_wait_jdt)
	MessageBox(publ_operator,'批操作完成!成功:'+String(ll_suc)+',失败:'+String(ll_fail),information!,ok!)
	IF ll_fail > 0 THEN
		OpenWithParm(w_message_err,arg_msg)
	END IF
	
END IF

wf_rtr_dwmx()
wf_flagstatus_rf()



end event

type st_6 from statictext within w_order_ml
integer x = 759
integer y = 208
integer width = 133
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_order_ml
integer x = 910
integer y = 192
integer width = 361
integer height = 496
integer taborder = 130
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 constructor;cur_status = Long(f_ProfileString(SYS_empid, parent.classname(), "status", "-1"))


CHOOSE CASE cur_status
	CASE 0
		this.Text = "待审核"
	CASE 1
		this.Text = "在进行"
	CASE 5
		this.Text = "自动完成"
	CASE 6
		this.Text = "手动完成"
	CASE -1
		this.Text = "[全部]"
END CHOOSE



end event

event selectionchanged;CHOOSE CASE Index
	CASE 1 //[全部]
		cur_status = -1
	CASE 2 //待审批
		cur_status = 0
	CASE 3 //在进行
		cur_status = 1
	CASE 4 //'自动完成'
		cur_status = 5
	CASE 5 //'手动完成'
		cur_status = 6
	CASE ELSE
		cur_status = -1
END CHOOSE

cb_1.TriggerEvent(Clicked!)


end event

type st_7 from statictext within w_order_ml
integer x = 1275
integer y = 208
integer width = 224
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_1 from dropdownlistbox within w_order_ml
integer x = 1490
integer y = 192
integer width = 343
integer height = 300
integer taborder = 140
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;CHOOSE CASE Index
	CASE 1
		cur_scllflag = -1
	CASE 2 
		cur_scllflag = 0
	CASE 3
		cur_scllflag = 1
END CHOOSE

cb_1.TriggerEvent(Clicked!)
end event

event constructor;cur_scllflag = Long(f_ProfileString(SYS_empid, parent.classname(), "scllflag", "-1"))


CHOOSE CASE cur_scllflag
	CASE -1
		this.Text = "[全部]"
	CASE 0
		this.Text = "待用料审"
	CASE 1
		this.Text = "已用料审"
END CHOOSE

end event

type cbx_all from checkbox within w_order_ml
integer x = 1490
integer y = 324
integer width = 192
integer height = 60
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 = "全选"
end type

event clicked;Long ll_i
dw_1.SetRedraw(FALSE)
IF THIS.Checked THEN
	FOR ll_i = 1 TO dw_1.RowCount()
		dw_1.Object.ch[ll_i] = 1
	NEXT
ELSE
	FOR ll_i = 1 TO dw_1.RowCount()
		dw_1.Object.ch[ll_i] = 0
	NEXT
END IF
dw_1.SetRedraw(TRUE)

end event

type ddlb_scid from uo_ddlb_scid within w_order_ml
integer x = 137
integer y = 192
integer width = 599
integer height = 660
integer taborder = 140
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
cb_1.TriggerEvent(Clicked!)

end event

type st_2 from statictext within w_order_ml
integer x = 9
integer y = 208
integer width = 128
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 st_1 from statictext within w_order_ml
integer x = 2587
integer y = 208
integer width = 210
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 = "订单号:"
boolean focusrectangle = false
end type

type sle_relcode from singlelineedit within w_order_ml
integer x = 2784
integer y = 192
integer width = 617
integer height = 92
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event modified;PARENT.TRIGGEREVENT("ue_usual_query_RETR")
end event

type tab_1 from tab within w_order_ml
integer y = 1404
integer width = 4000
integer height = 868
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_6 tabpage_6
end type

on tab_1.create
this.tabpage_4=create tabpage_4
this.tabpage_5=create tabpage_5
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.tabpage_6=create tabpage_6
this.Control[]={this.tabpage_4,&
this.tabpage_5,&
this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3,&
this.tabpage_6}
end on

on tab_1.destroy
destroy(this.tabpage_4)
destroy(this.tabpage_5)
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_6)
end on

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3963
integer height = 756
long backcolor = 134217739
string text = "采购"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_10 cb_10
cb_mod_buyrqmtrl cb_mod_buyrqmtrl
dw_4 dw_4
end type

on tabpage_4.create
this.cb_10=create cb_10
this.cb_mod_buyrqmtrl=create cb_mod_buyrqmtrl
this.dw_4=create dw_4
this.Control[]={this.cb_10,&
this.cb_mod_buyrqmtrl,&
this.dw_4}
end on

on tabpage_4.destroy
destroy(this.cb_10)
destroy(this.cb_mod_buyrqmtrl)
destroy(this.dw_4)
end on

type cb_10 from commandbutton within tabpage_4
integer width = 329
integer height = 80
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改需求数"
end type

event clicked;//运算后,没开采购订单前可以修改;
//逐条修改

IF NOT f_power_ind(1300) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

Int rslt = 1
Long ll_row, ll_mxrow
Long ll_scid,ll_taskid,ll_printid, ll_mxpkid
Decimal lde_consignedqty

String arg_msg
//dw_1.AcceptText()

ll_row = dw_1.GetRow()
IF ll_row = 0 THEN RETURN
//IF dw_1.Object.u_saletaskmx_flag[ll_row] <> 1 THEN RETURN
IF dw_1.Object.u_saletaskmx_scllflag[ll_row] <> 1 THEN
	arg_msg = '该销售订单明细未用料审核,不能使用此功能'
	rslt = 0
	GOTO ext
END IF

ll_scid = dw_1.Object.scid[ll_row]
ll_taskid = dw_1.Object.taskid[ll_row]
ll_printid = dw_1.Object.printid[ll_row]

ll_mxrow = dw_4.GetRow()
ll_mxpkid = dw_4.Object.u_orderrqmtrl_mxpkid[ll_mxrow]
lde_consignedqty = dw_4.Object.u_orderrqmtrl_consignedqty[ll_mxrow]
//lde_inqty

IF lde_consignedqty <> 0 THEN
	arg_msg = '当前明细采购已订货,不能修改用料'
	rslt = 0
	GOTO ext
END IF

s_order_ml_rqmtrl s_rqmtrl

s_rqmtrl.mxpkid[1] = ll_mxpkid
s_rqmtrl.scid[1] = ll_scid
s_rqmtrl.taskid[1] = ll_taskid
s_rqmtrl.printid[1] = ll_printid
s_rqmtrl.plantype[1] = 2

OpenWithParm(w_order_ml_mrp_mx_edit,s_rqmtrl)

s_rqmtrl = Message.PowerObjectParm

IF s_rqmtrl.ifcfg[1] = 0 THEN RETURN

IF uo_ml_mrp.uof_edit_rqmtrl(s_rqmtrl, TRUE, arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	MessageBox(publ_operator,arg_msg)
ELSE
	MessageBox(publ_operator,"修改销售订单明细需求成功")
	wf_rtr_dw4()
END IF



end event

type cb_mod_buyrqmtrl from commandbutton within tabpage_4
integer x = 334
integer width = 329
integer height = 80
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改供应商"
end type

event clicked;GetParentWindow().triggerevent("ue_setspt")

//IF NOT f_power_ind(1478) THEN
//	MessageBox(publ_operator,'你没有使用权限！')
//	RETURN
//END IF
//
//
//Long ll_scid,ll_taskid,ll_printid
//String arg_msg
//dw_1.AcceptText()
//IF dw_1.GetRow() = 0 THEN RETURN 
//
//ll_scid = dw_1.Object.scid[dw_1.GetRow()]
//ll_taskid = dw_1.Object.taskid[dw_1.GetRow()]
//ll_printid = dw_1.Object.printid[dw_1.GetRow()]
// 
//
//s_order_ml_mrp s_ml_mrp,s_ch
//
//s_ml_mrp.scid = ll_scid
//s_ml_mrp.taskid = ll_taskid
//s_ml_mrp.printid = ll_printid 
//
//OpenWithParm(w_order_ml_spt_change,s_ml_mrp)
//
//wf_rtr_dw4() 
//
end event

type dw_4 from u_dw_rbtnfilter within tabpage_4
string tag = "未订货-红色   未进仓-蓝色   已完成-黑色"
integer y = 92
integer width = 3968
integer height = 464
integer taborder = 40
string dataobject = "dw_order_ml_reqmtrl_mx_2"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
END IF
end event

type tabpage_5 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3963
integer height = 756
long backcolor = 134217739
string text = "外协"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_5 cb_5
dw_5 dw_5
end type

on tabpage_5.create
this.cb_5=create cb_5
this.dw_5=create dw_5
this.Control[]={this.cb_5,&
this.dw_5}
end on

on tabpage_5.destroy
destroy(this.cb_5)
destroy(this.dw_5)
end on

type cb_5 from commandbutton within tabpage_5
integer width = 329
integer height = 80
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改需求数"
end type

event clicked;//运算后,没开外协订单前可以修改;
//逐条修改

IF NOT f_power_ind(1300) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

Int rslt = 1
Long ll_row, ll_mxrow
Long ll_scid,ll_taskid,ll_printid, ll_mxpkid
Decimal lde_consignedqty

String arg_msg
dw_1.AcceptText()

ll_row = dw_1.GetRow()
IF ll_row = 0 THEN RETURN
IF dw_1.Object.u_saletaskmx_scllflag[ll_row] <> 1 THEN
	arg_msg = '该销售订单明细未用料审核,不能使用此功能'
	rslt = 0
	GOTO ext
END IF

ll_scid = dw_1.Object.scid[ll_row]
ll_taskid = dw_1.Object.taskid[ll_row]
ll_printid = dw_1.Object.printid[ll_row]

ll_mxrow = dw_5.GetRow()
ll_mxpkid = dw_5.Object.u_orderrqmtrl_mxpkid[ll_mxrow]
lde_consignedqty = dw_5.Object.u_orderrqmtrl_consignedqty[ll_mxrow]
//lde_inqty

IF lde_consignedqty <> 0 THEN
	arg_msg = '当前明细外协已订货,不能修改用料'
	rslt = 0
	GOTO ext
END IF

s_order_ml_rqmtrl s_rqmtrl

s_rqmtrl.mxpkid[1] = ll_mxpkid
s_rqmtrl.scid[1] = ll_scid
s_rqmtrl.taskid[1] = ll_taskid
s_rqmtrl.printid[1] = ll_printid
s_rqmtrl.plantype[1] = 3

OpenWithParm(w_order_ml_mrp_mx_edit,s_rqmtrl)

s_rqmtrl = Message.PowerObjectParm

IF s_rqmtrl.ifcfg[1] = 0 THEN RETURN

IF uo_ml_mrp.uof_edit_rqmtrl(s_rqmtrl, TRUE, arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	MessageBox(publ_operator,arg_msg)
ELSE
	MessageBox(publ_operator,"修改销售订单明细需求成功")
	wf_rtr_dw5()
END IF



end event

type dw_5 from u_dw_rbtnfilter within tabpage_5
string tag = "未订货-红色   未进仓-蓝色   已完成-黑色"
integer y = 92
integer width = 3506
integer height = 464
integer taborder = 40
string dataobject = "dw_order_ml_reqmtrl_mx_3"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
END IF
end event

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3963
integer height = 756
long backcolor = 134217739
string text = "领料明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_4 cb_4
dw_2 dw_2
cb_c_woodcode cb_c_woodcode
cb_c_status cb_c_status
cb_c_pcode cb_c_pcode
end type

on tabpage_1.create
this.cb_4=create cb_4
this.dw_2=create dw_2
this.cb_c_woodcode=create cb_c_woodcode
this.cb_c_status=create cb_c_status
this.cb_c_pcode=create cb_c_pcode
this.Control[]={this.cb_4,&
this.dw_2,&
this.cb_c_woodcode,&
this.cb_c_status,&
this.cb_c_pcode}
end on

on tabpage_1.destroy
destroy(this.cb_4)
destroy(this.dw_2)
destroy(this.cb_c_woodcode)
destroy(this.cb_c_status)
destroy(this.cb_c_pcode)
end on

type cb_4 from commandbutton within tabpage_1
integer width = 329
integer height = 80
integer taborder = 110
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改需求数"
end type

event clicked;IF NOT f_power_ind(1300) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_scid,ll_taskid,ll_printid
String arg_msg
dw_1.AcceptText()
IF dw_1.GetRow() = 0 THEN RETURN
IF dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 1 THEN RETURN
IF dw_1.Object.u_saletaskmx_scllflag[dw_1.GetRow()] = 1 THEN
	MessageBox(publ_operator,'该计算订单明细已用料审核,不能换料')
	RETURN
END IF

ll_scid = dw_1.Object.scid[dw_1.GetRow()]
ll_taskid = dw_1.Object.taskid[dw_1.GetRow()]
ll_printid = dw_1.Object.printid[dw_1.GetRow()]

s_order_ml_mrp s_ml_mrp,s_ch
s_ml_mrp.scid = ll_scid
s_ml_mrp.taskid = ll_taskid
s_ml_mrp.printid = ll_printid
s_ml_mrp.dscrp = dw_1.Object.u_saletaskmx_mxdscrp[dw_1.GetRow()]

OpenWithParm(w_order_ml_mrp,s_ml_mrp)

wf_rtr_dw2() 
end event

type dw_2 from u_dw_rbtnfilter within tabpage_1
string tag = "未领完-红色   已完成-黑色"
integer y = 92
integer width = 3506
integer height = 464
integer taborder = 20
string dataobject = "dw_order_ml_reqmtrl_scll"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
END IF
end event

type cb_c_woodcode from commandbutton within tabpage_1
integer x = 603
integer width = 274
integer height = 80
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "换配置1"
end type

event clicked;if dw_1.GetRow() = 0 then return
IF dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 1 THEN RETURN
m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

menustr = "Text=换"+sys_option_change_woodcode+"~tEvent=ue_pz_woodcode_change"
menustr = menustr + "|" + "Text=清除"+sys_option_change_woodcode+"~tEvent=ue_pz_woodcode_clear"

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_c_status from commandbutton within tabpage_1
integer x = 329
integer width = 274
integer height = 80
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "换配置"
end type

event clicked;if dw_1.GetRow() = 0 then return
IF dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 1 THEN RETURN
m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=换"+sys_option_change_status+"~tEvent=ue_pz_status_change"
menustr = menustr + "|" + "Text=清除"+sys_option_change_status+"~tEvent=ue_pz_status_clear"

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_c_pcode from commandbutton within tabpage_1
integer x = 878
integer width = 274
integer height = 80
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "换配置2"
end type

event clicked;if dw_1.GetRow() = 0 then return
IF dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 1 THEN RETURN

m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

menustr = "Text=换"+sys_option_change_pcode+"~tEvent=ue_pz_pcode_change"
menustr = menustr + "|" + "Text=清除"+sys_option_change_pcode+"~tEvent=ue_pz_pcode_clear"

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 tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3963
integer height = 756
long backcolor = 134217739
string text = "工序工价"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_9 cb_9
cb_8 cb_8
cb_7 cb_7
cb_6 cb_6
dw_3 dw_3
end type

on tabpage_2.create
this.cb_9=create cb_9
this.cb_8=create cb_8
this.cb_7=create cb_7
this.cb_6=create cb_6
this.dw_3=create dw_3
this.Control[]={this.cb_9,&
this.cb_8,&
this.cb_7,&
this.cb_6,&
this.dw_3}
end on

on tabpage_2.destroy
destroy(this.cb_9)
destroy(this.cb_8)
destroy(this.cb_7)
destroy(this.cb_6)
destroy(this.dw_3)
end on

type cb_9 from commandbutton within tabpage_2
integer x = 823
integer width = 274
integer height = 84
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消完成"
end type

event clicked;IF NOT f_power_ind(1380) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

Long ll_row
Long ll_scid,ll_taskid,ll_printid
String ls_procode,arg_msg

ll_row = dw_3.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择工序')
	RETURN
END IF
  
ll_scid = dw_3.Object.u_orderrqwp_scid[ll_row]
ll_taskid = dw_3.Object.u_orderrqwp_taskid[ll_row]
ll_printid = dw_3.Object.u_orderrqwp_printid[ll_row]
ls_procode = dw_3.Object.u_orderrqwp_procode[ll_row]

IF uo_sale.uof_finish_procode_qty_dsr(ll_scid,ll_taskid,ll_printid,ls_procode,1,0,arg_msg,TRUE) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

MessageBox('提示','取消确认成功')

wf_rtr_dw3()







end event

type cb_8 from commandbutton within tabpage_2
integer x = 549
integer width = 274
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "完成工序"
end type

event clicked;IF Not f_power_ind(1379) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

Long ll_row
Long ll_scid,ll_taskid,ll_printid
String ls_procode,arg_msg

ll_row = dw_3.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请先选择工序')
	RETURN
END IF


s_dsr_finish_procode_qty ss_dsr_finish_procode_qty,rtn_dsr_finish_procode_qty
ss_dsr_finish_procode_qty.proqty = dw_3.Object.u_orderrqwp_proqty[ll_row]
ss_dsr_finish_procode_qty.finishqty = dw_3.Object.u_orderrqwp_fqty[ll_row]
ss_dsr_finish_procode_qty.name= string(dw_3.Object.u_orderrqwp_proname[ll_row])
IF ss_dsr_finish_procode_qty.proqty > ss_dsr_finish_procode_qty.finishqty THEN
	OpenWithParm(w_dsr_finish_procode_qty,ss_dsr_finish_procode_qty )
     rtn_dsr_finish_procode_qty = Message.PowerObjectParm
	
END IF



if rtn_dsr_finish_procode_qty.if_ok=0 then return

//rtn_dsr_finish_procode_qty.rtn_qty


ll_scid = dw_3.Object.u_orderrqwp_scid[ll_row]
ll_taskid = dw_3.Object.u_orderrqwp_taskid[ll_row]
ll_printid = dw_3.Object.u_orderrqwp_printid[ll_row]
ls_procode = dw_3.Object.u_orderrqwp_procode[ll_row]

IF uo_sale.uof_finish_procode_qty_dsr(ll_scid,ll_taskid,ll_printid,ls_procode,0,rtn_dsr_finish_procode_qty.rtn_qty,arg_msg,True) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

MessageBox('提示','确认成功')

wf_rtr_dw3()







end event

type cb_7 from commandbutton within tabpage_2
integer x = 274
integer width = 274
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改工序"
end type

event clicked;IF Not f_power_ind(1378) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_scid,ll_taskid,ll_printid,ll_mtrlid
String arg_msg
dw_1.AcceptText()
IF dw_1.GetRow() = 0 THEN
	MessageBox(publ_operator,'请选择订单明细')
	RETURN
END IF
IF Not (dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] = 1 &
	Or dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] = 5 &
	Or dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] = 6) THEN
	MessageBox(publ_operator,'订单明细生产状态在进行,完成才能编辑')
	RETURN
END IF
//IF dw_1.Object.u_saletaskmx_scllflag[dw_1.GetRow()] = 1 THEN
//	MessageBox(publ_operator,'该计算订单明细已用料审核,不能')
//	RETURN
//END IF

ll_scid = dw_1.Object.scid[dw_1.GetRow()]
ll_taskid = dw_1.Object.taskid[dw_1.GetRow()]
ll_printid = dw_1.Object.printid[dw_1.GetRow()]
ll_mtrlid = dw_1.Object.mtrlid[dw_1.GetRow()]

s_saletaskmx s_ml_mrp

s_ml_mrp.scid = ll_scid
s_ml_mrp.taskid = ll_taskid
s_ml_mrp.printid = ll_printid
s_ml_mrp.mtrlid = ll_mtrlid
s_ml_mrp.dscrp = dw_1.Object.u_saletaskmx_mxdscrp[dw_1.GetRow()]


OpenWithParm(w_order_ml_pro_mod,s_ml_mrp)

wf_rtr_dw3()

end event

type cb_6 from commandbutton within tabpage_2
integer width = 274
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "生成工序"
end type

event clicked;IF Not f_power_ind(1378) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


Long ll_scid,ll_taskid,ll_printid,ll_mtrlid
String arg_msg
dw_1.AcceptText()
IF dw_1.GetRow() = 0 THEN RETURN
//IF dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 1 and &
//dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 5 and & 
//dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 6 THEN
//	MessageBox(publ_operator,'当前订单明细未审核,不能生成工序')
//	RETURN
//END IF
//IF dw_1.Object.u_saletaskmx_scllflag[dw_1.GetRow()] = 1 THEN
//	MessageBox(publ_operator,'当前订单明细已用料审核,不能')
//	RETURN
//END IF

ll_scid = dw_1.Object.scid[dw_1.GetRow()]
ll_taskid = dw_1.Object.taskid[dw_1.GetRow()]
ll_printid = dw_1.Object.printid[dw_1.GetRow()]
ll_mtrlid = dw_1.Object.mtrlid[dw_1.GetRow()]

IF uo_sale.uof_order_add_pro(ll_scid,ll_taskid,ll_printid,arg_msg,True) = 0 THEN
	MessageBox('提示',arg_msg,information!,ok!)
	RETURN
END IF

wf_rtr_dw3()



end event

type dw_3 from u_dw_rbtnfilter within tabpage_2
integer y = 92
integer width = 3506
integer height = 464
integer taborder = 30
string dataobject = "dw_order_ml_procode_mx"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
END IF
end event

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3963
integer height = 756
long backcolor = 134217739
string text = "运算"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_mrpmx dw_mrpmx
end type

on tabpage_3.create
this.dw_mrpmx=create dw_mrpmx
this.Control[]={this.dw_mrpmx}
end on

on tabpage_3.destroy
destroy(this.dw_mrpmx)
end on

type dw_mrpmx from u_dw_rbtnfilter within tabpage_3
integer width = 3506
integer height = 548
string dataobject = "dw_order_ml_mrpmx"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
END IF
end event

type tabpage_6 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3963
integer height = 756
long backcolor = 134217739
string text = "自制"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_self dw_self
end type

on tabpage_6.create
this.dw_self=create dw_self
this.Control[]={this.dw_self}
end on

on tabpage_6.destroy
destroy(this.dw_self)
end on

type dw_self from u_dw_rbtnfilter within tabpage_6
integer width = 3506
integer height = 548
string dataobject = "dw_order_ml_mrp_self"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
END IF
end event

type cb_3 from uo_imflatbutton within w_order_ml
integer x = 1696
integer width = 251
integer height = 164
integer taborder = 80
boolean bringtotop = true
string text = "辅助功能"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=增加备注~tEvent=ue_addzy"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=修改用料~tEvent=ue_edit_mrp"
menustr = menustr + "|" + "Text=修改供应商~tEvent=ue_setspt"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=辅助建立增料单~tEvent=ue_create_rqmtrl_chng"
menustr = menustr + "|" + "Text=辅助建立采购订单~tEvent=ue_create_buytask"
//menustr = menustr + "|" + "Text=辅助建立外协订单~tEvent=ue_create_orderwfjg"
menustr = menustr + "|" + "Text=辅助建立领料出仓单~tEvent=ue_create_outware_scll"
menustr = menustr + "|" + "Text=辅助建立生产进仓单~tEvent=ue_create_inware_cp"


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_11 from uo_imflatbutton within w_order_ml
boolean visible = false
integer x = 3232
integer width = 462
integer height = 164
integer taborder = 90
boolean bringtotop = true
string text = "辅助建立采购订单"
string normalpicname = "other.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.TriggerEvent('ue_create_buytask')
end event

type cb_reccl from uo_imflatbutton within w_order_ml
integer x = 645
integer width = 274
integer height = 164
integer taborder = 90
boolean bringtotop = true
string text = "计算用料"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1300) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF
 

////////////////////////////////////
 //以下为修改内容

Long uc_row,i
String arg_msg
Long cnt_if_mrp
Int li_scllflag

uc_row = dw_1.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标生产计划!')
	RETURN
END IF

Long ll_scid,ll_taskid,ll_printid 
dw_1.AcceptText()
IF dw_1.GetRow() = 0 THEN RETURN
IF dw_1.Object.u_saletaskmx_flag[dw_1.GetRow()] <> 1 THEN RETURN
IF dw_1.Object.u_saletaskmx_scllflag[dw_1.GetRow()] = 1 THEN
	MessageBox(publ_operator,'该计算订单明细已用料审核,不能计算用料')
	RETURN
END IF

 

s_order_ml_mrp s_ml_mrp,s_ch 

s_ml_mrp.scid= dw_1.Object.scid[uc_row]
s_ml_mrp.taskid = dw_1.Object.taskid[uc_row]
s_ml_mrp.printid = dw_1.Object.printid[uc_row]
s_ml_mrp.dscrp = dw_1.Object.u_saletaskmx_mxdscrp[uc_row]

IF uo_ml_mrp.uof_check_dstrqty(s_ml_mrp.scid,s_ml_mrp.taskid,s_ml_mrp.printid,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

SELECT count(*) INTO :cnt_if_mrp
	FROM u_OrderRqMtrl_tree
	WHERE scid = :s_ml_mrp.scid
	AND taskid = :s_ml_mrp.taskid 
	and printid = :s_ml_mrp.printid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示','查询生产计划是否已运算失败,'+sqlca.SQLErrText)
	RETURN
END IF 

IF cnt_if_mrp > 0 THEN
	OpenWithParm(w_order_ml_mrp,s_ml_mrp)
ELSE
	Open(w_order_ml_mrp_ch)
	
	s_ch = Message.PowerObjectParm
	
	CHOOSE CASE s_ch.mrptype
		CASE 0
			RETURN
		CASE 1
			s_ch.scid = s_ml_mrp.scid
			s_ch.taskid = s_ml_mrp.taskid
			s_ch.printid = s_ml_mrp.printid
			s_ch.dscrp = s_ml_mrp.dscrp
			
			OpenWithParm(w_order_ml_mrp,s_ch)
		CASE 2
			s_order_ml_rqmtrl s_ref_mtrl
			
			uo_ml_mrp.ifbuy_mtrl_not_useqty = s_ch.ifbuy_mtrl_not_useqty
			uo_ml_mrp.ifwx_mtrl_not_useqty = s_ch.ifwx_mtrl_not_useqty
			
			IF uo_ml_mrp.uof_cmpl_rqmtrl(dw_1.Object.scid[uc_row],&
				dw_1.Object.taskid[uc_row],&
				dw_1.Object.printid[uc_row],&
				0,&
				dw_1.Object.mtrlid[uc_row],&
				dw_1.Object.u_saletaskmx_status[uc_row],&
				dw_1.Object.u_saletaskmx_woodcode[uc_row],&
				dw_1.Object.u_saletaskmx_pcode[uc_row],& 
				dw_1.Object.u_saletaskmx_orderqty[uc_row],&
				0,& 
				s_ch.if_allowuse,& 
				s_ref_mtrl,arg_msg,0,'') = 0 THEN
				MessageBox('提示','计算需求失败,'+arg_msg)
				RETURN
			END IF
			
			IF uo_ml_mrp.uof_add_rqmtrl(s_ref_mtrl,FALSE,arg_msg) = 0 THEN
				MessageBox('提示','保存物料需求表失败,'+arg_msg)
				RETURN
			END IF
			
			IF uo_ml_mrp.uof_add_rqmtrl_tree(s_ref_mtrl,FALSE,arg_msg) = 0 THEN
				MessageBox('提示','保存物料需求结构表失败,'+arg_msg)
				RETURN
			END IF
			
			IF uo_ml_mrp.uof_del_rqmtrl_scll(dw_1.Object.scid[uc_row],dw_1.Object.taskid[uc_row],dw_1.Object.printid[uc_row],FALSE,arg_msg) = 0 THEN
				MessageBox('提示','删除领料明细表失败,'+arg_msg)
				RETURN
			END IF
			
			IF uo_ml_mrp.uof_add_rqmtrl_scll(s_ref_mtrl,TRUE,arg_msg) = 0 THEN
				MessageBox('提示','保存领料明细表失败,'+arg_msg)
				RETURN
			END IF
	END CHOOSE
END IF


wf_rtr_dwmx()

end event

type cb_reccl_edit from uo_imflatbutton within w_order_ml
integer x = 919
integer width = 274
integer height = 164
integer taborder = 100
boolean bringtotop = true
string text = "修改用料"
string normalpicname = "open.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.TriggerEvent('ue_edit_mrp')
//IF NOT f_power_ind(1480) THEN
//	MessageBox(publ_operator,'你没有使用权限！')
//	RETURN
//END IF
//
//
//Long ll_scid,ll_taskid,ll_printid
//String arg_msg
//dw_1.AcceptText()
//IF dw_1.GetRow() = 0 THEN RETURN 
//IF dw_1.Object.u_saletaskmx_scllflag[dw_1.GetRow()] = 1 THEN
//	MessageBox(publ_operator,'该计算订单明细已用料审核')
//	RETURN
//END IF
//
//s_order_ml_mrp s_ml_mrp,s_ch
//ll_scid = dw_1.Object.scid[dw_1.GetRow()]
//ll_taskid = dw_1.Object.taskid[dw_1.GetRow()]
//ll_printid = dw_1.Object.printid[dw_1.GetRow()]
//
//s_ml_mrp.scid = ll_scid
//s_ml_mrp.taskid = ll_taskid
//s_ml_mrp.printid = ll_printid
//s_ml_mrp.dscrp = dw_1.Object.u_saletaskmx_mxdscrp[dw_1.GetRow()]
//
//OpenWithParm(w_order_ml_mod_tree,s_ml_mrp)
//
//wf_rtr_dwmx()
//
end event

type cbx_chk_zero from checkbox within w_order_ml
integer x = 1714
integer y = 324
integer width = 581
integer height = 60
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 = "用料审核检查0需求"
end type

event constructor;Int li_flag
li_flag = Integer(f_ProfileString (sys_empid,dw_1.DataObject, "if_chk_zero", '0'))
IF li_flag	 = 0 THEN
	THIS.Checked = FALSE
ELSE
	THIS.Checked = TRUE
END IF
end event

event clicked;Int li_flag

IF THIS.Checked THEN
	li_flag = 1
ELSE
	li_flag = 0
END IF

f_SetProfileString (sys_empid,dw_1.DataObject, "if_chk_zero", String(li_flag))

end event

type cb_viewprint from uo_imflatbutton within w_order_ml
integer x = 2203
integer width = 192
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "预览&P"
string normalpicname = "preview.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype
Long ls_dwprintid
String ls_windowname
Int ls_i
Long ll_billid
Int li_ifuse
Long ll_row
String Name,ll_rpname
Long ll_RpID,ll_flag,ll_ifuse

w_curwin = PARENT
ls_windowname = PARENT.ClassName ( )

SELECT billid,ifuse
	INTO :ll_billid,
	:li_ifuse
	FROM u_report_bill
	Where winName = :ls_windowname;
IF sqlca.SQLCode <> 0 THEN
	li_ifuse = 0
END IF

li_ifuse = 0 
IF li_ifuse = 0 THEN
	DECLARE dft_dwprint CURSOR FOR
		SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype
		FROM sys_dft_dwprint_dynamic
		WHERE dwtype = :ls_windowname
		AND ptype = 0 and ifuse = 1;
		
	OPEN dft_dwprint;
	FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_viewprint',0,0)
	ELSE
		m_dft_dwprint_item m_1
		m_1 = CREATE m_dft_dwprint_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			f_add_menuItem_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid))
			FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
			ls_i++
		LOOP
		CLOSE dft_dwprint;
		m_1.PopMenu(THIS.X+50,THIS.Y+50)
	END IF
ELSE
	DECLARE rpt_dwprint CURSOR FOR
		SELECT RpID,RpName,Flag,Ifuse
		FROM U_report_list
		WHERE billid = :ll_billid
		Order By RpName;
		
	OPEN rpt_dwprint;
	FETCH rpt_dwprint INTO  :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_rpt_viewprint',0,0)
	ELSE
		m_rpt_dwprint_item m_2
		m_2 = CREATE m_rpt_dwprint_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			
			IF f_pow_rpt(ll_RpID) AND ll_ifuse = 1 AND ll_flag = 1  THEN //权限检查f_pow_rpt( )
				f_add_menuItem_rpt(m_2,ls_i,ll_rpname,String(ll_RpID))
			END IF
			
			FETCH rpt_dwprint INTO   :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
			ls_i++
		LOOP
		CLOSE rpt_dwprint;
		m_2.Item[1].Visible = FALSE
		m_2.PopMenu(THIS.X+50,THIS.Y+50)
	END IF
END IF





end event

type st_5 from statictext within w_order_ml
integer x = 1861
integer y = 204
integer width = 343
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_salestatus from dropdownlistbox within w_order_ml
integer x = 2208
integer y = 192
integer width = 338
integer height = 860
integer taborder = 90
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_salestatus= -1
	case 2 //待销售审批
		cur_salestatus=0
	case 3 //在进行
		cur_salestatus=1
	case 4 //'已暂停'
		cur_salestatus=2
	case 5 //'已终止'
		cur_salestatus=3
	case 6 //'已完成'
		cur_salestatus=5
	case else
		cur_salestatus= -1
end choose

cb_1.TriggerEvent(Clicked!)
//parent.triggerevent("retrieve_pageretr")

end event