
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：給与明細入力
'	作成日	：2007/6/4
'	作成者	：小野
'	目的　	：給与明細の入力画面を表示する。
'	概要	：
'################################################
'-->
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim DbSyainNo
	Dim SyainNo
	DbSyainNo = Request("DbSyainNo")
	SyainNo = Request("SyainNo")
	Dim Seq
	Seq = Request("Seq")
	Dim Shikyubi
	Dim ShikyuKubun



	Dim Shimei, Birthday
	Dim Action , NRflg , ErrMSG
	Dim FuyoNinzu, Yakusyoku		 '扶養家族人数、役職、基本給

	Dim Kihonkyu, Jikangai, JikangaiTeate, SyokumuTeate, JyutakuTeate, SeikinTeate, KaikinTeate
	Dim SonotaTeate
	Dim kazokuTeate
	Dim TukinTeate, Soshikyugaku, KenkoHoken, KoseiNenkin, NenkinKikin, KoyoHoken
	Dim SyakaiHokenGokei
	Dim KazeiTaisyogaku, Syotokuzei, Jyuminzei, SozeiGokei, Sokojyogaku, SashikihiShikyugaku
	Dim ZangyoTeate
	Dim KaigoHoken
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim GakuseiShimei
	Dim GakuseiBango
	Dim Nengetu, Gatudo

	NRflg = Request("nr")
	Action = Request("Action")
	ErrMSG = Request("ErrMSG")
	If NRflg = "r" then

		Shimei = Request("Shimei")
		FuyoNinzu = Request("FuyoNinzu")
		Yakusyoku = Request("Yakusyoku")
		Birthday = Request("Birthday")
		Kihonkyu = Request("Kihonkyu")
		Jikangai = Request("Jikangai")
		JikangaiTeate = Request("JikangaiTeate")
		SyokumuTeate = Request("SyokumuTeate")
		kazokuTeate = Request("kazokuTeate")
		JyutakuTeate = Request("JyutakuTeate")
		TukinTeate = Request("TukinTeate")
		SeikinTeate = Request("SeikinTeate")
		KaikinTeate = Request("KaikinTeate")
		SonotaTeate = Request("SonotaTeate")
		TukinTeate = Request("TukinTeate")
		KenkoHoken = Request("KenkoHoken")
		KoseiNenkin = Request("KoseiNenkin")
		NenkinKikin = Request("NenkinKikin")
		KoyoHoken = Request("KoyoHoken")
		KaigoHoken = Request("KaigoHoken")
		Syotokuzei = Request("Syotokuzei")
		Jyuminzei = Request("Jyuminzei")
		ShikyuKubun = Request("ShikyuKubun")
		Seq = Request("Seq")

	Else

		Query = "exec SPK社員台帳取得2 '" & GB_SystemCD & "' ,'" & EnshuCD & "', '" & KaisyaCD & "', " & DbSyainNo
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SyainNo = Content.Fields("社員番号ラベル")
			Shimei = Content.Fields("氏名")
			FuyoNinzu = Content.Fields("扶養家族人数")
			Yakusyoku = Content.Fields("役職")
			Birthday = SetTimeYYYYMMDD(Content.Fields("生年月日"))
			Kihonkyu = Content.Fields("基本給")
			SyokumuTeate = Content.Fields("職務手当")
			kazokuTeate = Content.Fields("家族手当")
			JyutakuTeate = Content.Fields("住宅手当")
			TukinTeate = Content.Fields("通勤手当")
			SeikinTeate = Content.Fields("精勤手当")
			KaikinTeate = Content.Fields("皆勤手当")
			TukinTeate = Content.Fields("通勤手当")
			KenkoHoken = Content.Fields("健康保険")
			KoseiNenkin = Content.Fields("厚生年金")
			NenkinKikin = Content.Fields("年金基金")
			KoyoHoken = Content.Fields("雇用保険")
			KaigoHoken = Content.Fields("介護保険")
		End If
		If Action <> "add" Then
			Query = "exec SPK給与明細取得 '" & GB_SystemCD & "' ,'" & EnshuCD & "', '" & KaisyaCD & "', " & DbSyainNo & ", " & Seq
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				ShikyuKubun = "" & Content.Fields("支給区分")
				Shikyubi = SetTimeYYYYMMDD(Content.Fields("支給年月日"))
				Kihonkyu = Content.Fields("基本給")
				Jikangai = Content.Fields("時間外時間")
				JikangaiTeate = Content.Fields("時間外手当")
				SyokumuTeate = Content.Fields("職務手当")
				kazokuTeate = Content.Fields("家族手当")
				JyutakuTeate = Content.Fields("住宅手当")
				TukinTeate = Content.Fields("通勤手当")
				SeikinTeate = Content.Fields("精勤手当")
				KaikinTeate = Content.Fields("皆勤手当")
				SonotaTeate = Content.Fields("その他手当")
				TukinTeate = Content.Fields("通勤手当")
				KenkoHoken = Content.Fields("健康保険")
				KoseiNenkin = Content.Fields("厚生年金")
				NenkinKikin = Content.Fields("年金基金")
				KoyoHoken = Content.Fields("雇用保険")
				KaigoHoken = Content.Fields("介護保険")
				Syotokuzei = Content.Fields("所得税")
				Jyuminzei = Content.Fields("住民税")
			End If
		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


	End If

	Soshikyugaku = Kihonkyu + JikangaiTeate + SyokumuTeate + kazokuTeate + JyutakuTeate + SeikinTeate + KaikinTeate + SonotaTeate + TukinTeate
	SyakaiHokenGokei = KenkoHoken + KoseiNenkin + NenkinKikin + KoyoHoken + KaigoHoken
	'通勤手当が100000以下なら課税対象から差し引く
	If TukinTeate > 100000 Then
		KazeiTaisyogaku = Soshikyugaku - SyakaiHokenGokei
	Else
		KazeiTaisyogaku = Soshikyugaku - SyakaiHokenGokei - TukinTeate
	End If
	SozeiGokei = Syotokuzei + Jyuminzei
	Sokojyogaku = SyakaiHokenGokei + SozeiGokei
	SashikihiShikyugaku = Soshikyugaku - Sokojyogaku


