Q5/ws_objects/Ew_machining.pbl.src/w_order_wfjg.srw

$PBExportHeader$w_order_wfjg.srw
forward
global type w_order_wfjg from w_publ_1ton_share_detail
end type
type st_13 from statictext within w_order_wfjg
end type
type st_2 from statictext within w_order_wfjg
end type
type ddlb_scid from uo_ddlb_scid within w_order_wfjg
end type
type tab_1 from tab within w_order_wfjg
end type
type tabpage_1 from userobject within tab_1
end type
type dw_1 from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_1 dw_1
end type
type tabpage_2 from userobject within tab_1
end type
type dw_2 from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
dw_2 dw_2
end type
type tab_1 from tab within w_order_wfjg
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type
type st_3 from statictext within w_order_wfjg
end type
type em_1 from editmask within w_order_wfjg
end type
type cbx_autocmpl from checkbox within w_order_wfjg
end type
type cb_in_2_out from uo_imflatbutton within w_order_wfjg
end type
type ddlb_retrstatus from uo_ddlb_status within w_order_wfjg
end type
type cb_in from uo_imflatbutton within w_order_wfjg
end type
type cb_out from uo_imflatbutton within w_order_wfjg
end type
end forward

global type w_order_wfjg from w_publ_1ton_share_detail
integer width = 3689
integer height = 2580
string title = "外协订单"
boolean maxbox = true
windowstate windowstate = maximized!
event insert_childrow ( )
event insert_childrow_out ( )
event ue_cmpmx ( )
event ue_tempstoptask ( )
event ue_stopsaletask ( )
event ue_finishtask ( )
event ue_ctempstoptask ( )
event ue_fj_edit ( )
event ue_fj_view ( )
event ue_cfinishtask ( )
event ue_p_storageid_in ( )
event ue_p_storageid_out ( )
event ue_p_rqdate ( )
event ue_p_jgdscrp ( )
event ue_cmp_qty ( )
event ue_cmp_uqty ( )
event ue_allowedit_in ( )
event ue_allowedit_out ( )
event ue_cstopmx ( )
event ue_stopmx ( )
event ue_stopmx1 ( )
event ue_cstopmx1 ( )
event ue_create_wfjg_out ( )
event ue_f13 ( )
event ue_ch_banktype ( )
st_13 st_13
st_2 st_2
ddlb_scid ddlb_scid
tab_1 tab_1
st_3 st_3
em_1 em_1
cbx_autocmpl cbx_autocmpl
cb_in_2_out cb_in_2_out
ddlb_retrstatus ddlb_retrstatus
cb_in cb_in
cb_out cb_out
end type
global w_order_wfjg w_order_wfjg

type variables
Int cur_status = 0 
uo_order_wfjg uo_wfjg
uo_spt_price uo_sptprice

Int cur_flag = -1
Long cur_scid
//datawindow dw_in,dw_out

long child_column_int_out

datastore ds_copy_in,ds_copy_out
u_dw_rbtnfilter dw_in,dw_out
end variables

forward prototypes
public function integer wf_statusbtn_fc ()
public subroutine wf_autoaddmx (long arg_mtrlid[], decimal arg_qty[])
public function integer wf_refresh_curuc (long arg_scid, long arg_wfjgid)
public function integer wf_lock_child ()
public function integer wf_copy (ref string arg_msg)
public function integer wf_paste (ref string arg_msg)
public subroutine wf_check_billfj ()
public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg)
public function integer wf_in_to_out (ref string arg_msg)
public function integer wf_print_retrievedata (ref s_print_pic_list arg_s_pic, ref string arg_msg)
public function integer wf_refresh_interface ()
end prototypes

event insert_childrow();long li_row
li_row=dw_in.insertrow(0)
dw_in.scrolltorow(li_row)
dw_in.object.u_order_wfjgmx_iforder[li_row] = sys_option_autoyes
if li_row > 1 then
	dw_in.accepttext()
	dw_in.object.u_order_wfjgmx_storageid[li_row] = dw_in.object.u_order_wfjgmx_storageid[1]	
end if


dw_in.SetColumn ('u_order_wfjgmx_iforder')	
end event

event insert_childrow_out();long li_row
li_row=dw_out.insertrow(0)
dw_out.scrolltorow(li_row)
dw_out.object.u_order_wfjgmx_out_iforder[li_row] = sys_option_autoyes
if li_row > 1 then
	dw_out.accepttext()
	dw_out.object.u_order_wfjgmx_out_storageid[li_row] = dw_out.object.u_order_wfjgmx_out_storageid[1]	
end if

dw_in.SetColumn ('u_order_wfjgmx_iforder')	
end event

event ue_tempstoptask();IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!",information!,OK!)
	return
END IF

if not f_power_ind(43) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

string arg_msg=''
long pagerert_row

pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	messagebox('提示','请选定当前目标订单!',information!,OK!)
	return
end if

IF MessageBox ("询问","是否确定要对当前外加工计划作暂停操作吗?",Question!,YesNo! ) = 2 THEN RETURN

if uo_wfjg.tempstoptask(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row],arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
ELSE
	messagebox('提示',"外加工计划作暂停操作成功!",information!,OK!)
	if cur_status <> -1 then
		dw_pageretr.deleterow(pagerert_row)
	else		
		wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row])
	end if
end if
end event

event ue_stopsaletask();IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!",information!,OK!)
	return
END IF

if not f_power_ind(44) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

string arg_msg=''
long pagerert_row

pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	messagebox('提示','请选定当前目标外加工计划!',information!,OK!)
	return
end if

IF MessageBox ("询问","是否确定要对当前外加工计划作终止吗? (终止后外加工计划将归档只读)",Question!,YesNo! ) = 2 THEN RETURN

if uo_wfjg.stopbuytask(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row],arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
ELSE
	messagebox('提示','外加工计划终止操作成功!',information!,OK!)
	if cur_status <> -1 then
		dw_pageretr.deleterow(pagerert_row)
	else		
		wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row])
	end if
end if
end event

event ue_finishtask();IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!",information!,OK!)
	return
END IF

if not f_power_ind(981) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if


string arg_msg=''
long pagerert_row

pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	messagebox('提示','请选定当前目标外加工计划!',information!,OK!)
	return
end if


IF MessageBox ("询问","是否确定要对当前外加工计划作完成吗? (完成后外加工计划将归档只读)",Question!,YesNo! ) = 2 THEN RETURN

long ls_taskid
int ls_status,ls_finishflag
ls_taskid=dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row]
ls_status=dw_pageretr.object.u_order_wfjg_status[pagerert_row]

if ls_status = 6 then
	ls_finishflag = 1
else
	ls_finishflag = 6
end if
	

if uo_wfjg.finishtask(ls_finishflag,dw_pageretr.object.u_order_wfjg_scid[pagerert_row],ls_taskid,arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
else	
	messagebox('提示','外加工计划完成操作成功!',information!,OK!)		
	if cur_status <> -1 then
		dw_pageretr.deleterow(pagerert_row)
	else		
		wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row])
	end if
end if

end event

event ue_ctempstoptask();IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!",information!,OK!)
	return
END IF

if not f_power_ind(43) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

string arg_msg=''
long pagerert_row

pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	messagebox('提示','请选定当前目标订单!',information!,OK!)
	return
end if

IF MessageBox ("询问","是否确定要对当前外加工计划作取消暂停操作吗?",Question!,YesNo! ) = 2 THEN RETURN

if uo_wfjg.tempstoptask(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row],arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
ELSE
	messagebox('提示',"外加工计划作取消暂停操作成功!",information!,OK!)
	if cur_status <> -1 then
		dw_pageretr.deleterow(pagerert_row)
	else		
		wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row])
	end if
end if
end event

event ue_fj_edit();IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用',information!,OK!)
	RETURN
END IF

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

s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_uc.GetRow() 
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('提示','没有指定附件数据库连接'+arg_msg,information!,OK!)
	RETURN
END IF

s_pic.f_long = 213 //外协订单的mainID
s_pic.f_string = dw_uc.Object.u_order_wfjg_taskcode[ls_row]
s_pic.g_long = dw_uc.Object.u_order_wfjg_wfjgid[ls_row]
s_pic.e_long = dw_uc.Object.u_order_wfjg_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)
//wf_check_billfj()





end event

event ue_fj_view();IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用',information!,OK!)
	RETURN
END IF

s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_uc.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('错误','没有指定附件数据库连接'+arg_msg,stopsign!,OK!)
	RETURN
END IF

s_pic.f_long = 213 //外协订单的mainID
s_pic.f_string = dw_uc.Object.u_order_wfjg_taskcode[ls_row]
s_pic.g_long = dw_uc.Object.u_order_wfjg_wfjgid[ls_row]
s_pic.e_long = dw_uc.Object.u_order_wfjg_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)



end event

event ue_cfinishtask();IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!",information!,OK!)
	RETURN
END IF

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


String arg_msg = ''
Long pagerert_row

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	MessageBox('提示','请选定当前目标外加工计划!',information!,OK!)
	RETURN
END IF


IF MessageBox ("询问","是否确定要对当前外加工计划作取消完成吗? ",Question!,YesNo! ) = 2 THEN RETURN

Long ls_taskid
Int ls_status,ls_finishflag
ls_taskid = dw_pageretr.Object.u_order_wfjg_wfjgid[pagerert_row]
ls_status = dw_pageretr.Object.u_order_wfjg_status[pagerert_row]

IF ls_status = 6 THEN
	ls_finishflag = 1
ELSE
	ls_finishflag = 6
END IF


IF uo_wfjg.finishtask(ls_finishflag,dw_pageretr.Object.u_order_wfjg_scid[pagerert_row],ls_taskid,arg_msg,TRUE) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,OK!)
ELSE
	MessageBox('提示','外加工计划取消完成操作成功!',information!,OK!)
	IF cur_status <> -1 THEN
		dw_pageretr.DeleteRow(pagerert_row)
	ELSE
		wf_refresh_curuc(dw_pageretr.Object.u_order_wfjg_scid[pagerert_row],dw_pageretr.Object.u_order_wfjg_wfjgid[pagerert_row])
	END IF
END IF


end event

event ue_p_storageid_in();IF not dw_edit_mode THEN
	MessageBox('提示','非编辑状态下不可用',information!,OK!)
	RETURN
END IF

Long ll_i

dw_in.AcceptText()

IF dw_in.RowCount() = 0 THEN RETURN

FOR ll_i = 1 TO dw_in.RowCount()
	IF ll_i = 1 THEN CONTINUE
	IF dw_in.Object.u_order_wfjgmx_storageid[ll_i] = 0 THEN
		dw_in.Object.u_order_wfjgmx_storageid[ll_i] = dw_in.Object.u_order_wfjgmx_storageid[1]
	END IF
NEXT

end event

event ue_p_storageid_out();IF not dw_edit_mode THEN
	MessageBox('提示','非编辑状态下不可用',information!,OK!)
	RETURN
END IF

Long ll_i

dw_out.AcceptText()

IF dw_out.RowCount() = 0 THEN RETURN

FOR ll_i = 1 TO dw_out.RowCount()
	IF ll_i = 1 THEN CONTINUE
	IF dw_out.Object.u_order_wfjgmx_out_storageid[ll_i] = 0 THEN
		dw_out.Object.u_order_wfjgmx_out_storageid[ll_i] = dw_out.Object.u_order_wfjgmx_out_storageid[1]
	END IF
NEXT
end event

event ue_p_rqdate();IF NOT dw_edit_mode THEN
	MessageBox('提示','非编辑状态下不可用',information!,OK!)
	RETURN
END IF

Long ll_i

dw_in.AcceptText()

IF dw_in.RowCount() = 0 THEN RETURN

FOR ll_i = 1 TO dw_in.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_in.Object.u_order_wfjgmx_requiredate[ll_i] = dw_in.Object.u_order_wfjgmx_requiredate[1]
NEXT

end event

event ue_p_jgdscrp();IF NOT dw_edit_mode THEN
	MessageBox('提示','非编辑状态下不可用',information!,OK!)
	RETURN
END IF

Long ll_i

dw_in.AcceptText()

IF dw_in.RowCount() = 0 THEN RETURN

FOR ll_i = 1 TO dw_in.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_in.Object.u_order_wfjgmx_jgdscrp[ll_i] = dw_in.Object.u_order_wfjgmx_jgdscrp[1]
NEXT

end event

event ue_cmp_qty();IF NOT dw_edit_mode THEN RETURN
Long ll_i
dw_in.accepttext()
dw_out.accepttext()
dw_in.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_in.RowCount()
	IF dw_in.Object.u_order_wfjgmx_uqty[ll_i] > 0 AND dw_in.Object.u_order_wfjgmx_rate[ll_i] > 0 THEN
		dw_in.Object.u_order_wfjgmx_qty[ll_i] = round(dw_in.Object.u_order_wfjgmx_uqty[ll_i] * dw_in.Object.u_order_wfjgmx_rate[ll_i],sys_option_unit_dec)
	END IF
NEXT
dw_in.SetRedraw(TRUE)

dw_out.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_out.RowCount()
	IF dw_out.Object.u_order_wfjgmx_out_uqty[ll_i] > 0 AND dw_out.Object.u_order_wfjgmx_out_rate[ll_i] > 0 THEN
		dw_out.Object.u_order_wfjgmx_out_qty[ll_i] = round(dw_out.Object.u_order_wfjgmx_out_uqty[ll_i] * dw_out.Object.u_order_wfjgmx_out_rate[ll_i],sys_option_unit_dec)
	END IF
NEXT
dw_out.SetRedraw(TRUE)
end event

event ue_cmp_uqty();IF NOT dw_edit_mode THEN RETURN
Long ll_i
dw_in.accepttext()
dw_out.accepttext()
dw_in.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_in.RowCount()
	IF dw_in.Object.u_order_wfjgmx_qty[ll_i] > 0 AND dw_in.Object.u_order_wfjgmx_rate[ll_i] > 0 THEN
		dw_in.Object.u_order_wfjgmx_uqty[ll_i] = round(dw_in.Object.u_order_wfjgmx_qty[ll_i] / dw_in.Object.u_order_wfjgmx_rate[ll_i],sys_option_unit_dec)
	END IF
NEXT
dw_in.SetRedraw(TRUE)

dw_out.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_out.RowCount()
	IF dw_out.Object.u_order_wfjgmx_out_qty[ll_i] > 0 AND dw_out.Object.u_order_wfjgmx_out_rate[ll_i] > 0 THEN
		dw_out.Object.u_order_wfjgmx_out_uqty[ll_i] = round(dw_out.Object.u_order_wfjgmx_out_qty[ll_i] / dw_out.Object.u_order_wfjgmx_out_rate[ll_i],sys_option_unit_dec)
	END IF
NEXT
dw_out.SetRedraw(TRUE)
end event

event ue_allowedit_in();Long Columns
Int i
String ls_modify_str
Long ll_row
Long ll_value
Long ll_statusflag,ll_woodcodeflag,ll_pcodeflag
String ls_status,ls_woodcode,ls_pcode

String ls_data_type

ll_row = dw_in.GetRow()
IF ll_row <= 0 THEN RETURN

Columns = Long(dw_in.Describe("DataWindow.Column.Count"))

FOR i = 1 TO Columns
	ls_modify_str = dw_in.Describe("#" + String(i) + ".name")
	ls_modify_str = Lower(ls_modify_str)
	
	IF i = 1 THEN //第1个字段,约定物料ID
		ls_data_type = dw_in.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_value = dw_in.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'statusflag') > 0  THEN
		ls_data_type = dw_in.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_statusflag = dw_in.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcodeflag') > 0  THEN
		ls_data_type = dw_in.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_woodcodeflag = dw_in.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcodeflag') > 0  THEN
		ls_data_type = dw_in.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_pcodeflag = dw_in.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'status') > 0 AND Pos(ls_modify_str,'statusflag') = 0 AND Pos(ls_modify_str,'statustype') = 0  THEN
		IF Len(ls_modify_str) = Len('status') OR Pos(ls_modify_str,'_status') > 0 THEN
			IF Not (Pos(ls_modify_str,'u_saletask_status') > 0 OR &
				Pos(ls_modify_str,'u_buytask_status') > 0 OR &
				Pos(ls_modify_str,'u_order_ml_status') > 0 OR &
				Pos(ls_modify_str,'u_order_wfjg_status') > 0 OR &
				Pos(ls_modify_str,'u_rs_empinfo_status') > 0 ) THEN
				ls_status = ls_modify_str
			END IF
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcode') > 0 AND Pos(ls_modify_str,'woodcodeflag') = 0 AND Pos(ls_modify_str,'woodcodetype') = 0  THEN
		IF Len(ls_modify_str) = Len('woodcode') OR Pos(ls_modify_str,'_woodcode') > 0 THEN
			ls_woodcode = ls_modify_str
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcode') > 0 AND Pos(ls_modify_str,'pcodeflag') = 0 AND Pos(ls_modify_str,'pcodetype') = 0  THEN
		IF Len(ls_modify_str) = Len('pcode') OR Pos(ls_modify_str,'_pcode') > 0 THEN
			ls_pcode = ls_modify_str
		END IF
	END IF
	
NEXT

IF ls_status <> '' THEN
	IF ll_statusflag <> 0  OR ll_value = 0 THEN
		dw_in.Modify(ls_status+".dddw.allowedit = no")
	ELSE
		dw_in.Modify(ls_status+".dddw.allowedit = yes")
	END IF
END IF

IF ls_woodcode <> '' THEN
	IF ll_woodcodeflag <> 0 OR ll_value = 0  THEN
		dw_in.Modify(ls_woodcode+".dddw.allowedit = no")
	ELSE
		dw_in.Modify(ls_woodcode+".dddw.allowedit = yes")
	END IF
END IF

IF ls_pcode <> '' THEN
	IF ll_pcodeflag <> 0 OR ll_value = 0  THEN
		dw_in.Modify(ls_pcode+".dddw.allowedit = no")
	ELSE
		dw_in.Modify(ls_pcode+".dddw.allowedit = yes")
	END IF
END IF




end event

event ue_allowedit_out();Long Columns
Int i
String ls_modify_str
Long ll_row
Long ll_value
Long ll_statusflag,ll_woodcodeflag,ll_pcodeflag
String ls_status,ls_woodcode,ls_pcode

String ls_data_type

ll_row = dw_out.GetRow()
IF ll_row <= 0 THEN RETURN

Columns = Long(dw_out.Describe("DataWindow.Column.Count"))

FOR i = 1 TO Columns
	ls_modify_str = dw_out.Describe("#" + String(i) + ".name")
	ls_modify_str = Lower(ls_modify_str)
	
	IF i = 1 THEN //第1个字段,约定物料ID
		ls_data_type = dw_out.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_value = dw_out.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'statusflag') > 0  THEN
		ls_data_type = dw_out.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_statusflag = dw_out.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcodeflag') > 0  THEN
		ls_data_type = dw_out.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_woodcodeflag = dw_out.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcodeflag') > 0  THEN
		ls_data_type = dw_out.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_pcodeflag = dw_out.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'status') > 0 AND Pos(ls_modify_str,'statusflag') = 0 AND Pos(ls_modify_str,'statustype') = 0  THEN
		IF Len(ls_modify_str) = Len('status') OR Pos(ls_modify_str,'_status') > 0 THEN
			IF Not (Pos(ls_modify_str,'u_saletask_status') > 0 OR &
				Pos(ls_modify_str,'u_buytask_status') > 0 OR &
				Pos(ls_modify_str,'u_order_ml_status') > 0 OR &
				Pos(ls_modify_str,'u_order_wfjg_status') > 0 OR &
				Pos(ls_modify_str,'u_rs_empinfo_status') > 0 ) THEN
				ls_status = ls_modify_str
			END IF
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcode') > 0 AND Pos(ls_modify_str,'woodcodeflag') = 0 AND Pos(ls_modify_str,'woodcodetype') = 0  THEN
		IF Len(ls_modify_str) = Len('woodcode') OR Pos(ls_modify_str,'_woodcode') > 0 THEN
			ls_woodcode = ls_modify_str
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcode') > 0 AND Pos(ls_modify_str,'pcodeflag') = 0 AND Pos(ls_modify_str,'pcodetype') = 0  THEN
		IF Len(ls_modify_str) = Len('pcode') OR Pos(ls_modify_str,'_pcode') > 0 THEN
			ls_pcode = ls_modify_str
		END IF
	END IF
	
