Q5/ws_objects/Ew_publ903_bill.pbl.src/w_publ_1ton_share_detail.srw

$PBExportHeader$w_publ_1ton_share_detail.srw
$PBExportComments$一对多单据编辑窗口
forward
global type w_publ_1ton_share_detail from w_publ_pageretr
end type
type dw_uc from u_dw_uc_rbtnfilter within w_publ_1ton_share_detail
end type
type gb_2 from groupbox within w_publ_1ton_share_detail
end type
type dw_child from u_dw_rbtnfilter within w_publ_1ton_share_detail
end type
type cb_viewprint from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_print from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_add from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_edit from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_delet from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_addzy from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_auditing from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_xm from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_retrieve from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_xls from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_help from uo_imflatbutton within w_publ_1ton_share_detail
end type
type cb_auditing_cancel from uo_imflatbutton within w_publ_1ton_share_detail
end type
type p_msg from picture within w_publ_1ton_share_detail
end type
type p_help from picture within w_publ_1ton_share_detail
end type
type p_encl from picture within w_publ_1ton_share_detail
end type
type p_other from picture within w_publ_1ton_share_detail
end type
type gb_3 from groupbox within w_publ_1ton_share_detail
end type
type ln_bar from line within w_publ_1ton_share_detail
end type
type ln_bar2 from line within w_publ_1ton_share_detail
end type
type r_bar from rectangle within w_publ_1ton_share_detail
end type
type ln_1 from line within w_publ_1ton_share_detail
end type
type ln_2 from line within w_publ_1ton_share_detail
end type
end forward

global type w_publ_1ton_share_detail from w_publ_pageretr
integer width = 3611
integer height = 2380
event retrieve_childdw ( )
event retrieve_uc ( )
event refresh_interface ( )
event ue_f7 ( )
event ue_f8 ( )
event ue_f9 ( )
event ue_f10 ( )
event ue_f6 ( )
event ue_f11 ( )
event ue_f12 ( )
event ue_showall ( )
event ue_print ( )
event ue_viewprint ( )
event ue_addmx ( )
event ue_deletemx ( )
event ue_insertmx ( )
event ue_copyrow ( )
event ue_addzy ( )
event ue_xls ( )
event ue_msg ( )
event ue_bill_copy ( )
event ue_bill_paste ( )
event ue_allowedit ( )
event ue_dwndropdown pbm_dwndropdown
event ue_rpt_print ( )
event ue_rpt_viewprint ( )
event ue_modify ( )
event retrieve_childdw_uc ( )
event ue_help ( )
event ue_mtrlpicview ( )
event ue_copycol ( )
event ue_cutcol ( )
event ue_pastecol ( )
event ue_news_add ( )
event ue_news_rel ( )
event resize_p ( )
event ue_rowup ( )
event ue_rowdown ( )
event ue_send_ljfieb ( )
event ue_jdview_ljfieb ( )
event ue_copyself ( )
event ue_mtrl_info ( )
event ue_mtrl_info_retr ( )
event ue_billcache_import ( )
event ue_billcache_export ( )
event ue_billcache_delete ( )
event ue_billcache_check ( )
event ue_sort_mx ( )
event ue_rbbutton ( )
event ue_dwchild_filter ( )
event ue_uprow ( )
event ue_downrow ( )
dw_uc dw_uc
gb_2 gb_2
dw_child dw_child
cb_viewprint cb_viewprint
cb_print cb_print
cb_add cb_add
cb_edit cb_edit
cb_delet cb_delet
cb_addzy cb_addzy
cb_auditing cb_auditing
cb_xm cb_xm
cb_retrieve cb_retrieve
cb_xls cb_xls
cb_help cb_help
cb_auditing_cancel cb_auditing_cancel
p_msg p_msg
p_help p_help
p_encl p_encl
p_other p_other
gb_3 gb_3
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
end type
global w_publ_1ton_share_detail w_publ_1ton_share_detail

type variables
Int child_column_int = 1,uc_column_int = 1
datastore ds_copypaste
String ls_newname = ''
string ls_chnname = ''
Long ll_prownum
Long ls_powerid
Int li_auditprint
String ls_rpname = ''
Long ls_msgprintid_rpt = 0

Long ll_xls_billid,ll_xls_Templatesid
String ls_xls_DefaultDataWindow


Long dw_pageretr_w,dw_pageretr_h
Long dw_child_h,dw_child_w

datastore ds_copy_bill

String ins_openfile_log[] //用于退出后删除
Long ins_openfile_log_p = 0    //用于退出后删除

Boolean  if_changeselect = TRUE
Boolean  if_del = FALSE
Long ll_lastrow = 0

String is_query_menustr,is_mx_menustr

long uc_width,uc_height   
string cur_mod[]

BOOLEAN if_MtrlPicView = false
int ifpic = 0 

boolean if_ChkMtrlInfo = false

end variables

forward prototypes
public function integer wf_refresh_interface ()
public function integer wf_lock_child ()
public function integer wf_no_edit ()
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_bill_copy (ref string arg_msg)
public function integer wf_bill_paste (ref string arg_msg)
public subroutine wf_addlog_tempfilepathname (string arg_filepathname)
public subroutine wf_del_tempfilepathname ()
public subroutine wf_reset_uc ()
public subroutine wf_encl (integer arg_encl)
public function integer wf_print_retrievedata (ref s_print_pic_list arg_s_pic, ref string arg_msg)
public function window getparentwindow ()
public subroutine wf_getmtrlid (ref long arg_mtrlid)
public function integer wf_billcache_import (datawindow arg_dw, integer arg_row, ref string arg_msg)
public function integer wf_billcache_export (datawindow arg_dw, integer arg_row, ref string arg_msg)
public function integer wf_billcache_delete (datawindow arg_dw, integer arg_row)
public subroutine wf_mxsort ()
end prototypes

event retrieve_childdw();//Long row,uc_relid
//row = dw_pageretr.GetRow()
//IF row > 0 THEN
//	uc_relid = dw_pageretr.Object.outwareid[row]
//	dw_child.SetRedraw (FALSE)
//	dw_child.Retrieve(uc_relid)
//	dw_child.SetRedraw (TRUE)
//IF dw_child.RowCount() > 0 THEN
//	dw_child.SelectRow(0,FALSE)
//	dw_child.SelectRow(1,TRUE)
//	dw_child.SetRow(1)
//END IF
//ELSE
//	dw_child.Reset()
//END IF
//
//


end event

event refresh_interface;//被 wf_refresh_interface() 调用,用于界面刷新
end event

event ue_f7;//cb_add_xm.triggerevent(clicked!)
end event

event ue_f8;////用于选择明细内容,被F8[默认]\dw_child.doubleclicked调用
//long child_row
//if child_row=0 then
//	messagebox('系统提示','请选定目标明细行!')
//	return 
//end if
//
//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=trim(dw_child.object.u_mtrldef_mtrlcode[child_row])
//
//OPENwithparm(W_materiel,s_ch_tran)  //调用
//
//S_materiel S_INSCUST
//S_INSCUST=Message.PowerObjectParm  //接受返回结构
//IF S_INSCUST.mtrlid>0 THEN //正常返回值则可以取以下值
//
//dw_child.object.u_mtrldef_mtrlcode[child_row]
//dw_child.object.u_mtrldef_unit[child_row]
//dw_child.object.u_wasterinwaremx_mtrlid[child_row]
//dw_child.object.u_wasterinwaremx_planprice[child_row]
//dw_child.object.u_mtrldef_mtrlname[child_row]
// 
////S_INSCUST.mtrlid
////S_INSCUST.mtrlname
////S_INSCUST.mtrlcode
////S_INSCUST.unit
////S_INSCUST.mtrltype
////S_INSCUST.mtrlmode
////S_INSCUST.planprice
//
////S_INSCUST.storageid
////S_INSCUST.cost
////S_INSCUST.price
////S_INSCUST.descrp 
////S_INSCUST.source
//END IF
//
end event

event ue_showall();dw_pageretr.setfilter('')
dw_pageretr.SetRedraw (false)
dw_pageretr.filter()
dw_pageretr.SetRedraw (true)
end event

event ue_print();////--直接打印
//uo_print_preview uo_print
//IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
//
//
//S_print_MSG LS_PRMSG
//
//Long LS_ROW
//LS_ROW = dw_pageretr.GetRow()
//IF LS_ROW <= 0 THEN
//	MessageBox('NO','没有打印目标单据!')
//	RETURN
//END IF
//
//IF ls_newname <> '' THEN
//	IF Not f_power_ind(ls_powerid)  THEN
//		MessageBox(publ_operator,'你没有使用权限！')
//		RETURN
//	END IF	
//	
//	IF li_auditprint = 1 THEN
//		IF dw_pageretr.Object.status[dw_pageretr.GetRow()] = 0 THEN
//			MessageBox('NO','目标单据还未审核,不能打印!')
//			RETURN
//		END IF
//	END IF
//	
//	LS_PRMSG.obj_dwNAME = ls_newname
//ELSE
//	
//	IF NOT f_power_ind(7)  THEN
//		MessageBox(publ_operator,'你没有使用权限！')
//		RETURN
//	END IF
//	
//	LS_PRMSG.obj_dwNAME = 'dw_rp_saletask_print'
//END IF
//
//if LS_PRMSG.obj_dwNAME = '' then return
//
//LS_PRMSG.retr_pram_falg = 15
//LS_PRMSG.printrow = ll_prownum
//LS_PRMSG.TAG_TEXT = '销售订单'
//LS_PRMSG.FILTER_STRING = ''
//LS_PRMSG.PAGECH_FLAG = 0
//LS_PRMSG.retr_scid = dw_pageretr.Object.u_saletask_scid[LS_ROW]
//LS_PRMSG.retr_pramnmb = dw_pageretr.Object.taskid[LS_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)
//	RETURN
//END IF
//uo_print.ds_print()

Long ls_msgprintid
ls_msgprintid = Message.LongParm

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

end event

