<% ' ' %> <% 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 %> <% = HtmlHeader("") %>
<% 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("社員台帳", "照会")) %> <% = HtmlFooter %> <% End Sub %>