
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：銀行受付処理
'   作成日：2002/10/18
'   作成者：山崎
'   目的　：銀行の受け付け処理をする。
'   概要  ：
'    <<表示>>
'	・無し
'	
'################################################
'-->
'
'
%>

<%     
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query, Content
	Dim Shihonkin, ShihonkinRiekiRitsu, KazeiRitsu, Koteihi, GenkaiRiekiRitsu

'###############################################   １．データの引継ぎ

	'ヘッダ部
	
	
	Shihonkin = ConvMoneyToInt(Request("Shihonkin"))
	ShihonkinRiekiRitsu = ConvMoneyToInt(Request("ShihonkinRiekiRitsu"))
	KazeiRitsu = ConvMoneyToInt(Request("KazeiRitsu"))
	Koteihi = ConvMoneyToInt(Request("Koteihi"))
	GenkaiRiekiRitsu = ConvMoneyToInt(Request("GenkaiRiekiRitsu"))


	
	
	If Shihonkin = "" Then
		Shihonkin = "null"
	End If
	If ShihonkinRiekiRitsu = "" Then
		ShihonkinRiekiRitsu = "null"
	End If
	If KazeiRitsu = "" Then
		KazeiRitsu = "null"
	End If
	If Koteihi = "" Then
		Koteihi = "null"
	End If
	If GenkaiRiekiRitsu = "" Then
		GenkaiRiekiRitsu = "null"
	End If
	
	Query = "exec SPR分析_損益計画更新"
	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD		
	Query = Query & ",'" & KaisyaCD & "'"		'会社CD	
	Query = Query & "," & Shihonkin					'資本金
	Query = Query & "," & ShihonkinRiekiRitsu		'資本金純利益率	
	Query = Query & "," & KazeiRitsu				'課税率
	Query = Query & "," & Koteihi					'固定費	
	Query = Query & "," & GenkaiRiekiRitsu		'売上高総利益率	
	Query = Query & ",'" & GakuseiNo & "'"		'学生番号	
'Response.Write(Query)
'Exit Sub

'###############################################   ？．ストアドプロシージャ-実行
   	Set Content = OpenQuery(Query)

'###############################################   ４．更新データをビューで表示
	Response.Redirect("fk_sonekikeikaku_view.asp")

End Sub
%>