Q5/ws_objects/xls_Billprint_win.pbl.src/w_xls_publ_edit_choice.srw

$PBExportHeader$w_xls_publ_edit_choice.srw
$PBExportComments$定义加选择窗口
FORWARD
GLOBAL TYPE w_xls_publ_edit_choice FROM w_xls_publ_base
END TYPE
TYPE r_bar FROM rectangle within w_xls_publ_edit_choice
END TYPE
TYPE cb_add FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
END TYPE
TYPE cb_edit FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
END TYPE
TYPE cb_delet FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
END TYPE
TYPE cb_choice FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
END TYPE
TYPE dw_uc FROM u_xls_dw_rbtnfilter within w_xls_publ_edit_choice
END TYPE
TYPE cb_view FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
END TYPE
TYPE cb_help FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
END TYPE
TYPE ln_bar FROM Line within w_xls_publ_edit_choice
END TYPE
TYPE ln_bar2 FROM Line within w_xls_publ_edit_choice
END TYPE
END FORWARD

GLOBAL TYPE w_xls_publ_edit_choice FROM w_xls_publ_base
Integer Width = 2085
Integer Height = 1484
String Title = "编缉"
Boolean MinBox = FALSE
WindowType WindowType = response!
EVENT retrieve_uc ( )
r_bar r_bar
cb_add cb_add
cb_edit cb_edit
cb_delet cb_delet
cb_choice cb_choice
dw_uc dw_uc
cb_view cb_view
cb_help cb_help
ln_bar ln_bar
ln_bar2 ln_bar2
END TYPE
GLOBAL w_xls_publ_edit_choice w_xls_publ_edit_choice

TYPE VARIABLES
Boolean  ls_update_flag = TRUE
Long modifyrow_no = 0,crl_row //当前行记录
s_xls_edit_tran  para_obj //环境信息用于查询
String keyword_string //关键字 未用
Date first_date //查询开始日
Date end_date //查询结束日，比表达日后一天
Int child_column_int //明细dw锁定列数
String ins_sqlerrtext

END VARIABLES

FORWARD PROTOTYPES
PUBLIC FUNCTION Integer wf_face_change ()
END PROTOTYPES

EVENT retrieve_uc();
dw_uc.Retrieve()
END EVENT

PUBLIC FUNCTION Integer wf_face_change ();
IF dw_edit_mode THEN
	cb_func.Enabled = FALSE
	cb_choice.Enabled = FALSE
	cb_delet.Enabled = FALSE
	
	cb_view.Enabled = FALSE
	
	cb_edit.Text = "放弃&E"
	cb_add.Text = "保存&S"
	cb_edit.normalpicname = 'Undo.bmp'
	cb_add.normalpicname = 'Save.bmp'
ELSE
	cb_func.Enabled = TRUE
	cb_delet.Enabled = TRUE
	cb_choice.Enabled = TRUE
	
	cb_view.Enabled = TRUE
	
	cb_edit.Text = "修改&E"
	cb_add.Text = "新建&S"
	cb_edit.normalpicname = 'OPEN.bmp'
	cb_add.normalpicname = 'new.bmp'
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')
RETURN 1
END FUNCTION

ON w_xls_publ_edit_choice.CREATE
Int iCurrent
CALL SUPER::CREATE
THIS.r_bar = CREATE r_bar
THIS.cb_add = CREATE cb_add
THIS.cb_edit = CREATE cb_edit
THIS.cb_delet = CREATE cb_delet
THIS.cb_choice = CREATE cb_choice
THIS.dw_uc = CREATE dw_uc
THIS.cb_view = CREATE cb_view
THIS.cb_help = CREATE cb_help
THIS.ln_bar = CREATE ln_bar
THIS.ln_bar2 = CREATE ln_bar2
iCurrent = UpperBound(THIS.Control)
THIS.Control[iCurrent+1] = THIS.r_bar
THIS.Control[iCurrent+2] = THIS.cb_add
THIS.Control[iCurrent+3] = THIS.cb_edit
THIS.Control[iCurrent+4] = THIS.cb_delet
THIS.Control[iCurrent+5] = THIS.cb_choice
THIS.Control[iCurrent+6] = THIS.dw_uc
THIS.Control[iCurrent+7] = THIS.cb_view
THIS.Control[iCurrent+8] = THIS.cb_help
THIS.Control[iCurrent+9] = THIS.ln_bar
THIS.Control[iCurrent+10] = THIS.ln_bar2
END ON

