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

<%
'<!-- 
'################################################
'   名称  ：自社情報登録処理   
'   作成日：2002/8/30
'   作成者：山崎
'   目的　：会社Mに自社を追加する
'   概要  ：
'    <<表示>>
'	・なし
'	2002/9/30:山崎:修正:会社略名称を追加
'################################################
'-->
'
'
%>


<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	Dim i
	Dim ErrMsg
	Dim KaisyaKanaMeisyo, KaisyaMeisyo, KaisyaRyakuMeisyo, YubinBango
	Dim Jyusyo1, Jyusyo2, TEL, FAX, SetsuritsuNengappi
	Dim DaityoTorishimariyaku, Shihonkin			
	Dim Torishimariyaku, Torishimariyaku1, Torishimariyaku2, Mokuteki
	Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo
	Dim ShijyoCD
	Dim GyosyuCD
	Dim DaityoTorishimariyakuJyusyo
	Dim KitakuGaisyaCD

	Dim Hokkinin4
	Dim Hokkinin5
	Dim Hokkinin4Jusho
	Dim Hokkinin5Jusho

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

	KaisyaKanaMeisyo = Request("KaisyaKanaMeisyo")	
	KaisyaMeisyo = Request("KaisyaMeisyo")	
	KaisyaRyakuMeisyo = Request("KaisyaRyakuMeisyo")	
	YubinBango = Request("YubinBango")	
	Jyusyo1 = Request("Jyusyo1")	
	Jyusyo2 = Request("Jyusyo2")	
	TEL = Request("TEL")	
	FAX = Request("FAX")	
	ShijyoCD = Request("ShijyoCD")	
	DaityoTorishimariyaku = Request("DaityoTorishimariyaku")
	Shihonkin = ConvMoneyToInt(Request("Shihonkin"))
	Kabushiki1 = ConvMoneyToInt(Request("Kabushiki1"))
	Kabushiki2 = ConvMoneyToInt(Request("Kabushiki2"))
	Kabushiki3 = ConvMoneyToInt(Request("Kabushiki3"))
	Kabushiki4 = ConvMoneyToInt(Request("Kabushiki4"))
	Kabushiki5 = ConvMoneyToInt(Request("Kabushiki5"))
	Gakumen = ConvMoneyToInt(Request("Gakumen"))
	Torishimariyaku1 = Request("Torishimariyaku1")	
	Torishimariyaku2 = Request("Torishimariyaku2")		
	Torishimariyaku1Jyusyo = Request("Torishimariyaku1Jyusyo")	
	Torishimariyaku2Jyusyo = Request("Torishimariyaku2Jyusyo")		
	GyosyuCD = Request("GyosyuCD")		
	DaityoTorishimariyakuJyusyo = Request("DaityoTorishimariyakuJyusyo")

	Hokkinin4 = Request("Hokkinin4")
	Hokkinin5 = Request("Hokkinin5")
	Hokkinin4Jusho = Request("Hokkinin4Jusho")
	Hokkinin5Jusho = Request("Hokkinin5Jusho")

