
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：集計マスター処理    
'   作成日：2002/11/30
'   作成者：徳田
'   目的　：集計マスターを更新する
'   概要  ：
'    <<表示>>
'	・無し
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	Dim  TyohyoKubun 
	Dim KanriKubun

	Dim Query
   	Dim Content

	Dim SyukeiCD , SyukeiNM , Taisyaku 
	Dim Syukeisaki , PMKubun , Linesu 
	Dim UnderLine , HyoujiKubun , KoseiKubun 
	
	Dim RouteType
	
	RouteType = Request("RouteType")
	
	TyohyoKubun = Request("TyohyoKubun")
	KanriKubun = Request("KanriKubun")

	Dim ToukiSoneki
	ToukiSoneki = Request("ToukiSoneki")

	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), ",")
		
	    SyukeiCD = TmpValue2(0)
	    SyukeiNM = TmpValue2(1)
	    If SyukeiCD = "" AND SyukeiNM = "" Then
    	Else 
			'半角カンマ・セミコロンを代替文字から元に戻す処理
			SyukeiNM = Replace(SyukeiNM, "CommammoC", ",")
			SyukeiNM = Replace(SyukeiNM, "SemicolonolocimeS", ";")
			If TmpValue2(2) = "借方" Then
				Taisyaku = "D"
			Else
				Taisyaku = "C"
			End If
			Syukeisaki = TmpValue2(3)
			PMKubun= TmpValue2(4)
			Linesu = TmpValue2(5)
			If TmpValue2(6) = "有" Then
				UnderLine = "1"
			Else
				UnderLine = " "
			End If
			If TmpValue2(7) = "有" Then
				HyoujiKubun = "1"
			Else
				HyoujiKubun = " "
			End If
			If TmpValue2(8) = "有" Then
				KoseiKubun = "1"
			Else
				KoseiKubun = " "
			End If
			UnderLine = TmpValue2(6) 
			HyoujiKubun = TmpValue2(7)
			KoseiKubun = TmpValue2(8)
			Query = "exec SPM報告書書式挿入 '" & GB_SystemCD & "',"
			Query = Query & "'" & EnshuCD & "'"
			Query = Query & ",'" & TyohyoKubun & "'"
			Query = Query & ",'" & SyukeiCD & "'"
			Query = Query & ",'" & SyukeiNM & "'"
			Query = Query & ",'" & Taisyaku & "'"
			Query = Query & ",'" & Syukeisaki & "'"
			Query = Query & ",'" & PMKubun & "'"
			Query = Query & ",'" & Linesu & "'"
			Query = Query & ",'" & ConvRevKubunMeisyo("アンダーライン", UnderLine) & "'"
			Query = Query & ",'" & ConvRevKubunMeisyo("右方表示", HyoujiKubun) & "'"
			Query = Query & ",'" & ConvRevKubunMeisyo("構成表示", KoseiKubun) & "'"
			Query = Query & ", " & ii + 1
	   		Set Content = ExecQuery(db, Query)	
	    End If
	Next


	Query = "exec SPM報告書書式更新 '" & GB_SystemCD & "',"
	Query = Query & "'" & EnshuCD & "','" & TyohyoKubun & "'"
	Set Content = ExecQuery(db, Query)

	Query = " UPDATE TC2演習M SET 整理記入当期損益挿入先 = '" & ToukiSoneki & "' "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' "
	Set Content = ExecQuery(db, Query)
	

	Response.Redirect("fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun)

End Sub
%>