<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	:会社情報更新処理
'	 作成日:2002/9/9
'	 作成者:徳田
'	 目的 :会社情報の更新(追加・修正・削除)処理を行う。
'	 概要	:
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

main()

Sub main()
	Dim Action							'処理区分
	Dim EnshuName														'演習CD、 演習名称

	Dim Kaisyamei , KaisyaKanamei	'会社コード、会社名称、会社カナ名称
	Dim ZipCode	, Adr1			, Adr2								 '郵便番号、住所1、住所2
	Dim Tel			, Fax			 , GyosyuCD , GyosyuName 'Tel、Fax、業種CD、業種名称
	Dim KaisyaRyakumei				'会社略名称
	Dim JisyaFlg, GakuseiBango
	Dim Query
	Dim Content
	Dim Ng , ErrMSG , rsts
	Dim HyojiFlg
	Dim RouteType
	Dim ShijyoCD
	Dim KitakuKaisyaCD
	Dim OldKitakuKaisyaCD
	Dim DaityoTorishimariyaku, Shihonkin
	Dim DaityoTorishimariyakuJyusyo
	Dim Torishimariyaku1, Torishimariyaku2, Mokuteki
	Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo
	Dim BunsyoNaiyoCD
	Dim Tantosya
	Dim TantosyaFlg
	Dim KanKatsu
	Dim DaihyoSyain

	Dim Hokkinin4
	Dim Hokkinin5
	Dim Hokkinin4Jusho
	Dim Hokkinin5Jusho

	Dim Kabushiki1
	Dim Kabushiki2
	Dim Kabushiki3
	Dim Kabushiki4
	Dim Kabushiki5
	Dim Gakumen

	Dim SeitoJisha

	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""

	HyojiFlg = Request("HyojiFlg")

	Dim SortMode
	SortMode = Request("SortMode")

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	TantosyaFlg = 1
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Tantosya = Request("Tantosya")
	NumChrCheck = NumChrCheck & Tantosya
	KanKatsu = Request("KanKatsu")
	NumChrCheck = NumChrCheck & KanKatsu
	RouteType = Request("RouteType")
	KaisyaCD = UCase(KaisyaCD)
	Action = Request("Action")
	Kaisyamei = Request("Kaisyamei")
	NumChrCheck = NumChrCheck & Kaisyamei
	KaisyaRyakumei = Request("KaisyaRyakumei")
	NumChrCheck = NumChrCheck & KaisyaRyakumei
	KaisyaKanamei = Request("KaisyaKanamei")
	ZipCode = Request("ZipCode")
	Adr1 = Request("Adr1")
	NumChrCheck = NumChrCheck & Adr1
	Adr2 = Request("Adr2")
	NumChrCheck = NumChrCheck & Adr2
	Tel = Request("Tel")
	Fax = Request("Fax")
	GyosyuCD = Request("GyosyuCD")
	ErrMsg = Request("ErrMsg")
	JisyaFlg = Request("JisyaFlg")
	GakuseiBango = Request("GakuseiBango")
	ShijyoCD = Request("ShijyoCD")
	
	KitakuKaisyaCD = Request("KitakuKaisyaCD")
	OldKitakuKaisyaCD = Request("OldKitakuKaisyaCD")

	DaityoTorishimariyaku = Request("DaityoTorishimariyaku")
	NumChrCheck = NumChrCheck & DaityoTorishimariyaku
	DaityoTorishimariyakuJyusyo = Request("DaityoTorishimariyakuJyusyo")
	NumChrCheck = NumChrCheck & DaityoTorishimariyakuJyusyo
	Torishimariyaku1 = Request("Torishimariyaku1")
	NumChrCheck = NumChrCheck & Torishimariyaku1
	Torishimariyaku1Jyusyo = Request("Torishimariyaku1Jyusyo")
	NumChrCheck = NumChrCheck & Torishimariyaku1Jyusyo
	Torishimariyaku2 = Request("Torishimariyaku2")
	NumChrCheck = NumChrCheck & Torishimariyaku2
	Torishimariyaku2Jyusyo = Request("Torishimariyaku2Jyusyo")
	NumChrCheck = NumChrCheck & Torishimariyaku2Jyusyo
	Hokkinin4 = Request("Hokkinin4")
	NumChrCheck = NumChrCheck & Hokkinin4
	Hokkinin5 = Request("Hokkinin5")
	NumChrCheck = NumChrCheck & Hokkinin5
	Hokkinin4Jusho = Request("Hokkinin4Jusho")
	NumChrCheck = NumChrCheck & Hokkinin4Jusho
	Hokkinin5Jusho = Request("Hokkinin5Jusho")
	NumChrCheck = NumChrCheck & Hokkinin5Jusho
	Kabushiki1 = ConvMoneyToInt(Request("Kabushiki1"))
	If Kabushiki1 = "" Then
		Kabushiki1 = "null"
	End If
	Kabushiki2 = ConvMoneyToInt(Request("Kabushiki2"))
	If Kabushiki2 = "" Then
		Kabushiki2 = "null"
	End If
	Kabushiki3 = ConvMoneyToInt(Request("Kabushiki3"))
	If Kabushiki3 = "" Then
		Kabushiki3 = "null"
	End If
	Kabushiki4 = ConvMoneyToInt(Request("Kabushiki4"))
	If Kabushiki4 = "" Then
		Kabushiki4 = "null"
	End If
	Kabushiki5 = ConvMoneyToInt(Request("Kabushiki5"))
	If Kabushiki5 = "" Then
		Kabushiki5 = "null"
	End If
	Gakumen = ConvMoneyToInt(Request("Gakumen"))
	If Gakumen = "" Then
		Gakumen = "null"
	End If
	Shihonkin = ConvMoneyToInt(Request("Shihonkin"))
	If Shihonkin = "" Then
		Shihonkin = "null"
	End If
	Mokuteki = Request("Mokuteki")
	NumChrCheck = NumChrCheck & Mokuteki
	Mokuteki = Replace(Mokuteki, vbCrLf, "<br>")
	DaihyoSyain = Request("DaihyoSyain")
	NumChrCheck = NumChrCheck & DaihyoSyain

	SeitoJisha = Request("SeitoJisha")

	If DaihyoSyain = "" Then
		DaihyoSyain = KaisyaRyakumei & "の代表"
	End If

	'寄託会社CDの同時同業補正
	Dim TmpGakuseiBango
	If GB_EnshuKubun = "P" And GakuseiBango <> "" Then
		TmpGakuseiBango = "-" & GakuseiBango
	Else
		TmpGakuseiBango = ""
	End If

	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If

	'代替文字の置換
	If Tantosya = "DaihyoTorishimariyakukayiramihsiroToyhiaD" Then
		Tantosya = DaityoTorishimariyaku
	End If

	'寄託会社を設定できない業種CDが他にあれば条件文に追加
	If GyosyuCD <> "S" Then
		KitakuKaisyaCD = ""
	End If

	'サイバー会計におけるユーザー単位のマスタ会社追加の場合
	If PackageMode = 1 And GB_Admin < 1 And GB_EnshuKubun = "P" Then
		If InStr(KaisyaCD, "-" & GB_GakuseiNo) < 1 And KaisyaCD <> GB_GakuseiNo Then
			KaisyaCD = KaisyaCD & "-" & GB_GakuseiNo
			GakuseiBango = GB_GakuseiNo
		End If
	End If

	rsts = True

