
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：銀行窓口受付処理
'	 作成日：2002/10/18
'	 作成者：山崎
'	 目的　：銀行窓口受付の処理
'	 概要	：
'		<<表示>>
'	・無し
'
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim CD
	Dim BunsyoNaiyoCD
	Dim GinkoCD, KozaKubun, Moshikomibi, Kingaku, AnsyoBango, Tekiyo
	Dim KozaBango, BunsyoSyuruiCD
	Dim FurikomisakiKozaBango, FurikomisakiGinkoCD, FurikomisakiKozaKubun, Tesuryo	'BD
	Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo
	Dim Query, Content
	Dim GinkoMoshikomiBunsyoNaiyoCD, GinkoBunsyoNaiyoCD
	Dim HenshinTekiyo, HenshinUketsukeKubun
	Dim tmp
	Dim TegataKozaBango, TegataGinkoCD, TegataShiharaiKijitsu
	Dim FurikomiTesuryoJiko1, FurikomiTesuryoJiko2, FurikomiTesuryoTako1, FurikomiTesuryoTako2, FurikomiTesuryoBorder
	Dim JidoGinkoWaribikiRiritsu
	Dim ZandakaShomeiTesuryo
	Dim FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun
	Dim FurikomisakiKaisyaMeisyo
	Dim Tagata
	Dim TegataShiharaininCD, TegataHikiukeninCD

'###############################################	 １．データの引継ぎ

	Dim GinkoSyoriKubun
	Dim GinkoTegataToriWari
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		GinkoSyoriKubun = Content.Fields("銀行自動処理")
		GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動")
		FurikomiTesuryoJiko1 = Content.Fields("振込手数料低金額自行間")
		FurikomiTesuryoJiko2 = Content.Fields("振込手数料高金額自行間")
		FurikomiTesuryoTako1 = Content.Fields("振込手数料低金額他行間")
		FurikomiTesuryoTako2 = Content.Fields("振込手数料高金額他行間")
		FurikomiTesuryoBorder = Content.Fields("振込手数料高低区切金額")
		JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率")
		FurikomiTesuryoTozaFutanKubun = Content.Fields("振込手数料当座振込元負担")
		FurikomiTesuryoHiTozaFutanKubun = Content.Fields("振込手数料非当座振込元負担")
		ZandakaShomeiTesuryo = Content.Fields("残高証明書手数料")
	End If
	If "" & ZandakaShomeiTesuryo = "" Then
		ZandakaShomeiTesuryo = 0
	End If

	'ヘッダ部
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	GinkoCD = Request("GinkoCD")
	KozaKubun = Request("KozaKubun")
	Moshikomibi = Request("Moshikomibi")
'Response.Write(Moshikomibi)
'Exit Sub
	AnsyoBango = Request("AnsyoBango")
	Kingaku = ConvMoneyToInt(Request("Kingaku"))
	Tekiyo = Request("Tekiyo")
	KozaBango = Request("KozaBango")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	FurikomisakiKozaBango = Request("FurikomisakiKozaBango")	'BD
	TegataFuridashininCD = Request("TegataFuridashininCD")		'BE BF BG
	TegataSyuruiKubun = Request("TegataSyuruiKubun")
	TegataNo = Request("TegataNo")



'発信のみの場合は作成済みの依頼内容を取得する。（180215小野）
If Request("BinType") = "Hasshin" Then

	Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		GinkoMoshikomiBunsyoNaiyoCD = Content.Fields("文書内容CD")
		GinkoCD = Content.Fields("取引先CD")
		KozaKubun = Content.Fields("口座区分")
		KozaBango = Content.Fields("口座番号")
		AnsyoBango = Content.Fields("暗証番号")
		Kingaku = Content.Fields("金額")
		Moshikomibi = SetTimeYYYYMMDD(Content.Fields("処理日"))
		Tekiyo = Content.Fields("摘要")
		FurikomisakiGinkoCD = Content.Fields("振込先銀行CD")
		FurikomisakiKozaKubun = Content.Fields("振込先口座区分")
		FurikomisakiKozaBango = Content.Fields("振込先口座番号")
		TegataFuridashininCD = Content.Fields("手形作成会社CD")
		TegataSyuruiKubun = Content.Fields("手形文書種類CD")
		TegataNo = Content.Fields("手形文書内容CD")
	End If

End If



	If Kingaku = "" Then
		Kingaku = "null"
	Else
		Kingaku= ConvMoneyToInt(Kingaku)
	End If

	If InStr(KozaBango, "_") >= 1 Then
		tmp = split(KozaBango, "_")
		KozaKubun = tmp(0)
		KozaBango = tmp(1)
	End If


	'会社コードにアンダースコアが入っているとSplitで配列がずれるのを修正（141128小野）
	Dim AryCnt

	If InStr(FurikomisakiKozaBango , "_") >= 1 Then
		tmp = Split(FurikomisakiKozaBango , "_")
		'後から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
