<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  :株主資本等変動計算書マスター処理
'   作成日:2007/1/23
'   作成者:小野
'   目的 :株主資本等変動計算書マスターの更新
'   概要  :
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	Dim TyohyoKubun
	Dim KanriKubun

	Dim Query
   	Dim Content

	Dim SyukeiCD
	Dim SyukeiNM0
	Dim SyukeiNM1
	Dim SyukeiNM2
	Dim SyukeiNM3
	Dim SyukeiNM4
	Dim Syukeisaki , PMKubun , Linesu
	Dim UnderLine , HyoujiKubun
	
	Dim RouteType
	
	RouteType = Request("RouteType")
	
	TyohyoKubun = Request("TyohyoKubun")
	KanriKubun = Request("KanriKubun")

	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)
	    If SyukeiCD = "" Then
	    Else
		    SyukeiNM0 = TmpValue2(1)
		    SyukeiNM1 = TmpValue2(2)
	    	SyukeiNM2 = TmpValue2(3)
		    SyukeiNM3 = TmpValue2(4)
		    SyukeiNM4 = TmpValue2(5)
			PMKubun= TmpValue2(6)
			Linesu = TmpValue2(7)
			If TmpValue2(8) = "有" Then
				UnderLine = "1"
			Else
				UnderLine = " "
			End If

			Query = "exec SPM株主資本等変動計算書書式挿入 '" & GB_SystemCD & "',"
			Query = Query & "'" & EnshuCD & "'"
			Query = Query & ",'" & SyukeiCD & "'"
			Query = Query & ",'" & SyukeiNM0 & "'"
			Query = Query & ",'" & SyukeiNM1 & "'"
			Query = Query & ",'" & SyukeiNM2 & "'"
			Query = Query & ",'" & SyukeiNM3 & "'"
			Query = Query & ",'" & SyukeiNM4 & "'"
			Query = Query & ",'" & PMKubun & "'"
			Query = Query & ",'" & Linesu & "'"
			Query = Query & ",'" & UnderLine & "'"
			Query = Query & ", " & ii + 1
	   		Set Content = ExecQuery(db, Query)	

	    End If
	Next


	Query = "exec SPM株主資本等変動計算書書式更新 '" & GB_SystemCD & "',"
	Query = Query & "'" & EnshuCD & "'"

   	Set Content = ExecQuery(db, Query)

	Response.Redirect("fm_stockholder_equity_view.asp")

End Sub
%>