% ' ' %> <% 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("") %>
<% = HtmlFooter %> <% End Sub %>