
<!-- #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 EnshuCD
	EnshuCD = Request("EnshuCD")

	Dim LimitDate
	LimitDate = Request("LimitDate")

	Dim SeitoCD
	SeitoCD = Request("SeitoCD")

	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 FurikomiTesuryoTozaFutanKubun, FurikomiTesuryoHiTozaFutanKubun
	Dim FurikomisakiKaisyaMeisyo
	Dim Tagata
	Dim TegataShiharaininCD, TegataHikiukeninCD
	Dim MoveKingaku
	Dim TegataKingaku
	Dim KodoRogu
	Dim Moushikomibi

	Dim NyukinCD
	Dim NyukinKoza
	Dim NyukinGaku

'###############################################	 １．データの引継ぎ

	Dim GinkoSyoriKubun
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		JidoGinkoWaribikiRiritsu = Content.Fields("手形割引率")
	End If

	Kingaku = "null"

	Dim SakuseiKaisyaCD

	HenshinUketsukeKubun = "Y"
	HenshinTekiyo = "満期"


'銀行書類全取得
Dim ContentGS
Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '', ''"
Set ContentGS = OpenQuery(Query)
Do While Not(ContentGS.BOF Or ContentGS.EOF)
	If (ContentGS.Fields("文書種類CD") = "BS" Or ContentGS.Fields("文書種類CD") = "BT") And "" & ContentGS.Fields("受付区分") = "Y" And "" & ContentGS.Fields("入出金フラグ") <> "1" And "" & ContentGS.Fields("削除フラグ") <> "1" Then
											'同時同業の場合は選択生徒のみ表示
		If ConvEnshuKubun(EnshuCD) = "G" Or SeitoCD = "" Or "" & ConvKaisyaGakuseiNo(EnshuCD, ContentGS.Fields("作成会社CD")) = SeitoCD Then

			'必要なパラメータを変数に代入
			GinkoCD = ContentGS.Fields("会社CD")
			NyukinGaku = ContentGS.Fields("取引先CD")
			KaisyaCD = ContentGS.Fields("作成会社CD")
			SakuseiKaisyaCD = ContentGS.Fields("作成会社CD")
			BunsyoSyuruiCD = ContentGS.Fields("文書種類CD")
			GinkoMoshikomiBunsyoNaiyoCD = ContentGS.Fields("文書内容CD")
			TegataFuridashininCD = ContentGS.Fields("手形作成会社CD")
			TegataSyuruiKubun = ContentGS.Fields("手形文書種類CD")
			TegataNo = ContentGS.Fields("手形文書内容CD")
			KozaKubun = ContentGS.Fields("口座区分")
			KozaBango = ContentGS.Fields("口座番号")
			AnsyoBango = ContentGS.Fields("暗証番号")
			Moushikomibi = ContentGS.Fields("処理日")
			NyukinGaku = ContentGS.Fields("振込入金金額")


			'手形から支払情報を取得（支払期日で区別するため先に取得）
			Query = "exec SPK手形取得"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
			Query = Query & ",'" & ContentGS.Fields("取引先CD") & "'"
			Query = Query & ",'" & ContentGS.Fields("手形作成会社CD") & "'"
			Query = Query & ",'" & ContentGS.Fields("手形文書種類CD") & "'"
			Query = Query & ",'" & ContentGS.Fields("手形文書内容CD") & "'"
			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")
			Else	'手形が存在しない場合
				TegataGinkoCD = ContentGS.Fields("手形小切手出金銀行CD")
				MoveKingaku = ContentGS.Fields("手形小切手出金金額")
				Kingaku = ContentGS.Fields("手形小切手出金金額")
				TegataKingaku = ContentGS.Fields("手形小切手出金金額")
				TegataShiharaiKijitsu = ContentGS.Fields("手形支払期日")
				TegataHikiukeninCD = GetKozaShoyuKaishaCD(EnshuCD, ContentGS.Fields("手形小切手出金銀行CD"), ContentGS.Fields("手形小切手出金口座区分"), ContentGS.Fields("手形小切手出金口座番号"))
			End If

			'支払人トグル
			If TegataSyuruiKubun = "TY" Or TegataSyuruiKubun = "TG" Then	'約束手形or小切手
				TegataShiharaininCD = TegataFuridashininCD
			Else
				TegataShiharaininCD = TegataHikiukeninCD
			End If

			'支払期日が指定日より前の手形のみ実行