'	Torishimariyaku = Torishimariyaku1 & "/" & Torishimariyaku2 
	Mokuteki = Request("Mokuteki")
	Mokuteki = Replace(Mokuteki, vbCrLf, "<br>")	
	
	KitakuGaisyaCD = Request("KitakuGaisyaCD")
	
	If Shihonkin = "" Or Shihonkin = "0" Then
		Shihonkin = "null"
	End If
	If Kabushiki1 = "" Or Kabushiki1 = "0" Then
		Kabushiki1 = "null"
	End If
	If Kabushiki2 = "" Or Kabushiki2 = "0" Then
		Kabushiki2 = "null"
	End If
	If Kabushiki3 = "" Or Kabushiki3 = "0" Then
		Kabushiki3 = "null"
	End If
	If Kabushiki4 = "" Or Kabushiki4 = "0" Then
		Kabushiki4 = "null"
	End If
	If Kabushiki5 = "" Or Kabushiki5 = "0" Then
		Kabushiki5 = "null"
	End If
	If Gakumen = "" Then
		Gakumen = "null"
	End If

	'数値文字変換チェック
	If Not(NumChrReject(KaisyaMeisyo & KaisyaRyakuMeisyo & Jyusyo1 & Jyusyo2 & DaityoTorishimariyaku & Torishimariyaku1 & Torishimariyaku2 & Torishimariyaku1Jyusyo & Torishimariyaku2Jyusyo & DaityoTorishimariyakuJyusyo & Hokkinin4 & Hokkinin5 & Hokkinin4Jusho & Hokkinin5Jusho & Mokuteki)) Then
		Exit Sub
	End If

	Dim rsts 
	rsts = 0
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)		
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("会社CD") <> GakuseiNo And Content.Fields("会社略名称") = KaisyaRyakuMeisyo Then
			ErrMSG = "この会社略名称は登録済みです"
			rsts = 1
			Exit Do
		End If
		If Content.Fields("会社CD") <> GakuseiNo And Content.Fields("会社名称") = KaisyaMeisyo Then
			ErrMSG = "この会社名称は登録済みです"
			rsts = 1
			Exit Do
		End If
		Content.MoveNext
	Loop

'Response.Write("ErrMSG:" & ErrMSG)
'Exit Sub

	Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 1"
	Set Content = OpenQuery(Query)		
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("会社CD") = GakuseiNo AND (Content.Fields("学生番号") <> GakuseiNo OR Content.Fields("自社フラグ") <> 1) Then
			ErrMSG = "会社コード " & GakuseiNo & " は登録済みです。<br>ここで自社設定される会社は、会社コード " & GakuseiNo & " になります。<br>管理者に説明し、既にある会社コード " & GakuseiNo & " の会社の会社コードを変更してもらってください。"
			rsts = 1
			Exit Do
		End If
		Content.MoveNext
	Loop

	'061205-引数に寄託会社CDを追加
	If rsts = 0 Then
		Query = "exec SPM会社自社登録 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '" & GakuseiNo & "', '" & ShijyoCD & "', '1'"
		Query = Query & ", '" & KaisyaMeisyo & "', '" & KaisyaRyakuMeisyo & "', '" & KaisyaKanaMeisyo & "', '" & YubinBango & "'"
		Query = Query & ", '" & Jyusyo1 & "', '" & Jyusyo2 & "', '" & TEL & "', '" & FAX & "', '" & GyosyuCD & "'" 
		Query = Query & ", '" & DaityoTorishimariyaku & "','" & DaityoTorishimariyakuJyusyo & "', " & Shihonkin & ""
		Query = Query & ", '" & Torishimariyaku1 & "','" & Torishimariyaku2 & "','" & Torishimariyaku1Jyusyo & "','" & Torishimariyaku2Jyusyo & "'"	
		Query = Query & ", '" & Hokkinin4 & "','" & Hokkinin5 & "','" & Hokkinin4Jusho & "','" & Hokkinin5Jusho & "'"	
		Query = Query & ", '" & Mokuteki & "' , '" & KitakuGaisyaCD  & "'  "	
		Query = Query & ",  " & Kabushiki1 & ", " & Kabushiki2 & ", " & Kabushiki3 & ", " & Kabushiki4 & ", " & Kabushiki5 & ", " & Gakumen & " "

'Response.Write("Query:" & Query)
'exit sub

		Session(HomeAlias & "KaisyaCD") = GakuseiNo
		
		DebugQuery(Query)
		
		Set Content = OpenQuery(Query)    

		'代表取締役を社員台帳に登録（070607小野）
'		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

		'サイバー会計モードでは会社を自動選択する
		If PackageMode = 1 Then
			Response.Redirect("default_bin.asp?KaisyaCD=" & GakuseiNo)
		ElseIf Request("SelectType") = "0" Then
			Response.Redirect("regcorp_view.asp")
		Else
			Response.Redirect("teikan.asp?WBCLB=" & Request("WBCLB"))
		End If
	Else
	
		Response.Write(ErrMSG)
		Response.Write("<br>")

%>
	<a href="JavaScript:history.go(-1)">戻る</a>
<%            
	End If

End Sub
%>