event ue_viewprint();//
//Long LS_ROW
//LS_ROW = dw_pageretr.GetRow()
//IF LS_ROW <= 0 THEN
//	MessageBox('NO','没有打印目标单据!')
//	RETURN
//END IF
//
//S_print_MSG LS_PRMSG
//
//IF ls_newname <> '' THEN
//	IF Not f_power_ind(ls_powerid)  THEN
//		MessageBox(publ_operator,'你没有使用权限！')
//		RETURN
//	END IF
//	
//	IF li_auditprint = 1 THEN
//		IF dw_pageretr.Object.status[dw_pageretr.GetRow()] = 0 THEN
//			MessageBox('NO','目标单据还未审核,不能打印!')
//			RETURN
//		END IF
//	END IF
//	
//	LS_PRMSG.obj_dwNAME = ls_newname
//ELSE	
//	IF Not f_power_ind(7)  THEN
//		MessageBox(publ_operator,'你没有使用权限！')
//		RETURN
//	END IF
//	
//	LS_PRMSG.obj_dwNAME = 'dw_rp_saletask_print'
//END IF
//
//if LS_PRMSG.obj_dwNAME = '' then return
//
//ls_prmsg.printrow = ll_prownum
//LS_PRMSG.TAG_TEXT = '销售订单'
//LS_PRMSG.FILTER_STRING = ''
//LS_PRMSG.retr_pram_falg = 15
//LS_PRMSG.PAGECH_FLAG = 0
//LS_PRMSG.retr_scid = dw_pageretr.Object.u_saletask_scid[LS_ROW]
//LS_PRMSG.retr_pramnmb = dw_pageretr.Object.taskid[LS_ROW]
//LS_PRMSG.rowcnt = dw_child.RowCount()
//OpenWithParm(w_publ_preview,LS_PRMSG)

Long ls_msgprintid
ls_msgprintid = Message.LongParm

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


end event

event ue_addmx();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可用')
	RETURN
END IF

THIS.TriggerEvent('ue_f8')
dw_child.SetFocus()



end event

event ue_deletemx();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可用')
	RETURN
END IF

IF MessageBox ("询问","是否确定要删除当前细目记录?",Question!,YesNo! ) = 2 THEN RETURN
IF dw_child.GetRow() = 0 THEN
	MessageBox('提示','请选择删除的行对象!')
	RETURN
END IF
if_del = TRUE
Long ll_i
dw_child.SetRedraw(FALSE)
FOR ll_i =  dw_child.RowCount() TO 1 STEP -1
	IF dw_child.IsSelected(ll_i) THEN
		dw_child.DeleteRow (ll_i)
	END IF
NEXT
dw_child.SetRedraw(TRUE)
if_del = FALSE
IF dw_child.RowCount() = 0 THEN dw_child.InsertRow(0)
dw_child.TriggerEvent (RowFocusChanged!)


end event

event ue_insertmx();long ll_childrow,li_row
ll_childrow = dw_child.getrow()
li_row = dw_child.insertrow(ll_childrow)

dw_child.setrow(li_row)
dw_child.scrolltorow(li_row)
dw_child.selectrow(0,false)
dw_child.selectrow(li_row,true)

end event

event ue_copyrow();IF Not dw_edit_mode THEN RETURN
Long ll_childrow


IF sys_option_copyrow_mode = 0 THEN //单据明细复制行功能，复制到最后一行 0-否1是
	ll_childrow = dw_child.GetRow()
ELSE
	ll_childrow = dw_child.RowCount()
END IF

IF ll_childrow = 0 THEN
	MessageBox('NO','请选择复制对象!')
	RETURN
END IF

Long ll_i
Long ll_j
ll_j = 0
FOR ll_i = 1 To dw_child.RowCount()
	IF dw_child.IsSelected(ll_i) THEN
		ll_j++
		dw_child.RowsCopy (ll_i,ll_i,Primary!,ds_copypaste,ll_j,Primary!)
	END IF
NEXT

//dw_child.RowsCopy (ll_childrow,ll_childrow,Primary!,ds_copypaste,1,Primary!)

FOR ll_i = 1 To ds_copypaste.RowCount()
	ds_copypaste.RowsCopy (ll_i,ll_i,Primary!,dw_child,ll_childrow + ll_i,Primary!)
	
NEXT

//ds_copypaste.RowsCopy (1,1,Primary!,dw_child,ll_childrow + 1,Primary!)
ds_copypaste.Reset()

dw_child.SelectRow(0,False)
dw_child.SetRow(ll_childrow + 1)
dw_child.ScrollToRow(ll_childrow + 1)
dw_child.SelectRow(ll_childrow + 1,True)





end event

event ue_addzy();//if dw_edit_mode then return
//
//string arg_msg='',LS_STR
//long uc_row
//s_inputbox S_SREU
//
//uc_row=dw_pageretr.getrow()
//if uc_row<=0 then
//	messagebox('系统提示','请选定当前目标单据!')
//	return
//end if
//S_SREU.TITLE='请输入要补充到备注的内容'
//S_SREU.OLD_TEXT=''
//openwithparm(w_inputbox,S_SREU)
//LS_STR=Message.StringParm
//if trim(LS_STR)='' or isnull(LS_STR) then return
//
//if uo_ware.getinfo(dw_pageretr.object.inwareid[uc_row],arg_msg)=0 then
//	messagebox('Error!',arg_msg)
//	return
//end if
//if uo_ware.add_dscrp(LS_STR,arg_msg)=0 then
//	messagebox('Error!',arg_msg)
//	return
//else
//	messagebox(publ_operator,'添加备注操作成功!')
//	wf_refresh_curuc(dw_pageretr.object.inwareid[uc_row])
//end if
//
end event

event ue_xls();
string arg_msg
Long ll_Templatesid,ll_ationid
ll_Templatesid = Message.LongParm
ll_ationid = long(Message.wordparm )
if isnull(ll_Templatesid) then ll_Templatesid = 0
if isnull(ll_ationid) then ll_ationid = 0
if ll_Templatesid = 0 then return

ll_xls_Templatesid = ll_Templatesid

uo_xls_constant uo_constant     //Excel全局设置对象
uo_constant = create uo_xls_constant

uo_sendtoexcel obj_st             //实例化数据处理对象
obj_st = create uo_sendtoexcel
obj_st.commit_transaction = sqlca  //事务对象  建议显示设置 默认等于sqlca
obj_st.uo_const = uo_constant   //全局配置对象



s_xls_billlist str_billlist  
str_billlist =  obj_st.of_getbillinfo(ll_Templatesid,arg_msg)  //根据模版获取相应的单据信息
if str_billlist.count <=0 then 
	MessageBox('错误',arg_msg)
	return
end if 
if wf_xls_retrievedata(ll_ationid,str_billlist,obj_st,arg_msg) <> 1 then
		MessageBox('错误',arg_msg)
	return
end if

//发送数据
obj_st.event oe_sendtoexcel(str_billlist)







end event

event ue_msg();//IF dw_edit_mode THEN RETURN
//
//Long ll_row
//String ls_billcode
//
//ll_row = dw_pageretr.GetRow()
//
//IF ll_row <= 0 THEN RETURN
//ls_billcode = dw_pageretr.Object.taskcode[ll_row]
//
//OpenWithParm(w_msg_bill,ls_billcode)
end event

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

end event

event ue_bill_paste();String arg_msg = ''
IF wf_bill_paste(arg_msg) = 1 THEN
ELSE
	MessageBox('系统提示',arg_msg)
END IF


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_child.GetRow()
IF ll_row <= 0 THEN RETURN

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

FOR i = 1 To Columns
	ls_modify_str = dw_child.Describe("#" + String(i) + ".name")
	ls_modify_str = Lower(ls_modify_str)
	
	IF i = 1 THEN //第1个字段,约定物料ID
		ls_data_type = dw_child.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_value = dw_child.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'statusflag') > 0  THEN
		ls_data_type = dw_child.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_statusflag = dw_child.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcodeflag') > 0  THEN
		ls_data_type = dw_child.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_woodcodeflag = dw_child.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcodeflag') > 0  THEN
		ls_data_type = dw_child.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_pcodeflag = dw_child.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 = 5 THEN //只有5-仅填写时,才能用向下键切换到下一行, 使用ddlb时向下键是被屏蔽的
		dw_child.Modify(ls_status+".edit.case='any'")
		dw_child.Modify(ls_status+".edit.AutoSelect='Yes'")
	ELSE
		dw_child.Modify(ls_status+".ddlb.case='any'")
		IF ll_statusflag <> 0  Or ll_value = 0 THEN
			dw_child.Modify(ls_status+".dddw.allowedit = no")
		ELSE
			dw_child.Modify(ls_status+".dddw.allowedit = yes")
		END IF
	END IF
END IF

IF ls_woodcode <> '' THEN
	IF ll_woodcodeflag = 5 THEN
		dw_child.Modify(ls_woodcode+".edit.case='any'")
		dw_child.Modify(ls_woodcode+".edit.AutoSelect='Yes'")
	ELSE
		dw_child.Modify(ls_woodcode+".ddlb.case='any'")
		IF ll_woodcodeflag <> 0 Or ll_value = 0  THEN
			dw_child.Modify(ls_woodcode+".dddw.allowedit = no")
		ELSE
			dw_child.Modify(ls_woodcode+".dddw.allowedit = yes")
		END IF
	END IF
END IF

IF ls_pcode <> '' THEN
	IF ll_pcodeflag = 5 THEN
		dw_child.Modify(ls_pcode+".edit.case='any'")
		dw_child.Modify(ls_pcode+".edit.AutoSelect='Yes'")
	ELSE
		dw_child.Modify(ls_pcode+".ddlb.case='any'")
		IF ll_pcodeflag <> 0 Or ll_value = 0  THEN
			dw_child.Modify(ls_pcode+".dddw.allowedit = no")
		ELSE
			dw_child.Modify(ls_pcode+".dddw.allowedit = yes")
		END IF
	END IF
END IF






end event

