Q5/ws_objects/Cw_interface.pbl.src/w_subject.srw

$PBExportHeader$w_subject.srw
forward
global type w_subject from window
end type
type tab_1 from tab within w_subject
end type
type tabpage_2 from userobject within tab_1
end type
type st_10 from statictext within tabpage_2
end type
type tv_1 from uo_tv_cusarea within tabpage_2
end type
type dw_subid_cust from u_dw_rbtnfilter within tabpage_2
end type
type cb_save_subid_cust from commandbutton within tabpage_2
end type
type cb_retr_cust from commandbutton within tabpage_2
end type
type tabpage_2 from userobject within tab_1
st_10 st_10
tv_1 tv_1
dw_subid_cust dw_subid_cust
cb_save_subid_cust cb_save_subid_cust
cb_retr_cust cb_retr_cust
end type
type tabpage_3 from userobject within tab_1
end type
type st_9 from statictext within tabpage_3
end type
type dw_subid_spt from u_dw_rbtnfilter within tabpage_3
end type
type cb_cb_save_subid_spt from commandbutton within tabpage_3
end type
type cb_retr_spt from commandbutton within tabpage_3
end type
type tabpage_3 from userobject within tab_1
st_9 st_9
dw_subid_spt dw_subid_spt
cb_cb_save_subid_spt cb_cb_save_subid_spt
cb_retr_spt cb_retr_spt
end type
type tabpage_8 from userobject within tab_1
end type
type st_8 from statictext within tabpage_8
end type
type cb_8 from commandbutton within tabpage_8
end type
type cb_retr_expensesdef0 from commandbutton within tabpage_8
end type
type dw_expensesdef_sub0 from u_dw_rbtnfilter within tabpage_8
end type
type tabpage_8 from userobject within tab_1
st_8 st_8
cb_8 cb_8
cb_retr_expensesdef0 cb_retr_expensesdef0
dw_expensesdef_sub0 dw_expensesdef_sub0
end type
type tabpage_9 from userobject within tab_1
end type
type st_7 from statictext within tabpage_9
end type
type cb_11 from commandbutton within tabpage_9
end type
type cb_retr_expensesdef1 from commandbutton within tabpage_9
end type
type dw_expensesdef_sub1 from u_dw_rbtnfilter within tabpage_9
end type
type tabpage_9 from userobject within tab_1
st_7 st_7
cb_11 cb_11
cb_retr_expensesdef1 cb_retr_expensesdef1
dw_expensesdef_sub1 dw_expensesdef_sub1
end type
type tabpage_11 from userobject within tab_1
end type
type st_3 from statictext within tabpage_11
end type
type dw_subid_mtrltype from u_dw_rbtnfilter within tabpage_11
end type
type cb_17 from commandbutton within tabpage_11
end type
type cb_retr_mtrltype from commandbutton within tabpage_11
end type
type tabpage_11 from userobject within tab_1
st_3 st_3
dw_subid_mtrltype dw_subid_mtrltype
cb_17 cb_17
cb_retr_mtrltype cb_retr_mtrltype
end type
type tabpage_4 from userobject within tab_1
end type
type st_1 from statictext within tabpage_4
end type
type tv_2 from uo_tv_mtrltype within tabpage_4
end type
type dw_subid_mtrl from u_dw_rbtnfilter within tabpage_4
end type
type cb_cb_save_subid_mtrl from commandbutton within tabpage_4
end type
type cb_retr_mtrl from commandbutton within tabpage_4
end type
type tabpage_4 from userobject within tab_1
st_1 st_1
tv_2 tv_2
dw_subid_mtrl dw_subid_mtrl
cb_cb_save_subid_mtrl cb_cb_save_subid_mtrl
cb_retr_mtrl cb_retr_mtrl
end type
type tabpage_10 from userobject within tab_1
end type
type st_2 from statictext within tabpage_10
end type
type dw_subid_storage from u_dw_rbtnfilter within tabpage_10
end type
type cb_14 from commandbutton within tabpage_10
end type
type cb_retr_storage from commandbutton within tabpage_10
end type
type tabpage_10 from userobject within tab_1
st_2 st_2
dw_subid_storage dw_subid_storage
cb_14 cb_14
cb_retr_storage cb_retr_storage
end type
type tabpage_5 from userobject within tab_1
end type
type st_5 from statictext within tabpage_5
end type
type dw_subid_item from u_dw_rbtnfilter within tabpage_5
end type
type cb_cb_save_subid_item from commandbutton within tabpage_5
end type
type cb_retr_item from commandbutton within tabpage_5
end type
type tabpage_5 from userobject within tab_1
st_5 st_5
dw_subid_item dw_subid_item
cb_cb_save_subid_item cb_cb_save_subid_item
cb_retr_item cb_retr_item
end type
type tabpage_6 from userobject within tab_1
end type
type st_6 from statictext within tabpage_6
end type
type dw_subid_account from u_dw_rbtnfilter within tabpage_6
end type
type cb_cb_save_subid_account from commandbutton within tabpage_6
end type
type cb_retr_account from commandbutton within tabpage_6
end type
type tabpage_6 from userobject within tab_1
st_6 st_6
dw_subid_account dw_subid_account
cb_cb_save_subid_account cb_cb_save_subid_account
cb_retr_account cb_retr_account
end type
type tabpage_12 from userobject within tab_1
end type
type st_4 from statictext within tabpage_12
end type
type dw_subid_static from u_dw_rbtnfilter within tabpage_12
end type
type cb_19 from commandbutton within tabpage_12
end type
type cb_retr_static from commandbutton within tabpage_12
end type
type tabpage_12 from userobject within tab_1
st_4 st_4
dw_subid_static dw_subid_static
cb_19 cb_19
cb_retr_static cb_retr_static
end type
type tabpage_1 from userobject within tab_1
end type
type cb_subid_import from commandbutton within tabpage_1
end type
type cb_retr_subid from commandbutton within tabpage_1
end type
type dw_subid from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
cb_subid_import cb_subid_import
cb_retr_subid cb_retr_subid
dw_subid dw_subid
end type
type tabpage_7 from userobject within tab_1
end type
type dw_sc_accset from u_dw_rbtnfilter within tabpage_7
end type
type cb_7 from commandbutton within tabpage_7
end type
type cb_retr_scid from commandbutton within tabpage_7
end type
type tabpage_7 from userobject within tab_1
dw_sc_accset dw_sc_accset
cb_7 cb_7
cb_retr_scid cb_retr_scid
end type
type tab_1 from tab within w_subject
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_8 tabpage_8
tabpage_9 tabpage_9
tabpage_11 tabpage_11
tabpage_4 tabpage_4
tabpage_10 tabpage_10
tabpage_5 tabpage_5
tabpage_6 tabpage_6
tabpage_12 tabpage_12
tabpage_1 tabpage_1
tabpage_7 tabpage_7
end type
end forward