'		FurikomisakiGinkoCD = tmp(0)
'		FurikomisakiKozaKubun = tmp(1)
'		FurikomisakiKozaBango = tmp(2)
	End If

	If InStr(TegataNo , "_") >= 1 Then
		tmp = Split(TegataNo , "_")
		'後から2つはそのまま代入
		TegataNo = tmp(UBound(tmp))
		TegataSyuruiKubun = tmp(UBound(tmp) - 1)
		'前方の配列は再結合
		For AryCnt = 0 To UBound(tmp) - 2
			If AryCnt > 0 Then
				TegataFuridashininCD = TegataFuridashininCD & "_"
			End If
			TegataFuridashininCD = TegataFuridashininCD & tmp(AryCnt)
		Next
		'TegataFuridashininCD = tmp(0)
		'TegataSyuruiKubun = tmp(1)
		'TegataNo = tmp(2)
	End If


	Dim NextBunsyoSyuruiCD
	If BunsyoSyuruiCD = "BA" Then
		NextBunsyoSyuruiCD = "BN"
	ElseIf BunsyoSyuruiCD = "BB" Then
		NextBunsyoSyuruiCD = "BO"
	ElseIf BunsyoSyuruiCD = "BC" Then
		NextBunsyoSyuruiCD = "BP"
	ElseIf BunsyoSyuruiCD = "BD" Then
		NextBunsyoSyuruiCD = "BQ"
	ElseIf BunsyoSyuruiCD = "BE" Then
		NextBunsyoSyuruiCD = "BR"
	ElseIf BunsyoSyuruiCD = "BF" Then
		NextBunsyoSyuruiCD = "BS"
	ElseIf BunsyoSyuruiCD = "BG" Then
		NextBunsyoSyuruiCD = "BT"
	ElseIf BunsyoSyuruiCD = "BH" Then
		NextBunsyoSyuruiCD = "BU"
	End If

	Dim SakuseiKaisyaCD
	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If






	If Request("BinType") = "Sakujyo" Then
		Query = "exec SPB銀行取引書類削除"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"							'会社CD
		Query = Query & ",'" & KaisyaCD & "'"							'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fb_ginkosyorui_ichiran.asp?GinkoCD=" & GinkoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD)
		Exit Sub
	End if



'発信のみの場合は存在チェックしない。（180215小野）
If Request("BinType") <> "Hasshin" Then

	Query = "exec SPB銀行取引書類取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		Response.Write("この申込番号は存在しています。<br>")
	%>
<!--		<a href="JavaScript:history.go(-1)">戻る</a> -->
		<a href="fb_ginkosyorui.asp?BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&GinkoCD=<% = GinkoCD %>&KozaKubun=<% = KozaKubun %>&Moshikomibi=<% = Moshikomibi %>&AnsyoBango=<% = AnsyoBango %>&Kingaku=<% = Kingaku %>&Tekiyo=<% = Tekiyo %>&KozaBango=<% = KozaBango %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&FurikomisakiKozaBango=<% = FurikomisakiKozaBango %>&TegataNo=<% = TegataNo %>">戻る</a>
	<%
				Exit Sub
	End If

End If



	HenshinUketsukeKubun = "Y"
	HenshinTekiyo = "自動応答で受付"

	'暗証番号チェック
	If (BunsyoSyuruiCD = "BC" OR BunsyoSyuruiCD = "BD") And GB_Gyosyu <> "B" Then	'自社銀行口座の場合は暗証番号不要
		Query = "exec SPB銀行口座取得"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
		Query = Query & ", '" & GinkoCD & "'"								'取引先CD
		Query = Query & ", '" & KozaKubun & "'"								'口座区分
		Query = Query & ", '" & KozaBango &"'"								'口座番号	'BAの場合は空文字列
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			If KozaKubun <> "T" Then
				If UCase(AnsyoBango) <> UCase(Content.Fields("暗証番号")) Then
					HenshinUketsukeKubun = "N"
					HenshinTekiyo = "暗証番号が違います"
				End If
			End If
'			If Kingaku > Content.Fields("残高") Then
'				HenshinUketsukeKubun = "N"
'				HenshinTekiyo = Moshikomibi & "時点での残高が足りません。"
'			End If
		End If
	End If

	'残高証明書手数料の引落し口座（当座）
	If BunsyoSyuruiCD = "BH" Then
		KozaKubun = "T"
		KozaBango = ""
		Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & 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 BunsyoSyuruiCD = "BA" Then

		Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & GinkoCD & "', '" & KozaKubun & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			HenshinUketsukeKubun = "N"
			HenshinTekiyo = "口座はすでに開設済みです"
		End If
	End If


	If BunsyoSyuruiCD = "BC" Or BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then
		Query = "exec SPK手形取得"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
		Query = Query & ",'" & KaisyaCD & "'"						'会社CD
		Query = Query & ",'" & TegataFuridashininCD & "'"				'会社CD
		Query = Query & ",'" & TegataSyuruiKubun & "'"
		Query = Query & ",'" & TegataNo & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			If Content.Fields("発行フラグ") <> 0 Then
				Response.Write("選択された小切手・手形はすでに処理されています。<br>")
				Response.Write("（あなたが依頼書を入力している間に、同じ会社を担当している他の生徒が依頼を行った可能性があります）<br>")
	%>
			<a href="JavaScript:history.go(-1)">戻る</a>
	<%
				Exit Sub
			ElseIf Content.Fields("削除フラグ") <> 0 Then
				Response.Write("選択された小切手・手形は廃棄されました。<br>")
				Response.Write("（あなたが依頼書を入力している間に、同じ会社を担当している他の生徒が廃棄した可能性があります）<br>")
	%>
			<a href="JavaScript:history.go(-1)">戻る</a>
	<%
				Exit Sub
			End If

			Query = "exec SPB銀行口座一覧3"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
			If TegataSyuruiKubun = "TY" Or TegataSyuruiKubun = "TG" Then
				Query = Query & ",'" & TegataFuridashininCD & "'"				'会社CD
			Else
				Query = Query & ",'" & Content.Fields("引受人CD") & "'"				'会社CD
			End If
			Query = Query & ",'" & Content.Fields("支払場所CD") & "'"					'銀行CD
			Query = Query & ",'T'"
			Set Content = OpenQuery(Query)
			If Content.BOF Or Content.EOF Then
				Response.Write("支払人の当座口座が開設されていません。<br>")
	%>
			<a href="JavaScript:history.go(-1)">戻る</a>
	<%
				Exit Sub
			End If
		End If
	End If



