
<!-- #include file="../include.asp" -->

<%
'<!--
'################################################
'	 名称	：演習選択処理
'	 作成日：2002/8/9
'	 作成者：山崎
'	 目的　：演習の選択の処理をする。
'	 概要	：
'		<<表示>>
'	・なし
'	<<入力チェック>>
'	・未選択のチェック
'	修正:2002/9/10:山崎:消費税率を追加しました
'################################################
'-->
'
%>


<%
main()
Sub main()

	Dim Kurikoshi
	Kurikoshi = Request("Kurikoshi")

	Dim AutoLogin
	AutoLogin = Request("AutoLogin")

	'次演習繰越処理後の次演習オートログイン処理のためオートログイン時はセッションチェックしない（091104小野）
	If AutoLogin <> "1" Then
		'演習選択画面で放置してセッションが切れても
		'以下の処理でEnshuCDセッションが作成されることで
		'不完全セッションのまま会社選択画面まで進んでしまうため
		'必ずセッションチェックする必要がある（081017小野）
		If Not(SessionCheck()) Then
			Exit Sub
		End If
	End If


	Dim AutoLoginKaisyaCD
	AutoLoginKaisyaCD = Request("AutoLoginKaisyaCD")

	Dim EnshuCD
	EnshuCD = Request("EnshuCD")

	Dim Query, Content

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		Session(HomeAlias & "EnshuCD") = EnshuCD
		Session(HomeAlias & "EnshuKubun") = Content.Fields("演習区分")
		Session(HomeAlias & "EnshuCD") = Content.Fields("演習CD")
		Session(HomeAlias & "EnshuMeisyo") = Content.Fields("演習名称")

		Dim tmp, tmpy, tmpm, tmpd
		tmp = Content.Fields("会計開始日")
		tmpy = DatePart("yyyy", tmp)
		tmpm = DatePart("m", tmp)
		tmpd = DatePart("d", tmp)
		If tmpy < 2000 Then tmpy = 2000 + tmpy
		Session(HomeAlias & "KaikeiKaishibi") = DateValue(tmpy & "/" & tmpm & "/" & tmpd)
		Session(HomeAlias & "KaikeiKaishibi") = tmpy & "/" & tmpm & "/" & tmpd

		tmp = Content.Fields("会計終了日")
		tmpy = DatePart("yyyy", tmp)
		tmpm = DatePart("m", tmp)
		tmpd = DatePart("d", tmp)
		If tmpy < 2000 Then tmpy = 2000 + tmpy
		Session(HomeAlias & "KaikeiSyuryobi") = DateValue(tmpy & "/" & tmpm & "/" & tmpd)
		Session(HomeAlias & "KaikeiSyuryobi") = tmpy & "/" & tmpm & "/" & tmpd

		Session(HomeAlias & "Shohizei") = Content.Fields("消費税")
		Session(HomeAlias & "ShowPrintHeader") = Content.Fields("印刷ヘッダー表示")

		Dim KaikeiKaishibi
		KaikeiKaishibi = Content.Fields("会計開始日")

		If "" & Content.Fields("仕入売上書類受発信利用") = "" Or "" & Content.Fields("仕入売上書類受発信利用") = "0" Then
			Session(HomeAlias & "ShiireUriageJHB") = "0"
		Else
			Session(HomeAlias & "ShiireUriageJHB") = "1"
		End If

		'表記名称セッションクリア（090624小野）
		Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '', ''"	'演習CD=NULLは全演習から取得し表記CDでグルーピング
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = ""
			Content.MoveNext
		Loop
		'表記名称マスタ取得（090609小野）
		Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '" & EnshuCD & "', ''"	'表記CD=NULLは一覧取得
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" & Content.Fields("表記名称")	'表記CDの先頭に"MHM"を付加したセッション変数に格納
			Content.MoveNext
		Loop

		If Session(HomeAlias & "EnshuKubun") = "P" Then
			Query = "exec SPM同時同業会社作成 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '" & KaikeiKaishibi & "'"
'Response.Write(Query)
'Exit Sub
			Set Content = OpenQuery(Query)

		End If

'Exit Sub
Call Application.Lock()
		'銀行会社に銀行口座を作成する（090302小野）
		Query = "exec SPB銀行口座挿入銀行自社別段 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaikeiKaishibi & "'"
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)
Call Application.Unlock()

	End If

	If EnshuCD <> "" Then
		Session(HomeAlias & "EnshuCD") = EnshuCD

		'オートログイン（071106小野）
		If AutoLogin = "1" Then
'Exit Sub
			'運用管理オートログインボタンの戻り先を演習会社ログイン画面にするフラグ
			Session(HomeAlias & "EnshuKaishaLogin") = EnshuCD
			Response.Redirect("./bk/default_bin.asp?AutoLogin=1&KaisyaCD=" & AutoLoginKaisyaCD & "&Kurikoshi=" & Kurikoshi)
		End If

		Query = "exec SPV自社情報取得 '" & GB_SystemCD & "','" & Session(HomeAlias & "EnshuCD") & "', '" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)

		If (Content.BOF Or Content.EOF) And (Session(HomeAlias & "EnshuKubun") = "P" Or Session(HomeAlias & "EnshuKubun") = "A") Then
			Session(HomeAlias & "KaisyaCD") = ""
			Response.Redirect("./bk/regcorp.asp")
		Else
			Response.Redirect("./bk")
		End If

	Else
		Response.Write("演習が選択されていません")
		Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")

	End If

End Sub
%>