<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType Dim SyohinCD Dim SyohinKubun RouteType = Request("Pagetype") SyohinCD = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") ' If SyohinKubun = "" Then 'フォームデフォルト ' SyohinKubun = "S" ' End If If SyohinKubun = "" Then '部品展開表存在チェック Query = "exec SPM部品展開表商品一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyohinKubun = "S" Else Query = "exec SPM部品展開表材料一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyohinKubun = "Z" End If End If End If Dim Title If SyohinKubun = "Z" Then Title = "材料" Else Title = "商品" End If Dim ii Dim jj Dim SonzaiFlg Dim ZairyoCnt Dim RoumuHi Dim KeiHi RoumuHi = 0 KeiHi = 0 Dim Query Dim Content '実践日取得 Dim Jissenbi Jissenbi = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) End If %> <% = HtmlHeader("") %>
" autocomplete="off"> <% 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_s6.asp')", "製造指図書", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 製造を開始する ", "SubmitCheck()", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_2("一覧表示", "tblbtn('" & Replace(Request.ServerVariables("SCRIPT_NAME"), ".asp", "_ichiran.asp") & "?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("仕掛品一覧", "tblbtn('" & Replace(Request.ServerVariables("SCRIPT_NAME"), ".asp", "_ichiran.asp") & "?RouteType=" & RouteType & "&Mode=Shikakari')", "製造完了一覧", "tblbtn('" & Replace(Request.ServerVariables("SCRIPT_NAME"), ".asp", "_ichiran.asp") & "?RouteType=" & RouteType & "&Mode=Seihin')", "", "", "", "", "", "")) Response.Write(HttpL4("製造指図書", "追加")) %>
<% = HtmlFooter %> <% End Sub %>