'発信のみの場合は挿入しない。（180215小野）
If Request("BinType") <> "Hasshin" Then

	'商社→銀行の書類を作成
	Query = "exec SPB銀行取引書類挿入"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
	Query = Query & ", '" & KaisyaCD & "'"								'会社CD
	Query = Query & ", '" & KaisyaCD & "'"								'作成会社CD
	Query = Query & ", '" & BunsyoSyuruiCD & "'"
	Query = Query & ", '" & BunsyoNaiyoCD & "'"
	Query = Query & ", '" & Moshikomibi & "'"							'処理日
	Query = Query & ", '" & GinkoCD & "'"								'取引先CD
	Query = Query & ", '" & KozaKubun & "'"								'口座区分
	Query = Query & ", '" & KozaBango &"'"								'口座番号	'BAの場合は空文字列
	Query = Query & ", " & Kingaku									'金額
	Query = Query & ", ''"										'受付区分
	Query = Query & ", '" & AnsyoBango & "'"							'暗証番号
	Query = Query & ", '" & FurikomisakiGinkoCD & "'"						'振込先銀行CD
	Query = Query & ", '" & FurikomisakiKozaKubun & "'"						'振込先口座区分
	Query = Query & ", '" & FurikomisakiKozaBango & "'"						'振込先口座番号
	Query = Query & ", null"									'手数料
	Query = Query & ", '" & TegataFuridashininCD & "'"						'手形振出人CD
	Query = Query & ", '" & TegataSyuruiKubun & "'"							'文書種類CD
	Query = Query & ", '" & TegataNo & "'"								'手形番号
	Query = Query & ", null"									'割引利率
	Query = Query & ", null"									'割引利率適用日数
	Query = Query & ", null"									'割引利息金額
	Query = Query & ", null"									'先方処理日
	Query = Query & ", ''"										'先方文書内容CD
	Query = Query & ", ''"										'先方文書種類CD
	Query = Query & ", ''"										'先方摘要
	Query = Query & ", '" & Tekiyo & "'"								'摘要
	Query = Query & ",0,0,0"									'各種フラグ
	Query = Query & ", '" & GakuseiNo & "'"								'学生番号
	Set Content = OpenQuery(Query)
	While Not Content Is Nothing
		If Not(Content.BOF Or Content.EOF) Then
			If Content.Fields.Count > 0 Then
				GinkoMoshikomiBunsyoNaiyoCD = Content.Fields(0)
			End If
		End If
	 	Set Content = Content.NextRecordset
	Wend

End If



If Request("BinType") = "Sakusei" Then

	'作成のみの場合はここで抜ける。（180215小野）
	Response.Redirect("fb_ginkosyorui_view.asp?GinkoCD=" & GinkoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & GinkoMoshikomiBunsyoNaiyoCD)

End If



'ここから発信処理

