<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Mode Mode = Request("Mode") Dim GenkaHyo GenkaHyo = Request("GenkaHyo") Dim Label If Mode = "Shukko" Then Label = "製品" ElseIf Mode = "Shikakari" Then Label = "仕掛品" Else Label = "製造完了" End If %> <% = HtmlHeader("") %> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If GenkaHyo = "1" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "原価計算表", "", "", "", "", "")) ElseIf Mode = "Shukko" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "製品出庫", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "製造指図書", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) If Mode = "Shukko" Then Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "出庫一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=MU')", "", "", "", "", "", "")) ElseIf Mode = "Shikakari" Then If GenkaHyo = "1" Then Response.Write(HttpL3_2("製造完了一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Seihin&GenkaHyo=1')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn('" & Replace(Request.ServerVariables("SCRIPT_NAME"), "_ichiran.asp", ".asp") & "')", "製造完了一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Seihin')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "")) End If Else If GenkaHyo = "1" Then Response.Write(HttpL3_2("仕掛品一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Shikakari&GenkaHyo=1')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("仕掛品一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Shikakari')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "")) End If End If If GenkaHyo = "1" Then Response.Write(HttpL4("原価計算表", Label & "")) ElseIf Mode = "Shukko" Then Response.Write(HttpL4("商社部門へ出庫", Label & "一覧")) Else Response.Write(HttpL4("製造指図書", Label & "")) End If %> <% = HtmlFooter %> <% End Sub %>