<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :管理部-受付メニュー ' 作成日:2002/8/9 ' 作成者:山崎 ' 目的 :管理部-受付のメニューを表示する ' 概要 : ' <<表示>> ' ・管理部-受付のメニュー '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "受付業務" Dim Query Dim Content Dim Kitakuriyou Dim SenpoHitsuyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") '060909追加 テーブルにもフィールドを追加 SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") End If '寄託利用状態を整数化(070207小野) If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 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/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", PageType , "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType , "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="20" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_g.gif?<% = GB_STU %>"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lug.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hug.gif?<% = GB_STU %>"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhg.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111"> <TR> <TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn"> 【 <% = PageType %> 】 </TD> </TR> </TABLE> </TD> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rug.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> </TR> <TR> <TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlg.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_gd.gif?<% = GB_STU %>"> <TABLE WIDTH="480" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="80"> <TR ALIGN="CENTER" VALIGN="MIDDLE"> <TD HEIGHT="77" WIDTH="120"> <% If Kitakuriyou > 0 Then %> <% If SenpoHitsuyo <> "1" Then %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KV')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <% Else %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_kitaku_syorui_ichiran.asp?BunsyoSyuruiCD=KV&SenpoBunsyoSyuruiCD=KX')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <% End If %> <% Else %> <% If SenpoHitsuyo <> "1" Then %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KV')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <% Else %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_syorui_ichiran.asp?BunsyoSyuruiCD=KV&SenpoBunsyoSyuruiCD=KX')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <% End If %> <% End If %> <TR> <TD ALIGN="CENTER">買入受付</TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <% If SenpoHitsuyo <> "1" Then %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KW')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <% Else %> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_syorui_ichiran.asp?BunsyoSyuruiCD=KW&SenpoBunsyoSyuruiCD=KY')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <% End If %> <TR> <TD ALIGN="CENTER">売渡受付</TD> </TR> </TABLE> </TD> <TD HEIGHT="77" WIDTH="120"> <TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=KV&SenpoBunsyoSyuruiCD=KX')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <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" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=KW&SenpoBunsyoSyuruiCD=KY')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>"> <TR> <TD ALIGN="CENTER">売渡<br> 一括受付</TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> <TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrg.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> </TR> <!--ボタン下の隙間調節--><tr> <TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlg.gif?<% = GB_STU %>" CLASS="tx1214"></TD> <TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_gd.gif?<% = GB_STU %>" CLASS="tx1214"></TD> <TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrg.gif?<% = GB_STU %>" CLASS="tx1214"></TD> </tr> <TR> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldg.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdg.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> <TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdg.gif?<% = GB_STU %>" CLASS="tx1214"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </body> <% = HtmlFooter %> </html> <% End Sub %>