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

$PBExportHeader$w_inware_wfjg_waste.srw
forward
global type w_inware_wfjg_waste from w_publ_1ton_share_detail
end type
type ddlb_scid from uo_ddlb_scid within w_inware_wfjg_waste
end type
type ddlb_status from dropdownlistbox within w_inware_wfjg_waste
end type
type st_3 from statictext within w_inware_wfjg_waste
end type
type st_2 from statictext within w_inware_wfjg_waste
end type
type tab_1 from tab within w_inware_wfjg_waste
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_inware_wfjg_waste
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type
type cb_in_2_out from uo_imflatbutton within w_inware_wfjg_waste
end type
type cbx_autocmp from checkbox within w_inware_wfjg_waste
end type
end forward

global type w_inware_wfjg_waste from w_publ_1ton_share_detail
string title = "外协损耗单"
boolean maxbox = true
windowstate windowstate = maximized!
event insert_childrow ( )
event insert_childrow_spt ( )
event ue_fj_edit ( )
event ue_fj_view ( )
event ue_in_to_out2 ( )
ddlb_scid ddlb_scid
ddlb_status ddlb_status
st_3 st_3
st_2 st_2
tab_1 tab_1
cb_in_2_out cb_in_2_out
cbx_autocmp cbx_autocmp
end type
global w_inware_wfjg_waste w_inware_wfjg_waste

type variables
long cur_scid  //分店ID
int cur_flag=-1
uo_wfjg_waste  uo_ware
uo_spt_price uo_sptprice
long cur_id=0
int cur_editfocus=0 //1:新建2:修改
long aflag= 0
string ol_cdw_str =''


datawindow dw_order_spt,dw_ware_spt
Long child_column_spt
end variables

forward prototypes
public function integer wf_flagstatus_rf ()
public function integer wf_refresh_curuc (long arg_scid, long arg_wasteid)
public function integer wf_lock_child ()
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_print_retrievedata (ref s_print_pic_list arg_s_pic, ref string arg_msg)
public function integer wf_in_to_out2 (ref string arg_msg)
end prototypes

event insert_childrow();Long li_row
li_row = dw_order_spt.InsertRow(0)
dw_order_spt.ScrollToRow(li_row)
dw_order_spt.SetColumn ('u_order_wfjg_wastemx_ifrel')


Long li_ifrel

li_ifrel = Integer(f_ProfileString (sys_empid,dw_pageretr.DataObject, "ifrel", '0'))
dw_order_spt.Object.u_order_wfjg_wastemx_ifrel[li_row] = li_ifrel

end event

event insert_childrow_spt();Long li_row
li_row = dw_ware_spt.InsertRow(0)
dw_ware_spt.ScrollToRow(li_row)
dw_ware_spt.SetColumn ('u_mtrldef_mtrlcode')

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 = 228 //采购订单的mainID
s_pic.f_string = dw_uc.Object.u_order_wfjg_waste_wastecode[ls_row]
s_pic.g_long = dw_uc.Object.u_order_wfjg_waste_wasteid[ls_row]
s_pic.e_long = dw_uc.Object.u_order_wfjg_waste_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,information!,OK!)
	RETURN
END IF

s_pic.f_long = 228 //采购订单的mainID
s_pic.f_string = dw_uc.Object.u_order_wfjg_waste_wastecode[ls_row]
s_pic.g_long = dw_uc.Object.u_order_wfjg_waste_wasteid[ls_row]
s_pic.e_long = dw_uc.Object.u_order_wfjg_waste_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca

OpenWithParm(w_fj_bill_view,s_pic)



end event

event ue_in_to_out2();IF NOT dw_edit_mode THEN RETURN
String arg_msg

IF wf_in_to_out2(arg_msg) = 0 THEN
	MessageBox(publ_operator,arg_msg)
END IF

end event

public function integer wf_flagstatus_rf ();//wf_flagstatus_rf()

long pagerert_row

pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	cb_auditing.enabled=false
	aflag=-1
	goto ext
end if

aflag=dw_pageretr.object.u_order_wfjg_waste_flag[pagerert_row]

if dw_edit_mode then
	cb_auditing.enabled=false
	if cur_editfocus=1 then
		aflag=-1		
	end if
	cb_auditing_cancel.enabled=false
else
	if aflag=0 then
		cb_auditing.enabled=true
		cb_auditing_cancel.enabled=false
	elseif aflag=1 then
		cb_auditing.enabled=false
		cb_auditing_cancel.enabled=true
	end if
end if

ext:
return 0
end function

public function integer wf_refresh_curuc (long arg_scid, long arg_wasteid);//====================================================================
// Function: wf_refresh_curuc(arg_scid,arg_wasteid)
//--------------------------------------------------------------------
// Description: 刷新dw_pageretr
//--------------------------------------------------------------------
// Arguments: 
//		value	long	arg_scid    		
//		value	long	arg_wasteid		
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	yyx		Date: 2003.11.14
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================
IF arg_wasteid <= 0 OR IsNull(arg_wasteid) THEN RETURN 0
Long uc_row
uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN RETURN 0

DateTime waste_date
String   waste_rep
String   dscrp
String   waste_code
String sptname
DateTime opdate
String   opemp
String modemp
DateTime moddate
Int      flag
DateTime Auditingdate
String   Auditingrep
Long sptid
String relcode
string sptcode
SELECT u_order_wfjg_waste.wastecode,
	u_order_wfjg_waste.sptid,
	u_order_wfjg_waste.wastedate,
	u_order_wfjg_waste.assign_emp,
	u_order_wfjg_waste.relcode,
	u_order_wfjg_waste.dscrp,
	u_order_wfjg_waste.flag,
	u_order_wfjg_waste.auditingdate,
	u_order_wfjg_waste.auditingrep,
	u_order_wfjg_waste.modemp,
	u_order_wfjg_waste.moddate,
	u_order_wfjg_waste.opdate,
   u_order_wfjg_waste.opemp,
	u_spt.sptcode,
	u_spt.name
	INTO :waste_code,
	:sptid,
	:waste_date,
	:waste_rep,
	:relcode,
	:dscrp,
	:flag,
	:Auditingdate,
	:Auditingrep,
	:modemp,
	:moddate,
	:opdate,
   :opemp,
	:sptcode,
	:sptname
	FROM u_order_wfjg_waste INNER JOIN
	u_spt ON u_order_wfjg_waste.sptid = u_spt.sptid
	WHERE u_order_wfjg_waste.wasteid = :arg_wasteid
	AND u_order_wfjg_waste.scid = :arg_scid  
	
	USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误',"查询操作失败(错误单据唯一码)",stopsign!,OK!)
	RETURN 0
END IF

dw_pageretr.Object.u_order_wfjg_waste_scid[uc_row] = arg_scid
dw_pageretr.Object.u_order_wfjg_waste_wasteid[uc_row] = arg_wasteid
dw_pageretr.Object.u_order_wfjg_waste_wastedate[uc_row] = waste_date
dw_pageretr.Object.u_order_wfjg_waste_assign_emp[uc_row] = waste_rep
dw_pageretr.Object.u_order_wfjg_waste_dscrp[uc_row] =  dscrp
dw_pageretr.Object.u_order_wfjg_waste_wastecode[uc_row] = waste_code

