Q5/ws_objects/Ew_ware.pbl.src/w_warepdb_bill.srw

$PBExportHeader$w_warepdb_bill.srw
forward
global type w_warepdb_bill from w_publ_1ton_share_detail
end type
type ddlb_scid from uo_ddlb_scid within w_warepdb_bill
end type
type ddlb_status from dropdownlistbox within w_warepdb_bill
end type
type st_3 from statictext within w_warepdb_bill
end type
type st_2 from statictext within w_warepdb_bill
end type
type cb_pypk from uo_imflatbutton within w_warepdb_bill
end type
type cbx_packqty_cmpl from checkbox within w_warepdb_bill
end type
type cb_scanbill from commandbutton within w_warepdb_bill
end type
end forward

global type w_warepdb_bill from w_publ_1ton_share_detail
integer height = 2300
string title = "仓库盘点单"
boolean maxbox = true
windowstate windowstate = maximized!
event insert_childrow ( )
event ue_fj_edit ( )
event ue_fj_view ( )
event ue_add_addqty ( )
ddlb_scid ddlb_scid
ddlb_status ddlb_status
st_3 st_3
st_2 st_2
cb_pypk cb_pypk
cbx_packqty_cmpl cbx_packqty_cmpl
cb_scanbill cb_scanbill
end type
global w_warepdb_bill w_warepdb_bill

type variables
long cur_scid  //分店ID
long copy_storageid = 0 
int cur_flag=-1
uo_warepdb_bill  uo_ware
string ol_cdw_str =''

int ii_packqty_cmpl
end variables

forward prototypes
public function integer wf_flagstatus_rf ()
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_refresh_curuc (long arg_scid, long arg_billid)
public function integer wf_check (ref string arg_msg)
public function integer wf_check_mtrlwareid (long arg_mtrlwareid, long arg_row)
end prototypes

event insert_childrow();long li_row
li_row=dw_child.insertrow(0)
dw_child.scrolltorow(li_row)
dw_child.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(1098) 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 = 303 
s_pic.f_string = dw_uc.Object.u_outware_outwarecode[ls_row]
s_pic.g_long = dw_uc.Object.u_outware_outwareid[ls_row]
s_pic.e_long = dw_uc.Object.u_outware_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 = 303 //销售订单的mainID
s_pic.f_string = dw_uc.Object.u_outware_outwarecode[ls_row]
s_pic.g_long = dw_uc.Object.u_outware_outwareid[ls_row]
s_pic.e_long = dw_uc.Object.u_outware_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)



end event

event ue_add_addqty();IF NOT dw_edit_mode THEN RETURN

Long child_row
Int if_addmxdscrp
String ls_mxdscrp
s_addqty_input s_input

dw_child.AcceptText( )

child_row = dw_child.GetRow()

IF child_row <= 0 THEN RETURN

IF dw_child.Object.u_warepdb_billmx_mtrlid[child_row] <= 0 THEN RETURN

ls_mxdscrp = dw_child.Object.u_warepdb_billmx_mxdscrp[child_row]

IF NOT IsValid(w_addqty_input) THEN
	OpenWithParm(w_addqty_input,ls_mxdscrp)
	
	s_input = Message.PowerObjectParm
	
	IF s_input.addqty = -1 THEN RETURN
	
	dw_child.Object.u_warepdb_billmx_factaddqty[child_row]  = s_input.addqty
	
	IF s_input.addqtystr <> '' THEN
		dw_child.Object.u_warepdb_billmx_mxdscrp[child_row] = s_input.addqtystr
	END IF
//	
//	IF s_input.formula <> '' THEN
//		dw_child.Object.u_outwaremx_formula[child_row] = s_input.formula
//	END IF
//	
	IF s_input.flag = 1 THEN
		dw_child.Object.u_warepdb_billmx_factqty[child_row]  = s_input.qty
	END IF
	
END IF


end event

public function integer wf_flagstatus_rf ();//====================================================================
// Function: wf_flagstatus_rf()
//--------------------------------------------------------------------
// Description: 
//--------------------------------------------------------------------
// Arguments:(None)
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	yyx		Date: 2003.12.26
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================

Long pagerert_row

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Enabled = FALSE
	GOTO ext
END IF

IF dw_edit_mode THEN
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Enabled = FALSE
	cb_pypk.Enabled = FALSE
ELSE
	IF dw_pageretr.Object.flag[pagerert_row] = 0 THEN
		cb_auditing.Enabled = TRUE
		cb_auditing_cancel.Enabled = FALSE
	ELSEIF dw_pageretr.Object.flag[pagerert_row] = 1 THEN
		cb_auditing.Enabled = FALSE
		cb_auditing_cancel.Enabled = TRUE
	END IF
	IF dw_pageretr.Object.u_warepdb_bill_ifpypk[pagerert_row] = 0 THEN
		cb_pypk.Enabled = TRUE
	ELSE
		cb_pypk.Enabled = FALSE
	END IF
END IF

ext:
RETURN 0

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_warepdb_bill_billid[row]
	ll_scid = dw_pageretr.Object.u_warepdb_bill_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 = 0   //还没添加盘点单ID

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_warepdb_bill_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 = 303);
//	IF sqlca.SQLCode <> 0 THEN
//		ll_classid = 0
//	END IF
//	
//	IF ll_classid > 0 THEN //如果已经指定好附件类型,则循环明细表查询每个明细的图片信息.
//		FOR ll_i = 1 TO dw_child.RowCount()
//			ll_mtrlid = dw_child.Object.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_refresh_curuc (long arg_scid, long arg_billid);//wf_refresh_curuc
IF arg_billid <= 0 OR IsNull(arg_billid) THEN RETURN 0
Long uc_row
uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN RETURN 0

Long billid
Long StorageID
DateTime billdate
String Assign_Emp
String part
String dscrp
String billcode
DateTime opdate
String opemp
DateTime Permit_date
String Permit_Emp
Long flag
String storagename
Long scid
String Modemp
DateTime moddate
long ifpypk
SELECT u_warepdb_bill.billid,
	u_warepdb_bill.StorageID,
	u_warepdb_bill.billdate,
	u_warepdb_bill.Assign_Emp,
	u_warepdb_bill.part,
	u_warepdb_bill.dscrp,
	u_warepdb_bill.billcode,
	u_warepdb_bill.opdate,
	u_warepdb_bill.opemp,
	u_warepdb_bill.Permit_date,
	u_warepdb_bill.Permit_Emp,
	u_warepdb_bill.flag,
	u_storage.storagename,
	u_warepdb_bill.scid,
	u_warepdb_bill.Modemp,
	u_warepdb_bill.moddate,
			u_warepdb_bill.ifpypk
	INTO :billid	,
	:StorageID	,
	:billdate	,
	:Assign_Emp	,
	:part	,
	:dscrp	,
	:billcode	,
	:opdate	  ,
	:opemp	,
	:Permit_date,
	:Permit_Emp,
	:flag	 ,
	:storagename	,
	:scid	,
	:Modemp	,
	:moddate,
	:ifpypk
	FROM u_warepdb_bill,
	u_storage
	WHERE ( u_warepdb_bill.StorageID = u_storage.storageid ) AND
	(u_warepdb_bill.scid = :arg_scid  ) AND
	(u_warepdb_bill.billid = :arg_billid) ;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误',"查询操作失败(错误单据唯一码)",stopsign!,ok!)
	RETURN 0
