
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：手形期日処理
'	作成日	：2009/09/29
'	作成者	：小野
'	目的	：指定日以前の手形期日処理を一括で行う。
'	概要	：/user/bk/ginkomadoguchi/fb_ginkosyorui_bin.asp から切り出し
'################################################
'-->
'
'
%>

<%
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 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 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
	End If



	'申込会社銀行書類・受発信文書を削除
	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 & "'"
		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


	'戻り先の調整
	If SenpoBunsyoSyuruiCD <> "" Then
		BunsyoSyuruiCD = SenpoBunsyoSyuruiCD
	End If

'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fm_enshucontrol06.asp?EnshuCD=" & EnshuCD & "&SeitoCD=" & SeitoCD & "&Kubun=" & Kubun & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD)

End Sub
%>