event ue_rpt_print();//Long row,uc_relid,ll_scid
//row = dw_pageretr.GetRow()
//IF row = 0 THEN RETURN
//
//
//uo_rpt_print_preview uo_print
//S_rpt_print_MSG LS_PRMSG
//
//IF dw_pageretr.RowCount() = 0 THEN
//	MessageBox('系统信息','没有可打印的单据！')
//	RETURN
//END IF
//
//IF ls_rpname = '' THEN RETURN
//
//IF li_auditprint = 1 THEN
//	IF dw_pageretr.Object.status[row] = 0 THEN
//		MessageBox('NO','目标单据还未审核,不能打印!')
//		RETURN
//	END IF
//END IF
//
//IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
//
//LS_PRMSG.retr_pram_falg = 15
//LS_PRMSG.TAG_TEXT = THIS.Title
//LS_PRMSG.rpname = ls_rpname
//LS_PRMSG.FILTER_STRING = ''
//
//LS_PRMSG.PAGECH_FLAG = 0
//LS_PRMSG.rpid = ls_msgprintid_rpt
//LS_PRMSG.retr_scid = dw_pageretr.Object.u_saletask_scid[row]
//LS_PRMSG.retr_pramnmb = dw_pageretr.Object.taskid[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)
//	RETURN
//END IF
//uo_print.ds_print()
//
//
////**更新打印次料
//printnum = Message.DoubleParm
//
//String ls_code
//
//ll_scid = dw_pageretr.Object.u_saletask_scid[row]
//ls_code = dw_pageretr.Object.taskcode[row]
//
//f_update_printnum(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)

ls_msgprintid_rpt = Message.LongParm

SELECT rpname,auditprint
	INTO :ls_rpname,:li_auditprint
	FROM u_report_list
	Where rpid = :ls_msgprintid_rpt USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_rpname = ''
	li_auditprint = 0
END IF


end event

event ue_rpt_viewprint();//
//Long row,uc_relid,ll_scid
//row = dw_pageretr.GetRow()
//IF row = 0 THEN RETURN
//
//
//IF ls_rpname = '' THEN RETURN
//
//IF li_auditprint = 1 THEN
//	IF dw_pageretr.Object.status[row] = 0 THEN
//		MessageBox('NO','目标单据还未审核,不能打印!')
//		RETURN
//	END IF
//END IF
//
//s_rpt_print_msg s_print
//s_print.retr_pram_falg = 15
//s_print.rpid = ls_msgprintid_rpt
//s_print.retr_flag = TRUE
//s_print.tag_text = THIS.Title
//
//s_print.rpname  = ls_rpname
//s_print.retr_scid = dw_pageretr.Object.u_saletask_scid[row]
//s_print.retr_pramnmb = dw_pageretr.Object.taskid[row]
//s_print.rowcnt = dw_child.RowCount()
//OpenWithParm(w_rpt_preview,s_print)
//
////**更新打印次料
//String arg_msg
//printnum = Message.DoubleParm
//
//String ls_code
//
//ll_scid = dw_pageretr.Object.u_saletask_scid[row]
//ls_code = dw_pageretr.Object.taskcode[row]
//
//f_update_printnum(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)


ls_msgprintid_rpt = Message.LongParm

SELECT rpname,auditprint
	INTO :ls_rpname,:li_auditprint
	FROM u_report_list
	Where rpid = :ls_msgprintid_rpt USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_rpname = ''
	li_auditprint = 0
END IF


end event

event ue_modify();//ue_modify()调用修改UC布局窗口

s_dw_uc_modify s_modify
s_modify.datawinname_uc = dw_uc.DataObject
s_modify.nomod = cur_mod
s_modify.uc_column_int = uc_column_int
s_modify.uc_width = dw_uc.Width
s_modify.uc_height = dw_uc.Height
s_modify.win = String(THIS.ClassName())
s_modify.mainid = s_tran.mainid

OpenWithParm(w_uc_mod,s_modify)

Long ll_type
s_resize s_size
s_size = Message.PowerObjectParm
ll_type = s_size.backtype
IF ll_type = 1 THEN
	uc_width = s_size.Width
	uc_height = s_size.Height
	THIS.TriggerEvent(Resize!)
	dw_uc.TriggerEvent(Constructor!)
END IF

end event

event retrieve_childdw_uc();IF NOT dw_edit_mode THEN	
	dw_uc.Reset()
	dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!)
END IF

end event

event ue_help();Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, THIS.Title+".html")

end event

event ue_MtrlPicView();IF dw_edit_mode THEN RETURN
s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row

String ls_col_mtrlid
String ls_mtrlcode
//String ls_col_pz,ls_pz_ch
//string ls_col_value
//string ls_data_type
Long ll_row,ll_mtrlid
s_pzwin_open arg_s_win

ll_row = dw_child.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择资料')
	RETURN
END IF

ls_col_mtrlid = dw_child.Describe("#1.Name")

IF NOT Pos(Lower(ls_col_mtrlid),'mtrlid') > 0 THEN RETURN

ll_mtrlid = dw_child.GetItemNumber(ll_row,ls_col_mtrlid)


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

SELECT mtrlcode
	INTO :ls_mtrlcode
	FROM u_mtrldef
	WHERE mtrlid = :ll_mtrlid
	USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示','没有查找到相关物料信息 '+sqlca.SQLErrText)
	RETURN
END IF

s_pic.f_long = 201 //物料资料 mainID
s_pic.f_string = ls_mtrlcode
s_pic.g_long = ll_mtrlid
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = '' //relcode_mx
s_pic.e_long = 0 // scid

s_pic.sqltransaction = sys_filedb_sqlca

OpenWithParm(w_fj_bill_view,s_pic)






end event

event ue_copycol();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可用')
	RETURN
END IF
dw_child.SetFocus()
dw_child.copy()

end event

event ue_cutcol();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可用')
	RETURN
END IF
dw_child.SetFocus()
dw_child.Cut()

end event

event ue_pastecol();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可用')
	RETURN
END IF
dw_child.SetFocus()
dw_child.paste()

end event

event ue_news_add();//Long ll_row_p
//s_admsg s_msg
//
//dw_pageretr.AcceptText()
//
//ll_row_p = dw_pageretr.GetRow()
//
//IF ll_row_p <= 0 THEN RETURN
//
//s_msg.billcode = dw_pageretr.Object.billcode[ll_row_p]
//
//OpenWithParm(w_new_admsg,s_msg)
//
//
end event

event ue_news_rel();//Long ll_row_p
//String ls_billcode
//
//dw_pageretr.AcceptText()
//
//ll_row_p = dw_pageretr.GetRow()
//
//IF ll_row_p <= 0 THEN RETURN
//
//ls_billcode = dw_pageretr.Object.billcode[ll_row_p]
//
//OpenWithParm(w_msg_billcode_rel,ls_billcode)
end event

event resize_p();
int li = 30
p_other.x = THIS.Width - (p_other.width + li) * 4 - 30
p_msg.x = p_other.x + p_other.width + li
p_encl.x = p_msg.x + p_msg.width + li
p_help.x = p_encl.x + p_encl.width + li
end event

event ue_rowup();Long ll_row

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

////首行
//Long ll_row
//
//ll_row = dw_child.GetRow()
//IF ll_row > 1 THEN
//	dw_child.RowsMove(ll_row, ll_row, Primary!, dw_child, 1, Primary!)
//	
//	dw_child.SelectRow(0, False)
//	dw_child.SetRow(  1)
//	dw_child.SelectRow( 1, True)
//END IF
end event

event ue_rowdown();Long ll_row

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

//最后行
//Long ll_row
//
//ll_row = dw_child.GetRow()
//IF ll_row < dw_child.rowcount() THEN
//	dw_child.RowsMove(ll_row , ll_row, Primary!, dw_child, dw_child.rowcount() + 1, Primary!)
//	
//	dw_child.SelectRow(0, False)
//	dw_child.SetRow(dw_child.rowcount())
//	dw_child.SelectRow(dw_child.rowcount(), True)
//END IF
end event

event ue_send_ljfieb();return
end event

event ue_jdview_ljfieb();return 
end event

event ue_copyself();window lw_win
s_edit_index_tran s_rpinfo
s_rpinfo.if_retrieve_all = TRUE 
openwithparm(lw_win,s_rpinfo,this.Classname())
lw_win.WindowState = Normal!
end event

event ue_mtrl_info();//IF NOT f_power_ind(2267,sys_msg_pow) THEN
//	MessageBox(publ_operator,sys_msg_pow)
//	RETURN
//END IF
//

Long ll_row
ll_row = dw_child.GetRow()

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

Long ll_mtrlid

wf_getmtrlid(ll_mtrlid)


IF IsValid(w_mtrl_info) THEN
	w_mtrl_info.WindowState = Normal!
	w_mtrl_info.ins_mtrlid = ll_mtrlid
	w_mtrl_info.wf_retrieve(ll_mtrlid)
ELSE
	OpenWithParm(w_mtrl_info,ll_mtrlid)
END IF
end event

event ue_mtrl_info_retr();//IF NOT f_power_ind(2267,sys_msg_pow) THEN
//	MessageBox(publ_operator,sys_msg_pow)
//	RETURN
//END IF
//
IF IsValid(w_mtrl_info) THEN
	Long ll_row
	ll_row = dw_child.GetRow()
	
	IF ll_row <= 0 THEN
		MessageBox('系统提示','请选择物料')
		RETURN
	END IF
	
	Long ll_mtrlid
	
	wf_getmtrlid(ll_mtrlid)
	
	
	
	w_mtrl_info.WindowState = Normal!
	w_mtrl_info.ins_mtrlid = ll_mtrlid
	w_mtrl_info.wf_retrieve(ll_mtrlid)
	//ELSE
	//	OpenWithParm(w_mtrl_info,ll_mtrlid)
END IF

end event

