<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：商品在庫の照会
' 作成日：2002/10/24
' 作成者：山崎
' 目的 ：商品在庫の照会画面を表示する。
' 概要 ：
' <<表示>>
' ・商品在庫の照会
'################################################
'-->
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Syuryobi
Syuryobi = Request("Syuryobi")
Dim RouteType
RouteType = Request("RouteType")
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
Dim Query
Dim Content
Dim SoukoRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SoukoRiyo = "" & Content.Fields("倉庫部利用")
End If
Dim PageType
Dim Label
If RouteType = "Zairyo" Then
PageType = "材料在庫"
Label = "材料"
Else
PageType = "商品在庫"
Label = "商品"
End If
%>
<html>
<% = HtmlHeader("sj3tyoboblack") %>
<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">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="GET" action="rm_syohinzaiko.asp" target="_top" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<%
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HtmlDesign(4))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "社長室・総務部", "", "履歴", "", PageType, "", "", "", "", ""))
ElseIf RouteType = "Seihin" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", PageType, "", "", "", "", ""))
ElseIf RouteType = "Zairyo" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", PageType, "", "", "", "", ""))
ElseIf RouteType = "Souko" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "倉庫部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s7.asp')", PageType, "", "", "", "", ""))
ElseIf RouteType = "Shiire" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", PageType, "", "", "", "", ""))
Else'If RouteType = "Hanbai" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", PageType, "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("入出庫履歴", "syokaibtn()", "", "", "", "", "", "", "", ""))
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" WIDTH="680" HEIGHT="100%" bgcolor="#ffffff" style="border:1px solid #000000">
<TR>
<TD ALIGN="CENTER" height="30">
<TABLE BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>" BORDER="0" CELLSPACING="3" CELLPADDING="0" WIDTH="680" HEIGHT="100%" bordercolor="#111111">
<TR>
<TD ALIGN="CENTER" height="30">
<table width="600" height="30" border="0" cellpadding="0" cellspacing="0" CLASS="tx1416">
<tr>
<td align="center">
<input type="text" name="Syuryobi" size="11" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"> 時点の在庫を表示
</td>
<td>
<TABLE onClick="SubmitReal(form1);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1">
<TR>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD>
<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">再集計</TD>
<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD>
</TR>
</TABLE>
</td>
<td align="center">
</td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD ALIGN="CENTER">
<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="500">
<TABLE WIDTH="450" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#DDDDDD" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="20"><% = Label %>名</TD>
<TD WIDTH="100" HEIGHT="20">在庫数</TD>
<!--
<TD WIDTH="60" HEIGHT="20">在庫数</TD>
<TD WIDTH="100" HEIGHT="20">在庫金額</TD>
-->
</TR>
</TABLE>
</TD>
<TD>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:470px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<TABLE ID="List" WIDTH="450" BORDER="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse;cursor: hand;">
<%
Dim i
Dim RowCount, RowBreakNum
Dim ii, jj
ii = 0
RowCount = 0
RowBreakNum = 5
If RouteType = "Zairyo" Then
Query = "exec SPR材料入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
ElseIf RouteType = "Seihin" Then
Query = "exec SPR製品入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
Else
Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
End If
Set Content = OpenQuery(Query)
Dim KarikataZandakaTotal, KashikataZandakaTotal
Dim KarikataKingakuTotal, KashikataKingakuTotal
KarikataZandakaTotal = 0
KashikataZandakaTotal = 0
KarikataKingakuTotal = 0
KashikataKingakuTotal = 0
Do While Not(Content.BOF Or Content.EOF)
RowCount = RowCount + 1
Dim SyohinCD, ZaikoKingaku, ZaikoSu
Dim NyukoKingaku, NyukoSu , NyukoTanka
SyohinCD = Content.Fields("商品CD")
NyukoSu = Content.Fields("入庫数")
NyukoKingaku= Content.Fields("入庫金額")
'##### For Debug
'Response.Write("*** EXEC Query Start ***<br>")
'Response.Write("SyohinCD :" & SyohinCD & "<br>")
'Response.Write("KaisyaCD :" & KaisyaCD & "<br>")
'Response.Write("Syuryobi :" & Syuryobi & "<br>")
'Response.Write("NyukoSu :" & NyukoSu & "<br>")
'Response.Write("NyukoKingaku:" & NyukoKingaku & "<br>")
'Response.Write("NyukoTanka :" & NyukoTanka & "<br>")
If IsNull(NyukoSu) or NyukoSu= "" Then
Nyukosu = 0
End If
If IsNull(NyukoKingaku) or NyukoKingaku = "" Then
NyukoKingaku = 0
End If
If NyukoSu <> 0 Then
NyukoTanka = NyukoKingaku / NyukoSu
Else
NyukoTanka = 0
End If
ZaikoSu = Content.Fields("在庫数")
'##### For Debug
'Response.Write("*** Zaikosu Display ***<br>")
'Response.Write("ZaikoSu :" & ZaikoSu & "<br>")
'''''''' ZaikoKingaku = ZaikoSu Content.Fields("在庫金額")
'''''''' ZaikoKingaku = ZaikoSu * Int(NyukoTanka)
'##### For Debug
'Response.Write("*** ZaikoKinaku Calculation ***<br>")
'Response.Write("SyohinCD :" & SyohinCD & "<br>")
'Response.Write("KaisyaCD :" & KaisyaCD & "<br>")
'Response.Write("Syuryobi :" & Syuryobi & "<br>")
ZaikoKingaku = NyusyukoZaikoKingaku(EnshuCD, KaisyaCD, SyohinCD, Syuryobi)
Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'" & SyohinCD & "')"" onDblClick=""syokaibtn();"">" & vbCrLf)
If RouteType = "Zairyo" Then
Response.Write("<td height=""30"" align=""center"">" & ConvZairyoMeisyo(SyohinCD) & "</td>")
Else
Response.Write("<td height=""30"" align=""center"">" & ConvSyohinMeisyo(SyohinCD) & "</td>")
End If
Response.Write("<td width=""100"" align=""right"">" & ConvIntToMoney(ZaikoSu , false, false) & " </td>")
' Response.Write("<td width=""60"" align=""right"">" & ConvIntToMoney(ZaikoSu , false, false) & "</td>")
' Response.Write("<td width=""100"" align=""right"">" & ConvIntToMoney(ZaikoKingaku , false, false) & "</td>")
Response.Write("</tr>" & vbCrLf)
ii = ii + 1
Content.MoveNext
Loop
%>
</TABLE>
</DIV>
</TD>
<TD valign="top" id="SyohinSetsumei">
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<% = HtmlFooter %>
<SCRIPT LANGUAGE="JavaScript">
//################################################
// 名称：ConvSyohinGazoFile
// 目的：商品画像ファイルの表示
// 作成：2003/10/3 川崎
// 概要：TS商品Mの：商品画像ファイルを返す。
//################################################
function ConvSyohinGazoFile(SyohinCD)
{
<%
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim ImageFile
ImageFile = ""
If Content.Fields("画像ファイル") <> "" Then
ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル")
End If
Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & ImageFile & """;" & vbCrLf)
Content.MoveNext
Loop
%>
return "";
}
var SyohinCD
SyohinCD = "#"
function syokaibtn()
{
if(SyohinCD == "#")
{
alert("選択されていません");
}
else
{
tblbtn("fk_syohinaridakatyo_view.asp?RouteType=<% = RouteType %>&SyohinCD=" + SyohinCD + "&Syuryobi=<% = Syuryobi %>");
}
}
//TRselect & URLset
function celsel(rw,lsParam)
{
for (k=0; k<document.getElementById("List").rows.length; k++)
{
document.getElementById("List").rows[k].style.backgroundColor ="";
}//セル色クリア
document.getElementById("List").rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更
SyohinCD = lsParam;
GazoFile = ConvSyohinGazoFile(SyohinCD);
SyohinMeisyo = ConvSyohinRyakuMeisyo(SyohinCD);
tmp = ""
if(SyohinCD != "" && GazoFile != "")
{
tmp = "<TABLE BORDER='0' width='100%' CELLSPACING='0' CELLPADDING='0' class='tx1416'>\r\n";
tmp = tmp + "<tr><td>" + SyohinMeisyo + "の説明</td></tr>\r\n";
if(GazoFile != "")
{
tmp = tmp + "<tr><td>商品画像:<br><img width='120' height='90' src='" + GazoFile + "'></td></tr>\r\n";
}
tmp = tmp + "</table>"
}
document.all.SyohinSetsumei.innerHTML = tmp;
}
//################################################
function ConvSyohinRyakuMeisyo(SyohinCD)
{
<%
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("商品略名称") & """;" & vbCrLf)
Content.MoveNext
Loop
%>
return "";
}
</SCRIPT>
</html>
<%
End Sub
%>