<% ' %> <% main() Sub main() Dim KanriKubun Dim EnshuName Dim GenkaKaikeiRiyo Dim Query Dim Content, SyohinCD2 Dim SyohinKubun If Not(SessionCheck()) Then Exit Sub End If Dim ShijoCD ShijoCD = Request("ShijoCD") SyohinCD2 = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = Request("PageType") Dim Mode Mode = Request("Mode") Dim Kubun Kubun = Request("Kubun") Dim MasterEnshu Dim ShohizeiMode ShohizeiMode = TaxRateSelection 'include_stasicのグローバル変数 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MasterEnshu = Content.Fields("マスター演習") EnshuName = Content.Fields("演習名称") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") If Content.Fields("消費税") <= 0 Then ShohizeiMode = 0 '内税の場合は消費税率マスタ非利用に上書き End If End If %> <% = HtmlHeader("") %>
<% Dim Title Dim Barcode1 Dim Barcode2 If Mode = "Zairyo" Then Title = "材料" Else Title = "商品" If PackageMode = "1" Then ElseIf GB_IEmode <> "1" Then Else Barcode1 = " バーコード印刷 " Barcode2 = "PrintoutReal2()" End If End If Response.Write(HtmlDesign(1)) If PageType = "Original" Or PageType = "SeizoBu" Then Response.Write(HttpL1(3)) Else Response.Write(HttpL1(4)) End If If PageType = "Original" Then If PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "自社商品マスター", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&PageType=" & PageType & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn('/" & HomeAlias & "/user/bk/menu_s5.asp')", "オリジナル商品管理", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&PageType=" & PageType & "')", "", "", "", "", "", "", "", "")) End If ElseIf PageType = "SeizoBu" Then If Mode = "BuhinTenkai" Or Mode = "KeihiRoumuhi" Then If Kubun = "K" 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 Kubun = "R" 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_1("選択", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "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')", Title & "開発", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&PageType=" & PageType & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", "")) End If ElseIf GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", Title & "マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) 'SYSORIGNには追加出来ないよう修正(061114小野)マスター編集モードでは追加出来るよう修正(090219小野) If (EnshuCD <> "SYSORIGN" And MasterEnshu <> "1") Or DebugFlg > 1 Then If PackageMode = 1 Then 'Excelインポートはサイバー会計モードのみ Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&Mode=" & Mode & "')", "EXCELデータのインポート", "tblbtn('fm_shohin_excel.asp');", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", "")) End If 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')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", Title & "マスター", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If If PageType = "Original" Then If PackageMode = 1 Then Response.Write(HttpL4("自社商品管理", "")) Else Response.Write(HttpL4("オリジナル商品管理", "")) End If ElseIf PageType = "SeizoBu" Then If Mode = "BuhinTenkai" Then Response.Write(HttpL4("部品展開", Title & "選択")) ElseIf Mode = "KeihiRoumuhi" Then If Kubun = "K" Then Response.Write(HttpL4("経費管理", Title & "選択")) Else Response.Write(HttpL4("労務費管理", Title & "選択")) End If Else Response.Write(HttpL4("開発" & Title, "一覧表示")) End If Else Response.Write(HttpL4(Title & "マスター", "一覧表示")) End If '↓↓↓SYSORIGNには追加出来ないよう修正(061114小野)デバッグモードでは追加出来るよう修正(070207小野) If EnshuCD = "SYSORIGN" And DebugFlg < 1 Then Response.Write(HttpL5("演習コード SYSORIGN の演習は" & Title & "を追加出来ません")) ElseIf MasterEnshu = "1" Then If PageType <> "SeizoBu" Then Response.Write(HttpL5("マスター演習に設定されているため" & Title & "を追加出来ません")) End If End If '↑↑↑SYSORIGNには追加出来ないよう修正(061114小野)デバッグモードでは追加出来るよう修正(070207小野) %> <% = iiDef %>
<% = HtmlFooter %> <% End Sub %>