
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：銀行窓口受付処理
'	 作成日：2002/10/18
'	 作成者：山崎
'	 目的　：銀行窓口受付の処理
'	 概要	：
'		<<表示>>
'	・無し
'
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim CD
	Dim Syoribi, Kingaku, Tekiyo, PageType
	Dim Query, Content
	Dim tmp


	Dim GinkoCD, KozaKubun, Moshikomibi, AnsyoBango, TouzaKarikoshiKingaku
	Dim KozaBango, BunsyoSyuruiCD
	Dim FurikomisakiKozaBango, FurikomisakiGinkoCD, FurikomisakiKozaKubun	'BD
	Dim TegataFuridashininCD, TegataSyuruiKubun, BunsyoNaiyoCD
	Dim GenkinTorihikiKubun
	Dim GenkinNyusyukinCD
	GenkinNyusyukinCD = Request("GenkinNyusyukinCD")

	PageType = Request("PageType")
	If PageType = "Nyukin" Then
		GenkinTorihikiKubun = "GN"
	Else
		GenkinTorihikiKubun = "GS"
	End If


'###############################################	 １．データの引継ぎ

	'ヘッダ部

	Syoribi = Request("Syoribi")
	Kingaku = ConvMoneyToInt(Request("Kingaku"))
	Tekiyo = Request("Tekiyo")

	If Request("Action") = "Del" Then
		Query = "exec SPK現金入出金削除"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",1"
		Query = Query & "," & GenkinNyusyukinCD & ""
		Set Content = OpenQuery(Query)
		Response.Redirect("fk_nyukin_ichiran.asp?PageType=" & PageType)
	Else
		If GenkinNyusyukinCD = "" Then
			GenkinNyusyukinCD = "null"
		End If

		If GenkinNyusyukinCD = "null" Then
			Query = "exec SPK現金入出金挿入"
		Else
			Query = "exec SPK現金入出金更新"
		End If
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"			'会社CD
		Query = Query & "," & GenkinNyusyukinCD & ""	
		Query = Query & ",'" & Syoribi & "'"				'処理日
		Query = Query & "," & Kingaku						'金額
		Query = Query & ",'" & GenkinTorihikiKubun & "'"	'現金取引区分
		Query = Query & ",1"
		Query = Query & ",'" & Tekiyo & "'"					'摘要
		Query = Query & ",'" & GakuseiNo & "'"			'学生番号
	End If
'###############################################	 ？．ストアドプロシージャ-実行


	Set Content = OpenQuery(Query)

	While Not Content Is Nothing
		If Not(Content.BOF Or Content.EOF) Then
			If Content.Fields.Count > 0 Then
				GenkinNyusyukinCD = Content.Fields(0)
			End If
		End If
	 	Set Content = Content.NextRecordset
	Wend


	Query = "exec SPM記帳チェック挿入現物現金"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Query = Query & ",'" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)

'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fk_nyukin_view.asp?BinType=Ins&PageType=" & PageType & "&GenkinNyusyukinCD=" & GenkinNyusyukinCD)

End Sub
%>