Q5/ws_objects/cw_account.pbl.src/f_rst_subdisplay.srf

$PBExportHeader$f_rst_subdisplay.srf
$PBExportComments$科目显示
global type f_rst_subdisplay from function_object
end type

forward prototypes
global function string f_rst_subdisplay (string arg_subid, string arg_name)
end prototypes

global function string f_rst_subdisplay (string arg_subid, string arg_name);//凭证明细科目代码显示

String rst_str = '',parent_name,parent_subid
Long len_subid,i,ds_subjecttree_cnt


ds_subjecttree_cnt = ds_subjecttree.RowCount()
len_subid = Len(arg_subid)

DO WHILE len_subid > s_sys_accset.step1
	CHOOSE CASE len_subid
		CASE s_sys_accset.step1 + s_sys_accset.step2
			rst_str = '→'+rst_str
			parent_subid = Left(arg_subid,s_sys_accset.step1)
			FOR i = 1 TO ds_subjecttree_cnt
				IF parent_subid = ds_subjecttree.Object.subid[i] THEN
					parent_name = ds_subjecttree.Object.Name[i]
					EXIT
				END IF
			NEXT
			rst_str = parent_name + rst_str
			len_subid = Len(parent_subid)
			
		CASE s_sys_accset.step1 + s_sys_accset.step2 + s_sys_accset.step3
			rst_str = '→'+rst_str
			parent_subid = Left(arg_subid,s_sys_accset.step1 + s_sys_accset.step2)
			FOR i = 1 TO ds_subjecttree_cnt
				IF parent_subid = ds_subjecttree.Object.subid[i] THEN
					parent_name = ds_subjecttree.Object.Name[i]
					EXIT
				END IF
			NEXT
			rst_str = parent_name + rst_str
			len_subid = Len(parent_subid)
			
		CASE s_sys_accset.step1 + s_sys_accset.step2 + s_sys_accset.step3 + s_sys_accset.step4
			rst_str = '→'+rst_str
			parent_subid = Left(arg_subid,s_sys_accset.step1 + s_sys_accset.step2 + s_sys_accset.step3)
			FOR i = 1 TO ds_subjecttree_cnt
				IF parent_subid = ds_subjecttree.Object.subid[i] THEN
					parent_name = ds_subjecttree.Object.Name[i]
					EXIT
				END IF
			NEXT
			rst_str = parent_name + rst_str
			len_subid = Len(parent_subid)
			
		CASE s_sys_accset.step1 + s_sys_accset.step2 + s_sys_accset.step3 + s_sys_accset.step4 + s_sys_accset.step5
			rst_str = '→'+rst_str
			parent_subid = Left(arg_subid,s_sys_accset.step1 + s_sys_accset.step2 + s_sys_accset.step3 + s_sys_accset.step4)
			FOR i = 1 TO ds_subjecttree_cnt
				IF parent_subid = ds_subjecttree.Object.subid[i] THEN
					parent_name = ds_subjecttree.Object.Name[i]
					EXIT
				END IF
			NEXT
			rst_str = parent_name + rst_str
			len_subid = Len(parent_subid)
			
		CASE s_sys_accset.step1 + s_sys_accset.step2 + s_sys_accset.step3 + s_sys_accset.step4 + s_sys_accset.step5 + s_sys_accset.step6
			rst_str = '→'+rst_str
			parent_subid = Left(arg_subid,s_sys_accset.step1 + s_sys_accset.step2 + s_sys_accset.step3 + s_sys_accset.step4 + s_sys_accset.step5)
			FOR i = 1 TO ds_subjecttree_cnt
				IF parent_subid = ds_subjecttree.Object.subid[i] THEN
					parent_name = ds_subjecttree.Object.Name[i]
					EXIT
				END IF
			NEXT
			rst_str = parent_name + rst_str
			len_subid = Len(parent_subid)
	END CHOOSE
LOOP

rst_str = arg_subid+' '+rst_str+arg_name

RETURN rst_str

end function