Call Application.Lock() '多くの挿入処理が発生するためロックする

	'商社→銀行の書類を発信
	If GB_Gyosyu <> "B" Then	'自社銀行口座の場合は発信しない
		Query = "exec SPB銀行取引書類発信"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & KaisyaCD & "'"								'会社CD
		Query = Query & ",'" & KaisyaCD & "'"								'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & GinkoMoshikomiBunsyoNaiyoCD & "'"
		Query = Query & ",'" & Moshikomibi & "'"							'処理日
		Query = Query & ",'" & GakuseiNo & "'"								'学生番号
		Set Content = OpenQuery(Query)
	End If

	'If BunsyoSyuruiCD = "BC" Or BunsyoSyuruiCD = "BD" Then '小切手振込では発信してはならない（121023小野）
	If BunsyoSyuruiCD = "BC" Then
		If TegataSyuruiKubun <> "" And TegataNo <> "" Then
			Query = "exec SPK手形発信"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
			Query = Query & ",'" & KaisyaCD & "'"						'会社CD
			Query = Query & ",'" & TegataFuridashininCD & "'"				'作成会社CD
			Query = Query & ",'" & TegataSyuruiKubun & "'"					'文書種類CD
			Query = Query & ",'" & TegataNo & "'"
			Query = Query & ",''"
			Query = Query & ",1"
			Query = Query & ",'" & Moshikomibi & "'"
			Query = Query & ",'TG'"
			Set Content = OpenQuery(Query)

		End If
	End If


	If BunsyoSyuruiCD = "BE" Then '小切手の場合ここで顛末日付を入れる
		Query = "exec SPK手形発信"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"							'会社CD
		Query = Query & ",'" & TegataFuridashininCD & "'"					'作成会社CD
		Query = Query & ",'" & TegataSyuruiKubun & "'"						'文書種類CD
		Query = Query & ",'" & TegataNo & "'"
		Query = Query & ",'" & GinkoCD & "'"
		Query = Query & ",2"
		Query = Query & ",'" & Moshikomibi & "'"
		Query = Query & ",'TT'"
		Set Content = OpenQuery(Query)
	End If


	'未顛末手形の場合はここで顛末（110624小野）
	If BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then
		Query = "exec SPK手形顛末済一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & GinkoCD & "', ''"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("作成会社CD") = TegataFuridashininCD And "" & Content.Fields("文書種類CD") = TegataSyuruiKubun And "" & Content.Fields("文書内容CD") = TegataNo Then
				If "" & Content.Fields("顛末区分") = "" Then
					Query = "exec SPK手形発信"
					Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"		'演習CD
					Query = Query & ",'" & KaisyaCD & "'"	'会社CD
					Query = Query & ",'" & TegataFuridashininCD & "'"	'作成会社CD
					Query = Query & ",'" & TegataSyuruiKubun & "'"		'文書種類CD
					Query = Query & ",'" & TegataNo & "'"
					Query = Query & ",'" & GinkoCD	& "'"
					Query = Query & ",'0'"
					Query = Query & ",'" & Moshikomibi & "'"
					If BunsyoSyuruiCD = "BF" Then
						Query = Query & ",'TT'"
					Else
						Query = Query & ",'TW'"
					End If
					Set Content = OpenQuery(Query)
				End If
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If


	Dim MoveKingaku
	MoveKingaku = Kingaku

	Dim TegataKingaku

	Dim KodoRogu

	If BunsyoSyuruiCD = "BA" Then
		KodoRogu = "口座開設を依頼しました。"
	ElseIf BunsyoSyuruiCD = "BB" Then
		KodoRogu = "銀行口座に" & ConvIntToMoney(Kingaku, false, false) & "円の入金を依頼しました。"
	ElseIf BunsyoSyuruiCD = "BC" Then
		KodoRogu = "銀行口座に" & ConvIntToMoney(Kingaku, false, false) & "円の出金を依頼しました。"
	ElseIf BunsyoSyuruiCD = "BD" Then
		KodoRogu = "銀行口座から" & ConvIntToMoney(Kingaku, false, false) & "円の振込みを依頼しました。"
	ElseIf BunsyoSyuruiCD = "BE" Then
		KodoRogu = "銀行口座に小切手の取立を依頼しました。"
	ElseIf BunsyoSyuruiCD = "BF" Then
		KodoRogu = "銀行口座に手形の取立を依頼しました。"
	ElseIf BunsyoSyuruiCD = "BG" Then
		KodoRogu = "銀行口座に手形の割引を依頼しました。"
	End If


	'銀行処理区分が自動であるとき（銀行自社口座は常に自動）
	If GinkoSyoriKubun = "1" Or GB_Gyosyu = "B" Then

		Query = "exec SPB銀行取引書類開封 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & KaisyaCD  & "', '" & BunsyoSyuruiCD  & "', '" & GinkoMoshikomiBunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)

		Query = "exec SPB銀行取引書類返信済みフラグ適用 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & KaisyaCD  & "', '" & BunsyoSyuruiCD  & "', '" & GinkoMoshikomiBunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)


		Dim HenshinSyoribi, HenshinWaribikiRiritsu, HenshinWaribikiRiritsuTekiyoNissu, HenshinWaribikiRisokuKingaku
		Dim TorihikisakiCD
		Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD , HenshinBunsyoSyuruiCD
		Dim GenkinTorihikiKubun

		HenshinSyoribi = Moshikomibi


		TorihikisakiCD = KaisyaCD
		SenpoBunsyoNaiyoCD = GinkoMoshikomiBunsyoNaiyoCD
		SenpoBunsyoSyuruiCD = BunsyoSyuruiCD
		HenshinBunsyoSyuruiCD = NextBunsyoSyuruiCD


		Query = "exec SPB銀行取引書類開封 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & TorihikisakiCD & "', '" & SenpoBunsyoSyuruiCD	& "', '" & SenpoBunsyoNaiyoCD & "'"

		Set Content = OpenQuery(Query)



		'銀行の自動処理の結果が受付許可の場合
		If HenshinUketsukeKubun = "Y" Then
			If BunsyoSyuruiCD = "BA" Then
				KodoRogu = "口座開設を依頼しました。"
			ElseIf BunsyoSyuruiCD = "BB" Then
				KodoRogu = "銀行口座に" & ConvIntToMoney(Kingaku, false, false) & "円の入金をしました。"
			ElseIf BunsyoSyuruiCD = "BC" Then
				KodoRogu = "銀行口座に" & ConvIntToMoney(Kingaku, false, false) & "円の出金をしました。"
			ElseIf BunsyoSyuruiCD = "BD" Then
				KodoRogu = "銀行口座から" & ConvIntToMoney(Kingaku, false, false) & "円の振込みをしました。"
			ElseIf BunsyoSyuruiCD = "BE" Then
				KodoRogu = "銀行口座に小切手の取立をしました。"
			ElseIf BunsyoSyuruiCD = "BF" Then
				KodoRogu = "銀行口座に手形の取立をしました。"
			ElseIf BunsyoSyuruiCD = "BG" Then
				KodoRogu = "銀行口座に手形の割引をしました。"
			ElseIf BunsyoSyuruiCD = "BH" Then
				KodoRogu = "残高証明書が発行されました。"
			End If


			If BunsyoSyuruiCD = "BC" Or BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then

				Query = "exec SPK手形取得"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & KaisyaCD & "'"						'会社CD
				Query = Query & ",'" & TegataFuridashininCD & "'"				'会社CD
				Query = Query & ",'" & TegataSyuruiKubun & "'"
				Query = Query & ",'" & TegataNo & "'"