NEXT

IF ls_status <> '' THEN
	IF ll_statusflag <> 0  OR ll_value = 0 THEN
		dw_out.Modify(ls_status+".dddw.allowedit = no")
	ELSE
		dw_out.Modify(ls_status+".dddw.allowedit = yes")
	END IF
END IF

IF ls_woodcode <> '' THEN
	IF ll_woodcodeflag <> 0 OR ll_value = 0  THEN
		dw_out.Modify(ls_woodcode+".dddw.allowedit = no")
	ELSE
		dw_out.Modify(ls_woodcode+".dddw.allowedit = yes")
	END IF
END IF

IF ls_pcode <> '' THEN
	IF ll_pcodeflag <> 0 OR ll_value = 0  THEN
		dw_out.Modify(ls_pcode+".dddw.allowedit = no")
	ELSE
		dw_out.Modify(ls_pcode+".dddw.allowedit = yes")
	END IF
END IF




end event

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

IF dw_edit_mode THEN RETURN
IF NOT KeyDown(KeyControl!) THEN
	IF MessageBox ("询问","是否确定要取消中止当前明细吗?",Question!,YesNo! ) = 2 THEN RETURN
END IF

String arg_msg = ''
Long childrow,uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标订单!', Information!, OK! )
	RETURN
END IF

childrow = dw_in.GetRow()
IF childrow <= 0 THEN
	MessageBox('提示','请选定当前明细物料!', Information!, OK! )
	RETURN
END IF

Long ll_scid,ll_taskid,ll_printid
string ls_mtrlcode

ll_scid = dw_pageretr.object.u_order_wfjg_scid[uc_row]
ll_taskid = dw_pageretr.object.u_order_wfjg_wfjgid[uc_row]
ll_printid = dw_in.object.u_order_wfjgmx_printid[childrow]
ls_mtrlcode = dw_in.object.u_mtrldef_mtrlcode[childrow]

if uo_wfjg.stopmx(ll_scid,ll_taskid,ll_printid,ls_mtrlcode,0,'',0,arg_msg,true)=0 then
	messagebox('Error!',arg_msg)
ELSE	
	//日志
	long ls_id
	string ls_code
	ls_id=dw_pageretr.object.u_order_wfjg_wfjgid[uc_row]
	ls_code=dw_pageretr.object.u_order_wfjg_taskcode[uc_row]
	f_setsysoplog('外协订单','外协订单收货明细取消中止,id:'+string(ls_id)+',单号:'+ls_code+',物料:'+ls_mtrlcode,arg_msg,true)
	//--	
	
	MESSAGEBOX('提示','取消中止单据明细'+ls_mtrlcode+'成功!', Information!, OK! )
	
	this.TriggerEvent("retrieve_childdw")
end if


end event

event ue_stopmx();IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!", Information!, OK! )
	RETURN
END IF

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

String arg_msg = ''
Long childrow,uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标订单!', Information!, OK! )
	RETURN
END IF

childrow = dw_in.GetRow()
IF childrow <= 0 THEN
	MessageBox('提示','请选定当前明细物料!', Information!, OK! )
	RETURN
END IF


IF MessageBox ("询问","是否确定要中止当前明细吗?",Question!,YesNo! ) = 2 THEN RETURN


s_stopmx  s_stop
s_inputbox S_SREU

S_SREU.Title = '请输入原因'
S_SREU.OLD_TEXT = ''
OpenWithParm(w_inputbox_stop,S_SREU)
s_stop = Message.PowerObjectParm
IF Trim(s_stop.stopreason) = '' OR IsNull(s_stop.stopreason) THEN
	MessageBox('提示','请输入中止原因!', Information!, OK! )
	RETURN
END IF

Long ll_scid,ll_taskid,ll_printid
String ls_mtrlcode

ll_scid = dw_pageretr.Object.u_order_wfjg_scid[uc_row]
ll_taskid = dw_pageretr.Object.u_order_wfjg_wfjgid[uc_row]
ll_printid = dw_in.Object.u_order_wfjgmx_printid[childrow]
ls_mtrlcode = dw_in.Object.u_mtrldef_mtrlcode[childrow]

IF uo_wfjg.stopmx(ll_scid,ll_taskid,ll_printid,ls_mtrlcode,1,s_stop.stopreason,s_stop.stopqty,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE 
	//日志
	Long ls_id
	String ls_code
	ls_id = dw_pageretr.Object.u_order_wfjg_scid[uc_row]
	ls_code = dw_pageretr.Object.u_order_wfjg_taskcode[uc_row]
	f_setsysoplog('外协订单','外协订单收货明细中止,id:'+String(ls_id)+',单号:'+ls_code+',物料:'+ls_mtrlcode,arg_msg,TRUE)
	//--	
	
	MessageBox('提示','中止单据收货明细'+ls_mtrlcode+'成功!', Information!, OK! )
	
	THIS.TriggerEvent("retrieve_childdw")
	
	IF uo_wfjg.trycmplbuytask(ll_scid,ll_taskid,arg_msg,TRUE) = 0 THEN
		MessageBox('Error!',arg_msg)
	ELSE
		wf_refresh_curuc(ll_scid,ll_taskid)
	END IF
	
END IF




end event

event ue_stopmx1();IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!", Information!, OK! )
	return
END IF

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

String arg_msg = ''
Long childrow,uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标订单!', Information!, OK! )
	RETURN
END IF

childrow = dw_out.GetRow()
IF childrow <= 0 THEN
	MessageBox('提示','请选定当前明细物料!', Information!, OK! )
	RETURN
END IF


IF MessageBox ("询问","是否确定要中止当前明细吗?",Question!,YesNo! ) = 2 THEN RETURN


s_stopmx  s_stop
s_inputbox S_SREU

S_SREU.Title = '请输入原因'
S_SREU.OLD_TEXT = ''
OpenWithParm(w_inputbox_stop,S_SREU)
s_stop = Message.PowerObjectParm
IF Trim(s_stop.stopreason) = '' OR IsNull(s_stop.stopreason) THEN
	MessageBox('提示','请输入中止原因!', Information!, OK! )
	RETURN
END IF
 

Long ll_scid,ll_taskid,ll_printid
String ls_mtrlcode

ll_scid = dw_pageretr.object.u_order_wfjg_scid[uc_row]
ll_taskid = dw_pageretr.object.u_order_wfjg_wfjgid[uc_row]
ll_printid = dw_out.object.u_order_wfjgmx_out_printid[childrow]
ls_mtrlcode = dw_out.object.u_mtrldef_mtrlcode[childrow]

IF uo_wfjg.stopmx1(ll_scid,ll_taskid,ll_printid,ls_mtrlcode,1,s_stop.stopreason,s_stop.stopqty,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	//日志
	Long ls_id
	String ls_code
	ls_id = dw_pageretr.Object.u_order_wfjg_scid[uc_row]
	ls_code = dw_pageretr.Object.u_order_wfjg_taskcode[uc_row]
	f_setsysoplog('外协订单','外协订单发出明细中止,id:'+String(ls_id)+',单号:'+ls_code+',物料:'+ls_mtrlcode,arg_msg,TRUE)
	//--	
	
	MessageBox('提示','中止单据发出明细'+ls_mtrlcode+'成功!', Information!, OK! )
	
	this.TriggerEvent("retrieve_childdw")
END IF



end event

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

IF dw_edit_mode THEN RETURN
IF NOT KeyDown(KeyControl!) THEN
	IF MessageBox ("询问","是否确定要取消中止当前明细吗?",Question!,YesNo! ) = 2 THEN RETURN
END IF

String arg_msg = ''
Long childrow,uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标订单!', Information!, OK! )
	RETURN
END IF

childrow = dw_out.GetRow()
IF childrow <= 0 THEN
	MessageBox('提示','请选定当前明细物料!', Information!, OK! )
	RETURN
END IF

Long ll_scid,ll_taskid,ll_printid
string ls_mtrlcode

ll_scid = dw_pageretr.object.u_order_wfjg_scid[uc_row]
ll_taskid = dw_pageretr.object.u_order_wfjg_wfjgid[uc_row]
ll_printid = dw_out.object.u_order_wfjgmx_out_printid[childrow]
ls_mtrlcode = dw_out.object.u_mtrldef_mtrlcode[childrow]

if uo_wfjg.stopmx1(ll_scid,ll_taskid,ll_printid,ls_mtrlcode,0,'',0,arg_msg,true)=0 then
	messagebox('Error!',arg_msg)
ELSE	
	//日志
	long ls_id
	string ls_code
	ls_id=dw_pageretr.object.u_order_wfjg_wfjgid[uc_row]
	ls_code=dw_pageretr.object.u_order_wfjg_taskcode[uc_row]
	f_setsysoplog('外协订单','外协订单发出明细取消中止,id:'+string(ls_id)+',单号:'+ls_code+',物料:'+ls_mtrlcode,arg_msg,true)
	//--	
	
	MESSAGEBOX('提示','取消中止单据发出明细'+ls_mtrlcode+'成功!', Information!, OK! )
	
	this.TriggerEvent("retrieve_childdw")
end if

end event

event ue_create_wfjg_out();//辅助生成外协发出单
Int rslt = 1
String arg_msg
Long ll_row, i
Long ll_mtrlwareid
String ls_outwarecode
Long ll_mtrlid , ll_storageid, ll_scid
String ls_status, ls_woodcode, ls_pcode

uo_outware_wfjg uo_ware
uo_ware = CREATE uo_outware_wfjg
uo_ware.commit_transaction = sqlca

ll_row = dw_pageretr.GetRow()
IF ll_row <= 0 THEN
	rslt = 0
	arg_msg = "请选择外协订单"
	GOTO ext
END IF

ll_scid = dw_pageretr.Object.u_order_wfjg_scid[ll_row]

//初始化新建
IF uo_ware.newbegin(ll_scid,4,arg_msg) = 0 THEN
	rslt = 0
	arg_msg = "请选择外协订单"
	GOTO ext
END IF

//初始化主表参数
uo_ware.outdate = dw_pageretr.Object.u_order_wfjg_requiredate[ll_row]
uo_ware.outrep  = dw_pageretr.Object.u_order_wfjg_assign_emp[ll_row]
uo_ware.dscrp  = "外协订单辅助生成"

uo_ware.sptid  = dw_pageretr.Object.u_order_wfjg_sptid[ll_row]
uo_ware.part = dw_pageretr.Object.u_order_wfjg_taskcode[ll_row]

//初始化明细表参数
FOR i = 1 TO dw_out.RowCount()
	ll_mtrlid = dw_out.Object.u_order_wfjgmx_out_mtrlid[i]
	ll_storageid = dw_out.Object.u_order_wfjgmx_out_storageid[i]
	ls_status = dw_out.Object.u_order_wfjgmx_out_status[i]
	ls_woodcode = dw_out.Object.u_order_wfjgmx_out_woodcode[i]
	ls_pcode = dw_out.Object.u_order_wfjgmx_out_pcode[i]
	
	SELECT mtrlwareid
		INTO :ll_mtrlwareid
		FROM u_mtrlware
		WHERE storageid = :ll_storageid
		AND mtrlid = :ll_mtrlid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "行:"+String(i)+",查询对应的库存记录失败,"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	//查找库存
	IF ll_mtrlwareid = 0 OR IsNull(ll_mtrlwareid) THEN
		rslt = 0
		arg_msg = "行:"+String(i)+",不存在对应的库存记录"
		GOTO ext
	END IF
	
	
	IF uo_ware.acceptmx(ll_mtrlwareid,&
		dw_out.Object.u_order_wfjgmx_out_qty[i],&
		dw_out.Object.u_mtrldef_unit[i],&
		dw_out.Object.u_order_wfjgmx_out_qty[i],&
		dw_out.Object.u_order_wfjgmx_out_dscrp[i],&
		dw_out.Object.pid[i],&
		arg_msg,&
		1,&
		dw_out.Object.u_order_wfjgmx_out_wfjgid[i],&
		dw_out.Object.u_order_wfjgmx_out_printid[i],&
		1,&
		0,&
		'',&
		dw_out.Object.u_order_wfjgmx_out_dscrp2[i]) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
NEXT

//保存单据
IF uo_ware.Save(FALSE,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ls_outwarecode = uo_ware.outwarecode

////审核单据
//IF uo_ware.getinfo(ll_scid,uo_ware.outwareid,arg_msg) = 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//IF uo_ware.auditing(false,arg_msg) = 0 THEN
//	rslt = 0
//	GOTO ext
//END IF

ext:
DESTROY uo_ware
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('错误',arg_msg,stopsign!,OK!)
ELSE
	COMMIT;
	MessageBox('成功',"生成外协发出单成功,单号["+ls_outwarecode+"]")
END IF

RETURN





end event

event ue_f13();//引入销售订单明细
//dw_in.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
uo_spt_price uo_mtrl_spt_p
String arg_msg
Long child_row
Long ls_sptid
Decimal ls_price,ls_rebate
Long ll_storageid
dw_in.AcceptText()
child_row = dw_in.GetRow()
IF child_row <= 0 THEN
	child_row = dw_in.InsertRow(0)
END IF

ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
	THIS.TriggerEvent("ue_f9")
END IF

ll_storageid = dw_in.Object.u_order_wfjgmx_storageid[child_row]
IF ll_storageid = 0 THEN
	MessageBox('提示','请选择仓库',information!,OK!)
	RETURN
END IF

uo_mtrl_spt_p = CREATE uo_spt_price

THIS.Enabled = FALSE
dw_uc.AcceptText()
ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF NOT IsValid(w_order_wfjg_wfjgmx_ch3) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = local_retrieve_all //是否一次RETRIEVE所有行
	s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_tranf8.arg_pkid = 0 //目标定位PKID (备用)
	s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.if_select_all = TRUE //多选
	s_tranf8.e_long =  cur_scid
	
	Long chc = 1,ls_j
	IF dw_in.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_in.Object.u_mtrldef_mtrlcode[dw_in.GetRow()])
	OpenWithParm(w_order_wfjg_wfjgmx_ch3,s_tranf8) //调用
	
	s_mtrldef_wfjg_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值
			IF dw_in.GetRow() > 0 THEN
				IF dw_in.Object.u_order_wfjgmx_mtrlid[child_row] <> 0 THEN
					child_row = dw_in.InsertRow (0)
				ELSE
					child_row = dw_in.GetRow()
				END IF
			ELSE
				child_row = dw_in.InsertRow (0)
			END IF
			dw_in.Object.u_order_wfjgmx_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
			dw_in.Object.u_mtrldef_mtrlcode [child_row] = S_INSCUST.mtrlcode[ls_j]
			dw_in.Object.mtrlname[child_row] = S_INSCUST.mtrlname[ls_j]
			dw_in.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j]
			dw_in.Object.u_mtrldef_unit[child_row] = S_INSCUST.unit[ls_j]
			dw_in.Object.u_order_wfjgmx_qty[child_row] = S_INSCUST.qty[ls_j]
			dw_in.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.mtrlsectype[ls_j]
			dw_in.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.zxmtrlmode[ls_j]
			
			dw_in.Object.u_mtrldef_statusflag[child_row]  = S_INSCUST.statusflag[ls_j]
			dw_in.Object.u_mtrldef_woodcodeflag[child_row]  = S_INSCUST.woodcodeflag[ls_j]
			dw_in.Object.u_mtrldef_pcodeflag[child_row]  = S_INSCUST.pcodeflag[ls_j]
			
			dw_in.Object.u_order_wfjgMx_relprintid[child_row]  = S_INSCUST.relprintid[ls_j]
			dw_in.Object.u_order_wfjgMx_relcode[child_row]  = S_INSCUST.relcode[ls_j]
			dw_in.Object.u_order_wfjgMx_orderid[child_row]  = S_INSCUST.orderid[ls_j]
			dw_in.Object.u_order_wfjgMx_relid2[child_row]  = S_INSCUST.relid2[ls_j]
			
			dw_in.Object.u_order_wfjgmx_status[child_row]  = S_INSCUST.status[ls_j]
			dw_in.Object.u_order_wfjgmx_woodcode[child_row]  = S_INSCUST.woodcode[ls_j]
			dw_in.Object.u_order_wfjgmx_pcode[child_row]  = S_INSCUST.pcode[ls_j]
			dw_in.Object.u_order_wfjgmx_plancode[child_row]= S_INSCUST.plancode[ls_j]
			
			
			dw_in.Object.u_order_wfjgmx_dscrp[child_row]= S_INSCUST.dscrp[ls_j]
			dw_in.Object.u_order_wfjgmx_mxdscrp2[child_row]= S_INSCUST.mxdscrp2[ls_j]
			dw_in.Object.u_order_wfjgmx_mxdscrp3[child_row]= S_INSCUST.mxdscrp3[ls_j]
			dw_in.Object.u_order_wfjgmx_mxdscrp4[child_row]= S_INSCUST.mxdscrp4[ls_j]
			
			
			
			
			//导入价格
			Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate
			//			String arg_msg
			String ls_sptmtrlname
			String ls_1stunit,ls_status,ls_woodcode,ls_pcode
			
			ls_1stunit = '' //dw_in.Object.u_mtrldef_unit[child_row]
			ls_status = dw_in.Object.u_order_wfjgmx_status[child_row]
			ls_woodcode = dw_in.Object.u_order_wfjgmx_woodcode[child_row]
			ls_pcode = dw_in.Object.u_order_wfjgmx_pcode[child_row]
			
			IF uo_sptprice.uf_getmtrlsptprice(ls_sptid,S_INSCUST.mtrlid[ls_j],ls_1stunit,ls_status,ls_woodcode,ls_pcode,0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) <> 1 THEN
				IF S_INSCUST.planprice[ls_j] = 0 THEN
					dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.lmbuyprice[ls_j]
				ELSE
					dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.planprice[ls_j]
				END IF
				
			ELSE
				dw_in.Object.u_order_wfjgmx_price[child_row] = ls_1stnewcost
			END IF
		END IF
	NEXT
	THIS.TriggerEvent('ue_allowedit_in')
	dw_in.SetFocus()
	dw_in.SetColumn('u_order_wfjgmx_jgdscrp')
END IF
DESTROY uo_mtrl_spt_p

THIS.Enabled = TRUE
IF cbx_autocmpl.Checked THEN
	wf_in_to_out(arg_msg)
END IF





end event

event ue_ch_banktype();IF NOT IsValid(w_banktype_edit_ch) THEN
	s_edit_index_tran s_open //传递参数使用
	s_open.work_mode = 1
	s_open.c_long = 0
	Openwithparm(w_banktype_edit_ch, s_open)
	s_banktype s_ch
	s_ch = Message.PowerObjectParm
	IF s_ch.banktypeid > 0 THEN
		dw_uc.Object.u_order_wfjg_banktypeid[dw_uc.GetRow()] = s_ch.banktypeid
	END IF
	
	datawindowchild childdw
	dw_uc.GetChild("u_order_wfjg_banktypeid",childdw)
	childdw.SetTransObject (sqlca)
	childdw.Retrieve()
END IF
end event

public function integer wf_statusbtn_fc ();//wf_statusbtn_fc

IF dw_edit_mode THEN
	cb_auditing_cancel.Enabled = FALSE
	cb_auditing.Enabled = FALSE
	RETURN 0
END IF
Long ls_row,status
ls_row = dw_pageretr.GetRow()

IF NOT ls_row > 0 THEN
	cb_auditing_cancel.Enabled = FALSE
	cb_auditing.Enabled = FALSE
	RETURN 0
END IF
status = dw_pageretr.Object.u_order_wfjg_status[ls_row]
CHOOSE CASE status
	CASE 0
		cb_auditing_cancel.Enabled = FALSE
		cb_auditing.Enabled = TRUE
	CASE 1
		cb_auditing_cancel.Enabled = TRUE
		cb_auditing.Enabled = FALSE
	CASE 2
		cb_auditing_cancel.Enabled = FALSE
		cb_auditing.Enabled = FALSE
	CASE 3
		cb_auditing_cancel.Enabled = FALSE
		cb_auditing.Enabled = FALSE
	CASE 4
		cb_auditing_cancel.Enabled = FALSE
		cb_auditing.Enabled = FALSE
	CASE 5
		cb_auditing_cancel.Enabled = FALSE
		cb_auditing.Enabled = FALSE
	CASE 6
		cb_auditing_cancel.Enabled = FALSE
		cb_auditing.Enabled = FALSE
	CASE ELSE
		cb_auditing_cancel.Enabled = TRUE
		cb_auditing.Enabled = TRUE
END CHOOSE

RETURN 0

end function

public subroutine wf_autoaddmx (long arg_mtrlid[], decimal arg_qty[]);long p_rqmtrl,li
long child_row,ls_mtrlid
string ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode

dw_child.reset()
p_rqmtrl = upperbound(arg_mtrlid)

for li=1 to p_rqmtrl	
	ls_mtrlcode=''
	ls_mtrlname=''
	ls_unit=''
	ls_mtrlmode=''	
	ls_mtrlid = 0
	  
 	select u_mtrldef.mtrlcode, 
			 u_mtrldef.mtrlname, 
			 u_mtrldef.unit,
			 u_mtrldef.mtrlmode,
			 u_mtrldef.mtrlid	
	 into :ls_mtrlcode,:ls_mtrlname,:ls_unit,:ls_mtrlmode,:ls_mtrlid
	from u_mtrldef
	where ( u_mtrldef.mtrlid = :arg_mtrlid[li]);
	
	if sqlca.sqlcode =0 then
		child_row = dw_child.InsertRow (0)			
		dw_child.object.u_order_wfjgmx_mtrlid[child_row] = ls_mtrlid
		dw_child.object.u_mtrldef_mtrlcode[child_row] =ls_mtrlcode		
		dw_child.object.u_mtrldef_mtrlmode[child_row] =ls_mtrlmode
		dw_child.object.mtrlname[child_row] =ls_mtrlname
		dw_child.object.u_order_wfjgmx_qty[child_row] = arg_qty[li]
		dw_child.object.u_order_wfjgmx_iforder[child_row] = 0
	end if
next

// u_order_wfjgmx_iforder 
// u_mtrldef_mtrlcode
// u_order_wfjgmx_qty 
// u_mtrldef_mtrlmode 
// u_order_wfjgmx_mtrlid 
// mtrlname 
// u_mtrldef_unit 



end subroutine

public function integer wf_refresh_curuc (long arg_scid, long arg_wfjgid);//wf_refresh_curuc
int rslt = 1
if arg_wfjgid <= 0 or isnull(arg_wfjgid) then
	rslt = 0
	goto ext
end if

long uc_row
uc_row = dw_pageretr.getrow()
if uc_row <= 0 then
	rslt = 0
	goto ext
end if



datetime requiredate
string assign_emp
string dscrp
string taskcode
long sptid
datetime accomplishdate
int status
string operator
string permit_emp
datetime opdate
string last_emp
string u_spt_name
string sptcode
string finishemp
datetime moddate 
string modemp
datetime permit_date
int  billtype
int banktypeid 
select  u_order_wfjg.requiredate,
	u_order_wfjg.assign_emp,
	u_order_wfjg.dscrp,
	u_order_wfjg.taskcode,
	u_order_wfjg.sptid,
	u_order_wfjg.accomplishdate,
	u_order_wfjg.status,
	u_order_wfjg.opemp,
	u_order_wfjg.permit_emp,
	u_order_wfjg.opdate,
	u_spt.name,
	u_spt.sptcode,
	u_order_wfjg.finishemp,
	u_order_wfjg.moddate,
	u_order_wfjg.modemp,
	u_order_wfjg.permit_date,
	u_order_wfjg.billtype,
	u_order_wfjg.banktypeid 
	into	:requiredate,
	:assign_emp,
	:dscrp,
	:taskcode,
	:sptid,
	:accomplishdate,
	:status,
	:operator,
	:permit_emp,
	:opdate,
	:u_spt_name,
	:sptcode,
	:finishemp,
	:moddate,
	:modemp,
	:permit_date,
	:billtype,
	:banktypeid 
	from u_order_wfjg left outer join
	u_spt  on ( u_order_wfjg.sptid = u_spt.sptid )
	where ( u_order_wfjg.wfjgid = :arg_wfjgid )
	  and ( u_order_wfjg.scid = :arg_scid );
if sqlca.sqlcode <> 0 then
	messagebox('错误',"查询操作失败(错误外加工计划唯一码)",stopsign!,OK!)
	rslt = 0
	goto ext
end if
dw_pageretr.object.u_order_wfjg_scid[uc_row] = arg_scid
dw_pageretr.object.u_order_wfjg_wfjgid[uc_row] = arg_wfjgid
dw_pageretr.object.u_order_wfjg_requiredate[uc_row] = requiredate
dw_pageretr.object.u_order_wfjg_assign_emp[uc_row] = assign_emp
dw_pageretr.object.u_order_wfjg_dscrp[uc_row] = dscrp
dw_pageretr.object.u_order_wfjg_taskcode[uc_row] = taskcode
dw_pageretr.object.u_order_wfjg_sptid[uc_row] = sptid
dw_pageretr.object.u_order_wfjg_accomplishdate[uc_row] = accomplishdate
dw_pageretr.object.u_order_wfjg_status[uc_row] = status
dw_pageretr.object.u_order_wfjg_opemp[uc_row] = operator
dw_pageretr.object.u_order_wfjg_permit_emp[uc_row] = permit_emp
dw_pageretr.object.u_order_wfjg_opdate[uc_row] = opdate
dw_pageretr.object.u_spt_name[uc_row] = u_spt_name
dw_pageretr.object.sptcode[uc_row] = sptcode
dw_pageretr.object.u_order_wfjg_finishemp[uc_row] = finishemp
dw_pageretr.object.u_order_wfjg_moddate[uc_row] = moddate
dw_pageretr.object.u_order_wfjg_modemp[uc_row] = modemp
dw_pageretr.object.u_order_wfjg_permit_date[uc_row] = permit_date
dw_pageretr.object.u_order_wfjg_billtype[uc_row] = billtype
dw_pageretr.object.u_order_wfjg_banktypeid[uc_row] = banktypeid 
dw_uc.Reset()
dw_pageretr.RowsCopy(dw_pageretr.GetRow(),&
dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!)

dw_uc.ResetUpdate()
dw_uc.SetRedraw(TRUE)
this.postevent('retrieve_childdw')
ext:
wf_statusbtn_fc()
return rslt

end function

public function integer wf_lock_child ();//wf_lock_child
INT LS_INT
IF dw_edit_mode THEN
	FOR LS_INT=1 TO child_column_int
		dw_in.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
ELSE
	FOR LS_INT=1 TO child_column_int
		dw_in.SetTabOrder (LS_INT, 0)
	NEXT
END IF

IF dw_edit_mode THEN
	FOR LS_INT=1 TO child_column_int_out
		dw_out.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
ELSE
	FOR LS_INT=1 TO child_column_int_out
		dw_out.SetTabOrder (LS_INT, 0)
	NEXT
END IF

RETURN 1
end function

public function integer wf_copy (ref string arg_msg);Long rslt = 1
Long ll_rowcount,ll_rowcount1

ll_rowcount = dw_in.RowCount()
IF ll_rowcount <= 0 THEN
	rslt = 0
	arg_msg = '没有可复制的明细内容'
	GOTO ext
END IF

ll_rowcount1 = dw_out.RowCount()

ds_copy_in.Reset()
ds_copy_out.Reset()

IF dw_in.RowsCopy(1, ll_rowcount, Primary!, ds_copy_in, 1, Primary!) = - 1 THEN
	rslt = 0
	arg_msg = '复制收货明细内容失败！'
	GOTO ext
END IF

IF ll_rowcount1 > 0 THEN
	IF dw_out.RowsCopy(1, ll_rowcount1, Primary!, ds_copy_out, 1, Primary!) = - 1 THEN
		rslt = 0
		arg_msg = '复制发出明细内容失败！'
		GOTO ext
	END IF
END IF

ds_copy_in.AcceptText()
ds_copy_out.AcceptText()

ext:
RETURN rslt

end function

public function integer wf_paste (ref string arg_msg);Long rslt = 1

IF NOT dw_edit_mode THEN
	rslt = 0
	arg_msg = '非编辑状态下不可粘贴'
	GOTO ext
END IF

Long ll_rowcount,ll_rowcount1

ll_rowcount = ds_copy_in.RowCount()
IF ll_rowcount <= 0 THEN
	rslt = 0
	arg_msg = '没有可粘贴的收货明细内容'
	GOTO ext
END IF

ll_rowcount1 = ds_copy_out.RowCount()

dw_in.Reset()
dw_out.Reset()

IF ds_copy_in.RowsCopy(1, ll_rowcount, Primary!, dw_in, 1, Primary!) = - 1 THEN
	rslt = 0
	arg_msg = '粘贴收货明细内容失败！'
	GOTO ext
END IF

IF ll_rowcount1 > 0 THEN
	IF ds_copy_out.RowsCopy(1, ll_rowcount1, Primary!, dw_out, 1, Primary!) = - 1 THEN
		rslt = 0
		arg_msg = '粘贴发出明细内容失败！'
		GOTO ext
	END IF
END IF

ext:
RETURN rslt

end function

public subroutine wf_check_billfj ();String arg_msg
Long ll_ConnectionID
Long cur_billtype
long ll_relid,ll_relid_mx,ll_scid
Long ls_filecount = 0
Int rslt = 1

uo_fj_mng_billtype ls_uo_fjbt
ls_uo_fjbt = CREATE uo_fj_mng_billtype
 
Long row,uc_relid
row = dw_pageretr.GetRow()
IF row > 0 THEN
	ll_relid = dw_pageretr.Object.u_order_wfjg_wfjgid[row]
	ll_scid = dw_pageretr.Object.u_order_wfjg_scid[row]
	ll_relid_mx = 0
ELSE
	rslt = 0
	GOTO ext
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

cur_billtype = 213 //客户投拆单的 mainiD

ls_uo_fjbt.uf_check_billfj( cur_billtype, ll_relid,ll_relid_mx,ll_scid, sys_fileDB_sqlca, arg_msg, ls_filecount)

IF ls_filecount > 0 THEN
	rslt = 1
	GOTO ext
ELSE
	rslt = 0
	GOTO ext
END IF

ext:
 wf_encl(rslt)

DESTROY ls_uo_fjbt
end subroutine

public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg);//==============================================================================
// 函数: w_publ_1ton_share_detail::wf_xls_retrievedata()
//------------------------------------------------------------------------------
// 描述:  此函数需要 重载,复制祖先范例代码,然后修改retrieve参数部分两处即可
//------------------------------------------------------------------------------

