
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'	 名称	：株主資本等変動計算書の更新処理
'	 作成日	：2007/1/29
'	 作成者	：小野
'	 目的	：株主資本等変動計算書を更新する
'	 概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
   	Dim Content


	Dim RouteType
	RouteType = Request("RouteType")
	Dim Url 
	Url = Request.ServerVariables("URL")

	Dim bCheck
	bCheck = 0
	Dim db
	Set db = InitQuery()
		
	Dim ii

	Dim PreShukeiBunrui1
	Dim PreShukeiBunrui2
	Dim PreShukeiBunrui3
	PreShukeiBunrui1 = ""
	PreShukeiBunrui2 = ""
	PreShukeiBunrui3 = ""

	Dim SendValue, TmpValue1, TmpValue2 
	SendValue = Request("SendValue")	'スプレッドシート引数
	TmpValue1 = split(SendValue, ";")	'行で分解
	For ii = 0 To UBound(TmpValue1) - 1

		TmpValue2 = split(TmpValue1(ii), ",")	'列で分解

		'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）
		Dim iii
		For iii = 0 To UBound(TmpValue2) - 1
			TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",")
			TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";")
		Next
		'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）

		Dim ShukeiBunrui1
		Dim ShukeiBunrui2
		Dim ShukeiBunrui3
		Dim ShukeiKubun
		Dim HendougakuSaimoku
		Dim PlusMinus
		Dim Kingaku
		ShukeiBunrui1 = "" & TmpValue2(0)
		ShukeiBunrui2 = "" & TmpValue2(1)
		ShukeiBunrui3 = "" & TmpValue2(2)
		ShukeiKubun = "" & TmpValue2(3)
		HendougakuSaimoku = "" & TmpValue2(4)
		PlusMinus = "" & TmpValue2(5)
		Kingaku = TmpValue2(6)
		If Kingaku = "" Then
			Kingaku = "0"
		End If

		If ShukeiKubun = "前期末残高" Then
			ShukeiKubun = "1"
		Else
			ShukeiKubun = "2"
		End If

		If PlusMinus <> "-" Then
			PlusMinus = "+"
		End If

		Query = "exec SPK帳簿_株主資本等変動計算書挿入 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",'" & ShukeiBunrui1 & "'"
		Query = Query & ",'" & ShukeiBunrui2 & "'"
		Query = Query & ",'" & ShukeiBunrui3 & "'"
		Query = Query & ",'" & ShukeiKubun & "'"
		Query = Query & ",'" & HendougakuSaimoku & "'"
		Query = Query & ",'" & PlusMinus & "'"
		Query = Query & "," & Kingaku

	   	Set Content = ExecQuery(db, Query)	
	   	bCheck = 1
	Next


	Query = "exec SPK帳簿_株主資本等変動計算書更新 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Set Content = ExecQuery(db, Query)

	Response.Redirect(Replace(Url, "_bin.asp", "") & "_view.asp?RouteType=" & RouteType)


End Sub
%>