dw_pageretr.Object.u_order_wfjg_waste_opdate[uc_row] =  opdate
dw_pageretr.Object.u_order_wfjg_waste_opemp[uc_row] = opemp
dw_pageretr.Object.u_order_wfjg_waste_moddate[uc_row] =  moddate
dw_pageretr.Object.u_order_wfjg_waste_modemp[uc_row] = modemp
dw_pageretr.Object.u_order_wfjg_waste_flag[uc_row] = flag
dw_pageretr.Object.u_order_wfjg_waste_Auditingdate[uc_row] = Auditingdate
dw_pageretr.Object.u_order_wfjg_waste_Auditingrep[uc_row] = Auditingrep
dw_pageretr.Object.u_spt_name[uc_row] = sptname
dw_pageretr.Object.u_spt_sptcode[uc_row] = sptcode
dw_pageretr.Object.u_order_wfjg_waste_relcode[uc_row] = relcode
dw_pageretr.Object.u_order_wfjg_waste_sptid[uc_row] = sptid
dw_uc.Reset()
dw_pageretr.RowsCopy(dw_pageretr.GetRow(),&
dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!)

dw_uc.ResetUpdate()
dw_uc.SetRedraw(TRUE)
wf_flagstatus_rf()
RETURN 1


end function

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

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

RETURN 1

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_waste_wasteid[row]
	ll_scid = dw_pageretr.Object.u_order_wfjg_waste_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 = 228 //客户投拆单的 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_waste_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 = 228);
	IF sqlca.SQLCode <> 0 THEN
		ll_classid = 0
	END IF
	
	IF ll_classid > 0 THEN //如果已经指定好附件类型,则循环明细表查询每个明细的图片信息.
		FOR ll_i = 1 TO dw_order_spt.RowCount()
			ll_mtrlid = dw_order_spt.Object.u_order_wfjg_wastemx_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_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_waste_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_order_spt.RowCount()
		ll_mtrlid = dw_order_spt.Object.u_order_wfjg_wastemx_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_in_to_out2 (ref string arg_msg);

Int rslt = 1
Long ll_sptid
Long uc_row
uc_row = dw_uc.GetRow()

IF uc_row <= 0 THEN
	rslt = 0
	arg_msg = '请先选择单据'
	GOTO ext
END IF

ll_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[uc_row]

IF ll_sptid <= 0 THEN
	rslt = 0
	arg_msg = '请先选择供应商'
	GOTO ext
END IF

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

dw_order_spt.AcceptText()

Long child_llrow
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

Decimal mtrlwaresum_qty,r_qty,i_qty,ins_qty,ins_planprice,ins_price
Long ll_mtrlwareid
decimal li_cost
String ins_status,ins_woodcode,ins_pcode,ins_plancode

s_mtrldef_wfjg_array s_wfjg

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

dw_order_spt.AcceptText()
dw_ware_spt.AcceptText()

dw_ware_spt.SetRedraw(FALSE)
dw_ware_spt.Reset()

FOR ll_i = 1 TO ll_dw_in_rowcount
//	//数量 转换
//	IF sys_option_2unit = 0 THEN
//		dw_aft.Object.ow_wfjgmx_in_aft_uqty[ll_i] = dw_aft.Object.ow_wfjgmx_in_aft_qty[ll_i] / dw_aft.Object.ow_wfjgmx_in_aft_rate[ll_i]
//	ELSE
//		IF dw_aft.Object.ow_wfjgmx_in_aft_uqty[ll_i] <> 0 THEN
//			dw_aft.Object.ow_wfjgmx_in_aft_rate[ll_i] = dw_aft.Object.ow_wfjgmx_in_aft_qty[ll_i] / dw_aft.Object.ow_wfjgmx_in_aft_uqty[ll_i]
//		ELSE
//			dw_aft.Object.ow_wfjgmx_in_aft_rate[ll_i] = 0
//		END IF
//	END IF
//	
//	dw_aft.AcceptText()
//	
	ll_in_mtrlid = dw_order_spt.Object.u_order_wfjg_wastemx_mtrlid[ll_i]
	ld_qty = dw_order_spt.Object.u_order_wfjg_wastemx_qty[ll_i]
	//查找 收货对应的发出 明细
	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
		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
	li_cost=0
	SELECT top 1 mtrlwareid,cost
		INTO :ll_mtrlwareid,:li_cost
		FROM ow_wfjgware
		WHERE mtrlid = :s_wfjg.mtrlid[ll_j]
		AND sptid = :ll_sptid
		order by noallocqty desc;
	IF sqlca.SQLCode = 0 THEN
		
	ELSEIF sqlca.SQLCode = 100 THEN
		ll_mtrlwareid = 0
	ELSE
		arg_msg = '查询库存量失败>'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF

	IF dw_ware_spt.GetRow() <= 0 THEN
		child_llrow = dw_ware_spt.InsertRow(0)
	ELSE
		IF dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlid[dw_ware_spt.GetRow()] > 0 THEN
			child_llrow = dw_ware_spt.InsertRow(0)
		ELSE
			child_llrow = dw_ware_spt.GetRow()
		END IF
	END IF
	
	dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlwareid[child_llrow] = ll_mtrlwareid
	dw_ware_spt.Object.u_mtrldef_mtrlcode[child_llrow] = s_wfjg.mtrlcode[ll_j]
	dw_ware_spt.Object.u_mtrldef_unit[child_llrow] = s_wfjg.unit[ll_j]
	dw_ware_spt.Object.u_order_wfjg_wastemx_spt_qty[child_llrow] = s_wfjg.qty[ll_j]

	dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlid[child_llrow] = s_wfjg.mtrlid[ll_j]

	dw_ware_spt.Object.u_mtrldef_mtrlname[child_llrow] = s_wfjg.mtrlname[ll_j]

	dw_ware_spt.Object.u_mtrldef_mtrlmode[child_llrow] = s_wfjg.mtrlmode[ll_j]
	dw_ware_spt.Object.u_mtrldef_mtrlsectype[child_llrow] = s_wfjg.mtrlsectype[ll_j]
	dw_ware_spt.Object.u_mtrldef_zxmtrlmode[child_llrow] = s_wfjg.zxmtrlmode[ll_j]
	
	dw_ware_spt.Object.u_order_wfjg_wastemx_spt_fprice[child_llrow] = li_cost
		

NEXT
dw_ware_spt.SetRedraw(TRUE)
ext:
RETURN rslt



end function

on w_inware_wfjg_waste.create
int iCurrent
call super::create
this.ddlb_scid=create ddlb_scid
this.ddlb_status=create ddlb_status
this.st_3=create st_3
this.st_2=create st_2
this.tab_1=create tab_1
this.cb_in_2_out=create cb_in_2_out
this.cbx_autocmp=create cbx_autocmp
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_scid
this.Control[iCurrent+2]=this.ddlb_status
this.Control[iCurrent+3]=this.st_3
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.tab_1
this.Control[iCurrent+6]=this.cb_in_2_out
this.Control[iCurrent+7]=this.cbx_autocmp
end on

