
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：銀行処理ロールバック
'	作成日	：2011/6/19
'	作成者	：小野
'	目的	：銀行処理をロールバックする。
'	概要	：申込自体が存在しない状態に戻す（銀行取引申込書類・銀行口座入出金・銀行口座・手形・小切手）
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim EnshuCD
	EnshuCD = Request("EnshuCD")

	Dim SeitoCD
	SeitoCD = Request("SeitoCD")

	Dim Kubun
	Kubun = Request("Kubun")

	Dim Kekka
	Kekka = Request("Kekka")

	Dim ShoriKubun
	ShoriKubun = Request("ShoriKubun")
	Dim Kingaku
	Kingaku = ConvMoneyToInt(Request("Kingaku"))
	If Kingaku = "" Then
		Kingaku = "0"
	End If

	Dim GinkoCD
	GinkoCD = Request("GinkoCD")
	Dim MoushikomiCD
	MoushikomiCD = Request("MoushikomiCD")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")


	Dim KozaKubun
	Dim KozaBango

	Dim SenpoBunsyoSyuruiCD
	Dim SenpoBunsyoNaiyoCD

	Dim TegataSakuseikaisyaCD
	Dim TegataBunsyoSyuruiCD
	Dim TegataBunsyoNaiyoCD


'額面変更モード		口座開設依頼		口座開設結果通知書
If (BunsyoSyuruiCD = "BA" Or BunsyoSyuruiCD = "BN") And ShoriKubun = "Gakumen" Then
'Response.Write(Kingaku)
'Exit Sub
	If BunsyoSyuruiCD = "BN" Then

		'口座開設入金
		Query = ""
		Query = Query & "  "
		Query = Query & " UPDATE TGB銀行口座入出金TRN "
		Query = Query & " SET 金額 = " & Kingaku & " "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 銀行CD = '" & GinkoCD & "' "
		Query = Query & " 	AND 結果通知銀行CD = '" & GinkoCD & "' "
		Query = Query & " 	AND 結果通知種類CD = '" & BunsyoSyuruiCD & "' "
		Query = Query & " 	AND 結果通知内容CD = '" & BunsyoNaiyoCD & "' "
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)

		'口座開設結果通知書
		Query = ""
		Query = Query & "  "
		Query = Query & " UPDATE TSB銀行取引申込書類F "
		Query = Query & " SET 金額 = " & Kingaku & " "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 作成会社CD = '" & GinkoCD & "' "
		Query = Query & " 	AND 取引先CD = '" & MoushikomiCD & "' "
		Query = Query & " 	AND 文書種類CD = '" & BunsyoSyuruiCD & "' "
		Query = Query & " 	AND 文書内容CD = '" & BunsyoNaiyoCD & "' "
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)

	End If

	BunsyoSyuruiCD = "BA"

	'口座開設依頼書
	Query = ""
	Query = Query & "  "
	Query = Query & " UPDATE TSB銀行取引申込書類F "
	Query = Query & " SET 金額 = " & Kingaku & " "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND 作成会社CD = '" & MoushikomiCD & "' "
	Query = Query & " 	AND 取引先CD = '" & GinkoCD & "' "
	Query = Query & " 	AND 文書種類CD = '" & BunsyoSyuruiCD & "' "
	Query = Query & " 	AND 文書内容CD = '" & BunsyoNaiyoCD & "' "
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)



Else



	'入出金の組戻し
	If Kubun = "1" Then
		Query = "exec SPB銀行口座入出金組戻"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
		Query = Query & ",'" & GinkoCD & "'"		'結果通知銀行CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"	'結果通知種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"	'結果通知内容CD
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)
	End If


	'申込書類の文書種類・文書内容・口座情報・手形情報を取得
	Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & GinkoCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KozaKubun = Content.Fields("口座区分")
		KozaBango = Content.Fields("口座番号")
		SenpoBunsyoSyuruiCD = Content.Fields("先方文書種類CD")
		SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
		TegataSakuseikaisyaCD = Content.Fields("手形作成会社CD")
		TegataBunsyoSyuruiCD = Content.Fields("手形文書種類CD")
		TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")
'Response.Write(SenpoBunsyoSyuruiCD & "：" & SenpoBunsyoNaiyoCD)
'Exit Sub
	Else '銀行側書類から取得できなければ会社側書類から取得(230531小野美)
		Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & MoushikomiCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			KozaKubun = Content.Fields("口座区分")
			KozaBango = Content.Fields("口座番号")
			SenpoBunsyoSyuruiCD = Content.Fields("先方文書種類CD")
			SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
			TegataSakuseikaisyaCD = Content.Fields("手形作成会社CD")
			TegataBunsyoSyuruiCD = Content.Fields("手形文書種類CD")
			TegataBunsyoNaiyoCD = Content.Fields("手形文書内容CD")
'Response.Write(SenpoBunsyoSyuruiCD & "：" & SenpoBunsyoNaiyoCD)
'Exit Sub
		End If
	End If

'Response.Write(TegataSakuseikaisyaCD & "<br>")
'Response.Write(TegataBunsyoSyuruiCD & "<br>")
'Response.Write(TegataBunsyoNaiyoCD & "<br>")
'Exit Sub


	'申込会社銀行書類・受発信文書を削除
	Query = "exec SPB銀行取引書類削除2"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
	Query = Query & ",'" & MoushikomiCD & "'"	'会社CD
	Query = Query & ",'" & GinkoCD & "'"	'作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"
	Query = Query & ",'" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)


	'銀行側銀行書類・受発信文書を削除
	Query = "exec SPB銀行取引書類削除2"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
	Query = Query & ",'" & GinkoCD & "'"	'会社CD
	Query = Query & ",'" & GinkoCD & "'"	'作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"
	Query = Query & ",'" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)


	'銀行側受付書類・受発信文書を削除
	Query = "exec SPB銀行取引書類削除2"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
	Query = Query & ",'" & GinkoCD & "'"	'会社CD
	Query = Query & ",'" & MoushikomiCD & "'"	'作成会社CD
	If SenpoBunsyoSyuruiCD <> "" Then
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
	Else
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
	End If
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)


	'申込会社申込書類・受発信文書を削除
	Query = "exec SPB銀行取引書類削除2"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
	Query = Query & ",'" & MoushikomiCD & "'"	'会社CD
	Query = Query & ",'" & MoushikomiCD & "'"	'作成会社CD
	If SenpoBunsyoSyuruiCD <> "" Then
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
	Else
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
	End If
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)


	'手形・小切手の組戻し（小切手振込・小切手入金・手形取立・手形割引）
	If TegataSakuseikaisyaCD <> "" And TegataBunsyoSyuruiCD <> "" And TegataBunsyoNaiyoCD <> "" Then
		Query = "exec SPK手形組戻 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & TegataSakuseikaisyaCD & "', '" & TegataBunsyoSyuruiCD & "', '" & TegataBunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)
	End If


	'口座削除（口座開設）
	If BunsyoSyuruiCD = "BN" Then
		Query = "exec SPB銀行口座削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & KozaKubun & "', '" & KozaBango & "'"
		Set Content = OpenQuery(Query)
	End If


End If


	'戻り先の調整
	If SenpoBunsyoSyuruiCD <> "" Then
		BunsyoSyuruiCD = SenpoBunsyoSyuruiCD
	End If

'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fm_enshucontrol06.asp?EnshuCD=" & EnshuCD & "&SeitoCD=" & SeitoCD & "&Kubun=" & Kubun & "&Kekka=" & Kekka & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShoriKubun=" & ShoriKubun)

End Sub
%>