'Response.Write(Query)
'Exit Sub
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then

					TegataGinkoCD = Content.Fields("支払場所CD")
					MoveKingaku = Content.Fields("金額")
					Kingaku = Content.Fields("金額")
					TegataKingaku = Content.Fields("金額")
					TegataShiharaiKijitsu = Content.Fields("支払期日")
					TegataHikiukeninCD = Content.Fields("引受人CD")

				End If
				If BunsyoSyuruiCD = "BF" Then
					HenshinSyoribi = TegataShiharaiKijitsu
				End If

				If BunsyoSyuruiCD = "BG" Then
					TegataKingaku = TegataKingaku
					HenshinWaribikiRiritsu = JidoGinkoWaribikiRiritsu
					HenshinWaribikiRiritsuTekiyoNissu = DateDiff("d", HenshinSyoribi, TegataShiharaiKijitsu) + 1
					HenshinWaribikiRisokuKingaku = Int(TegataKingaku * HenshinWaribikiRiritsu * HenshinWaribikiRiritsuTekiyoNissu / (365 * 100))
					MoveKingaku = MoveKingaku - HenshinWaribikiRisokuKingaku
				End If

				If TegataSyuruiKubun = "TY" Or TegataSyuruiKubun = "TG" Then
					TegataShiharaininCD = TegataFuridashininCD
				Else
					TegataShiharaininCD = TegataHikiukeninCD
				End If

				Query = "exec SPB銀行口座一覧3"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & TegataShiharaininCD & "'"				'会社CD
				Query = Query & ",'" & TegataGinkoCD & "'"					'銀行CD
				Query = Query & ",'T'"
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) THen
					TegataKozaBango = Content.Fields("口座番号")
				End If


				Query = "exec SPK手形発信"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & KaisyaCD & "'"	'作成会社CD
				Query = Query & ",'" & TegataFuridashininCD & "'"				'会社CD
				Query = Query & ",'" & TegataSyuruiKubun & "'"					'文書種類CD
				Query = Query & ",'" & TegataNo & "'"
				Query = Query & ",'" & GinkoCD & "'"
				Query = Query & ",3"
				Query = Query & ",'" & HenshinSyoribi & "'"
				Query = Query & ",''"
				Set Content = OpenQuery(Query)
			End If




			If BunsyoSyuruiCD = "BD" Then

				FurikomisakiKaisyaMeisyo = GetKozaSyoyuKaisyaCD(EnshuCD, FurikomisakiGinkoCD, FurikomisakiKozaKubun, FurikomisakiKozaBango)

				Dim FurikomiTesuryoFutanKubun
				If KozaKubun = "T" Then
					FurikomiTesuryoFutanKubun = FurikomiTesuryoTozaFutanKubun
				Else
					FurikomiTesuryoFutanKubun = FurikomiTesuryoHiTozaFutanKubun
				End If

				If FurikomisakiGinkoCD = GinkoCD Then
					If Kingaku < FurikomiTesuryoBorder Then
						Tesuryo	= FurikomiTesuryoJiko1
					Else
						Tesuryo	= FurikomiTesuryoJiko2
					End If
				Else
					If Kingaku < FurikomiTesuryoBorder Then
						Tesuryo	= FurikomiTesuryoTako1
					Else
						Tesuryo	= FurikomiTesuryoTako2
					End If
				End If

				If FurikomiTesuryoFutanKubun = "0" Then
					MoveKingaku = MoveKingaku - Tesuryo
				End If
			End If



			Dim GinkoTorihikiKubun
			If BunsyoSyuruiCD = "BA" Then

