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

$PBExportHeader$w_brief_edit.srw
forward
global type w_brief_edit from w_publ_base
end type
type dw_brief from datawindow within w_brief_edit
end type
type cb_ok from uo_imflatbutton within w_brief_edit
end type
type cb_add from uo_imflatbutton within w_brief_edit
end type
end forward

global type w_brief_edit from w_publ_base
integer width = 2194
integer height = 888
string title = "摘要- 编辑"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 80269524
dw_brief dw_brief
cb_ok cb_ok
cb_add cb_add
end type
global w_brief_edit w_brief_edit

type variables
s_brief  s_brief_edit
end variables

on w_brief_edit.create
int iCurrent
call super::create
this.dw_brief=create dw_brief
this.cb_ok=create cb_ok
this.cb_add=create cb_add
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_brief
this.Control[iCurrent+2]=this.cb_ok
this.Control[iCurrent+3]=this.cb_add
end on

on w_brief_edit.destroy
call super::destroy
destroy(this.dw_brief)
destroy(this.cb_ok)
destroy(this.cb_add)
end on

event open;call super::open;dw_brief.SetTransObject(sqlca)
datawindowchild childdw
String new_sqlstr,modify_str

childdw.SetTransObject (sqlca)
new_sqlstr = childdw.Describe("DataWindow.Table.Select")
new_sqlstr = new_sqlstr+' and accsetid=' + String(sys_accsetid)
modify_str = "DataWindow.Table.Select='" + new_sqlstr +"'"
childdw.Modify ( modify_str )
childdw.Retrieve()

datawindowchild childdw_subid
dw_brief.getchild("dftsubid",childdw_subid)
childdw_subid.SetTransObject (sqlca)
ddd_subid_display_detail.sharedata(childdw_subid)


s_brief_edit = Message.PowerObjectParm

Long li_row

IF s_brief_edit.edittype = 1 THEN
	li_row = dw_brief.InsertRow(0)
	dw_brief.Object.brieftypeid[li_row] = s_brief_edit.brieftypeid
ELSEIF s_brief_edit.edittype = 2 THEN
	dw_brief.Retrieve(sys_accsetid,s_brief_edit.briefid)
END IF
end event

type cb_func from w_publ_base`cb_func within w_brief_edit
integer x = 1198
integer y = 148
end type

type cb_exit from w_publ_base`cb_exit within w_brief_edit
integer x = 1239
integer y = 644
string text = "取消"
end type

type dw_brief from datawindow within w_brief_edit
integer x = 123
integer y = 32
integer width = 1975
integer height = 580
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_brief_edit"
boolean border = false
boolean livescroll = true
end type

event buttonclicked;Long child_row
s_subject s_rt_subject
IF dwo.Name = 'b_subid' THEN
	dw_brief.AcceptText()
	child_row = dw_brief.GetRow()
	IF child_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标摘要!')
		RETURN
	END IF
	IF NOT IsValid(w_subjectdef_edit) THEN OpenWithParm(w_subjectdef_edit,0)	
	
	s_rt_subject = Message.PowerObjectParm
	IF s_rt_subject.subid = '' THEN RETURN
	dw_brief.Object.dftsubid[child_row] = s_rt_subject.subid
END IF

end event

type cb_ok from uo_imflatbutton within w_brief_edit
integer x = 891
integer y = 644
integer width = 311
integer height = 96
integer taborder = 30
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;Long li_row,ls_briefid,ls_brieftypeid
String ls_briefname,ls_briefcode,ls_dftsubid

dw_brief.AcceptText()
IF s_brief_edit.edittype = 1 THEN
	cb_add.TriggerEvent(Clicked!)
ELSEIF s_brief_edit.edittype = 2 THEN
	li_row = dw_brief.GetRow()
	IF li_row <= 0 THEN
		MessageBox(publ_operator,'没有修改对象')
		RETURN
	END IF
	
	ls_briefid = dw_brief.Object.briefid[li_row]
	ls_brieftypeid = dw_brief.Object.brieftypeid[li_row]
	ls_briefname = dw_brief.Object.briefname[li_row]
	ls_briefcode = dw_brief.Object.briefcode[li_row]
	ls_dftsubid = dw_brief.Object.dftsubid[li_row]
	
	IF ls_brieftypeid = 0 THEN
		MessageBox(publ_operator,'请选择摘要类别')
		RETURN
	END IF
	
	UPDATE cw_brief
		SET brieftypeid = :ls_brieftypeid,
		briefname = :ls_briefname,
		briefcode = :ls_briefcode,
		dftsubid = :ls_dftsubid
		WHERE accsetid = :sys_accsetid
		AND briefid = :ls_briefid;
		
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox(publ_operator,'修改摘要类别"'+ls_briefname+'"失败,可能是名称已经存在或网络故障!')
		RETURN
	END IF
	COMMIT;
END IF

Close(PARENT)

end event

type cb_add from uo_imflatbutton within w_brief_edit
integer x = 544
integer y = 644
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
string text = "增加"
string normalpicname = "new.bmp"
end type

event clicked;Long li_row,ls_newid,ls_brieftypeid
String ls_briefname,ls_briefcode,errmsg,ls_dftsubid

dw_brief.AcceptText()

li_row = dw_brief.GetRow()
IF li_row <= 0 THEN
	MessageBox(publ_operator,'没有增加对象')
	RETURN
END IF

ls_newid = f_sys_scidentity(sys_accsetid,"cw_brief","briefid",errmsg,TRUE,id_sqlca)
IF ls_newid < 0 THEN
	MessageBox(publ_operator,errmsg)
	ROLLBACK;
END IF

ls_brieftypeid = dw_brief.Object.brieftypeid[li_row]
ls_briefname = dw_brief.Object.briefname[li_row]
ls_briefcode = dw_brief.Object.briefcode[li_row]
ls_dftsubid = dw_brief.Object.dftsubid[li_row]

IF ls_brieftypeid < 0 THEN
	MessageBox(publ_operator,'请选择摘要类别')
	RETURN
END IF

INSERT INTO cw_brief(accsetid,briefid,brieftypeid,briefname,briefcode,dftsubid )
	Values (:sys_accsetid,:ls_newid,:ls_brieftypeid,:ls_briefname,:ls_briefcode,:ls_dftsubid )  ;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox(publ_operator,'新建摘要类别"'+ls_briefname+'"失败,可能是名称已经存在或网络故障!')
	RETURN
END IF
COMMIT;

dw_brief.Object.briefname[li_row] = ''
dw_brief.Object.briefcode[li_row] = ''
IF IsValid(w_briefdef_edit) THEN
	w_briefdef_edit.TriggerEvent("retrieve_childdw")
END IF






end event