
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：会社選択処理
'	 作成日：2002/8/9
'	 作成者：山崎
'	 目的　：会社の選択を処理する。
'	 概要	：
'	<<入力チェック>>
'	・未選択のチェック
'	修正:2002/8/26:山崎:SV会社一覧の変更	に伴う変更
'################################################
'-->
'
%>

<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Kurikoshi
	Kurikoshi = Request("Kurikoshi")

	Dim WebCollaboRiyo
	WebCollaboRiyo = Request("WBCLB")
	If WebCollaboRiyo <> "1" Then
		WebCollaboRiyo = "0"
	End If

	Dim DaihyoTorishimariyaku
	Dim DaihyoTorishimariyakuJyusyo

	Dim KaisyaCD
	KaisyaCD = Request("KaisyaCD")
	Dim ref
	ref = Request("ref")

	Dim Query, Content, Content2, Content3
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & GB_EnshuCD & "', '" & KaisyaCD & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)

		If LCase(Content.Fields("会社CD")) = LCase(KaisyaCD) Then
			Dim GyosyuCD
			GyosyuCD = Content.Fields("業種CD")
			Session(HomeAlias & "KaisyaCD") = KaisyaCD
			Session(HomeAlias & "Gyosyu") = Content.Fields("業種CD")
			Session(HomeAlias & "GyosyuMeisyo") = Content.Fields("業種名称")
			Session(HomeAlias & "KaisyaMeisyo") = Content.Fields("会社名称")
			Session(HomeAlias & "KaisyaRyakuMeisyo") = Content.Fields("会社略名称")
			Session(HomeAlias & "JisyaFlag") = Content.Fields("自社フラグ")
			Session(HomeAlias & "ShijyoCD") = Content.Fields("市場CD")
			DaihyoTorishimariyaku = Content.Fields("代表取締役")
			DaihyoTorishimariyakuJyusyo = Content.Fields("代表取締役住所")

			If 0=1 Then
			ElseIf GyosyuCD = "S" Then
				Session(HomeAlias & "GyosyuKubun") = "S"
				Session(HomeAlias & "GyosyuColor") = "#33CC99"
				Session(HomeAlias & "GyosyuColorObj") = "g"
			ElseIf GyosyuCD = "B" Then
				Session(HomeAlias & "GyosyuKubun") = "B"
				'Session(HomeAlias & "GyosyuKubun") = "BS"	'銀行で商社科目を利用する場合（保留中）
				Session(HomeAlias & "GyosyuColor") = "#7499E5"
				Session(HomeAlias & "GyosyuColorObj") = "b"
			ElseIf GyosyuCD = "U" Then
				Session(HomeAlias & "GyosyuKubun") = "S"
				Session(HomeAlias & "GyosyuColor") = "#D9BC83"
				Session(HomeAlias & "GyosyuColorObj") = "o"
			ElseIf GyosyuCD = "K" Then
				Session(HomeAlias & "GyosyuKubun") = "S"
				Session(HomeAlias & "GyosyuColor") = "#AD82D9"
				Session(HomeAlias & "GyosyuColorObj") = "p"
			End If

			'代表取締役を社員台帳に登録（070607小野）
			'会社選択時に必ず社員番号1が作成されるため
			'社員が一人も存在しない場合にのみ動作させる
			'その場合は代表取締役フラグも立てる
'			Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'			Set Content = OpenQuery(Query)
'			If Content.BOF Or Content.EOF Then
'				Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 1"
'				Query = Query & ", '" & DaihyoTorishimariyaku & "', null, 0, '', '" & DaihyoTorishimariyakuJyusyo & "', '', '', '代表取締役', null, null"
'				Query = Query & ", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0"
'				DebugQuery(Query)
'				Set Content = OpenQuery(Query)
'				Query = "exec SPK社員台帳更新_代表取締役 '" & GB_SystemCD & "'"
'				Query = Query & ", '" & EnshuCD & "'"
'				Query = Query & ", '" & KaisyaCD & "'"
'				Query = Query & ", 1"
'				Set Content = OpenQuery(Query)
'			End If

			'生徒NO	'個人学習の場合＝学生番号、グループ学習の場合＝会社CD
			If Session(HomeAlias & "EnshuKubun") = "P" Then
				Session(HomeAlias & "SeitoNo") = Session(HomeAlias & "GakuseiNo")
			Else
				Session(HomeAlias & "SeitoNo") = Session(HomeAlias & "KaisyaCD")
			End If


			Query = "exec SPV演習履歴登録 '" & GB_SystemCD & "','" & GB_EnshuCD & "', '" & KaisyaCD & "', '" & GB_GakuseiNo & "'"
