<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :社員台帳詳細表示 ' 作成日 :2007/5/25 ' 作成者 :小野 ' 目的 :社員台帳の詳細を表示する。 ' 概要 : '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") 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 Query Dim Content Dim GakuseiShimei Dim GakuseiBango NRflg = Request("nr") Action = Request("Action") DbSyainNo = Request("DbSyainNo") SyainNo = Request("SyainNo") ErrMSG = Request("ErrMSG") If NRflg = "r" then Shimei = Request("Shimei") Birthday = Request("Birthday") FuyoNinzu = Request("FuyoNinzu") YubinNo = Request("YubinNo") Jyusyo = Request("Jyusyo") TelNo = Request("TelNo") MobileNo = Request("MobileNo") DaihyoFlg = Request("DaihyoFlg") Yakusyoku = Request("Yakusyoku") Nyusyabi = Request("Nyusyabi") Risyokubi = Request("Risyokubi") Kihonkyu = Request("Kihonkyu") SyokumuTeate = Request("SyokumuTeate") KazokuTeate = Request("KazokuTeate") JyutakuTeate = Request("JyutakuTeate") SeikinTeate = Request("SeikinTeate") KaikinTeate = Request("KaikinTeate") TukinTeate = Request("TukinTeate") KenkoHoken = Request("KenkoHoken") KoseiNenkin = Request("KoseiNenkin") NenkinKikin = Request("NenkinKikin") KoyoHoken = Request("KoyoHoken") KaigoHoken = Request("KaigoHoken") Else 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 SyainNo = Content.Fields("社員番号ラベル") Shimei = Content.Fields("氏名") Birthday = SetTimeYYYYMMDD(Content.Fields("生年月日")) FuyoNinzu = Content.Fields("扶養家族人数") YubinNo = Content.Fields("郵便番号") Jyusyo = Content.Fields("住所") TelNo = Content.Fields("電話番号") MobileNo = Content.Fields("ケータイ") DaihyoFlg = "" & Content.Fields("代表取締役フラグ") Yakusyoku = Content.Fields("役職") Nyusyabi = SetTimeYYYYMMDD(Content.Fields("入社年月日")) Risyokubi = SetTimeYYYYMMDD(Content.Fields("離職年月日")) Kihonkyu = "" & Content.Fields("基本給") SyokumuTeate = "" & Content.Fields("職務手当") KazokuTeate = "" & Content.Fields("家族手当") JyutakuTeate = "" & 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("介護保険") ' If Kihonkyu = "" Then Kihonkyu = 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 TukinTeate = "" Then TukinTeate = 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 Action = "2" End If End If End If %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)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_syain_bin.asp"> <input type="hidden" name="Action" value="<% = Action %>"> <input type="hidden" name="DbSyainNo" value="<% = DbSyainNo %>"> <input type="hidden" name="HyojiFlg" value="<% = HyojiFlg %>"> <input type="hidden" name="RisyokuFlg" value=""> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(2)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "社員台帳", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If DaihyoFlg <> "1" And "" & Risyokubi = "" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "UpdateCall()", "離職", "SubmitCheck('Risyoku')", "", "", "", "")) ElseIf "" & Risyokubi <> "" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "UpdateCall()", "復帰", "SubmitCheck('Hukki')", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "UpdateCall()", "", "", "", "", "", "")) End If Response.Write(HttpL3_2("追加","tblbtn( 'fk_syain.asp?Action=1&HyojiFlg=" & HyojiFlg & "')" ,"一覧表示", "tblbtn( 'fk_syain_ichiran.asp?DbSyainNo=" & DbSyainNo & "&HyojiFlg=" & HyojiFlg & "')", "", "", "", "", "", "")) Response.Write(HttpL4("社員台帳", "照会")) %> <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="20" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="660" HEIGHT="300"> <TR> <!-- 水色格子の背景 --> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif"> <!-- 水色格子背景の内側の黒線枠及び中外の間隔 --> <table BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="300"> <tr> <td> <!-- 台帳の全体バランス --> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td> <!-- 個人情報部分 --> <table border="1" width="100%" style="border-collapse: collapse" bordercolor="#000000" class="tx1618" STYLE="BORDER:2px solid #000000"> <tr height="27"> <td width="17%" align="center" colspan="6">個 人 情 報</td> </tr> <tr bgcolor="#DDDDDD"> <td width="17%" align="center">社員番号</td> <td width="50%" align="center" COLSPAN="3">氏 名</td> <td width="17%" align="center">生年月日</td> <td width="16%" align="center">扶養家族人数</td> </tr> <tr height="27"> <td width="17%" align="center"><% = SyainNo %></td> <td width="50%" align="center" COLSPAN="3"><% = Shimei %></td> <td width="17%" align="center"><% = Birthday %></td> <td width="16%" align="center"><% = FuyoNinzu %></td> </tr> <tr bgcolor="#DDDDDD"> <td width="17%" align="center">郵便番号</td> <td width="83%" align="center" COLSPAN="5">住 所</td> </tr> <tr height="27"> <td width="17%" align="center"> <% = YubinNo %> </td> <td width="83%" align="center" COLSPAN="5"><% = Jyusyo %></td> </tr> <tr bgcolor="#DDDDDD"> <td width="17%" align="center">電話番号</td> <td width="17%" align="center">緊急時連絡先</td> <% If DaihyoFlg <> "1" Then %> <td width="33%" align="center" COLSPAN="2">役 職</td> <% Else %> <td width="33%" align="right" COLSPAN="2">役 職 <span class="tx1416"><font color="#FF0000">※代表取締役です</font></span> </td> <% End If %> <td width="17%" align="center">入社年月日</td> <td width="16%" align="center">離職年月日</td> </tr> <tr height="27"> <td width="17%" align="center"><% = TelNo %></td> <td width="16%" align="center"><% = MobileNo %></td> <td width="33%" align="center" COLSPAN="2"><% = Yakusyoku %></td> <td width="17%" align="center"><% = Nyusyabi %></td> <td width="17%" align="center"> <% If DaihyoFlg <> "1" And "" & Risyokubi = "" Then %> <input type="text" name="Risyokubi" size="13" value="<% = Risyokubi %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false)" class="tbox4"> <% Else %> <% = Risyokubi %> <input type="hidden" name="Risyokubi" value="<% = Risyokubi %>"> <% End If %> </td> </tr> </table> </td> </tr> <tr> <!-- 間隔 --> <td height="24"> </td> </tr> <tr> <td> <!-- 基礎給与部分 --> <table border="1" width="100%" style="border-collapse: collapse" bordercolor="#000000" class="tx1618" STYLE="BORDER:2px solid #000000"> <tr height="27"> <td align="center" colspan="7">基 礎 給 与 情 報</td> </tr> <tr bgcolor="#DDDDDD"> <td width="16%" 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="14%" align="center">皆勤手当</td> <td width="14%" align="center">通勤手当</td> </tr> <tr height="27"> <td width="16%" align="center"><% = ConvIntToMoney(Kihonkyu , false, false) %></td> <td width="14%" align="center"><% = ConvIntToMoney(SyokumuTeate , false, false) %></td> <td width="14%" align="center"><% = ConvIntToMoney(KazokuTeate , false, false) %></td> <td width="14%" align="center"><% = ConvIntToMoney(JyutakuTeate , false, false) %></td> <td width="14%" align="center"><% = ConvIntToMoney(SeikinTeate , false, false) %></td> <td width="14%" align="center"><% = ConvIntToMoney(KaikinTeate , false, false) %></td> <td width="14%" align="center"> <% = ConvIntToMoney(TukinTeate , false, false) %> </td> </tr> <!-- <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="16%" align="center"></td> </tr> <tr> <td width="17%" align="center"><% = ConvIntToMoney(KenkoHoken , false, false) %></td> <td width="17%" align="center"><% = ConvIntToMoney(KoseiNenkin , false, false) %></td> <td width="16%" align="center"><% = ConvIntToMoney(NenkinKikin , false, false) %></td> <td width="17%" align="center"><% = ConvIntToMoney(KoyoHoken , false, false) %></td> <td width="17%" align="center"><% = ConvIntToMoney(KaigoHoken , false, false) %></td> <td width="16%" align="center"> </td> </tr> --> </table> </td> </tr> </table> </td> </tr> </table> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </div> </body> <% = HtmlFooter %> </html> <SCRIPT LANGUAGE="JavaScript"> function UpdateCall() { tblbtn( "fk_syain.asp?Action=2&nr=n&DbSyainNo=<% = DbSyainNo %>&HyojiFlg=<% = HyojiFlg %>"); return true; } function SubmitCheck(flg) { // if (form1.SyainNo.value == "") // { // alert("社員番号を入力して下さい"); // form1.SyainNo.focus(); // return false; // } //離職ボタン if (flg == "Risyoku") { if (form1.Risyokubi.value == "") { alert("離職年月日を入力して下さい"); form1.Risyokubi.focus(); return false; } if (confirm("離職させてよろしいですか?")) { form1.RisyokuFlg.value = "Risyoku"; SubmitReal(form1); return true; } else { return false; } } //復帰ボタン if (flg == "Hukki") { form1.Risyokubi.value = ""; form1.RisyokuFlg.value = "Hukki"; SubmitReal(form1); return true; } //保存ボタン if (form1.Shimei.value == "") { alert("氏名を入力して下さい"); form1.Shimei.focus(); return false; } form1.Risyokubi.value = ""; //離職日を空にする SubmitReal(form1); return true; } </script> <% End Sub %>