$PBExportHeader$w_subjectdef_edit.srw forward global type w_subjectdef_edit from w_publ_base end type type tab_subject from tab within w_subjectdef_edit end type type tabpage_1 from userobject within tab_subject end type type tv_1 from treeview within tabpage_1 end type type tabpage_1 from userobject within tab_subject tv_1 tv_1 end type type tabpage_2 from userobject within tab_subject end type type tv_2 from treeview within tabpage_2 end type type tabpage_2 from userobject within tab_subject tv_2 tv_2 end type type tabpage_6 from userobject within tab_subject end type type tv_6 from treeview within tabpage_6 end type type tabpage_6 from userobject within tab_subject tv_6 tv_6 end type type tabpage_3 from userobject within tab_subject end type type tv_3 from treeview within tabpage_3 end type type tabpage_3 from userobject within tab_subject tv_3 tv_3 end type type tabpage_4 from userobject within tab_subject end type type tv_4 from treeview within tabpage_4 end type type tabpage_4 from userobject within tab_subject tv_4 tv_4 end type type tabpage_5 from userobject within tab_subject end type type tv_5 from treeview within tabpage_5 end type type tabpage_5 from userobject within tab_subject tv_5 tv_5 end type type tab_subject from tab within w_subjectdef_edit tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_6 tabpage_6 tabpage_3 tabpage_3 tabpage_4 tabpage_4 tabpage_5 tabpage_5 end type type cb_add from uo_imflatbutton within w_subjectdef_edit end type type cb_add_next from uo_imflatbutton within w_subjectdef_edit end type type cb_mod from uo_imflatbutton within w_subjectdef_edit end type type cb_del from uo_imflatbutton within w_subjectdef_edit end type type cb_print from uo_imflatbutton within w_subjectdef_edit end type type cb_refresh from uo_imflatbutton within w_subjectdef_edit end type type cb_ok from uo_imflatbutton within w_subjectdef_edit end type type cb_3 from uo_imflatbutton within w_subjectdef_edit end type type cb_6 from uo_imflatbutton within w_subjectdef_edit end type type cb_11 from uo_imflatbutton within w_subjectdef_edit end type type cb_tab from commandbutton within w_subjectdef_edit end type end forward global type w_subjectdef_edit from w_publ_base integer width = 2697 integer height = 1964 string title = "会计科目" boolean minbox = false windowtype windowtype = response! long backcolor = 81324524 tab_subject tab_subject cb_add cb_add cb_add_next cb_add_next cb_mod cb_mod cb_del cb_del cb_print cb_print cb_refresh cb_refresh cb_ok cb_ok cb_3 cb_3 cb_6 cb_6 cb_11 cb_11 cb_tab cb_tab end type global w_subjectdef_edit w_subjectdef_edit type variables Long il_hand treeviewitem itvi Long uo_deep Boolean ib_mod = FALSE treeview tv_1,tv_2,tv_3,tv_4,tv_5,tv_6 String ins_subidstr,ins_subidname uo_subject uo_sub Int dw_editfocus = 0 //1:新建下级,2:新建同级,3:修改 s_subject s_rt_subject Int if_check_ifmx = 0 //0:检查是否明细科目 s_subid_tree is_subtree_arr1[] s_subid_tree is_subtree_arr2[] s_subid_tree is_subtree_arr3[] s_subid_tree is_subtree_arr4[] s_subid_tree is_subtree_arr5[] s_subid_tree is_subtree_arr6[] Long il_p1,il_p2,il_p3,il_p4,il_p5,il_p6 end variables forward prototypes public function integer wf_dssubtree_retrieve () public function integer wf_maketree () public function integer pf_treegrowth (long arg_handl, string arg_subid) public function integer wf_tree1 () public function integer wf_tree2 () public function integer wf_tree3 () public function integer wf_tree4 () public function integer wf_tree5 () public function integer wf_tree6 () end prototypes public function integer wf_dssubtree_retrieve ();DESTROY ds_subjecttree f_init_ds_subjecttree() RETURN 1 end function public function integer wf_maketree ();il_p1 = 0 il_p2 = 0 il_p3 = 0 il_p4 = 0 il_p5 = 0 il_p6 = 0 CHOOSE CASE tab_subject.SelectedTab CASE 1 wf_tree1() CASE 2 wf_tree2() CASE 4 wf_tree3() CASE 5 wf_tree4() CASE 6 wf_tree5() CASE 3 wf_tree6() END CHOOSE RETURN 1 end function public function integer pf_treegrowth (long arg_handl, string arg_subid);String ls_subid,ls_subid_arr[] String ls_name,ls_name_arr[] Long ll_count = 0,ll_i Int li_detailflag,li_detailflag_arr[] String ls_subid_name Long li_handl TreeViewItem l_tvi treeview lt_tv Int len_1,len_2,len_3,len_4,len_5,len_6 Int arg_son_len,arg_parent_len len_1 = s_sys_accset.step1 len_2 = s_sys_accset.step1+s_sys_accset.step2 len_3 = s_sys_accset.step1+s_sys_accset.step2+s_sys_accset.step3 len_4 = s_sys_accset.step1+s_sys_accset.step2+s_sys_accset.step3+s_sys_accset.step4 len_5 = s_sys_accset.step1+s_sys_accset.step2+s_sys_accset.step3+s_sys_accset.step4+s_sys_accset.step5 len_6 = s_sys_accset.step1+s_sys_accset.step2+s_sys_accset.step3+s_sys_accset.step4+s_sys_accset.step5+s_sys_accset.step6 arg_parent_len = Len(Trim(arg_subid)) CHOOSE CASE arg_parent_len CASE 1 arg_son_len = len_1 CASE len_1 arg_son_len = len_2 CASE len_2 arg_son_len = len_3 CASE len_3 arg_son_len = len_4 CASE len_4 arg_son_len = len_5 CASE len_5 arg_son_len = len_6 CASE len_5 arg_son_len = len_6 + 1 END CHOOSE uo_deep++ IF uo_deep > 100000 THEN //防止死递归 RETURN 0 END IF //用ds取下级科目 String ls_filter ls_filter = "subid like '" + arg_subid + "%'" ds_subjecttree.SetFilter(ls_filter) ds_subjecttree.Filter() Long RowCount,ll_k ds_subjecttree.AcceptText() RowCount = ds_subjecttree.RowCount() IF RowCount = 0 THEN RETURN 0 FOR ll_k = 1 TO RowCount ls_subid = ds_subjecttree.Object.subid[ll_k] ls_name = ds_subjecttree.Object.Name[ll_k] li_detailflag = ds_subjecttree.Object.detailflag[ll_k] IF Len(Trim(ls_subid)) = arg_son_len AND Left(Trim(ls_subid),arg_parent_len ) = arg_subid THEN ll_count++ ls_subid_arr[ll_count] = ls_subid ls_name_arr[ll_count] = ls_name li_detailflag_arr[ll_count] = li_detailflag END IF NEXT // //用游标取下级科目 //DECLARE pf_cur CURSOR FOR // SELECT subid, // name, // detailflag // FROM cw_subject // WHERE ( accsetid = :sys_accsetid ) // And ( Len(ltrim(rtrim(subid))) = :arg_son_len ) // and ( left(ltrim(rtrim(subid)),:arg_parent_len ) = :arg_subid ); //OPEN pf_cur; // //FETCH pf_cur INTO :ls_subid,:ls_name,:li_detailflag; // //DO WHILE sqlca.SQLCode = 0 // ll_count++ // ls_subid_arr[ll_count] = ls_subid // ls_name_arr[ll_count] = ls_name // li_detailflag_arr[ll_count] = li_detailflag // FETCH pf_cur INTO :ls_subid,:ls_name,:li_detailflag; //LOOP // //CLOSE pf_cur; // FOR ll_i = 1 TO ll_count ls_subid_name = ls_subid_arr[ll_i] + ' ' + ls_name_arr[ll_i] CHOOSE CASE Left(arg_subid,1) CASE '1' lt_tv = tv_1 CASE '2' lt_tv = tv_2 CASE '3' IF s_sys_accset.ifnewsubid = 0 THEN lt_tv = tv_3 ELSE lt_tv = tv_6 END IF CASE '4' IF s_sys_accset.ifnewsubid = 0 THEN lt_tv = tv_4 ELSE lt_tv = tv_3 END IF CASE '5' IF s_sys_accset.ifnewsubid = 0 THEN lt_tv = tv_5 ELSE lt_tv = tv_4 END IF CASE '6' IF s_sys_accset.ifnewsubid = 0 THEN lt_tv = tv_6 ELSE lt_tv = tv_5 END IF END CHOOSE li_handl = lt_tv.InsertItemSort(arg_handl,ls_subid_name,li_detailflag_arr[ll_i] + 1) CHOOSE CASE Left(arg_subid,1) CASE '1' il_p1++ is_subtree_arr1[il_p1].subid = ls_subid_arr[ll_i] is_subtree_arr1[il_p1].Handle = li_handl CASE '2' il_p2++ is_subtree_arr2[il_p2].subid = ls_subid_arr[ll_i] is_subtree_arr2[il_p2].Handle = li_handl CASE '3' il_p3++ is_subtree_arr3[il_p3].subid = ls_subid_arr[ll_i] is_subtree_arr3[il_p3].Handle = li_handl CASE '4' il_p4++ is_subtree_arr4[il_p4].subid = ls_subid_arr[ll_i] is_subtree_arr4[il_p4].Handle = li_handl CASE '5' il_p5++ is_subtree_arr5[il_p5].subid = ls_subid_arr[ll_i] is_subtree_arr5[il_p5].Handle = li_handl CASE '6' il_p6++ is_subtree_arr6[il_p6].subid = ls_subid_arr[ll_i] is_subtree_arr6[il_p6].Handle = li_handl END CHOOSE IF lt_tv.GetItem ( li_handl, l_tvi) = 1 THEN l_tvi.Label = ls_subid_name l_tvi.Data = ls_subid_arr[ll_i] lt_tv.SetItem( li_handl, l_tvi ) END IF pf_treegrowth(li_handl,ls_subid_arr[ll_i]) NEXT RETURN 1 end function public function integer wf_tree1 ();Long ll_hand Long tvi_hdl = 0 tv_1.SetRedraw(FALSE) DO UNTIL tv_1.FindItem(RootTreeItem!, 0) = -1 tv_1.DeleteItem(tvi_hdl) LOOP ll_hand = tv_1.InsertItemLast(0,'资产类科目',0) pf_treegrowth(ll_hand,'1') tv_1.ExpandItem(ll_hand) tv_1.SetRedraw(TRUE) ds_subjecttree.SetFilter('') ds_subjecttree.Filter() RETURN 1 end function public function integer wf_tree2 ();long ll_hand long tvi_hdl = 0 tv_2.setredraw(false) DO UNTIL tv_2.FindItem(RootTreeItem!, 0) = -1 tv_2.DeleteItem(tvi_hdl) LOOP ll_hand = tv_2.insertitemlast(0,'负债类科目',0) pf_treegrowth(ll_hand,'2') tv_2.expanditem(ll_hand) tv_2.setredraw(true) ds_subjecttree.setfilter('') ds_subjecttree.filter() return 1 end function public function integer wf_tree3 ();Long ll_hand Long tvi_hdl = 0 tv_3.SetRedraw(FALSE) DO UNTIL tv_3.FindItem(RootTreeItem!, 0) = -1 tv_3.DeleteItem(tvi_hdl) LOOP ll_hand = tv_3.InsertItemLast(0,'权益类科目',0) IF s_sys_accset.ifnewsubid = 0 THEN pf_treegrowth(ll_hand,'3') ELSE pf_treegrowth(ll_hand,'4') END IF tv_3.ExpandItem(ll_hand) tv_3.SetRedraw(TRUE) ds_subjecttree.SetFilter('') ds_subjecttree.Filter() RETURN 1 end function public function integer wf_tree4 ();long ll_hand long tvi_hdl = 0 tv_4.setredraw(false) DO UNTIL tv_4.FindItem(RootTreeItem!, 0) = -1 tv_4.DeleteItem(tvi_hdl) LOOP ll_hand = tv_4.insertitemlast(0,'成本类科目',0) IF s_sys_accset.ifnewsubid = 0 THEN pf_treegrowth(ll_hand,'4') ELSE pf_treegrowth(ll_hand,'5') END IF tv_4.expanditem(ll_hand) tv_4.setredraw(true) ds_subjecttree.setfilter('') ds_subjecttree.filter() return 1 end function public function integer wf_tree5 ();long ll_hand long tvi_hdl = 0 tv_5.setredraw(false) DO UNTIL tv_5.FindItem(RootTreeItem!, 0) = -1 tv_5.DeleteItem(tvi_hdl) LOOP ll_hand = tv_5.insertitemlast(0,'损益类科目',0) IF s_sys_accset.ifnewsubid = 0 THEN pf_treegrowth(ll_hand,'5') ELSE pf_treegrowth(ll_hand,'6') END IF tv_5.expanditem(ll_hand) tv_5.setredraw(true) ds_subjecttree.setfilter('') ds_subjecttree.filter() return 1 end function public function integer wf_tree6 ();long ll_hand long tvi_hdl = 0 tv_6.setredraw(false) DO UNTIL tv_6.FindItem(RootTreeItem!, 0) = -1 tv_6.DeleteItem(tvi_hdl) LOOP ll_hand = tv_6.insertitemlast(0,'共同类科目',0) pf_treegrowth(ll_hand,'3') tv_6.expanditem(ll_hand) tv_6.setredraw(true) ds_subjecttree.setfilter('') ds_subjecttree.filter() return 1 end function on w_subjectdef_edit.create int iCurrent call super::create this.tab_subject=create tab_subject this.cb_add=create cb_add this.cb_add_next=create cb_add_next this.cb_mod=create cb_mod this.cb_del=create cb_del this.cb_print=create cb_print this.cb_refresh=create cb_refresh this.cb_ok=create cb_ok this.cb_3=create cb_3 this.cb_6=create cb_6 this.cb_11=create cb_11 this.cb_tab=create cb_tab iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.tab_subject this.Control[iCurrent+2]=this.cb_add this.Control[iCurrent+3]=this.cb_add_next this.Control[iCurrent+4]=this.cb_mod this.Control[iCurrent+5]=this.cb_del this.Control[iCurrent+6]=this.cb_print this.Control[iCurrent+7]=this.cb_refresh this.Control[iCurrent+8]=this.cb_ok this.Control[iCurrent+9]=this.cb_3 this.Control[iCurrent+10]=this.cb_6 this.Control[iCurrent+11]=this.cb_11 this.Control[iCurrent+12]=this.cb_tab end on on w_subjectdef_edit.destroy call super::destroy destroy(this.tab_subject) destroy(this.cb_add) destroy(this.cb_add_next) destroy(this.cb_mod) destroy(this.cb_del) destroy(this.cb_print) destroy(this.cb_refresh) destroy(this.cb_ok) destroy(this.cb_3) destroy(this.cb_6) destroy(this.cb_11) destroy(this.cb_tab) end on event open;call super::open;if_check_ifmx = Message.DoubleParm tv_1 = tab_subject.tabpage_1.tv_1 tv_2 = tab_subject.tabpage_2.tv_2 tv_3 = tab_subject.tabpage_3.tv_3 tv_4 = tab_subject.tabpage_4.tv_4 tv_5 = tab_subject.tabpage_5.tv_5 tv_6 = tab_subject.tabpage_6.tv_6 IF sys_last_selected_subid <> '' THEN cb_tab.PostEvent(Clicked!) wf_maketree() uo_sub = CREATE uo_subject end event event close;destroy uo_sub closewithreturn(this,s_rt_subject) end event type cb_func from w_publ_base`cb_func within w_subjectdef_edit end type type cb_exit from w_publ_base`cb_exit within w_subjectdef_edit integer x = 2254 integer y = 204 integer width = 384 end type type tab_subject from tab within w_subjectdef_edit integer width = 2226 integer height = 1864 integer taborder = 20 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 80269524 boolean raggedright = true integer selectedtab = 1 tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_6 tabpage_6 tabpage_3 tabpage_3 tabpage_4 tabpage_4 tabpage_5 tabpage_5 end type on tab_subject.create this.tabpage_1=create tabpage_1 this.tabpage_2=create tabpage_2 this.tabpage_6=create tabpage_6 this.tabpage_3=create tabpage_3 this.tabpage_4=create tabpage_4 this.tabpage_5=create tabpage_5 this.Control[]={this.tabpage_1,& this.tabpage_2,& this.tabpage_6,& this.tabpage_3,& this.tabpage_4,& this.tabpage_5} end on on tab_subject.destroy destroy(this.tabpage_1) destroy(this.tabpage_2) destroy(this.tabpage_6) destroy(this.tabpage_3) destroy(this.tabpage_4) destroy(this.tabpage_5) end on event selectionchanged;wf_maketree() end event type tabpage_1 from userobject within tab_subject event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 2190 integer height = 1752 long backcolor = 80269524 string text = "资产类" long tabtextcolor = 33554432 long tabbackcolor = 80269524 long picturemaskcolor = 553648127 tv_1 tv_1 end type on tabpage_1.create this.tv_1=create tv_1 this.Control[]={this.tv_1} end on on tabpage_1.destroy destroy(this.tv_1) end on type tv_1 from treeview within tabpage_1 integer width = 2185 integer height = 1748 integer taborder = 20 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string picturename[] = {"RegistrationDir5!","NestedReport!","NestedReport!","NestedReport!"} long picturemaskcolor = 553648127 long statepicturemaskcolor = 536870912 end type event selectionchanged;long ll_hand treeviewitem tvi il_hand=this.finditem(CurrentTreeItem!,0) ll_hand=il_hand this.getitem(ll_hand,itvi) tvi=itvi ins_subidstr = left(tvi.label,pos(tvi.label,' ') -1 ) ins_subidname = tvi.label tv_1.expanditem(ll_hand) end event event doubleclicked;cb_ok.triggerevent(clicked!) end event event clicked;this.triggerevent(selectionchanged!) end event type tabpage_2 from userobject within tab_subject event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 2190 integer height = 1752 long backcolor = 80269524 string text = "负债类" long tabtextcolor = 33554432 long tabbackcolor = 80269524 long picturemaskcolor = 553648127 tv_2 tv_2 end type on tabpage_2.create this.tv_2=create tv_2 this.Control[]={this.tv_2} end on on tabpage_2.destroy destroy(this.tv_2) end on type tv_2 from treeview within tabpage_2 integer width = 2185 integer height = 1748 integer taborder = 50 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string picturename[] = {"RegistrationDir5!","NestedReport!","NestedReport!"} long picturemaskcolor = 553648127 long statepicturemaskcolor = 553648127 end type event selectionchanged;long ll_hand treeviewitem tvi il_hand=this.finditem(CurrentTreeItem!,0) ll_hand=il_hand this.getitem(ll_hand,itvi) tvi=itvi ins_subidstr=left(tvi.label,pos(tvi.label,' ') -1 ) ins_subidname = tvi.label tv_2.expanditem(ll_hand) end event event doubleclicked;cb_ok.triggerevent(clicked!) end event event clicked;this.triggerevent(selectionchanged!) end event type tabpage_6 from userobject within tab_subject integer x = 18 integer y = 96 integer width = 2190 integer height = 1752 long backcolor = 80269524 string text = "共同类" long tabtextcolor = 33554432 long tabbackcolor = 80269524 long picturemaskcolor = 536870912 tv_6 tv_6 end type on tabpage_6.create this.tv_6=create tv_6 this.Control[]={this.tv_6} end on on tabpage_6.destroy destroy(this.tv_6) end on type tv_6 from treeview within tabpage_6 integer width = 2185 integer height = 1748 integer taborder = 10 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string picturename[] = {"RegistrationDir5!","NestedReport!","NestedReport!"} long picturemaskcolor = 553648127 long statepicturemaskcolor = 553648127 end type event clicked;this.triggerevent(selectionchanged!) end event event doubleclicked;cb_ok.triggerevent(clicked!) end event event selectionchanged;Long ll_hand treeviewitem tvi il_hand = THIS.FindItem(CurrentTreeItem!,0) ll_hand = il_hand THIS.GetItem(ll_hand,itvi) tvi = itvi ins_subidstr = Left(tvi.Label,Pos(tvi.Label,' ') -1 ) ins_subidname = tvi.Label tv_5.ExpandItem(ll_hand) end event type tabpage_3 from userobject within tab_subject event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 2190 integer height = 1752 long backcolor = 80269524 string text = "权益类" long tabtextcolor = 33554432 long tabbackcolor = 80269524 long picturemaskcolor = 553648127 tv_3 tv_3 end type on tabpage_3.create this.tv_3=create tv_3 this.Control[]={this.tv_3} end on on tabpage_3.destroy destroy(this.tv_3) end on type tv_3 from treeview within tabpage_3 integer width = 2185 integer height = 1748 integer taborder = 50 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string picturename[] = {"RegistrationDir5!","NestedReport!","NestedReport!"} long picturemaskcolor = 553648127 long statepicturemaskcolor = 536870912 end type event selectionchanged;long ll_hand treeviewitem tvi il_hand=this.finditem(CurrentTreeItem!,0) ll_hand=il_hand this.getitem(ll_hand,itvi) tvi=itvi ins_subidstr=left(tvi.label,pos(tvi.label,' ') -1 ) ins_subidname = tvi.label tv_3.expanditem(ll_hand) end event event doubleclicked;cb_ok.triggerevent(clicked!) end event event clicked;this.triggerevent(selectionchanged!) end event type tabpage_4 from userobject within tab_subject event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 2190 integer height = 1752 long backcolor = 80269524 string text = "成本类" long tabtextcolor = 33554432 long tabbackcolor = 80269524 long picturemaskcolor = 553648127 tv_4 tv_4 end type on tabpage_4.create this.tv_4=create tv_4 this.Control[]={this.tv_4} end on on tabpage_4.destroy destroy(this.tv_4) end on type tv_4 from treeview within tabpage_4 integer width = 2185 integer height = 1748 integer taborder = 20 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string picturename[] = {"RegistrationDir5!","NestedReport!","NestedReport!"} long picturemaskcolor = 553648127 long statepicturemaskcolor = 536870912 end type event selectionchanged;long ll_hand treeviewitem tvi il_hand=this.finditem(CurrentTreeItem!,0) ll_hand=il_hand this.getitem(ll_hand,itvi) tvi=itvi ins_subidstr=left(tvi.label,pos(tvi.label,' ') -1 ) ins_subidname = tvi.label tv_4.expanditem(ll_hand) end event event doubleclicked;cb_ok.triggerevent(clicked!) end event event clicked;this.triggerevent(selectionchanged!) end event type tabpage_5 from userobject within tab_subject event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 2190 integer height = 1752 long backcolor = 80269524 string text = "损益类" long tabtextcolor = 33554432 long tabbackcolor = 80269524 long picturemaskcolor = 553648127 tv_5 tv_5 end type on tabpage_5.create this.tv_5=create tv_5 this.Control[]={this.tv_5} end on on tabpage_5.destroy destroy(this.tv_5) end on type tv_5 from treeview within tabpage_5 integer width = 2185 integer height = 1748 integer taborder = 50 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string picturename[] = {"RegistrationDir5!","NestedReport!","NestedReport!"} long picturemaskcolor = 553648127 long statepicturemaskcolor = 553648127 end type event selectionchanged;Long ll_hand treeviewitem tvi il_hand = THIS.FindItem(CurrentTreeItem!,0) ll_hand = il_hand THIS.GetItem(ll_hand,itvi) tvi = itvi ins_subidstr = Left(tvi.Label,Pos(tvi.Label,' ') -1 ) ins_subidname = tvi.Label tv_5.ExpandItem(ll_hand) end event event doubleclicked;cb_ok.triggerevent(clicked!) end event event clicked;this.triggerevent(selectionchanged!) end event type cb_add from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 380 integer width = 384 integer height = 96 integer taborder = 50 boolean bringtotop = true string text = "增加同级科目" end type event clicked;IF NOT (f_power_ind(1952,sys_msg_pow) OR f_power_ind(1966,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String p_subid,c_subid String arg_msg Int ls_dcflag IF Len(ins_subidstr) = 0 THEN MessageBox(publ_operator,'请选择要增加同级科目的科目') RETURN END IF p_subid = ins_subidstr //***查询余额方向 ls_dcflag = f_get_dcflag(p_subid,arg_msg) IF ls_dcflag = -1 THEN MessageBox(publ_operator,'增加同级科目失败,'+arg_msg) RETURN END IF IF uo_sub.new_begin(0,p_subid,arg_msg) = 0 THEN MessageBox(publ_operator,'增加同级科目失败,'+arg_msg) RETURN END IF c_subid = uo_sub.get_subid(0,p_subid,arg_msg) IF c_subid = 'err' THEN MessageBox(publ_operator,'增加同级科目失败,'+arg_msg) RETURN END IF s_sub_edit s_edit s_edit.openparm = 2 s_edit.editflag = 1 s_edit.subflag = 0 s_edit.dcflag = ls_dcflag s_edit.subid = c_subid s_edit.subsubid = '' OpenWithParm(w_subjectdef_edit_input,s_edit) //****刷新树 s_sub_edit s_rst_subid Long ll_hand,ll_handl s_rst_subid = Message.PowerObjectParm IF s_rst_subid.subid = '' THEN RETURN CHOOSE CASE tab_subject.SelectedTab CASE 1 ll_hand = tv_1.FindItem(parenttreeitem!,il_hand) ll_handl = tv_1.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_1.SetFocus() tv_1.SelectItem ( ll_handl ) CASE 2 ll_hand = tv_2.FindItem(parenttreeitem!,il_hand) ll_handl = tv_2.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_2.SetFocus() tv_2.SelectItem ( ll_handl ) CASE 3 IF s_sys_accset.ifnewsubid = 0 THEN ll_hand = tv_3.FindItem(parenttreeitem!,il_hand) ll_handl = tv_3.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_3.SetFocus() tv_3.SelectItem ( ll_handl ) ELSE ll_hand = tv_6.FindItem(parenttreeitem!,il_hand) ll_handl = tv_6.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_6.SetFocus() tv_6.SelectItem ( ll_handl ) END IF CASE 4 IF s_sys_accset.ifnewsubid = 0 THEN ll_hand = tv_4.FindItem(parenttreeitem!,il_hand) ll_handl = tv_4.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_4.SetFocus() tv_4.SelectItem ( ll_handl ) ELSE ll_hand = tv_3.FindItem(parenttreeitem!,il_hand) ll_handl = tv_3.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_3.SetFocus() tv_3.SelectItem ( ll_handl ) END IF CASE 5 IF s_sys_accset.ifnewsubid = 0 THEN ll_hand = tv_5.FindItem(parenttreeitem!,il_hand) ll_handl = tv_5.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_5.SetFocus() tv_5.SelectItem ( ll_handl ) ELSE ll_hand = tv_4.FindItem(parenttreeitem!,il_hand) ll_handl = tv_4.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_4.SetFocus() tv_4.SelectItem ( ll_handl ) END IF CASE 6 ll_hand = tv_5.FindItem(parenttreeitem!,il_hand) ll_handl = tv_5.InsertItemSort(ll_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_5.SetFocus() tv_5.SelectItem ( ll_handl ) END CHOOSE ins_subidstr = s_rst_subid.subid wf_dssubtree_retrieve() end event type cb_add_next from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 480 integer width = 384 integer height = 96 integer taborder = 60 boolean bringtotop = true string text = "增加下级科目" end type event clicked;IF NOT (f_power_ind(1952,sys_msg_pow) OR f_power_ind(1966,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String p_subid,c_subid String arg_msg Int ls_dcflag IF Len(ins_subidstr) = 0 THEN MessageBox(publ_operator,'请选择要增加同级科目的科目') RETURN END IF p_subid = ins_subidstr //***查询余额方向 ls_dcflag = f_get_dcflag(p_subid,arg_msg) IF ls_dcflag = -1 THEN MessageBox(publ_operator,'增加同级科目失败,'+arg_msg) RETURN END IF IF uo_sub.new_begin(1,p_subid,arg_msg) = 0 THEN MessageBox(publ_operator,'增加下级科目失败,'+arg_msg) RETURN END IF c_subid = uo_sub.get_subid(1,p_subid,arg_msg) IF c_subid = 'err' THEN MessageBox(publ_operator,'增加下级科目失败,'+arg_msg) RETURN END IF s_sub_edit s_edit s_edit.openparm = 1 s_edit.editflag = 1 s_edit.subflag = 1 s_edit.dcflag = ls_dcflag s_edit.subid = p_subid s_edit.subsubid = Right(c_subid,Len(c_subid) - Len(p_subid)) OpenWithParm(w_subjectdef_edit_input,s_edit) //****刷新树 s_sub_edit s_rst_subid Long ll_handl s_rst_subid = Message.PowerObjectParm IF s_rst_subid.subid = '' THEN RETURN CHOOSE CASE tab_subject.SelectedTab CASE 1 ll_handl = tv_1.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_1.SetFocus() tv_1.SelectItem ( ll_handl ) CASE 2 ll_handl = tv_2.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_2.SetFocus() tv_2.SelectItem ( ll_handl ) CASE 3 IF s_sys_accset.ifnewsubid = 0 THEN ll_handl = tv_3.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_3.SetFocus() tv_3.SelectItem ( ll_handl ) ELSE ll_handl = tv_6.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_6.SetFocus() tv_6.SelectItem ( ll_handl ) END IF CASE 4 IF s_sys_accset.ifnewsubid = 0 THEN ll_handl = tv_4.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_4.SetFocus() tv_4.SelectItem ( ll_handl ) ELSE ll_handl = tv_3.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_3.SetFocus() tv_3.SelectItem ( ll_handl ) END IF CASE 5 IF s_sys_accset.ifnewsubid = 0 THEN ll_handl = tv_5.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_5.SetFocus() tv_5.SelectItem ( ll_handl ) ELSE ll_handl = tv_4.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_4.SetFocus() tv_4.SelectItem ( ll_handl ) END IF CASE 6 ll_handl = tv_5.InsertItemSort(il_hand,s_rst_subid.subid+' '+s_rst_subid.subname,2) tv_5.SetFocus() tv_5.SelectItem ( ll_handl ) END CHOOSE ins_subidstr = s_rst_subid.subid wf_dssubtree_retrieve() end event type cb_mod from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 676 integer width = 384 integer height = 96 integer taborder = 80 boolean bringtotop = true string text = "修改" string normalpicname = "open.bmp" end type event clicked;IF NOT (f_power_ind(1952,sys_msg_pow) OR f_power_ind(1966,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF Long uc_row String arg_msg IF Len(ins_subidstr) = 0 THEN MessageBox(publ_operator,'请选择要修改的科目') RETURN END IF IF uo_sub.update_begin(ins_subidstr,arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF s_sub_edit s_edit s_edit.openparm = 3 s_edit.editflag = 1 s_edit.subflag = 0 s_edit.dcflag = 0 s_edit.subid = ins_subidstr s_edit.subsubid = '' OpenWithParm(w_subjectdef_edit_input,s_edit) //****刷新树 s_sub_edit s_rst_subid TreeViewItem l_tvi s_rst_subid = Message.PowerObjectParm IF s_rst_subid.subid = '' THEN RETURN CHOOSE CASE tab_subject.SelectedTab CASE 1 IF tv_1.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_1.SetItem(il_hand, l_tvi) END IF tv_1.SetFocus() tv_1.SelectItem ( il_hand ) CASE 2 IF tv_2.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_2.SetItem(il_hand, l_tvi) END IF tv_1.SetFocus() tv_2.SelectItem ( il_hand ) CASE 3 IF s_sys_accset.ifnewsubid = 0 THEN IF tv_3.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_3.SetItem(il_hand, l_tvi) END IF tv_3.SetFocus() tv_3.SelectItem ( il_hand ) ELSE IF tv_6.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_6.SetItem(il_hand, l_tvi) END IF tv_6.SetFocus() tv_6.SelectItem ( il_hand ) END IF CASE 4 IF s_sys_accset.ifnewsubid = 0 THEN IF tv_4.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_4.SetItem(il_hand, l_tvi) END IF tv_4.SetFocus() tv_4.SelectItem ( il_hand ) ELSE IF tv_3.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_3.SetItem(il_hand, l_tvi) END IF tv_3.SetFocus() tv_3.SelectItem ( il_hand ) END IF CASE 5 IF s_sys_accset.ifnewsubid = 0 THEN IF tv_5.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_5.SetItem(il_hand, l_tvi) END IF tv_5.SetFocus() tv_5.SelectItem ( il_hand ) ELSE IF tv_4.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_4.SetItem(il_hand, l_tvi) END IF tv_4.SetFocus() tv_4.SelectItem ( il_hand ) END IF CASE 6 IF tv_5.GetItem(il_hand,l_tvi) > 0 THEN l_tvi.Label = s_rst_subid.subid+' '+s_rst_subid.subname tv_5.SetItem(il_hand, l_tvi) END IF tv_5.SetFocus() tv_5.SelectItem ( il_hand ) END CHOOSE ins_subidstr = s_rst_subid.subid wf_dssubtree_retrieve() end event type cb_del from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 776 integer width = 384 integer height = 96 integer taborder = 100 boolean bringtotop = true string text = "删除" string normalpicname = "delete.bmp" end type event clicked;IF NOT (f_power_ind(1952,sys_msg_pow) OR f_power_ind(1966,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String arg_msg = '',msg_str,ls_subid Boolean if_only = FALSE msg_str = '是否删除科目 '+ins_subidname IF MessageBox(publ_operator,msg_str, Exclamation!, YesNo!, 2) = 2 THEN RETURN END IF IF uo_sub.getinfo(Trim(ins_subidstr),arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF IF uo_sub.check_ifmxsub(arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg+',不能删除') RETURN ELSE IF uo_sub.check_suboperation(0,arg_msg) = 1 THEN IF uo_sub.check_onlyonesub() = 0 THEN MessageBox(publ_operator,arg_msg+',不能删除') RETURN ELSE msg_str = ins_subidstr +' 科目已经有业务发生,但它是它的上级科目的唯一一个下级科目,如果将 ~n' msg_str = 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(0,uo_sub.subid,arg_msg,FALSE) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF END IF END IF ELSEIF uo_sub.check_suboperation(0,arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg+',不能删除') RETURN END IF END IF IF uo_sub.del_sub(arg_msg,TRUE) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN ELSE MessageBox(publ_operator,'删除科目成功') CHOOSE CASE tab_subject.SelectedTab CASE 1 tv_1.DeleteItem(il_hand) CASE 2 tv_2.DeleteItem(il_hand) CASE 3 IF s_sys_accset.ifnewsubid = 0 THEN tv_3.DeleteItem(il_hand) ELSE tv_6.DeleteItem(il_hand) END IF CASE 4 IF s_sys_accset.ifnewsubid = 0 THEN tv_4.DeleteItem(il_hand) ELSE tv_3.DeleteItem(il_hand) END IF CASE 5 IF s_sys_accset.ifnewsubid = 0 THEN tv_5.DeleteItem(il_hand) ELSE tv_4.DeleteItem(il_hand) END IF CASE 6 tv_5.DeleteItem(il_hand) END CHOOSE wf_dssubtree_retrieve() END IF end event type cb_print from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 1184 integer width = 384 integer height = 96 integer taborder = 70 boolean bringtotop = true string text = "打印" string normalpicname = "print.bmp" end type event clicked;IF NOT (f_power_ind(1953,sys_msg_pow) OR f_power_ind(1967,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF OPEN(w_rp_subject) end event type cb_refresh from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 1080 integer width = 384 integer height = 96 integer taborder = 30 boolean bringtotop = true string text = "刷新" string normalpicname = "refresh.bmp" end type event clicked;wf_dssubtree_retrieve() wf_maketree() end event type cb_ok from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 104 integer width = 384 integer height = 96 integer taborder = 40 string normalpicname = "ok.bmp" end type event clicked;String arg_msg IF Len(ins_subidstr) = 0 THEN MessageBox('系统提示','请先选择目标会计科目!',StopSign!) RETURN END IF s_rt_subject.subid = ins_subidstr IF uo_sub.getinfo(Trim(ins_subidstr),arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF IF if_check_ifmx = 0 THEN IF uo_sub.check_ifmxsub(arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg+',不能选择') RETURN END IF ELSEIF if_check_ifmx = 1 THEN IF uo_sub.check_ifmxsub(arg_msg) = 1 THEN MessageBox(publ_operator,'明细科目,不能选择') RETURN END IF END IF String ls_name,ls_unit Int ls_dcflag,ls_detailflag,ls_hswb,ls_hsqty,ls_hsdept,ls_hsemp,ls_hsitem,ls_hscust,ls_hsspt int ls_hstrader Long ls_moneyid SELECT name,dcflag,detailflag,hswb,moneyid,hsqty,unit,hsdept,hsemp,hsitem,hscust,hsspt,hstrader INTO :ls_name,:ls_dcflag,:ls_detailflag,:ls_hswb,:ls_moneyid,:ls_hsqty,:ls_unit,:ls_hsdept,:ls_hsemp,:ls_hsitem, :ls_hscust,:ls_hsspt,:ls_hstrader FROM cw_subject WHERE accsetid = :sys_accsetid AND subid = :ins_subidstr; IF sqlca.SQLCode <> 0 THEN MessageBox(publ_operator,'查询会计科目:'+ins_subidstr+'资料失败,不能选择') RETURN END IF s_rt_subject.Name = ls_name s_rt_subject.dcflag = ls_dcflag s_rt_subject.detailflag = ls_detailflag s_rt_subject.hswb = ls_hswb s_rt_subject.moneyid = ls_moneyid s_rt_subject.hsqty = ls_hsqty s_rt_subject.unit = ls_unit s_rt_subject.hsdept = ls_hsdept s_rt_subject.hsemp = ls_hsemp s_rt_subject.hsitem = ls_hsitem s_rt_subject.hscust = ls_hscust s_rt_subject.hsspt = ls_hsspt s_rt_subject.hstrader = ls_hstrader sys_last_selected_subid = ins_subidstr Close(PARENT) //subid //name //dcflag //detailflag //hswb //moneyid //hsqty //unit //hsdept //hsemp //hsitem //specialcode end event type cb_3 from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 1668 integer width = 384 integer height = 96 integer taborder = 110 boolean bringtotop = true string text = "调整科目标记" end type event clicked;String subid[],Name[],ls_subid,ls_name,ls_displaycode Long accsetid[],mxt,ls_accsetid,i,cnt Int len_subid DECLARE sub_cur CURSOR FOR SELECT cw_subject.accsetid, cw_subject.subid, cw_subject.name FROM cw_subject Where accsetid = :sys_accsetid; OPEN sub_cur; FETCH sub_cur INTO :ls_accsetid,:ls_subid,:ls_name; DO WHILE sqlca.SQLCode = 0 mxt++ accsetid[mxt] = ls_accsetid subid[mxt] = ls_subid Name[mxt] = ls_name FETCH sub_cur INTO :ls_accsetid,:ls_subid,:ls_name; LOOP CLOSE sub_cur; FOR i = 1 TO mxt len_subid = Len(subid[i]) cnt = 0 SELECT count(*) INTO :cnt FROM cw_subject WHERE accsetid = :accsetid[i] AND len(subid) > :len_subid AND Left(subid,:len_subid) = :subid[i]; IF sqlca.SQLCode <> 0 THEN ROLLBACK; MessageBox("","select error!") RETURN END IF Int li_detailflag IF cnt = 0 THEN li_detailflag = 1 ELSE li_detailflag = 0 END IF UPDATE cw_subject SET detailflag = :li_detailflag WHERE accsetid = :accsetid[i] AND subid = :subid[i]; IF sqlca.SQLCode <> 0 THEN String ls_err ls_err = sqlca.SQLErrText ROLLBACK; MessageBox("提示","更新失败,"+ls_err) RETURN END IF NEXT COMMIT; MessageBox("提示",'修改成功') wf_dssubtree_retrieve() wf_maketree() end event type cb_6 from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 1768 integer width = 384 integer height = 88 integer taborder = 120 boolean bringtotop = true string text = "更新科目名称" end type event clicked;String subid[],Name[],ls_subid,ls_name,ls_displaycode Long accsetid[],mxt,ls_accsetid,i DECLARE sub_cur CURSOR FOR SELECT cw_subject.accsetid, cw_subject.subid, cw_subject.name FROM cw_subject Where accsetid = :sys_accsetid; OPEN sub_cur; FETCH sub_cur INTO :ls_accsetid,:ls_subid,:ls_name; DO WHILE sqlca.SQLCode = 0 mxt++ accsetid[mxt] = ls_accsetid subid[mxt] = ls_subid Name[mxt] = ls_name FETCH sub_cur INTO :ls_accsetid,:ls_subid,:ls_name; LOOP CLOSE sub_cur; FOR i = 1 TO mxt ls_displaycode = f_rst_subdisplay(subid[i],Name[i]) UPDATE cw_subject SET displaycode = :ls_displaycode WHERE accsetid = :accsetid[i] AND subid = :subid[i]; IF sqlca.SQLCode <> 0 THEN String ls_err ls_err = sqlca.SQLErrText ROLLBACK; MessageBox("提示","更新失败,"+ls_err) RETURN END IF NEXT COMMIT; MessageBox("提示",'修改成功') wf_dssubtree_retrieve() wf_maketree() end event type cb_11 from uo_imflatbutton within w_subjectdef_edit integer x = 2254 integer y = 1492 integer width = 384 integer height = 96 integer taborder = 100 boolean bringtotop = true string text = "导出帐套科目" end type event clicked;IF NOT sys_power_issuper THEN MessageBox('系统提示','不是帐套管理员,不能导出') RETURN END IF string msg msg = '是否确定要导出帐套科目?' IF MessageBox ("IF",msg,Question!,YesNo! ) = 2 THEN RETURN Open(w_subject_export) end event type cb_tab from commandbutton within w_subjectdef_edit boolean visible = false integer x = 2277 integer width = 219 integer height = 84 integer taborder = 30 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "none" end type event clicked;Long i IF sys_last_selected_subid <> '' THEN CHOOSE CASE Left(sys_last_selected_subid,1) CASE '1' tab_subject.SelectedTab = 1 FOR i = 1 TO il_p1 IF is_subtree_arr1[i].subid = sys_last_selected_subid THEN tv_1.SetFocus() tv_1.SelectItem(is_subtree_arr1[i].Handle) il_hand = is_subtree_arr1[i].Handle END IF NEXT CASE '2' tab_subject.SelectedTab = 2 FOR i = 1 TO il_p2 IF is_subtree_arr2[i].subid = sys_last_selected_subid THEN tv_2.SetFocus() tv_2.SelectItem(is_subtree_arr2[i].Handle) il_hand = is_subtree_arr2[i].Handle END IF NEXT CASE '3' tab_subject.SelectedTab = 3 FOR i = 1 TO il_p3 IF is_subtree_arr3[i].subid = sys_last_selected_subid THEN tv_3.SetFocus() tv_3.SelectItem(is_subtree_arr3[i].Handle) il_hand = is_subtree_arr3[i].Handle END IF NEXT CASE '4' tab_subject.SelectedTab = 4 FOR i = 1 TO il_p4 IF is_subtree_arr4[i].subid = sys_last_selected_subid THEN tv_4.SetFocus() tv_4.SelectItem(is_subtree_arr4[i].Handle) il_hand = is_subtree_arr4[i].Handle END IF NEXT CASE '5' tab_subject.SelectedTab = 5 FOR i = 1 TO il_p5 IF is_subtree_arr5[i].subid = sys_last_selected_subid THEN tv_5.SetFocus() tv_5.SelectItem(is_subtree_arr5[i].Handle) il_hand = is_subtree_arr5[i].Handle END IF NEXT END CHOOSE END IF end event