ON w_xls_publ_edit_choice.DESTROY
CALL SUPER::DESTROY
Destroy(THIS.r_bar)
Destroy(THIS.cb_add)
Destroy(THIS.cb_edit)
Destroy(THIS.cb_delet)
Destroy(THIS.cb_choice)
Destroy(THIS.dw_uc)
Destroy(THIS.cb_view)
Destroy(THIS.cb_help)
Destroy(THIS.ln_bar)
Destroy(THIS.ln_bar2)
END ON

EVENT ue_filter;
CALL SUPER::ue_filter;
//OpenWithParm(w_xls_filter_query,dw_uc)
//String LS_EXPR
//LS_EXPR = Message.StringParm
//
//IF Len(LS_EXPR) > 2 AND Trim(LS_EXPR) = '' THEN RETURN
//
//dw_uc.SetFilter(LS_EXPR)
//
//dw_uc.SetRedraw (FALSE)
//dw_uc.Filter()
//dw_uc.SetRedraw (TRUE)
END EVENT

EVENT CloseQuery;
CALL SUPER::CloseQuery;
IF dw_edit_mode THEN
	dw_uc.AcceptText()
	Int ls_row = 0
	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 ) = 1 THEN
			RETURN 1
		END IF
	END IF
END IF



END EVENT

EVENT OPEN;
CALL SUPER::OPEN;
dw_uc.SetTransObject (sqlca)
THIS.TriggerEvent('retrieve_uc')
END EVENT

EVENT Resize;
CALL SUPER::Resize;
ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
r_bar.Width = THIS.Width
END EVENT

EVENT ue_before_open;
CALL SUPER::ue_before_open;
if_ue_filter = TRUE
//if_ue_sort = TRUE
if_ue_sentdataout = TRUE

END EVENT

EVENT ue_sort;
//CALL SUPER::ue_sort;
//OpenWithParm(w_xls_sortrow,dw_uc)
//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_uc.SetSort(LS_EXPR)
//
//dw_uc.SetRedraw (FALSE)
//dw_uc.Sort()
//dw_uc.SetRedraw (TRUE)
END EVENT

EVENT ue_sentdataout;
CALL SUPER::ue_sentdataout;
//OPENWITHPARM(w_xls_sentdataout,dw_uc)
END EVENT

EVENT Key;
CALL SUPER::Key;
IF KeyDown(KeyF1!) THEN
	cb_help.TriggerEvent(Clicked!)
END IF
END EVENT

TYPE cb_func FROM w_xls_publ_base`cb_func within w_xls_publ_edit_choice
Integer X = 549
Integer Width = 165
Integer Height = 172
String normalpicname = "setting.bmp"
Integer picsize = 16
ToolbarAlignment pic_align = alignattop!
Boolean Border = FALSE
END TYPE

TYPE cb_exit FROM w_xls_publ_base`cb_exit within w_xls_publ_edit_choice
Integer X = 1234
Integer Width = 165
Integer Height = 172
Integer picsize = 16
ToolbarAlignment pic_align = alignattop!
Boolean Border = FALSE
END TYPE

TYPE r_bar FROM rectangle within w_xls_publ_edit_choice
Long LineColor = 16777215
Long FillColor = 1073741824
Integer X = 1518
Integer Width = 73
Integer Height = 172
END TYPE

EVENT Constructor;
THIS.FillColor = 14215660
THIS.LineColor = 14215660
THIS.X = -1
THIS.Y = -1
THIS.Height = ln_bar2.BeginY - 5

END EVENT