Long LS_ROW,ll_id,i,ll_scid
LS_ROW = dw_uc.GetRow()
IF LS_ROW <= 0 THEN
	arg_msg = '没有目标单据!'
	RETURN 0
END IF

//修改点:获取 指定retriev参数
ll_id = dw_uc.Object.#1[LS_ROW]
ll_scid = dw_uc.Object.u_order_wfjg_scid[LS_ROW]

//查询所选模版是否含有图片信息
Long ll_ifpic
Long ll_classid
SELECT ifpic
	INTO :ll_ifpic
	FROM U_XLS_Templates
	Where id = :ll_xls_Templatesid;
IF sqlca.SQLCode <> 0 THEN
	ll_ifpic = 0
END IF

Long ll_i,ll_j
Long ll_mtrlid
Long ll_fileid

Blob ls_filedata
SetNull(ls_filedata)
String Pathname,ls_filename,ls_filetype
String errmsg
uo_fj_mng_billtype  ls_uo_fjbt
ls_uo_fjbt = CREATE uo_fj_mng_billtype

s_xls_pic_list s_pic //结构数组-用于保存图片路径

IF ll_ifpic = 1 THEN //如果含有图片信息,则查询本类型单据需要带出哪类附件

	SELECT classid
		INTO :ll_classid
		FROM u_billpic_fileclass
		Where (billtype = 213);
	IF sqlca.SQLCode <> 0 THEN
		ll_classid = 0
	END IF
	
	IF ll_classid > 0 THEN //如果已经指定好附件类型,则循环明细表查询每个明细的图片信息.
		FOR ll_i = 1 TO dw_in.RowCount()
			ll_mtrlid = dw_in.Object.u_order_wfjgmx_mtrlid[ll_i]
			//取该附件类型中的第一个附件.
			SELECT top 1 fileid,DisplayName,FileType INTO :ll_fileid,:ls_filename,:ls_filetype
				FROM u_file
				WHERE relid = :ll_mtrlid
				AND classid = :ll_classid
				AND (filetype = 'bmp' OR filetype = 'rle' OR filetype = 'wmf'
				OR filetype = 'tif' OR filetype = 'jpg' OR filetype = 'gif' OR filetype = 'jpeg')
				USING sys_fileDB_sqlca;
			IF sys_fileDB_sqlca.SQLCode <> 0 THEN
				ll_fileid = 0
			END IF
			IF ll_fileid > 0 THEN
				Pathname = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ls_filename+'.'+ls_filetype
				IF Trim(Pathname) <> '' THEN
					IF ls_uo_fjbt.uf_getfjbolb_fromdb( ll_fileid, ls_filedata, sys_fileDB_sqlca, arg_msg) = 0 THEN
						RETURN  0
					END IF
					
					IF f_saveblobtofile(ls_filedata,Pathname,errmsg) = 0 THEN
						RETURN 0
					ELSE
						
						s_pic.path[ll_i] = Pathname
						//记录临时文件位置,本窗口退出后删除
						wf_addlog_tempfilepathname(Pathname)
						
					END IF
				ELSE
					s_pic.path[ll_i] = ''
				END IF
			ELSE
				s_pic.path[ll_i] = ''
			END IF
		NEXT
	END IF
	//
END IF

////可选设置///
arg_obj_st.uo_const.create_new_pwd( )  //创建随机密码 
if sys_option_xls_ifuse_passwd = 1 then arg_obj_st.uo_const.pwd = trim(sys_option_xls_user_passwd)   //默认加密密码    默认为随即密码


boolean xls_locked
xls_locked = not (sys_option_xls_lock = 1)

/// Excel 的可选设置
if arg_obj_st.of_setoption(arg_ationid,  xls_locked,true,arg_msg) <> 1 then
		return 0
end if


for i = 1 to arg_str_billlist.count
	////可选操作///
	arg_str_billlist.bill[i].ds_data = create datastore                                  //
	arg_str_billlist.bill[i].ds_data.dataobject = arg_str_billlist.bill[i].datawindow       //
	arg_str_billlist.bill[i].ds_data.settransobject(sqlca)
	
	//修改点:注意retrieve 参数与上文对应
	arg_str_billlist.bill[i].ds_data.retrieve(ll_scid,ll_id)

next 

return 1
end function

public function integer wf_in_to_out (ref string arg_msg);Long rslt = 1

Int li_statusflag,li_woodcodeflag,li_pcodeflag
Long ll_statustype,ll_woodcodetype,ll_pcodetype
s_mtrldef_array arg_s_mtrldef


IF NOT dw_edit_mode THEN
	rslt = 0
	arg_msg = '非编辑状态不可用'
	GOTO ext
END IF

dw_in.AcceptText()
Long ll_dw_in_rowcount
Long ll_i,i = 1,ll_itmx,ll_j
Long ll_in_mtrlid
Decimal ld_qty
Long ll_row
String ls_pfcode
long li_round
string relcode[],taskcode[]

li_round = long(em_1.text)

s_mtrldef_wfjg_array s_wfjg

ll_dw_in_rowcount = dw_in.RowCount()
IF ll_dw_in_rowcount <= 0 THEN
	rslt = 0
	arg_msg = '没有明细内容'
	GOTO ext
END IF

dw_out.SetRedraw(FALSE)
dw_out.Reset()

FOR ll_i = 1 TO ll_dw_in_rowcount
	ll_in_mtrlid = dw_in.Object.u_order_wfjgmx_mtrlid[ll_i]	
	ld_qty = dw_in.Object.u_order_wfjgmx_qty[ll_i] 
	//messagebox("",ld_qty)
	DECLARE cur_inmx CURSOR FOR
		SELECT u_PrdPF.SonMtrlid,
		u_mtrldef.mtrlcode,
		u_mtrldef.mtrlname,
		u_mtrldef.mtrlmode,
		u_mtrldef.unit,
		u_mtrldef.mtrlsectype,
		u_mtrldef.zxmtrlmode,
		:ld_qty * u_prdpf.Sonscale / (1 - u_PrdPF.sonloss) + u_PrdPF.SonDECLoss
		FROM u_PrdPF INNER JOIN
		u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid
		WHERE ( u_PrdPF.mtrlid = :ll_in_mtrlid ) ;
	OPEN cur_inmx;
	FETCH cur_inmx INTO :s_wfjg.mtrlid[i],:s_wfjg.mtrlcode[i],
		:s_wfjg.mtrlname[i],:s_wfjg.mtrlmode[i],:s_wfjg.unit[i],
		:s_wfjg.mtrlsectype[i],:s_wfjg.zxmtrlmode[i],:s_wfjg.qty[i];
		
	DO WHILE sqlca.SQLCode = 0
		
		relcode[i] =  dw_in.Object.u_saletask_relcode[ll_i] 
		taskcode[i] = dw_in.Object.u_order_wfjgmx_relcode[ll_i] 
		i++
		FETCH cur_inmx INTO :s_wfjg.mtrlid[i],:s_wfjg.mtrlcode[i],
			:s_wfjg.mtrlname[i],:s_wfjg.mtrlmode[i],:s_wfjg.unit[i],
			:s_wfjg.mtrlsectype[i],:s_wfjg.zxmtrlmode[i],:s_wfjg.qty[i];
			
	LOOP
	CLOSE cur_inmx;
	
NEXT

ll_itmx = i  - 1

FOR ll_j = 1 TO ll_itmx
	ll_row = dw_out.GetRow()
	IF ll_row <= 0 THEN
		ll_row = dw_out.InsertRow(0)
	ELSE
		IF dw_out.Object.u_order_wfjgmx_out_mtrlid[ll_row] > 0 THEN
			ll_row = dw_out.InsertRow(0)
		END IF
	END IF
	
	dw_out.Object.u_order_wfjgmx_out_mtrlid[ll_row] = s_wfjg.mtrlid[ll_j]
	dw_out.Object.u_mtrldef_mtrlcode[ll_row] = s_wfjg.mtrlcode[ll_j]
	dw_out.Object.mtrlname[ll_row] = s_wfjg.mtrlname[ll_j]
	dw_out.Object.u_mtrldef_mtrlmode[ll_row] = s_wfjg.mtrlmode[ll_j]
	dw_out.Object.u_mtrldef_unit[ll_row] = s_wfjg.unit[ll_j]
	dw_out.Object.u_mtrldef_mtrlsectype[ll_row] = s_wfjg.mtrlsectype[ll_j]
	dw_out.Object.u_mtrldef_zxmtrlmode[ll_row] = s_wfjg.zxmtrlmode[ll_j]
	dw_out.Object.u_order_wfjgmx_out_qty[ll_row] = round(s_wfjg.qty[ll_j],li_round)
	dw_out.Object.u_order_wfjgmx_out_saletaskcode[ll_row] = taskcode[ll_j]
	dw_out.Object.u_saletask_relcode[ll_row] = relcode[ll_j]

	 
	IF f_find_mtrl(s_wfjg.mtrlcode[ll_j],-1,arg_s_mtrldef) = 0 THEN
		li_statusflag = 0
		li_woodcodeflag = 0
		li_pcodeflag = 0 
	ELSE
		li_statusflag = arg_s_mtrldef.statusflag[1] 
		li_woodcodeflag = arg_s_mtrldef.woodcodeflag[1] 
		li_pcodeflag = arg_s_mtrldef.pcodeflag[1] 
	END IF
	
	dw_out.Object.u_mtrldef_statusflag[ll_row]  = li_statusflag 
	dw_out.Object.u_mtrldef_woodcodeflag[ll_row]  = li_woodcodeflag 
	dw_out.Object.u_mtrldef_pcodeflag[ll_row]  = li_pcodeflag 
	
	
NEXT

this.triggerevent('ue_allowedit_out')
dw_out.SetRedraw(TRUE)