global type w_subject from window
integer width = 4571
integer height = 2380
boolean titlebar = true
string title = "基础资料设置会计科目"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
windowtype windowtype = popup!
windowstate windowstate = maximized!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
tab_1 tab_1
end type
global w_subject w_subject

type variables
String ls_areaname = ''
String ls_handtype = ''
end variables

forward prototypes
public subroutine wf_retr ()
end prototypes

public subroutine wf_retr ();CHOOSE CASE tab_1.SelectedTab
	CASE 1
		tab_1.tabpage_2.cb_retr_cust.TriggerEvent(Clicked!)		
	CASE 2
		tab_1.tabpage_3.cb_retr_spt.TriggerEvent(Clicked!)
	CASE 3
		tab_1.tabpage_8.cb_retr_expensesdef0.TriggerEvent(Clicked!)
	CASE 4
		tab_1.tabpage_9.cb_retr_expensesdef1.TriggerEvent(Clicked!)		
	CASE 5
		tab_1.tabpage_11.cb_retr_mtrltype.TriggerEvent(Clicked!)		
	CASE 6
		tab_1.tabpage_4.cb_retr_mtrl.TriggerEvent(Clicked!)
	CASE 7
		tab_1.tabpage_10.cb_retr_storage.TriggerEvent(Clicked!)
	CASE 8
		tab_1.tabpage_5.cb_retr_item.TriggerEvent(Clicked!)
	CASE 9
		tab_1.tabpage_6.cb_retr_account.TriggerEvent(Clicked!)
	CASE 10
		tab_1.tabpage_12.cb_retr_static.TriggerEvent(Clicked!)
	CASE 11
		tab_1.tabpage_7.cb_retr_scid.TriggerEvent(Clicked!)
	CASE 12
		tab_1.tabpage_1.cb_retr_subid.TriggerEvent(Clicked!)
END CHOOSE








end subroutine

on w_subject.create
this.tab_1=create tab_1
this.Control[]={this.tab_1}
end on

on w_subject.destroy
destroy(this.tab_1)
end on

event resize;tab_1.Width = THIS.Width - tab_1.X - 40
tab_1.Height = THIS.Height - tab_1.Y - 150

long ll_dft_height = 1948 - 30

tab_1.tabpage_1.dw_subid.width = this.width - (3600 - 3506)
tab_1.tabpage_1.dw_subid.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_2.dw_subid_cust.width = this.width - (3600 - 2624)
tab_1.tabpage_2.dw_subid_cust.height = this.height - (2300 - ll_dft_height)
tab_1.tabpage_2.tv_1.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_3.dw_subid_spt.width = this.width - (3600 - 3506)
tab_1.tabpage_3.dw_subid_spt.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_4.dw_subid_mtrl.width = this.width - (3600 - 2624)
tab_1.tabpage_4.dw_subid_mtrl.height = this.height - (2300 - ll_dft_height)
tab_1.tabpage_4.tv_2.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_5.dw_subid_item.width = this.width - (3600 - 3506)
tab_1.tabpage_5.dw_subid_item.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_6.dw_subid_account.width = this.width - (3600 - 3506)
tab_1.tabpage_6.dw_subid_account.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_7.dw_sc_accset.width = this.width - (3600 - 3506)
tab_1.tabpage_7.dw_sc_accset.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_8.dw_expensesdef_sub0.width = this.width - (3600 - 3506)
tab_1.tabpage_8.dw_expensesdef_sub0.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_9.dw_expensesdef_sub1.width = this.width - (3600 - 3506)
tab_1.tabpage_9.dw_expensesdef_sub1.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_10.dw_subid_storage.width = this.width - (3600 - 3506)
tab_1.tabpage_10.dw_subid_storage.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_11.dw_subid_mtrltype.width = this.width - (3600 - 3506)
tab_1.tabpage_11.dw_subid_mtrltype.height = this.height - (2300 - ll_dft_height)

