<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：倉庫部メニュー
' 作成日：2019/2/14
' 作成者：小野
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki
Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran
Dim Query, Content
Dim AiteShukkoHitsuyo
Dim Kitakuriyou,KitakuKeiyaku
Dim Kouririyou
Dim SenpoHitsuyo
Dim ShukkoUkeshoHitsuyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Dim YobiA
YobiA = Content.Fields("履歴表示")
AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
Kitakuriyou = "" & Content.Fields("寄託倉庫利用") '060909追加 テーブルにもフィールドを追加
Kouririyou = "" & Content.Fields("小売販売有無") '070214追加
SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要")
ShukkoUkeshoHitsuyo = "" & 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
'寄託利用状態を整数化（070207小野）
If Kitakuriyou = "1" Then
Kitakuriyou = 1
Else
Kitakuriyou = 0
End If
'寄託契約状態判定関数を追加（070207小野）
KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字
'小売販売有無状態を整数化（070214小野）
If Kouririyou = "1" Then
Kouririyou = 1
Else
Kouririyou = 0
End If
Dim ShoshaChk
Dim KanribuChk
ShoshaChk = 0
KanribuChk = 0
Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("会社CD") <> KaisyaCD Then
'商社存在チェック
If Content.Fields("業種CD") = "S" Then
ShoshaChk = 1
'同一市場の管理部存在チェック
ElseIf Content.Fields("業種CD") = "K" And Content.Fields("市場CD") = GB_ShijyoCD Then
KanribuChk = 1
End If
End If
Content.MoveNext
Loop
%>
<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_g.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_gd.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_gd.gif?<% = GB_STU %>">
<TABLE 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_gd.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 HEIGHT="120" valign="middle" align="center">
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<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"> 【 入庫課 】 </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="240" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="80">
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<% If AiteShukkoHitsuyo = "1" Then %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SS&SenpoBunsyoSyuruiCD=SU&NyusyukoKubun=S')">
<% Else %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SS&NyusyukoKubun=S')">
<% End If %>
<TR>
<TD ALIGN="CENTER">仕入入庫</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="77" WIDTH="120">
<% If AiteShukkoHitsuyo = "1" Then %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="77" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SY&SenpoBunsyoSyuruiCD=SX')">
<% Else %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="77" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SY')">
<% End If %>
<TR>
<TD ALIGN="CENTER">売上返品</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>
<td>
<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"> 【 出庫課 】 </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="240" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="80">
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<% If (ShukkoUkeshoHitsuyo <> "1" And ShukkoUkeshoHitsuyo <> "3") Or Gyosyu = "K" Then %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="77" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SU&NyusyukoKubun=U')">
<% Else %>
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="77" BGCOLOR="#FFFFFF" CLASS="tbtn5" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=SU&NyusyukoKubun=U')">
<% 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" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SX');">
<TR>
<TD ALIGN="CENTER">仕入返品</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>
<% If AutoSyohinZaiko = "1" Then %>
<td>
<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"> 【 管理課 】 </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="120" HEIGHT="80" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="77" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="tblbtn( '/<% = HomeAlias %>/user/bk/syokaisyukei/rm_syohinzaiko.asp?RouteType=Souko')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2g.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">商品在庫</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>
<% End If %>
</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
%>