ext:
RETURN rslt







end function

public function integer wf_print_retrievedata (ref s_print_pic_list arg_s_pic, ref string arg_msg);Long LS_ROW,ll_id,i,ll_scid
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	arg_msg = '没有目标单据!'
	RETURN 0
END IF

//修改点:获取 指定retriev参数
ll_id = dw_pageretr.Object.#1[LS_ROW]
ll_scid = dw_pageretr.Object.u_order_wfjg_scid[LS_ROW]


Long ll_i,ll_j
Long ll_mtrlid
Long ll_fileid

Blob ls_filedata
SetNull(ls_filedata)
String Pathname,ls_filename,ls_filetype
String errmsg
uo_fj_mng_billtype  ls_uo_fjbt
ls_uo_fjbt = CREATE uo_fj_mng_billtype

Long ll_classid
SELECT classid
	INTO :ll_classid
	FROM u_billpic_fileclass
	Where (billtype = 102);
IF sqlca.SQLCode <> 0 THEN
	ll_classid = 0
END IF

IF ll_classid > 0 THEN //如果已经指定好附件类型,则循环明细表查询每个明细的图片信息.
	FOR ll_i = 1 TO dw_in.RowCount()
		ll_mtrlid = dw_in.Object.u_order_wfjgmx_mtrlid[ll_i]
		arg_s_pic.mtrlid[ll_i] = ll_mtrlid
		//取该附件类型中的第一个附件.
		SELECT top 1 fileid,DisplayName,FileType INTO :ll_fileid,:ls_filename,:ls_filetype
			FROM u_file
			WHERE relid = :ll_mtrlid
			AND classid = :ll_classid
			AND (filetype = 'bmp' OR filetype = 'rle' OR filetype = 'wmf'
			OR filetype = 'tif' OR filetype = 'jpg' OR filetype = 'gif' OR filetype = 'jpeg')
			USING sys_fileDB_sqlca;
		IF sys_fileDB_sqlca.SQLCode <> 0 THEN
			ll_fileid = 0
		END IF
		IF ll_fileid > 0 THEN
			Pathname = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ls_filename+'.'+ls_filetype
			IF Trim(Pathname) <> '' THEN
				IF ls_uo_fjbt.uf_getfjbolb_fromdb( ll_fileid, ls_filedata, sys_fileDB_sqlca, arg_msg) = 0 THEN
					RETURN  0
				END IF
				
				IF f_saveblobtofile(ls_filedata,Pathname,errmsg) = 0 THEN
					RETURN 0
				ELSE
					
					arg_s_pic.path[ll_i] = Pathname
					//记录临时文件位置,本窗口退出后删除
					wf_addlog_tempfilepathname(Pathname) 
				END IF
			ELSE
				arg_s_pic.path[ll_i] = ''
			END IF
		ELSE
			arg_s_pic.path[ll_i] = ''
		END IF
	NEXT
END IF
RETURN 1 
end function

public function integer wf_refresh_interface ();//wf_refresh_interface
IF dw_edit_mode THEN
	cb_retrieve.Enabled = FALSE
	cb_delet.Enabled = FALSE
	cb_print.Enabled = FALSE
	cb_viewprint.Enabled = FALSE
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Enabled = FALSE
	
	dw_pageretr.RBUTTON_FILTER_USE = FALSE //右键查询功能开关
	dw_pageretr.titleclick_sort_use = FALSE //单击标题排序功能开关
	dw_in.RBUTTON_SETPOSITION_USE = FALSE //定位
	dw_out.RBUTTON_SETPOSITION_USE = FALSE //定位
	
	cb_edit.Enabled = TRUE
	cb_add.Enabled = TRUE
	
	
	cb_xls.Enabled = FALSE
	
	cb_edit.Text = "放弃&E"
	cb_add.Text = "保存&S"
	cb_edit.normalpicname = 'Undo.bmp'
	cb_add.normalpicname = 'Save.bmp'
ELSE
	cb_retrieve.Enabled = TRUE
	cb_delet.Enabled = TRUE
	cb_print.Enabled = TRUE
	cb_viewprint.Enabled = TRUE
	cb_auditing.Enabled = TRUE
	cb_auditing_cancel.Enabled = TRUE
	
	cb_add.Enabled = TRUE
	cb_edit.Enabled = TRUE
	
	cb_xls.Enabled = TRUE
	
	dw_pageretr.RBUTTON_FILTER_USE = TRUE //右键查询功能开关
	dw_pageretr.titleclick_sort_use = TRUE //单击标题排序功能开关
	dw_in.RBUTTON_SETPOSITION_USE = TRUE //定位
	dw_out.RBUTTON_SETPOSITION_USE = TRUE //定位
	
	cb_edit.Text = "修改&E"
	cb_add.Text = "新建&S"
	cb_edit.normalpicname = 'OPEN.bmp'
	cb_add.normalpicname = 'new.bmp'
	
	IF dw_pageretr.GetRow() <= 0 THEN
		cb_edit.Enabled = FALSE
		cb_delet.Enabled = FALSE
		cb_addzy.Enabled = FALSE
		cb_auditing.Enabled = FALSE
	END IF
END IF


IF retrieve_all OR dw_edit_mode THEN
	cb_nextpage.Enabled = FALSE
	cb_retrieveall.Enabled = FALSE
	em_pagerowno.Enabled = FALSE
	cb_func.Enabled = FALSE
	IF dw_edit_mode THEN
		sle_usual_query.Enabled = FALSE
	ELSE
		sle_usual_query.Enabled = TRUE
	END IF
ELSE
	cb_nextpage.Enabled = TRUE
	cb_retrieveall.Enabled = TRUE
	em_pagerowno.Enabled = TRUE
	sle_usual_query.Enabled = TRUE
	cb_func.Enabled = TRUE
END IF

wf_lock_child()
//修改uc_taborder
IF dw_edit_mode THEN
	dw_uc.TriggerEvent("ue_taborder")
	
	IF dw_uc.ins_if_nomodify_uc_taborder THEN
		Long ll_uc_int
		FOR ll_uc_int = 1 TO uc_column_int
			dw_uc.SetTabOrder (ll_uc_int,ll_uc_int*10 )
		NEXT
	END IF
ELSE
	dw_uc.TriggerEvent("ue_taborder_cancel")
END IF

cb_edit.of_init_draw()
cb_add.of_init_draw()
cb_edit.of_paint()
cb_add.of_paint()
cb_add.TriggerEvent('ue_textchange')
cb_edit.TriggerEvent('ue_textchange')
ll_lastrow = 0
THIS.TriggerEvent('refresh_interface')

RETURN 1








end function

on w_order_wfjg.create
int iCurrent
call super::create
this.st_13=create st_13
this.st_2=create st_2
this.ddlb_scid=create ddlb_scid
this.tab_1=create tab_1
this.st_3=create st_3
this.em_1=create em_1
this.cbx_autocmpl=create cbx_autocmpl
this.cb_in_2_out=create cb_in_2_out
this.ddlb_retrstatus=create ddlb_retrstatus
this.cb_in=create cb_in
this.cb_out=create cb_out
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_13
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.ddlb_scid
this.Control[iCurrent+4]=this.tab_1
this.Control[iCurrent+5]=this.st_3
this.Control[iCurrent+6]=this.em_1
this.Control[iCurrent+7]=this.cbx_autocmpl
this.Control[iCurrent+8]=this.cb_in_2_out
this.Control[iCurrent+9]=this.ddlb_retrstatus
this.Control[iCurrent+10]=this.cb_in
this.Control[iCurrent+11]=this.cb_out
end on

on w_order_wfjg.destroy
call super::destroy
destroy(this.st_13)
destroy(this.st_2)
destroy(this.ddlb_scid)
destroy(this.tab_1)
destroy(this.st_3)
destroy(this.em_1)
destroy(this.cbx_autocmpl)
destroy(this.cb_in_2_out)
destroy(this.ddlb_retrstatus)
destroy(this.cb_in)
destroy(this.cb_out)
end on

event retrieve_pageretr;Boolean cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_func_enabled,cb_retrieve_enabled

cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled
cb_func_enabled = cb_func.Enabled


cb_nextpage.Enabled = FALSE
cb_retrieveall.Enabled = FALSE
cb_func.Enabled = FALSE


dw_uc.Retrieve() //dw_uc的dw改左select top 0 并肯不带参数
dw_pageretr.retrieve(cur_scid,cur_status,sys_user_spttype)
IF dw_pageretr.RowCount() > 0 THEN 
	dw_pageretr.SetRow(1)
	dw_pageretr.triggerevent(rowfocuschanged!)
end if

THIS.TriggerEvent('retrieve_childdw')


cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled
cb_func.Enabled = cb_func_enabled




end event

event open;THIS.TriggerEvent('ue_before_open')
wf_movetocenter()

OLD_TITLE = THIS.Title

s_tran = Message.PowerObjectParm
IF NOT IsNull(s_tran) THEN
	retrieve_all = s_tran.if_retrieve_all
	mode = s_tran.work_mode
	arg_pkid = s_tran.arg_pkid
	arg_string_code = s_tran.arg_string_code
	if_sharedata = s_tran.if_sharedata //是否应用sharedata，当retrieve_all＝true是生效
	ds_share = s_tran.ds_share
END IF

dw_pageretr.RBUTTON_FILTER_USE = TRUE //右键查询功能开关
dw_pageretr.titleclick_sort_use = TRUE  //单击标题排序功能开关

dw_pageretr.SetTransObject (sqlca)
pkcolumndbtname = wf_get_pkcolumndbtname(dw_pageretr) //取第一列为关键字

ori_oldselect = dw_pageretr.Describe("DataWindow.Table.Select")
ls_newselect = ori_oldselect
ds_curquery = CREATE DATASTORE
ds_curquery.DataObject = 'd_extr_find'
ds_curquery.SetTransObject (sqlca)

wf_editindex_lockf()

IF s_tran.d_long = 2 THEN
	cur_scid =  s_tran.c_long
	Int li_item
	li_item = ddlb_scid.FindItem(s_tran.d_string,0)
	IF li_item > 0 THEN
		ddlb_scid.SelectItem(li_item)
	END IF
END IF

sle_usual_query.Text = Trim(arg_string_code)
IF NOT retrieve_all THEN
	THIS.TriggerEvent("ue_usual_query_RETR") //修改ls_newselect,retrieve
ELSE
	IF  if_sharedata THEN
		ds_share.ShareData(dw_pageretr)
	ELSE
		wf_retrieveuc(dw_pageretr,ls_newselect,1)
		THIS.TriggerEvent('RETRIEVE_pageretr')
	END IF
END IF

IF retrieve_all THEN
	THIS.TriggerEvent("ue_usual_query_filt")
END IF

f_title_change(dw_child)

uc_column_int = 7 //uc dw前5列可以编辑
child_column_int = 18 //子 dw前3列可以编辑
child_column_int_out = 14 //子 dw前3列可以编辑

uo_wfjg = CREATE uo_order_wfjg
uo_wfjg.commit_transaction = sqlca

uo_sptprice = CREATE uo_spt_price

IF s_tran.d_long = 1 AND UpperBound(s_tran.arr_long) > 0 THEN
	cb_add.TriggerEvent(Clicked!)
	wf_autoaddmx(s_tran.arr_long[],s_tran.arr_dec[])
END IF

s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype'
f_hide_col(1308,dw_in,s_col_mtrlsectype)
f_hide_col(1308,dw_out,s_col_mtrlsectype)

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode'
f_hide_col(1309,dw_in,s_col_zxmtrlmode)
f_hide_col(1309,dw_out,s_col_zxmtrlmode)

s_hide_col s_col_price,s_null
s_col_price.col_1 = 'u_order_wfjgmx_price'
f_hide_col(121,dw_in,s_col_price)
s_col_price = s_null 
s_col_price.col_1 = 'u_order_wfjgmx_out_price'
f_hide_col(121,dw_out,s_col_price)


end event

event ue_f9;
if not dw_edit_mode then return
long uc_row
uc_row=dw_uc.getrow()
if uc_row=0 then
	messagebox('提示','请选定订单!',information!,OK!)
	return 
end if
dw_uc.accepttext()

this.enabled = false

if not isvalid(W_spt_edit) then 
	s_edit_index_tran s_ch_tran  //传递参数使用
	s_ch_tran.if_retrieve_all=false  //是否一次RETRIEVE所有行
	s_ch_tran.work_mode=1            //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid=0             //目标定位PKID (备用)
	//查询列(物料编码)部分内容,用于初步筛选
	s_ch_tran.arg_string_code=upper(trim(dw_uc.object.sptcode[dw_uc.getrow()]))

	OPENwithparm(W_spt_edit,s_ch_tran)  //调用

	S_spt S_INSCUST
	S_INSCUST=Message.PowerObjectParm  //接受返回结构

	IF S_INSCUST.sptid>0 THEN //正常返回值则可以取以下值
		dw_uc.setredraw(false)
		dw_uc.object.u_order_wfjg_sptid[uc_row]=S_INSCUST.sptid
		dw_uc.object.u_spt_name[uc_row]=S_INSCUST.name
		dw_uc.object.sptcode[uc_row]=S_INSCUST.sptcode
		dw_uc.setcolumn("u_order_wfjg_dscrp")
		dw_uc.setredraw(true)
		
	END IF
end if

this.enabled = true

end event

event ue_f8;call super::ue_f8;//用于选择明细内容,被F8[默认]\dw_in.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
uo_spt_price uo_mtrl_spt_p
Long child_row
Long ls_sptid
Decimal ls_price,ls_rebate
Long ll_storageid
String arg_msg
dw_in.AcceptText()
child_row = dw_in.GetRow()
IF child_row <= 0 THEN
	child_row = dw_in.InsertRow(0)
END IF

ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
	THIS.TriggerEvent("ue_f9")
END IF

ll_storageid = dw_in.Object.u_order_wfjgmx_storageid[child_row]
IF ll_storageid = 0 THEN
	MessageBox('提示','请选择仓库',information!,OK!)
	RETURN
END IF

uo_mtrl_spt_p = CREATE uo_spt_price

THIS.Enabled = FALSE
dw_uc.AcceptText()
ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF NOT IsValid(W_mtrldef_edit) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = FALSE //是否一次RETRIEVE所有行
	s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_tranf8.arg_pkid = 0 //目标定位PKID (备用)
	s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.if_select_all = TRUE //多选
	s_tranf8.b_long = 3 //选加工
	s_tranf8.c_long = ll_storageid
	
	Long chc = 1,ls_j
	IF dw_in.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_in.Object.u_mtrldef_mtrlcode[dw_in.GetRow()])
	OpenWithParm(W_mtrldef_edit,s_tranf8) //调用
	
	s_mtrldef_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值
			IF dw_in.Find('u_order_wfjgmx_mtrlid='+String(S_INSCUST.mtrlid[ls_j]),1,dw_in.RowCount()) = 0 THEN
				IF dw_in.GetRow() > 0 THEN
					IF dw_in.Object.u_order_wfjgmx_mtrlid[child_row] <> 0 THEN
						child_row = dw_in.InsertRow (0)
					ELSE
						child_row = dw_in.GetRow()
					END IF
				ELSE
					child_row = dw_in.InsertRow (0)
				END IF
				dw_in.Object.u_order_wfjgmx_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
				dw_in.Object.u_mtrldef_mtrlcode [child_row] = S_INSCUST.mtrlcode[ls_j]
				dw_in.Object.mtrlname[child_row] = S_INSCUST.mtrlname[ls_j]
				dw_in.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j]
				dw_in.Object.u_mtrldef_unit[child_row] = S_INSCUST.unit[ls_j]
				dw_in.Object.u_order_wfjgmx_qty[child_row] = 0
				dw_in.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.mtrlsectype[ls_j]
				dw_in.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.zxmtrlmode[ls_j]
				
				dw_in.Object.u_mtrldef_statusflag[child_row]  = S_INSCUST.statusflag[ls_j]
				dw_in.Object.u_mtrldef_woodcodeflag[child_row]  = S_INSCUST.woodcodeflag[ls_j]
				dw_in.Object.u_mtrldef_pcodeflag[child_row]  = S_INSCUST.pcodeflag[ls_j]
				
				dw_in.Object.u_order_wfjgmx_status[child_row]  = S_INSCUST.status[ls_j]
				dw_in.Object.u_order_wfjgmx_woodcode[child_row]  = S_INSCUST.woodcode[ls_j]
				dw_in.Object.u_order_wfjgmx_pcode[child_row]  = S_INSCUST.pcode[ls_j]
								
				dw_in.Object.u_mtrldef_mtrltype[child_row] = S_INSCUST.mtrltype[ls_j]
				dw_in.Object.u_mtrldef_handtype[child_row] = S_INSCUST.handtype[ls_j]
				
				//导入价格
				Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate
				//			String arg_msg
				String ls_sptmtrlname
				String ls_1stunit,ls_status,ls_woodcode,ls_pcode
				
				ls_1stunit = '' //dw_in.Object.u_mtrldef_unit[child_row]
				ls_status = dw_in.Object.u_order_wfjgmx_status[child_row]
				ls_woodcode = dw_in.Object.u_order_wfjgmx_woodcode[child_row]
				ls_pcode = dw_in.Object.u_order_wfjgmx_pcode[child_row]
				
				IF uo_sptprice.uf_getmtrlsptprice(ls_sptid,S_INSCUST.mtrlid[ls_j],ls_1stunit,ls_status,ls_woodcode,ls_pcode,0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) <> 1 THEN
					IF S_INSCUST.planprice[ls_j] = 0 THEN
						dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.lmbuyprice[ls_j]
					ELSE
						dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.planprice[ls_j]
					END IF
					//				dw_in.Object.u_order_wfjgmx_rebate[child_row]     = 1
					//				IF S_INSCUST.unit_buy[ls_j] = '' THEN
					//					dw_in.Object.u_order_wfjgmx_rate[child_row]     = 1
					//					dw_in.Object.u_order_wfjgmx_unit[child_row]   = S_INSCUST.unit[ls_j]
					//				ELSE
					//					dw_in.Object.u_order_wfjgmx_rate[child_row]     = S_INSCUST.rate_buy[ls_j]
					//					dw_in.Object.u_order_wfjgmx_unit[child_row]   = S_INSCUST.unit_buy[ls_j]
					//				END IF
					
				ELSE
					dw_in.Object.u_order_wfjgmx_price[child_row] = ls_1stnewcost
					//				IF ls_1stzqrate = 0 THEN
					//					dw_in.Object.u_order_wfjgmx_rebate[child_row]     = 1
					//				ELSE
					//					dw_in.Object.u_order_wfjgmx_rebate[child_row]     = ls_1stzqrate
					//				END IF
					//				dw_in.Object.u_order_wfjgmx_rate[child_row]     = ls_1strate
					//				dw_in.Object.u_order_wfjgmx_unit[child_row]   = ls_1stunit
				END IF
				
			END IF
		END IF
	NEXT
	THIS.TriggerEvent('ue_allowedit_in')
	dw_in.SetFocus()
	dw_in.SetColumn('u_order_wfjgmx_jgdscrp')
END IF
DESTROY uo_mtrl_spt_p

THIS.Enabled = TRUE
IF cbx_autocmpl.Checked THEN
	wf_in_to_out(arg_msg)
END IF





end event

event refresh_interface;call super::refresh_interface;ddlb_retrstatus.enabled=not dw_edit_mode
ddlb_scid.enabled=not dw_edit_mode
cb_in_2_out.Enabled = dw_edit_mode
wf_statusbtn_fc()

end event

event retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid,uc_scid
row = dw_pageretr.GetRow()
IF row > 0 THEN
	uc_scid = dw_pageretr.Object.u_order_wfjg_scid[row]
	uc_relid = dw_pageretr.Object.u_order_wfjg_wfjgid[row]
	dw_in.SetRedraw (FALSE)
	dw_in.Retrieve(uc_scid,uc_relid)
	dw_in.SetRedraw (TRUE)
	dw_out.SetRedraw (FALSE)
	dw_out.Retrieve(uc_scid,uc_relid)
	dw_out.SetRedraw (TRUE)
ELSE
	dw_in.Reset()
	dw_out.Reset()
END IF


end event

