
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'	名称	：製造間接費配賦表
'	作成日	：2016/02/18
'	作成者	：小野
'	概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim HojoboCD, Torihikibi, SashizuSho, HaifuRitsu, HaifuKijun, HaihuGaku, Tekiyo
	Dim PageType
	PageType = Request("PageType")
	Dim RouteType 
	RouteType = Request("RouteType")

	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), ",")

		'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）
		Dim iii
		For iii = 0 To UBound(TmpValue2) - 1
			TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",")
			TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";")
		Next
		'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）

		Torihikibi = TmpValue2(0)
		SashizuSho = TmpValue2(1)
		HaifuRitsu = TmpValue2(2)
		HaifuKijun = TmpValue2(3)
		HaihuGaku = TmpValue2(4)
		Tekiyo = TmpValue2(5)

		If Torihikibi = "" Then
			Torihikibi = "null"
		Else
			Torihikibi = "'" & Torihikibi & "'"
		End If

		If HaifuRitsu = "" Then
			HaifuRitsu = "null"
		End If		
		If HaifuKijun = "" Then
			HaifuKijun = "null"
		End If		
		If HaihuGaku = "" Then
			HaihuGaku = "null"
		End If		


		'テンポラリテーブルに行挿入
		Query = "exec SPK補助簿_製造間接費配賦表挿入 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", ''"
		Query = Query & ", " & Torihikibi
		Query = Query & ", '" & SashizuSho & "'"
		Query = Query & ", " & HaifuRitsu
		Query = Query & ", " & HaifuKijun
		Query = Query & ", " & HaihuGaku
		Query = Query & ", '" & Tekiyo & "'"
		Set Content = ExecQuery(db, Query)

	Next

	'テンポラリテーブルから本テーブルに上書き
	Query = "exec SPK補助簿_製造間接費配賦表更新 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", '" & KaisyaCD & "'"
	Set Content = ExecQuery(db, Query)

	Response.Redirect("fk_seizokansetsuhaifuhyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType)


End Sub
%>