
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：社員台帳更新処理
'	作成日	：2007/5/25
'	作成者	：小野
'	目的　	：社員台帳の追加・修正を行う。
'	概要	：
'################################################
'-->
'
%>
<%

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Action , NRflg , ErrMSG
	Dim DbSyainNo
	Dim SyainNo
	Dim Shimei
	Dim Birthday
	Dim FuyoNinzu
	Dim YubinNo
	Dim Jyusyo
	Dim TelNo
	Dim MobileNo
	Dim DaihyoFlg
	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 RisyokuFlg

	Dim Query
	Dim Content
	Dim GakuseiShimei
	Dim GakuseiBango

	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""

	NRflg = Request("nr")
	Action = Request("Action")

	DbSyainNo = Request("DbSyainNo")
	SyainNo = Request("SyainNo")
	ErrMSG = Request("ErrMSG")

	Shimei = Request("Shimei")
	NumChrCheck = NumChrCheck & Shimei
	Birthday = Request("Birthday")
	FuyoNinzu = ConvMoneyToInt(Request("FuyoNinzu"))
	YubinNo = Request("YubinNo")
	Jyusyo = Request("Jyusyo")
	NumChrCheck = NumChrCheck & Jyusyo
	TelNo = Request("TelNo")
	MobileNo = Request("MobileNo")
	DaihyoFlg = Request("DaihyoFlg")
	Yakusyoku = Request("Yakusyoku")
	NumChrCheck = NumChrCheck & Yakusyoku
	Nyusyabi = Request("Nyusyabi")
	Risyokubi = Request("Risyokubi")
	Kihonkyu = ConvMoneyToInt(Request("Kihonkyu"))
	SyokumuTeate = ConvMoneyToInt(Request("SyokumuTeate"))
	KazokuTeate = ConvMoneyToInt(Request("KazokuTeate"))
	JyutakuTeate = ConvMoneyToInt(Request("JyutakuTeate"))
	SeikinTeate = ConvMoneyToInt(Request("SeikinTeate"))
	KaikinTeate = ConvMoneyToInt(Request("KaikinTeate"))
	TukinTeate = ConvMoneyToInt(Request("TukinTeate"))
	KenkoHoken = ConvMoneyToInt(Request("KenkoHoken"))
	KoseiNenkin = ConvMoneyToInt(Request("KoseiNenkin"))
	NenkinKikin = ConvMoneyToInt(Request("NenkinKikin"))
	KoyoHoken = ConvMoneyToInt(Request("KoyoHoken"))
	KaigoHoken = ConvMoneyToInt(Request("KaigoHoken"))

	RisyokuFlg = Request("RisyokuFlg")

	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If

	Dim rsts

	ErrMSG = ""

	Dim RouteType
	RouteType = Request("RouteType")

	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")


	If Action = "1" Then
		Query = "exec SPK社員台帳取得2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & DbSyainNo & "'"

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
			ErrMSG = "この社員番号はすでに登録済みです。"
			rsts =	False
		Else
			rsts =	True
		End If
	Else
		Query = "exec SPK社員台帳取得2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & DbSyainNo & "'"

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
			rsts =	True
		Else
			ErrMSG = "この社員番号は存在しません。"
			rsts =	False
		End If
	End If

	Dim Ng

	If rsts = False Then
		Ng = "fk_syain.asp?Action=" & Action & "&nr=r"
		Ng = Ng & "&ErrMSG=" & ErrMSG
		Ng = Ng & "&DbSyainNo=" & DbSyainNo
		Ng = Ng & "&SyainNo=" & SyainNo
		Ng = Ng & "&Shimei=" & Shimei
		Ng = Ng & "&Birthday=" & Birthday
		Ng = Ng & "&FuyoNinzu=" & FuyoNinzu
		Ng = Ng & "&YubinNo=" & YubinNo
		Ng = Ng & "&Jyusyo=" & Jyusyo
		Ng = Ng & "&TelNo=" & TelNo
		Ng = Ng & "&MobileNo=" & MobileNo
		Ng = Ng & "&DaihyoFlg=" & DaihyoFlg
		Ng = Ng & "&Yakusyoku=" & Yakusyoku
		Ng = Ng & "&Nyusyabi=" & Nyusyabi
		Ng = Ng & "&Risyokubi=" & Risyokubi
		Ng = Ng & "&Kihonkyu=" & Kihonkyu
		Ng = Ng & "&SyokumuTeate=" & SyokumuTeate
		Ng = Ng & "&KazokuTeate=" & KazokuTeate
		Ng = Ng & "&JyutakuTeate=" & JyutakuTeate
		Ng = Ng & "&SeikinTeate=" & SeikinTeate
		Ng = Ng & "&KaikinTeate=" & KaikinTeate
		Ng = Ng & "&TukinTeate=" & TukinTeate
		Ng = Ng & "&KenkoHoken=" & KenkoHoken
		Ng = Ng & "&KoseiNenkin=" & KoseiNenkin
		Ng = Ng & "&NenkinKikin=" & NenkinKikin
		Ng = Ng & "&KoyoHoken=" & KoyoHoken
		Ng = Ng & "&KaigoHoken=" & KaigoHoken
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If

	rsts = DbSyainNo

	If DbSyainNo = "" Then
		DbSyainNo = "null"
	End If
	If FuyoNinzu = "" Then
		FuyoNinzu = "null"
	End If

	If Kihonkyu = "" Then Kihonkyu = "null" End If
	If SyokumuTeate = "" Then SyokumuTeate = "null" End If
	If KazokuTeate = "" Then KazokuTeate = "null" End If
	If JyutakuTeate = "" Then JyutakuTeate = "null" End If
	If SeikinTeate = "" Then SeikinTeate = "null" End If
	If KaikinTeate = "" Then KaikinTeate = "null" End If
	If TukinTeate = "" Then TukinTeate = "null" End If
	If KenkoHoken = "" Then KenkoHoken = "null" End If
	If KoseiNenkin = "" Then KoseiNenkin = "null" End If
	If NenkinKikin = "" Then NenkinKikin = "null" End If
	If KoyoHoken = "" Then KoyoHoken = "null" End If
	If KaigoHoken = "" Then KaigoHoken = "null" End If


	If RisyokuFlg <> "Risyoku" And RisyokuFlg <> "Hukki" Then

		Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", " & DbSyainNo & ""
		Query = Query & ", '" & SyainNo & "'"
		Query = Query & ", '" & Shimei & "'"
		If Birthday = "" Then
			Query = Query & ", null"
		Else
			Query = Query & ", '" & Birthday & "'"
		End If
		Query = Query & ", " & FuyoNinzu
		Query = Query & ", '" & YubinNo & "'"
		Query = Query & ", '" & Jyusyo & "'"
		Query = Query & ", '" & TelNo & "'"
		Query = Query & ", '" & MobileNo & "'"
		Query = Query & ", '" & Yakusyoku & "'"
		If Nyusyabi = "" Then
			Query = Query & ", null"
		Else
			Query = Query & ", '" & Nyusyabi & "'"
		End If
		If Risyokubi = "" Then
			Query = Query & ", null"
		Else
			Query = Query & ", '" & Risyokubi & "'"
		End If
		Query = Query & ", " & Kihonkyu
		Query = Query & ", " & SyokumuTeate
		Query = Query & ", " & KazokuTeate
		Query = Query & ", " & JyutakuTeate
		Query = Query & ", " & SeikinTeate
		Query = Query & ", " & KaikinTeate
		Query = Query & ", " & TukinTeate
		Query = Query & ", " & KenkoHoken
		Query = Query & ", " & KoseiNenkin
		Query = Query & ", " & NenkinKikin
		Query = Query & ", " & KoyoHoken
		Query = Query & ", " & KaigoHoken
		Query = Query & ", '" & GB_GakuseiNo & "'"	'学生番号
		Set Content = OpenQuery(Query)

		If Content.Fields.Count > 0 Then
			rsts = Content.Fields(0)
		End If

	End If


	If RisyokuFlg <> "Risyoku" Then
		If "" & DaihyoFlg = "1" Then
			Query = "exec SPK社員台帳更新_代表取締役 '" & GB_SystemCD & "'"
			Query = Query & ", '" & EnshuCD & "'"
			Query = Query & ", '" & KaisyaCD & "'"
			Query = Query & ", " & DbSyainNo
			Set Content = OpenQuery(Query)
