
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称	：預金通帳のレコード強制削除
'   作成日	：2009/7/15
'   作成者	：小野
'   目的	：預金通帳からレコードを強制削除する
'   概要	：

'※削除機能を使うと残った行が再挿入されて書類との紐付けが切れてしまうので
'※削除機能は封印する。今後一切使ってはダメ！組戻しを使うこと！（180528小野）

'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim GinkoCD, KozaKubun, KozaBango
	Dim RouteType
	RouteType = Request("RouteType")
	GinkoCD = Request("GinkoCD")
	KozaKubun = Request("KozaKubun")
	KozaBango = Request("KozaBango")

	Dim bCheck
	bCheck = 0
	Dim db
	Set db = InitQuery()

	Dim ii

	Dim SendValue, TmpValue1, TmpValue2 
	SendValue = Request("SendValue")
	TmpValue1 = split(SendValue, ";")
'Response.Write(SendValue)
'Exit Sub

	For ii = 0 To UBound(TmpValue1) - 1

		TmpValue2 = split(TmpValue1(ii), ",")
		
		Dim Syoribi, Nyukin, Syukin, Zandaka, TorihikiKubun, Tekiyo
		Syoribi = TmpValue2(0)
		Nyukin = TmpValue2(1)
		Syukin = TmpValue2(2)
		Zandaka = TmpValue2(3)
		TorihikiKubun = TmpValue2(4)
		Tekiyo = TmpValue2(5)	

		If Nyukin = "" Then
			Nyukin = 0
		End If
		If Syukin = "" Then
			Syukin = 0
		End If

		Nyukin = CCur(Nyukin)
		Syukin = CCur(Syukin)
		If Syoribi <> "" Then
			Query = "exec SPB銀行口座入出金通帳挿入"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"			'銀行CD
			Query = Query & ",'" & KozaKubun & "'"				'口座区分
			Query = Query & ",'" & KozaBango & "'"				'口座番号
			Query = Query & ",1"
			Query = Query & ",'" & Syoribi & "'"			'処理日
			Query = Query & "," & Nyukin + Syukin				'金額
			Query = Query & ",'" & ConvRevKubunMeisyo("銀行取引区分", TorihikiKubun) & "'"	'銀行取引区分
			Query = Query & ",'" & Tekiyo & "'"			'摘要
			Query = Query & ",'" & GakuseiNo & "'"			'学生番号
'Response.Write(Query)
'Exit Sub

			Set Content = ExecQuery(db, Query)	
		End If
		bCheck = 1
	Next

'Exit Sub

	Query = "exec SPB銀行口座入出金通帳更新"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
	Query = Query & ",'" & KaisyaCD & "'"			'銀行CD
	Query = Query & ",'" & KozaKubun & "'"				'口座区分
	Query = Query & ",'" & KozaBango & "'"				'口座番号

	Set Content = ExecQuery(db, Query)

	Response.Redirect(Replace(Request.ServerVariables("URL"), "_bin.asp", ".asp") & "?RouteType=" & RouteType & "&BackGinkoCD=" & KaisyaCD & "&GinkoCD=" & KaisyaCD & "&KozaKubun=" & KozaKubun & "&KozaBango=" & KozaBango)

End Sub
%>