Q5/ws_objects/cw_bsnobj.pbl.src/w_hsitem_edit.srw

$PBExportHeader$w_hsitem_edit.srw
forward
global type w_hsitem_edit from w_publ_edit_choice
end type
type ddlb_1 from dropdownlistbox within w_hsitem_edit
end type
end forward

global type w_hsitem_edit from w_publ_edit_choice
integer width = 1792
integer height = 2200
string title = "项目设定"
long backcolor = 82700779
event refresh_face ( )
ddlb_1 ddlb_1
end type
global w_hsitem_edit w_hsitem_edit

type variables
s_hsitem s_item
end variables

event refresh_face;ddlb_1.enabled = not dw_edit_mode
end event

on w_hsitem_edit.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_1
end on

on w_hsitem_edit.destroy
call super::destroy
destroy(this.ddlb_1)
end on

event retrieve_uc;int ls_useflag
if ddlb_1.text = '全部' then
	ls_useflag = -1
elseif ddlb_1.text = '有效' then
	ls_useflag = 1
else
	ls_useflag = 0
end if	

dw_UC.retrieve(sys_accsetid,ls_useflag)
end event

event close;CloseWithReturn(THIS,s_item)
end event

event ue_before_open;call super::ue_before_open;if_ue_filter = TRUE

end event

type cb_func from w_publ_edit_choice`cb_func within w_hsitem_edit
end type

type cb_exit from w_publ_edit_choice`cb_exit within w_hsitem_edit
integer x = 878
end type

event cb_exit::clicked;s_item.hsitemid = 0
Close (PARENT)

end event

type cb_add from w_publ_edit_choice`cb_add within w_hsitem_edit
end type

event cb_add::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.hsitemname[dw_uc.GetRow()] = Trim(dw_uc.Object.hsitemname[dw_uc.GetRow()])
	dw_uc.Object.hsitemcode[dw_uc.GetRow()] = Trim(dw_uc.Object.hsitemcode[dw_uc.GetRow()])
	
	IF dw_uc.Object.hsitemcode[dw_uc.GetRow()] = '' THEN
		MessageBox('提示','请输入编号!')
		dw_uc.SetFocus()
		dw_uc.SetColumn('hsitemcode')
		RETURN
	END IF
	
	IF dw_uc.Object.hsitemname[dw_uc.GetRow()] = '' THEN
		MessageBox('提示','请输入项目资料名称!')
		dw_uc.SetFocus()
		dw_uc.SetColumn('hsitemname')
		RETURN
	END IF
	dw_uc.Object.accsetid[dw_uc.GetRow()] = sys_accsetid
	
	IF dw_uc.Object.hsitemid[dw_uc.GetRow()] = 0 THEN
		ll_newid = f_sys_scidentity(sys_accsetid,"cw_hsitem","hsitemid",errmsg,TRUE,id_sqlca)
		IF ll_newid <= 0 THEN
			MessageBox('提示',errmsg)
			RETURN
		ELSE
			dw_uc.Object.hsitemid[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 5
			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 5
		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()
PARENT.TriggerEvent('refresh_face')



end event

type cb_edit from w_publ_edit_choice`cb_edit within w_hsitem_edit
end type

event cb_edit::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 5
		dw_uc.SetTabOrder ( i, 0 )
	NEXT
	modifyrow_no = 0
ELSE
	modifyrow_no = dw_uc.GetRow()
	FOR i = 1 TO 5
		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()
PARENT.TriggerEvent('refresh_face')

end event

type cb_delet from w_publ_edit_choice`cb_delet within w_hsitem_edit
end type

event cb_delet::clicked;IF MessageBox (publ_operator,"是否确定要删除当前记录?(选择确定后记录将不可恢复)",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(publ_operator,'没有操作目标记录!')
	RETURN
END IF
LS_id=DW_UC.OBJECT.hsitemid[DW_UC.GETROW()]
select COUNT(*) into :LS_LONG from cw_credencemx
 where cw_credencemx.itemid=:LS_id 
   and cw_credencemx.accsetid=:sys_accsetid;
if SQLCA.SQLCode<>0 then 
	MessageBox (publ_operator,"数据查询操作失败!(请重试!)",Exclamation!,OK!)
	return 
end if
IF LS_LONG>0 THEN 
	MessageBox (publ_operator,"该资料已经使用于凭证,不可以删除!",Exclamation!,OK!)
	RETURN
END IF

LS_LONG=0
select COUNT(*) into :LS_LONG from cw_inititembala
 where cw_inititembala.itemid=:LS_id 
   and cw_inititembala.accsetid=:sys_accsetid;
if SQLCA.SQLCode<>0 then 
	MessageBox (publ_operator,"数据查询操作失败!(请重试!)",Exclamation!,OK!)
	return 
end if
IF LS_LONG>0 THEN 
	MessageBox (publ_operator,"该资料已经使用于项目初始化数据,不可以删除!",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 (publ_operator,"删除记录操作失败!",Exclamation!,OK!)
else
	commit;
end if
dw_uc.SetRedraw (true)
end event

type cb_choice from w_publ_edit_choice`cb_choice within w_hsitem_edit
integer x = 713
end type

event cb_choice::clicked;call super::clicked;Long ll_row

dw_uc.AcceptText()

ll_row = dw_uc.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择项目')
	RETURN
END IF

IF dw_uc.Object.useflag[ll_row] = 0 THEN
	MessageBox('提示','该项目已设为无效,不能选择')
	RETURN
END IF

s_item.hsitemid = dw_uc.Object.hsitemid[ll_row]
s_item.hsitemname = dw_uc.Object.hsitemname[ll_row]

Close (PARENT)
end event

type dw_uc from w_publ_edit_choice`dw_uc within w_hsitem_edit
integer width = 1765
integer height = 1924
string dataobject = "dw_hsitem_index"
end type

type ln_bar from w_publ_edit_choice`ln_bar within w_hsitem_edit
end type

type ln_bar2 from w_publ_edit_choice`ln_bar2 within w_hsitem_edit
end type

type r_bar from w_publ_edit_choice`r_bar within w_hsitem_edit
end type

type ddlb_1 from dropdownlistbox within w_hsitem_edit
integer x = 1061
integer y = 44
integer width = 311
integer height = 320
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "有效"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"全部","有效","无效"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;parent.triggerevent('retrieve_uc')
end event