event ue_billcache_import();Int rslt = 1
String arg_msg
IF wf_billcache_import(dw_uc, dw_uc.GetRow(), arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF wf_billcache_import(dw_child, 0 , arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	MessageBox('系统提示',arg_msg)
END IF



end event

event ue_billcache_export();Int rslt = 1
String arg_msg
IF wf_billcache_export(dw_uc, dw_uc.GetRow(), arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF wf_billcache_export(dw_child, 0 , arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	MessageBox('系统提示',arg_msg)
else
	MessageBox('系统提示',"缓存成功")
END IF


end event

event ue_billcache_delete();Int rslt = 1
IF wf_billcache_delete(dw_uc, dw_uc.GetRow()) = 0 THEN
	rslt = 0
//	GOTO ext
END IF

IF wf_billcache_delete(dw_child, 0) = 0 THEN
	rslt = 0
//	GOTO ext
END IF

//ext:
//IF rslt = 0 THEN
//	MessageBox('系统提示',arg_msg)
//END IF



end event

event ue_billcache_check();Long ll_row_cnt
String ld_dataobject

IF NOT FileExists (sys_inifilename_cache) THEN
	integer li_FileNum
	li_FileNum = FileOpen(sys_inifilename_cache, StreamMode!, Write!, LockWrite!, Replace!)
	FileClose(li_FileNum)
END IF

ld_dataobject = dw_uc.DataObject

ll_row_cnt = Long(ProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, "RowCnt", "0" ))

IF ll_row_cnt = 0 THEN RETURN

//IF MessageBox('确认','存在未保存的缓存单据,是否恢复?',question!,YesNo!) = 2 THEN RETURN

IF Not dw_edit_mode THEN cb_add.TriggerEvent(Clicked!)

This.TriggerEvent('ue_billcache_import')





end event

event ue_sort_mx();OPENwithparm(w_sortrow,dw_child)
STRING LS_EXPR
LS_EXPR=Message.StringParm	
IF ISNULL(LS_EXPR) THEN LS_EXPR='   '
if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_child.setsort(LS_EXPR)

dw_child.SetRedraw (false)
dw_child.sort()
dw_child.SetRedraw (true)
end event

event ue_rbbutton();dw_child.event rbbutton( dw_child.arg_ins_dwtype,dw_child.arg_ins_dwname,dw_child.arg_ins_dwdata,dw_child.arg_ins_dwrow )

end event

event ue_dwchild_filter();dw_child.setfilter('')
dw_child.filter()
end event

event ue_uprow();if not dw_edit_mode  then return 

Long ll_rowcount,ll_move_row
Long ll_i

ll_rowcount = dw_child.RowCount()
IF ll_rowcount <= 0 THEN RETURN

FOR ll_i = 1 TO ll_rowcount
	//如果是选中行
	IF dw_child.IsSelected(ll_i) THEN
		ll_move_row = ll_i
		
	END IF
NEXT

IF ll_move_row = 1 THEN RETURN
//上移一行
//dw_uc.RowsMove(ll_move_row, ll_move_row, primary!, &
//	dw_uc, ll_move_row + 2, primary!)

dw_child.RowsMove(ll_move_row, ll_move_row, primary!, &
	dw_child, ll_move_row - 1, primary!)

dw_child.SelectRow(0, FALSE)
dw_child.SetRow(ll_move_row - 1)
dw_child.SelectRow(ll_move_row - 1, TRUE)

end event

event ue_downrow();if not dw_edit_mode  then return 

Long ll_rowcount,ll_move_row
Long ll_i

ll_rowcount = dw_child.RowCount()
IF ll_rowcount <= 0 THEN RETURN

FOR ll_i = 1 TO ll_rowcount
	//如果是选中行
	IF dw_child.IsSelected(ll_i) THEN
		ll_move_row = ll_i
		
	END IF
NEXT

IF ll_move_row = ll_rowcount THEN RETURN
//上移一行
//dw_uc.RowsMove(ll_move_row, ll_move_row, primary!, &
//	dw_uc, ll_move_row + 2, primary!)

dw_child.RowsMove(ll_move_row, ll_move_row, primary!, &
	dw_child, ll_move_row + 2, primary!)
dw_child.ScrollToRow(ll_move_row + 1)
end event

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


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

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

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

RETURN 1








end function

public function integer wf_lock_child ();//wf_lock_child
Int LS_INT
IF dw_edit_mode THEN
//	//考虑字段X坐标的位置,设置TabOrder
//	datastore ds
//	Long ll_row
//	Long ll_col
//	Long ll_x
//	
//	ds = CREATE datastore
//	ds.DataObject = "dw_uc_rbtnfilter_setlayout_grid"
//	
//	//取坐标
//	FOR LS_INT = 1 TO child_column_int
//		IF Long(dw_child.Describe("#"+String(LS_INT)+ ".x")) > 0 THEN
//			ll_x = Long(dw_child.Describe("#"+String(LS_INT)+ ".x"))
//		ELSE
//			ll_x = 99999
//		END IF
//		ll_row = ds.InsertRow(0)
//		ds.Object.taporder[ll_row] = LS_INT
//		ds.Object.X[ll_row] = ll_x
//	NEXT
//	ll_x = ds.SetSort("x A")
//	ll_x = ds.Sort()

//	FOR LS_INT = 1 TO ds.RowCount()
//		ll_col = ds.Object.taporder[LS_INT]
//		dw_child.SetTabOrder (ll_col,LS_INT*10 )
//	NEXT
//	DESTROY ds
	
	FOR LS_INT = 1 TO child_column_int
		dw_child.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
ELSE
	FOR LS_INT = 1 TO child_column_int
		dw_child.SetTabOrder (LS_INT, 0)
	NEXT
END IF

RETURN 1

end function

public function integer wf_no_edit ();//wf_no_edit
IF dw_edit_mode THEN
	cb_edit.Enabled = TRUE
ELSE
	cb_edit.Enabled = FALSE
END IF
RETURN 1

end function

public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg);//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_saletask_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 = 102);
//	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)
//	
//	IF ll_ifpic = 1 THEN
//		IF arg_str_billlist.bill[i].datawindow  = 'dw_xls_saletaskmx' AND arg_str_billlist.bill[i].ds_data.RowCount() > 0 THEN //设置图片路径
//			FOR ll_j = 1 TO arg_str_billlist.bill[i].ds_data.RowCount()
//				arg_str_billlist.bill[i].ds_data.Object.pic[ll_j] = s_pic.path[ll_j]
//			NEXT
//		END IF
//	END IF
//NEXT
//
//
//DESTROY ls_uo_fjbt
RETURN 1
//
end function

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

dw_child.AcceptText( )

ll_rowcount = dw_child.RowCount()

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

IF NOT IsValid(ds_copy_bill) THEN
	ds_copy_bill = CREATE datastore
	ds_copy_bill.DataObject = dw_child.DataObject
	ds_copy_bill.SetTransObject(sqlca)
END IF

ds_copy_bill.Reset()

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

ds_copy_bill.AcceptText()
ext:
RETURN rslt



end function

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

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

Long ll_rowcount

dw_child.AcceptText( )

ll_rowcount = ds_copy_bill.RowCount()

IF ll_rowcount <= 0 THEN
	rslt = 0
	arg_msg = '没有可粘贴的明细内容'
	GOTO ext
END IF

dw_child.Reset()
Long ll_child_rowcount

ll_child_rowcount = dw_child.RowCount()

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

dw_child.AcceptText()

ext:
RETURN rslt

end function

public subroutine wf_addlog_tempfilepathname (string arg_filepathname);//wf_addlog_tempfilepathname
if isnull(arg_filepathname) or len(trim(arg_filepathname))<3 then return
ins_openfile_log_p++
ins_openfile_log[ins_openfile_log_p]=arg_filepathname
//	string ins_openfile_log[]  //用于退出后删除
//	long ins_openfile_log_p=0    //用于退出后删除
//
end subroutine

public subroutine wf_del_tempfilepathname ();//wf_del_tempfilepathname
// 删除临时文件
Long li
FOR li = 1 TO ins_openfile_log_p
	IF Len(Trim(ins_openfile_log[li])) <= 0 THEN
	ELSE
		FileDelete(ins_openfile_log[li])
	END IF
NEXT


end subroutine

public subroutine wf_reset_uc ();//wf_reset_uc()应用预览
dw_uc.TriggerEvent(Constructor!)

end subroutine

public subroutine wf_encl (integer arg_encl);IF arg_encl = 1 THEN
	p_encl.PictureName = 'p_encl_1.GIF'
ELSE
	p_encl.PictureName = 'p_encl_2.GIF'
END IF

end subroutine

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_saletask_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_child.RowCount()
//		ll_mtrlid = dw_child.Object.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 window getparentwindow ();return this
end function

public subroutine wf_getmtrlid (ref long arg_mtrlid);Long ll_mtrlid
Long ll_row
String ls_col_mtrlid

ll_row = dw_child.GetRow()
IF ll_row > 0 THEN
	ls_col_mtrlid = dw_child.Describe("#1.Name")
	
	IF Not Pos(Lower(ls_col_mtrlid),'mtrlid') > 0 THEN RETURN
	
	ll_mtrlid = dw_child.GetItemNumber(ll_row,ls_col_mtrlid)
END IF

arg_mtrlid = ll_mtrlid

end subroutine

public function integer wf_billcache_import (datawindow arg_dw, integer arg_row, ref string arg_msg);Int rslt = 1
Long li_col, ll_col_cnt, ll_row_cnt, i
String ls_data_type, ls_colname
String ld_dataobject
Any la_data
String ls_data

ld_dataobject = arg_dw.DataObject
IF arg_row > 0 THEN //
	ll_row_cnt = Long(ProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, "RowCnt", "0" ))
ELSE
	ll_row_cnt = Long(ProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, "MxRowCnt", "0" ))
	arg_dw.Reset()
END IF
IF ll_row_cnt = 0 THEN 
	arg_msg = "没有缓存数据"
	RETURN 0
end if

ll_col_cnt = Long(arg_dw.Describe("DataWindow.Column.Count"))