tab_1.tabpage_12.dw_subid_static.width = this.width - (3600 - 3506)
tab_1.tabpage_12.dw_subid_static.height = this.height - (2300 - ll_dft_height)







end event

event open;tab_1.tabpage_1.dw_subid.SetTransObject(sqlca)
tab_1.tabpage_2.dw_subid_cust.SetTransObject(sqlca)
tab_1.tabpage_3.dw_subid_spt.SetTransObject(sqlca)
tab_1.tabpage_4.dw_subid_mtrl.SetTransObject(sqlca)
tab_1.tabpage_5.dw_subid_item.SetTransObject(sqlca)
tab_1.tabpage_6.dw_subid_account.SetTransObject(sqlca)
tab_1.tabpage_7.dw_sc_accset.SetTransObject(sqlca)
tab_1.tabpage_8.dw_expensesdef_sub0.SetTransObject(sqlca)
tab_1.tabpage_9.dw_expensesdef_sub1.SetTransObject(sqlca) 
tab_1.tabpage_10.dw_subid_storage.SetTransObject(sqlca)
tab_1.tabpage_11.dw_subid_mtrltype.SetTransObject(sqlca)
tab_1.tabpage_12.dw_subid_static.SetTransObject(sqlca)



wf_retr() 



end event

type tab_1 from tab within w_subject
integer y = 4
integer width = 4539
integer height = 2168
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 67108864
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_8 tabpage_8
tabpage_9 tabpage_9
tabpage_11 tabpage_11
tabpage_4 tabpage_4
tabpage_10 tabpage_10
tabpage_5 tabpage_5
tabpage_6 tabpage_6
tabpage_12 tabpage_12
tabpage_1 tabpage_1
tabpage_7 tabpage_7
end type

on tab_1.create
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.tabpage_8=create tabpage_8
this.tabpage_9=create tabpage_9
this.tabpage_11=create tabpage_11
this.tabpage_4=create tabpage_4
this.tabpage_10=create tabpage_10
this.tabpage_5=create tabpage_5
this.tabpage_6=create tabpage_6
this.tabpage_12=create tabpage_12
this.tabpage_1=create tabpage_1
this.tabpage_7=create tabpage_7
this.Control[]={this.tabpage_2,&
this.tabpage_3,&
this.tabpage_8,&
this.tabpage_9,&
this.tabpage_11,&
this.tabpage_4,&
this.tabpage_10,&
this.tabpage_5,&
this.tabpage_6,&
this.tabpage_12,&
this.tabpage_1,&
this.tabpage_7}
end on

on tab_1.destroy
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_8)
destroy(this.tabpage_9)
destroy(this.tabpage_11)
destroy(this.tabpage_4)
destroy(this.tabpage_10)
destroy(this.tabpage_5)
destroy(this.tabpage_6)
destroy(this.tabpage_12)
destroy(this.tabpage_1)
destroy(this.tabpage_7)
end on

event selectionchanged;wf_retr()
end event

type tabpage_2 from userobject within tab_1
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "客户"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_10 st_10
tv_1 tv_1
dw_subid_cust dw_subid_cust
cb_save_subid_cust cb_save_subid_cust
cb_retr_cust cb_retr_cust
end type

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_cust.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_cust.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_cust.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_cust.setredraw(false)
FOR i = 2 TO dw_subid_cust.RowCount()
	dw_subid_cust.setitem(i,arg_col,value_str)
NEXT
dw_subid_cust.setredraw(true)
end event

on tabpage_2.create
this.st_10=create st_10
this.tv_1=create tv_1
this.dw_subid_cust=create dw_subid_cust
this.cb_save_subid_cust=create cb_save_subid_cust
this.cb_retr_cust=create cb_retr_cust
this.Control[]={this.st_10,&
this.tv_1,&
this.dw_subid_cust,&
this.cb_save_subid_cust,&
this.cb_retr_cust}
end on

on tabpage_2.destroy
destroy(this.st_10)
destroy(this.tv_1)
destroy(this.dw_subid_cust)
destroy(this.cb_save_subid_cust)
destroy(this.cb_retr_cust)
end on