event close;//f_SetProfileString (sys_empid, "wfjg", "status", string(cur_status))
destroy uo_wfjg
wf_del_tempfilepathname()
end event

event ue_usual_query_filt;call super::ue_usual_query_filt;string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	IF POS(trim(sle_usual_query.text),'%')=0 THEN
		obj_expr=obj_expr+'( u_order_wfjg_taskcode LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( u_order_wfjg_taskcode LIKE "'+trim(sle_usual_query.text)+'" )'
	END IF 
end if

dw_pageretr.setfilter(obj_expr)

dw_pageretr.SetRedraw(False)
dw_pageretr.filter()
if dw_pageretr.rowcount()>=1 then
	dw_pageretr.selectrow(0,false)
	dw_pageretr.selectrow(1,true)
	dw_pageretr.SetRow(1)
	dw_pageretr.triggerevent(rowfocuschanged!)
end if
dw_pageretr.SetRedraw(TRUE)
end event

event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart=''
ls_newselect=lower(ori_oldselect)
if trim(sle_usual_query.text)<>'' then
	if pos(trim(sle_usual_query.text),'%')=0 then
		ls_querystrpart="(u_order_wfjg.taskcode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(u_order_wfjg.taskcode like '"+trim(sle_usual_query.text)+"')"
	end if

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
wf_retrieveuc(dw_pageretr,ls_newselect,1)  
this.triggerevent('retrieve_pageretr')

end event

event ue_viewprint;call super::ue_viewprint;if not f_power_ind(391) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

lONG LS_ROW
LS_ROW=dw_pageretr.getrow()
IF LS_ROW<=0 THEN 
	MESSAGEBOX('提示','没有打印目标单据!',information!,OK!)
	RETURN
END IF

if dw_pageretr.object.u_order_wfjg_status[ls_row] < 1 then
	MESSAGEBOX('提示','目标单据还未审核,不能打印!',information!,OK!)
	RETURN
END IF
	
S_print_MSG LS_PRMSG

IF ls_newname <> '' THEN
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_order_wfjg_status[dw_pageretr.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_wfjg_print'
END IF

LS_PRMSG.TAG_TEXT='外加工计划'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg=15
LS_PRMSG.PAGECH_FLAG=0
LS_PRMSG.retr_scid=dw_pageretr.object.u_order_wfjg_scid[LS_ROW]
LS_PRMSG.retr_pramnmb=dw_pageretr.object.u_order_wfjg_wfjgid[LS_ROW]
LS_PRMSG.rowcnt = dw_in.rowcount()
IF ifpic = 1 THEN
	String ls_msg
	IF wf_print_retrievedata(LS_PRMSG.s_pic,ls_msg) = 0 THEN
		MessageBox('提示','下载图片失败!',information!,OK!)
		RETURN
	END IF 
END IF
Openwithparm(w_publ_preview,LS_PRMSG)
IF ifpic = 1 THEN
	Long li
	FOR li = 1 TO  UpperBound(LS_PRMSG.s_pic.path)
		IF Len(Trim(LS_PRMSG.s_pic.path[li])) > 0  THEN
			FileDelete(LS_PRMSG.s_pic.path[li])
		END IF
	NEXT
END IF
//**更新打印次料
string arg_msg
printnum = message.doubleparm
f_update_printnum('u_order_wfjg',printnum,dw_pageretr.object.u_order_wfjg_scid[LS_ROW],dw_pageretr.object.u_order_wfjg_wfjgid[LS_ROW],'','',arg_msg,true)
end event

event ue_print;call super::ue_print;//--直接打印
IF NOT f_power_ind(391) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

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

IF dw_pageretr.RowCount() = 0 THEN
	MessageBox('提示','没有可打印的单据！',information!,OK!)
	RETURN
END IF

IF dw_pageretr.Object.u_order_wfjg_status[dw_pageretr.GetRow()] < 1 THEN
	MessageBox('提示','目标单据还未审核,不能打印!',information!,OK!)
	RETURN
END IF

IF ls_newname <> '' THEN
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_order_wfjg_status[dw_pageretr.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_wfjg_print'
END IF


LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.TAG_TEXT = '外加工计划'

LS_PRMSG.FILTER_STRING = ''

LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = dw_pageretr.Object.u_order_wfjg_scid[dw_pageretr.GetRow()]
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_wfjgid[dw_pageretr.GetRow()]
LS_PRMSG.rowcnt = dw_in.rowcount()
IF ifpic = 1 THEN
	String ls_msg
	IF wf_print_retrievedata(LS_PRMSG.s_pic,ls_msg) = 0 THEN
		MessageBox('提示','下载图片失败!',information!,OK!)
		RETURN
	END IF 
END IF
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()
IF ifpic = 1 THEN
	Long li
	FOR li = 1 TO  UpperBound(LS_PRMSG.s_pic.path)
		IF Len(Trim(LS_PRMSG.s_pic.path[li])) > 0  THEN
			FileDelete(LS_PRMSG.s_pic.path[li])
		END IF
	NEXT
END IF
//**更新打印次料
f_update_printnum('u_buytask',1,dw_pageretr.Object.u_order_wfjg_scid[dw_pageretr.GetRow()],dw_pageretr.Object.u_order_wfjg_wfjgid[dw_pageretr.GetRow()],'','',arg_msg,TRUE)







end event

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

Long w_width,w_height
w_width = 3602
w_height = 2300

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

//dw_child.Width = THIS.Width - (w_width - dw_child_w)
//dw_child.Height = THIS.Height - (w_height - dw_child_h)
//dw_pageretr.Width = THIS.Width - (w_width - dw_pageretr_w)


//==============================================================================
//YYX081007
//==============================================================================

IF uc_width > 0 THEN
	dw_uc.Width = uc_width
END IF

IF uc_height > 0 THEN
	dw_uc.Height = uc_height
END IF

dw_pageretr.X = dw_uc.X + dw_uc.Width
dw_pageretr.Width = THIS.Width - dw_pageretr.X - 40
dw_pageretr.Height =   dw_uc.Height

tab_1.Y =  dw_uc.Y + dw_uc.Height + 4
tab_1.Width = THIS.Width - tab_1.X - 40
tab_1.Height = THIS.Height - tab_1.Y - 150


dw_in.Width = THIS.Width - (3602 - 3515)
dw_in.Height = tab_1.Height - 130

dw_out.Width = THIS.Width - (3602 - 3515)
dw_out.Height = tab_1.Height - 130
this.triggerevent('resize_p')

cbx_autocmpl.y = tab_1.y + 24
cb_in_2_out.y = tab_1.y + 8
em_1.y = tab_1.y + 7
st_3.y = tab_1.y + 24

cb_in.y=cb_in_2_out.y
cb_out.y=cb_in_2_out.y

end event

event ue_before_open;call super::ue_before_open;//IF sys_version_type = 2 THEN
//	dw_uc.DataObject = 'dw_order_wfjg_input2'
//	dw_uc.SetTransObject(sqlca)
//	
//	dw_pageretr.DataObject = 'dw_order_wfjg_index2'
//	dw_pageretr.SetTransObject(sqlca)
//END IF
//


dw_in = tab_1.tabpage_1.dw_1
dw_out = tab_1.tabpage_2.dw_2
dw_in.settransobject(sqlca)
dw_out.settransobject(sqlca)

ds_copy_in = CREATE datastore
ds_copy_in.DataObject = dw_in.dataobject
ds_copy_in.SetTransObject(sqlca)

ds_copy_out = CREATE datastore
ds_copy_out.DataObject = dw_out.dataobject
ds_copy_out.SetTransObject(sqlca)
end event

event ue_f11;call super::ue_f11;//用于选择明细内容,被F8[默认]\dw_out.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN

Long child_row
Long ls_sptid
Long ll_storageid
dw_out.AcceptText()
child_row = dw_out.GetRow()

IF child_row <= 0 THEN
	child_row = dw_out.InsertRow(0)
END IF

ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
	THIS.TriggerEvent("ue_f9")
END IF

ll_storageid = dw_out.Object.u_order_wfjgmx_out_storageid[child_row]
IF ll_storageid = 0 THEN
	MessageBox('提示','请选择仓库',information!,OK!)
	RETURN
END IF

THIS.Enabled = FALSE

IF NOT IsValid(W_mtrldef_edit) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = FALSE //是否一次RETRIEVE所有行
	s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_tranf8.arg_pkid = 0 //目标定位PKID (备用)
	s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.if_select_all = TRUE //多选
	s_tranf8.b_long = 3 //选加工
	s_tranf8.c_long = ll_storageid
	
	Long chc = 1,ls_j
	IF dw_out.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_out.Object.u_mtrldef_mtrlcode[dw_out.GetRow()])
	OpenWithParm(W_mtrldef_edit,s_tranf8) //调用
	
	s_mtrldef_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值
			IF dw_out.Find('u_order_wfjgmx_out_mtrlid='+String(S_INSCUST.mtrlid[ls_j]),1,dw_out.RowCount()) = 0 THEN
				IF dw_out.GetRow() > 0 THEN
					IF dw_out.Object.u_order_wfjgmx_out_mtrlid[child_row] <> 0 THEN
						child_row = dw_out.InsertRow (0)
					ELSE
						child_row = dw_out.GetRow()
					END IF
				ELSE
					child_row = dw_out.InsertRow (0)
				END IF
				dw_out.Object.u_order_wfjgmx_out_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
				dw_out.Object.u_mtrldef_mtrlcode [child_row] = S_INSCUST.mtrlcode[ls_j]
				dw_out.Object.mtrlname[child_row] = S_INSCUST.mtrlname[ls_j]
				dw_out.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j]
				dw_out.Object.u_mtrldef_unit[child_row] = S_INSCUST.unit[ls_j]
				dw_out.Object.u_order_wfjgmx_out_qty[child_row] = 0
				dw_out.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.mtrlsectype[ls_j]
				dw_out.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.zxmtrlmode[ls_j]
				dw_out.Object.u_mtrldef_statusflag[child_row]  = S_INSCUST.statusflag[ls_j]
				dw_out.Object.u_mtrldef_woodcodeflag[child_row]  = S_INSCUST.woodcodeflag[ls_j]
				dw_out.Object.u_mtrldef_pcodeflag[child_row]  = S_INSCUST.pcodeflag[ls_j]
				
			END IF
		END IF
	NEXT
	THIS.TriggerEvent('ue_allowedit_out')
	dw_out.SetFocus()
	dw_out.SetColumn('u_order_wfjgmx_out_status')
END IF

THIS.Enabled = TRUE



end event

event ue_addzy;call super::ue_addzy;IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!",information!,OK!)
	return
END IF

if not f_power_ind(800) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

string arg_msg='',LS_STR
long uc_row
s_inputbox S_SREU

uc_row=dw_pageretr.getrow()
if 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_wfjg.add_dscrp(dw_pageretr.object.u_order_wfjg_scid[uc_row],dw_pageretr.object.u_order_wfjg_wfjgid[uc_row],LS_STR,arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
	return
else
	messagebox('提示','添加备注操作成功!',information!,OK!)
	wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[uc_row],dw_pageretr.object.u_order_wfjg_wfjgid[uc_row])
end if
end event

event ue_deletemx;IF MessageBox ("询问","是否确定要删除当前细目记录?",Question!,YesNo! ) = 2 THEN RETURN


if tab_1.SelectedTab = 1 then
	IF dw_in.GETROW()=0 THEN 
		MESSAGEBOX('提示','请选择删除的行对象!',information!,OK!)
		RETURN
	END IF
	dw_in.DeleteRow (0)
	dw_in.TriggerEvent (rowfocuschanged!)
else
	IF dw_out.GETROW()=0 THEN 
		MESSAGEBOX('提示','请选择删除的行对象!',information!,OK!)
		RETURN
	END IF
	dw_out.DeleteRow (0)
	dw_out.TriggerEvent (rowfocuschanged!)
end if



end event

event ue_addmx;if tab_1.SelectedTab = 1 then
	this.triggerevent('ue_f8')
	dw_in.SetFocus()
else
	this.triggerevent('ue_f11')
	dw_out.SetFocus()
end if
end event

event ue_rpt_print;call super::ue_rpt_print;if not f_power_ind(391) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

Long row,uc_relid,ll_scid
row = dw_pageretr.GetRow()
IF row = 0 THEN RETURN


uo_rpt_print_preview uo_print
S_rpt_print_MSG LS_PRMSG

IF dw_pageretr.RowCount() = 0 THEN
	MessageBox('提示','没有可打印的单据！',information!,OK!)
	RETURN
END IF

IF ls_rpname = '' THEN RETURN

IF li_auditprint = 1 THEN
	IF dw_pageretr.Object.u_order_wfjg_status[row] = 0 THEN
		MessageBox('提示','目标单据还未审核,不能打印!',information!,OK!)
		RETURN
	END IF
END IF

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

LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.TAG_TEXT = THIS.Title
LS_PRMSG.rpname = ls_rpname
LS_PRMSG.FILTER_STRING = ''

LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.rpid = ls_msgprintid_rpt
LS_PRMSG.retr_scid = dw_pageretr.Object.u_order_wfjg_scid[row]
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_wfjgid[row]
LS_PRMSG.rowcnt = dw_in.RowCount()


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_buytask',1,dw_pageretr.Object.u_order_wfjg_scid[dw_pageretr.GetRow()],dw_pageretr.Object.u_order_wfjg_wfjgid[dw_pageretr.GetRow()],'','',arg_msg,TRUE)



end event

event ue_rpt_viewprint;call super::ue_rpt_viewprint;if not f_power_ind(391) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if



Long row,uc_relid,ll_scid
row = dw_pageretr.GetRow()
IF row = 0 THEN RETURN


IF ls_rpname = '' THEN RETURN

IF li_auditprint = 1 THEN
	IF dw_pageretr.Object.u_order_wfjg_status[row] = 0 THEN
		MessageBox('提示','目标单据还未审核,不能打印!',information!,OK!)
		RETURN
	END IF
END IF

s_rpt_print_msg s_print
s_print.retr_pram_falg = 15
s_print.rpid = ls_msgprintid_rpt
s_print.retr_flag = TRUE
s_print.tag_text = THIS.Title

s_print.rpname  = ls_rpname
s_print.retr_scid = dw_pageretr.Object.u_order_wfjg_scid[row]
s_print.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_wfjgid[row]
s_print.rowcnt = dw_in.RowCount()
OpenWithParm(w_rpt_preview,s_print)

//**更新打印次料
string arg_msg
f_update_printnum('u_buytask',1,dw_pageretr.Object.u_order_wfjg_scid[dw_pageretr.GetRow()],dw_pageretr.Object.u_order_wfjg_wfjgid[dw_pageretr.GetRow()],'','',arg_msg,TRUE)

end event

event ue_copycol;IF NOT dw_edit_mode THEN
	MessageBox('提示','非编辑状态下不可用',information!,OK!)
	RETURN
END IF
IF tab_1.SelectedTab = 1 THEN
	dw_in.SetFocus()
	dw_in.Copy()
ELSE
	dw_out.SetFocus()
	dw_out.Copy()
END IF
end event

event ue_copyrow;IF NOT dw_edit_mode THEN RETURN
Long ll_childrow
Long ll_i
Long ll_j
IF tab_1.SelectedTab = 1 THEN
	ll_childrow = dw_in.GetRow()
	IF ll_childrow = 0 THEN
		MessageBox('提示','请选择复制对象!',information!,OK!)
		RETURN
	END IF
	
	ll_j = 0
	FOR ll_i = 1 TO dw_in.RowCount()
		IF dw_in.IsSelected(ll_i) THEN
			ll_j++
			dw_in.RowsCopy (ll_i,ll_i,Primary!,ds_copy_in,ll_j,Primary!)
		END IF
	NEXT
	
	FOR ll_i = 1 TO ds_copy_in.RowCount()
		ds_copy_in.RowsCopy (ll_i,ll_i,Primary!,dw_in,ll_childrow + ll_i,Primary!)	
	NEXT
	ds_copy_in.Reset()
	dw_in.SelectRow(0,FALSE)
	dw_in.SetRow(ll_childrow + 1)
	dw_in.ScrollToRow(ll_childrow + 1)
	dw_in.SelectRow(ll_childrow + 1,TRUE)
	
ELSE
	ll_childrow = dw_in.GetRow()
	IF ll_childrow = 0 THEN
		MessageBox('提示','请选择复制对象!',information!,OK!)
		RETURN
	END IF
	
	
	FOR ll_i = 1 TO dw_in.RowCount()
		IF dw_in.IsSelected(ll_i) THEN
			ll_j++
			dw_in.RowsCopy (ll_i,ll_i,Primary!,ds_copy_out,ll_j,Primary!)
		END IF
	NEXT
	
	FOR ll_i = 1 TO ds_copy_out.RowCount()
		ds_copy_out.RowsCopy (ll_i,ll_i,Primary!,dw_in,ll_childrow + ll_i,Primary!)
	NEXT
	
	ds_copy_out.Reset()
	
	dw_in.SelectRow(0,FALSE)
	dw_in.SetRow(ll_childrow + 1)
	dw_in.ScrollToRow(ll_childrow + 1)
	dw_in.SelectRow(ll_childrow + 1,TRUE)
END IF



end event

event ue_cutcol;IF NOT dw_edit_mode THEN
	MessageBox('提示','非编辑状态下不可用',information!,OK!)
	RETURN
END IF
IF tab_1.SelectedTab = 1 THEN
	dw_in.SetFocus()
	dw_in.Cut()
ELSE
	dw_out.SetFocus()
	dw_out.Cut()
END IF


end event

event ue_insertmx;Long ll_childrow,li_row
IF tab_1.SelectedTab = 1 THEN
	ll_childrow = dw_in.GetRow()
	li_row = dw_in.InsertRow(ll_childrow)
	dw_in.SelectRow(0,FALSE)
	dw_in.SetRow(li_row)
	dw_in.ScrollToRow(li_row)
	dw_in.SelectRow(li_row,TRUE)
	
ELSE
	ll_childrow = dw_out.GetRow()
	li_row = dw_out.InsertRow(ll_childrow)
	dw_out.SelectRow(0,FALSE)
	dw_out.SetRow(li_row)
	dw_out.ScrollToRow(li_row)
	dw_out.SelectRow(li_row,TRUE)
END IF

end event

event ue_pastecol;IF NOT dw_edit_mode THEN
	MessageBox('提示','非编辑状态下不可用',information!,OK!)
	RETURN
END IF
IF tab_1.SelectedTab = 1 THEN
	dw_in.SetFocus()
	dw_in.Paste()
ELSE
	dw_out.SetFocus()
	dw_out.Paste()
END IF

end event

event ue_bill_copy;String arg_msg = ''
IF wf_copy(arg_msg) = 1 THEN
	MessageBox('系统提示','复制成功')
ELSE
	MessageBox('系统提示',arg_msg)
END IF

end event

event ue_bill_paste;String arg_msg = ''
IF wf_paste(arg_msg) = 1 THEN
	MessageBox('系统提示','复制成功')
ELSE
	MessageBox('系统提示',arg_msg)
END IF

end event

event ue_f7;call super::ue_f7;//引入销售订单
//dw_in.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
uo_spt_price uo_mtrl_spt_p
String arg_msg
Long child_row
Long ls_sptid
Decimal ls_price,ls_rebate
Long ll_storageid
dw_in.AcceptText()
child_row = dw_in.GetRow()
IF child_row <= 0 THEN
	child_row = dw_in.InsertRow(0)
END IF

ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
	THIS.TriggerEvent("ue_f9")
END IF

ll_storageid = dw_in.Object.u_order_wfjgmx_storageid[child_row]
IF ll_storageid = 0 THEN
	MessageBox('提示','请选择仓库',information!,OK!)
	RETURN
END IF

uo_mtrl_spt_p = CREATE uo_spt_price