'Response.Write(Action)
'Exit Sub


		Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 1"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And Content.Fields("学生番号") = GakuseiBango And Content.Fields("会社名称") = Kaisyamei Then
				ErrMSG = "この会社名称は登録済みです"
				rsts = False
			ElseIf UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And Content.Fields("学生番号") = GakuseiBango AND Content.Fields("会社略名称") = KaisyaRyakumei Then
				ErrMSG = "この会社略名称は登録済みです"
				rsts = False
			End If
			Content.MoveNext
		Loop

'		Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 1"
'		Set Content = OpenQuery(Query)
'		Do While Not(Content.BOF Or Content.EOF)
'			If UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And Content.Fields("学生番号") = GakuseiBango And Content.Fields("会社名称") = Kaisyamei Then
'				ErrMSG = "この会社名称は登録済みです"
'				rsts = False
'			End If
'			Content.MoveNext
'		Loop



	If Action = 1 Then

		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ErrMSG = "このコードはすでに登録済みです。"
			rsts =	False
		End If

	Else


		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
		Else
			ErrMSG = "対象会社は存在しません。"
			rsts =	False
		End If
	End If


	If rsts = False Then
		Ng = "fm_kaisya.asp?action=" & Action & "&nr=r"
		Ng = Ng & "&KaisyaCD=" & KaisyaCD & "&Kaisyamei=" & Kaisyamei & "&KaisyaRyakumei=" & KaisyaRyakumei
		Ng = Ng & "&KaisyaKanamei=" & KaisyaKanamei & "&ZipCode=" & ZipCode &	"&Adr1=" & Adr1
		Ng = Ng & "&Adr2=" & Adr2 & "&Tel=" & Tel & "&Fax=" & Fax
		Ng = Ng & "&GyosyuCD=" & GyosyuCD
		Ng = Ng & "&KitakuKaisyaCD=" & KitakuKaisyaCD
		Ng = Ng & "&ShijyoCD=" & ShijyoCD
		Ng = Ng & "&DaityoTorishimariyaku=" & DaityoTorishimariyaku
		Ng = Ng & "&DaityoTorishimariyakuJyusyo=" & DaityoTorishimariyakuJyusyo
		Ng = Ng & "&Torishimariyaku1=" & Torishimariyaku1
		Ng = Ng & "&Torishimariyaku1Jyusyo=" & Torishimariyaku1Jyusyo
		Ng = Ng & "&Torishimariyaku2=" & Torishimariyaku2
		Ng = Ng & "&Torishimariyaku2Jyusyo=" & Torishimariyaku2Jyusyo
		Ng = Ng & "&Hokkinin4=" & Hokkinin4
		Ng = Ng & "&Hokkinin4Jusho=" & Hokkinin4Jusho
		Ng = Ng & "&Hokkinin5=" & Hokkinin5
		Ng = Ng & "&Hokkinin5Jusho=" & Hokkinin5Jusho
		Ng = Ng & "&Kabushiki1=" & Kabushiki1
		Ng = Ng & "&Kabushiki2=" & Kabushiki2
		Ng = Ng & "&Kabushiki3=" & Kabushiki3
		Ng = Ng & "&Kabushiki4=" & Kabushiki4
		Ng = Ng & "&Kabushiki5=" & Kabushiki5
		Ng = Ng & "&Gakumen=" & Gakumen
		Ng = Ng & "&Shihonkin=" & Shihonkin
		Ng = Ng & "&Mokuteki=" & Mokuteki
		Ng = Ng & "&DaihyoSyain=" & DaihyoSyain
		Ng = Ng & "&ErrMSG=" & ErrMSG
		Ng = Ng & "&RouteType=" & RouteType
		Ng = Ng & "&HyojiFlg=" & HyojiFlg
		Ng = Ng & "&SortMode=" & SortMode
		Ng = Ng & "&ShijoCD=" & ShijoCD
		Ng = Ng & "&SeitoJisha=" & SeitoJisha
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If

	If Action = 4 Then
		If GB_EnshuKubun = "G" Then
			Query = "exec SPV選択可能会社選択解除会社 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
		End If
		Query = "exec SPM会社削除 '" & GB_SystemCD & "', '" & EnshuCD &	"', '" & KaisyaCD & "'"
	Else
	
		If GakuseiBango = "" Then

			Query = "exec SPM会社ユーザ取得 '" & GB_SystemCD & "'," & "'" & EnshuCD & "','" & KitakuKaisyaCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				GakuseiBango = Content.Fields("学生番号")
			End If
			
			'Response.Write("Query:" & Query & "<br>")
			'Response.Write("GakuseiBango:" & GakuseiBango & "<br>")
			
			'KitakuKaisyaCD = KitakuKaisyaCD & "-" & GakuseiBango
		End If
		If GB_Admin => 1 And Action = 1 Then
			GakuseiBango = ""
		End If

		Query = "exec SPM会社更新 '" & GB_SystemCD & "'," & Action
		Query = Query & ",'" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",'" & ShijyoCD & "'"
		Query = Query & ",'" & Kaisyamei	& "'"
		Query = Query & ",'" & KaisyaRyakumei	& "'"
		Query = Query & ",'" & KaisyaKanamei	& "'"
		Query = Query & ",'" & ZipCode	& "'"
		Query = Query & ",'" & Adr1	& "'"
		Query = Query & ",'" & Adr2	& "'"
		Query = Query & ",'" & Tel	& "'"
		Query = Query & ",'" & Fax & "'"
		Query = Query & ",'" & GyosyuCD & "'"
		Query = Query & "," & JisyaFlg
		Query = Query & ",'" & GakuseiBango & "'"
		Query = Query & ",'" & KitakuKaisyaCD & TmpGakuseiBango & "'"
		Query = Query & ",'" & DaityoTorishimariyaku & "'"
		Query = Query & ",'" & DaityoTorishimariyakuJyusyo & "'"
		Query = Query & ",'" & Torishimariyaku1 & "'"
		Query = Query & ",'" & Torishimariyaku1Jyusyo & "'"
		Query = Query & ",'" & Torishimariyaku2 & "'"
		Query = Query & ",'" & Torishimariyaku2Jyusyo & "'"
		Query = Query & ",'" & Hokkinin4 & "'"
		Query = Query & ",'" & Hokkinin4Jusho & "'"
		Query = Query & ",'" & Hokkinin5 & "'"
		Query = Query & ",'" & Hokkinin5Jusho & "'"
		Query = Query & "," & Shihonkin
		Query = Query & ",'" & Mokuteki & "'"
		Query = Query & "," & Kabushiki1
		Query = Query & "," & Kabushiki2
		Query = Query & "," & Kabushiki3
		Query = Query & "," & Kabushiki4
		Query = Query & "," & Kabushiki5
		Query = Query & "," & Gakumen
		'Response.Write("Query:" & Query & "<br>")
		'exit sub
	End If

	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	'同時同業のマスタ会社を生徒の自社とする設定(200715小野)
	If GB_EnshuKubun = "G" Then
		SeitoJisha = "0"
	End If
	If SeitoJisha = "1" Then
		'一旦すべてOFFにする
		Query = ""
		Query = Query & " UPDATE TDA会社M "
		Query = Query & " SET 同時同業生徒自社 = '0' "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
