
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：銀行受付処理
'	作成日：2002/10/18
'	作成者：山崎
'	目的　：銀行の受け付け処理をする。
'	概要	：
'	 <<表示>>
'	・無し
'
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Mode
	Mode = Request("Mode")
	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	Dim MotoGinkoCD
	MotoGinkoCD = Request("MotoGinkoCD")
	Dim SakiGinkoCD
	SakiGinkoCD = Request("SakiGinkoCD")
	Dim MotoKozaKubun
	MotoKozaKubun = Request("MotoKozaKubun")
	Dim SakiKozaKubun
	SakiKozaKubun = Request("SakiKozaKubun")
	Dim MotoKozaBango
	MotoKozaBango = Request("MotoKozaBango")
	Dim SakiKozaBango
	SakiKozaBango = Request("SakiKozaBango")
	Dim MotoKingaku
	MotoKingaku = Request("MotoKingaku")
	Dim SakiKingaku
	SakiKingaku = Request("SakiKingaku")
	Dim MoushikomiCD
	MoushikomiCD = Request("MoushikomiCD")
	Dim CancelShoribi
	CancelShoribi = Request("CancelShoribi")

	Dim ID
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, TorihikisakiCD, UketsukeKubun , Tekiyo
	Dim Query, Content, Content2, Content3
	Dim FurikomisakiGinkoCD, FurikomisakiKozaKubun, FurikomisakiKozaBango, Tesuryo

	Dim BunsyoNaiyoCD, KozaKubun, Moshikomibi, AnsyoBango, KingakuA, KingakuB
	Dim KozaBango, KozaBangoA, KozaBangoB, SyukinKozaBango
	Dim Syoribi, BunsyoSyuruiCD
	Dim TegataFuridashininCD, TegataSyuruiKubun, TegataBunsyoNaiyoCD
	Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku

	Dim HenshinSyoribi, HenshinUketsukeKubun, HenshinWaribikiRiritsu, HenshinWaribikiRiritsuTekiyoNissu, HenshinWaribikiRisokuKingaku, HenshinTekiyo
	Dim TegataKozaBango, TegataShiharaiKijitsu
	Dim ZandakaShomeiTesuryo

'###############################################	 １．データの引継ぎ
	Dim GinkoTorihikiKubun, GenkinTorihikiKubun
	Dim TegataKingaku
	Dim GinkoCD, KozaGinkoCD
	Dim KozaBangoS



	GinkoCD = KaisyaCD
	'ヘッダ部

	KozaBangoS = Request("KozaBangoS")
	KozaBangoA = Request("KozaBangoA")
	KozaBangoB = Request("KozaBangoB")
	SyukinKozaBango = Request("SyukinKozaBango")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")

	HenshinSyoribi = Request("HenshinSyoribi")
	HenshinUketsukeKubun = Request("HenshinUketsukeKubun")