type st_10 from statictext within tabpage_2
integer x = 425
integer y = 24
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type tv_1 from uo_tv_cusarea within tabpage_2
integer y = 112
integer width = 878
integer height = 1948
integer taborder = 30
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;ls_areaname = THIS.uo_cur_info.areaname
ls_areaname = ls_areaname + '%'
dw_subid_cust.Retrieve(ls_areaname)


end event

type dw_subid_cust from u_dw_rbtnfilter within tabpage_2
integer x = 882
integer y = 112
integer width = 2624
integer height = 1948
integer taborder = 30
string dataobject = "dw_subid_cust"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;If Lower(Left(dwo.Type,4)) = 'text'  Then
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.text
	
	IF POS(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	End IF
	
End If
end event

type cb_save_subid_cust from commandbutton within tabpage_2
integer x = 210
integer y = 12
integer width = 206
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_cust.AcceptText()

FOR i = 1 TO dw_subid_cust.RowCount()
	dw_subid_cust.Object.subid[i] = Trim(dw_subid_cust.Object.subid[i])
NEXT

dw_subid_cust.AcceptText()

IF dw_subid_cust.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF



end event

type cb_retr_cust from commandbutton within tabpage_2
integer y = 12
integer width = 206
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;tv_1.f_maketree() 
tv_1.TriggerEvent(SelectionChanged!)


end event

type tabpage_3 from userobject within tab_1
event create ( )
event destroy ( )
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "供应商"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_9 st_9
dw_subid_spt dw_subid_spt
cb_cb_save_subid_spt cb_cb_save_subid_spt
cb_retr_spt cb_retr_spt
end type

on tabpage_3.create
this.st_9=create st_9
this.dw_subid_spt=create dw_subid_spt
this.cb_cb_save_subid_spt=create cb_cb_save_subid_spt
this.cb_retr_spt=create cb_retr_spt
this.Control[]={this.st_9,&
this.dw_subid_spt,&
this.cb_cb_save_subid_spt,&
this.cb_retr_spt}
end on

on tabpage_3.destroy
destroy(this.st_9)
destroy(this.dw_subid_spt)
destroy(this.cb_cb_save_subid_spt)
destroy(this.cb_retr_spt)
end on

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_spt.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_spt.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_spt.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_spt.setredraw(false)
FOR i = 2 TO dw_subid_spt.RowCount()
	dw_subid_spt.setitem(i,arg_col,value_str)
NEXT
dw_subid_spt.setredraw(true)
end event

type st_9 from statictext within tabpage_3
integer x = 425
integer y = 24
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type dw_subid_spt from u_dw_rbtnfilter within tabpage_3
integer y = 112
integer width = 3506
integer height = 1948
integer taborder = 30
string dataobject = "dw_subid_spt"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;If Lower(Left(dwo.Type,4)) = 'text'  Then
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.text
	
	IF POS(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	End IF
	
End If
end event

type cb_cb_save_subid_spt from commandbutton within tabpage_3
integer x = 210
integer y = 12
integer width = 206
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_spt.AcceptText()

FOR i = 1 TO dw_subid_spt.RowCount()
	dw_subid_spt.Object.subid[i] = Trim(dw_subid_spt.Object.subid[i])
NEXT

dw_subid_spt.AcceptText()

IF dw_subid_spt.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF

end event

type cb_retr_spt from commandbutton within tabpage_3
integer y = 12
integer width = 206
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_subid_spt.Retrieve()


end event

type tabpage_8 from userobject within tab_1
event create ( )
event destroy ( )
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "客户费用单费用项目"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_8 st_8
cb_8 cb_8
cb_retr_expensesdef0 cb_retr_expensesdef0
dw_expensesdef_sub0 dw_expensesdef_sub0
end type

on tabpage_8.create
this.st_8=create st_8
this.cb_8=create cb_8
this.cb_retr_expensesdef0=create cb_retr_expensesdef0
this.dw_expensesdef_sub0=create dw_expensesdef_sub0
this.Control[]={this.st_8,&
this.cb_8,&
this.cb_retr_expensesdef0,&
this.dw_expensesdef_sub0}
end on

on tabpage_8.destroy
destroy(this.st_8)
destroy(this.cb_8)
destroy(this.cb_retr_expensesdef0)
destroy(this.dw_expensesdef_sub0)
end on

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_expensesdef_sub0.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_expensesdef_sub0.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_expensesdef_sub0.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_expensesdef_sub0.setredraw(false)
FOR i = 2 TO dw_expensesdef_sub0.RowCount()
	dw_expensesdef_sub0.setitem(i,arg_col,value_str)
NEXT
dw_expensesdef_sub0.setredraw(true)
end event

type st_8 from statictext within tabpage_8
integer x = 425
integer y = 24
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type cb_8 from commandbutton within tabpage_8
integer x = 210
integer y = 8
integer width = 206
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_expensesdef_sub0.AcceptText()

IF dw_expensesdef_sub0.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF


end event

type cb_retr_expensesdef0 from commandbutton within tabpage_8
integer y = 8
integer width = 206
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_expensesdef_sub0.Retrieve()


end event

type dw_expensesdef_sub0 from u_dw_rbtnfilter within tabpage_8
integer y = 104
integer width = 3506
integer height = 1948
integer taborder = 40
string dataobject = "dw_expensesdef_sub0"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;If Lower(Left(dwo.Type,4)) = 'text'  Then
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.text
	
	IF POS(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	End IF
	
End If
end event

type tabpage_9 from userobject within tab_1
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "供应商费用单费用项目"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_7 st_7
cb_11 cb_11
cb_retr_expensesdef1 cb_retr_expensesdef1
dw_expensesdef_sub1 dw_expensesdef_sub1
end type

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_expensesdef_sub1.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_expensesdef_sub1.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_expensesdef_sub1.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_expensesdef_sub1.setredraw(false)
FOR i = 2 TO dw_expensesdef_sub1.RowCount()
	dw_expensesdef_sub1.setitem(i,arg_col,value_str)
NEXT
dw_expensesdef_sub1.setredraw(true)
end event

on tabpage_9.create
this.st_7=create st_7
this.cb_11=create cb_11
this.cb_retr_expensesdef1=create cb_retr_expensesdef1
this.dw_expensesdef_sub1=create dw_expensesdef_sub1
this.Control[]={this.st_7,&
this.cb_11,&
this.cb_retr_expensesdef1,&
this.dw_expensesdef_sub1}
end on

on tabpage_9.destroy
destroy(this.st_7)
destroy(this.cb_11)
destroy(this.cb_retr_expensesdef1)
destroy(this.dw_expensesdef_sub1)
end on

type st_7 from statictext within tabpage_9
integer x = 425
integer y = 24
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type cb_11 from commandbutton within tabpage_9
integer x = 210
integer y = 8
integer width = 206
integer height = 84
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_expensesdef_sub1.AcceptText()

IF dw_expensesdef_sub1.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF


end event

type cb_retr_expensesdef1 from commandbutton within tabpage_9
integer y = 8
integer width = 206
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_expensesdef_sub1.Retrieve()


end event

type dw_expensesdef_sub1 from u_dw_rbtnfilter within tabpage_9
integer y = 100
integer width = 3506
integer height = 1948
integer taborder = 50
string dataobject = "dw_expensesdef_sub1"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;If Lower(Left(dwo.Type,4)) = 'text'  Then
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.text
	
	IF POS(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	End IF
	
End If
end event

type tabpage_11 from userobject within tab_1
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "物料类别"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_3 st_3
dw_subid_mtrltype dw_subid_mtrltype
cb_17 cb_17
cb_retr_mtrltype cb_retr_mtrltype
end type

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_mtrltype.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_mtrltype.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_mtrltype.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_mtrltype.setredraw(false)
FOR i = 2 TO dw_subid_mtrltype.RowCount()
	dw_subid_mtrltype.setitem(i,arg_col,value_str)
NEXT
dw_subid_mtrltype.setredraw(true)
end event

on tabpage_11.create
this.st_3=create st_3
this.dw_subid_mtrltype=create dw_subid_mtrltype
this.cb_17=create cb_17
this.cb_retr_mtrltype=create cb_retr_mtrltype
this.Control[]={this.st_3,&
this.dw_subid_mtrltype,&
this.cb_17,&
this.cb_retr_mtrltype}
end on

on tabpage_11.destroy
destroy(this.st_3)
destroy(this.dw_subid_mtrltype)
destroy(this.cb_17)
destroy(this.cb_retr_mtrltype)
end on

type st_3 from statictext within tabpage_11
integer x = 425
integer y = 16
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type dw_subid_mtrltype from u_dw_rbtnfilter within tabpage_11
integer y = 92
integer width = 3506
integer height = 1948
integer taborder = 70
string dataobject = "dw_subid_mtrltype"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;If Lower(Left(dwo.Type,4)) = 'text'  Then
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.text
	
	IF POS(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	End IF
	
End If
end event

type cb_17 from commandbutton within tabpage_11
integer x = 210
integer width = 206
integer height = 84
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_mtrltype.AcceptText()

IF dw_subid_mtrltype.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF


end event

type cb_retr_mtrltype from commandbutton within tabpage_11
integer width = 206
integer height = 84
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_subid_mtrltype.Retrieve()


end event

type tabpage_4 from userobject within tab_1
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "物料"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_1 st_1
tv_2 tv_2
dw_subid_mtrl dw_subid_mtrl
cb_cb_save_subid_mtrl cb_cb_save_subid_mtrl
cb_retr_mtrl cb_retr_mtrl
end type

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_mtrl.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_mtrl.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_mtrl.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_mtrl.setredraw(false)
FOR i = 2 TO dw_subid_mtrl.RowCount()
	dw_subid_mtrl.setitem(i,arg_col,value_str)
NEXT
dw_subid_mtrl.setredraw(true)
end event

on tabpage_4.create
this.st_1=create st_1
this.tv_2=create tv_2
this.dw_subid_mtrl=create dw_subid_mtrl
this.cb_cb_save_subid_mtrl=create cb_cb_save_subid_mtrl
this.cb_retr_mtrl=create cb_retr_mtrl
this.Control[]={this.st_1,&
this.tv_2,&
this.dw_subid_mtrl,&
this.cb_cb_save_subid_mtrl,&
this.cb_retr_mtrl}
end on

on tabpage_4.destroy
destroy(this.st_1)
destroy(this.tv_2)
destroy(this.dw_subid_mtrl)
destroy(this.cb_cb_save_subid_mtrl)
destroy(this.cb_retr_mtrl)
end on

type st_1 from statictext within tabpage_4
integer x = 425
integer y = 28
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type tv_2 from uo_tv_mtrltype within tabpage_4
integer y = 112
integer width = 878
integer height = 1948
integer taborder = 30
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;ls_handtype = THIS.uo_cur_info.handtype
ls_handtype = ls_handtype + '%'
dw_subid_mtrl.Retrieve(ls_handtype)

end event

type dw_subid_mtrl from u_dw_rbtnfilter within tabpage_4
integer x = 882
integer y = 112
integer width = 2624
integer height = 1948
integer taborder = 30
string dataobject = "dw_subid_mtrl"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;call super::doubleclicked;If Lower(Left(dwo.Type,4)) = 'text'  Then
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.text
	
	IF POS(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	End IF
	
End If





end event

type cb_cb_save_subid_mtrl from commandbutton within tabpage_4
integer x = 210
integer y = 12
integer width = 206
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_mtrl.AcceptText()

FOR i = 1 TO dw_subid_mtrl.RowCount()
	dw_subid_mtrl.Object.subid[i] = Trim(dw_subid_mtrl.Object.subid[i])
NEXT

dw_subid_mtrl.AcceptText()

IF dw_subid_mtrl.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF

end event

type cb_retr_mtrl from commandbutton within tabpage_4
integer y = 12
integer width = 206
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;tv_2.f_maketree(-1)
tv_2.TriggerEvent(SelectionChanged!)


end event

type tabpage_10 from userobject within tab_1
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "仓库"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_2 st_2
dw_subid_storage dw_subid_storage
cb_14 cb_14
cb_retr_storage cb_retr_storage
end type

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_storage.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_storage.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_storage.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_storage.setredraw(false)
FOR i = 2 TO dw_subid_storage.RowCount()
	dw_subid_storage.setitem(i,arg_col,value_str)
NEXT
dw_subid_storage.setredraw(true)
end event

on tabpage_10.create
this.st_2=create st_2
this.dw_subid_storage=create dw_subid_storage
this.cb_14=create cb_14
this.cb_retr_storage=create cb_retr_storage
this.Control[]={this.st_2,&
this.dw_subid_storage,&
this.cb_14,&
this.cb_retr_storage}
end on

on tabpage_10.destroy
destroy(this.st_2)
destroy(this.dw_subid_storage)
destroy(this.cb_14)
destroy(this.cb_retr_storage)
end on

type st_2 from statictext within tabpage_10
integer x = 425
integer y = 16
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type dw_subid_storage from u_dw_rbtnfilter within tabpage_10
integer y = 92
integer width = 3506
integer height = 1948
integer taborder = 60
string dataobject = "dw_subid_storage"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;If Lower(Left(dwo.Type,4)) = 'text'  Then
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.text
	
	IF POS(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	End IF
	
End If

end event

type cb_14 from commandbutton within tabpage_10
integer x = 210
integer width = 206
integer height = 84
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_storage.AcceptText()

IF dw_subid_storage.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF


end event

type cb_retr_storage from commandbutton within tabpage_10
integer width = 206
integer height = 84
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_subid_storage.Retrieve()


end event

type tabpage_5 from userobject within tab_1
event create ( )
event destroy ( )
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "费用项目"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_5 st_5
dw_subid_item dw_subid_item
cb_cb_save_subid_item cb_cb_save_subid_item
cb_retr_item cb_retr_item
end type

on tabpage_5.create
this.st_5=create st_5
this.dw_subid_item=create dw_subid_item
this.cb_cb_save_subid_item=create cb_cb_save_subid_item
this.cb_retr_item=create cb_retr_item
this.Control[]={this.st_5,&
this.dw_subid_item,&
this.cb_cb_save_subid_item,&
this.cb_retr_item}
end on

on tabpage_5.destroy
destroy(this.st_5)
destroy(this.dw_subid_item)
destroy(this.cb_cb_save_subid_item)
destroy(this.cb_retr_item)
end on

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_item.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_item.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_item.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_item.setredraw(false)
FOR i = 2 TO dw_subid_item.RowCount()
	dw_subid_item.setitem(i,arg_col,value_str)
NEXT
dw_subid_item.setredraw(true)
end event

type st_5 from statictext within tabpage_5
integer x = 425
integer y = 28
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type dw_subid_item from u_dw_rbtnfilter within tabpage_5
integer y = 112
integer width = 3506
integer height = 1948
integer taborder = 30
string dataobject = "dw_subid_item"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;IF Lower(Left(dwo.Type,4)) = 'text'  THEN
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.Text
	
	IF Pos(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	END IF	
END IF


end event

type cb_cb_save_subid_item from commandbutton within tabpage_5
integer x = 210
integer y = 12
integer width = 206
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_item.AcceptText()

FOR i = 1 TO dw_subid_item.RowCount()
	dw_subid_item.Object.subid[i] = Trim(dw_subid_item.Object.subid[i])
NEXT

dw_subid_item.AcceptText()

IF dw_subid_item.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF



end event

type cb_retr_item from commandbutton within tabpage_5
integer y = 12
integer width = 206
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_subid_item.Retrieve()


end event

type tabpage_6 from userobject within tab_1
event create ( )
event destroy ( )
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "出纳帐号"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_6 st_6
dw_subid_account dw_subid_account
cb_cb_save_subid_account cb_cb_save_subid_account
cb_retr_account cb_retr_account
end type

on tabpage_6.create
this.st_6=create st_6
this.dw_subid_account=create dw_subid_account
this.cb_cb_save_subid_account=create cb_cb_save_subid_account
this.cb_retr_account=create cb_retr_account
this.Control[]={this.st_6,&
this.dw_subid_account,&
this.cb_cb_save_subid_account,&
this.cb_retr_account}
end on

on tabpage_6.destroy
destroy(this.st_6)
destroy(this.dw_subid_account)
destroy(this.cb_cb_save_subid_account)
destroy(this.cb_retr_account)
end on

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_account.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_account.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_account.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_account.setredraw(false)
FOR i = 2 TO dw_subid_account.RowCount()
	dw_subid_account.setitem(i,arg_col,value_str)
NEXT
dw_subid_account.setredraw(true)
end event

type st_6 from statictext within tabpage_6
integer x = 425
integer y = 28
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type dw_subid_account from u_dw_rbtnfilter within tabpage_6
integer y = 112
integer width = 3506
integer height = 1948
integer taborder = 30
string dataobject = "dw_subid_account"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;//IF Lower(Left(dwo.Type,4)) = 'text'  THEN
//	s_inputbox S_SREU
//	String LS_STR,column_name,coltext
//	
//	column_name = dwo.Name
//	column_name = Left(column_name,Len(column_name) - 2)
//	coltext = dwo.Text
//	
//	IF Pos(column_name,'subid') > 0 THEN
//		Parent.Event ue_p_subid(column_name,coltext)
//	END IF	
//END IF
//
end event

type cb_cb_save_subid_account from commandbutton within tabpage_6
integer x = 210
integer y = 12
integer width = 206
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_account.AcceptText()

FOR i = 1 TO dw_subid_account.RowCount()
	dw_subid_account.Object.subid[i] = Trim(dw_subid_account.Object.subid[i])
NEXT

dw_subid_account.AcceptText()

IF dw_subid_account.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF


end event

type cb_retr_account from commandbutton within tabpage_6
integer y = 12
integer width = 206
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_subid_account.Retrieve()


end event

type tabpage_12 from userobject within tab_1
event ue_p_subid ( string arg_col,  string arg_coltext )
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "其它进出原因"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_4 st_4
dw_subid_static dw_subid_static
cb_19 cb_19
cb_retr_static cb_retr_static
end type

event ue_p_subid(string arg_col, string arg_coltext);Long i
String value_str
dw_subid_static.AcceptText()

IF MessageBox(publ_operator,'是否要确定要批设置 '+arg_coltext, Exclamation!, YesNo!, 2) = 2 THEN
	RETURN
END IF

IF dw_subid_static.RowCount() = 0 THEN
	MessageBox('提示','没有可设置的资料',information!,OK!)
	RETURN
END IF

value_str = dw_subid_static.GetitemString(1,arg_col)

IF Trim(value_str) = '' THEN
	MessageBox('提示','第一行资料为空',information!,OK!)
	RETURN
END IF

dw_subid_static.setredraw(false)
FOR i = 2 TO dw_subid_static.RowCount()
	dw_subid_static.setitem(i,arg_col,value_str)
NEXT
dw_subid_static.setredraw(true)
end event

on tabpage_12.create
this.st_4=create st_4
this.dw_subid_static=create dw_subid_static
this.cb_19=create cb_19
this.cb_retr_static=create cb_retr_static
this.Control[]={this.st_4,&
this.dw_subid_static,&
this.cb_19,&
this.cb_retr_static}
end on

on tabpage_12.destroy
destroy(this.st_4)
destroy(this.dw_subid_static)
destroy(this.cb_19)
destroy(this.cb_retr_static)
end on

type st_4 from statictext within tabpage_12
integer x = 425
integer y = 16
integer width = 1138
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "双击列标题按第1行科目批设置所有行会计科目"
boolean focusrectangle = false
end type

type dw_subid_static from u_dw_rbtnfilter within tabpage_12
integer y = 92
integer width = 3506
integer height = 1948
integer taborder = 80
string dataobject = "dw_subid_static"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

event doubleclicked;IF Lower(Left(dwo.Type,4)) = 'text'  THEN
	s_inputbox S_SREU
	String LS_STR,column_name,coltext
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	coltext = dwo.Text
	
	IF Pos(column_name,'subid') > 0 THEN
		Parent.Event ue_p_subid(column_name,coltext)
	END IF	
END IF

end event

type cb_19 from commandbutton within tabpage_12
integer x = 210
integer width = 206
integer height = 84
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_subid_static.AcceptText()

IF dw_subid_static.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF


end event

type cb_retr_static from commandbutton within tabpage_12
integer width = 206
integer height = 84
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_subid_static.Retrieve()


end event

type tabpage_1 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "会计科目"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
cb_subid_import cb_subid_import
cb_retr_subid cb_retr_subid
dw_subid dw_subid
end type

on tabpage_1.create
this.cb_subid_import=create cb_subid_import
this.cb_retr_subid=create cb_retr_subid
this.dw_subid=create dw_subid
this.Control[]={this.cb_subid_import,&
this.cb_retr_subid,&
this.dw_subid}
end on

on tabpage_1.destroy
destroy(this.cb_subid_import)
destroy(this.cb_retr_subid)
destroy(this.dw_subid)
end on

type cb_subid_import from commandbutton within tabpage_1
integer x = 210
integer y = 12
integer width = 306
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "导入科目"
end type

event clicked;OPEN(w_subject_import)

datawindowchild childdw_cust
datawindowchild childdw_spt
datawindowchild childdw_mtrl
datawindowchild childdw_item
datawindowchild childdw_account

tab_1.tabpage_2.dw_subid_cust.GetChild("subid",childdw_cust)
childdw_cust.SetTransObject(sqlca)
childdw_cust.Retrieve()
IF childdw_cust.RowCount() <= 0 THEN
	childdw_cust.InsertRow(0)
END IF

tab_1.tabpage_3.dw_subid_spt.GetChild("subid",childdw_spt)
childdw_spt.SetTransObject(sqlca)
childdw_spt.Retrieve()
IF childdw_spt.RowCount() <= 0 THEN
	childdw_spt.InsertRow(0)
END IF

tab_1.tabpage_4.dw_subid_mtrl.GetChild("subid",childdw_mtrl)
childdw_mtrl.SetTransObject(sqlca)
childdw_mtrl.Retrieve()
IF childdw_mtrl.RowCount() <= 0 THEN
	childdw_mtrl.InsertRow(0)
END IF

tab_1.tabpage_5.dw_subid_item.GetChild("subid",childdw_item)
childdw_item.SetTransObject(sqlca)
childdw_item.Retrieve()
IF childdw_item.RowCount() <= 0 THEN
	childdw_item.InsertRow(0)
END IF

tab_1.tabpage_6.dw_subid_account.GetChild("subid",childdw_account)
childdw_account.SetTransObject(sqlca)
childdw_account.Retrieve()
IF childdw_account.RowCount() <= 0 THEN
	childdw_account.InsertRow(0)
END IF

cb_retr_subid.TriggerEvent(Clicked!)

end event

type cb_retr_subid from commandbutton within tabpage_1
integer y = 12
integer width = 206
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_subid.Retrieve()


end event

type dw_subid from u_dw_rbtnfilter within tabpage_1
integer y = 112
integer width = 3506
integer height = 1948
integer taborder = 20
string dataobject = "dw_subject"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_7 from userobject within tab_1
event create ( )
event destroy ( )
boolean visible = false
integer x = 18
integer y = 96
integer width = 4503
integer height = 2056
long backcolor = 67108864
string text = "事业部"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
dw_sc_accset dw_sc_accset
cb_7 cb_7
cb_retr_scid cb_retr_scid
end type

on tabpage_7.create
this.dw_sc_accset=create dw_sc_accset
this.cb_7=create cb_7
this.cb_retr_scid=create cb_retr_scid
this.Control[]={this.dw_sc_accset,&
this.cb_7,&
this.cb_retr_scid}
end on

on tabpage_7.destroy
destroy(this.dw_sc_accset)
destroy(this.cb_7)
destroy(this.cb_retr_scid)
end on

type dw_sc_accset from u_dw_rbtnfilter within tabpage_7
integer y = 112
integer width = 3506
integer height = 1948
integer taborder = 30
string dataobject = "dw_sc_accset"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

type cb_7 from commandbutton within tabpage_7
integer x = 210
integer y = 12
integer width = 206
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long i

dw_sc_accset.AcceptText()

IF dw_sc_accset.UPDATE() = -1 THEN
	ROLLBACK;
	MessageBox ("错误","保存操作失败!",stopsign!,ok!)
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存操作成功',information!,OK!)
	RETURN
END IF


end event

type cb_retr_scid from commandbutton within tabpage_7
integer y = 12
integer width = 206
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;dw_sc_accset.Retrieve()


end event