<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :商社-仕入部メニュー ' 作成日:2002/10/18 ' 作成者:山崎 '################################################ '--> %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim Query, Content Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiA YobiA = Content.Fields("履歴表示") AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1) AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1) AutoNyukoJisseki = Mid(YobiA, 3, 1) AutoSyukoJisseki = Mid(YobiA, 4, 1) AutoSyohinZaiko = Mid(YobiA, 5, 1) AutoUketoriTegataIchiran = Mid(YobiA, 6, 1) AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1) End If %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("商品企画室", "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%"> <tr> <td align="CENTER" valign="MIDDLE"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_o.gif?<% = GB_STU %>"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD HEIGHT="1"><% = Spacer(1,10) %></TD> </TR> <TR> <TD HEIGHT="20" WIDTH="20" background="/<% = HomeAlias %>/images/wdwbk_od.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD HEIGHT="20" ALIGN="CENTER" background="/<% = HomeAlias %>/images/wdwbk_od.gif?<% = GB_STU %>"> <TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" style="border-collapse: collapse" bordercolor="#111111"> <TR> <TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn">【 商品企画室 】</TD> </TR> </TABLE> </TD> <TD HEIGHT="20" WIDTH="20" background="/<% = HomeAlias %>/images/wdwbk_od.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> </TR> <TR> <TD HEIGHT="1"><% = Spacer(1,10) %></TD> </TR> <TR> <TD WIDTH="20" CLASS="tx1214"> </TD> <TD ALIGN="CENTER"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR ALIGN="CENTER" VALIGN="MIDDLE"> <TD valign="middle" align="left"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="440" align="center"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_luo.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_huo.gif?<% = GB_STU %>"> <!-- <TABLE WIDTH="150" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hho.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111"> <TR> <TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn"> </TD> </TR> </TABLE> --> </TD> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ruo.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> </TR> <TR> <TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlo.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_od.gif?<% = GB_STU %>"> <TABLE WIDTH="360" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="80"> <TR ALIGN="CENTER" VALIGN="MIDDLE"> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/admin/master/shohin/fm_shohin.asp?Action=1&PageType=Original')"> <TR> <TD ALIGN="CENTER">オリジナル<br>商品管理</TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SC')"> <TR> <TD ALIGN="CENTER">オリジナル<br>商品入庫</TD> </TR> </TABLE> </TD> <% If GB_IEmode = "1" Then %> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2o.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/kikakushitsu/gazokako.asp')"> <TR> <TD ALIGN="CENTER">商品画像<br>加工</TD> </TR> </TABLE> </TD> <% End If %> </tr> </TABLE> </TD> <TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vro.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> </TR> <!--ボタン下の隙間調節--><tr> <TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlo.gif?<% = GB_STU %>" CLASS="tx1214"></TD> <TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_od.gif?<% = GB_STU %>" CLASS="tx1214"></TD> <TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vro.gif?<% = GB_STU %>" CLASS="tx1214"></TD> </tr> <TR> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldo.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdo.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdo.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> </TR> </TABLE> </td> </tr> </table> </TD> </TR> </TABLE> </TD> <TD WIDTH="20" CLASS="tx1214"> </TD> </TR> <TR> <TD HEIGHT="20" WIDTH="20" CLASS="tx1214"> </TD> <TD HEIGHT="20" CLASS="tx1214"> </TD> <TD HEIGHT="20" WIDTH="20" CLASS="tx1214"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </div> </body> <% = HtmlFooter %> </html> <% End Sub %>