'Response.Write(HenshinUketsukeKubun)
'Exit Sub

	KingakuA = ConvMoneyToInt(Request("KingakuA"))
	KingakuB = ConvMoneyToInt(Request("KingakuB"))

	HenshinWaribikiRiritsu = ConvMoneyToInt(Request("HenshinWaribikiRiritsu"))
	HenshinWaribikiRiritsuTekiyoNissu = Request("HenshinWaribikiRiritsuTekiyoNissu")
	HenshinWaribikiRisokuKingaku = ConvMoneyToInt(Request("HenshinWaribikiRisokuKingaku"))
	HenshinTekiyo = Request("HenshinTekiyo")


	TorihikisakiCD = Request("TorihikisakiCD")

	FurikomisakiGinkoCD = Request("FurikomisakiGinkoCD")
	FurikomisakiKozaKubun = Request("FurikomisakiKozaKubun")
	FurikomisakiKozaBango = Request("FurikomisakiKozaBango")
	Tesuryo = ConvMoneyToInt(Request("Tesuryo"))

	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	KozaKubun = Request("KozaKubun")
	Moshikomibi = Request("Moshikomibi")
	AnsyoBango = Request("AnsyoBango")
	Tekiyo = Request("Tekiyo")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")

	TegataFuridashininCD = Request("TegataFuridashininCD")
	TegataSyuruiKubun = Request("TegataSyuruiKubun")
	TegataBunsyoNaiyoCD = Request("TegataBunsyoNaiyoCD")

	Dim GinkoTegataToriWari
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動")
		ZandakaShomeiTesuryo = Content.Fields("残高証明書手数料")
	End If
	If "" & ZandakaShomeiTesuryo = "" Then
		ZandakaShomeiTesuryo = 0
	End If


	'組み戻し処理（演習管理機能として新設されたため非利用）
	If Mode = "Cancel" Then
		If BunsyoSyuruiCD = "BR" Then
			'出金口座の出金レコードを削除
			Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & MotoGinkoCD & "', '" & MotoKozaKubun & "', '" & MotoKozaBango & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("銀行取引区分") = "KS" And "" & Content.Fields("金額") = MotoKingaku And "" & Content.Fields("処理日") = CancelShoribi Then
					Query = "exec SPB銀行口座入出金削除 '" & GB_SystemCD & "','" & EnshuCD & "', '" & MotoGinkoCD & "', '" & MotoKozaKubun & "', '" & MotoKozaBango & "', '" & Content.Fields("入出金CD") & "'"
					Set Content2 = OpenQuery(Query)
					Exit Do
				End If
				Content.MoveNext
			Loop
			'入金口座の入金レコードを削除
			Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & SakiGinkoCD & "', '" & SakiKozaKubun & "', '" & SakiKozaBango & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("銀行取引区分") = "KN" And "" & Content.Fields("金額") = SakiKingaku And "" & Content.Fields("処理日") = CancelShoribi Then
					Query = "exec SPB銀行口座入出金削除 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SakiGinkoCD & "', '" & SakiKozaKubun & "', '" & SakiKozaBango & "', '" & Content.Fields("入出金CD") & "'"
					Set Content2 = OpenQuery(Query)
					Exit Do
				End If
				Content.MoveNext
			Loop
			'申込会社銀行書類・受発信文書を削除
			Query = "exec SPB銀行取引書類削除"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
			Query = Query & ",'" & MoushikomiCD & "'"	'申込会社CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Sub
			Set Content = OpenQuery(Query)
			'銀行側銀行書類・受発信文書を削除
			Query = "exec SPB銀行取引書類削除"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
		End If
		Response.Redirect("fb_uketsukesyori_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=")
	End If


	Dim GinkoMadoguchiHyoji
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		GinkoMadoguchiHyoji = "" & Content.Fields("銀行窓口表示")
	End If

	Dim SyukinGinkoCD, SyukinKozaKubun


	'会社コードにアンダースコアが入っているとSplitで配列がずれるのを修正（141128小野）
	Dim AryCnt

	Dim tmp
	tmp = Split(KozaBangoA, "_")
	If UBound(tmp) > 1 Then
'		KozaGinkoCD = tmp1(0)
'		KozaKubun = tmp1(1)
'		KozaBango = tmp1(2)
		'後から2つはそのまま代入
		KozaBango = tmp(UBound(tmp))
		KozaKubun = tmp(UBound(tmp) - 1)
		'前方の配列は再結合
		For AryCnt = 0 To UBound(tmp) - 2
			If AryCnt > 0 Then
				KozaGinkoCD = KozaGinkoCD & "_"
			End If
			KozaGinkoCD = KozaGinkoCD & tmp(AryCnt)
		Next
	End If

	tmp = Split(KozaBangoB, "_")
	If UBound(tmp) > 1 Then
'		SyukinGinkoCD = tmp1(0)
'		SyukinKozaKubun = tmp1(1)
'		SyukinKozaBango = tmp1(2)
		'後から2つはそのまま代入
		SyukinKozaBango = tmp(UBound(tmp))
		SyukinKozaKubun = tmp(UBound(tmp) - 1)
		'前方の配列は再結合
		For AryCnt = 0 To UBound(tmp) - 2
			If AryCnt > 0 Then
				SyukinGinkoCD = SyukinGinkoCD & "_"
			End If
			SyukinGinkoCD = SyukinGinkoCD & tmp(AryCnt)
		Next
	End If

	tmp = Split(KozaBangoB , "_")
	If UBound(tmp) > 1 Then