THIS.Enabled = FALSE
dw_uc.AcceptText()
ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF NOT IsValid(w_order_wfjg_wfjgmx_ch) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = FALSE //是否一次RETRIEVE所有行
	s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_tranf8.arg_pkid = 0 //目标定位PKID (备用)
	s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.if_select_all = TRUE //多选
	s_tranf8.e_long =  cur_scid
	
	Long chc = 1,ls_j
	IF dw_in.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_in.Object.u_mtrldef_mtrlcode[dw_in.GetRow()])
	OpenWithParm(w_order_wfjg_wfjgmx_ch,s_tranf8) //调用
	
	s_mtrldef_wfjg_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值
			IF dw_in.GetRow() > 0 THEN
				IF dw_in.Object.u_order_wfjgmx_mtrlid[child_row] <> 0 THEN
					child_row = dw_in.InsertRow (0)
				ELSE
					child_row = dw_in.GetRow()
				END IF
			ELSE
				child_row = dw_in.InsertRow (0)
			END IF
			dw_in.Object.u_order_wfjgmx_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
			dw_in.Object.u_mtrldef_mtrlcode [child_row] = S_INSCUST.mtrlcode[ls_j]
			dw_in.Object.mtrlname[child_row] = S_INSCUST.mtrlname[ls_j]
			dw_in.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j]
			dw_in.Object.u_mtrldef_unit[child_row] = S_INSCUST.unit[ls_j]
			dw_in.Object.u_order_wfjgmx_qty[child_row] = S_INSCUST.qty[ls_j]
			dw_in.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.mtrlsectype[ls_j]
			dw_in.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.zxmtrlmode[ls_j]
			
			dw_in.Object.u_mtrldef_statusflag[child_row]  = S_INSCUST.statusflag[ls_j]
			dw_in.Object.u_mtrldef_woodcodeflag[child_row]  = S_INSCUST.woodcodeflag[ls_j]
			dw_in.Object.u_mtrldef_pcodeflag[child_row]  = S_INSCUST.pcodeflag[ls_j]
			
			dw_in.Object.u_order_wfjgMx_relprintid[child_row]  = S_INSCUST.relprintid[ls_j]
			dw_in.Object.u_order_wfjgMx_relcode[child_row]  = S_INSCUST.relcode[ls_j]
			dw_in.Object.u_order_wfjgMx_orderid[child_row]  = S_INSCUST.orderid[ls_j]
			
			//导入价格
			Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate
			String ls_sptmtrlname
			String ls_1stunit,ls_status,ls_woodcode,ls_pcode
			
			ls_1stunit = '' //dw_in.Object.u_mtrldef_unit[child_row]
			ls_status = dw_in.Object.u_order_wfjgmx_status[child_row]
			ls_woodcode = dw_in.Object.u_order_wfjgmx_woodcode[child_row]
			ls_pcode = dw_in.Object.u_order_wfjgmx_pcode[child_row]
			
			IF uo_sptprice.uf_getmtrlsptprice(ls_sptid,S_INSCUST.mtrlid[ls_j],ls_1stunit,ls_status,ls_woodcode,ls_pcode,0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) <> 1 THEN
				IF S_INSCUST.planprice[ls_j] = 0 THEN
					dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.lmbuyprice[ls_j]
				ELSE
					dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.planprice[ls_j]
				END IF
			ELSE
				dw_in.Object.u_order_wfjgmx_price[child_row] = ls_1stnewcost
			END IF
		END IF
	NEXT
	THIS.TriggerEvent('ue_allowedit_in')
	dw_in.SetFocus()
	dw_in.SetColumn('u_order_wfjgmx_jgdscrp')
END IF
DESTROY uo_mtrl_spt_p

THIS.Enabled = TRUE
IF cbx_autocmpl.Checked THEN
	wf_in_to_out(arg_msg)
END IF





end event

event ue_f12;call super::ue_f12;//引入销售订单需求明细
//dw_in.doubleclicked调用
IF Not dw_edit_mode THEN RETURN
uo_spt_price uo_mtrl_spt_p
String arg_msg
Long child_row
Long ls_sptid
Decimal ls_price,ls_rebate
Long ll_storageid
dw_in.AcceptText()
child_row = dw_in.GetRow()
IF child_row <= 0 THEN
	child_row = dw_in.InsertRow(0)
END IF


//订单材料外协
Long ll_buildtype

ll_buildtype = dw_uc.Object.u_order_wfjg_billtype[dw_uc.GetRow()]

IF ll_buildtype <> 2 THEN
	MessageBox('NO','单据类型请选择《订单材料外协》')
	RETURN
END IF

ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF IsNull(ls_sptid) Or ls_sptid = 0 THEN
	This.TriggerEvent("ue_f9")
END IF

ll_storageid = dw_in.Object.u_order_wfjgmx_storageid[child_row]
IF ll_storageid = 0 THEN
	MessageBox('提示','请选择仓库',information!,OK!)
	RETURN
END IF

uo_mtrl_spt_p = Create uo_spt_price

This.Enabled = False
dw_uc.AcceptText()
ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
IF Not IsValid(w_order_wfjg_wfjgmx_ch2) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = False //是否一次RETRIEVE所有行
	s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_tranf8.arg_pkid = 0 //目标定位PKID (备用)
	s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.if_select_all = True //多选
	s_tranf8.e_long =  cur_scid
	
	Long chc = 1,ls_j
	IF dw_in.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_in.Object.u_mtrldef_mtrlcode[dw_in.GetRow()])
	OpenWithParm(w_order_wfjg_wfjgmx_ch2,s_tranf8) //调用
	
	s_mtrldef_wfjg_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	FOR ls_j = 1 To  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值
			IF dw_in.GetRow() > 0 THEN
				IF dw_in.Object.u_order_wfjgmx_mtrlid[child_row] <> 0 THEN
					child_row = dw_in.InsertRow (0)
				ELSE
					child_row = dw_in.GetRow()
				END IF
			ELSE
				child_row = dw_in.InsertRow (0)
			END IF
			dw_in.Object.u_order_wfjgmx_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
			dw_in.Object.u_mtrldef_mtrlcode [child_row] = S_INSCUST.mtrlcode[ls_j]
			dw_in.Object.mtrlname[child_row] = S_INSCUST.mtrlname[ls_j]
			dw_in.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j]
			dw_in.Object.u_mtrldef_unit[child_row] = S_INSCUST.unit[ls_j]
			dw_in.Object.u_order_wfjgmx_qty[child_row] = S_INSCUST.qty[ls_j]
			dw_in.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.mtrlsectype[ls_j]
			dw_in.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.zxmtrlmode[ls_j]
			
			dw_in.Object.u_mtrldef_statusflag[child_row]  = S_INSCUST.statusflag[ls_j]
			dw_in.Object.u_mtrldef_woodcodeflag[child_row]  = S_INSCUST.woodcodeflag[ls_j]
			dw_in.Object.u_mtrldef_pcodeflag[child_row]  = S_INSCUST.pcodeflag[ls_j]
			
			dw_in.Object.u_order_wfjgMx_relprintid[child_row]  = S_INSCUST.relprintid[ls_j]
			dw_in.Object.u_order_wfjgMx_relcode[child_row]  = S_INSCUST.relcode[ls_j]
			dw_in.Object.u_order_wfjgMx_orderid[child_row]  = S_INSCUST.orderid[ls_j]
			dw_in.Object.u_order_wfjgMx_relid2[child_row]  = S_INSCUST.relid2[ls_j]
			
			dw_in.Object.u_saletask_relcode[child_row]  = S_INSCUST.taskrelcode[ls_j]
			
			//导入价格
			Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate
			//			String arg_msg
			String ls_sptmtrlname
			String ls_1stunit,ls_status,ls_woodcode,ls_pcode
			
			ls_1stunit = '' //dw_in.Object.u_mtrldef_unit[child_row]
			ls_status = dw_in.Object.u_order_wfjgmx_status[child_row]
			ls_woodcode = dw_in.Object.u_order_wfjgmx_woodcode[child_row]
			ls_pcode = dw_in.Object.u_order_wfjgmx_pcode[child_row]
			
			IF uo_sptprice.uf_getmtrlsptprice(ls_sptid,S_INSCUST.mtrlid[ls_j],ls_1stunit,ls_status,ls_woodcode,ls_pcode,0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) <> 1 THEN
				IF S_INSCUST.planprice[ls_j] = 0 THEN
					dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.lmbuyprice[ls_j]
				ELSE
					dw_in.Object.u_order_wfjgmx_price[child_row]     = S_INSCUST.planprice[ls_j]
				END IF
				
			ELSE
				dw_in.Object.u_order_wfjgmx_price[child_row] = ls_1stnewcost
			END IF
		END IF
	NEXT
	This.TriggerEvent('ue_allowedit_in')
	dw_in.SetFocus()
	dw_in.SetColumn('u_order_wfjgmx_jgdscrp')
END IF
Destroy uo_mtrl_spt_p

This.Enabled = True
IF cbx_autocmpl.Checked THEN
	wf_in_to_out(arg_msg)
END IF







end event

event ue_rowdown;//

Long ll_row
datawindow dw

IF tab_1.SelectedTab = 1 THEN
	dw = dw_in
else
	dw = dw_out
end if

ll_row = dw.GetRow()
IF ll_row < dw.rowcount() THEN
	dw.RowsMove(ll_row + 1, ll_row + 1, Primary!, dw, ll_row, Primary!)
	
	dw.SelectRow(0, False)
	dw.SetRow( ll_row + 1)
	dw.SelectRow(ll_row + 1, True)
END IF
end event

event ue_rowup;Long ll_row
datawindow dw

IF tab_1.SelectedTab = 1 THEN
	dw = dw_in
else
	dw = dw_out
end if

ll_row = dw.GetRow()
IF ll_row > 1 THEN
	dw.RowsMove(ll_row, ll_row, Primary!, dw, ll_row - 1, Primary!)
	
	dw.SelectRow(0, False)
	dw.SetRow( ll_row - 1)
	dw.SelectRow(ll_row - 1, True)
END IF
end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_order_wfjg
integer taborder = 20
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_order_wfjg
integer taborder = 340
end type

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_order_wfjg
integer x = 215
integer width = 471
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_order_wfjg
integer x = 3035
integer taborder = 300
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_order_wfjg
integer x = 2706
integer y = 48
integer width = 320
integer taborder = 280
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_order_wfjg
integer x = 1915
integer width = 1614
integer height = 1012
integer taborder = 30
string title = "外协订单摘要内容"
string dataobject = "dw_order_wfjg_index"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;wf_statusbtn_fc()
wf_check_billfj()
if currentrow<=0 then dw_child.reset()
end event

event dw_pageretr::retrieveend;wf_statusbtn_fc()
end event

type st_1 from w_publ_1ton_share_detail`st_1 within w_order_wfjg
integer x = 0
integer width = 192
integer height = 60
string text = "编号含"
alignment alignment = right!
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_order_wfjg
integer x = 3186
integer taborder = 330
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_order_wfjg
integer width = 1911
integer height = 1020
string dataobject = "dw_order_wfjg_input"
end type

event dw_uc::dwnkey;parent.triggerevent('user_key')

if key = KeyDownArrow! then return 1

if dw_edit_mode then
	if dw_uc.GetColumnName ( )='u_order_wfjg_dscrp' and key = KeyEnter! then 
		dw_child.scrolltorow(1)
		dw_child.setfocus()
		dw_child.SetColumn ('u_order_ml_ordercode')			
		Return 1
	elseif dw_uc.GetColumnName ( )='sptcode' and key = KeyEnter! then 
		String ls_code,ls_name,ls_find_code
		Long ls_sptid
		Long cnt = 0
		Boolean if_find = FALSE
		
		dw_uc.AcceptText()
		ls_code = Upper(Trim(dw_uc.Object.sptcode[dw_uc.GetRow()]))
		SELECT   u_spt.sptid,
			u_spt.name,
			u_spt.sptcode
			INTO	:ls_sptid,:ls_name,:ls_code
			FROM u_spt
			Where ( sptcode = :ls_code OR Name = :ls_code );
		IF sqlca.SQLCode <> 0 THEN
			IF Pos(Trim(ls_code),'%') = 0 THEN
				ls_find_code = '%'+ Trim(ls_code) + '%'
			ELSE
				ls_find_code = Trim(ls_code)
			END IF
			
			SELECT count(*) INTO :cnt
				FROM u_spt
				Where ( sptcode Like :ls_find_code OR Name Like :ls_find_code );
			IF sqlca.SQLCode <> 0 THEN
				PARENT.TriggerEvent('ue_f9')
				RETURN 1
			END IF
			IF cnt <> 1 THEN
				PARENT.TriggerEvent('ue_f9')
				RETURN 1
			ELSE
				SELECT u_spt.sptid,
					u_spt.sptcode,
					u_spt.name
					INTO	:ls_sptid,:ls_code,:ls_name
					FROM u_spt
					Where ( sptcode Like :ls_find_code OR Name Like :ls_find_code );
				IF sqlca.SQLCode <> 0 THEN
					
					PARENT.TriggerEvent('ue_f9')
					RETURN 1
				ELSE
					if_find = TRUE
				END IF
			END IF
		ELSE
			if_find = TRUE
		END IF
		
		IF if_find THEN
			dw_uc.SetRedraw(FALSE)
			dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()] = ls_sptid
			dw_uc.Object.sptcode[dw_uc.GetRow()] = ls_code
			dw_uc.Object.u_spt_name[dw_uc.GetRow()] = ls_name
			dw_uc.SetRedraw(TRUE)
			dw_uc.SetColumn("u_order_wfjg_dscrp")
			RETURN 1
		END IF		
		 
	else
		if  key = KeyEnter! Then //
			keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
			keybd_event ( 9, 0, 2, 0 ) // 释放tab 
			Return 1
		end If
	end if
end if
end event

event dw_uc::clicked;call super::clicked;if not dw_edit_mode then return

if row <= 0 then return

if dwo.name='p_p' then
	parent.TRIGGEREVENT('ue_f9')	
end if

IF dw_edit_mode THEN
	Long ll_billtype
	ll_billtype = dw_uc.Object.u_order_wfjg_billtype[row]
	IF dwo.Name = 'p_task' Or dwo.Name = 't_task' THEN
		//IF ll_billtype = 2 THEN //订单材料采购
		//	Parent.TriggerEvent('ue_f11')
		//ELSE
			Parent.TriggerEvent('ue_f12') 
	ELSEIF   dwo.Name = 't_task2' or dwo.Name = 'p_task2'   THEN
			Parent.TriggerEvent('ue_f13')
		//END IF
	ELSEIF dwo.Name = 'p_banktype'  THEN
		Parent.TriggerEvent('ue_ch_banktype')
	END IF
END IF

end event

event dw_uc::itemchanged;call super::itemchanged;IF dwo.Name = 'u_order_wfjg_billtype' THEN
	dw_in.Reset()
	PARENT.TriggerEvent("insert_childrow")
end if
end event

type gb_2 from w_publ_1ton_share_detail`gb_2 within w_order_wfjg
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_order_wfjg
boolean visible = false
integer x = 133
integer y = 700
integer width = 873
integer height = 52
integer taborder = 250
string title = "计划收货明细"
string dataobject = "dw_order_wfjg_mx_edit"
end type

event dw_child::dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key')

String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode,ls_ordercode,ls_relcode
Long ls_mtrlid,ls_sptid,ls_orderid
Dec ls_planprice,ls_lmbuyprice,ls_price,ls_rebate
Long cnt
Long child_row
Long ls_null
SetNull(ls_null)
String arg_msg = ''



IF dw_edit_mode THEN
	ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
	IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
		THIS.TriggerEvent("ue_f9")
	END IF
	
	IF KeyDown(keydownarrow!) THEN
		Long li_row
		IF dw_child.GetRow() = dw_child.RowCount() THEN
			PARENT.TriggerEvent("insert_childrow")
		END IF
	ELSE
		If (KeyDown(keyenter!) OR KeyDown(keytab!)) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN
			IF dw_child.GetColumnName() = 'u_order_ml_relcode' THEN
				PARENT.TriggerEvent('ue_f7')
				RETURN 1
				
				dw_child.Object.u_order_wfjgmx_ordermtrlid[child_row]    = ls_mtrlid
				dw_child.Object.u_order_wfjgmx_orderid[child_row] = ls_orderid
				dw_child.Object.u_order_ml_ordercode[child_row] = ls_ordercode
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
				
			ELSEIF dw_child.GetColumnName() = 'u_mtrldef_mtrlcode' THEN
				dw_child.AcceptText()
				child_row = dw_child.GetRow()
				
				ls_mtrlcode = dw_child.Object.u_mtrldef_mtrlcode[child_row]
				
				SELECT u_mtrldef.mtrlid,
					u_mtrldef.mtrlname,
					u_mtrldef.unit,
					u_mtrldef.lmbuyprice,
					u_mtrldef.planprice,
					u_mtrldef.mtrlmode
					INTO	:ls_mtrlid,:ls_mtrlname,:ls_unit,:ls_lmbuyprice,:ls_planprice,:ls_mtrlmode
					FROM 	u_mtrldef
					Where	( u_mtrldef.mtrlcode = :ls_mtrlcode);
				IF sqlca.SQLCode = 100 THEN
					dw_child.Object.u_order_wfjgmx_mtrlid[child_row] = 0
					PARENT.TriggerEvent('ue_f8')
					RETURN 1
				END IF
				
				
				dw_child.Object.u_order_wfjgmx_mtrlid[child_row]    = ls_mtrlid
				dw_child.Object.mtrlname[child_row]    = ls_mtrlname
				dw_child.Object.u_mtrldef_unit[child_row] = ls_unit
				dw_child.Object.u_mtrldef_mtrlmode[child_row] = ls_mtrlmode
				
				uo_spt_price uo_mtrl_spt_p
				uo_mtrl_spt_p = create uo_spt_price
				Decimal ls_1stnewcost,ls_1stzqrate
//				IF uo_mtrl_spt_p.uf_getmtrlsptprice(ls_sptid,ls_mtrlid,0,ls_1stnewcost,ls_1stzqrate,arg_msg) <> 1 THEN
//					dw_child.Object.u_order_wfjgmx_price[child_row]      = 0
//				ELSE
//					dw_child.Object.u_order_wfjgmx_price[child_row] = ls_1stnewcost
//				END IF
				destroy uo_mtrl_spt_p
				dw_child.Object.plprice[child_row] = ls_planprice
				
				
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			ELSEIF dw_child.GetColumnName( ) = 'u_order_wfjgmx_dscrp' AND dw_child.GetRow() = dw_child.RowCount() THEN
				PARENT.TriggerEvent("insert_childrow")
				RETURN 1
			ELSE
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
		END IF
	END IF
END IF

// u_mtrldef_mtrlcode
// acprice 
// mtrlid
// mtrlname 
// plprice 







end event

event dw_child::doubleclicked;if dw_edit_mode then
	choose case dwo.name
		case 'u_order_ml_relcode'
			parent.triggerevent('ue_f7')
		case else
			parent.triggerevent('ue_f8')
	end choose
end if
end event

event dw_child::itemchanged;call super::itemchanged;if not dw_edit_mode then return 
this.accepttext()
if dwo.name = 'u_order_wfjgmx_iforder' then
	if this.object.u_order_wfjgmx_iforder[row] = 0 then		
		dw_child.object.u_order_wfjgmx_orderid[row] = 0		
		dw_child.object.u_order_ml_relcode[row] = ''
		dw_child.object.u_mtrldef_mtrlcode_1[row] = ''
		dw_child.object.u_order_ml_ordercode[row] = ''
	end if
end if
end event

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_order_wfjg
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_order_wfjg
integer taborder = 240
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_order_wfjg
end type

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

