
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'	 名称	：集計マスター勘定科目設定
'	 作成日	：2009/6/15
'	 作成者	：小野
'	 目的	：勘定科目と集計マスターの連動設定
'	 概要	：
'################################################
'-->
%>

<%
main()

Sub main()

	Dim Query
   	Dim Content
   	Dim Content2

	Dim KanjoCD
	Dim SyukeiCD

	Dim RouteType
	RouteType = Request("RouteType")

	Dim TyohyoKubun
	Dim KanriKubun
	TyohyoKubun = Request("TyohyoKubun")
	KanriKubun = Request("KanriKubun")

	Dim GyoshuKubun
	GyoshuKubun = Request("GyoshuKubun")

	Dim SaimokuKubun
	SaimokuKubun = Request("SaimokuKubun")


	Dim db
	Set db = InitQuery()
		
	Dim ii
	Dim SendValue, TmpValue1, TmpValue2

	SendValue = Request("SendValue")
	TmpValue1 = split(SendValue, ";")
	For ii = 0 To UBound(TmpValue1) - 1
	    TmpValue2 = split(TmpValue1(ii), ",")
	    KanjoCD = TmpValue2(0)
	    SyukeiCD = Trim(Left(TmpValue2(5), 4))
	    If KanjoCD <> "" Then
			Query = "exec SPM勘定科目更新諸表集計先 '" & GB_SystemCD & "',"
			Query = Query & "  '" & EnshuCD & "'"
			Query = Query & ", '" & KanjoCD & "'"
			Query = Query & ", '" & TyohyoKubun & "'"
			Query = Query & ", '" & SyukeiCD & "'"
'Response.Write(Query)
'Exit Sub
		   	Set Content = ExecQuery(db, Query)	
	    End If
	Next

	Response.Redirect("fm_syukei_kamoku.asp?TyohyoKubun=" & TyohyoKubun & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun)

End Sub
%>