Call Application.Lock()
				Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TorihikisakiCD & "', '" & GinkoCD & "', '" & KozaKubun & "'"
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					Call Application.Unlock()
					Response.Write("口座はすでに開設済みです<br>")
					Response.Write("受付不可にして返信して下さい")
					%>
					<a href="JavaScript:history.go(-1)">戻る</a>
					<%
					KozaBango = Content.Fields("口座番号")
				Else
					HenshinTekiyo = "ご新規"
					Query = "exec SPB銀行口座挿入"
					Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"	'演習CD
					Query = Query & ",'" & TorihikisakiCD	& "'"			'会社CD
					Query = Query & ",'" & GinkoCD & "'"				'銀行CD
					Query = Query & ",'" & KozaKubun & "'"				'口座区分
					Query = Query & ",''"
					Query = Query & ",'" & HenshinSyoribi & "'"			'処理日
					Query = Query & ",'" & AnsyoBango & "'"				'暗証番号
					Query = Query & "," & Kingaku					'金額
					Query = Query & ",'" & HenshinTekiyo & "'"			'摘要
					Query = Query & ",'" & GakuseiNo & "'"				'学生番号
					Set Content = OpenQuery(Query)
					While Not Content Is Nothing
						If Content.Fields.Count > 0 Then
							KozaBango = Content.Fields(0)
						End If
						Set Content = Content.NextRecordset
					Wend
				End If
Call Application.Unlock()

				If Kingaku <> "null" Then
					GinkoTorihikiKubun = "GN"
				End If

			ElseIf BunsyoSyuruiCD = "BB" Then


				GinkoTorihikiKubun = "GN"
			ElseIf BunsyoSyuruiCD = "BC" Then


				GinkoTorihikiKubun = "GS"
			ElseIf BunsyoSyuruiCD = "BD" Then
				'振込先
				HenshinTekiyo = ConvKaisyaRyakuMeisyoDx(EnshuCD, KaisyaCD) & "から振込"
				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 & "," & MoveKingaku						'金額
				Query = Query & ",'" & GinkoTorihikiKubun	& "'"				'銀行取引区分
				Query = Query & ",'" & HenshinTekiyo & "'"					'摘要
				Query = Query & ",'" & GakuseiNo & "'"						'学生番号
				Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
				Query = Query & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類CD
				Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
				Set Content = OpenQuery(Query)

				'振込元
				If FurikomisakiKaisyaMeisyo = "" Or IsNull(FurikomisakiKaisyaMeisyo) Then
					HenshinTekiyo = "その他に振込"
				Else
					HenshinTekiyo = FurikomisakiKaisyaMeisyo & "に振込"
				End If
				GinkoTorihikiKubun = "FS"
				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 & "," & MoveKingaku						'金額
				Query = Query & ",'" & GinkoTorihikiKubun	& "'"				'銀行取引区分
				Query = Query & ",'" & HenshinTekiyo & "'"					'摘要
				Query = Query & ",'" & GakuseiNo & "'"						'学生番号
				Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
				Query = Query & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類CD
				Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
				Set Content = OpenQuery(Query)

				If Tesuryo <> "" And Tesuryo <> 0 Then
					HenshinTekiyo = "振込手数料"
					GinkoTorihikiKubun = "FT"
					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 & "," & Tesuryo						'金額
					Query = Query & ",'" & GinkoTorihikiKubun	& "'"			'銀行取引区分
					Query = Query & ",'" & HenshinTekiyo & "'"				'摘要
					Query = Query & ",'" & GakuseiNo & "'"					'学生番号
					Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
					Query = Query & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類CD
					Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
					Set Content = OpenQuery(Query)
				End If

				GinkoTorihikiKubun = ""

			ElseIf BunsyoSyuruiCD = "BE" Then
				GinkoTorihikiKubun = "KS"
				Query = "exec SPB銀行口座入出金挿入"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & TegataGinkoCD & "'"					'銀行CD
				Query = Query & ",'T'"								'口座区分
				Query = Query & ",'" & TegataKozaBango & "'"					'口座番号
				Query = Query & ",1"
				Query = Query & ",'" & HenshinSyoribi & "'"					'処理日
				Query = Query & "," & MoveKingaku						'金額
				Query = Query & ",'" & GinkoTorihikiKubun	& "'"				'銀行取引区分
				Query = Query & ",'" & HenshinTekiyo & "'"					'摘要
				Query = Query & ",'" & GakuseiNo & "'"						'学生番号
				Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
				Query = Query & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類CD
				Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
				Set Content = OpenQuery(Query)

				GinkoTorihikiKubun = "KN"

			'手形取立
			ElseIf BunsyoSyuruiCD = "BF" 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 & ",'" & TegataGinkoCD & "'"				'銀行CD
						Query = Query & ",'T'"							'口座区分
						Query = Query & ",'" & TegataKozaBango & "'"				'口座番号
						Query = Query & ",1"
						Query = Query & ",'" & HenshinSyoribi & "'"				'処理日
						Query = Query & "," & MoveKingaku					'金額
						Query = Query & ",'" & GinkoTorihikiKubun	& "'"			'銀行取引区分
						Query = Query & ",'" & HenshinTekiyo & "'"				'摘要
						Query = Query & ",'" & GakuseiNo & "'"					'学生番号
						Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
						Query = Query & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類CD
						Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