'		Query = Query & " 	AND 会社CD <> '" & KaisyaCD & "' "
'		Query = Query & " 	AND (学生番号 = '' OR 学生番号 IS NULL) " 'マスタ会社のみ
		Set Content = OpenQuery(Query)
	End If
	Query = ""
	Query = Query & "  "
	Query = Query & " UPDATE TDA会社M "
	Query = Query & " SET 同時同業生徒自社 = '" & SeitoJisha & "' "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND (会社CD = '" & KaisyaCD & "' OR 会社CD LIKE '" & KaisyaCD & "-%') "
	Set Content = OpenQuery(Query)

	If Action = 1 Then
		GakuseiBango = ""
	End If

	Dim Content2

	'代表取締役を更新(080529小野)
	Dim SyainNo1
	Dim SyainNoLabel
	Dim Birthday
	Dim FuyoNinzu
	Dim YubinNo
	Dim Jyusyo
	Dim TelNo
	Dim MobileNo
	Dim Yakusyoku
	Dim Nyusyabi
	Dim Risyokubi
	Dim Kihonkyu
	Dim SyokumuTeate
	Dim KazokuTeate
	Dim JyutakuTeate
	Dim SeikinTeate
	Dim KaikinTeate
	Dim TukinTeate
	Dim KenkoHoken
	Dim KoseiNenkin
	Dim NenkinKikin
	Dim KoyoHoken
	Dim KaigoHoken
	Dim TmpGakuseiNo	'自社設定会社の場合はユーザー作成であるため学生番号を取得する
	Dim DaihyoSonzai
	DaihyoSonzai = 0
	SyainNo1 = 1
	If Action < 4 Then
		Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("社員番号") = SyainNo1 Then
				SyainNo1 = Content.Fields("社員番号") + 1
			End If
			If  "" & Content.Fields("代表取締役フラグ") = "1" Then
				DaihyoSonzai = 1
				SyainNo1 = Content.Fields("社員番号")
				Query = "exec SPK社員台帳取得2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & SyainNo1
				Set Content2 = OpenQuery(Query)
				If Not(Content2.BOF Or Content2.EOF) Then
					SyainNoLabel = Content2.Fields("社員番号ラベル")
					Birthday = Content2.Fields("生年月日")
					FuyoNinzu = Content2.Fields("扶養家族人数")
					YubinNo = Content2.Fields("郵便番号")
					Jyusyo = Content2.Fields("住所")
					TelNo = Content2.Fields("電話番号")
					MobileNo = Content2.Fields("ケータイ")
					Yakusyoku = Content2.Fields("役職")
					Nyusyabi = Content2.Fields("入社年月日")
					Risyokubi = Content2.Fields("離職年月日")
					Kihonkyu = Content2.Fields("基本給")
					SyokumuTeate = Content2.Fields("職務手当")
					KazokuTeate = Content2.Fields("家族手当")
					JyutakuTeate = Content2.Fields("住宅手当")
					SeikinTeate = Content2.Fields("精勤手当")
					KaikinTeate = Content2.Fields("皆勤手当")
					TukinTeate = Content2.Fields("通勤手当")
					KenkoHoken = Content2.Fields("健康保険")
					KoseiNenkin = Content2.Fields("厚生年金")
					NenkinKikin = Content2.Fields("年金基金")
					KoyoHoken = Content2.Fields("雇用保険")
					KaigoHoken = Content2.Fields("介護保険")
					TmpGakuseiNo = "" & Content2.Fields("学生番号")
					Exit Do
				End If
			End If
			Content.MoveNext
		Loop
		If DaihyoSyain <> "" And DaihyoSonzai = 0 Then
			'代表取締役氏名が指定されていて代表取締役の社員が存在しない場合は新規作成モード
			SyainNo1 = "null"
		End If
		Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", " & SyainNo1 & ""
		Query = Query & ", '" & SyainNoLabel & "'"
		Query = Query & ", '" & DaihyoSyain & "'"
		If "" & Birthday <> "" Then
			Query = Query & ", '" & Birthday & "'"
		Else
			Query = Query & ", null"
		End If
		If "" & FuyoNinzu <> "" Then
			Query = Query & ", " & FuyoNinzu
		Else
			Query = Query & ", null"
		End If
		Query = Query & ", '" & YubinNo & "'"
		Query = Query & ", '" & Jyusyo & "'"
		Query = Query & ", '" & TelNo & "'"
		Query = Query & ", '" & MobileNo & "'"
		Query = Query & ", '" & Yakusyoku & "'"
		If "" & Nyusyabi <> "" Then
			Query = Query & ", '" & Nyusyabi & "'"
		Else
			Query = Query & ", null"
		End If
		If "" & Risyokubi <> "" Then
			Query = Query & ", '" & Risyokubi & "'"
		Else
			Query = Query & ", null"
		End If
		If "" & Kihonkyu <> "" Then
			Query = Query & ", " & Kihonkyu
		Else
			Query = Query & ", null"
		End If
		If "" & SyokumuTeate <> "" Then
			Query = Query & ", " & SyokumuTeate
		Else
			Query = Query & ", null"
		End If
		If "" & KazokuTeate <> "" Then
			Query = Query & ", " & KazokuTeate
		Else
			Query = Query & ", null"
		End If
		If "" & JyutakuTeate <> "" Then
			Query = Query & ", " & JyutakuTeate
		Else
			Query = Query & ", null"
		End If
		If "" & SeikinTeate <> "" Then
			Query = Query & ", " & SeikinTeate
		Else
			Query = Query & ", null"
		End If
		If "" & KaikinTeate <> "" Then
			Query = Query & ", " & KaikinTeate
		Else
			Query = Query & ", null"
		End If
		If "" & TukinTeate <> "" Then
			Query = Query & ", " & TukinTeate
		Else
			Query = Query & ", null"
		End If
		If "" & KenkoHoken <> "" Then
			Query = Query & ", " & KenkoHoken
		Else
			Query = Query & ", null"
		End If
		If "" & KoseiNenkin <> "" Then
			Query = Query & ", " & KoseiNenkin
		Else
			Query = Query & ", null"
		End If
		If "" & NenkinKikin <> "" Then
			Query = Query & ", " & NenkinKikin
		Else
			Query = Query & ", null"
		End If
		If "" & KoyoHoken <> "" Then
			Query = Query & ", " & KoyoHoken
		Else
			Query = Query & ", null"
		End If
		If "" & KaigoHoken <> "" Then
			Query = Query & ", " & KaigoHoken
		Else
			Query = Query & ", null"
		End If
		Query = Query & ", '" & TmpGakuseiNo & "'"	'学生番号(マスタ社員はNULL)
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SyainNo1 = Content.Fields(0)
		End If

		Query = "exec SPK社員台帳更新_代表取締役 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", " & SyainNo1
		Set Content = OpenQuery(Query)

	End If