TYPE cb_add FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
String Tag = "新建/保存[Alt+S]"
Integer Width = 192
Integer Height = 172
Integer TabOrder = 20
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;
//long ll_newid,i
//string errmsg
//IF dw_edit_mode THEN
//	dw_uc.accepttext()
//	if dw_uc.GetNextModified(0, Primary!)=0 then
//		MESSAGEBOX('','没有任何修改，不可以保存!')
//		RETURN
//	end if	
//	DW_UC.OBJECT.departmentname[DW_UC.GETROW()]=TRIM(DW_UC.OBJECT.departmentname[DW_UC.GETROW()])
//	
//	
//	IF DW_UC.OBJECT.departmentname[DW_UC.GETROW()]='' THEN
//		MESSAGEBOX('','请输入部门资料名称!')
//		RETURN
//	END IF
//	
//	if dw_uc.object.departmentid[dw_uc.getrow()]=0 then	
//		ll_newid=f_sys_scidentity(0,"cw_department","departmentid",errmsg,false)
//		if ll_newid<=0 then
//			messagebox('',errmsg)
//			return
//		else
//			dw_uc.object.departmentid[DW_UC.GETROW()]=ll_newid	
//		end if		
//	end if	
//end if
//
//
//
//IF dw_edit_mode THEN
//	string ls_errmsg
//	if dw_UC.Update() = -1 then
//		if pos(ins_sqlerrtext,"Cannot insert duplicate key row")>0 then
//			ls_errmsg="关键内容重复"
//		else
//			ls_errmsg="因为网络或其他原因>"+ins_sqlerrtext
//		end if
//		rollback;
//		MessageBox ('',ls_errmsg+",保存操作失败!",Exclamation!,OK!)
//		LS_UPDATE_FLAG=FALSE
//		RETURN
//	else
//		commit;
//		for i=1 to 3
//			dw_UC.SetTabOrder ( i, 0 )
//		next
//		LS_UPDATE_FLAG=TRUE
//	end if
//	ins_sqlerrtext=""	
//ELSE
//	long	li_row, li_cur_row
//	li_cur_row = dw_UC.GetRow()
//	li_row = dw_UC.InsertRow (0)
//	for i=1 to 3
//		dw_UC.SetTabOrder ( i, i*10 )
//	next
//	dw_uc.selectrow(0,false)
//	dw_UC.ScrollToRow (li_row)	
//	dw_uc.selectrow(li_row,true)
//	dw_UC.SetFocus()
//	modifyrow_no= li_row
//END IF
//
//dw_edit_mode= NOT dw_edit_mode
//WF_FACE_CHANGE()
//
END EVENT

TYPE cb_edit FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
String Tag = "修改/放弃[Alt+E]"
Integer X = 192
Integer Width = 192
Integer Height = 172
Integer TabOrder = 30
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;
//long i
//IF dw_edit_mode THEN
//	if dw_uc.GetItemStatus(dw_UC.getrow(), 0, Primary!)=NewModified! or dw_uc.GetItemStatus(dw_UC.getrow(), 0, Primary!)=New! then
//	dw_UC.deleterow(dw_UC.getrow())
//	else
//	dw_UC.ReselectRow(dw_UC.getrow())
//	end if
//	for i=1 to 3
//		dw_UC.SetTabOrder ( i, 0 )
//	next
//	modifyrow_no = 0
//ELSE
//	modifyrow_no = dw_UC.getrow()
//	for i=1 to 3
//		dw_UC.SetTabOrder ( i, i*10 )
//	next
//	dw_UC.SetFocus()
//	
//	dw_UC.selectrow(0,false)
//	dw_UC.ScrollToRow (modifyrow_no)	
//	dw_uc.selectrow(modifyrow_no,true)
//	
//END IF
//
//dw_edit_mode= NOT dw_edit_mode
//WF_FACE_CHANGE()
END EVENT