FOR li_col = 1 To ll_col_cnt
	ls_data_type = Left(arg_dw.Describe("#" + String(li_col) + ".coltype"),4) //列数据类型
	ls_colname = arg_dw.Describe("#" + String(li_col) + ".Name")
	
	
	IF arg_row > 0 THEN
		ls_data = ProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, ls_colname, "" )
		//		arg_dw.SetItem(arg_row,li_col, ls_data)
		CHOOSE CASE ls_data_type
			CASE "numb","deci","long"
				la_data = arg_dw.SetItem(arg_row,li_col, Dec(ls_data))
			CASE "stri","char"
				la_data = arg_dw.SetItem(arg_row,li_col, ls_data)
			CASE "date"
				la_data = arg_dw.SetItem(arg_row,li_col,DateTime(ls_data))
			CASE ELSE
				arg_msg += ls_data_type+","
		END CHOOSE
		
	ELSE
		FOR i = 1 To ll_row_cnt
			IF arg_dw.RowCount() < i THEN arg_dw.InsertRow(0)
			ls_data = ProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject+"_"+String(i), ls_colname, "" )
			CHOOSE CASE ls_data_type
				CASE "numb","deci","long"
					la_data = arg_dw.SetItem(i,li_col, Dec(ls_data))
				CASE "stri","char"
					la_data = arg_dw.SetItem(i,li_col, ls_data)
				CASE "date"
					la_data = arg_dw.SetItem(i,li_col,DateTime(ls_data))
				CASE ELSE
					arg_msg += ls_data_type+","
			END CHOOSE
		NEXT
	END IF
NEXT

IF arg_msg <> "" THEN
	rslt = 0
//	MessageBox('',arg_msg+"未处理")
END IF

RETURN rslt









end function

public function integer wf_billcache_export (datawindow arg_dw, integer arg_row, ref string arg_msg);Int rslt = 1
Long li_col, ll_col_cnt, ll_row_cnt, i
String ls_data_type, ls_colname
String ld_dataobject
Any la_data

IF NOT FileExists (sys_inifilename_cache) THEN
	integer li_FileNum
	li_FileNum = FileOpen(sys_inifilename_cache, StreamMode!, Write!, LockWrite!, Replace!)
	FileClose(li_FileNum)
END IF

arg_dw.accepttext()
ld_dataobject = arg_dw.DataObject
IF arg_row > 0 THEN //
	SetProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, "RowCnt", "1" )
ELSE
	ll_row_cnt = arg_dw.RowCount()
	SetProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, "MxRowCnt", String(ll_row_cnt) )
END IF

ll_col_cnt = Long(arg_dw.Describe("DataWindow.Column.Count"))

FOR li_col = 1 To ll_col_cnt
	ls_data_type = Left(arg_dw.Describe("#" + String(li_col) + ".coltype"),4) //列数据类型
	ls_colname = arg_dw.Describe("#" + String(li_col) + ".Name")
	IF arg_row > 0 THEN
		CHOOSE CASE ls_data_type
			CASE "numb","deci","long"
				la_data = arg_dw.GetItemNumber(arg_row,li_col)
			CASE "stri","char"
				la_data = arg_dw.GetItemString(arg_row,li_col)
			CASE "date"
				la_data = arg_dw.GetItemDateTime(arg_row,li_col)
			CASE ELSE
				arg_msg += ls_data_type+","
		END CHOOSE
		SetProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, ls_colname, String(la_data) )
	ELSE
		FOR i = 1 To ll_row_cnt
			CHOOSE CASE ls_data_type
				CASE "numb","deci","long"
					la_data = arg_dw.GetItemNumber(i,li_col)
				CASE "stri","char"
					la_data = arg_dw.GetItemString(i,li_col)
				CASE "date"
					la_data = arg_dw.GetItemDateTime(i,li_col)
				CASE ELSE
					arg_msg += ls_data_type+","
			END CHOOSE
			SetProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject+"_"+String(i), ls_colname, String(la_data) )
		NEXT
	END IF
NEXT
IF arg_msg <> "" THEN
	rslt = 0
	//MessageBox('',arg_msg+"未处理")
END IF

RETURN rslt





end function

public function integer wf_billcache_delete (datawindow arg_dw, integer arg_row);Int rslt = 1
Long li_col, ll_col_cnt, ll_row_cnt, i
//String ls_data_type, ls_colname
String ld_dataobject
//Any la_data
//String ls_data

ld_dataobject = arg_dw.DataObject
IF arg_row > 0 THEN //
	ll_row_cnt = Long(ProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, "RowCnt", "0" ))
ELSE
	ll_row_cnt = Long(ProfileString ( sys_inifilename_cache, publ_userid +"_"+ld_dataobject, "MxRowCnt", "0" ))
	arg_dw.Reset()
END IF
IF ll_row_cnt = 0 THEN RETURN 1


pfc_delprofilestring( sys_inifilename_cache, publ_userid +"_"+ld_dataobject,"")
IF arg_row > 0 THEN
	
ELSE
	FOR i = 1 To ll_row_cnt
		pfc_delprofilestring( sys_inifilename_cache, publ_userid +"_"+ld_dataobject+"_"+String(i),"")
	NEXT
END IF


RETURN rslt










end function

public subroutine wf_mxsort ();String ls_dwname,SortStr

ls_dwname = dw_child.DataObject
SortStr = f_find_sortset(ls_dwname)

IF SortStr <> "" THEN
	dw_child.setSort(SortStr)
	dw_child.Sort()
END IF
end subroutine

on w_publ_1ton_share_detail.create
int iCurrent
call super::create
this.dw_uc=create dw_uc
this.gb_2=create gb_2
this.dw_child=create dw_child
this.cb_viewprint=create cb_viewprint
this.cb_print=create cb_print
this.cb_add=create cb_add
this.cb_edit=create cb_edit
this.cb_delet=create cb_delet
this.cb_addzy=create cb_addzy
this.cb_auditing=create cb_auditing
this.cb_xm=create cb_xm
this.cb_retrieve=create cb_retrieve
this.cb_xls=create cb_xls
this.cb_help=create cb_help
this.cb_auditing_cancel=create cb_auditing_cancel
this.p_msg=create p_msg
this.p_help=create p_help
this.p_encl=create p_encl
this.p_other=create p_other
this.gb_3=create gb_3
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_uc
this.Control[iCurrent+2]=this.gb_2
this.Control[iCurrent+3]=this.dw_child
this.Control[iCurrent+4]=this.cb_viewprint
this.Control[iCurrent+5]=this.cb_print
this.Control[iCurrent+6]=this.cb_add
this.Control[iCurrent+7]=this.cb_edit
this.Control[iCurrent+8]=this.cb_delet
this.Control[iCurrent+9]=this.cb_addzy
this.Control[iCurrent+10]=this.cb_auditing
this.Control[iCurrent+11]=this.cb_xm
this.Control[iCurrent+12]=this.cb_retrieve
this.Control[iCurrent+13]=this.cb_xls
this.Control[iCurrent+14]=this.cb_help
this.Control[iCurrent+15]=this.cb_auditing_cancel
this.Control[iCurrent+16]=this.p_msg
this.Control[iCurrent+17]=this.p_help
this.Control[iCurrent+18]=this.p_encl
this.Control[iCurrent+19]=this.p_other
this.Control[iCurrent+20]=this.gb_3
this.Control[iCurrent+21]=this.ln_bar
this.Control[iCurrent+22]=this.ln_bar2
this.Control[iCurrent+23]=this.r_bar
this.Control[iCurrent+24]=this.ln_1
this.Control[iCurrent+25]=this.ln_2
end on

on w_publ_1ton_share_detail.destroy
call super::destroy
destroy(this.dw_uc)
destroy(this.gb_2)
destroy(this.dw_child)
destroy(this.cb_viewprint)
destroy(this.cb_print)
destroy(this.cb_add)
destroy(this.cb_edit)
destroy(this.cb_delet)
destroy(this.cb_addzy)
destroy(this.cb_auditing)
destroy(this.cb_xm)
destroy(this.cb_retrieve)
destroy(this.cb_xls)
destroy(this.cb_help)
destroy(this.cb_auditing_cancel)
destroy(this.p_msg)
destroy(this.p_help)
destroy(this.p_encl)
destroy(this.p_other)
destroy(this.gb_3)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
end on

event closequery;IF dw_edit_mode THEN
	Int ls_row = 0
	dw_UC.AcceptText()
	ls_row = dw_UC.GetNextModified(0, Primary!)+&
		dw_UC.GetNextModified(0, Filter!)+dw_UC.DeletedCount()
	IF ls_row > 0 THEN
		IF MessageBox('是否放弃','单据数据已经改变,是否放弃保存?',Question!,YesNo!,1 ) = 2 THEN
			RETURN 1
		END IF
	ELSE
		
		ls_row = dw_child.GetNextModified(0, Primary!)+&
			dw_child.GetNextModified(0, Filter!)+dw_child.DeletedCount()
		IF ls_row > 0 THEN
			IF MessageBox('是否放弃','单据明细数据已经改变,是否放弃保存?',Question!,YesNo!,1 ) = 2 THEN
				RETURN 1
			END IF
		END IF
	END IF
END IF


end event

event user_key;call super::user_key;//IF KeyDown(KeyF6!) THEN
//	THIS.TriggerEvent('ue_f6')
//ELSEIF KeyDown(KeyF1!) THEN
//	THIS.TriggerEvent('ue_help')
//ELSEIF KeyDown(KeyF2!) THEN
//	IF NOT dw_edit_mode THEN
//		THIS.TriggerEvent('ue_modify')
//	END IF
//ELSEIF 	KeyDown(KeyF7!) THEN
//	THIS.TriggerEvent('ue_f7')
//ELSEIF 	KeyDown(KeyF9!) THEN
//	THIS.TriggerEvent('ue_f9')
//ELSEIF 	KeyDown(KeyF10!) THEN
//	THIS.TriggerEvent('ue_f10')
//ELSEIF 	KeyDown(KeyF11!) THEN
//	THIS.TriggerEvent('ue_f11')
//ELSEIF 	KeyDown(KeyF12!) THEN
//	THIS.TriggerEvent('ue_f12')
//ELSEIF KeyDown(KeyShift!) AND KeyDown(KeyLeftArrow!) THEN
//	THIS.TriggerEvent('ue_copyrow')
//ELSEIF KeyDown(KeyShift!) AND KeyDown(KeyUpArrow!) THEN
//	THIS.TriggerEvent('ue_insertmx')
//ELSEIF KeyDown(KeyShift!) AND KeyDown(KeyDownArrow!) THEN
//	THIS.TriggerEvent('ue_addmx')
//ELSEIF KeyDown(KeyShift!) AND KeyDown(KeyRightArrow!) THEN
//	THIS.TriggerEvent('ue_deletemx')
//END IF