'			Query = "exec SPM会社更新_代表取締役 '" & GB_SystemCD & "'"
'			Query = Query & ", '" & EnshuCD & "'"
'			Query = Query & ", '" & KaisyaCD & "'"
'			Query = Query & ", '" & Shimei & "'"
'			Set Content = OpenQuery(Query)
		End If
		If RisyokuFlg = "Hukki" Then
			Query = "exec SPK社員台帳更新_離職 '" & GB_SystemCD & "'"
			Query = Query & ", '" & EnshuCD & "'"
			Query = Query & ", '" & KaisyaCD & "'"
			Query = Query & ", " & DbSyainNo
			Query = Query & ", null"
			Set Content = OpenQuery(Query)
		End If
	Else	'離職処理
		Query = "exec SPK社員台帳更新_離職 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", " & DbSyainNo
		If Risyokubi = "" Then
			Query = Query & ", null"
		Else
			Query = Query & ", '" & Risyokubi & "'"
		End If
		Set Content = OpenQuery(Query)
	End If


	If RouteType = "Kyuyo" Then
		Response.Redirect("../kyuyo/fk_kyuyo_ichiran.asp?DbSyainNo=" & rsts & "&HyojiFlg=" & HyojiFlg)
	ElseIf RisyokuFlg = "Risyoku" Then
		Response.Redirect("fk_syain_ichiran.asp" & "?HyojiFlg=" & HyojiFlg)
	Else
		Response.Redirect("fk_syain_view.asp?DbSyainNo=" & rsts & "&HyojiFlg=" & HyojiFlg)
	End if


End Sub
%>