TYPE cb_delet FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
Integer X = 384
Integer Width = 165
Integer Height = 172
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 MessageBox ('',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
//RETURN
//END IF 
//
//long LS_id
//LONG LS_LONG=0
//string ls_code,arg_msg
//IF DW_UC.GETROW()<=0 THEN 
//	MESSAGEBOX('','没有操作目标记录!')
//	RETURN
//END IF
//LS_id=DW_UC.OBJECT.departmentid[DW_UC.GETROW()]
//select COUNT(*) into :LS_LONG from u_rs_empinfo
// where u_rs_empinfo.deptid=:LS_id ;
//if SQLCA.SQLCode<>0 then 
//	MessageBox ('',"数据查询操作失败!(请重试!)",Exclamation!,OK!)
//	return 
//end if
//IF LS_LONG>0 THEN 
//	MessageBox ('',"该资料已经使用于人事资料,不可以删除!",Exclamation!,OK!)
//	RETURN
//END IF
//
//LS_LONG=0
//select COUNT(*) into :LS_LONG from u_sc_workgroup
// where u_sc_workgroup.deptid=:LS_id ;
//if SQLCA.SQLCode<>0 then 
//	MessageBox ('系统提示',"数据查询操作失败!(请重试!)",Exclamation!,OK!)
//	return 
//end if
//IF LS_LONG>0 THEN 
//	MessageBox ('系统提示',"该资料已经使用于工组设定中,不可以删除!",Exclamation!,OK!)
//	RETURN
//END IF
//
//dw_uc.SetRedraw (false)
//dw_UC.DeleteRow (0)
//dw_UC.TriggerEvent (rowfocuschanged!)
//
//if dw_UC.Update() = -1 then
//	rollback;
//	MessageBox ('系统提示',"删除记录操作失败!",Exclamation!,OK!)
//else
//	commit;
//end if
//dw_uc.SetRedraw (true)
END EVENT

TYPE cb_choice FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
Integer X = 1070
Integer Width = 165
Integer Height = 172
Integer TabOrder = 50
Boolean BringToTop = TRUE
String Text = "选定"
String normalpicname = "find2.BMP"
Integer picsize = 16
ToolbarAlignment pic_align = alignattop!
Boolean Border = FALSE
END TYPE

TYPE dw_uc FROM u_xls_dw_rbtnfilter within w_xls_publ_edit_choice
Integer Y = 188
Integer Width = 2002
Integer Height = 1116
Integer TabOrder = 20
Boolean BringToTop = TRUE
Boolean VScrollBar = TRUE
END TYPE

EVENT DBError;
CALL SUPER::DBError;
ins_sqlerrtext = SQLErrText
RETURN 1
END EVENT

EVENT RowFocusChanged;
CALL SUPER::RowFocusChanged;
IF modifyrow_no > 0 AND dw_edit_mode THEN
	THIS.SetRow(modifyrow_no)
	THIS.ScrollToRow(modifyrow_no)
ELSE
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
END EVENT

EVENT rowfocuschanging;
CALL SUPER::rowfocuschanging;
IF dw_edit_mode THEN RETURN 1
END EVENT

EVENT Constructor;
CALL SUPER::Constructor;
titleclick_sort_use = TRUE //单击标题排序-功能开关
RBUTTON_FILTER_USE = TRUE //右键查询-功能开关
setcolumn_visible_USE = TRUE //自动保存显示列-功能开关
autosave_setlayout_USE = TRUE //自动保存列位置及宽度-功能开关
END EVENT

TYPE cb_view FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
String Tag = "预览[Alt+P]"
Integer X = 878
Integer Width = 192
Integer Height = 172
Integer TabOrder = 40
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;
//S_print_MSG LS_PRMSG
//
//LS_PRMSG.obj_dwNAME = 'dwrp_zl_lsdzl'
//LS_PRMSG.SHARE_DW = DW_UC
//LS_PRMSG.TAG_TEXT = parent.title
//LS_PRMSG.SETUP_FLAG = 0
//LS_PRMSG.PAGECH_FLAG = 1
//
//OpenWithParm(w_publ_preview,LS_PRMSG)
//
//
//
END EVENT

TYPE cb_help FROM uo_xls_imflatbutton within w_xls_publ_edit_choice
String Tag = "帮助[F1]"
Integer X = 713
Integer Width = 165
Integer Height = 172
Integer TabOrder = 40
Boolean BringToTop = TRUE
String Text = "帮助"
String normalpicname = "help.bmp"
Integer picsize = 16
ToolbarAlignment pic_align = alignattop!
Boolean Border = FALSE
END TYPE

EVENT Clicked;
CALL SUPER::Clicked;
PARENT.TriggerEvent("ue_help")
END EVENT

TYPE ln_bar FROM Line within w_xls_publ_edit_choice
Long LineColor = 268435456
Integer LineThickness = 4
Integer BeginY = 176
Integer EndX = 2002
Integer EndY = 176
END TYPE

TYPE ln_bar2 FROM Line within w_xls_publ_edit_choice
Long LineColor = 16777215
Integer LineThickness = 4
Integer BeginY = 180
Integer EndX = 2002
Integer EndY = 180
END TYPE