IF KeyDown(KeyF1!) THEN
	THIS.TriggerEvent('ue_help')
ELSEIF KeyDown(KeyF2!) THEN
	IF NOT dw_edit_mode THEN
		THIS.TriggerEvent('ue_modify')
	END IF
ELSEIF KeyDown(KeyF4!) THEN
	IF   dw_edit_mode THEN
		THIS.TriggerEvent('ue_insertmx')
	END IF
ELSEIF KeyDown(KeyF5!) THEN
	IF  dw_edit_mode THEN
		THIS.TriggerEvent('ue_addmx')
	END IF
ELSEIF KeyDown(KeyF6!) THEN
	IF  dw_edit_mode THEN
		THIS.TriggerEvent('ue_deletemx')
	END IF
ELSEIF 	KeyDown(KeyF7!) THEN
	THIS.TriggerEvent('ue_f7')
ELSEIF 	KeyDown(KeyF9!) THEN
	THIS.TriggerEvent('ue_f9')
ELSEIF 	KeyDown(KeyF10!) THEN
	THIS.TriggerEvent('ue_f10')
ELSEIF 	KeyDown(KeyF11!) THEN
	THIS.TriggerEvent('ue_f11')
ELSEIF 	KeyDown(KeyF12!) THEN
	THIS.TriggerEvent('ue_f12')
ELSEIF KeyDown(KeyControl!) AND KeyDown(KeyA!) THEN
	IF  dw_edit_mode THEN
		THIS.TriggerEvent('ue_copyrow')
	END IF
END IF










end event

event open;call super::open;

//uc_column_int=8    //uc dw前8列可以编辑
//child_column_int=4 //子dw前4列可以编辑
//
//uo_ware=create uo_mtrloutware

end event

event ue_before_open;dw_child.SetTransObject(sqlca)
dw_uc.SetTransObject(sqlca)

if_ue_retr = TRUE
if_ue_filter = TRUE
if_ue_sort = TRUE
//if_MtrlPicView = TRUE

ds_copypaste = CREATE datastore
ds_copypaste.DataObject = dw_child.DataObject
ds_copypaste.SetTransObject(sqlca)

ds_copy_bill = CREATE datastore
ds_copy_bill.DataObject = dw_child.dataobject
ds_copy_bill.SetTransObject(sqlca)

//读出UC高度与宽度
uc_width = Long(f_ProfileString(sys_empid,publ_userid+'_'+dw_uc.DataObject, "width",'0'))
uc_height = Long(f_ProfileString(sys_empid,publ_userid+'_'+dw_uc.DataObject, "height",'0'))

//将UC窗口设为可自动改变高度
dw_uc.Object.datawindow.detail.Height = 2000
dw_uc.Object.datawindow.detail.Height.AutoSize = TRUE

end event

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()
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 key;this.triggerevent('user_key')
end event

event ue_filter;call super::ue_filter;OPENWITHPARM(w_filter_query,dw_pageretr)
STRING LS_EXPR
LS_EXPR=Message.StringParm	

if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_pageretr.setfilter(LS_EXPR)

dw_pageretr.SetRedraw (false)
dw_pageretr.filter()
dw_pageretr.triggerevent('ue_after_filter')
dw_pageretr.SetRedraw (true)
end event

event ue_sort;call super::ue_sort;OPENwithparm(w_sortrow,dw_pageretr)
STRING LS_EXPR
LS_EXPR=Message.StringParm	
IF ISNULL(LS_EXPR) THEN LS_EXPR='   '
if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_pageretr.setsort(LS_EXPR)

dw_pageretr.SetRedraw (false)
dw_pageretr.sort()
dw_pageretr.SetRedraw (true)
end event

event resize;call super::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.Y = dw_uc.Y
dw_pageretr.Width = THIS.Width - dw_pageretr.X - 40
dw_pageretr.Height = dw_uc.Height


dw_child.Y =  dw_uc.Y + dw_uc.Height - 10
dw_child.Width = THIS.Width - dw_child.X - 40
dw_child.Height = THIS.Height - dw_child.Y - 100

this.triggerevent('resize_p')
end event

type cb_func from w_publ_pageretr`cb_func within w_publ_1ton_share_detail
integer x = 151
integer y = 0
integer width = 151
integer height = 164
end type

event cb_func::clicked;////
//is_query_menustr = ''
//is_query_menustr = is_query_menustr + "|" + "Text=用户自定义~tEvent=ue_"
//call super::clicked

m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

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

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

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

IF Len(Trim(menustr)) = 0 THEN
	menustr = "Text=显示所有~tEvent=ue_showall"
ELSE
	menustr = menustr + "|" + "Text=显示所有~tEvent=ue_showall"
END IF

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

IF if_ue_sentdataout THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=数据发送~tEvent=ue_sentdataout"
	ELSE
		menustr = menustr + "|" + "Text=数据发送~tEvent=ue_sentdataout"
	END IF
END IF

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

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







end event

type cb_exit from w_publ_pageretr`cb_exit within w_publ_1ton_share_detail
integer x = 2519
integer y = 0
integer width = 151
integer height = 164
integer taborder = 280
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_usual_query from w_publ_pageretr`sle_usual_query within w_publ_1ton_share_detail
integer x = 201
integer y = 184
integer width = 558
boolean bringtotop = true
end type

type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_publ_1ton_share_detail
integer x = 2971
integer width = 151
integer height = 164
integer taborder = 240
boolean bringtotop = true
string normalpicname = "p1.ico"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type em_pagerowno from w_publ_pageretr`em_pagerowno within w_publ_1ton_share_detail
integer x = 2670
integer y = 32
integer width = 302
integer height = 96
integer taborder = 220
boolean bringtotop = true
end type

type dw_pageretr from w_publ_pageretr`dw_pageretr within w_publ_1ton_share_detail
integer x = 2066
integer y = 292
integer width = 1467
integer height = 940
boolean bringtotop = true
string title = "单据摘要内容"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;IF NOT dw_edit_mode THEN
	PARENT.TriggerEvent('retrieve_childdw_uc')
	PARENT.TriggerEvent('retrieve_childdw')
END IF


IF if_ChkMtrlInfo THEN
	Parent.TriggerEvent('ue_mtrl_info_retr')
END IF



end event

event dw_pageretr::ue_after_filter;
IF NOT dw_edit_mode THEN
	IF THIS.RowCount() > 0 THEN
		THIS.SetRow(1)
		THIS.TriggerEvent(RowFocusChanged!)
	END IF
END IF






end event

event dw_pageretr::constructor;call super::constructor;dw_pageretr_w = this.width
dw_pageretr_h = this.height
end event

type st_1 from w_publ_pageretr`st_1 within w_publ_1ton_share_detail
integer x = 9
integer y = 204
string text = "单号含"
end type

