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

$PBExportHeader$w_subjectdef_edit_input.srw
forward
global type w_subjectdef_edit_input from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_subjectdef_edit_input
end type
type dw_1 from datawindow within w_subjectdef_edit_input
end type
end forward

global type w_subjectdef_edit_input from w_publ_base
integer width = 2153
integer height = 1504
string title = "会计科目编辑"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 80269524
cb_1 cb_1
dw_1 dw_1
end type
global w_subjectdef_edit_input w_subjectdef_edit_input

type variables
s_sub_edit s_edit,s_rst_subid
uo_subject uo_sub
end variables

on w_subjectdef_edit_input.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.dw_1=create dw_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.dw_1
end on

on w_subjectdef_edit_input.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;call super::open;Long li_row
String arg_msg
uo_sub = CREATE uo_subject
dw_1.SetTransObject(sqlca)
s_edit = Message.PowerObjectParm

IF s_edit.openparm = 2 THEN
	li_row = dw_1.InsertRow(0)
	dw_1.Object.editflag[li_row] = s_edit.editflag
	dw_1.Object.subflag[li_row] = s_edit.subflag
	dw_1.Object.dcflag[li_row] = s_edit.dcflag
	dw_1.Object.subid[li_row] = s_edit.subid
	uo_sub.uof_update_status(2)
ELSEIF s_edit.openparm = 1 THEN
	li_row = dw_1.InsertRow(0)
	dw_1.Object.editflag[li_row] = s_edit.editflag
	dw_1.Object.subflag[li_row] = s_edit.subflag
	dw_1.Object.dcflag[li_row] = s_edit.dcflag
	dw_1.Object.subid[li_row] = s_edit.subid
	dw_1.Object.subsubid[li_row] = s_edit.subsubid
	uo_sub.uof_update_status(1)
ELSEIF s_edit.openparm = 3 THEN
	dw_1.Retrieve(sys_accsetid,s_edit.subid)
	dw_1.Object.editflag[1] = s_edit.editflag
	dw_1.Object.subflag[1] = s_edit.subflag
	dw_1.SetTabOrder('subid',0)
	uo_sub.update_begin(s_edit.subid,arg_msg)
END IF

IF sys_system_mode = -1 THEN
	dw_1.SetTabOrder('hsspt',0)
	dw_1.SetTabOrder('hscust',0)
END IF


dw_1.SetFocus()
dw_1.SetColumn('name')






end event

event close;DESTROY uo_sub
CloseWithReturn(THIS,s_rst_subid)

end event

type cb_func from w_publ_base`cb_func within w_subjectdef_edit_input
boolean visible = false
integer x = 878
integer y = 348
boolean enabled = false
end type

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

event cb_exit::clicked;s_rst_subid.subid = ''
close(parent)
end event

type cb_1 from uo_imflatbutton within w_subjectdef_edit_input
integer x = 622
integer y = 1204
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
string text = "保存&S"
string normalpicname = "save.bmp"
end type

event clicked;Long li_row,ls_hand
String arg_msg = '',msg_str

dw_1.AcceptText()
li_row = dw_1.GetRow()

IF s_edit.openparm = 1 THEN
	uo_sub.subid = Trim(dw_1.Object.subid[li_row]) + Trim(dw_1.Object.subsubid[li_row])
ELSEIF s_edit.openparm = 2 OR s_edit.openparm = 3 THEN
	uo_sub.subid = Trim(dw_1.Object.subid[li_row])
END IF
uo_sub.Name = Trim(dw_1.Object.Name[li_row])

IF uo_sub.check_data(arg_msg) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

IF s_edit.openparm = 1 THEN
	IF uo_sub.check_firstsub(arg_msg) = 2 THEN
		MessageBox(publ_operator,arg_msg)
		RETURN
	ELSEIF uo_sub.check_firstsub(arg_msg) = 1 THEN
		IF uo_sub.check_suboperation(1,arg_msg) = 1 THEN
			msg_str = '科目已经有业务发生,如果在该科目下设明细科目,这样该科目发生的所有 ~n'
			msg_str = msg_str+'业务及币种、核算内容等属性都将转移到新增加的明细科目。~n ~n'
			msg_str = msg_str+'是否确认这种引起科目级别发生的修改? ~n'
			IF MessageBox(publ_operator,msg_str, Exclamation!, YesNo!, 2) = 2 THEN
				RETURN
			ELSE
				IF uo_sub.update_add_del(1,uo_sub.subid,arg_msg,FALSE) = 0 THEN
					MessageBox(publ_operator,arg_msg)
					RETURN
				END IF
			END IF
		END IF
	END IF
END IF

IF dw_1.Object.hswb[li_row] = 0 or dw_1.Object.hswb[li_row] = 2 THEN
	dw_1.Object.moneyid[li_row] = 0
END IF

uo_sub.dcflag = dw_1.Object.dcflag[li_row]
uo_sub.hswb = dw_1.Object.hswb[li_row]
uo_sub.moneyid = dw_1.Object.moneyid[li_row]
uo_sub.hsqty = dw_1.Object.hsqty[li_row]
uo_sub.unit = Trim(dw_1.Object.unit[li_row])
uo_sub.hsdept = dw_1.Object.hsdept[li_row]
uo_sub.hsemp = dw_1.Object.hsemp[li_row]
uo_sub.hsitem = dw_1.Object.hsitem[li_row]
uo_sub.hscust = dw_1.Object.hscust[li_row]
uo_sub.hsspt = dw_1.Object.hsspt[li_row]
uo_sub.hstrader = dw_1.Object.hstrader[li_row]

IF uo_sub.Save(arg_msg,TRUE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
ELSE
	s_rst_subid.subid = uo_sub.subid
	s_rst_subid.subname = uo_sub.Name
	Close(PARENT)
END IF







end event

type dw_1 from datawindow within w_subjectdef_edit_input
integer x = 105
integer y = 72
integer width = 1911
integer height = 1064
integer taborder = 30
boolean bringtotop = true
string dataobject = "dw_subaccset_edit"
boolean border = false
boolean livescroll = true
end type