'Response.Write(Query)
'Exit Sub
						Set Content = OpenQuery(Query)
					End If
					GinkoTorihikiKubun = "TN"
				End If

			'手形割引
			ElseIf BunsyoSyuruiCD = "BG" Then
				'手形満期日が会計終了日より前なら出金する（090930小野）
				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 & ",'" & TegataGinkoCD & "'"				'銀行CD
						Query = Query & ",'T'"							'口座区分
						Query = Query & ",'" & TegataKozaBango & "'"				'口座番号
						Query = Query & ",1"
						Query = Query & ",'" & TegataShiharaiKijitsu & "'"			'処理日
						Query = Query & "," & TegataKingaku					'金額
						Query = Query & ",'" & GinkoTorihikiKubun	& "'"			'銀行取引区分
						Query = Query & ",'" & HenshinTekiyo & "'"				'摘要
						Query = Query & ",'" & GakuseiNo & "'"					'学生番号
						Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
						Query = Query & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類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 <> "BF" Then
					'入金
					Query = "exec SPB銀行口座入出金挿入 '" & GB_SystemCD & "'"
					Query = Query & " ,'" & EnshuCD & "'"		'演習CD
					Query = Query & ", '" & GinkoCD & "'"		'銀行CD
					Query = Query & ", '" & KozaKubun & "'"		'口座区分
					Query = Query & ", '" & KozaBango & "'"		'口座番号
					Query = Query & ", 1"
					Query = Query & ", '" & HenshinSyoribi & "'"		'処理日
					Query = Query & ",  " & MoveKingaku					'金額
					Query = Query & ", '" & GinkoTorihikiKubun	& "'"	'銀行取引区分
					Query = Query & ", '" & HenshinTekiyo & "'"			'摘要
					Query = Query & ", '" & GakuseiNo & "'"				'学生番号
					Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
					Query = Query & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類CD
					Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
					Set Content = OpenQuery(Query)
				End If
			End If


			If TegataSyuruiKubun <> "" And TegataNo <> "" Then
				Query = "exec SPK手形発信"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & KaisyaCD & "'"						'会社CD
				Query = Query & ",'" & TegataFuridashininCD & "'"				'作成会社CD
				Query = Query & ",'" & TegataSyuruiKubun & "'"					'文書種類CD
				Query = Query & ",'" & TegataNo & "'"
				Query = Query & ",''"
				Query = Query & ",2"
				Query = Query & ",'" & HenshinSyoribi & "'"
				Query = Query & ",''"
				Set Content = OpenQuery(Query)
			End If

		Else

			If TegataSyuruiKubun <> "" And TegataNo <> "" Then
				Query = "exec SPK手形発信"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & KaisyaCD & "'"						'会社CD
				Query = Query & ",'" & TegataFuridashininCD & "'"				'作成会社CD
				Query = Query & ",'" & TegataSyuruiKubun & "'"					'文書種類CD
				Query = Query & ",'" & TegataNo & "'"
				Query = Query & ",''"
				Query = Query & ",0"
				Query = Query & ",NULL"
				Query = Query & ",''"
				Set Content = OpenQuery(Query)
			End If

		End If


		'残高証明書発行手数料
		If BunsyoSyuruiCD = "BH" 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 & ",'" & NextBunsyoSyuruiCD & "'"		'結果通知種類CD
				Query = Query & ",'" & KozaBango & "'"	'結果通知内容CDには仮に口座番号を入れておく（文書作成後に更新）
				Set Content = OpenQuery(Query)
			End If
		End If


		If HenshinWaribikiRiritsu = "" Then
			HenshinWaribikiRiritsu = "null"
		End If

		If HenshinWaribikiRiritsuTekiyoNissu = "" Then
			HenshinWaribikiRiritsuTekiyoNissu = "null"
		End If

		If HenshinWaribikiRisokuKingaku = "" Then
			HenshinWaribikiRisokuKingaku = "null"
		End If

		If Tesuryo = "" Then
			Tesuryo = "null"
		End If

		If TegataKingaku = "" Then
			TegataKingaku = "null"
		End If

		Query = "exec SPB銀行取引書類挿入"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & GinkoCD & "'"								'会社CD
		Query = Query & ",'" & GinkoCD & "'"								'作成会社CD
		Query = Query & ",'" & HenshinBunsyoSyuruiCD & "'"
		Query = Query & ",''"
		Query = Query & ",'" & HenshinSyoribi & "'"							'処理日
		Query = Query & ",'" & KaisyaCD & "'"								'取引先CD
		Query = Query & ",'" & KozaKubun & "'"								'口座区分
		Query = Query & ",'" & KozaBango & "'"								'口座番号
		Query = Query & ", " & Kingaku									'金額
		Query = Query & ",'" & HenshinUketsukeKubun & "'"						'受付区分
		Query = Query & ",'" & AnsyoBango & "'"								'暗証番号
		Query = Query & ", '" & FurikomisakiGinkoCD & "'"						'振込先銀行CD
		Query = Query & ", '" & FurikomisakiKozaKubun & "'"						'振込先口座区分
		Query = Query & ", '" & FurikomisakiKozaBango & "'"						'振込先口座番号
		Query = Query & "," & Tesuryo									'手数料
		Query = Query & ", '" & TegataFuridashininCD & "'"						'手形振出人CD
		Query = Query & ", '" & TegataSyuruiKubun & "'"							'文書種類CD
		Query = Query & ", '" & TegataNo & "'"								'手形番号
		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 & ",'" & HenshinTekiyo & "'"							'摘要
		Query = Query & ",0,0,0"									'各種フラグ
		Query = Query & ",'" & GakuseiNo & "'"								'学生番号

		Query = "exec SPB銀行取引書類挿入2"
		Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"						'演習CD
		Query = Query & ",'" & GinkoCD & "'"									'会社CD
		Query = Query & ",'" & GinkoCD & "'"									'作成会社CD
		Query = Query & ",'" & HenshinBunsyoSyuruiCD & "'"
		Query = Query & ",''"
		Query = Query & ",'S'"
		Query = Query & ",'" & TorihikisakiCD & "'"								'取引先CD
		Query = Query & ",'" & KozaKubun & "'"									'口座区分
		Query = Query & ",'" & KozaBango & "'"									'口座番号
		Query = Query & ",'" & AnsyoBango & "'"									'暗証番号
		Query = Query & ", " & MoveKingaku									'金額
		Query = Query & ",'" & HenshinSyoribi & "'"								'処理日
		Query = Query & ",'" & HenshinUketsukeKubun & "'"							'受付区分
		Query = Query & ",'" & HenshinTekiyo & "'"								'摘要

		Query = Query & ", '" & FurikomisakiGinkoCD & "'"							'振込先銀行CD
		Query = Query & ", '" & FurikomisakiKozaKubun & "'"							'振込先口座区分
		Query = Query & ", '" & FurikomisakiKozaBango & "'"							'振込先口座番号
		Query = Query & ", ''"											'振込先会社CD’’’

		Query = Query & ", " & MoveKingaku									'振込入金金額’’’
		Query = Query & ", " & Tesuryo										'振込手数料’’’’

		Query = Query & ", '" & GinkoCD & "'"		'振込元銀行CD	11/11/21追加
		Query = Query & ", '" & KozaKubun & "'"		'振込元口座区分	11/11/21追加
		Query = Query & ", '" & KozaBango & "'"		'振込元口座番号	11/11/21追加

		Query = Query & ", '" & TegataGinkoCD & "'"								'手形出金銀行CD
		Query = Query & ", '" & KozaKubun & "'"									'手形出金口座区分
		Query = Query & ", '" & TegataKozaBango & "'"								'手形出金口座番号
		Query = Query & ", '" & TegataKingaku & "'"								'手形出金金額

		Query = Query & ", '" & TegataFuridashininCD & "'"							'手形振出人CD
		Query = Query & ", '" & TegataSyuruiKubun & "'"								'文書種類CD
		Query = Query & ", '" & TegataNo & "'"									'手形番号

                                                                        	
		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 Not(Content.BOF Or Content.EOF) Then
				If Content.Fields.Count > 0 Then
					GinkoBunsyoNaiyoCD = Content.Fields(0)
				End If
			End If
	 		Set Content = Content.NextRecordset
		Wend


		'TGB銀行口座入出金TRNの結果通知内容CDを銀行側書類の文書内容CDに更新する
		Query = ""
		Query = Query & " UPDATE TGB銀行口座入出金TRN "
		Query = Query & " SET 結果通知内容CD = '" & GinkoBunsyoNaiyoCD & "' "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 結果通知銀行CD = '" & GinkoCD & "' "
		Query = Query & " 	AND 結果通知種類CD = '" & NextBunsyoSyuruiCD & "' "
		Query = Query & " 	AND 結果通知内容CD = '" & KozaBango & "' " '入出金時点で仮に口座番号を入れてある
		Set Content = OpenQuery(Query)

		

		'銀行手形取立割引自動なら入出金フラグを立てる（090930小野）
		If GinkoTegataToriWari <> "1" Then
			Query = "exec SPB銀行取引書類入出金フラグ適用 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & GinkoCD & "', '" & HenshinBunsyoSyuruiCD & "', '" & GinkoBunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
		End If


		If GB_Gyosyu <> "B" Then	'自社銀行口座の場合は発信しない
			Query = "exec SPB銀行取引書類発信"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
			Query = Query & ",'" & GinkoCD & "'"								'会社CD
			Query = Query & ",'" & GinkoCD & "'"								'作成会社CD
			Query = Query & ",'" & HenshinBunsyoSyuruiCD & "'"
			Query = Query & ",'" & GinkoBunsyoNaiyoCD & "'"
			Query = Query & ",'" & HenshinSyoribi & "'"							'処理日
			Query = Query & ",'" & GakuseiNo & "'"								'学生番号
			Set Content = OpenQuery(Query)

			While Not Content Is Nothing
				If Not(Content.BOF Or Content.EOF) Then
					If Content.Fields.Count > 0 Then
						GinkoBunsyoNaiyoCD = Content.Fields(0)
					End If
				End If
		 		Set Content = Content.NextRecordset
			Wend
		End If

		Query = "exec SPB銀行取引書類開封 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & GinkoCD & "', '" & HenshinBunsyoSyuruiCD	& "', '" & GinkoBunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)

	End If

Call Application.Unlock()

'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fb_ginkosyorui_view.asp?GinkoCD=" & GinkoCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & GinkoMoshikomiBunsyoNaiyoCD)

End Sub
%>