String arg_msg = ''
Long uc_row,pagerert_row
Long relid_pageretr,reld_uc,i,j

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	dw_in.AcceptText()
	tab_1.tabpage_1.dw_1.AcceptText()
	tab_1.tabpage_2.dw_2.AcceptText()
	uc_row = dw_uc.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('提示','请选定当前目标单据!',information!,OK!)
		RETURN
	END IF
	
	IF Year(Date(dw_uc.Object.u_order_wfjg_Requiredate[uc_row])) < 2000 THEN
		MessageBox('提示','要求完成日期为空或不合理!',information!,OK!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_order_wfjg_Requiredate")
		RETURN
	END IF
	
	IF NOT Len(String(dw_uc.Object.u_order_wfjg_Assign_emp[uc_row])) > 0 THEN
		MessageBox('提示','请填写负责人!',information!,OK!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_order_wfjg_Assign_emp")
		RETURN
	END IF

	
	uo_wfjg.Requiredate = dw_uc.Object.u_order_wfjg_Requiredate[uc_row] //要求完成日期
	uo_wfjg.Assign_emp  = dw_uc.Object.u_order_wfjg_Assign_emp[uc_row]      //订单负责人
	uo_wfjg.sptID  = dw_uc.Object.u_order_wfjg_sptID[uc_row]
	uo_wfjg.dscrp  = dw_uc.Object.u_order_wfjg_dscrp[uc_row]
	uo_wfjg.billtype  = dw_uc.Object.u_order_wfjg_billtype[uc_row]
	uo_wfjg.banktypeid  = dw_uc.Object.u_order_wfjg_banktypeid[uc_row]
	
	FOR i = 1 TO dw_in.RowCount()
		IF dw_in.Object.u_order_wfjgmx_mtrlid[i] > 0 THEN
			IF uo_wfjg.acceptmx( dw_in.Object.u_order_wfjgmx_mtrlid[i],&
				dw_in.Object.u_order_wfjgmx_qty[i],&
				dw_in.Object.u_order_wfjgmx_price[i],&
				dw_in.Object.u_order_wfjgmx_dscrp[i],&
				dw_in.Object.u_mtrldef_mtrlcode[i],&
				arg_msg,&
				dw_in.Object.pid[i],&
				dw_in.Object.u_order_wfjgmx_requiredate[i],&
				dw_in.Object.u_order_wfjgmx_storageid[i],& 
				dw_in.Object.u_order_wfjgmx_jgdscrp[i],&
				dw_in.Object.u_order_wfjgmx_status[i],&
				dw_in.Object.u_order_wfjgmx_woodcode[i],&
				dw_in.Object.u_order_wfjgmx_pcode[i],&
				dw_in.Object.u_order_wfjgmx_relprintid[i],&
				dw_in.Object.u_order_wfjgmx_relid2[i],&
				dw_in.Object.u_order_wfjgmx_relcode[i],&
				dw_in.Object.u_order_wfjgmx_orderid[i],&
				dw_in.Object.u_order_wfjgmx_plancode[i],&
				dw_in.Object.u_order_wfjgmx_mxdscrp2[i],&
				dw_in.Object.u_order_wfjgmx_mxdscrp3[i],&
				dw_in.Object.u_order_wfjgmx_mxdscrp4[i]  ) = 0 THEN
				MessageBox('错误',arg_msg,stopsign!,OK!)
				RETURN
			END IF
		END IF
	NEXT
	
	FOR j = 1 TO dw_out.RowCount()
		IF dw_out.Object.u_order_wfjgmx_out_mtrlid[j] > 0 THEN
			IF uo_wfjg.acceptmx_out( dw_out.Object.u_order_wfjgmx_out_mtrlid[j],&
				dw_out.Object.u_order_wfjgmx_out_qty[j],&
				dw_out.Object.u_order_wfjgmx_out_price[j],&
				dw_out.Object.u_order_wfjgmx_out_dscrp[j],&
				dw_out.Object.u_mtrldef_mtrlcode[j],&
				arg_msg,&
				dw_out.Object.pid[j],&
				dw_out.Object.u_order_wfjgmx_out_storageid[j],&
				dw_out.Object.u_order_wfjgmx_out_status[j],&
				dw_out.Object.u_order_wfjgmx_out_woodcode[j],&
				dw_out.Object.u_order_wfjgmx_out_pcode[j],&
				dw_out.Object.u_order_wfjgmx_out_dscrp2[j],&
				dw_out.Object.u_order_wfjgmx_out_plancode[j],&
				dw_out.Object.u_order_wfjgmx_out_saletaskcode[j]) = 0 THEN 
				MessageBox('错误',arg_msg,stopsign!,OK!)
				RETURN
			END IF
		END IF
	NEXT
	
	
	IF uo_wfjg.savesubmit(publ_operator,arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,OK!)
		RETURN
	END IF
	MessageBox('提示','保存操作成功!',information!,OK!)
	
	f_SetProfileString (sys_empid,dw_uc.DataObject, "dft_outrep", String(dw_uc.Object.u_order_wfjg_Assign_emp[dw_uc.GetRow()]))
	f_SetProfileString (sys_empid,dw_uc.DataObject, "dft_billtype", String(dw_uc.Object.u_order_wfjg_billtype[dw_uc.GetRow()]))
	f_SetProfileString (sys_empid,dw_uc.DataObject, "dft_banktype",String(dw_uc.Object.u_order_wfjg_banktypeid[dw_uc.GetRow()]))

	Long ll_row
	ll_row = dw_pageretr.GetRow()
	dw_pageretr.SelectRow(0,FALSE)
	dw_pageretr.SelectRow(ll_row,TRUE)
	
	wf_refresh_curuc(cur_scid,uo_wfjg.wfjgid) //刷新uc
	
ELSE
	IF uo_wfjg.newbegin(cur_scid,arg_msg) = 0 THEN //
		MessageBox('错误',arg_msg,stopsign!,OK!)
		RETURN
	END IF
END IF

IF NOT dw_edit_mode THEN
	Int li_row
	li_row = dw_pageretr.InsertRow (1)
	dw_pageretr.ScrollToRow(li_row)
	dw_child.Reset()
	dw_out.Reset()
	dw_in.Reset()
	dw_uc.Reset()
	dw_uc.SetFocus()
	dw_pageretr.RowsCopy(li_row,li_row, Primary!, dw_uc, 1, Primary!)
END IF
dw_edit_mode = NOT dw_edit_mode
wf_refresh_interface()

IF dw_edit_mode THEN
	PARENT.TriggerEvent("insert_childrow")
	PARENT.TriggerEvent("insert_childrow_out")
	
	String ls_outrep
	String ls_billtype
	string ls_banktype
	ls_outrep = f_ProfileString (sys_empid,dw_uc.DataObject, "dft_outrep",'')
	ls_billtype = f_ProfileString (sys_empid,dw_uc.DataObject, "dft_billtype",'0')
	ls_banktype = f_ProfileString (sys_empid,dw_uc.DataObject, "dft_banktype",'0')
	
	dw_uc.Object.u_order_wfjg_Assign_emp[dw_uc.GetRow()] = ls_outrep
	dw_uc.Object.u_order_wfjg_billtype[dw_uc.GetRow()] = Long(ls_billtype)
	dw_uc.Object.u_order_wfjg_banktypeid[dw_uc.GetRow()] = Long(ls_banktype)
	dw_uc.SetFocus()
	dw_uc.SetColumn("u_order_wfjg_requiredate")
ELSE
	PARENT.TriggerEvent("retrieve_childdw")
END IF


end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_order_wfjg
end type

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

String arg_msg = ''
Long uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标单据!',information!,OK!)
	RETURN
END IF

IF NOT dw_edit_mode THEN
	IF uo_wfjg.updatebegin(dw_pageretr.Object.u_order_wfjg_scid[uc_row],dw_pageretr.Object.u_order_wfjg_wfjgid[uc_row],arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,OK!)
		RETURN
	END IF
	PARENT.TriggerEvent('ue_allowedit_in')
	PARENT.TriggerEvent('ue_allowedit_out')
END IF

CALL SUPER::Clicked

end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_order_wfjg
integer taborder = 260
end type

event cb_delet::clicked;call super::clicked;if not f_power_ind(595) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if
//
if dw_edit_mode then return


string arg_msg=''
long uc_row

uc_row=dw_pageretr.getrow()
if uc_row<=0 then
	messagebox('提示','请选定当前目标外加工计划!',information!,OK!)
	return
end if
IF MessageBox ("询问","是否确定要删除当前吗",Question!,YesNo! ) = 2 THEN RETURN

if uo_wfjg.cancel(dw_pageretr.object.u_order_wfjg_scid[uc_row],dw_pageretr.object.u_order_wfjg_wfjgid[uc_row],arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
ELSE
	//日志
	long ls_id
	string ls_code
	ls_id=dw_pageretr.object.u_order_wfjg_wfjgid[uc_row]
	ls_code=dw_pageretr.object.u_order_wfjg_taskCODE[uc_row]
	f_setsysoplog('外协计划','删除,id:'+string(ls_id)+',code:'+ls_code,arg_msg,true)
	//--	
	
	MESSAGEBOX('提示','删除单据'+string(dw_pageretr.object.u_order_wfjg_taskCODE[uc_row])+'成功!',information!,OK!)
	
	dw_pageretr.deleterow(uc_row)
	dw_pageretr.postevent(rowfocuschanged!)
end if
end event

type cb_addzy from w_publ_1ton_share_detail`cb_addzy within w_order_wfjg
end type

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

IF NOT dw_edit_mode THEN
	menustr = "Text=增加备注~tEvent=ue_addzy"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=暂停计划~tEvent=ue_tempstoptask"
	menustr = menustr + "|" + "Text=取消暂停~tEvent=ue_ctempstoptask"
	menustr = menustr + "|" + "Text=终止计划~tEvent=ue_stopsaletask"
	menustr = menustr + "|" + "Text=完成计划~tEvent=ue_finishtask"
	menustr = menustr + "|" + "Text=取消完成~tEvent=ue_cfinishtask"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=中止收货明细~tEvent=ue_stopmx"
	menustr = menustr + "|" + "Text=取消中止收货明细~tEvent=ue_cstopmx"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=中止发出明细~tEvent=ue_stopmx1"
	menustr = menustr + "|" + "Text=取消中止发出明细~tEvent=ue_cstopmx1"
	menustr = menustr + "|" + "Text=-"
	//else
	//	menustr="Text=导入供应商历史价~tEvent=ue_importprice_his"
	//	menustr=menustr + "|" + "Text=导入供应商历史价~tEvent=ue_importprice_his"
END IF


menustr = menustr + "|" + "Text=复制单据~tEvent=ue_copy"
menustr = menustr + "|" + "Text=粘贴单据~tEvent=ue_paste"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=查看附件~tEvent=ue_fj_view"
menustr = menustr + "|" + "Text=添加附件~tEvent=ue_fj_edit"

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF

end event

type cb_auditing from w_publ_1ton_share_detail`cb_auditing within w_order_wfjg
integer taborder = 290
end type

event cb_auditing::clicked;call super::clicked;if not f_power_ind(41) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

if dw_edit_mode then return
string arg_msg=''
long pagerert_row


pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	messagebox('提示','请选定当前目标外协计划!',information!,OK!)
	return
end if
IF MessageBox ("询问","是否确定要对当前外协计划作审核吗?",Question!,YesNo! ) = 2 THEN RETURN

if uo_wfjg.firstpermit(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row],publ_operator,arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
ELSE
	messagebox('提示','外协计划审核成功!',information!,OK!)
	if cur_status <> -1 then
		dw_pageretr.deleterow(pagerert_row)
	else		
		wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row])
	end if
end if
end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_order_wfjg
end type

event cb_xm::clicked;
m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF dw_edit_mode THEN
	menustr = "Text=增计划收货明细~tEvent=ue_addmx"
	menustr = menustr + "|" + "Text=删计划收货明细~tEvent=ue_deletemx" 
	menustr = menustr + "|" + "Text=-" 
	menustr = menustr + "|" + "Text=批设定收入仓库~tEvent=ue_p_storageid_in"
	menustr = menustr + "|" + "Text=批设定发出仓库~tEvent=ue_p_storageid_out"
	menustr = menustr + "|" + "Text=批设定回厂日期~tEvent=ue_p_rqdate"
	menustr = menustr + "|" + "Text=批设定工艺~tEvent=ue_p_jgdscrp"
END IF

IF Trim(is_mx_menustr) <> '' THEN
	IF dw_edit_mode THEN
		menustr = menustr + "|" + "Text=-"
	END IF
	menustr = menustr + is_mx_menustr
END IF

IF if_MtrlPicView THEN
	IF Trim(menustr) <> "" THEN
		menustr = menustr + "|" + "Text=-"
		menustr = menustr + "|" + "Text=明细物料图片查看~tEvent=ue_MtrlPicView"
	ELSE
		menustr = "Text=明细物料图片查看~tEvent=ue_MtrlPicView"
	END IF
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_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_order_wfjg
integer taborder = 200
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_order_wfjg
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_order_wfjg
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_order_wfjg
end type

event cb_auditing_cancel::clicked;call super::clicked;if not f_power_ind(42) then
	messagebox('提示','你没有使用权限！',information!,OK!)
	return
end if

if dw_edit_mode then return
string arg_msg=''
long pagerert_row


pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	messagebox('提示','请选定当前目标外协计划!',information!,OK!)
	return
end if
IF MessageBox ("询问","是否确定要对当前外协计划作取消审核吗?",Question!,YesNo! ) = 2 THEN RETURN


if uo_wfjg.cancelpermit(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row],arg_msg,true)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
ELSE
	//日志
	long ls_id
	string ls_code
	ls_id=dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row]
	ls_code=dw_pageretr.object.u_order_wfjg_taskCODE[pagerert_row]
	f_setsysoplog('外协计划','删除,id:'+string(ls_id)+',code:'+ls_code,arg_msg,true)
	//--	
	messagebox('提示','外协计划取消审核成功!',information!,OK!)
	if cur_status <> -1 then
		dw_pageretr.deleterow(pagerert_row)
	else		
		wf_refresh_curuc(dw_pageretr.object.u_order_wfjg_scid[pagerert_row],dw_pageretr.object.u_order_wfjg_wfjgid[pagerert_row])
	end if
end if
end event

type p_msg from w_publ_1ton_share_detail`p_msg within w_order_wfjg
end type

type p_help from w_publ_1ton_share_detail`p_help within w_order_wfjg
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_order_wfjg
end type

