
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'	名称	：原価計算表
'	作成日	：2016/02/2
'	作成者	：小野
'	概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim HojoboCD, Torihikibi1, Torihikibi2, Torihikibi3, Torihikibi4, Tekiyo1, Tekiyo2, Tekiyo3, Tekiyo4, Kingaku1, Kingaku2, Kingaku3, Kingaku4
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim PageType
	PageType = Request("PageType")
	Dim RouteType 
	RouteType = Request("RouteType")
	Dim Mode 
	Mode = Request("Mode")

	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), ",")

		Torihikibi1 = TmpValue2(0)
		Torihikibi2 = TmpValue2(3)
		Torihikibi3 = TmpValue2(6)
		Torihikibi4 = TmpValue2(9)
		Tekiyo1 = TmpValue2(1)
		Tekiyo2 = TmpValue2(4)
		Tekiyo3 = TmpValue2(7)
		Tekiyo4 = TmpValue2(10)
		Kingaku1 = TmpValue2(2)
		Kingaku2 = TmpValue2(5)
		Kingaku3 = TmpValue2(8)
		Kingaku4 = TmpValue2(11)

		If Torihikibi1 = "" Then
			Torihikibi1 = "null"
		Else
			Torihikibi1 = "'" & Torihikibi1 & "'"
		End If

		If Torihikibi2 = "" Then
			Torihikibi2 = "null"
		Else
			Torihikibi2 = "'" & Torihikibi2 & "'"
		End If

		If Torihikibi3 = "" Then
			Torihikibi3 = "null"
		Else
			Torihikibi3 = "'" & Torihikibi3 & "'"
		End If

		If Torihikibi4 = "" Then
			Torihikibi4 = "null"
		Else
			Torihikibi4 = "'" & Torihikibi4 & "'"
		End If

		If Kingaku1 = "" Then
			Kingaku1 = "null"
		End If		
		If Kingaku2 = "" Then
			Kingaku2 = "null"
		End If		
		If Kingaku3 = "" Then
			Kingaku3 = "null"
		End If		
		If Kingaku4 = "" Then
			Kingaku4 = "null"
		End If		


		'テンポラリテーブルに行挿入
		Query = "exec SPK補助簿_原価計算表挿入 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", '" & BunsyoNaiyoCD & "'"
		Query = Query & ", null"
		Query = Query & ", " & Torihikibi1
		Query = Query & ", '" & Tekiyo1 & "'"
		Query = Query & ", " & Kingaku1
		Query = Query & ", " & Torihikibi2
		Query = Query & ", '" & Tekiyo2 & "'"
		Query = Query & ", " & Kingaku2
		Query = Query & ", " & Torihikibi3
		Query = Query & ", '" & Tekiyo3 & "'"
		Query = Query & ", " & Kingaku3
		Query = Query & ", " & Torihikibi4
		Query = Query & ", '" & Tekiyo4 & "'"
		Query = Query & ", " & Kingaku4
		Set Content = ExecQuery(db, Query)

	Next

'Exit Sub

	'テンポラリテーブルから本テーブルに上書き
	Query = "exec SPK補助簿_原価計算表更新 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", '" & KaisyaCD & "'"
	Query = Query & ", '" & BunsyoNaiyoCD & "'"
	Set Content = ExecQuery(db, Query)

	Response.Redirect("fk_genkakeisanhyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&Mode=" & Mode & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)


End Sub
%>