%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="POST" action="fk_kyuyo_bin.asp" autocomplete="off">
<input type="hidden" name="Seq" value="<% = Seq %>">
<input type="hidden" name="Action" value="<% = Action %>">
<input type="hidden" name="DbSyainNo" value="<% = DbSyainNo %>">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(2))

	If GB_Gyosyu <> "B" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "給与台帳", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", "給与台帳", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	If Action <> "add" Then
		Response.Write(HttpL3_2("追加", "tblbtn( 'fk_kyuyo.asp?Action=add&DbSyainNo=" & DbSyainNo & "&Seq=" & Seq & "')", "一覧表示", "tblbtn( 'fk_kyuyo_ichiran.asp?DbSyainNo=" & DbSyainNo & "&Seq=" & Seq & "')", "", "", "", "", "", ""))
		Response.Write(HttpL4("給与明細", "修正"))
	Else
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_kyuyo_ichiran.asp?DbSyainNo=" & DbSyainNo & "&Seq=" & Seq & "')", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL4("給与明細", "追加"))
	End If

	If ErrMsg <> "" Then
		Response.Write(HttpL5(ErrMsg))
	End If

%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td valign="top">
			<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="10" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="660" HEIGHT="100%">
							<TR>
								<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">

									<table BORDER="0" CELLSPACING="5" CELLPADDING="10" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="755" HEIGHT="300">
										<tr>
											<td>
												<table border="0" width="100%" cellspacing="0" cellpadding="0">
													<tr>
														<td>
															<table border="0" width="100%" cellspacing="4" cellpadding="0"class="tx1618">
																<tr>
																	<td>給与明細</td>
																	<td align="center">
																		<span class="tx1416">支給区分：</span>
																		<select size="1" name="ShikyuKubun" class="tbox4">
																			<option value='0'<% If ShikyuKubun = "0" Then Response.Write(" selected") %>>給与</option>
																			<option value='1'<% If ShikyuKubun = "1" Then Response.Write(" selected") %>>賞与</option>
																		</select>
																	</td>
																	<td align="right">
																		<span class="tx1416">支給年月日：</span>
																		<input type="text" name="Shikyubi" size="12" value="<% = Shikyubi %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false);" class="tbox4">
																	</td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td>
															<table border="1" width="100%" style="border-collapse: collapse" bordercolor="#000000" class="tx1416">
																<tr bgcolor="#DDDDDD">
																	<td width="10%" align="center">社員番号</td>
																	<td width="30%" align="center">氏名</td>
																	<td width="30%" align="center">役職</td>
																	<td width="15%" align="center">生年月日</td>
																	<td width="15%" align="center">扶養家族人数</td>
																</tr>
																<tr>
																	<td width="10%" align="center"><% = SyainNo %></td>
																	<td width="30%" align="center"><% = Shimei %></td>
																	<td width="30%" align="center"><% = Yakusyoku %></td>
																	<td width="15%" align="center"><% = Birthday %></td>
																	<td width="15%" align="center"><% = FuyoNinzu %></td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td height="10"></td>
													</tr>
													<tr>
														<td>
															<table border="1" width="100%" style="border-collapse: collapse" bordercolor="#000000" class="tx1416" STYLE="BORDER:2px solid #000000">
																<tr bgcolor="#DDDDDD">
																	<td width="17%" align="center">基本給</td>
																	<td width="17%" align="center">時間外（時間）</td>
																	<td width="16%" align="center">時間外手当</td>
																	<td width="17%" align="center">職務手当</td>
																	<td width="17%" align="center">住宅手当</td>
																	<td width="17%" align="center">扶養家族手当</td>
																</tr>
																<tr>
																	<td width="17%" align="center"><input type="text" name="Kihonkyu" size="14" value="<% = ConvIntToMoney(Kihonkyu , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="17%" align="center"><input type="text" name="Jikangai" size="12" value="<% = ConvIntToMoney(Jikangai , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="16%" align="center"><input type="text" name="JikangaiTeate" size="12" value="<% = ConvIntToMoney(JikangaiTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="17%" align="center"><input type="text" name="SyokumuTeate" size="14" value="<% = ConvIntToMoney(SyokumuTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="17%" align="center"><input type="text" name="JyutakuTeate" size="14" value="<% = ConvIntToMoney(JyutakuTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="17%" align="center"><input type="text" name="kazokuTeate" size="14" value="<% = ConvIntToMoney(kazokuTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																</tr>
																<tr bgcolor="#DDDDDD">
																	<td width="17%" STYLE="border-top:2px solid #000000" align="center">精勤手当</td>
																	<td width="17%" STYLE="border-top:2px solid #000000" align="center">皆勤手当</td>
																	<td width="16%" STYLE="border-top:2px solid #000000" align="center">その他手当</td>
																	<td width="17%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="17%" STYLE="border-top:2px solid #000000;border-left:2px solid #000000" align="center">通勤手当</td>
																	<td width="16%" STYLE="border-top:2px solid #000000;border-left:2px solid #000000" align="center">総支給額</td>
																</tr>
																<tr>
																	<td width="17%" align="center"><input type="text" name="SeikinTeate" size="14" value="<% = ConvIntToMoney(SeikinTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="17%" align="center"><input type="text" name="KaikinTeate" size="14" value="<% = ConvIntToMoney(KaikinTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="16%" align="center"><input type="text" name="SonotaTeate" size="14" value="<% = ConvIntToMoney(SonotaTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="17%" align="center">　</td>
																	<td width="17%" align="center" STYLE="border-left:2px solid #000000"><input type="text" name="TukinTeate" size="14" value="<% = ConvIntToMoney(TukinTeate , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="16%" align="center" STYLE="border-left:2px solid #000000"><input type="text" name="Soshikyugaku" size="14" value="<% = ConvIntToMoney(Soshikyugaku , false, false)%>" readonly class="tbox5_ro" tabIndex=-1></td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td height="10"></td>
													</tr>
													<tr>
														<td>
															<table border="1" width="100%" style="border-collapse: collapse" bordercolor="#000000" class="tx1416" STYLE="BORDER:2px solid #000000">
																<tr bgcolor="#DDDDDD">
																	<td width="14%" align="center">健康保険</td>
																	<td width="14%" align="center">厚生年金</td>
																	<td width="14%" align="center">年金基金</td>
																	<td width="14%" align="center">雇用保険</td>
																	<td width="14%" align="center">介護保険</td>
																	<td width="15%" STYLE="border-left:2px solid #000000" align="center">社会保険合計</td>
																	<td width="15%" STYLE="border-left:2px solid #000000" align="center">課税対象額</td>
																</tr>
																<tr>
																	<td width="14%" align="center"><input type="text" name="KenkoHoken" size="14" value="<% = ConvIntToMoney(KenkoHoken , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="14%" align="center"><input type="text" name="KoseiNenkin" size="14" value="<% = ConvIntToMoney(KoseiNenkin , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="14%" align="center"><input type="text" name="NenkinKikin" size="14" value="<% = ConvIntToMoney(NenkinKikin , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="14%" align="center"><input type="text" name="KoyoHoken" size="14" value="<% = ConvIntToMoney(KoyoHoken , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="14%" align="center"><input type="text" name="KaigoHoken" size="14" value="<% = ConvIntToMoney(KaigoHoken , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="15%" align="center" STYLE="border-left:2px solid #000000"><input type="text" name="SyakaiHokenGokei" size="14" value="<% = ConvIntToMoney(SyakaiHokenGokei , false, false)%>" readonly class="tbox5_ro" tabIndex=-1></td>
																	<td width="15%" align="center" STYLE="border-left:2px solid #000000"><input type="text" name="KazeiTaisyogaku" size="14" value="<% = ConvIntToMoney(KazeiTaisyogaku , false, false)%>" readonly class="tbox5_ro" tabIndex=-1></td>
																</tr>
																<tr bgcolor="#DDDDDD">
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">所得税</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">住民税</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="15%" STYLE="border-top:2px solid #000000;border-left:2px solid #000000" align="center">租税合計</td>
																	<td width="15%" STYLE="border-top:2px solid #000000;border-left:2px solid #000000" align="center">総控除額</td>
																</tr>
																<tr>
																	<td width="14%" align="center"><input type="text" name="Syotokuzei" size="14" value="<% = ConvIntToMoney(Syotokuzei , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="14%" align="center"><input type="text" name="Jyuminzei" size="14" value="<% = ConvIntToMoney(Jyuminzei , false, false)%>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);SetGokei();" class="tbox5"></td>
																	<td width="14%" align="center">　</td>
																	<td width="14%" align="center">　</td>
																	<td width="14%" align="center">　</td>
																	<td width="15%" align="center" STYLE="border-left:2px solid #000000"><input type="text" name="SozeiGokei" size="14" value="<% = ConvIntToMoney(SozeiGokei , false, false)%>" readonly class="tbox5_ro" tabIndex=-1></td>
																	<td width="15%" align="center" STYLE="border-left:2px solid #000000"><input type="text" name="Sokojyogaku" size="14" value="<% = ConvIntToMoney(Sokojyogaku , false, false)%>" readonly class="tbox5_ro" tabIndex=-1></td>
																</tr>
																<tr bgcolor="#DDDDDD">
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="14%" STYLE="border-top:2px solid #000000" align="center">　</td>
																	<td width="15%" STYLE="border-top:2px solid #000000;border-left:2px solid #000000" align="center">　</td>
																	<td width="15%" STYLE="border-top:2px solid #000000;border-left:2px solid #000000" align="center">差引支給額</td>
																</tr>
																<tr>
																	<td width="14%" align="center">　</td>
																	<td width="14%" align="center">　</td>
																	<td width="14%" align="center">　</td>
																	<td width="14%" align="center">　</td>
																	<td width="14%" align="center">　</td>
																	<td width="15%" align="center" STYLE="border-left:2px solid #000000">　</td>
																	<td width="15%" align="center" STYLE="border-left:2px solid #000000"><input type="text" name="SashikihiShikyugaku" size="14" value="<% = ConvIntToMoney(SashikihiShikyugaku , false, false)%>" readonly class="tbox5_ro" tabIndex=-1></td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td height="10" class="tx1416"><br>
															課税対象額 = 総支給額 - 社会保険合計 - 10万円以下の通勤手当<br>
															総控除額 = 社会保険合計 + 租税合計<br>
															差引支給額 = 総支給額 - 総控除額
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>

								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">

	SetGokei();

	function SetGokei() {

		var Kihonkyu, JikangaiTeate, SyokumuTeate, JyutakuTeate, kazokuTeate, SeikinTeate, KaikinTeate;
		var SonotaTeate;
		var TukinTeate, Soshikyugaku, KenkoHoken, KoseiNenkin, NenkinKikin, KoyoHoken, KaigoHoken;
		var SyakaiHokenGokei;
		var KazeiTaisyogaku, Syotokuzei, Jyuminzei, SozeiGokei, Sokojyogaku, SashikihiShikyugaku;

		Kihonkyu = ConvMoneyToInt(form1.Kihonkyu.value, false, false);
		JikangaiTeate = ConvMoneyToInt(form1.JikangaiTeate.value, false, true);
		SyokumuTeate = ConvMoneyToInt(form1.SyokumuTeate.value, false, true);
		JyutakuTeate = ConvMoneyToInt(form1.JyutakuTeate.value, false, true);
		kazokuTeate = ConvMoneyToInt(form1.kazokuTeate.value, false, true);
		SeikinTeate = ConvMoneyToInt(form1.SeikinTeate.value, false, true);
		KaikinTeate = ConvMoneyToInt(form1.KaikinTeate.value, false, true);
		SonotaTeate = ConvMoneyToInt(form1.SonotaTeate.value, false, true);
		TukinTeate = ConvMoneyToInt(form1.TukinTeate.value, false, true);
		Soshikyugaku = ConvMoneyToInt(form1.Soshikyugaku.value, false, true);
		KenkoHoken = ConvMoneyToInt(form1.KenkoHoken.value, false, true);
		KoseiNenkin = ConvMoneyToInt(form1.KoseiNenkin.value, false, true);
		NenkinKikin = ConvMoneyToInt(form1.NenkinKikin.value, false, true);
		KoyoHoken = ConvMoneyToInt(form1.KoyoHoken.value, false, true);
		KaigoHoken = ConvMoneyToInt(form1.KaigoHoken.value, false, true);
		Syotokuzei = ConvMoneyToInt(form1.Syotokuzei.value, false, true);
		Jyuminzei = ConvMoneyToInt(form1.Jyuminzei.value, false, true);

		if(Kihonkyu == "")Kihonkyu = 0;
		if(JikangaiTeate == "")JikangaiTeate = 0;
		if(SyokumuTeate == "")SyokumuTeate = 0;
		if(JyutakuTeate == "")JyutakuTeate = 0;
		if(kazokuTeate == "")kazokuTeate = 0;
		if(SeikinTeate == "")SeikinTeate = 0;
		if(KaikinTeate == "")KaikinTeate = 0;
		if(SonotaTeate == "")SonotaTeate = 0;
		if(TukinTeate == "")TukinTeate = 0;
		if(Soshikyugaku == "")Soshikyugaku = 0;
		if(KenkoHoken == "")KenkoHoken = 0;
		if(KoseiNenkin == "")KoseiNenkin = 0;
		if(NenkinKikin == "")NenkinKikin = 0;
		if(KoyoHoken == "")KoyoHoken = 0;
		if(KaigoHoken == "")KaigoHoken = 0;
		if(Syotokuzei == "")Syotokuzei = 0;
		if(Jyuminzei == "")Jyuminzei = 0;

		Soshikyugaku = Kihonkyu + JikangaiTeate + SyokumuTeate + JyutakuTeate + kazokuTeate + SeikinTeate + KaikinTeate + SonotaTeate + TukinTeate;
		SyakaiHokenGokei = KenkoHoken + KoseiNenkin + NenkinKikin + KoyoHoken + KaigoHoken;
		//通勤手当が100000以下なら課税対象から差し引く
		if (TukinTeate > 100000) {
			KazeiTaisyogaku = Soshikyugaku - SyakaiHokenGokei;
		} else {
			KazeiTaisyogaku = Soshikyugaku - SyakaiHokenGokei - TukinTeate;
		}
		SozeiGokei = Syotokuzei + Jyuminzei;
		Sokojyogaku = SyakaiHokenGokei + SozeiGokei;
		SashikihiShikyugaku = Soshikyugaku - Sokojyogaku;

		form1.Soshikyugaku.value = ConvIntToMoney(Soshikyugaku, false, true);
		form1.SyakaiHokenGokei.value = ConvIntToMoney(SyakaiHokenGokei, false, true);
		form1.KazeiTaisyogaku.value = ConvIntToMoney(KazeiTaisyogaku, false, true);
		form1.SozeiGokei.value = ConvIntToMoney(SozeiGokei, false, true);
		form1.Sokojyogaku.value = ConvIntToMoney(Sokojyogaku, false, true);
		form1.SashikihiShikyugaku.value = ConvIntToMoney(SashikihiShikyugaku, false, true);

	}


	function SubmitCheck() {
		if (form1.Shikyubi.value == "") {
			alert("支給年月日を入力して下さい");
			form1.Shikyubi.focus();
			return false;
		}
		if (form1.Kihonkyu.value == "") {
			alert("基本給を入力して下さい");
			form1.Kihonkyu.focus();
			return false;
		}
		SubmitReal(form1);
		return true;
	}


</script>

<% = HtmlFooter %>
</html>
<%
End Sub
%>