
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：給与明細処理
'	作成日	：2007/6/5
'	作成者	：小野
'	目的　	：給与明細を追加・修正する。
'	概要	：
'################################################
'-->
%>
<%

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Seq
	Dim ShikyuKubun
	Dim Shikyubi
	Dim Action , NRflg
	Dim Ng , ErrMSG
	Dim SyainNo, Shimei, Birthday		 	'社員番号、氏名、生年月日
	Dim FuyoNinzu, Yakusyoku 			'扶養家族人数、役職、基本給
	Dim Kihonkyu, Jikangai, JikangaiTeate, SyokumuTeate, JyutakuTeate, SeikinTeate
	Dim KaikinTeate, SonotaTeate, TukinTeate, Soshikyugaku, KenkoHoken
	Dim KoseiNenkin, NenkinKikin, KoyoHoken, Syotokuzei, Jyuminzei
	Dim KaigoHoken
	Dim kazokuTeate

	Dim DbSyainNo
	Dim rsts
	Dim Query
	Dim Content
	Dim Nengetu, Gatudo

	NRflg = Request("nr")
	Action = Request("Action")
	DbSyainNo = Request("DbSyainNo")
	SyainNo = Request("SyainNo")
	Seq = Request("Seq")
	ShikyuKubun = Request("ShikyuKubun")
	Shikyubi = Request("Shikyubi")
	Kihonkyu = ConvMoneyToInt(Request("Kihonkyu"))
	Jikangai = ConvMoneyToInt(Request("Jikangai"))
	JikangaiTeate = ConvMoneyToInt(Request("JikangaiTeate"))
	SyokumuTeate = ConvMoneyToInt(Request("SyokumuTeate"))
	kazokuTeate = ConvMoneyToInt(Request("kazokuTeate"))
	JyutakuTeate = ConvMoneyToInt(Request("JyutakuTeate"))
	SeikinTeate = ConvMoneyToInt(Request("SeikinTeate"))
	KaikinTeate = ConvMoneyToInt(Request("KaikinTeate"))
	SonotaTeate = ConvMoneyToInt(Request("SonotaTeate"))
	TukinTeate = ConvMoneyToInt(Request("TukinTeate"))
	Soshikyugaku = ConvMoneyToInt(Request("Soshikyugaku"))
	KenkoHoken = ConvMoneyToInt(Request("KenkoHoken"))
	KoseiNenkin = ConvMoneyToInt(Request("KoseiNenkin"))
	NenkinKikin = ConvMoneyToInt(Request("NenkinKikin"))
	KoyoHoken = ConvMoneyToInt(Request("KoyoHoken"))
	KaigoHoken = ConvMoneyToInt(Request("KaigoHoken"))
	Syotokuzei = ConvMoneyToInt(Request("Syotokuzei"))
	Jyuminzei = ConvMoneyToInt(Request("Jyuminzei"))

	ErrMSG = ""

'	If SyainNo = "" Then SyainNo = "null" End If
	If Kihonkyu = "" Then Kihonkyu = "0" End If
	If Jikangai = "" Then Jikangai = "0" End If
	If JikangaiTeate = "" Then JikangaiTeate = "0" End If
	If SyokumuTeate = "" Then SyokumuTeate = "0" End If
	If kazokuTeate = "" Then kazokuTeate = "0" End If
	If JyutakuTeate = "" Then JyutakuTeate = "0" End If
	If SeikinTeate = "" Then SeikinTeate = "0" End If
	If KaikinTeate = "" Then KaikinTeate = "0" End If
	If SonotaTeate = "" Then SonotaTeate = "0" End If
	If TukinTeate = "" Then TukinTeate = "0" End If
	If Soshikyugaku = "" Then Soshikyugaku = "0" End If
	If KenkoHoken = "" Then KenkoHoken = "0" End If
	If KoseiNenkin = "" Then KoseiNenkin = "0" End If
	If NenkinKikin = "" Then NenkinKikin = "0" End If
	If KoyoHoken = "" Then KoyoHoken = "0" End If
	If KaigoHoken = "" Then KaigoHoken = "0" End If
	If Syotokuzei = "" Then Syotokuzei = "0" End If
	If Jyuminzei = "" Then Jyuminzei = "0" End If

	If Action = "del" Then

		Query = "exec SPK給与明細削除 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", " & DbSyainNo
		Query = Query & ", " & Seq
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)

	Else

		If Seq = "" Or Action = "add" Then
			Seq = 0
			Query = "exec SPK給与明細社員一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', " & DbSyainNo
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("給与明細CD") > Seq Then
					Seq = Content.Fields("給与明細CD")
				End If
				Content.MoveNext
			Loop
			Seq = Seq + 1
		End If

		Query = "exec SPK給与明細更新 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		Query = Query & ", " & DbSyainNo
		Query = Query & ", " & Seq
		Query = Query & ", '" & ShikyuKubun & "'"
		Query = Query & ", '" & Shikyubi & "'"
		Query = Query & ", " & Kihonkyu
		Query = Query & ", " & Jikangai
		Query = Query & ", " & JikangaiTeate
		Query = Query & ", " & SyokumuTeate
		Query = Query & ", " & kazokuTeate
		Query = Query & ", " & JyutakuTeate
		Query = Query & ", " & SeikinTeate
		Query = Query & ", " & KaikinTeate
		Query = Query & ", " & TukinTeate
		Query = Query & ", " & SonotaTeate
		Query = Query & ", " & KenkoHoken
		Query = Query & ", " & KoseiNenkin
		Query = Query & ", " & NenkinKikin
		Query = Query & ", " & KoyoHoken
		Query = Query & ", " & KaigoHoken
		Query = Query & ", " & Syotokuzei
		Query = Query & ", " & Jyuminzei

DebugQuery(Query)

		Set Content = OpenQuery(Query)

		If Content.Fields.Count > 0 Then
			Seq = Content.Fields(0)
			rsts = Content.Fields(0)
		End If


	End If

'	If Action = "del" Then
'		Response.Redirect("/" & HomeAlias & "/user/bk/kyuyo/fk_syain_ichiran.asp?YYMM=" & Nengetu )
		Response.Redirect("fk_kyuyo_ichiran.asp?DbSyainNo=" & DbSyainNo)
'	Else
'		Response.Redirect("fk_kyuyo_view.asp?DbSyainNo=" & DbSyainNo & "&Seq=" & Seq)
'	End if
End Sub
%>