
<!-- #include file="../include.asp" -->

<%
'<!--
'################################################
'	 名称	：演習選択処理
'	 作成日：2002/8/9
'	 作成者：山崎
'	 目的　：演習の選択の処理をする。
'	 概要	：
'		<<表示>>
'	・なし
'	<<入力チェック>>
'	・未選択のチェック
'	修正:2002/9/10:山崎:消費税率を追加しました
'################################################
'-->
'
%>


<%
main()
Sub main()

'Exit Sub

	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 & "ShohizeiMode") = TaxRateSelection '税率固定or変動モード
		If Session(HomeAlias & "Shohizei") <= 0 Then
			Session(HomeAlias & "ShohizeiMode") = 0 '固定税率モード
		End If

		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


		'消費税率マスタ辻褄合わせ（191015小野）
Call Application.Lock()
		Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' "
		Set Content = OpenQuery(Query)
		If Content.BOF Or Content.EOF Then
			Query = ""
			Query = Query & "  "
			Query = Query & " if not(exists(select * from TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "')) "
			Query = Query & " begin "
			Query = Query & " 	INSERT INTO TDA消費税率M (システムCD, 演習CD, 消費税率, 標準, 運送費標準) "
			Query = Query & " 	VALUES ('" & GB_SystemCD & "', '" & EnshuCD & "', " & Session(HomeAlias & "Shohizei") & ", '1', '1') "
			Query = Query & " end "
			Set Content = OpenQuery(Query)
		End If
Call Application.Unlock()


If 0=1 Then '消費税率は仕訳時の計算基準なだけで、既存データはNULLで問題無いので保留
		'仕入売上伝票の消費税率辻褄合わせ（191015小野）
Call Application.Lock()
		Query = ""
		Query = Query & " UPDATE TSK伝票仕入売上明細F "
		Query = Query & " SET 消費税率 = " & Session(HomeAlias & "Shohizei") & " "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		If TaxRateSelection = 1 Then
			'変動消費税率の場合はNULLのみ辻褄合わせ
			Query = Query & " 	AND 消費税率 IS NULL "
		End If
		Set Content = OpenQuery(Query)
Call Application.Unlock()
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

'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


		'同時同業（個人モード）で同時同業生徒自社が設定されていれば自動選択する（200715小野）
		'If PackageMode = 1 And Session(HomeAlias & "EnshuKubun") = "P" Then
		If Session(HomeAlias & "EnshuKubun") = "P" Then
			Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '2'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If "" & Content.Fields("同時同業生徒自社") = "1" Then
					Response.Redirect("./bk/default_bin.asp?KaisyaCD=" & Content.Fields("会社CD"))
					Exit Sub
				End If
				Content.MoveNext
			Loop
		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
%>