DebugQuery(Query)
			Set Content = OpenQuery(Query)


Call Application.Lock()
		'マスタ社員を自動作成(演習管理＜その他＞)
			Query = "  " & vbCrLf
			Query = Query & " SELECT TDA社員M.*, TTA社員台帳M.マスタCD " & vbCrLf
			Query = Query & " FROM TDA社員M " & vbCrLf
			Query = Query & " LEFT OUTER JOIN TTA社員台帳M " & vbCrLf
			Query = Query & " 	ON TDA社員M.システムCD = TTA社員台帳M.システムCD " & vbCrLf
			Query = Query & " 	AND TDA社員M.演習CD = TTA社員台帳M.演習CD " & vbCrLf
			Query = Query & " 	AND TTA社員台帳M.会社CD = '" & KaisyaCD & "' " & vbCrLf
			Query = Query & " 	AND TDA社員M.社員CD = TTA社員台帳M.マスタCD " & vbCrLf
			Query = Query & " WHERE TDA社員M.システムCD = '" & GB_SystemCD & "' " & vbCrLf
			Query = Query & " 	AND TDA社員M.演習CD = '" & EnshuCD & "' " & vbCrLf
			Query = Query & " 	AND TTA社員台帳M.マスタCD IS NULL " & vbCrLf
			Query = Query & " ORDER BY TDA社員M.社員CD "  & vbCrLf
'Response.Write(Query)
'Exit Sub
			Set Content2 = OpenQuery(Query)
			Do While Not(Content2.BOF Or Content2.EOF)
				'作成
				Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', null" '社員番号NULLは新規作成
				Query = Query & ", '', '" & Content2.Fields("氏名") & "', null, null, '', '', '', '', '', null, null"
				Query = Query & ", null, null, null, null, null, null, null, null, null, null, null, null"
				Query = Query & ", '" & GB_GakuseiNo & "'"	'学生番号
				Set Content3 = OpenQuery(Query)
				If Not(Content3.BOF Or Content3.EOF) Then
					Query = ""
					Query = Query & "  "
					Query = Query & " UPDATE TTA社員台帳M "
					Query = Query & " SET マスタCD = " & Content2.Fields("社員CD") & " " '次回以降は作成しないようマスタの社員CDを埋め込む
					Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
					Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
					Query = Query & " 	AND 会社CD = '" & KaisyaCD & "' "
					Query = Query & " 	AND 社員番号 = " & Content3.Fields(0) & " " '作成時の戻り値
					Set Content3 = OpenQuery(Query)
				End If
				Content2.MoveNext
			Loop
Call Application.Unlock()


			'代表取締役が居なければ作成ロジックに飛ばす
			Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
			Set Content2 = OpenQuery(Query)
			Do While Not(Content2.BOF Or Content2.EOF)
				If "" & Content2.Fields("代表取締役フラグ") = "1" Then
					If PackageMode = 1 Then
						Response.Redirect("/" & HomeAlias & "/user/bk/menu_cyac.asp?Kurikoshi=" & Kurikoshi)
						Exit Sub
					Else
						Response.Redirect("/" & HomeAlias & "/user/bk/menu_" & LCase(GyosyuCD) & ".asp?ref="& ref & "&WBCLB=" & WebCollaboRiyo & "&Kurikoshi=" & Kurikoshi)
						Exit Sub
					End If
				End If
				Content2.MoveNext
			Loop
			Response.Redirect("/" & HomeAlias & "/user/bk/daihyotorishimariyaku.asp?ref="& ref & "&WBCLB=" & WebCollaboRiyo)
			Exit Sub

		End If

'Response.Write("ここ")

		Content.MoveNext
	Loop


	'会社が選択されていなければ自社設定に飛ばす ※電商くん連携演習に無理やり入った場合の対処（180507小野）
	Response.Redirect("/" & HomeAlias & "/user/bk/regcorp.asp")
	Exit Sub


	'Response.Write("会社が選択されていません")
%>
<a href="JavaScript:history.go(-1)">戻る</a>
<%
End Sub
%>