'代表取締役→発起人1に変更のため廃止
	'代表取締役を社員台帳に登録(070607小野)
'	If Action < 4 Then
'		Dim SyainNo1
'		Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'		Set Content = OpenQuery(Query)
'		Do While Not(Content.BOF Or Content.EOF)
'			If "" & Content.Fields("社員番号") = "1" And Content.Fields("氏名") = DaityoTorishimariyaku Then
'				SyainNo1 = "1"
'				Exit Do
'			End If
'			Content.MoveNext
'		Loop
		'代表取締役が変わった場合は更新
		'会社選択時に必ず社員番号1が作成されているため社員番号1決め打ち
		'シンクロさせるため代表取締役フラグも横取りする
'		If SyainNo1 <> "1" Then
'			Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 1"
'			Query = Query & ", '" & DaityoTorishimariyaku & "', null, 0, '', '" & DaityoTorishimariyakuJyusyo & "', '', '', '代表取締役', 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
'	End If


	If GyosyuCD = "S" Then

		'寄託契約書を破棄する
		Query = "DELETE FROM TGA契約書F WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 作成会社CD = '" & KaisyaCD & "' AND 文書種類CD = 'XK'"
		Set Content = OpenQuery(Query)
		Query = "DELETE FROM TTX文書F WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 作成会社CD = '" & KaisyaCD & "' AND 文書種類CD = 'XK'"
		Set Content = OpenQuery(Query)
		Query = "DELETE FROM TTX文書F WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 取引先CD = '" & KaisyaCD & "' AND 文書種類CD = 'XK'"
		Set Content = OpenQuery(Query)

		If KitakuKaisyaCD <> "" Then
			'担当者が該当しなければ新規作成
			Dim TantosyaCD
			TantosyaCD = 0
			Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				TantosyaCD = Content.Fields("社員番号")
				If Content.Fields("氏名") = Tantosya Then
					TantosyaFlg = 0
					Exit Do
				End If
				Content.MoveNext
			Loop
			If TantosyaFlg > 0 Then
				Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', null"
				Query = Query & ", '', '" & Tantosya & "', null, 0, '', '', '', '', '', null, null"
				Query = Query & ", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ''"
				DebugQuery(Query)
				Set Content = OpenQuery(Query)
				If Not(Content.BOF Or Content.EOF) Then
					TantosyaCD = Content.Fields(0)
				End If
			End If
			'契約書を作成する
			Query = "exec SPK契約書挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '', '" & KaisyaCD & "',"
			Query = Query & " 'S', '" & KitakuKaisyaCD & TmpGakuseiBango & "', '" & TantosyaCD & "', '" & KanKatsu & "',"
			Query = Query & " '" & GakuseiNo & "', '" & GB_KaikeiKaishibi & "', '" & GB_KaikeiKaishibi & "', '" & GB_KaikeiSyuryobi & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				BunsyoNaiyoCD = Content.Fields(0)
			End If
			Query = "exec SPK契約書発信 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', '" & KitakuKaisyaCD & TmpGakuseiBango & "', '" & GB_KaikeiKaishibi & "', '" & GakuseiBango & "'"
			Set Content = OpenQuery(Query)
			Query = "exec SPK契約書受諾 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KitakuKaisyaCD & TmpGakuseiBango & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', '1', '" & GB_KaikeiKaishibi & "', '" & GakuseiBango & "'"
			Set Content = OpenQuery(Query)
			Query = "exec SPK契約書開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KitakuKaisyaCD & TmpGakuseiBango & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
		End If

	End If

	If RouteType = "syatyo" Then
		Response.Redirect("/" & HomeAlias & "/user/bk/teikan.asp?RouteType=syatyo")
	ElseIf Action = 4 Then
		Response.Redirect("fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD)
	Else


		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
	'	If Not(Content.BOF Or Content.EOF) Then
		If 1 = 0 Then
			Session(HomeAlias & "GakuseiNo") = Content.Fields("学生番号")
			Session(HomeAlias & "GyosyuMeisyo") = Content.Fields("業種名称")
			Session(HomeAlias & "GyosyuKubun") = Content.Fields("業種CD")
			If Content.Fields("業種CD") = "B" Then
				Session(HomeAlias & "Gyosyu") = "B"
			Else
				Session(HomeAlias & "Gyosyu") = "S"
			End If
		End If

		Response.Redirect("fm_kaisya_view.asp?KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD)
	End If

End Sub
%>