<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim RouteType RouteType = Request("RouteType") 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 SyainNoLavel = Request("SyainNoLavel") 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") 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 Else ' SyainNo = 0 ' Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' Set Content = OpenQuery(Query) ' Do While Not(Content.BOF Or Content.EOF) ' If SyainNo < Content.Fields("社員番号") Then ' SyainNo = Content.Fields("社員番号") ' End If ' Content.MoveNext ' Loop ' SyainNo = SyainNo + 1 End If End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(2)) If RouteType = "Kyuyo" Then 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 Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "給与台帳", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' If Risyokubi <> "" Then ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "復帰", "SubmitCheck('Hukki')", "", "", "", "", "", "")) '代表取締役は離職出来ない ' ElseIf Action <> "1" And DaihyoFlg <> "1" Then ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "離職", "SubmitCheck('Risyoku')", "", "", "", "", "", "")) ' Else Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) ' End If If Action <> "1" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fk_syain.asp?Action=1&HyojiFlg=" & HyojiFlg & "')", "一覧表示", "tblbtn( 'fk_syain_ichiran.asp?HyojiFlg=" & HyojiFlg & "')", "", "", "", "", "", "")) Else If RouteType = "Kyuyo" Then Response.Write(HttpL3_2("戻る", "tblbtn('../kyuyo/fk_kyuyo_ichiran.asp')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn('fk_syain_ichiran.asp?HyojiFlg=" & HyojiFlg & "')", "", "", "", "", "", "", "", "")) End If End If If Action <> "1" Then Response.Write(HttpL4("社員台帳", "修正")) Else If RouteType = "Kyuyo" Then Response.Write(HttpL4("給与台帳", "社員の追加")) Else Response.Write(HttpL4("社員台帳", "追加")) End If End If If ErrMsg <> "" Then Response.Write(HttpL5(ErrMsg)) End If %>
<% = HtmlFooter %> <% End Sub %>