<% ' ' %> <% main() Sub main() Dim RouteType Dim BunsyoNaiyoCD Dim Mode Dim ii Dim Query Dim Content RouteType = Request("RouteType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Mode = Request("Mode") Dim Label If Mode = "Shikakari" Then Label = "仕掛品" Else Label = "" End If %> <% = HtmlHeader("") %> <% If Mode = "Shikakari" Then %>
" autocomplete="off"> <% End If %> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(2)) If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", "伝票", "", Title, "", "", "", "", "")) 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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If RouteType <> "ViewOnly" Then If Mode = "Shikakari" Then Response.Write(HttpL3_1(" 製造を完了する ", "SubmitCheck()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) Else ' Response.Write(HttpL3_1("印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If Else 'InStr(RouteType, "ViewOnly") > 0 Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", "")) ' ElseIf InStr(RouteType, "ViewOnly") > 0 Then ' Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_zairyoshiire_ichiran.asp?DenpyoNo=" & DenpyoNo & "&RouteType=" & RouteType & "&PageType=" & PageType & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", "")) Else If Mode = "Shikakari" Then Response.Write(HttpL3_2("追加", "tblbtn('fd_seizosashizusho.asp')", "一覧表示", "tblbtn('fd_seizosashizusho_ichiran.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Mode=" & Mode & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn('fd_seizosashizusho_ichiran.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", "")) End If ' Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_shohin_ichiran.asp?PageType=" & PageType & "&SyohinCD=" & SyohinCD & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("製造指図書", Label & "照会")) %> <% = HtmlFooter %> <% End Sub %>