END IF

dw_pageretr.Object.u_warepdb_bill_billid[uc_row] = billid
dw_pageretr.Object.u_warepdb_bill_StorageID[uc_row]  = StorageID
dw_pageretr.Object.u_warepdb_bill_billdate[uc_row]  = billdate
dw_pageretr.Object.u_warepdb_bill_Assign_Emp[uc_row]  =  Assign_Emp
dw_pageretr.Object.u_warepdb_bill_part[uc_row]  =   part
dw_pageretr.Object.u_warepdb_bill_dscrp[uc_row] =  dscrp
dw_pageretr.Object.u_warepdb_bill_billcode[uc_row] =  billcode
dw_pageretr.Object.u_warepdb_bill_opdate[uc_row] =   opdate
dw_pageretr.Object.u_warepdb_bill_opemp[uc_row] = opemp
dw_pageretr.Object.u_warepdb_bill_Permit_date[uc_row] = Permit_date
dw_pageretr.Object.u_warepdb_bill_Permit_Emp[uc_row] =  Permit_Emp
dw_pageretr.Object.flag[uc_row] =    flag
dw_pageretr.Object.u_storage_storagename[uc_row] =  storagename
dw_pageretr.Object.u_warepdb_bill_scid[uc_row] =   scid
dw_pageretr.Object.u_warepdb_bill_Modemp[uc_row] =  Modemp
dw_pageretr.Object.u_warepdb_bill_moddate[uc_row]  = moddate
dw_pageretr.Object.u_warepdb_bill_ifpypk[uc_row]  = ifpypk

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_check (ref string arg_msg);Int rslt = 1

DateTime ldt_pdbdate
Long cnt
Long cur_storageid
String ins_pdbdate
IF dw_uc.GetRow() = 0 THEN GOTO ext
dw_uc.AcceptText()

ldt_pdbdate = DateTime(Date(dw_uc.Object.u_warepdb_bill_billdate[dw_uc.GetRow()]),Time('23:59:59'))
cur_storageid = dw_uc.Object.storageid[dw_uc.GetRow()]
ins_pdbdate = String(Date(ldt_pdbdate),'yyyymmdd')

IF cur_storageid <= 0 THEN
	arg_msg =  "请选择仓库"
	rslt  = 0
	GOTO ext
END IF

IF sys_option_warepdb_bill_multi = 0 THEN
	cnt = 0
	SELECT count(*)
		INTO :cnt
		FROM u_warepdb_bill
		Where storageid = :cur_storageid And  billdate = :ldt_pdbdate  And flag = 1 Using sqlca ;
	IF sqlca.SQLCode < 0 THEN
		arg_msg = '盘点单查询操作失败，在盘点日:'+String(ldt_pdbdate,"yyyy-mm-dd")+',仓库:'+String(cur_storageid)+'的数据资料！'
		rslt = 0
		GOTO ext
	ELSE
		IF cnt > 0 THEN
			arg_msg = '盘点单,已存在盘点日:'+String(ldt_pdbdate,"yyyy-mm-dd")+',仓库:'+String(cur_storageid)+'的盘点数据,且已审核！'
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF

cnt = 0
SELECT count(*)
	INTO :cnt
	FROM u_warepdb
	Where u_warepdb.storageid = :cur_storageid And u_warepdb.pdbdate = :ins_pdbdate  Using sqlca;
IF sqlca.SQLCode < 0 THEN
	arg_msg = '盘点表查询操作失败，在盘点日:'+String(ins_pdbdate)+',仓库:'+String(cur_storageid)+'的数据资料！'
	rslt = 0
	GOTO ext
ELSE
	IF cnt > 0 THEN
		arg_msg = '盘点表,已存在盘点日:'+String(ins_pdbdate)+',仓库:'+String(cur_storageid)+'的盘点数据！'
		rslt = 0
		GOTO ext
	END IF
END IF


cnt = 0
SELECT count(*) INTO :cnt
	FROM u_inware
	WHERE storageid = :cur_storageid
	AND indate > :ldt_pdbdate
	And flag = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询盘点发生时间"+String(ldt_pdbdate,'yyyy-mm-dd')+"后是否有进仓单审核操作失败"
	rslt  = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	arg_msg = "盘点发生时间"+String(ldt_pdbdate,'yyyy-mm-dd')+"后有进仓单已审核"
	rslt  = 0
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_outware
	WHERE storageid = :cur_storageid
	AND outdate > :ldt_pdbdate
	And flag = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询盘点发生时间"+String(ldt_pdbdate,'yyyy-mm-dd')+"后是否有出仓单审核操作失败"
	rslt  = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	arg_msg = "盘点发生时间"+String(ldt_pdbdate,'yyyy-mm-dd')+"后有出仓单已审核"
	rslt  = 0
	GOTO ext
END IF





ext:
RETURN rslt



end function

public function integer wf_check_mtrlwareid (long arg_mtrlwareid, long arg_row);Long rslt = 1

dw_child.AcceptText()
Long i
FOR i = 1 TO dw_child.RowCount()
	IF i = arg_row THEN
		CONTINUE
	ELSEIF dw_child.Object.u_warepdb_billmx_mtrlwareid[i] = arg_mtrlwareid THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
RETURN rslt




end function

on w_warepdb_bill.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.cb_pypk=create cb_pypk
this.cbx_packqty_cmpl=create cbx_packqty_cmpl
this.cb_scanbill=create cb_scanbill
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.cb_pypk
this.Control[iCurrent+6]=this.cbx_packqty_cmpl
this.Control[iCurrent+7]=this.cb_scanbill
end on

on w_warepdb_bill.destroy
call super::destroy
destroy(this.ddlb_scid)
destroy(this.ddlb_status)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.cb_pypk)
destroy(this.cbx_packqty_cmpl)
destroy(this.cb_scanbill)
end on

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