'			If (BunsyoSyuruiCD = "BF" And DateDiff("d", TegataShiharaiKijitsu, LimitDate) > -1) Or (BunsyoSyuruiCD = "BG" And DateDiff("d", Moushikomibi, LimitDate) > -1) Then
			If DateDiff("d", TegataShiharaiKijitsu, LimitDate) > -1 Then

				'出金口座取得
				Query = "exec SPB銀行口座一覧3 '" & 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 SPB銀行口座一覧3 '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & NyukinCD & "'"				'会社CD
				Query = Query & ",'" & GinkoCD & "'"					'銀行CD
				Query = Query & ",'T'"
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) THen
					NyukinKoza = Content.Fields("口座番号")
				End If

				Dim HenshinSyoribi, HenshinWaribikiRiritsu, HenshinWaribikiRiritsuTekiyoNissu, HenshinWaribikiRisokuKingaku
				Dim TorihikisakiCD
				Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD , HenshinBunsyoSyuruiCD
				Dim GenkinTorihikiKubun

				TorihikisakiCD = KaisyaCD
				SenpoBunsyoNaiyoCD = GinkoMoshikomiBunsyoNaiyoCD
				SenpoBunsyoSyuruiCD = BunsyoSyuruiCD

				If BunsyoSyuruiCD = "BF" Then
					KodoRogu = "銀行口座に手形の取立をしました。"
				ElseIf BunsyoSyuruiCD = "BG" Then
					KodoRogu = "銀行口座に手形の割引をしました。"
				End If


				Dim GinkoTorihikiKubun

				If BunsyoSyuruiCD = "BS" Then
					'支払処理
'					If DateDiff("d", GB_KaikeiSyuryobi, TegataShiharaiKijitsu) <= 0 Then	'会計終了日以後でも処理する？
						Query = "exec SPB銀行口座入出金挿入 '" & GB_SystemCD & "', '" & EnshuCD & "'"		'演習CD
						Query = Query & ", '" & TegataGinkoCD & "'"				'銀行CD
						Query = Query & ", 'T'"							'口座区分
						Query = Query & ", '" & TegataKozaBango & "'"				'口座番号
						Query = Query & ",  1"
						Query = Query & ", '" & TegataShiharaiKijitsu & "'"				'処理日
						Query = Query & ",  " & MoveKingaku					'金額
						Query = Query & ", 'TS'"			'銀行取引区分
						Query = Query & ", '" & HenshinTekiyo & "'"				'摘要
						Query = Query & ", '" & GakuseiNo & "'"					'学生番号
						Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
						Query = Query & ",'BS'"		'結果通知種類CD
						Query = Query & ",'" & GinkoMoshikomiBunsyoNaiyoCD & "'"	'結果通知内容CD
						Set Content = OpenQuery(Query)
'					End If
					Query = "exec SPB銀行口座入出金挿入 '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
					Query = Query & ", '" & GinkoCD & "'"						'銀行CD
					Query = Query & ", 'T'"						'口座区分
					Query = Query & ", '" & KozaBango & "'"						'口座番号
					Query = Query & ",  1"
					Query = Query & ", '" & TegataShiharaiKijitsu & "'"					'処理日
					Query = Query & ",  " & NyukinGaku						'金額（振込入金金額）
					Query = Query & ", 'TN'"				'銀行取引区分
					Query = Query & ", '" & HenshinTekiyo & "'"					'摘要
					Query = Query & ", '" & GakuseiNo & "'"						'学生番号
					Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
					Query = Query & ",'BS'"		'結果通知種類CD
					Query = Query & ",'" & GinkoMoshikomiBunsyoNaiyoCD & "'"	'結果通知内容CD
					Set Content = OpenQuery(Query)

				ElseIf BunsyoSyuruiCD = "BT" Then
					'割引は受付時点で入金されてるので満期処理は出金のみ
					'支払処理
'					If DateDiff("d", GB_KaikeiSyuryobi, TegataShiharaiKijitsu) <= 0 Then	'会計終了日以後でも処理する？
						Query = "exec SPB銀行口座入出金挿入 '" & 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 & ", 'TS'"			'銀行取引区分
						Query = Query & ", '" & HenshinTekiyo & "'"				'摘要
						Query = Query & ", '" & GakuseiNo & "'"					'学生番号
						Query = Query & ",'" & GinkoCD & "'"	'結果通知銀行CD
						Query = Query & ",'BT'"		'結果通知種類CD
						Query = Query & ",'" & GinkoMoshikomiBunsyoNaiyoCD & "'"	'結果通知内容CD
						Set Content = OpenQuery(Query)
'					End If

				End If

				Query = "exec SPB銀行取引書類入出金フラグ適用 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GinkoCD & "', '" & GinkoCD & "', '" & BunsyoSyuruiCD & "', '" & GinkoMoshikomiBunsyoNaiyoCD & "'"
				Set Content = OpenQuery(Query)

			End If

		End If
	End If

	ContentGS.MoveNext
Loop


'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fm_enshucontrol04.asp?EnshuCD=" & EnshuCD & "&SeitoCD=" & SeitoCD & "&LimitDate=" & LimitDate)

End Sub
%>