
<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：自社情報登録処理   
'   作成日：2002/8/30
'   作成者：山崎
'   目的　：会社Mに自社を追加する
'   概要  ：
'    <<表示>>
'	・なし
'	2002/9/30:山崎:修正:会社略名称を追加
'################################################
'-->
'
'
%>


<%
main()
Sub main()

	Dim Query
	Dim Content
	Dim i
	Dim ErrMsg
	Dim DaihyoTorishimariyaku
	Dim SyainNo
	SyainNo = 0

	Dim ref
	ref = Request("ref")
	If GB_EnshuKubun <> "P" Then
		ref = "collabo"
	End If

	DaihyoTorishimariyaku = Request("DaihyoTorishimariyaku")

	'新社員番号の採番
'	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'	Set Content = OpenQuery(Query)
'	Do While Not(Content.BOF Or Content.EOF)
'		If Content.Fields("社員番号") >= SyainNo Then
'			SyainNo = Content.Fields("社員番号")
'		End If
'		Content.MoveNext
'	Loop
'	SyainNo = SyainNo + 1
	SyainNo = "null"
Call Application.Lock()
	'複数ノードで処理が重なった場合に重複作成されないよう代表取締役を取得
	Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("代表取締役フラグ") = "1" Then
			SyainNo = Content.Fields("社員番号")
			Exit do
		End If
		Content.MoveNext
	Loop
	'作成または更新
	Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & SyainNo
	Query = Query & ", '', '" & DaihyoTorishimariyaku & "', null, null, '', '', '', '', '代表取締役', null, null"
	Query = Query & ", null, null, null, null, null, null, null, null, null, null, null, null"
	Query = Query & ", '" & GB_GakuseiNo & "'"	'学生番号
	DebugQuery(Query)
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		SyainNo = Content.Fields(0)
	End If
	Query = "exec SPK社員台帳更新_代表取締役 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", '" & KaisyaCD & "'"
	Query = Query & ", " & SyainNo
	Set Content = OpenQuery(Query)
Call Application.Unlock()

	If PackageMode = 1 Then
		Response.Redirect("/" & HomeAlias & "/user/bk/menu_cyac.asp")
	Else
		Response.Redirect("/" & HomeAlias & "/user/bk/menu_" & LCase(GB_Gyosyu) & ".asp?ref=" & ref & "&WBCLB=" & Request("WBCLB"))
	End If

End Sub
%>