type p_other from w_publ_1ton_share_detail`p_other within w_order_wfjg
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_order_wfjg
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_order_wfjg
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_order_wfjg
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_order_wfjg
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_order_wfjg
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_order_wfjg
end type

type st_13 from statictext within w_order_wfjg
integer x = 1467
integer y = 204
integer width = 192
integer height = 64
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "状  态"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_order_wfjg
integer x = 750
integer y = 204
integer width = 192
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分　部"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_scid from uo_ddlb_scid within w_order_wfjg
integer x = 965
integer y = 188
integer width = 471
integer height = 620
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid=this.uo_scid
end event

event selectionchanged;call super::selectionchanged;cur_scid=this.uo_scid
parent.triggerevent("retrieve_pageretr")
end event

type tab_1 from tab within w_order_wfjg
integer y = 1316
integer width = 3525
integer height = 1068
integer taborder = 340
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_1 tabpage_1
tabpage_2 tabpage_2
end type

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

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3488
integer height = 956
long backcolor = 134217739
string text = "计划收货明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_1 dw_1
end type

on tabpage_1.create
this.dw_1=create dw_1
this.Control[]={this.dw_1}
end on

on tabpage_1.destroy
destroy(this.dw_1)
end on

type dw_1 from u_dw_rbtnfilter within tabpage_1
event ue_dwndropdown pbm_dwndropdown
integer width = 3479
integer height = 944
integer taborder = 20
string dataobject = "dw_order_wfjg_mx_edit"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_setposition_use = true
end type

event ue_dwndropdown;IF NOT dw_edit_mode THEN RETURN

String ls_col_pz,ls_col_mtrlid
String ls_pz_ch
Long ll_row,ll_mtrlid
s_pzwin_open arg_s_win

ll_row = THIS.GetRow()
IF ll_row > 0 THEN
	ls_col_mtrlid = THIS.Describe("#1.Name")
	
	IF NOT Pos(Lower(ls_col_mtrlid),'mtrlid') > 0 THEN RETURN
	
	ll_mtrlid = THIS.GetItemNumber(ll_row,ls_col_mtrlid)
	
	ls_col_pz = THIS.GetColumnName( )
	
	arg_s_win.arg_x = THIS.X + PARENT.X  + THIS.PointerX() + tab_1.X
	arg_s_win.arg_y = THIS.Y + PARENT.Y  + THIS.PointerY() + tab_1.Y
	
	arg_s_win.arg_col = ls_col_pz
	arg_s_win.arg_mtrlid = ll_mtrlid
	
	ls_pz_ch = f_mtrl_pz(arg_s_win)
	
	IF ls_pz_ch = '' THEN RETURN
	
	THIS.SetItem(ll_row,ls_col_pz,ls_pz_ch)
END IF


end event

event doubleclicked;IF dw_edit_mode THEN
	Long ls_billtype
	dw_uc.AcceptText()
	ls_billtype = dw_uc.Object.u_order_wfjg_billtype[dw_uc.GetRow()]
	IF ls_billtype = 0 THEN
		PARENT.GetParent().GetParent().TriggerEvent('ue_f8')
	ELSEIF ls_billtype = 1 THEN
		PARENT.GetParent().GetParent().TriggerEvent('ue_f7')
	ELSE
		PARENT.GetParent().GetParent().TriggerEvent('ue_f12')  
	END IF
END IF


end event

event itemchanged;call super::itemchanged;if not dw_edit_mode then return 
this.accepttext()
if dwo.name = 'u_order_wfjgmx_iforder' then
	if this.object.u_order_wfjgmx_iforder[row] = 0 then		
		this.object.u_order_wfjgmx_orderid[row] = 0		
		this.object.u_order_ml_relcode[row] = ''
		this.object.u_mtrldef_mtrlcode_1[row] = ''
		this.object.u_order_ml_ordercode[row] = ''
	end if
end if

//string arg_msg 
//IF dwo.name = 'u_order_wfjgmx_qty' then
//	wf_in_to_out(arg_msg)
//end if
end event

event dwnkey;call super::dwnkey;PARENT.GetParent().GetParent().TriggerEvent('user_key')

String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode,ls_ordercode,ls_relcode
Long ls_mtrlid,ls_sptid,ls_orderid
Dec ls_planprice,ls_lmbuyprice,ls_price,ls_rebate
Long cnt
Long child_row
Long ls_null
SetNull(ls_null)
String arg_msg = ''
Int li_statusflag,li_woodcodeflag,li_pcodeflag,ls_billtype
long ls_storageid
s_mtrldef_array arg_s_mtrldef

IF dw_edit_mode THEN
	ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
	ls_billtype = dw_uc.Object.u_order_wfjg_billtype[dw_uc.GetRow()]
	IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
		PARENT.GetParent().GetParent().TriggerEvent("ue_f9")
	END IF
	
	IF KeyDown(keydownarrow!) THEN
		Long li_row
		IF THIS.GetRow() = THIS.RowCount() THEN
			PARENT.GetParent().GetParent().TriggerEvent("insert_childrow")
		END IF
	ELSE
		If (KeyDown(keyenter!) OR KeyDown(keytab!)) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN
			IF THIS.GetColumnName() = 'u_order_wfjgmx_relcode' THEN
				
				IF ls_billtype = 1 THEN
					PARENT.GetParent().GetParent().TriggerEvent('ue_f7')
				ELSEIF ls_billtype = 2 THEN
					PARENT.GetParent().GetParent().TriggerEvent('ue_f12')
				END IF
				
			ELSEIF THIS.GetColumnName() = 'u_mtrldef_mtrlcode' AND ls_billtype = 0 THEN
				THIS.AcceptText()
				child_row = THIS.GetRow()
				
				ls_mtrlcode = THIS.Object.u_mtrldef_mtrlcode[child_row]
				ls_storageid = THIS.Object.u_order_wfjgmx_storageid[child_row]
				
//				SELECT u_mtrldef.mtrlid,
//					u_mtrldef.mtrlname,
//					u_mtrldef.unit,
//					u_mtrldef.lmbuyprice,
//					u_mtrldef.planprice,
//					u_mtrldef.mtrlmode,
//					u_mtrldef.statusflag,
//					u_mtrldef.woodcodeflag,
//					u_mtrldef.pcodeflag
//					INTO	:ls_mtrlid,
//					:ls_mtrlname,
//					:ls_unit,
//					:ls_lmbuyprice,
//					:ls_planprice,
//					:ls_mtrlmode,
//					:li_statusflag,
//					:li_woodcodeflag,
//					:li_pcodeflag
//					FROM 	u_mtrldef
//					Where	( u_mtrldef.mtrlcode = :ls_mtrlcode);
//				IF sqlca.SQLCode = 100 THEN
//					THIS.Object.u_order_wfjgmx_mtrlid[child_row] = 0
//					PARENT.GetParent().GetParent().TriggerEvent('ue_f8')
//					RETURN 1
//				END IF
				
				IF f_find_mtrl(ls_mtrlcode,ls_storageid,arg_s_mtrldef) = 0 THEN
					PARENT.GetParent().GetParent().TriggerEvent('ue_f8')
					RETURN 1
				
				ELSE
					ls_mtrlid = arg_s_mtrldef.mtrlid[1]
					ls_mtrlcode = arg_s_mtrldef.mtrlcode[1]
					ls_mtrlname = arg_s_mtrldef.mtrlname[1]
					ls_unit = arg_s_mtrldef.unit[1]
					ls_mtrlmode = arg_s_mtrldef.mtrlmode[1]
					ls_planprice = arg_s_mtrldef.planprice[1]
					li_statusflag = arg_s_mtrldef.statusflag[1]
					li_pcodeflag = arg_s_mtrldef.pcodeflag[1]
					li_woodcodeflag = arg_s_mtrldef.woodcodeflag[1]
				END IF
				
				THIS.Object.u_order_wfjgmx_mtrlid[child_row]    = ls_mtrlid
				THIS.Object.mtrlname[child_row]    = ls_mtrlname
				THIS.Object.u_mtrldef_unit[child_row] = ls_unit
				THIS.Object.u_mtrldef_mtrlmode[child_row] = ls_mtrlmode
				THIS.Object.u_mtrldef_statusflag[child_row] = li_statusflag
				THIS.Object.u_mtrldef_woodcodeflag[child_row] = li_woodcodeflag
				THIS.Object.u_mtrldef_pcodeflag[child_row] = li_pcodeflag
				
				THIS.Object.u_order_wfjgmx_status[child_row]  = arg_s_mtrldef.status[1]
				THIS.Object.u_order_wfjgmx_woodcode[child_row]  = arg_s_mtrldef.woodcode[1]
				THIS.Object.u_order_wfjgmx_pcode[child_row]  = arg_s_mtrldef.pcode[1]
				
				
				//导入价格
				Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate
				String ls_sptmtrlname
				String ls_1stunit,ls_status,ls_woodcode,ls_pcode
				
				ls_1stunit = '' //dw_in.Object.u_mtrldef_unit[child_row]
				ls_status = dw_in.Object.u_order_wfjgmx_status[child_row]
				ls_woodcode = dw_in.Object.u_order_wfjgmx_woodcode[child_row]
				ls_pcode = dw_in.Object.u_order_wfjgmx_pcode[child_row]
				
				IF uo_sptprice.uf_getmtrlsptprice(ls_sptid,ls_mtrlid,ls_1stunit,ls_status,ls_woodcode,ls_pcode,0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) <> 1 THEN
					IF ls_planprice = 0 THEN
						dw_in.Object.u_order_wfjgmx_price[child_row]     = ls_lmbuyprice
					ELSE
						dw_in.Object.u_order_wfjgmx_price[child_row]     = ls_planprice
					END IF
					
				ELSE
					dw_in.Object.u_order_wfjgmx_price[child_row] = ls_1stnewcost
				END IF
				
				PARENT.GetParent().GetParent().TriggerEvent('ue_allowedit_in')
				
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			ELSEIF THIS.GetColumnName( ) = 'u_order_wfjgmx_dscrp' AND THIS.GetRow() = THIS.RowCount() THEN
				PARENT.GetParent().GetParent().TriggerEvent("insert_childrow")
				RETURN 1
			ELSE
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
		END IF
	END IF
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <=0 THEN RETURN
this.setrow(currentrow)
this.selectrow(0,false)
this.selectrow(currentrow,true)
end event

event clicked;call super::clicked;this.setrow(row)
THIS.SelectRow(0,FALSE)
THIS.SelectRow(row,TRUE)
end event

event rbuttondown;call super::rbuttondown;IF dw_edit_mode THEN
	Long ll_row,ll_column
	ll_row = THIS.GetRow()
	ll_column = THIS.GetColumn()
	
	IF ll_row <= 0 THEN RETURN
	IF ll_column <= 0 THEN RETURN
	
	IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN
		s_calender_arg s_calender
		
		s_calender.PointerX = THIS.PointerX()
		s_calender.PointerY = THIS.PointerY()
		s_calender.X = THIS.X + PARENT.X
		s_calender.Y = THIS.Y + PARENT.Y
		
		OpenWithParm(w_calendar,s_calender)
		THIS.SetItem(ll_row,ll_column,id_date_selected)
	ELSE
		IF Left(dwo.TYPE,4) = 'text' THEN RETURN
		m_dwchild_rbotton m_print
		m_print = CREATE m_dwchild_rbotton
		
		m_print.m_0.PopMenu(tab_1.X + THIS.X + THIS.PointerX() + 50,tab_1.Y + THIS.Y + THIS.PointerY() + 50)
	END IF
END IF

end event

event editchanged;call super::editchanged;string arg_msg 
IF cbx_autocmpl.checked = FALSE THEN RETURN
IF dwo.name = 'u_order_wfjgmx_qty' then
	if data = '' then return
	wf_in_to_out(arg_msg)
end if
end event

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3488
integer height = 956
long backcolor = 134217739
string text = "计划发出明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_2 dw_2
end type

on tabpage_2.create
this.dw_2=create dw_2
this.Control[]={this.dw_2}
end on

on tabpage_2.destroy
destroy(this.dw_2)
end on

type dw_2 from u_dw_rbtnfilter within tabpage_2
event ue_dwndropdown pbm_dwndropdown
integer width = 3479
integer height = 948
integer taborder = 20
string dataobject = "dw_order_wfjg_mx_edit_out"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_setposition_use = true
end type

event ue_dwndropdown;IF NOT dw_edit_mode THEN RETURN

String ls_col_pz,ls_col_mtrlid
String ls_pz_ch
Long ll_row,ll_mtrlid
s_pzwin_open arg_s_win

ll_row = THIS.GetRow()
IF ll_row > 0 THEN
	ls_col_mtrlid = THIS.Describe("#1.Name")
	
	IF NOT Pos(Lower(ls_col_mtrlid),'mtrlid') > 0 THEN RETURN
	
	ll_mtrlid = THIS.GetItemNumber(ll_row,ls_col_mtrlid)
	
	ls_col_pz = THIS.GetColumnName( )
	
	arg_s_win.arg_x = THIS.X + PARENT.X  + THIS.PointerX() + tab_1.X
	arg_s_win.arg_y = THIS.Y + PARENT.Y  + THIS.PointerY() + tab_1.Y
	
	arg_s_win.arg_col = ls_col_pz
	arg_s_win.arg_mtrlid = ll_mtrlid
	
	ls_pz_ch = f_mtrl_pz(arg_s_win)
	
	IF ls_pz_ch = '' THEN RETURN
	
	THIS.SetItem(ll_row,ls_col_pz,ls_pz_ch)
END IF


end event

event itemchanged;call super::itemchanged;if not dw_edit_mode then return 
this.accepttext()
if dwo.name = 'u_order_wfjgmx_out_iforder' then
	if this.object.u_order_wfjgmx_out_iforder[row] = 0 then		
		this.object.u_order_wfjgmx_out_orderid[row] = 0		
		this.object.u_order_ml_relcode[row] = ''
		this.object.u_mtrldef_mtrlcode_1[row] = ''
		this.object.u_order_ml_ordercode[row] = ''
	end if
end if
end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <=0 THEN RETURN
this.setrow(currentrow)
this.selectrow(0,false)
this.selectrow(currentrow,true)
end event

event doubleclicked;call super::doubleclicked;if dw_edit_mode then
	choose case dwo.name
		case 'u_order_ml_relcode'
			parent.getparent().getparent().triggerevent('ue_f10')
		case else
			parent.getparent().getparent().triggerevent('ue_f11')
	end choose
end if
end event

event dwnkey;call super::dwnkey;PARENT.GetParent().GetParent().TriggerEvent('user_key')

String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode,ls_ordercode,ls_relcode
Long ls_mtrlid,ls_sptid,ls_orderid
Dec ls_planprice,ls_lmbuyprice,ls_price,ls_rebate
Long cnt
Long child_row
Long ls_null
SetNull(ls_null)
String arg_msg = ''
Int li_statusflag,li_woodcodeflag,li_pcodeflag



IF dw_edit_mode THEN
	ls_sptid = dw_uc.Object.u_order_wfjg_sptid[dw_uc.GetRow()]
	IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
		PARENT.GetParent().GetParent().TriggerEvent("ue_f9")
	END IF
	
	IF KeyDown(keydownarrow!) THEN
		Long li_row
		IF THIS.GetRow() = THIS.RowCount() THEN
			PARENT.GetParent().GetParent().TriggerEvent("insert_childrow_out")
		END IF
	ELSE
		If (KeyDown(keyenter!) OR KeyDown(keytab!)) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN
			IF THIS.GetColumnName() = 'u_order_ml_relcode' THEN
				PARENT.GetParent().GetParent().TriggerEvent('ue_f7')
				RETURN 1
				
				THIS.Object.u_order_wfjgmx_out_ordermtrlid[child_row]    = ls_mtrlid
				THIS.Object.u_order_wfjgmx_out_orderid[child_row] = ls_orderid
				THIS.Object.u_order_ml_ordercode[child_row] = ls_ordercode
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
				
			ELSEIF THIS.GetColumnName() = 'u_mtrldef_mtrlcode' THEN
				THIS.AcceptText()
				child_row = THIS.GetRow()
				
				ls_mtrlcode = THIS.Object.u_mtrldef_mtrlcode[child_row]
				
				SELECT u_mtrldef.mtrlid,
					u_mtrldef.mtrlname,
					u_mtrldef.unit,
					u_mtrldef.lmbuyprice,
					u_mtrldef.planprice,
					u_mtrldef.mtrlmode,
					u_mtrldef.statusflag,
					u_mtrldef.woodcodeflag,
					u_mtrldef.pcodeflag
					INTO	:ls_mtrlid,:ls_mtrlname,:ls_unit,:ls_lmbuyprice,:ls_planprice,:ls_mtrlmode,
					:li_statusflag,:li_woodcodeflag,:li_pcodeflag
					FROM 	u_mtrldef
					Where	( u_mtrldef.mtrlcode = :ls_mtrlcode);
				IF sqlca.SQLCode = 100 THEN
					THIS.Object.u_order_wfjgmx_out_mtrlid[child_row] = 0
					PARENT.GetParent().GetParent().TriggerEvent('ue_f8')
					RETURN 1
				END IF
				
				
				THIS.Object.u_order_wfjgmx_out_mtrlid[child_row]    = ls_mtrlid
				THIS.Object.mtrlname[child_row]    = ls_mtrlname
				THIS.Object.u_mtrldef_unit[child_row] = ls_unit
				THIS.Object.u_mtrldef_mtrlmode[child_row] = ls_mtrlmode
				
				THIS.Object.u_mtrldef_statusflag[child_row] = li_statusflag
				THIS.Object.u_mtrldef_woodcodeflag[child_row] = li_woodcodeflag
				THIS.Object.u_mtrldef_pcodeflag[child_row] = li_pcodeflag
				
				
				uo_spt_price uo_mtrl_spt_p
				uo_mtrl_spt_p = CREATE uo_spt_price
				Decimal ls_1stnewcost,ls_1stzqrate,ld_rate
				String ls_status,ls_woodcode,ls_pcode
				ls_status = THIS.Object.u_order_wfjgmx_out_status[child_row]
				ls_woodcode = THIS.Object.u_order_wfjgmx_out_woodcode[child_row]
				ls_pcode = THIS.Object.u_order_wfjgmx_out_pcode[child_row]
				IF uo_mtrl_spt_p.uf_getmtrlsptprice(ls_sptid,ls_mtrlid,ls_unit,ls_status,&
					ls_woodcode,ls_pcode,0,ls_1stnewcost,ls_1stzqrate,ld_rate,arg_msg) <> 1 THEN
					THIS.Object.u_order_wfjgmx_out_price[child_row]      = 0
				ELSE
					THIS.Object.u_order_wfjgmx_out_price[child_row] = ls_1stnewcost
				END IF
				DESTROY uo_mtrl_spt_p
				//				this.Object.plprice[child_row] = ls_planprice
				PARENT.GetParent().GetParent().TriggerEvent('ue_allowedit_out')
				
				
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			ELSEIF THIS.GetColumnName( ) = 'u_order_wfjgmx_out_dscrp' AND THIS.GetRow() = THIS.RowCount() THEN
				w_order_wfjg.TriggerEvent("insert_childrow_out")
				RETURN 1
			ELSE
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
		END IF
	END IF
END IF

// u_mtrldef_mtrlcode
// acprice 
// mtrlid
// mtrlname 
// plprice 








end event

event clicked;call super::clicked;this.setrow(row)
THIS.SelectRow(0,FALSE)
THIS.SelectRow(row,TRUE)
end event

event rbuttondown;call super::rbuttondown;IF dw_edit_mode THEN
	Long ll_row,ll_column
	ll_row = THIS.GetRow()
	ll_column = THIS.GetColumn()
	
	IF ll_row <= 0 THEN RETURN
	IF ll_column <= 0 THEN RETURN
	
	IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN
		s_calender_arg s_calender
		
		s_calender.PointerX = THIS.PointerX()
		s_calender.PointerY = THIS.PointerY()
		s_calender.X = THIS.X + PARENT.X
		s_calender.Y = THIS.Y + PARENT.Y
		
		OpenWithParm(w_calendar,s_calender)
		THIS.SetItem(ll_row,ll_column,id_date_selected)
	ELSE
		IF Left(dwo.TYPE,4) = 'text' THEN RETURN
		m_dwchild_rbotton m_print
		m_print = CREATE m_dwchild_rbotton
		
		m_print.m_0.PopMenu(tab_1.X + THIS.X + THIS.PointerX() + 50,tab_1.Y + THIS.Y + THIS.PointerY() + 50)
	END IF
END IF

end event

type st_3 from statictext within w_order_wfjg
integer x = 2039
integer y = 1332
integer width = 617
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 em_1 from editmask within w_order_wfjg
integer x = 2670
integer y = 1316
integer width = 169
integer height = 84
integer taborder = 350
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "2"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
string mask = "###0"
boolean spin = true
string minmax = "0~~10"
end type

type cbx_autocmpl from checkbox within w_order_wfjg
integer x = 919
integer y = 1332
integer width = 521
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 destructor;long ll_auto_flag
IF THIS.Checked THEN
	ll_auto_flag  = 1
ELSE
	ll_auto_flag = 0
END IF

f_SetProfileString (sys_empid,publ_userid+'_' + 'dw_cbx_autocmpl', "cbx_autocmpl",String(ll_auto_flag))



end event

event constructor;long ll_auto_flag
ll_auto_flag = Long(f_ProfileString (sys_empid,publ_userid+'_'+ 'dw_cbx_autocmpl', "cbx_autocmpl",'0'))
IF ll_auto_flag = 1  THEN
	THIS.Checked   = TRUE
ELSE
	THIS.Checked   = FALSE
END IF
end event

type cb_in_2_out from uo_imflatbutton within w_order_wfjg
integer x = 1472
integer y = 1308
integer width = 549
integer height = 84
integer taborder = 390
boolean bringtotop = true
string text = "按清单计算发出明细"
end type

event clicked;call super::clicked;IF NOT dw_edit_mode THEN RETURN
String arg_msg

IF wf_in_to_out(arg_msg) = 0 THEN
	MessageBox(publ_operator,arg_msg)
ELSE
	MessageBox('系统提示','生成发出明细成功!')
END IF


end event

type ddlb_retrstatus from uo_ddlb_status within w_order_wfjg
integer x = 1682
integer y = 188
integer width = 402
integer height = 812
integer taborder = 50
boolean bringtotop = true
string item[] = {"[全部]","待审核[0]","在进行[1]","已暂停[2]","已终止[3]","自动完成[5]","手动完成[6]"}
end type

event selectionchanged;call super::selectionchanged;parent.triggerevent("retrieve_pageretr")
end event

event uof_getvalue;call super::uof_getvalue;cur_status = this.uo_status
end event

type cb_in from uo_imflatbutton within w_order_wfjg
integer x = 2862
integer y = 1320
integer width = 306
integer height = 84
integer taborder = 400
boolean bringtotop = true
string text = "→收货明细"
end type

event clicked;call super::clicked;
Long i
IF Not dw_edit_mode THEN RETURN

dw_in.Reset()
dw_out.accepttext()
FOR i = 1 To dw_out.RowCount()
	dw_in.InsertRow(0)
	
	dw_in.Object.u_order_wfjgmx_storageid[i] = dw_out.Object.u_order_wfjgmx_out_storageid[i]
	dw_in.Object.u_order_wfjgmx_mtrlid[i] = dw_out.Object.u_order_wfjgmx_out_mtrlid[i]
	dw_in.Object.u_mtrldef_mtrlcode[i] = dw_out.Object.u_mtrldef_mtrlcode[i]
	dw_in.Object.mtrlname[i] = dw_out.Object.mtrlname[i]
	dw_in.Object.u_mtrldef_unit[i] = dw_out.Object.u_mtrldef_unit[i]
	dw_in.Object.u_order_wfjgmx_qty[i] = dw_out.Object.u_order_wfjgmx_out_qty[i]
	dw_in.Object.u_order_wfjgmx_price[i] = dw_out.Object.u_order_wfjgmx_out_price[i]
	dw_in.Object.u_order_wfjgmx_status[i] = dw_out.Object.u_order_wfjgmx_out_status[i]
	dw_in.Object.u_order_wfjgmx_woodcode[i] = dw_out.Object.u_order_wfjgmx_out_woodcode[i]
	dw_in.Object.u_order_wfjgmx_pcode[i] = dw_out.Object.u_order_wfjgmx_out_pcode[i]
	dw_in.Object.u_order_wfjgmx_plancode[i] = dw_out.Object.u_order_wfjgmx_out_plancode[i]
	dw_in.Object.u_order_wfjgmx_relcode[i] = dw_out.Object.u_order_wfjgmx_out_saletaskcode[i] 
	dw_in.Object.u_saletask_relcode[i] = dw_out.Object.u_saletask_relcode[i]
	
NEXT

end event

type cb_out from uo_imflatbutton within w_order_wfjg
integer x = 3177
integer y = 1320
integer width = 329
integer height = 84
integer taborder = 410
boolean bringtotop = true
string text = "→发出明细"
end type

event clicked;call super::clicked;
Long i
IF Not dw_edit_mode THEN RETURN

dw_out.Reset()
dw_in.accepttext()
FOR i = 1 To dw_in.RowCount()
	dw_out.InsertRow(0)
	
	dw_out.Object.u_order_wfjgmx_out_storageid[i] = dw_in.Object.u_order_wfjgmx_storageid[i]
	dw_out.Object.u_order_wfjgmx_out_mtrlid[i] = dw_in.Object.u_order_wfjgmx_mtrlid[i]
	dw_out.Object.u_mtrldef_mtrlcode[i] = dw_in.Object.u_mtrldef_mtrlcode[i]
	dw_out.Object.mtrlname[i] = dw_in.Object.mtrlname[i]
	dw_out.Object.u_mtrldef_unit[i] = dw_in.Object.u_mtrldef_unit[i]
	dw_out.Object.u_order_wfjgmx_out_qty[i] = dw_in.Object.u_order_wfjgmx_qty[i]
	dw_out.Object.u_order_wfjgmx_out_price[i] = dw_in.Object.u_order_wfjgmx_price[i]
	dw_out.Object.u_order_wfjgmx_out_status[i] = dw_in.Object.u_order_wfjgmx_status[i]
	dw_out.Object.u_order_wfjgmx_out_woodcode[i] = dw_in.Object.u_order_wfjgmx_woodcode[i]
	dw_out.Object.u_order_wfjgmx_out_pcode[i] = dw_in.Object.u_order_wfjgmx_pcode[i]
	dw_out.Object.u_order_wfjgmx_out_plancode[i] = dw_in.Object.u_order_wfjgmx_plancode[i]
	dw_out.Object.u_order_wfjgmx_out_saletaskcode[i] = dw_in.Object.u_order_wfjgmx_relcode[i]
	dw_out.Object.u_saletask_relcode[i] = dw_in.Object.u_saletask_relcode[i]
NEXT


end event