on w_inware_wfjg_waste.destroy
call super::destroy
destroy(this.ddlb_scid)
destroy(this.ddlb_status)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.tab_1)
destroy(this.cb_in_2_out)
destroy(this.cbx_autocmp)
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_flag,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 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_waste_wastecode LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( u_order_wfjg_waste_wastecode 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_waste.wastecode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(u_order_wfjg_waste.wastecode 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 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()

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


uc_column_int = 7 //uc dw前7列可以编辑
child_column_int = 11 //子dw前8列可以编辑
child_column_spt = 4 //子dw前8列可以编辑
uo_ware = CREATE uo_wfjg_waste
uo_ware.commit_transaction = sqlca

s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype'
f_hide_col(1308,dw_order_spt,s_col_mtrlsectype)
f_hide_col(1308,dw_ware_spt,s_col_mtrlsectype)

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode'
f_hide_col(1309,dw_order_spt,s_col_zxmtrlmode)
f_hide_col(1309,dw_ware_spt,s_col_zxmtrlmode)
end event

event refresh_interface;call super::refresh_interface;wf_flagstatus_rf()

ddlb_status.enabled=not dw_edit_mode

if dw_edit_mode then
	ddlb_scid.enabled=false
else
	if sys_scid > 0 then
		ddlb_scid.enabled=false
	else
		ddlb_scid.enabled=true
	end if
end if
end event

event close;call super::close;destroy uo_ware 
wf_del_tempfilepathname()
end event

event ue_f8;call super::ue_f8;//用于选择明细内容,被f8[默认]\dw_order_spt.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
Long child_row,ls_null,cnt_childdw
Long ins_storageid = 0
Long ls_sptid
Dec ls_lastprice,ls_rebate

s_edit_index_tran s_tranf8
s_tranf8.if_retrieve_all = FALSE
s_tranf8.arg_pkid = 0
s_tranf8.arg_string_code = ''
s_tranf8.b_long = 2

Long chc = 1,ls_j
SetNull(ls_null)

child_row = dw_order_spt.GetRow()
cnt_childdw = dw_order_spt.RowCount()

ls_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[dw_uc.GetRow()]

IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
	THIS.TriggerEvent("ue_f9")
END IF

dw_uc.AcceptText()
this.enabled = false
ls_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[dw_uc.GetRow()]
IF NOT IsValid(w_mtrldef_edit) THEN
	s_edit_index_tran s_ch_tran
	s_ch_tran.if_retrieve_all = FALSE
	s_ch_tran.work_mode = 1
	s_ch_tran.arg_pkid = 0
	s_ch_tran.arg_string_code = ''
	s_ch_tran.b_long = 3
	s_ch_tran.if_select_all = TRUE
	
	dw_order_spt.AcceptText()
	IF dw_order_spt.GetRow() > 0 THEN s_ch_tran.arg_string_code = Trim(dw_order_spt.Object.u_mtrldef_mtrlcode[dw_order_spt.GetRow()])
	
	OpenWithParm(w_mtrldef_edit,s_ch_tran) //调用
	
	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_order_spt.GetRow() > 0 THEN
				IF dw_order_spt.Object.u_order_wfjg_wastemx_mtrlid[child_row] <> 0 THEN
					child_row = dw_order_spt.InsertRow (0)
				ELSE
					child_row = dw_order_spt.GetRow()
				END IF
			ELSE
				child_row = dw_order_spt.InsertRow (0)
			END IF
			
			dw_order_spt.Object.u_mtrldef_mtrlcode[child_row] = s_inscust.mtrlcode[ls_j]
			dw_order_spt.Object.u_mtrldef_unit[child_row] = s_inscust.unit[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_mtrlid[child_row] = s_inscust.mtrlid[ls_j]
			dw_order_spt.Object.u_mtrldef_mtrlname[child_row] = s_inscust.mtrlname[ls_j]
			dw_order_spt.Object.u_mtrldef_statusflag[child_row]  = s_inscust.statusflag[ls_j]
			dw_order_spt.Object.u_mtrldef_woodcodeflag[child_row]  = s_inscust.woodcodeflag[ls_j]
			dw_order_spt.Object.u_mtrldef_pcodeflag[child_row]  = s_inscust.pcodeflag[ls_j]
			
		END IF
	NEXT
END IF


THIS.TriggerEvent('ue_allowedit')
dw_order_spt.SetRedraw(TRUE)
dw_order_spt.SetFocus()

this.enabled = true


end event

event retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid
row = dw_pageretr.GetRow()

IF row > 0 THEN
	uc_relid = dw_pageretr.Object.u_order_wfjg_waste_wasteid[row]
	dw_order_spt.SetRedraw (FALSE)
	dw_order_spt.Retrieve(cur_scid,uc_relid)
	dw_order_spt.SetRedraw (TRUE)
	dw_ware_spt.SetRedraw (FALSE)
	dw_ware_spt.Retrieve(cur_scid,uc_relid)
	dw_ware_spt.SetRedraw (TRUE)
ELSE
	dw_order_spt.Reset()
	dw_ware_spt.Reset()
END IF


end event

event ue_f9;call super::ue_f9;//用于选择明细内容,被F9[默认]
if not dw_edit_mode then return

long uc_row
uc_row=dw_pageretr.getrow()
if uc_row=0 then
	messagebox('提示','请选定损耗单!',information!,OK!)
	return 
end if
dw_uc.accepttext()
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.u_spt_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_waste_sptid[uc_row]=S_INSCUST.sptid
		dw_uc.object.u_spt_name[uc_row]=S_INSCUST.name
		dw_uc.object.u_spt_sptcode[uc_row]=S_INSCUST.sptcode
		dw_uc.setredraw(true)
		dw_uc.setcolumn("u_order_wfjg_waste_wastedate")
	END IF
end if
end event

event ue_viewprint;call super::ue_viewprint;IF Not (f_power_ind(392)) 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

S_print_MSG LS_PRMSG

LS_PRMSG.obj_dwNAME='dw_rp_wfjg_waste_edit'
LS_PRMSG.TAG_TEXT='损耗单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg=12
LS_PRMSG.PAGECH_FLAG=0
LS_PRMSG.retr_scid=cur_scid
LS_PRMSG.retr_pramnmb=dw_pageretr.object.u_order_wfjg_waste_wasteid[LS_ROW]
LS_PRMSG.rowcnt = dw_order_spt.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_waste',printnum,cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[LS_ROW],'','',arg_msg,true)
	

end event

event ue_f7;call super::ue_f7;IF NOT dw_edit_mode THEN RETURN
Long childrow,ls_sptid,ls_j
childrow = dw_order_spt.GetRow()

Int li_statusflag,li_woodcodeflag,li_pcodeflag
s_mtrldef_array arg_s_mtrldef

ls_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[dw_uc.GetRow()]
IF ls_sptid <= 0 THEN
	MessageBox("提示","请先选择供应商",information!,OK!)
	RETURN
END IF

s_edit_index_tran s_tranf8
s_tranf8.if_retrieve_all = FALSE
s_tranf8.arg_pkid = 0
s_tranf8.arg_string_code = ''
s_tranf8.b_long = 2
s_tranf8.d_long = ls_sptid

IF NOT IsValid(w_inware_wfjg_ch) THEN
	OpenWithParm(w_inware_wfjg_ch,s_tranf8)
	
	s_mtrldef_wfjg_array s_inscust
	s_inscust = Message.PowerObjectParm //接受返回结构
	dw_order_spt.SetRedraw(FALSE)
	FOR ls_j = 1 TO  UpperBound(s_inscust.wfjgid)
		IF s_inscust.wfjgid[ls_j] > 0 THEN //正常返回值则可以取以下值
			
			IF dw_order_spt.GetRow() > 0 THEN
				IF dw_order_spt.Object.u_order_wfjg_wastemx_wfjg_orderid[childrow] <> 0 THEN
					childrow = dw_order_spt.InsertRow (0)
				ELSE
					childrow = dw_order_spt.GetRow()
				END IF
			ELSE
				childrow = dw_order_spt.InsertRow (0)
			END IF
			dw_order_spt.Object.u_order_wfjg_wastemx_wfjg_orderid[childrow] = s_inscust.wfjgid[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_orderid[childrow] = s_inscust.orderid[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_mtrlid[childrow] = s_inscust.mtrlid[ls_j]
			dw_order_spt.Object.u_mtrldef_mtrlcode[childrow] = s_inscust.mtrlcode[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_wfjg_ordercode[childrow] = s_inscust.taskcode[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_price[childrow] = s_inscust.price[ls_j]
			dw_order_spt.Object.u_mtrldef_mtrlname[childrow] = s_inscust.mtrlname[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_status[childrow] = s_inscust.status[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_woodcode[childrow] = s_inscust.woodcode[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_pcode[childrow] = s_inscust.pcode[ls_j]
			dw_order_spt.Object.u_mtrldef_unit[childrow] = s_inscust.unit[ls_j]
			dw_order_spt.Object.u_order_wfjg_wastemx_wastedscrp[childrow] = s_inscust.dscrp[ls_j]
			IF f_find_mtrl(s_inscust.mtrlcode[ls_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_pcodeflag = arg_s_mtrldef.pcodeflag[1]
				li_woodcodeflag = arg_s_mtrldef.woodcodeflag[1]
			END IF
			
			dw_order_spt.Object.u_mtrldef_statusflag[childrow]  = li_statusflag
			dw_order_spt.Object.u_mtrldef_woodcodeflag[childrow]  = li_woodcodeflag
			dw_order_spt.Object.u_mtrldef_pcodeflag[childrow]  = li_pcodeflag
			
			
		END IF
	NEXT
	THIS.TriggerEvent('ue_allowedit')
	dw_order_spt.SetRedraw(TRUE)
END IF





end event

event ue_print;call super::ue_print;IF Not (f_power_ind(392)) 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

LS_PRMSG.retr_pram_falg=12
LS_PRMSG.obj_dwNAME='dw_rp_wfjg_waste_edit'
LS_PRMSG.TAG_TEXT='损耗单'

LS_PRMSG.FILTER_STRING = ''

LS_PRMSG.PAGECH_FLAG=0
LS_PRMSG.retr_scid=cur_scid
LS_PRMSG.retr_pramnmb=dw_pageretr.object.u_order_wfjg_waste_wasteid[dw_pageretr.getrow()]
LS_PRMSG.rowcnt = dw_order_spt.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_order_wfjg_waste',1,cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[dw_pageretr.getrow()],'','',arg_msg,true)
end event

event ue_before_open;call super::ue_before_open;dw_order_spt = tab_1.tabpage_1.dw_1
dw_ware_spt = tab_1.tabpage_2.dw_2
dw_order_spt.settransobject(sqlca)
dw_ware_spt.settransobject(sqlca)

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_order_spt.Width = THIS.Width - (3602 - 3515)
dw_order_spt.Height = tab_1.Height - 112

dw_ware_spt.Width = THIS.Width - (3602 - 3515)
dw_ware_spt.Height = tab_1.Height - 112
this.triggerevent('resize_p')
end event

event ue_f11;call super::ue_f11;//用于选择明细内容,被F8[默认]\dw_ware_spt.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
Long child_row,ins_sptid = 0
Long ls_j
dw_uc.accepttext()
ins_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[dw_uc.GetRow()]
IF ins_sptid = 0 OR IsNull(ins_sptid) THEN
	MessageBox(publ_operator,'请先选择加工商')
	RETURN
END IF

child_row = dw_ware_spt.GetRow()

IF NOT IsValid(w_sptware_sptid_ch) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = FALSE  //是否一次RETRIEVE所有行
	s_tranf8.arg_pkid = 0             //目标定位PKID (备用)
	s_tranf8.arg_string_code = ''     //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.b_long = - 1           //选择原料或产品
	s_tranf8.d_long = ins_sptid
	s_tranf8.f_long =cur_scid
	
	dw_ware_spt.AcceptText()
	IF dw_ware_spt.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_ware_spt.Object.u_mtrldef_mtrlcode[dw_ware_spt.GetRow()])
	OpenWithParm(w_sptware_sptid_ch,s_tranf8) //调用
	
	s_sptware_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlwareid)
		IF S_INSCUST.mtrlwareid[ls_j] > 0 THEN
			IF dw_ware_spt.GetRow() > 0 THEN
				IF dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlid[child_row] <> 0 THEN
					child_row = dw_ware_spt.InsertRow (0)
				ELSE
					child_row = dw_ware_spt.GetRow()
				END IF
			ELSE
				child_row = dw_ware_spt.InsertRow (0)
			END IF
			
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlwareid[child_row] = S_INSCUST.mtrlwareid[ls_j]
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlid[child_row]     = S_INSCUST.mtrlid[ls_j]
			dw_ware_spt.Object.u_mtrldef_mtrlcode[child_row]                  = S_INSCUST.u_mtrldef_mtrlcode[ls_j]
			dw_ware_spt.Object.u_mtrldef_mtrlname[child_row]                  = S_INSCUST.u_mtrldef_mtrlname[ls_j]
			dw_ware_spt.Object.u_mtrldef_mtrlmode[child_row]                  = S_INSCUST.u_mtrldef_mtrlmode[ls_j]
			dw_ware_spt.Object.u_mtrldef_unit[child_row]                      = S_INSCUST.u_mtrldef_unit[ls_j]
			
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_qty[child_row]        = S_INSCUST.noallocqty[ls_j]
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_fprice[child_row]     = S_INSCUST.cost[ls_j]
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_plancode[child_row]   = S_INSCUST.plancode[ls_j]
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_status[child_row]     = S_INSCUST.status[ls_j]
			
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_woodcode[child_row]   = S_INSCUST.woodcode[ls_j]
			dw_ware_spt.Object.u_order_wfjg_wastemx_spt_pcode[child_row]      = S_INSCUST.pcode[ls_j]
			
			dw_ware_spt.SetColumn('u_order_wfjg_wastemx_spt_qty')
		END IF
	NEXT
END IF

end event

event ue_addmx;if tab_1.selectedtab = 1 then 
	this.triggerevent('ue_f8')
	dw_order_spt.SetFocus()
else
	this.triggerevent('ue_f11')
	dw_order_spt.SetFocus()
end if 
end event

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

IF tab_1.SelectedTab = 1 THEN
	IF dw_order_spt.GetRow() = 0 THEN
		MessageBox('提示','请选择删除的行对象!',information!,OK!)
		RETURN
	END IF
	dw_order_spt.DeleteRow (0)
	dw_order_spt.TriggerEvent (RowFocusChanged!)
ELSE
	IF dw_ware_spt.GetRow() = 0 THEN
		MessageBox('提示','请选择删除的行对象!',information!,OK!)
		RETURN
	END IF
	dw_ware_spt.DeleteRow (0)
	dw_ware_spt.TriggerEvent (RowFocusChanged!)
END IF


end event

event ue_rpt_print;call super::ue_rpt_print;IF Not (f_power_ind(392)) 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_waste_flag[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_waste_scid[row]
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_waste_wasteid[row]
LS_PRMSG.rowcnt = dw_order_spt.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()

//**更新打印次料
printnum = message.doubleparm
f_update_printnum('u_order_wfjg_waste',printnum,cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[ROW],'','',arg_msg,true)
	



end event

event ue_rpt_viewprint;call super::ue_rpt_viewprint;IF Not (f_power_ind(392)) 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_waste_flag[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_waste_scid[row]
s_print.retr_pramnmb = dw_pageretr.Object.u_order_wfjg_waste_wasteid[row]
s_print.rowcnt = dw_order_spt.RowCount()
OpenWithParm(w_rpt_preview,s_print)


//**更新打印次料
string arg_msg
printnum = message.doubleparm
f_update_printnum('u_order_wfjg_waste',printnum,cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[ROW],'','',arg_msg,true)
	


end event

event ue_allowedit;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_order_spt.GetRow()
IF ll_row <= 0 THEN RETURN

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

FOR i = 1 TO Columns
	ls_modify_str = dw_order_spt.Describe("#" + String(i) + ".name")
	ls_modify_str = Lower(ls_modify_str)
	
	IF i = 1 THEN //第1个字段,约定物料ID
		ls_data_type = dw_order_spt.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_value = dw_order_spt.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'statusflag') > 0  THEN
		ls_data_type = dw_order_spt.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_statusflag = dw_order_spt.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcodeflag') > 0  THEN
		ls_data_type = dw_order_spt.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_woodcodeflag = dw_order_spt.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcodeflag') > 0  THEN
		ls_data_type = dw_order_spt.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_pcodeflag = dw_order_spt.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_order_spt.Modify(ls_status+".dddw.allowedit = no")
	ELSE
		dw_order_spt.Modify(ls_status+".dddw.allowedit = yes")
	END IF
END IF

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

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




end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_inware_wfjg_waste
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_inware_wfjg_waste
end type

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_inware_wfjg_waste
integer x = 183
integer width = 549
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_inware_wfjg_waste
integer x = 3045
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_inware_wfjg_waste
integer x = 2725
integer y = 56
integer width = 320
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_inware_wfjg_waste
integer x = 2034
integer y = 296
integer width = 1495
integer height = 864
string dataobject = "dw_inware_wfjg_waste_index"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;wf_flagstatus_rf()
wf_check_billfj()
IF dw_edit_mode THEN RETURN
IF currentrow <=0 THEN 
	dw_child.reset()
	RETURN 
end if
this.selectrow(0,false)
this.selectrow(currentrow,true)

DW_UC.SETROW(currentrow)
DW_UC.ScrollToRow (currentrow)

if not dw_edit_mode then parent.triggerevent('retrieve_childdw')
end event

type st_1 from w_publ_1ton_share_detail`st_1 within w_inware_wfjg_waste
integer x = 5
string text = "编码含"
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_inware_wfjg_waste
integer x = 3195
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_inware_wfjg_waste
integer y = 296
integer width = 2025
integer height = 864
string dataobject = "dw_inware_wfjg_waste_edit"
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_waste_dscrp'  and key = KeyEnter! then 
		dw_order_spt.setfocus()
		dw_order_spt.scrolltorow(dw_child.rowcount())
		dw_order_spt.SetColumn ('u_order_wfjg_wastemx_wfjg_ordercode')		
		return 1
	elseif dw_uc.GetColumnName ( )='u_spt_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.u_spt_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_waste_sptid[dw_uc.GetRow()] = ls_sptid
			dw_uc.Object.u_spt_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_waste_wastedate")
			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::doubleclicked;IF dw_edit_mode and row >0 THEN
	parent.triggerevent('ue_f9')	
END IF
end event

event dw_uc::itemchanged;call super::itemchanged;IF NOT dw_edit_mode THEN RETURN
IF dwo.Name = 'storageid' THEN
	dw_child.Reset()
	PARENT.TriggerEvent("insert_childrow")
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')
ELSEIF  dwo.Name = 'p_b' THEN
	PARENT.TriggerEvent('ue_f7')
END IF

end event

type gb_2 from w_publ_1ton_share_detail`gb_2 within w_inware_wfjg_waste
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_inware_wfjg_waste
boolean visible = false
integer x = 713
integer y = 524
integer width = 695
integer height = 456
string dataobject = "dw_inwaremx_wfjg_waste_edit"
end type

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

String ls_mtrlcode,ls_mtrlname,ls_unit,ls_wfjg_code,ls_taskcode
Long ls_mtrlid,ls_sptid,ls_wfjgid,ls_orderid
String ls_prdpackcode
Decimal ls_packqty
Int cnt = 0
Long child_row
Long ls_null
SetNull(ls_null)

IF dw_edit_mode THEN
	ls_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[dw_uc.GetRow()]
	IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
		PARENT.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
			dw_child.AcceptText()
			IF 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
					INTO	:ls_mtrlid,:ls_mtrlname,:ls_unit
					FROM 	u_mtrldef
					Where	( u_mtrldef.mtrlcode = :ls_mtrlcode);
					
				IF sqlca.SQLCode = 100 THEN
					PARENT.TriggerEvent('ue_f8')
					RETURN
				END IF
				
				dw_child.Object.u_order_wfjg_wastemx_mtrlid[child_row]    = ls_mtrlid
				dw_child.Object.u_mtrldef_mtrlname[child_row]    = ls_mtrlname
				dw_child.Object.u_mtrldef_unit[child_row]        = ls_unit
				
				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_wfjg_wastemx_wfjg_ifrel' THEN
				IF dw_child.Object.u_order_wfjg_wastemx_wfjg_ifrel[dw_child.GetRow()] = 1 THEN
					dw_child.Object.u_mtrldef_mtrlcode.protect = 1
				ELSE
					dw_child.Object.u_mtrldef_mtrlcode.protect = 0
				END IF
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
				
			ELSEIF dw_child.GetColumnName( ) = 'u_order_wfjg_wastemx_wfjg_ordercode' AND dw_child.GetRow() = dw_child.RowCount() THEN
				PARENT.TriggerEvent('ue_f7')
				dw_child.SetColumn('u_order_wfjg_wastemx_qty')
				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_wfjg_wastemx_wastedscrp' 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


end event

event dw_child::doubleclicked;dw_child.accepttext()

if dw_edit_mode then
	if row > 0 then
		if dwo.name='u_order_wfjg_wastemx_wfjg_ordercode'  then
			parent.triggerevent('ue_f7')
		else
   		parent.triggerevent('ue_f8')
		end if
	else
		parent.triggerevent('ue_f8')
	end if
end if
end event

event dw_child::itemchanged;call super::itemchanged;//if not dw_edit_mode then return 
//this.accepttext()
//if dwo.name = 'u_inwaremx_ifrel' then
//	if this.object.u_inwaremx_ifrel[row] = 0 then
//		dw_child.object.u_inwaremx_relid[row] = 0			
//		dw_child.object.u_order_wfjg_taskcode[row] = ''
//	end if
//end if
end event

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_inware_wfjg_waste
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_inware_wfjg_waste
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_inware_wfjg_waste
end type

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

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

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	dw_order_spt.AcceptText()
	uc_row = dw_uc.GetRow()
	dw_ware_spt.AcceptText()
	IF uc_row <= 0 THEN
		MessageBox('提示','请选定当前目标单据!',information!,OK!)
		RETURN
	END IF
	
	IF Not dw_uc.Object.u_order_wfjg_waste_wastedate[uc_row] > DateTime(2000-01-01,Now()) THEN
		MessageBox('提示','不合理发生时间!',information!,OK!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_order_wfjg_waste_wastedate")
		RETURN
	END IF
	
	IF Not Len(String(dw_uc.Object.u_order_wfjg_waste_assign_emp[uc_row])) > 0 THEN
		MessageBox('提示','请填写经手人!',information!,OK!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_order_wfjg_waste_assign_emp")
		RETURN
	END IF
	
	FOR j = 1 To dw_order_spt.RowCount()
		IF dw_order_spt.Object.u_order_wfjg_wastemx_qty[j] < 0 THEN
			MessageBox('提示','数量要输入正数',information!,OK!)
			RETURN
		END IF
	NEXT
	
		IF cbx_autocmp.Checked THEN //保存自动按收货明细计算外协商库存明细
			IF wf_in_to_out2(arg_msg) = 0 THEN
				MessageBox(publ_operator,arg_msg)
				RETURN
			END IF
		END IF
	
	
	uo_ware.waste_date = dw_uc.Object.u_order_wfjg_waste_wastedate[uc_row] // 发生时间
	uo_ware.waste_rep  = dw_uc.Object.u_order_wfjg_waste_assign_emp[uc_row] // 经手人
	
	uo_ware.dscrp  = dw_uc.Object.u_order_wfjg_waste_dscrp[uc_row] //备注
	uo_ware.relcode = dw_uc.Object.u_order_wfjg_waste_relcode[uc_row]
	uo_ware.sptname = dw_uc.Object.u_spt_name[uc_row]
	uo_ware.sptid = dw_uc.Object.u_order_wfjg_waste_sptid[uc_row]
	
	Long i
	FOR i = 1 To dw_order_spt.RowCount()
		IF dw_order_spt.Object.u_order_wfjg_wastemx_mtrlid[i] > 0 THEN
			IF uo_ware.acceptmx(dw_order_spt.Object.printid[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_ifrel[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_mtrlid[i],&
				dw_order_spt.Object.u_mtrldef_mtrlcode[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_status[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_woodcode[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_pcode[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_qty[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_wastedscrp[i],&
				arg_msg,&
				dw_order_spt.Object.u_order_wfjg_wastemx_price[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_wfjg_orderid[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_orderid[i],&
				dw_order_spt.Object.u_order_wfjg_wastemx_plancode[i]) = 0 THEN
				MessageBox('错误',arg_msg,stopsign!,OK!)
				RETURN
			END IF
		END IF
	NEXT
	
	FOR i = 1 To dw_ware_spt.RowCount()
		IF dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlid[i] > 0 THEN
			IF uo_ware.acceptmx_bef(dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mtrlwareid[i],&
				dw_ware_spt.Object.u_order_wfjg_wastemx_spt_qty[i],&
				dw_ware_spt.Object.u_order_wfjg_wastemx_spt_mxdscrp[i],&
				dw_ware_spt.Object.printid[i],&
				arg_msg) = 0 THEN
				MessageBox('错误',arg_msg,stopsign!,OK!)
				RETURN
			END IF
		END IF
	NEXT
	
	IF uo_ware.Save(True,arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,OK!)
		RETURN
	END IF
	MessageBox('提示','保存操作成功!',information!,OK!)
	
	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_ware.wasteid) //刷新uc
	
ELSE
	IF uo_ware.newbegin(cur_scid,4,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_order_spt.Reset()
	dw_ware_spt.Reset()
	dw_uc.Reset()
	dw_uc.SetFocus()
	dw_pageretr.RowsCopy(li_row,li_row, Primary!, dw_uc, 1, Primary!)
	
	IF  dw_uc.GetRow() > 0 THEN
		dw_uc.Object.u_order_wfjg_waste_assign_emp[dw_uc.GetRow()] = publ_operator
	END IF
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_spt")

ELSE
	Parent.TriggerEvent("retrieve_childdw")
END IF
This.TriggerEvent('refresh_interface')



end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_inware_wfjg_waste
end type

event cb_edit::clicked;
IF NOT f_power_ind(247) 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_ware.updatebegin(cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[uc_row],arg_msg)=0 then
		messagebox('错误',arg_msg,stopsign!,OK!)
		return
	end if
end if

call super::clicked
end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_inware_wfjg_waste
end type

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


string arg_msg=''

if dw_edit_mode then return
if messagebox ("询问","是否确定要删除当前单据?",question!,yesno! ) = 2 then return



long uc_row
uc_row=dw_pageretr.getrow()
if uc_row<=0 then
	messagebox('提示','请选定当前目标单据!',information!,OK!)
	return
end if
if uo_ware.del(cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[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_waste_wasteid[uc_row]
	ls_code=dw_pageretr.object.u_order_wfjg_waste_wastecode[uc_row]
	f_setsysoplog('损耗单','损耗单删除,id:'+string(ls_id)+',code:'+ls_code,arg_msg,true)
	//--
	messagebox('提示','删除单据'+string(dw_pageretr.object.u_order_wfjg_waste_wastecode[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_inware_wfjg_waste
end type

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


menustr="Text=增加备注~tEvent=ue_addzy"
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_inware_wfjg_waste
end type

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

if dw_edit_mode then return
string arg_msg=''

if messagebox ("询问","是否确定要审核当前单据?",question!,yesno! ) = 2 then return
long pagerert_row

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

if uo_ware.getinfo(cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[pagerert_row],arg_msg)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
	return
end if

if uo_ware.auditing(true,arg_msg)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
else
	messagebox('提示','审核成功!',information!,OK!)
	wf_refresh_curuc(cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[pagerert_row])
end if
end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_inware_wfjg_waste
end type

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_inware_wfjg_waste
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_inware_wfjg_waste
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_inware_wfjg_waste
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_inware_wfjg_waste
end type

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

if dw_edit_mode then return
if not keydown(KeyControl!) then
IF MessageBox ("询问","是否确定要"+this.text+"当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
end if
string arg_msg='',ls_code,ls_opemp,ls_outpart
long pagerert_row,ls_id

pagerert_row=dw_pageretr.getrow()
if pagerert_row<=0 then
	messagebox('提示','请选定当前目标单据!',information!,OK!)
	return
end if
if uo_ware.getinfo(cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid [pagerert_row],arg_msg)=0 then
	messagebox('错误',arg_msg,stopsign!,OK!)
	return
end if

if dw_pageretr.object.u_order_wfjg_waste_flag[pagerert_row]=1 then
	if uo_ware.c_auditing(true,arg_msg)=0 then
		messagebox('错误',arg_msg,stopsign!,OK!)
	else
		messagebox('提示','撤审成功!',information!,OK!)			
		wf_refresh_curuc(cur_scid,dw_pageretr.object.u_order_wfjg_waste_wasteid[pagerert_row])
	end if
end if	
end event

type p_msg from w_publ_1ton_share_detail`p_msg within w_inware_wfjg_waste
end type

type p_help from w_publ_1ton_share_detail`p_help within w_inware_wfjg_waste
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_inware_wfjg_waste
end type

type p_other from w_publ_1ton_share_detail`p_other within w_inware_wfjg_waste
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_inware_wfjg_waste
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_inware_wfjg_waste
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_inware_wfjg_waste
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_inware_wfjg_waste
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_inware_wfjg_waste
integer beginx = 9
integer endx = 3273
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_inware_wfjg_waste
integer beginx = 9
integer endx = 3273
end type

type ddlb_scid from uo_ddlb_scid within w_inware_wfjg_waste
integer x = 946
integer y = 188
integer width = 549
integer height = 1120
integer taborder = 20
boolean bringtotop = true
end type

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

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

type ddlb_status from dropdownlistbox within w_inware_wfjg_waste
integer x = 1691
integer y = 188
integer width = 549
integer height = 300
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部]"
boolean sorted = false
string item[] = {"[全部]","待审核","已审核"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;if index=1 then 
	cur_flag=-1
elseif index=2 then 
	cur_flag=0
elseif index=3 then 
	cur_flag=1
end if
parent.triggerevent('retrieve_pageretr')
end event

type st_3 from statictext within w_inware_wfjg_waste
integer x = 1513
integer y = 208
integer width = 219
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "状  态"
boolean focusrectangle = false
end type

type st_2 from statictext within w_inware_wfjg_waste
integer x = 768
integer y = 208
integer width = 219
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分　部"
boolean focusrectangle = false
end type

type tab_1 from tab within w_inware_wfjg_waste
integer y = 1180
integer width = 3529
integer height = 1064
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
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 = 3493
integer height = 952
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 = 3493
integer height = 952
integer taborder = 20
string dataobject = "dw_inwaremx_wfjg_waste_edit"
boolean hscrollbar = true
boolean vscrollbar = 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;call super::doubleclicked;dw_child.accepttext()

if dw_edit_mode then
	if row > 0 then
		if dwo.name='u_order_wfjg_wastemx_wfjg_ordercode'  then
			PARENT.GetParent().GetParent().TriggerEvent('ue_f7')
		elseif dwo.name = 'u_mtrldef_mtrlcode' then 
   		PARENT.GetParent().GetParent().TriggerEvent('ue_f8')
		end if
	end if
end if
end event

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

String ls_mtrlcode,ls_mtrlname,ls_unit,ls_wfjg_code,ls_taskcode
Long ls_mtrlid,ls_sptid,ls_wfjgid,ls_orderid
String ls_prdpackcode
Decimal ls_packqty
Int cnt = 0
Long child_row
Long ls_null

Int li_statusflag,li_woodcodeflag,li_pcodeflag
SetNull(ls_null)

IF dw_edit_mode THEN
	ls_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[dw_uc.GetRow()]
	IF IsNull(ls_sptid) OR ls_sptid = 0 THEN
		PARENT.TriggerEvent("ue_f9")
	END IF
	
	IF KeyDown(keydownarrow!) THEN
		Long li_row
		IF dw_order_spt.GetRow() = dw_order_spt.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
			dw_order_spt.AcceptText()
			IF dw_order_spt.GetColumnName() = 'u_mtrldef_mtrlcode' THEN
				dw_order_spt.AcceptText()
				child_row = dw_order_spt.GetRow()
				
				ls_mtrlcode = dw_order_spt.Object.u_mtrldef_mtrlcode[child_row]
				SELECT u_mtrldef.mtrlid,
					u_mtrldef.mtrlname,
					u_mtrldef.unit,
					u_mtrldef.statusflag,
					u_mtrldef.woodcodeflag,
					u_mtrldef.pcodeflag
					INTO	:ls_mtrlid,:ls_mtrlname,:ls_unit,
					:li_statusflag,:li_woodcodeflag,:li_pcodeflag
					FROM 	u_mtrldef
					Where	( u_mtrldef.mtrlcode = :ls_mtrlcode);
					
				IF sqlca.SQLCode = 100 THEN
					PARENT.GetParent().GetParent().TriggerEvent('ue_f8')
					RETURN
				END IF
				
				dw_order_spt.Object.u_order_wfjg_wastemx_mtrlid[child_row]    = ls_mtrlid
				dw_order_spt.Object.u_mtrldef_mtrlname[child_row]    = ls_mtrlname
				dw_order_spt.Object.u_mtrldef_unit[child_row]        = ls_unit
				
				dw_order_spt.Object.u_mtrldef_statusflag[child_row]  = li_statusflag
				dw_order_spt.Object.u_mtrldef_woodcodeflag[child_row]  = li_woodcodeflag
				dw_order_spt.Object.u_mtrldef_pcodeflag[child_row]  = li_pcodeflag
				
				PARENT.TriggerEvent('ue_allowedit')
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			ELSEIF dw_order_spt.GetColumnName( ) = 'u_order_wfjg_wastemx_wfjg_ifrel' THEN
				IF dw_order_spt.Object.u_order_wfjg_wastemx_wfjg_ifrel[dw_order_spt.GetRow()] = 1 THEN
					dw_order_spt.Object.u_mtrldef_mtrlcode.protect = 1
				ELSE
					dw_order_spt.Object.u_mtrldef_mtrlcode.protect = 0
				END IF
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			ELSEIF dw_order_spt.GetColumnName( ) = 'u_order_wfjg_wastemx_wfjg_ordercode' AND dw_order_spt.GetRow() = dw_order_spt.RowCount() THEN
				PARENT.GetParent().GetParent().TriggerEvent('ue_f7')
				dw_order_spt.SetColumn('u_order_wfjg_wastemx_qty')
				dw_order_spt.SetFocus( )
				RETURN 1
			ELSEIF dw_order_spt.GetColumnName( ) = 'u_order_wfjg_wastemx_wastedscrp' AND dw_order_spt.GetRow() = dw_order_spt.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.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

event itemchanged;call super::itemchanged;int li_autocmpl
dw_order_spt.accepttext()
//
if row>0 then
	
	li_autocmpl=dw_order_spt.object.u_order_wfjg_wastemx_ifrel[row]
	f_SetProfileString (sys_empid,dw_pageretr.DataObject, "ifrel", String(li_autocmpl))
end if
end event

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3493
integer height = 952
long backcolor = 134217739
string text = "损耗外协商库存"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_2 dw_2
end type

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

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

type dw_2 from u_dw_rbtnfilter within tabpage_2
integer width = 3493
integer height = 952
integer taborder = 30
string dataobject = "dw_inwaremx_wfjg_waste_spt_edit"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event doubleclicked;call super::doubleclicked;IF dw_edit_mode THEN
	IF row > 0 THEN
		PARENT.GetParent().GetParent().TriggerEvent('ue_f11')
	END IF
END IF

end event

event dwnkey;call super::dwnkey;parent.getparent().getparent().TriggerEvent('user_key')
String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode
String ls_plancode,ls_status,ls_woodcode,ls_pcode
Long ls_mtrlwareid,ls_mtrlid,ls_sptid
Dec ls_noallocqty,ls_cost,ls_planprice,ls_packqty

Long child_row
Long ls_null
SetNull(ls_null)

s_sptware_array arg_s_sptware

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	ls_sptid = dw_uc.Object.u_order_wfjg_waste_sptid[dw_uc.GetRow()]
	IF ls_sptid = 0 OR IsNull(ls_sptid) THEN
		MessageBox('提示','请先选择加工商',information!,OK!)
		RETURN
	END IF
	
	IF KeyDown(Keydownarrow!) THEN
		Long li_row
		IF dw_ware_spt.GetRow() = dw_ware_spt.RowCount() THEN
			parent.getparent().getparent().TriggerEvent("insert_childrow_out")
		END IF
	ELSE
		If KeyDown(KeyEnter!) AND NOT KeyDown(KeyControl!) AND NOT KeyDown(KeyShift!) THEN
			IF dw_ware_spt.GetColumnName( ) = 'u_mtrldef_mtrlcode' THEN
				
				dw_ware_spt.AcceptText()
				child_row = dw_ware_spt.GetRow()
				
				ls_mtrlcode = dw_ware_spt.Object.u_mtrldef_mtrlcode[child_row]
								//查询产品是否多于一批库存
				int cnt=0
				SELECT count(mtrlwareid) into :cnt	 			
    			 FROM ow_wfjgware, u_mtrldef
  			   WHERE ( u_mtrldef.mtrlid = ow_wfjgware.mtrlid ) 
     			  and ( ow_wfjgware.sptid=:ls_sptid )
	  			  and ( u_mtrldef.mtrlcode=:ls_mtrlcode)
				  and ( ow_wfjgware.noallocqty > 0 );
				if sqlca.sqlcode=100 or cnt > 1 then
					parent.getparent().getparent().triggerevent('ue_f11')
					return
				end if
				/////////////////////////////
				SELECT top 1 ow_wfjgware.mtrlwareid ,   
  				       ow_wfjgware.mtrlid,            
			          u_mtrldef.mtrlname,   
			          u_mtrldef.unit,   
			          ow_wfjgware.noallocqty,   
			          ow_wfjgware.cost ,
			          ow_wfjgware.sptid,   
			          ow_wfjgware.plancode,          
			          u_mtrldef.mtrlmode, 
			      	 ow_wfjgware.planprice,
						 ow_wfjgware.status,
						 ow_wfjgware.woodcode,
						 ow_wfjgware.pcode
	         INTO	:ls_mtrlwareid,:ls_mtrlid,:ls_mtrlname,:ls_unit,:ls_noallocqty,
						:ls_cost,:ls_sptid,:ls_plancode,:ls_mtrlmode,
						:ls_planprice,:ls_status,:ls_woodcode,
						:ls_pcode
   			FROM u_mtrldef,   
	              ow_wfjgware left outer join u_spt 
			        on ( ow_wfjgware.sptid = u_spt.sptid)			        
           WHERE ( u_mtrldef.mtrlid = ow_wfjgware.mtrlid ) 
   			 and ( ow_wfjgware.sptid=:ls_sptid )
	  			 and ( u_mtrldef.mtrlcode=:ls_mtrlcode )
				 and ( ow_wfjgware.scid = :cur_scid )
				 and ( ow_wfjgware.noallocqty > 0 )
			 order by ow_wfjgware.mtrlwareid asc;
	
 			  if sqlca.sqlcode=100 then
					parent.getparent().getparent().triggerevent('ue_f11')
					return
				end if
					dw_ware_spt.object.ow_wfjgmx_in_bef_mtrlwareid[child_row]=ls_mtrlwareid
					dw_ware_spt.object.ow_wfjgmx_in_bef_mtrlid[child_row]    =ls_mtrlid
					dw_ware_spt.object.u_mtrldef_mtrlname[child_row]    =ls_mtrlname
					dw_ware_spt.object.u_mtrldef_mtrlmode[child_row]    =ls_mtrlmode
					dw_ware_spt.object.u_mtrldef_unit[child_row]        =ls_unit
					
					dw_ware_spt.object.ow_wfjgmx_in_bef_qty[child_row]=ls_noallocqty 
					dw_ware_spt.object.ow_wfjgmx_in_bef_fprice[child_row]     =ls_cost
					dw_ware_spt.object.ow_wfjgmx_in_bef_plancode[child_row]  =ls_plancode
					dw_ware_spt.object.ow_wfjgmx_in_bef_status[child_row]  =ls_status
					dw_ware_spt.object.ow_wfjgmx_in_bef_woodcode[child_row]  =ls_woodcode
					dw_ware_spt.object.ow_wfjgmx_in_bef_pcode[child_row]  =ls_pcode
					If key = KeyEnter!  Then //
						keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
						keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
						return 1	
					end if
			elseif dw_ware_spt.GetColumnName( )='ow_wfjgmx_in_bef_mxdscrp' and dw_ware_spt.getrow()=dw_ware_spt.rowcount() then
				parent.getparent().getparent().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


end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type cb_in_2_out from uo_imflatbutton within w_inware_wfjg_waste
integer x = 3378
integer y = 188
integer width = 603
integer height = 84
integer taborder = 390
boolean bringtotop = true
string text = "按清单计算外协商库存"
end type

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

end event

type cbx_autocmp from checkbox within w_inware_wfjg_waste
integer x = 2267
integer y = 192
integer width = 1074
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "保存自动按收货明细计算外协商库存明细"
end type

event clicked;int li_autocmpl
IF THIS.Checked THEN
	li_autocmpl = 1
ELSE
	li_autocmpl = 0
END IF

f_SetProfileString (sys_empid,dw_pageretr.DataObject, "cur_autocmpl", String(li_autocmpl))
end event

event constructor;int li_autocmpl
li_autocmpl = Integer(f_ProfileString (sys_empid,dw_pageretr.DataObject, "cur_autocmpl", '0'))
IF li_autocmpl = 0 THEN
	THIS.Checked = FALSE
ELSE
	THIS.Checked = TRUE
END IF

end event