
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：補助簿_受取・支払手形記入帳
'	 作成日：2002/9/15
'	 作成者：川崎
'	 目的　：補助簿_受取手形記入帳、補助簿_支払手形記入帳を更新する
'	 概要	：
'		<<表示>>
'	・無し
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim PageType
	PageType = Request("PageType")

	Dim Label
	If PageType = "Uketori" Then
		Label = "受取手形記入帳"
	Else
		Label = "支払手形記入帳"
	End If

	Dim Query
	Dim UketoriSiharaiTegataTyoCD, Torihikibi, Tekiyo, Kingaku,TegataSyurui, BunsyoNaiyoCD
	Dim SiharaiUketorinin,FuridasiUragakinin,Furidasibi,Mankibi,Siharaibasyo,Tenmatubi,TenmatuTekiyo


	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)
		Tekiyo = TmpValue2(1)
		Kingaku = TmpValue2(2)
		TegataSyurui = ConvRevKubunMeisyo("手形種類略区分", TmpValue2(3))
		BunsyoNaiyoCD = TmpValue2(4)
		SiharaiUketorinin = ConvRevKaisyaRyakuName(TmpValue2(5))
		FuridasiUragakinin = ConvRevKaisyaRyakuName(TmpValue2(6))
		Furidasibi = TmpValue2(7)
		Mankibi = TmpValue2(8)
		Siharaibasyo = ConvRevKaisyaRyakuName(TmpValue2(9))
		Tenmatubi = TmpValue2(10)
		TenmatuTekiyo = TmpValue2(11)

		If Torihikibi = "" Then
			Torihikibi = "null"
		Else
			Torihikibi = "'" & Torihikibi & "'"
		End If

		If Furidasibi = "" Then
			Furidasibi = "null"
		Else
			Furidasibi = "'" & Furidasibi & "'"
		End If

		If Mankibi = "" Then
			Mankibi = "null"
		Else
			Mankibi = "'" & Mankibi & "'"
		End If

		If Tenmatubi = "" Then
			Tenmatubi = "null"
		Else
			Tenmatubi = "'" & Tenmatubi & "'"
		End If


		If TegataSyurui = "" Then
			TegataSyurui = "null"
		End If

		Query = "exec SPK補助簿_" & Label & "挿入 '" & GB_SystemCD & "',"

		Query = Query & "'" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"

		Query = Query & ",''"
		Query = Query & "," & Torihikibi
		Query = Query & ",'" & Tekiyo & "'"
		Query = Query & "," & Kingaku
		Query = Query & ",'" & TegataSyurui & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Query = Query & ",'" & SiharaiUketorinin & "'"
		Query = Query & ",'" & FuridasiUragakinin & "'"
		Query = Query & "," & Furidasibi
		Query = Query & "," & Mankibi
		Query = Query & ",'" & Siharaibasyo & "'"
		Query = Query & "," & Tenmatubi
		Query = Query & ",'" & TenmatuTekiyo & "'"

		Set Content = ExecQuery(db, Query)
	Next

	Query = "exec SPK補助簿_" & Label & "更新 '" & GB_SystemCD & "',"
	Query = Query & "'" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Set Content = ExecQuery(db, Query)

	Response.Redirect("fk_uketorisiharaitegatatyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType)

End Sub
%>