type cb_nextpage from w_publ_pageretr`cb_nextpage within w_publ_1ton_share_detail
integer x = 3122
integer width = 64
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_uc from u_dw_uc_rbtnfilter within w_publ_1ton_share_detail
event dwnkey pbm_dwnkey
event ue_scroll pbm_vscroll
event ue_dwndropdown pbm_dwndropdown
integer y = 292
integer width = 2066
integer height = 940
integer taborder = 100
end type

event dwnkey;PARENT.TriggerEvent('user_key')
IF Key = KeyDownArrow! THEN RETURN 1

IF  Key = KeyEnter! THEN //
	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
	keybd_event ( 9, 0, 2, 0 ) // 释放tab 
	RETURN 1
END IF



end event

event ue_scroll;return 1
end event

event ue_dwndropdown;IF Not dw_edit_mode THEN RETURN

String ls_col_pz,ls_col_mtrlid
String ls_pz_ch
String ls_col_value
Long ll_col_value
String ls_data_type

Long ll_row,ll_mtrlid


ll_row = This.GetRow()
IF ll_row > 0 THEN
	
	ls_col_pz = This.GetColumnName( )
	
	ls_data_type = dw_child.Describe(ls_col_pz+".ColType")
	IF Left(Lower(ls_data_type),4 ) = "char" THEN
		ls_col_value = This.GetItemString(ll_row,ls_col_pz)
	ELSEIF Left(Lower(ls_data_type),4) = "long" THEN
		ll_col_value = This.GetItemNumber(ll_row,ls_col_pz)
	END IF
	
	//	arg_s_win.arg_x = THIS.X + THIS.PointerX() + PARENT.X
	//	arg_s_win.arg_y = THIS.Y + THIS.PointerY() + PARENT.Y
	//	
	//	arg_s_win.arg_col = ls_col_pz
	//	arg_s_win.arg_mtrlid = ll_col_value
	//	arg_s_win.arg_col_value = ls_col_value
	
	//	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 rowfocuschanged;IF not dw_edit_mode then	
	if  currentrow >0 THEN 
		dw_pageretr.SETROW(currentrow)
		dw_pageretr.ScrollToRow(currentrow)
		dw_pageretr.selectrow(0,false)
		dw_pageretr.selectrow(currentrow,true)
	end if
end if

end event

event rowfocuschanging;if dw_edit_mode then return 1
end event

event doubleclicked;IF dw_edit_mode And row > 0  THEN
	Parent.TriggerEvent('ue_f9')
END IF

end event

event rbuttondown;IF dw_edit_mode THEN
	Long ll_row,ll_column
	ll_row = THIS.GetRow()
	ll_column = THIS.GetColumn()
	
	IF ll_row <= 0 THEN RETURN
	IF ll_column <= 0 THEN RETURN
	
	IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN
		s_calender_arg s_calender
		
		s_calender.PointerX = THIS.PointerX()
		s_calender.PointerY = THIS.PointerY()
		s_calender.X = THIS.X + PARENT.X
		s_calender.Y = THIS.Y + PARENT.Y
		
		OpenWithParm(w_calendar,s_calender)
		THIS.SetItem(ll_row,ll_column,id_date_selected)		
	END IF
END IF





end event

type gb_2 from groupbox within w_publ_1ton_share_detail
boolean visible = false
integer x = 87
integer y = 292
integer width = 466
integer height = 372
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 80269524
boolean righttoleft = true
end type

type dw_child from u_dw_rbtnfilter within w_publ_1ton_share_detail
event ue_dwndropdown pbm_dwndropdown
integer y = 1236
integer width = 3538
integer height = 936
integer taborder = 30
boolean bringtotop = true
boolean titlebar = true
string title = "明细内容 [双击选择]"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean hsplitscroll = true
borderstyle borderstyle = stylebox!
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
end type

event ue_dwndropdown;IF NOT dw_edit_mode THEN RETURN

String ls_col_pz,ls_col_mtrlid
String ls_pz_ch
String ls_col_value
String ls_data_type
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( )
	
	ls_data_type = dw_child.Describe(ls_col_pz+".ColType")
	IF Pos(Lower(ls_data_type),"char") > 0 THEN
		ls_col_value = THIS.GetItemString(ll_row,ls_col_pz)
	END IF
	
	arg_s_win.arg_x = THIS.X + THIS.PointerX() + PARENT.X
	arg_s_win.arg_y = THIS.Y + THIS.PointerY() + PARENT.Y
	
	arg_s_win.arg_col = ls_col_pz
	arg_s_win.arg_mtrlid = ll_mtrlid
	arg_s_win.arg_col_value = ls_col_value
	
	ls_pz_ch = f_mtrl_pz(arg_s_win)
	
			IF isnull(ls_pz_ch) THEN RETURN

	
	THIS.SetItem(ll_row,ls_col_pz,ls_pz_ch)
END IF


end event

event constructor;call super::constructor;//titleclick_sort_use = TRUE

dw_child_h = THIS.Height
dw_child_w = THIS.Width

end event

event clicked;call super::clicked;IF row > 0 AND dw_edit_mode THEN
	THIS.SetRow(row)
	
	IF KeyDown(keycontrol!) THEN
		IF if_changeselect THEN
			THIS.SelectRow(row,NOT THIS.IsSelected(row))
		ELSE
			if_changeselect = TRUE
		END IF
		ll_lastrow = row
	ELSEIF KeyDown(keyshift!) THEN //按下SHIFT键
//		IF ll_lastrow = 0 THEN //上次没选中任何行
//			THIS.SelectRow(row,TRUE)
//			ll_lastrow = currentrow //ll_lastrow为实例变量，记录上次单击的行
//		ELSE
//			THIS.SelectRow(0,FALSE) //全都不选中
//			IF currentrow > ll_lastrow THEN
//				FOR ll_i = ll_lastrow TO currentrow
//					THIS.SelectRow(ll_i,TRUE)
//				NEXT
//			ELSE
//				FOR ll_i = ll_lastrow TO currentrow STEP -1
//					THIS.SelectRow(ll_i,TRUE)
//				NEXT
//			END IF
//		END IF
	ELSE
		THIS.SelectRow(0,FALSE)
		THIS.SelectRow(row,TRUE)
		ll_lastrow = row
	END IF
END IF

end event

event doubleclicked;if dw_edit_mode then
   parent.triggerevent('ue_f8')
end if
end event

event rowfocuschanged;//IF dw_edit_mode THEN RETURN
Long ll_i
IF Not dw_edit_mode THEN
	IF currentrow <= 0 THEN RETURN
	This.SelectRow(0,False)
	This.SelectRow(currentrow,True)
ELSE
	IF if_del THEN RETURN
	IF KeyDown(keycontrol!) THEN
		IF Not This.IsSelected(currentrow) THEN
			This.SelectRow(currentrow,True)
			if_changeselect = False
		ELSE
			if_changeselect = True
		END IF
	ELSEIF KeyDown(keyshift!) THEN //按下SHIFT键
		IF ll_lastrow = 0 THEN //上次没选中任何行
			This.SelectRow(currentrow,True)
			ll_lastrow = currentrow //ll_lastrow为实例变量，记录上次单击的行
		ELSE
			This.SelectRow(0,False) //全都不选中
			IF currentrow > ll_lastrow THEN
				FOR ll_i = ll_lastrow To currentrow
					This.SelectRow(ll_i,True)
				NEXT
			ELSE
				FOR ll_i = ll_lastrow To currentrow Step -1
					This.SelectRow(ll_i,True)
				NEXT
			END IF
		END IF
		
	ELSE
		This.SelectRow(0,False)
		This.SelectRow(currentrow,True)
		ll_lastrow = currentrow
	END IF
	
	Parent.TriggerEvent('ue_allowedit')
END IF

IF if_ChkMtrlInfo THEN
	Parent.TriggerEvent('ue_mtrl_info_retr')
END IF




end event

event dwnkey;call super::dwnkey;//IF Key = KeyEnter!  THEN //
//	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
//	keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
//	RETURN 1
//END IF
//PARENT.TriggerEvent('user_key')
end event

event rbuttondown;string colnum_name
colnum_name = dwo.name

IF dw_edit_mode THEN
	IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN
		IF row <= 0 THEN RETURN
		s_calender_arg s_calender
		
		s_calender.PointerX = THIS.PointerX()
		s_calender.PointerY = THIS.PointerY()
		s_calender.X = THIS.X + PARENT.X
		s_calender.Y = THIS.Y + PARENT.Y
		
		OpenWithParm(w_calendar,s_calender)
		THIS.SetItem(row,colnum_name,id_date_selected)
	else
		if Left(dwo.TYPE,4) = 'text' then return 
		
		arg_ins_xpos = xpos
		arg_ins_ypos = This.Y + This.PointerY() + 50
		arg_ins_dwname = colnum_name
		arg_ins_dwrow = row
		arg_ins_dwtype = dwo.Type
		IF row > 0 And arg_ins_dwtype <> 'datawindow' THEN
			arg_ins_dwdata = String(dwo.primary[row])
		END IF	
		m_dwchild_rbotton_filter m_print
		m_print = CREATE m_dwchild_rbotton_filter
		
		m_print.m_0.PopMenu(THIS.X + THIS.PointerX() + 50,THIS.Y + THIS.PointerY() + 50)
	END IF
ELSE
	CALL SUPER:: rbuttondown
END IF





end event

event retrieveend;call super::retrieveend;wf_mxsort()
end event

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

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

w_curwin = PARENT
ls_windowname = PARENT.ClassName ( )

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

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





end event

type cb_print from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 1682
integer width = 192
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "打印&O"
string normalpicname = "print.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

w_curwin = PARENT
ls_windowname = PARENT.ClassName ( )

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


end event

type cb_add from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 302
integer width = 192
integer height = 164
integer taborder = 280
boolean bringtotop = true
string text = "新建&S"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF Not dw_edit_mode THEN
	Int li_row
	li_row = dw_pageretr.InsertRow (1)
	dw_pageretr.ScrollToRow(li_row)
	dw_child.Reset()
	dw_uc.Reset()
	dw_uc.SetFocus()
	dw_pageretr.RowsCopy(li_row,li_row, Primary!, dw_uc, 1, Primary!)
ELSE
	Parent.TriggerEvent('ue_billcache_delete')
END IF
dw_edit_mode = Not dw_edit_mode
wf_refresh_interface()

// //string arg_msg=''
////long uc_row,pagerert_row
////long relid_pageretr,reld_uc
////
////if dw_edit_mode then
////	dw_uc.accepttext()
////	dw_child.accepttext()
////	uc_row=dw_uc.getrow()
////	if uc_row<=0 then
////		messagebox('系统提示','请选定当前目标单据!')
////		return
////	end if
////	if not dw_uc.object.indate[uc_row]> datetime(2000-01-01,now()) then
////		messagebox('系统提示','不合理发生时间!')
////		return
////	end if
////	if not len(string(dw_uc.object.inrep[uc_row]))>0 then
////		messagebox('系统提示','请填写经手人!')
////		return
////	end if
////
////	uo_ware.operator=publ_operator                              //建立操作员
////	uo_ware.indate =dw_uc.object.indate[uc_row]     // 发生时间
////	uo_ware.inrep  =dw_uc.object.inrep[uc_row]      // 经手人
////	uo_ware.part   =dw_uc.object.part[uc_row]       //相关部门
////	uo_ware.dscrp  =dw_uc.object.dscrp[uc_row]      //备注
////	uo_ware.storageid  =dw_uc.object.storageid[uc_row]
////	uo_ware.sptid  =dw_uc.object.sptid[uc_row]
////	long obj_mtrlid,i
////	dec obj_qty,obj_price,obj_planprice
////	string obj_mtrlcode
////	
////for i=1 to dw_child.rowcount()
////	 if dw_child.object.u_inwaremx_mtrlid[i]>0 then
////		if uo_ware.acceptmx(dw_child.object.u_inwaremx_mtrlid[i],&
////				dw_child.object.u_inwaremx_qty[i],&
////		   	dw_child.object.u_inwaremx_price[i],&
////				dw_child.object.u_inwaremx_planprice[i],&
////				'',&				
////				dw_child.object.u_mtrldef_mtrlcode[i],&
////				arg_msg) = 0 then
////			messagebox('Error!',arg_msg)
//// 			return 
////	   end if	
////	end if
////next
////
////	if uo_ware.submit(arg_msg)=0 then
////		messagebox('Error!',arg_msg)
////		return
////	end if
////	messagebox(publ_operator,'保存操作成功!')
////  dw_pageretr.selectrow(0,false)
////	dw_pageretr.selectrow(uc_row,true)
////	wf_refresh_curuc(uo_ware.inwareid) //刷新uc
////	dw_pageretr.deleterow(1)
////	dw_uc.RowsCopy(dw_uc.GetRow(), dw_uc.GetRow(), Primary!, dw_pageretr, 1, Primary!)
////
////else
////	if uo_ware.newbegin(1,0,arg_msg)=0 then  //生产令领料
////		messagebox('Error!',arg_msg)
////		return
////	end if
////end if
////
////call super::clicked
////

end event

type cb_edit from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 494
integer width = 192
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF dw_edit_mode THEN
	IF MessageBox ("IF","当前单据,是否放弃保存?",Question!,YesNo! ,1) = 2 THEN RETURN
END IF

dw_edit_mode = NOT dw_edit_mode
wf_refresh_interface()
IF dw_edit_mode THEN
	dw_pageretr.SetFocus()
ELSE
	PARENT.TriggerEvent('retrieve_pageretr')
END IF

//String arg_msg = ''
//Long uc_row
//
//uc_row = dw_pageretr.GetRow()
//IF uc_row <= 0 THEN
//	MessageBox('系统提示','请选定当前目标单据!')
//	RETURN
//END IF
//
//IF NOT dw_edit_mode THEN
//	IF uo_ware.updatebegin(dw_pageretr.Object.inwareid[uc_row],1,0,arg_msg) = 0 THEN
//		MessageBox('Error!',arg_msg)
//		RETURN
//	END IF
//END IF
//
//CALL SUPER::Clicked
//
//
//
//
end event

type cb_delet from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 686
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//IF dw_edit_mode THEN RETURN
//
//
//
//String arg_msg = ''
//Long uc_row
//
//uc_row = dw_pageretr.GetRow()
//IF uc_row <= 0 THEN
//	MessageBox('系统提示','请选定当前目标单据!')
//	RETURN
//END IF
//
//IF MessageBox ("IF","是否确定要删除当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
//
//IF uo_ware.Cancel(dw_pageretr.Object.inwareid[uc_row],arg_msg) = 0 THEN
//	MessageBox('Error!',arg_msg)
//ELSE
//	MessageBox(publ_operator,'删除单据'+String(dw_pageretr.Object.inwarecode[uc_row])+'成功!')
//	dw_pageretr.DeleteRow(uc_row)
//	dw_pageretr.TriggerEvent(RowFocusChanged!)
//END IF
//
//
end event

type cb_addzy from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 1179
integer width = 251
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "单据功能"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//m_Dfc_Control_PopupMenu dmPopupMenu
//String menustr
//
//IF Not dw_edit_mode THEN
//	menustr += "|" + "Text=复制单据~tEvent=ue_bill_copy"
//	menustr += "|" + "Text=-"
//	menustr += "|" + "Text=增加备注~tEvent=ue_addzy"
//ELSE
//	menustr += "|" + "Text=粘贴单据~tEvent=ue_bill_paste"
//	menustr += "|" + "Text=-"
//	menustr += "|" + "Text=缓存单据~tEvent=ue_billcache_export"
//	menustr += "|" + "Text=导入缓存单据~tEvent=ue_billcache_import"
//END IF
//
//IF Len(Trim(menustr)) <> 0 THEN
//	dmPopupMenu = Create m_Dfc_Control_PopupMenu
//	dmPopupMenu.mf_BuildMenu(This, menustr)
//	dmPopupMenu.mf_PopMenu()
//	Destroy dmPopupMenu
//END IF
//
//

end event

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

event clicked;call super::clicked;//IF dw_edit_mode THEN RETURN
//
//String arg_msg = ''
//Long pagerert_row
//
//pagerert_row = dw_pageretr.GetRow()
//IF pagerert_row <= 0 THEN
//	MessageBox('系统提示','请选定当前目标单据!')
//	RETURN
//END IF
//IF uo_ware.getinfo(dw_pageretr.Object.inwareid[pagerert_row],arg_msg) = 0 THEN
//	MessageBox('Error!',arg_msg)
//	RETURN
//END IF
//
//IF uo_ware.auditing(publ_operator,arg_msg) = 0 THEN
//	MessageBox('Error!',arg_msg)
//ELSE
//	MessageBox(publ_operator,'审核成功!')
//	wf_refresh_curuc(dw_pageretr.Object.inwareid[pagerert_row])
//END IF
//
end event

type cb_xm from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 1431
integer width = 251
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "明细功能"
string normalpicname = "mx.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// //
//is_mx_menustr = ''
//is_mx_menustr +=  "|" + "Text=用户自定义~tEvent=ue_"
//call super::clicked

//is_mx_menustr +=  "|" + "Text=明细物料图片查看~tEvent=ue_fj_view"
//
m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF dw_edit_mode THEN
	menustr = "Text=增明细~tEvent=ue_addmx"
	menustr +=  "|" + "Text=删明细~tEvent=ue_deletemx"
ELSE
	IF if_ChkMtrlInfo THEN
		menustr = "Text=查看产品相关信息~tEvent=ue_mtrl_info"
	END IF
END IF

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

IF if_MtrlPicView THEN
	IF Trim(menustr) <> "" THEN
		menustr +=  "|" + "Text=-"
		menustr +=  "|" + "Text=明细物料图片查看~tEvent=ue_MtrlPicView"
	ELSE
		menustr = "Text=明细物料图片查看~tEvent=ue_MtrlPicView"
	END IF
END IF

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
END IF





end event

type cb_retrieve from uo_imflatbutton within w_publ_1ton_share_detail
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('retrieve_pageretr')
end event

type cb_xls from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 2066
integer height = 164
integer taborder = 230
boolean bringtotop = true
string text = "Excel打印"
string normalpicname = "excel.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// 约定  用 parent.Classname ( ) 即状况名称 作为打印模板的分类

uo_sendtoexcel obj_st
obj_st = create uo_sendtoexcel

obj_st.commit_transaction = sqlca
obj_st.TriggerEventObject = this.getparent()
obj_st.TriggerEventname = 'ue_xls'
string arg_msg

menu m1
m1 = obj_st.of_createmenu( parent.Classname ( ),sys_user_xls_print_str,sys_user_xls_send_str)

 
if upperbound( m1.item)=2 then
	messagebox('错误','当前单据还没有设置Excel打印模板.')
else
	m1.PopMenu(this.x ,this.y+THIS.height)
end if
end event

type cb_help from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 2368
integer width = 151
integer height = 164
integer taborder = 50
boolean bringtotop = true
boolean enabled = false
string text = "相关"
string normalpicname = "link.ico"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//m_Dfc_Control_PopupMenu dmPopupMenu
//string menustr
//
//
//menustr="Text=增加备注~tEvent=ue_addzy"
//menustr=menustr + "|" + "Text=-"
//menustr = menustr + "|" + "Text=复制单据~tEvent=ue_bill_copy"
//menustr = menustr + "|" + "Text=粘贴单据~tEvent=ue_bill_paste"
//	
//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_cancel from uo_imflatbutton within w_publ_1ton_share_detail
integer x = 1029
integer width = 151
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "撤审"
string normalpicname = "caudit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//IF dw_edit_mode THEN RETURN
//
//String arg_msg = ''
//Long pagerert_row
//
//pagerert_row = dw_pageretr.GetRow()
//IF pagerert_row <= 0 THEN
//	MessageBox('系统提示','请选定当前目标单据!')
//	RETURN
//END IF
//IF uo_ware.getinfo(dw_pageretr.Object.inwareid[pagerert_row],arg_msg) = 0 THEN
//	MessageBox('Error!',arg_msg)
//	RETURN
//END IF
//
//IF uo_ware.cauditing(publ_operator,arg_msg) = 0 THEN
//	MessageBox('Error!',arg_msg)
//ELSE
//	MessageBox(publ_operator,'审核成功!')
//	wf_refresh_curuc(dw_pageretr.Object.inwareid[pagerert_row])
//END IF
//
end event

type p_msg from picture within w_publ_1ton_share_detail
integer x = 3191
integer y = 196
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\p_msg.GIF"
boolean focusrectangle = false
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=发送消息~tEvent=ue_news_add"
menustr=menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=相看相关消息~tEvent=ue_news_rel"
	
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 p_help from picture within w_publ_1ton_share_detail
integer x = 3383
integer y = 196
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\p_help.GIF"
boolean focusrectangle = false
end type

event clicked;PARENT.TriggerEvent('ue_help')
end event

type p_encl from picture within w_publ_1ton_share_detail
integer x = 3287
integer y = 196
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "p_encl_2.GIF"
boolean focusrectangle = false
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=添加附件~tEvent=ue_fj_edit"
menustr=menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=查看附件~tEvent=ue_fj_view"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=打开副本~tEvent=ue_copyself"
	
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 p_other from picture within w_publ_1ton_share_detail
integer x = 3479
integer y = 196
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\p_other.GIF"
boolean focusrectangle = false
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF sys_option_if_ljfieb = 0 THEN
	//menustr="Text=发送消息~tEvent=ue_news_add"
	//menustr=menustr + "|" + "Text=-"
	//menustr = menustr + "|" + "Text=相看相关消息~tEvent=ue_news_rel"
ELSE
	menustr = "Text=发送单据~tEvent=ue_send_ljfieb"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=查看电子商务记录~tEvent=ue_jdview_ljfieb"
END IF


IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
END IF

end event

type gb_3 from groupbox within w_publ_1ton_share_detail
boolean visible = false
integer x = 434
integer y = 408
integer width = 1125
integer height = 148
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 15793151
end type

type ln_bar from line within w_publ_1ton_share_detail
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3200
integer endy = 172
end type

type ln_bar2 from line within w_publ_1ton_share_detail
long linecolor = 16777215
integer linethickness = 4
integer beginx = 9
integer beginy = 176
integer endx = 3273
integer endy = 176
end type

type r_bar from rectangle within w_publ_1ton_share_detail
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 3351
integer width = 87
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type ln_1 from line within w_publ_1ton_share_detail
long linecolor = 268435456
integer linethickness = 4
integer beginy = 284
integer endx = 3250
integer endy = 284
end type

type ln_2 from line within w_publ_1ton_share_detail
long linecolor = 16777215
integer linethickness = 4
integer beginy = 288
integer endx = 3282
integer endy = 288
end type