event open;this.triggerevent('ue_before_open')
wf_movetocenter()
ds_copy_bill = CREATE datastore
ds_copy_bill.DataObject = dw_child.dataobject
ds_copy_bill.SetTransObject(sqlca)         
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")
//====================================================================
// Script - w_outware_other inherited from w_publ_1ton_share_detail for open 
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2003.12.01
//--------------------------------------------------------------------
ori_oldselect=f_modify_selectstr(ori_oldselect)//只显示所管的仓库单据
//====================================================================


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=6   //uc dw前7列可以编辑
child_column_int=7 //子dw前8列可以编辑
uo_ware=create uo_warepdb_bill
uo_ware.commit_transaction=sqlca 
    
s_hide_col s_col
s_col.col_1 = 'u_warepdb_billmx_wareamt'	
s_col.col_2 = 'u_warepdb_billmx_cost'
f_hide_col(1473,dw_child,s_col)

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

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode' 
f_hide_col(1309,dw_child,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 retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid,ll_scid
row = dw_pageretr.GetRow()

IF row > 0 THEN
	ll_scid = dw_pageretr.Object.u_warepdb_bill_scid[row]
	uc_relid = dw_pageretr.Object.u_warepdb_bill_billid[row]
	dw_child.SetRedraw (FALSE)
	dw_child.Retrieve(ll_scid,uc_relid)
	dw_child.SetRedraw (TRUE)
ELSE
	dw_child.Reset()
END IF

end event

event retrieve_pageretr;boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
boolean cb_priorpage_enabled,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
//只显未自已管的仓库
datawindowchild childdw
string new_sqlstr,modify_str

dw_uc.SetTransObject (sqlca)
dw_uc.getchild("storageid",childdw)
childdw.SetTransObject (sqlca)

new_sqlstr=childdw.Describe("DataWindow.Table.Select")
if len(ol_cdw_str) = 0 then ol_cdw_str = new_sqlstr
new_sqlstr=f_modify_selectstr(ol_cdw_str)
modify_str="DataWindow.Table.Select='" + new_sqlstr +"'"
childdw.modify ( modify_str )
if childdw.retrieve(cur_scid) = 0 then
	childdw.InsertRow(0)
END IF
//childdw.retrieve()

dw_uc.Retrieve() //dw_uc的dw改左select top 0 并肯不带参数
dw_pageretr.Retrieve(cur_scid,cur_flag)
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_warepdb_bill_billcode LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( u_warepdb_bill_billcode 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_warepdb_bill.billcode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(u_warepdb_bill.billcode 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_f8;call super::ue_f8;//用于选择明细内容,被F8[默认]\dw_child.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
Long child_row,ins_storageid = 0
String ls_msg
dw_uc.AcceptText()
ins_storageid = dw_uc.Object.storageid[dw_uc.GetRow()]
IF ins_storageid = 0 OR IsNull(ins_storageid) THEN
	MessageBox('提示','请先选择仓库',information!,ok!)
	RETURN
END IF

IF wf_check(ls_msg) = 0 THEN
	MessageBox('错误',ls_msg,stopsign!,ok!)
	RETURN
END IF

child_row = dw_child.GetRow()

IF NOT IsValid(w_mtrlware_storageid_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_storageid
	s_tranf8.c_long = -1
	
	Long chc = 1,ls_j
	
	dw_child.AcceptText()
	IF dw_child.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_child.Object.u_mtrldef_mtrlcode[dw_child.GetRow()])
	OpenWithParm(w_mtrlware_storageid_ch,s_tranf8) //调用
	
	s_mtrlware_noalloc_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	
	ls_msg = ''
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlwareid)
		IF S_INSCUST.mtrlwareid[ls_j] > 0 THEN
			
			IF wf_check_mtrlwareid(S_INSCUST.mtrlwareid[ls_j],child_row) = 0 THEN
				ls_msg = S_INSCUST.u_mtrldef_mtrlcode[ls_j] + '的库存信息已在明细内容里,~n'
				CONTINUE
			END IF
			
			IF dw_child.GetRow() > 0 THEN
				IF dw_child.Object.u_warepdb_billmx_mtrlid[child_row] <> 0 THEN
					child_row = dw_child.InsertRow (0)
				ELSE
					child_row = dw_child.GetRow()
				END IF
			ELSE
				child_row = dw_child.InsertRow (0)
			END IF
			
			dw_child.Object.u_mtrldef_mtrlcode[child_row] = S_INSCUST.u_mtrldef_mtrlcode[ls_j]
			dw_child.Object.u_warepdb_billmx_factqty[child_row] = S_INSCUST.noallocqty[ls_j]
			dw_child.Object.u_warepdb_billmx_mtrlwareid[child_row] = S_INSCUST.mtrlwareid[ls_j]
			dw_child.Object.u_warepdb_billmx_status[child_row] = S_INSCUST.status[ls_j]
			dw_child.Object.u_warepdb_billmx_plancode[child_row] = S_INSCUST.plancode[ls_j]
			dw_child.Object.u_warepdb_billmx_woodcode[child_row] = S_INSCUST.woodcode[ls_j]
			dw_child.Object.u_warepdb_billmx_pcode[child_row] = S_INSCUST.pcode[ls_j]
			dw_child.Object.u_warepdb_billmx_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
			dw_child.Object.u_warepdb_billmx_qty[child_row] = S_INSCUST.noallocqty[ls_j]
			dw_child.Object.u_mtrldef_unit[child_row] = S_INSCUST.u_mtrldef_unit[ls_j]
			dw_child.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.u_mtrldef_mtrlmode[ls_j]
			dw_child.Object.u_mtrldef_mtrlname[child_row] = S_INSCUST.u_mtrldef_mtrlname[ls_j]
			dw_child.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.u_mtrldef_mtrlsectype[ls_j]
			dw_child.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.u_mtrldef_zxmtrlmode[ls_j]
			
			dw_child.Object.u_warepdb_billmx_Dxflag[child_row] = S_INSCUST.Dxflag[ls_j]
			dw_child.Object.u_warepdb_billmx_factaddqty[child_row] = S_INSCUST.noallocaddqty[ls_j]
			dw_child.Object.u_warepdb_billmx_addqty[child_row] = S_INSCUST.noallocaddqty[ls_j]
			dw_child.Object.sptname[child_row] = S_INSCUST.sptname[ls_j]
			dw_child.Object.sptcode[child_row] = S_INSCUST.sptcode[ls_j]
			dw_child.Object.u_warepdb_billmx_Sptid[child_row] = S_INSCUST.sptid[ls_j]
			dw_child.Object.u_warepdb_billmx_wareamt[child_row] = S_INSCUST.wareamt[ls_j]
			dw_child.Object.u_warepdb_billmx_cost[child_row] = S_INSCUST.cost[ls_j]
			dw_child.Object.u_mtrldef_barcode[child_row] = S_INSCUST.barcode[ls_j]
			dw_child.Object.u_mtrldef_mtrltype[child_row] = S_INSCUST.u_mtrldef_mtrltype[ls_j]
			dw_child.Object.u_mtrldef_handtype[child_row]  = S_INSCUST.u_mtrldef_handtype[ls_j]
			dw_child.Object.u_mtrldef_barcode[child_row]  = S_INSCUST.barcode[ls_j]
			dw_child.Object.u_mtrldef_mtrlengname[child_row]  = S_INSCUST.u_mtrldef_mtrlengname[ls_j]
			dw_child.Object.u_mtrldef_mtrlsectype[child_row]  = S_INSCUST.u_mtrldef_mtrlsectype[ls_j]
			
			dw_child.SetColumn('u_warepdb_billmx_factqty')
		END IF
	NEXT
END IF

IF ls_msg <> '' THEN
	MessageBox('提示',ls_msg + '不能重复录入!',information!,ok!)
	return
END IF





end event

event ue_viewprint;call super::ue_viewprint;IF NOT f_power_ind(1012) 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
IF ls_newname <> '' THEN
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.flag[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_warepdb_bill_edit'
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 = cur_scid
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_warepdb_bill_billid[LS_ROW]
LS_PRMSG.rowcnt = dw_child.RowCount()
OpenWithParm(w_publ_preview,LS_PRMSG)

end event

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

uo_print_preview uo_print
S_print_MSG LS_PRMSG
IF dw_pageretr.RowCount() = 0 THEN
	MessageBox('提示','没有可打印的单据！',information!,ok!)
	RETURN
END IF
IF MessageBox ("询问","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN

IF ls_newname <> '' THEN
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.flag[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_warepdb_bill_edit'
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 = cur_scid
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_warepdb_bill_billid[dw_pageretr.GetRow()]
LS_PRMSG.rowcnt = dw_child.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()

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(1011) 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_ware.add_dscrp(dw_pageretr.object.u_warepdb_bill_billid[uc_row],LS_STR,arg_msg)=0 then
	messagebox('错误',arg_msg,stopsign!,ok!)
	return
else
	messagebox('提示','添加备注操作成功!',information!,ok!)
	wf_refresh_curuc(dw_pageretr.Object.u_warepdb_bill_scid[uc_row],dw_pageretr.object.u_warepdb_bill_billid[uc_row])
end if

end event

event ue_f10;call super::ue_f10;//IF NOT dw_edit_mode THEN RETURN
//
//Long child_row
//Int if_addmxdscrp     
//String ls_mxdscrp
//s_addqty_input s_input
//                             
//dw_child.AcceptText( )
//
//child_row = dw_child.GetRow()
//
//IF child_row <= 0 THEN RETURN
//
//IF dw_child.Object.u_outwaremx_mtrlid[child_row] <= 0 THEN RETURN
//
//ls_mxdscrp = dw_child.Object.u_outwaremx_mxdscrp[child_row]
//
//IF NOT IsValid(w_addqty_input) THEN
//	OpenWithParm(w_addqty_input,ls_mxdscrp)
//	
//	s_input = Message.PowerObjectParm
//	
//	IF s_input.addqty = -1 THEN RETURN
//	
//	if_addmxdscrp = Integer(f_ProfileString (sys_empid,'addqty_input', "if_addmxdscrp", '0'))
//	IF if_addmxdscrp = 1 THEN 
//		dw_child.Object.u_outwaremx_mxdscrp[child_row] = s_input.addqtystr
//	END IF 
//	dw_child.Object.u_outwaremx_addqty[child_row]  = s_input.addqty
//	dw_child.Object.u_outwaremx_qty[child_row]  = s_input.qty
//END IF
//
//
end event

event ue_rpt_print;call super::ue_rpt_print;IF NOT f_power_ind(1012) 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.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_warepdb_bill_scid[row]
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_warepdb_bill_billid[row]
LS_PRMSG.rowcnt = dw_child.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()
end event

event ue_rpt_viewprint;call super::ue_rpt_viewprint;IF NOT f_power_ind(1012) 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.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_warepdb_bill_scid[row]
s_print.retr_pramnmb = dw_pageretr.Object.u_warepdb_bill_billid[row]
s_print.rowcnt = dw_child.RowCount()
OpenWithParm(w_rpt_preview,s_print)
end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_warepdb_bill
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_warepdb_bill
integer x = 2501
end type

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_warepdb_bill
integer x = 178
integer y = 188
integer width = 549
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_warepdb_bill
integer x = 3049
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_warepdb_bill
integer x = 2725
integer y = 52
integer width = 320
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_warepdb_bill
integer x = 1737
integer width = 1787
integer height = 748
string dataobject = "dw_warepdb_bill_index"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;wf_flagstatus_rf()
wf_check_billfj()
end event

type st_1 from w_publ_1ton_share_detail`st_1 within w_warepdb_bill
integer x = 5
integer y = 208
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_warepdb_bill
integer x = 3200
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_warepdb_bill
integer width = 1733
integer height = 748
string dataobject = "dw_warepdb_bill_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_outware_dscrp'  and key = KeyEnter! then 
		dw_child.setfocus()
		dw_child.scrolltorow(1)
		dw_child.SetColumn ('u_mtrldef_mtrlcode')		
		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 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

type gb_2 from w_publ_1ton_share_detail`gb_2 within w_warepdb_bill
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_warepdb_bill
integer y = 1044
integer height = 1100
string dataobject = "dw_u_warepdb_billmx_edit"
end type

event dw_child::dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key')
String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode,ls_prdpackcode,ls_mtrltype
String ls_plancode,ls_status,ls_woodcode,ls_pcode,ls_mtrlsectype,ls_zxmtrlmode
Long ls_mtrlwareid,ls_mtrlid,ls_storageid
Dec ls_noallocqty,ls_noauditingqty,ls_cost,ls_planprice,ls_packqty
Dec ld_noallocaddqty
Int li_Dxflag
Dec ld_wareamt
Long ll_sptid
Long child_row
Long ls_null
String ls_barcode
String ls_msg
SetNull(ls_null)

s_mtrlware_noalloc_array arg_s_mtrlware

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	ls_storageid = dw_uc.Object.storageid[dw_uc.GetRow()]
	IF ls_storageid = 0 OR IsNull(ls_storageid) THEN
		MessageBox('提示','请先选择仓库',information!,ok!)
		RETURN
	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!) AND NOT KeyDown(KeyControl!) AND NOT KeyDown(KeyShift!) THEN
			IF dw_child.GetColumnName( ) = 'u_mtrldef_mtrlcode'  THEN
				
				
				IF wf_check(ls_msg) = 0 THEN
					MessageBox('错误',ls_msg,stopsign!,ok!)
					RETURN
				END IF
				
				dw_child.AcceptText()
				child_row = dw_child.GetRow()
				
				ls_mtrlcode = dw_child.Object.u_mtrldef_mtrlcode[child_row]
				IF f_find_mtrlware_ls(ls_mtrlcode,ls_storageid,-1,arg_s_mtrlware) = 0 THEN
					PARENT.TriggerEvent('ue_f8')
					RETURN 1
				ELSE
					ls_mtrlwareid = arg_s_mtrlware.mtrlwareid[1]
					ls_mtrlid = arg_s_mtrlware.mtrlid[1]
					ls_mtrlcode = arg_s_mtrlware.u_mtrldef_mtrlcode[1]
					ls_mtrlname = arg_s_mtrlware.u_mtrldef_mtrlname[1]
					ls_unit = arg_s_mtrlware.u_mtrldef_unit[1]
					ls_mtrlmode = arg_s_mtrlware.u_mtrldef_mtrlmode[1]
					ls_planprice = arg_s_mtrlware.planprice[1]
					ls_noallocqty = arg_s_mtrlware.noallocqty[1]
					ls_storageid = arg_s_mtrlware.storageid[1]
					ls_plancode = arg_s_mtrlware.plancode[1]
					ls_cost = arg_s_mtrlware.cost[1]
					ls_noauditingqty = arg_s_mtrlware.noauditingqty[1]
					ls_status = arg_s_mtrlware.status[1]
					ls_woodcode = arg_s_mtrlware.woodcode[1]
					ls_pcode = arg_s_mtrlware.pcode[1]
					ls_mtrlsectype = arg_s_mtrlware.u_mtrldef_mtrlsectype[1]
					ls_zxmtrlmode = arg_s_mtrlware.u_mtrldef_zxmtrlmode[1]
					ld_noallocaddqty = arg_s_mtrlware.noallocaddqty[1]
					li_Dxflag = arg_s_mtrlware.Dxflag[1]
					ld_wareamt = arg_s_mtrlware.wareamt[1]
					ll_sptid = arg_s_mtrlware.sptid[1]
					ls_barcode = arg_s_mtrlware.barcode[1]
					ls_mtrltype =  arg_s_mtrlware.u_mtrldef_mtrltype[1]
				END IF
				
				if wf_check_mtrlwareid(ls_mtrlwareid,child_row) = 0 then
					MessageBox('提示','该产品库存信息已在明细内容里,不能重复录入!',information!,OK!)
					dw_child.SetColumn("u_mtrldef_mtrlcode")
					RETURN
				END IF
				
				
				dw_child.Object.u_mtrldef_mtrlcode[child_row] = ls_mtrlcode
				dw_child.Object.u_warepdb_billmx_factqty[child_row] = ls_noallocqty
				dw_child.Object.u_warepdb_billmx_mtrlwareid[child_row] = ls_mtrlwareid
				dw_child.Object.u_warepdb_billmx_status[child_row] = ls_status
				dw_child.Object.u_warepdb_billmx_plancode[child_row] = ls_plancode
				dw_child.Object.u_warepdb_billmx_woodcode[child_row] = ls_woodcode
				dw_child.Object.u_warepdb_billmx_pcode[child_row] = ls_pcode
				dw_child.Object.u_warepdb_billmx_mtrlid[child_row] = ls_mtrlid
				dw_child.Object.u_warepdb_billmx_qty[child_row] = ls_noallocqty
				dw_child.Object.u_mtrldef_unit[child_row] = ls_unit
				dw_child.Object.u_mtrldef_mtrlmode[child_row] = ls_mtrlmode
				dw_child.Object.u_mtrldef_mtrlname[child_row] = ls_mtrlname
				dw_child.Object.u_mtrldef_mtrlsectype[child_row] = ls_mtrlsectype
				dw_child.Object.u_mtrldef_zxmtrlmode[child_row] = ls_zxmtrlmode
				
				dw_child.Object.u_warepdb_billmx_Dxflag[child_row] = li_Dxflag
				dw_child.Object.u_warepdb_billmx_factaddqty[child_row] = ld_noallocaddqty
				dw_child.Object.u_warepdb_billmx_addqty[child_row] = ld_noallocaddqty
				dw_child.Object.u_warepdb_billmx_Sptid[child_row] = ll_sptid
				dw_child.Object.u_warepdb_billmx_wareamt[child_row] = ld_wareamt
				dw_child.Object.u_warepdb_billmx_cost[child_row] = ls_cost
				dw_child.Object.u_mtrldef_barcode[child_row] = ls_barcode
				dw_child.Object.u_mtrldef_mtrltype[child_row] = ls_mtrltype
			ELSEIF  dw_child.GetColumnName( ) = 'u_mtrldef_barcode' THEN
				
				IF wf_check(ls_msg) = 0 THEN
					MessageBox('错误',ls_msg,stopsign!,ok!)
					RETURN
				END IF
				
				dw_child.AcceptText()
				child_row = dw_child.GetRow()
				
				ls_mtrlcode = dw_child.Object.u_mtrldef_barcode[child_row]
				
				IF f_find_mtrlware_ls(ls_mtrlcode,ls_storageid,-1,arg_s_mtrlware) = 0 THEN
					PARENT.TriggerEvent('ue_f8')
					RETURN 1
				ELSE
					ls_mtrlwareid = arg_s_mtrlware.mtrlwareid[1]
					ls_mtrlid = arg_s_mtrlware.mtrlid[1]
					ls_mtrlcode = arg_s_mtrlware.u_mtrldef_mtrlcode[1]
					ls_mtrlname = arg_s_mtrlware.u_mtrldef_mtrlname[1]
					ls_unit = arg_s_mtrlware.u_mtrldef_unit[1]
					ls_mtrlmode = arg_s_mtrlware.u_mtrldef_mtrlmode[1]
					ls_planprice = arg_s_mtrlware.planprice[1]
					ls_noallocqty = arg_s_mtrlware.noallocqty[1]
					ls_storageid = arg_s_mtrlware.storageid[1]
					ls_plancode = arg_s_mtrlware.plancode[1]
					ls_cost = arg_s_mtrlware.cost[1]
					ls_noauditingqty = arg_s_mtrlware.noauditingqty[1]
					ls_status = arg_s_mtrlware.status[1]
					ls_woodcode = arg_s_mtrlware.woodcode[1]
					ls_pcode = arg_s_mtrlware.pcode[1]
					ls_mtrlsectype = arg_s_mtrlware.u_mtrldef_mtrlsectype[1]
					ls_zxmtrlmode = arg_s_mtrlware.u_mtrldef_zxmtrlmode[1]
					ld_noallocaddqty = arg_s_mtrlware.noallocaddqty[1]
					li_Dxflag = arg_s_mtrlware.Dxflag[1]
					ld_wareamt = arg_s_mtrlware.wareamt[1]
					ll_sptid = arg_s_mtrlware.sptid[1]
					ls_barcode = arg_s_mtrlware.barcode[1]
					ls_mtrltype =  arg_s_mtrlware.u_mtrldef_mtrltype[1]
				END IF
				
				if wf_check_mtrlwareid(ls_mtrlwareid,child_row) = 0 then
					MessageBox('提示','该产品库存信息已在明细内容里,不能重复录入!',information!,OK!)
					dw_child.SetColumn("u_mtrldef_barcode")
					RETURN
				END IF
				
				
				dw_child.Object.u_mtrldef_mtrlcode[child_row] = ls_mtrlcode
				dw_child.Object.u_warepdb_billmx_factqty[child_row] = ls_noallocqty
				dw_child.Object.u_warepdb_billmx_mtrlwareid[child_row] = ls_mtrlwareid
				dw_child.Object.u_warepdb_billmx_status[child_row] = ls_status
				dw_child.Object.u_warepdb_billmx_plancode[child_row] = ls_plancode
				dw_child.Object.u_warepdb_billmx_woodcode[child_row] = ls_woodcode
				dw_child.Object.u_warepdb_billmx_pcode[child_row] = ls_pcode
				dw_child.Object.u_warepdb_billmx_mtrlid[child_row] = ls_mtrlid
				dw_child.Object.u_warepdb_billmx_qty[child_row] = ls_noallocqty
				dw_child.Object.u_mtrldef_unit[child_row] = ls_unit
				dw_child.Object.u_mtrldef_mtrlmode[child_row] = ls_mtrlmode
				dw_child.Object.u_mtrldef_mtrlname[child_row] = ls_mtrlname
				dw_child.Object.u_mtrldef_mtrlsectype[child_row] = ls_mtrlsectype
				dw_child.Object.u_mtrldef_zxmtrlmode[child_row] = ls_zxmtrlmode
				
				dw_child.Object.u_warepdb_billmx_Dxflag[child_row] = li_Dxflag
				dw_child.Object.u_warepdb_billmx_factaddqty[child_row] = ld_noallocaddqty
				dw_child.Object.u_warepdb_billmx_addqty[child_row] = ld_noallocaddqty
				dw_child.Object.u_warepdb_billmx_Sptid[child_row] = ll_sptid
				dw_child.Object.u_warepdb_billmx_wareamt[child_row] = ld_wareamt
				dw_child.Object.u_warepdb_billmx_cost[child_row] = ls_cost
				dw_child.Object.u_mtrldef_barcode[child_row] = ls_barcode
				dw_child.Object.u_mtrldef_mtrltype[child_row] = ls_mtrltype
				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_warepdb_billmx_mxdscrp' 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::itemchanged;call super::itemchanged;IF NOT DW_EDIT_MODE THEN RETURN
THIS.ACCEPTTEXT()

IF dwo.Name = 'u_warepdb_billmx_packqty' THEN
	Long ll_mtrlid
	Decimal lde_packqty_single, lde_packqty, lde_rate
	IF ii_packqty_cmpl = 1  THEN
		ll_mtrlid = This.Object.u_warepdb_billmx_mtrlid[row]
		lde_packqty_single = f_get_packqty(ll_mtrlid)
		lde_packqty = This.Object.u_warepdb_billmx_packqty[row]
		//lde_rate = This.Object.u_warepdb_billmx_rate[row]
		//if lde_rate = 0 then lde_rate = 1
		This.Object.u_warepdb_billmx_qty[row] = lde_packqty * lde_packqty_single
		//This.Object.u_warepdb_billmx_buyqty[row] = lde_packqty * lde_packqty_single / lde_rate
		//This.Object.u_warepdb_billmx_saleqty[row] = lde_packqty * lde_packqty_single / lde_rate
	END IF
END IF
end event

event dw_child::doubleclicked;If dw_edit_mode And row > 0 Then
	If dwo.Name = 'u_warepdb_billmx_factaddqty' Then
		Parent.TriggerEvent('ue_add_addqty')
	Else
		Parent.TriggerEvent('ue_f8')
	End If
End If


end event

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_warepdb_bill
integer x = 1856
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_warepdb_bill
integer x = 1664
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_warepdb_bill
integer x = 297
integer y = 4
end type

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

String arg_msg = ''
Long uc_row,i

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	dw_child.AcceptText()
	uc_row = dw_uc.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('提示','请选定当前目标单据!',information!,ok!)
		RETURN
	END IF
	
	IF Not dw_uc.Object.u_warepdb_bill_billdate[uc_row] > DateTime(2000-01-01,Now()) THEN
		MessageBox('提示','不合理发生时间',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_warepdb_bill_billdate")
		RETURN
	END IF
	
	IF Not Len(String(dw_uc.Object.u_warepdb_bill_assign_emp[uc_row])) > 0 THEN
		MessageBox('提示','请填写经手人',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_warepdb_bill_assign_emp")
		RETURN
	END IF
	
	
	uo_ware.billdate = DateTime(Date(dw_uc.Object.u_warepdb_bill_billdate[uc_row]),Time('23:59:59'))
	uo_ware.storageid = dw_uc.Object.storageid[uc_row]
	uo_ware.dscrp = dw_uc.Object.u_warepdb_bill_dscrp[uc_row]
	uo_ware.assign_emp = dw_uc.Object.u_warepdb_bill_assign_emp[uc_row]
	uo_ware.scid = dw_uc.Object.u_warepdb_bill_scid[uc_row]
	uo_ware.part = dw_uc.Object.u_warepdb_bill_part[uc_row]

	FOR i = 1 To dw_child.RowCount()
		IF dw_child.Object.u_warepdb_billmx_mtrlwareid[i] > 0 THEN
			IF uo_ware.acceptmx2( dw_child.Object.u_warepdb_billmx_factqty[i],&
				dw_child.Object.u_warepdb_billmx_factaddqty[i],&
				dw_child.Object.u_warepdb_billmx_mxdscrp[i],&
				dw_child.Object.u_warepdb_billmx_mtrlwareid[i],&
				dw_child.Object.u_warepdb_billmx_status[i],&
				dw_child.Object.u_warepdb_billmx_plancode[i],&
				dw_child.Object.u_warepdb_billmx_woodcode[i],&
				dw_child.Object.u_warepdb_billmx_pcode[i],&
				dw_child.Object.u_warepdb_billmx_mtrlid[i],&
				dw_child.Object.u_warepdb_billmx_qty[i],&
				dw_child.Object.u_warepdb_billmx_addqty[i],&
				dw_child.Object.u_warepdb_billmx_sptid[i],&
				dw_child.Object.u_warepdb_billmx_dxflag[i],&
				dw_child.Object.u_warepdb_billmx_printid[i],&
				dw_child.Object.u_warepdb_billmx_wareamt[i],&
				dw_child.Object.u_warepdb_billmx_cost[i],&
				dw_child.Object.u_mtrldef_mtrlcode[i],&
				dw_child.object.u_warepdb_billmx_packqty[i],&
				arg_msg,dw_child.Object.u_warepdb_billmx_waredscrp[i]) = 0 THEN
				MessageBox('错误',arg_msg,stopsign!,ok!)
				RETURN
			END IF
		END IF
	NEXT
	
	IF uo_ware.Save(arg_msg,True) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
	//	MessageBox(publ_operator,'保存操作成功!')
	//write ini
	f_SetProfileString (sys_empid,dw_uc.DataObject, "ddlb_storageid",String(dw_uc.Object.storageid[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_ware.billid)
	
ELSE
	IF cur_scid < 0 THEN
		MessageBox('错误',"请选择分部",stopsign!,ok!)
		RETURN
	END IF
	
	IF uo_ware.newbegin(arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
END IF

CALL Super::Clicked
//read ini
IF dw_edit_mode THEN
	Parent.TriggerEvent("insert_childrow")
	dw_uc.SetRedraw(False)
	String ls_storageid
	ls_storageid = f_ProfileString (sys_empid,dw_uc.DataObject, "ddlb_storageid",'0')
	IF f_find_storageid(ls_storageid) = '' THEN
		ls_storageid = '0'
	END IF
	dw_uc.Object.storageid[dw_uc.GetRow()] = Long(ls_storageid)
	dw_uc.Object.u_warepdb_bill_scid[dw_uc.GetRow()] = cur_scid
	dw_uc.SetColumn("storageid")
	dw_uc.SetRedraw(True)
ELSE
	Parent.TriggerEvent("retrieve_childdw")
END IF
//



end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_warepdb_bill
end type

event cb_edit::clicked;IF Not f_power_ind(1007) 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(dw_pageretr.Object.u_warepdb_bill_billid[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_warepdb_bill
end type

event cb_delet::clicked;if not f_power_ind(1008) 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_ware.del(dw_pageretr.object.u_warepdb_bill_billid[uc_row],arg_msg)=0 then
	messagebox('错误',arg_msg,stopsign!,ok!)
ELSE
	//日志
	long ls_id
	string ls_code
	ls_id=dw_pageretr.object.u_warepdb_bill_billid[uc_row]
	ls_code=dw_pageretr.object.u_warepdb_bill_billcode[uc_row]
	f_setsysoplog('盘点单','删除,ID:'+string(LS_id)+',code:'+ls_code,arg_msg,true)
	//--
	MESSAGEBOX('提示','删除单据'+string(dw_pageretr.object.u_warepdb_bill_billcode[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_warepdb_bill
integer x = 1161
end type

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


menustr="Text=增加备注~tEvent=ue_addzy"
menustr=menustr + "|" + "Text=复制单据~tEvent=ue_bill_copy"
menustr=menustr + "|" + "Text=粘贴单据~tEvent=ue_bill_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_warepdb_bill
integer width = 178
end type

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

IF dw_edit_mode THEN RETURN

IF NOT KeyDown(KeyControl!) THEN
	
	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_ware.getinfo( dw_pageretr.Object.u_warepdb_bill_billid[pagerert_row],arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
	
	IF uo_ware.auditing(publ_operator,TRUE,arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','审核成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.u_warepdb_bill_scid[pagerert_row],dw_pageretr.Object.u_warepdb_bill_billid[pagerert_row])
	END IF
ELSE
	IF MessageBox ("询问","是否确定要批审核列表中未审核的单据?",Question!,YesNo! ) = 2 THEN RETURN
	
	Long ll_i,ll_billid
	Int li_flag
	Long ll_suc,ll_fail
	dw_pageretr.AcceptText()
	
	OPEN(w_sys_wait_jdt) //初始化进度条
	w_sys_wait_jdt.Show()
	w_sys_wait_jdt.wf_accepttol(dw_pageretr.RowCount())
	
	FOR ll_i = 1 TO dw_pageretr.RowCount()
		w_sys_wait_jdt.st_msg.Text = dw_pageretr.Object.u_warepdb_bill_billcode[ll_i] + " 正在审核..." //进度信息
		
		li_flag = dw_pageretr.Object.flag[ll_i]
		IF li_flag = 1 THEN CONTINUE
		ll_billid = dw_pageretr.Object.u_warepdb_bill_billid[ll_i]
		IF uo_ware.getinfo(ll_billid,arg_msg) = 0 THEN
			ll_fail++
			CONTINUE
		END IF
		IF uo_ware.auditing(publ_operator,TRUE,arg_msg) = 0 THEN
			ll_fail++
			CONTINUE
		END IF
		ll_suc++
		w_sys_wait_jdt.wf_inc(ll_i) //进度
	NEXT
	CLOSE(w_sys_wait_jdt)
	MessageBox('提示','批审核成功!成功:'+String(ll_suc)+',失败:'+String(ll_fail),information!,ok!)
	PARENT.TriggerEvent('retrieve_pageretr')
END IF

end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_warepdb_bill
integer x = 1413
end type

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_warepdb_bill
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_warepdb_bill
integer x = 2048
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_warepdb_bill
integer x = 2354
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_warepdb_bill
integer x = 1010
end type

event cb_auditing_cancel::clicked;call super::clicked;IF NOT f_power_ind(1010) 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_ware.getinfo( dw_pageretr.Object.u_warepdb_bill_billid[pagerert_row],arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	RETURN
END IF

IF uo_ware.c_auditing(TRUE,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
ELSE
	MessageBox('提示','撤消审核成功!',information!,ok!)
	//日志	
	String ls_code,ls_opemp,ls_outpart
	ls_code = dw_pageretr.Object.u_warepdb_bill_billcode[pagerert_row]
	ls_opemp = dw_pageretr.Object.u_warepdb_bill_opemp[pagerert_row]
	ls_outpart = dw_pageretr.Object.u_warepdb_bill_part[pagerert_row]
	f_setsysoplog('盘点单','撤审'+',code:'+ls_code+',相关号码:'+ls_outpart+',建立人:'+ls_opemp,arg_msg,TRUE)
	//--
	wf_refresh_curuc(dw_pageretr.Object.u_warepdb_bill_scid[pagerert_row],dw_pageretr.Object.u_warepdb_bill_billid[pagerert_row])
END IF


end event

type p_msg from w_publ_1ton_share_detail`p_msg within w_warepdb_bill
end type

type p_help from w_publ_1ton_share_detail`p_help within w_warepdb_bill
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_warepdb_bill
end type

type p_other from w_publ_1ton_share_detail`p_other within w_warepdb_bill
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_warepdb_bill
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_warepdb_bill
integer beginx = 14
integer endx = 3616
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_warepdb_bill
integer beginx = 14
integer endx = 3616
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_warepdb_bill
integer x = 3113
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_warepdb_bill
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_warepdb_bill
end type

type ddlb_scid from uo_ddlb_scid within w_warepdb_bill
integer x = 992
integer y = 188
integer width = 549
integer height = 668
integer taborder = 20
boolean bringtotop = true
end type

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

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

type ddlb_status from dropdownlistbox within w_warepdb_bill
integer x = 1829
integer y = 188
integer width = 517
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_warepdb_bill
integer x = 1659
integer y = 204
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_warepdb_bill
integer x = 818
integer y = 204
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 cb_pypk from uo_imflatbutton within w_warepdb_bill
boolean visible = false
integer x = 837
integer width = 233
integer height = 164
integer taborder = 230
boolean bringtotop = true
string text = "盘盈/亏"
string normalpicname = "imexport.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1007) 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_ware.getinfo( dw_pageretr.Object.u_warepdb_bill_billid[pagerert_row],arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	RETURN
END IF

IF uo_ware.pypk(publ_operator,TRUE,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
ELSE
	MessageBox('提示','生成盘盈/盘亏成功!',information!,ok!)
	wf_refresh_curuc(dw_pageretr.Object.u_warepdb_bill_scid[pagerert_row],dw_pageretr.Object.u_warepdb_bill_billid[pagerert_row])
END IF


end event

type cbx_packqty_cmpl from checkbox within w_warepdb_bill
integer x = 3269
integer y = 96
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "录入包装数计算数量"
end type

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

f_SetProfileString (sys_empid,publ_userid+'_'+dw_uc.DataObject, "packqty_cmpl",String(ii_packqty_cmpl))

end event

event constructor;this.backcolor = 14215660
ii_packqty_cmpl = Long(f_ProfileString (sys_empid,publ_userid+'_'+dw_uc.DataObject, "packqty_cmpl",'0'))
IF ii_packqty_cmpl = 1  THEN
	THIS.Checked   = TRUE
ELSE
	THIS.Checked   = FALSE
END IF

//this.y = cbx_enamt_edit.y
//this.x = cbx_enamt_edit.x + cbx_enamt_edit.width + 10


end event

type cb_scanbill from commandbutton within w_warepdb_bill
integer x = 2423
integer y = 188
integer width = 384
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
boolean underline = true
string text = "条码扫描盘点"
end type

event clicked;String em,ls_str
Long this_parrow
Long i,ll_row,ll_ucrow
long ll_scid,ll_outwareid
IF Not dw_edit_mode THEN return 
this_parrow = dw_pageretr.GetRow()
IF this_parrow <= 0 THEN
	MessageBox('NO','请选择单据！')
	RETURN
END IF
dw_uc.accepttext()
if dw_uc.object.storageid[dw_uc.getrow()]>0 then
else
	MessageBox('NO','请选择仓库！')
	RETURN
end if
//ll_scid=dw_pageretr.object.u_outware_scid[this_parrow]
//ll_outwareid=dw_pageretr.object.u_outware_outwareid[this_parrow]
s_edit_index_tran s_tran_mod
//s_tran_mod.b_long = ll_scid
s_tran_mod.c_long = dw_uc.object.storageid[dw_uc.getrow()]
//s_tran_mod.d_long = 0
//s_tran_mod.c_string = ''
OpenWithParm(w_warepdb_bill_p_scanqty,s_tran_mod)















//String em,ls_str
//Long this_parrow
//Long i,ll_row,ll_ucrow
//this_parrow = dw_pageretr.GetRow()
//IF this_parrow <= 0 THEN
//	MessageBox('NO','请选择单据！')
//	RETURN
//END IF
//
//TRY
//	s_edit_index_tran s_ch_tran //传递参数使用
//	
//	OpenWithParm(w_scanbill,s_ch_tran )
//	
//	
//	w_scanbill.cb_add.TriggerEvent('clicked')
//	w_scanbill.cur_thflag = 0
//	ll_ucrow = w_scanbill.dw_uc.GetRow()
//	IF ll_ucrow <= 0 THEN RETURN
//	 w_scanbill.dw_uc.object.billtype[ll_ucrow]=0 //0 表示发货退货 1 表示盘点单
//	 w_scanbill.dw_uc.object.scid[ll_ucrow]=dw_pageretr.object.u_outware_scid[this_parrow]
//	 w_scanbill.dw_uc.object.outwareid[ll_ucrow]=dw_pageretr.object.u_outware_outwareid[this_parrow]
//	 w_scanbill.dw_uc.object.outwarecode[ll_ucrow]=dw_pageretr.object.u_outware_outwarecode[this_parrow]
//	
//	FOR i = 1 To dw_child.RowCount()
//		w_scanbill.dw_child.Reset()
//		ll_row = w_scanbill.dw_child.InsertRow(0)
//		w_scanbill.dw_child.Object.u_outwaremx_mtrlid[ll_row] = dw_child.Object.u_outwaremx_mtrlid[i]
//		w_scanbill.dw_child.Object.u_mtrldef_mtrlcode[ll_row] = dw_child.Object.u_mtrldef_mtrlcode[i]
//		w_scanbill.dw_child.Object.u_mtrldef_mtrlname[ll_row] = dw_child.Object.u_mtrldef_mtrlname[i]
//		w_scanbill.dw_child.Object.u_mtrldef_mtrlmode[ll_row] = dw_child.Object.u_mtrldef_mtrlmode[i]
//		w_scanbill.dw_child.Object.u_mtrldef_unit[ll_row] = dw_child.Object.u_outwaremx_unit[i]
//		w_scanbill.dw_child.Object.u_outwaremx_uqty[ll_row] = dw_child.Object.u_outwaremx_uqty[i]
//		w_scanbill.dw_child.Object.u_scanbillmx_scanqty[ll_row] = 0
//		
//		
//	NEXT
//	
//	
//	
//	
//	
//Catch (RuntimeError rrrr)
//	RETURN
//END TRY
//
//
//
end event

event constructor;//系统选项267销售发货单，销售退货单 扫描数不等于出仓数不能仓审
IF  sys_option_check_scanqty = 1 THEN
	This.Visible = True
ELSE
	This.Visible = False
END IF

end event