'		FurikomisakiGinkoCD = tmp1(0)
'		FurikomisakiKozaKubun = tmp1(1)
'		FurikomisakiKozaBango = tmp1(2)
		'後から2つはそのまま代入
		FurikomisakiKozaBango = tmp(UBound(tmp))
		FurikomisakiKozaKubun = tmp(UBound(tmp) - 1)
		'前方の配列は再結合
		For AryCnt = 0 To UBound(tmp) - 2
			If AryCnt > 0 Then
				FurikomisakiGinkoCD = FurikomisakiGinkoCD & "_"
			End If
			FurikomisakiGinkoCD = FurikomisakiGinkoCD & tmp(AryCnt)
		Next
	End If

	If HenshinWaribikiRiritsu = "" Then
		HenshinWaribikiRiritsu = "null"
	End If
	If HenshinWaribikiRiritsuTekiyoNissu = "" Then
		HenshinWaribikiRiritsuTekiyoNissu = "null"
	End If
	If HenshinWaribikiRisokuKingaku = "" Then
		HenshinWaribikiRisokuKingaku = "null"
	End If
	If HenshinSyoribi = "" Then
		HenshinSyoribi = Moshikomibi
	End If

	TegataKingaku = ConvMoneyToInt(Request("TegataKingaku"))
	TegataShiharaiKijitsu = Request("TegataShiharaiKijitsu")


	If KingakuA = "" Then
		KingakuA = "0"
	End If

	If KingakuB = "" Then
		KingakuB = "0"
	End If
	If Tesuryo = "" Then
		Tesuryo = "0"
	End If
	If TegataKingaku = "" Then
		TegataKingaku = "0"
	End If
	


	Dim MoveKingaku
	MoveKingaku = KingakuA
	''''当座の場合（小切手の場合）は小切手の金額に振込み手数料が含まれているので、ここで引いている。

	Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担")
		FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担")
	End If

	Dim FurikomiTesuryoFutanKubun
	If KozaKubun = "T" Then
		FurikomiTesuryoFutanKubun = FurikomiTesuryoTozaFutanKubun
	Else
		FurikomiTesuryoFutanKubun = FurikomiTesuryoHiTozaFutanKubun
	End If

	If FurikomiTesuryoFutanKubun = "0" Then
		MoveKingaku = MoveKingaku - Tesuryo
	End If


	'残高証明書手数料の引落し口座（当座）
	If BunsyoSyuruiCD = "BU" Then
		KozaKubun = "T"
		KozaBango = ""
		Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TorihikisakiCD & "', '" & GinkoCD	& "', ''"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("口座区分") = KozaKubun Then
				KozaBango = Content.Fields("口座番号")
			End If
			Content.MoveNext
		Loop
	End If

	If HenshinUketsukeKubun = "Y" Then
		If BunsyoSyuruiCD = "BN" Then
			If KozaKubun = "T" Then
				Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TorihikisakiCD & "', '" & GinkoCD & "', '" & KozaKubun & "'"
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					Response.Write("当座口座はすでに開設済みです<br>")
					Response.Write("受付不可にして返信して下さい")
					Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
					Exit Sub
				End If
			End If
			'口座番号手入力の際の重複チェック
			If KozaBangoS <> "" Then
				Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & GinkoCD & "', ''"
				Set Content = OpenQuery(Query)
				Do While Not(Content.BOF Or Content.EOF)
					If "" & Content.Fields("口座番号") = KozaBangoS Then
						Response.Write("入力された口座番号はすでに使用中です<br>")
						Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
						Exit Sub
					End If
					Content.MoveNext
				Loop
			End If
		ElseIf BunsyoSyuruiCD <> "BU" Then
			Query = "exec SPB銀行口座取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KozaGinkoCD & "', '" & KozaKubun & "', '" & KozaBango & "'"
			Set Content = OpenQuery(Query)
			If Content.BOF Or Content.EOF Then
				Response.Write("該当口座は登録されていません<br>")
				Response.Write("受付不可にして返信して下さい")
				Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
				Exit Sub
			End If
		End If



		If BunsyoSyuruiCD = "BR" Or BunsyoSyuruiCD = "BS" Or BunsyoSyuruiCD = "BT" Then

			If BunsyoSyuruiCD = "BS" Then
				HenshinSyoribi = TegataShiharaiKijitsu
			End If

			If TegataBunsyoNaiyoCD <> "" Then
				Query = "exec SPK手形発信"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"		'演習CD
				Query = Query & ",'" & TorihikisakiCD & "'"	'会社CD
				Query = Query & ",'" & TegataFuridashininCD & "'"	'作成会社CD
				Query = Query & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
				Query = Query & ",'" & TegataBunsyoNaiyoCD & "'"
				Query = Query & ",''"
				Query = Query & ",3"
				Query = Query & ",'" & HenshinSyoribi & "'"
				Query = Query & ",''"

				Set Content = OpenQuery(Query)
			End If
		End If



		If BunsyoSyuruiCD = "BN" Then	'口座開設
			Query = "exec SPB銀行口座挿入"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & TorihikisakiCD	& "'"		'会社CD
			Query = Query & ",'" & GinkoCD & "'"			'銀行CD
			Query = Query & ",'" & KozaKubun & "'"				'口座区分
			Query = Query & ",'" & KozaBangoS & "'"				'口座番号
			Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
			Query = Query & ",'" & AnsyoBango & "'"				'暗証番号
			Query = Query & "," & KingakuA				'金額
			Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
			Query = Query & ",'" & GakuseiNo & "'"			'学生番号
			Set Content = OpenQuery(Query)

			KozaGinkoCD = GinkoCD


			While Not Content Is Nothing
				If Content.Fields.Count > 0 Then
					KozaBango = Content.Fields(0)
				End If
				Set Content = Content.NextRecordset
			Wend

			GenkinTorihikiKubun = ""
			GinkoTorihikiKubun = "GN"

		ElseIf BunsyoSyuruiCD = "BO" Then	'入金


			GinkoTorihikiKubun = "GN"
		ElseIf BunsyoSyuruiCD = "BP" Then	'出金


			GinkoTorihikiKubun = "GS"
		ElseIf BunsyoSyuruiCD = "BQ" Then	'振込

			GinkoTorihikiKubun = "FN"
			Query = "exec SPB銀行口座入出金挿入"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & FurikomisakiGinkoCD & "'"	'銀行CD
			Query = Query & ",'" & FurikomisakiKozaKubun & "'"	'口座区分
			Query = Query & ",'" & FurikomisakiKozaBango & "'"	'口座番号
			Query = Query & ",1"
			Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
			Query = Query & "," & KingakuB				'金額
			Query = Query & ",'" & GinkoTorihikiKubun	& "'"	'銀行取引区分
			Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
			Query = Query & ",'" & GakuseiNo & "'"			'学生番号
			Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
			Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
			Set Content = OpenQuery(Query)


			GinkoTorihikiKubun = "FS"
			Query = "exec SPB銀行口座入出金挿入"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KozaGinkoCD & "'"			'銀行CD
			Query = Query & ",'" & KozaKubun & "'"				'口座区分
			Query = Query & ",'" & KozaBango & "'"				'口座番号
			Query = Query & ",1"
			Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
			Query = Query & "," & KingakuA				'金額
			Query = Query & ",'" & GinkoTorihikiKubun	& "'"	'銀行取引区分
			Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
			Query = Query & ",'" & GakuseiNo & "'"			'学生番号
			Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
			Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
			Set Content = OpenQuery(Query)

			If Tesuryo <> "" And Tesuryo <> 0 Then
				GinkoTorihikiKubun = "FT"
				Query = "exec SPB銀行口座入出金挿入"
				Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
				Query = Query & ",'" & KozaGinkoCD & "'"			'銀行CD
				Query = Query & ",'" & KozaKubun & "'"				'口座区分
				Query = Query & ",'" & KozaBango & "'"				'口座番号
				Query = Query & ",1"
				Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
				Query = Query & "," & Tesuryo				'金額
				Query = Query & ",'" & GinkoTorihikiKubun	& "'"	'銀行取引区分
				Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
				Query = Query & ",'" & GakuseiNo & "'"			'学生番号
				Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
				Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
				Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
				Set Content = OpenQuery(Query)
			End If

			GinkoTorihikiKubun = ""

		ElseIf BunsyoSyuruiCD = "BR" Then	'小切手
			GinkoTorihikiKubun = "KS"
			Query = "exec SPB銀行口座入出金挿入"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & SyukinGinkoCD & "'"			'銀行CD
			Query = Query & ",'" & SyukinKozaKubun & "'"				'口座区分
			Query = Query & ",'" & SyukinKozaBango & "'"				'口座番号
			Query = Query & ",1"
			Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
			Query = Query & "," & KingakuA				'金額
			Query = Query & ",'" & GinkoTorihikiKubun	& "'"	'銀行取引区分
			Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
			Query = Query & ",'" & GakuseiNo & "'"			'学生番号
			Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
			Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
			Set Content = OpenQuery(Query)
			GinkoTorihikiKubun = "KN"

		ElseIf BunsyoSyuruiCD = "BS" Then	'手形取立
			GinkoTorihikiKubun = ""
			'手形満期日が会計終了日より前なら出金する
			If DateDiff("d", GB_KaikeiSyuryobi, TegataShiharaiKijitsu) <= 0 Then
				'銀行手形取立割引手動なら出金しない（090930小野）
				If GinkoTegataToriWari <> "1" Then
					'手形出金
					GinkoTorihikiKubun = "TS"
					Query = "exec SPB銀行口座入出金挿入"
					Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
					Query = Query & ",'" & SyukinGinkoCD & "'"			'銀行CD
					Query = Query & ",'" & SyukinKozaKubun & "'"				'口座区分
					Query = Query & ",'" & SyukinKozaBango & "'"				'口座番号
					Query = Query & ",1"
					Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
					Query = Query & "," & KingakuB				'金額
					Query = Query & ",'" & GinkoTorihikiKubun	& "'"	'銀行取引区分
					Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
					Query = Query & ",'" & GakuseiNo & "'"			'学生番号
					Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
					Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
					Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
					Set Content = OpenQuery(Query)
				End If
				GinkoTorihikiKubun = "TN"
			End If

		ElseIf BunsyoSyuruiCD = "BT" Then	'手形割引
			GinkoTorihikiKubun = "TS"
			'手形満期日が会計終了日より前なら出金する（090930小野）
			If DateDiff("d", GB_KaikeiSyuryobi, TegataShiharaiKijitsu) <= 0 Then
				'銀行手形取立割引手動なら出金しない（090930小野）
				If GinkoTegataToriWari <> "1" Then
					'手形出金
					Query = "exec SPB銀行口座入出金挿入"
					Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
					Query = Query & ",'" & SyukinGinkoCD & "'"			'銀行CD
					Query = Query & ",'" & SyukinKozaKubun & "'"				'口座区分
					Query = Query & ",'" & SyukinKozaBango & "'"				'口座番号
					Query = Query & ",1"
					Query = Query & ",'" & TegataShiharaiKijitsu & "'"			'処理日
					Query = Query & "," & TegataKingaku				'金額
					Query = Query & ",'" & GinkoTorihikiKubun	& "'"	'銀行取引区分
					Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
					Query = Query & ",'" & GakuseiNo & "'"			'学生番号
					Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
					Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
					Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
					Set Content = OpenQuery(Query)
				End If
				GinkoTorihikiKubun = "TN"
			End If
		End If

		If GinkoTorihikiKubun <> "" Then
			'銀行手形取立割引手動なら手形取立の入金は行わない（090930小野）
			If GinkoTegataToriWari <> "1" Or BunsyoSyuruiCD <> "BS" Then
				Query = "exec SPB銀行口座入出金挿入"
				Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"				'演習CD
				Query = Query & ",'" & KozaGinkoCD & "'"			'銀行CD
				Query = Query & ",'" & KozaKubun & "'"				'口座区分
				Query = Query & ",'" & KozaBango & "'"				'口座番号
				Query = Query & ",1"
				Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
				Query = Query & "," & KingakuA				'金額
				Query = Query & ",'" & GinkoTorihikiKubun	& "'"	'銀行取引区分
				Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
				Query = Query & ",'" & GakuseiNo & "'"			'学生番号
				Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
				Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
				Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
				Set Content = OpenQuery(Query)
			End If
		End If


		'残高証明書発行手数料
		If BunsyoSyuruiCD = "BU" Then
			If ZandakaShomeiTesuryo > 0 And KozaBango <> "" Then
				'HenshinTekiyo = "残高証明書発行"
				GinkoTorihikiKubun = "ZT"
				Query = "exec SPB銀行口座入出金挿入"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"		'演習CD
				Query = Query & ",'" & GinkoCD & "'"					'銀行CD
				Query = Query & ",'" & KozaKubun & "'"					'口座区分
				Query = Query & ",'" & KozaBango & "'"					'口座番号
				Query = Query & ",1"
				Query = Query & ",'" & HenshinSyoribi & "'"				'処理日
				Query = Query & "," & ZandakaShomeiTesuryo						'金額
				Query = Query & ",'" & GinkoTorihikiKubun	& "'"			'銀行取引区分
				Query = Query & ",'" & HenshinTekiyo & "'"				'摘要
				Query = Query & ",'" & GakuseiNo & "'"					'学生番号
				Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
				Query = Query & ",'" & BunsyoSyuruiCD & "'"		'結果通知種類CD
				Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
				Set Content = OpenQuery(Query)
			End If
		End If


	'不受理の場合
	Else
		'引出・振込の小切手返却
		If BunsyoSyuruiCD = "BP" Or BunsyoSyuruiCD = "BQ" Then
			If TegataSyuruiKubun <> "" And TegataBunsyoNaiyoCD <> "" Then
				Query = "exec SPK手形発信"
				Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
				Query = Query & ",'" & TorihikisakiCD & "'"	'会社CD
				Query = Query & ",'" & TegataFuridashininCD & "'"	'会社CD
				Query = Query & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
				Query = Query & ",'" & TegataBunsyoNaiyoCD & "'"
				Query = Query & ",''"
				Query = Query & ",0"
				Query = Query & ",'" & HenshinSyoribi & "'"
				Query = Query & ",'TG'"
				Set Content = OpenQuery(Query)
			End If
		End If
		'小切手入金・手形取立・手形割引の手形・小切手返却
		If BunsyoSyuruiCD = "BR" Or BunsyoSyuruiCD = "BS" Or BunsyoSyuruiCD = "BT" Then
			If TegataSyuruiKubun <> "" And TegataBunsyoNaiyoCD <> "" Then
				Query = "exec SPK手形発信"
				Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
				Query = Query & ",'" & TorihikisakiCD & "'"	'会社CD
				Query = Query & ",'" & TegataFuridashininCD & "'"	'会社CD
				Query = Query & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
				Query = Query & ",'" & TegataBunsyoNaiyoCD & "'"
				Query = Query & ",''"
				Query = Query & ",-1"
				Query = Query & ",'" & HenshinSyoribi & "'"
				Query = Query & ",''"
				Set Content = OpenQuery(Query)
			End If
		End If
	End If

	If Tesuryo = "" Then
		Tesuryo = "null"
	End If



'###############################################	 ？．ストアドプロシージャ-実行

	Query = "exec SPB銀行取引書類挿入2"
	Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"					'演習CD
	Query = Query & ",'" & GinkoCD & "'"				'会社CD
	Query = Query & ",'" & GinkoCD & "'"				'作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"
	Query = Query & ",''"
	Query = Query & ",'S'"
	Query = Query & ",'" & TorihikisakiCD & "'"				'取引先CD
	Query = Query & ",'" & KozaKubun & "'"					'口座区分
	Query = Query & ",'" & KozaBango & "'"					'口座番号
	Query = Query & ",'" & AnsyoBango & "'"					'暗証番号
	Query = Query & ", " & KingakuA					'金額
	Query = Query & ",'" & HenshinSyoribi & "'"				'処理日
	Query = Query & ",'" & HenshinUketsukeKubun & "'"		'受付区分
	Query = Query & ",'" & HenshinTekiyo & "'"				'摘要

	Query = Query & ", '" & FurikomisakiGinkoCD & "'"		'振込先銀行CD
	Query = Query & ", '" & FurikomisakiKozaKubun & "'"		'振込先口座区分
	Query = Query & ", '" & FurikomisakiKozaBango & "'"		'振込先口座番号
	Query = Query & ", ''"		'振込先会社CD’’’’’’’’’’’’’’’’’’’’

	Query = Query & ", " & KingakuB					'振込入金金額’’’’’’’’’’’’’’’’’’’’
	Query = Query & ", " & Tesuryo					'振込手数料’’’’’’’’’’’’’’’’’’’’

	Query = Query & ", '" & KozaGinkoCD & "'"		'振込元銀行CD	11/11/21追加
	Query = Query & ", '" & KozaKubun & "'"		'振込元口座区分	11/11/21追加
	Query = Query & ", '" & KozaBango & "'"		'振込元口座番号	11/11/21追加

	Query = Query & ", '" & SyukinGinkoCD & "'"		'手形出金銀行CD
	Query = Query & ", '" & SyukinKozaKubun & "'"		'手形出金口座区分
	Query = Query & ", '" & SyukinKozaBango & "'"		'手形出金口座番号
	Query = Query & ", '" & KingakuB & "'"					'手形出金金額

	Query = Query & ", '" & TegataFuridashininCD & "'"		'手形振出人CD
	Query = Query & ", '" & TegataSyuruiKubun & "'"			'文書種類CD
	Query = Query & ", '" & TegataBunsyoNaiyoCD & "'"					'手形番号


	Query = Query & ",'" & TegataShiharaiKijitsu & "'"					'支払期日
	Query = Query & ", " & TegataKingaku & ""		'手形金額

	Query = Query & ", " & HenshinWaribikiRiritsu					'割引利率
	Query = Query & ", " & HenshinWaribikiRiritsuTekiyoNissu		'割引利率適用日数
	Query = Query & ", " & HenshinWaribikiRisokuKingaku			'割引利息金額

	Query = Query & ",'" & Moshikomibi & "'"					'先方処理日
	Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"			'先方文書種類CD
	Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"			'先方文書内容CD
	Query = Query & ",'" & Tekiyo & "'"						'先方摘要
	Query = Query & ",'" & GakuseiNo & "'"				'学生番号
	Set Content = OpenQuery(Query)
	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			ID = Content.Fields(0)
		End If
		Set Content = Content.NextRecordset
	Wend


	'TGB銀行口座入出金TRNの結果通知内容CDを銀行側書類の文書内容CDに更新する
	Query = ""
	Query = Query & " UPDATE TGB銀行口座入出金TRN "
	Query = Query & " SET 結果通知内容CD = '" & ID & "' "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND 結果通知銀行CD = '" & GinkoCD & "' "
	Query = Query & " 	AND 結果通知種類CD = '" & BunsyoSyuruiCD & "' "
	Query = Query & " 	AND 結果通知内容CD = '" & KozaBango & "' " '入出金時点で仮に口座番号を入れてある
	Set Content = OpenQuery(Query)


	'銀行手形取立割引自動なら入出金フラグを立てる（090930小野）
	If GinkoTegataToriWari <> "1" Then
		Query = "exec SPB銀行取引書類入出金フラグ適用 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & GinkoCD & "', '" & BunsyoSyuruiCD & "', '" & ID & "'"
		Set Content = OpenQuery(Query)
	End If


	If GinkoMadoguchiHyoji <> "1" Then
		Query = "exec SPB銀行取引書類発信2"	'銀行窓口を使わない演習は受発信文書を作らない
	Else
		Query = "exec SPB銀行取引書類発信"
	End If
	Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"					'演習CD
	Query = Query & ",'" & GinkoCD & "'"				'会社CD
	Query = Query & ",'" & GinkoCD & "'"				'作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"
	Query = Query & ",'" & ID & "'"
	Query = Query & ",'" & HenshinSyoribi & "'"				'処理日
	Query = Query & ",'" & GakuseiNo & "'"				'学生番号
	Set Content = OpenQuery(Query)


	Query = "exec SPB銀行取引書類返信済みフラグ適用"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
	Query = Query & ",'" & KaisyaCD & "'"				'会社CD
	Query = Query & ",'" & TorihikisakiCD & "'"				'作成会社CD
	Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"
	Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
	Set Content = OpenQuery(Query)



'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fb_uketsukesyori_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & ID)

End Sub
%>