<!-- #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">
						&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
					</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) & "&nbsp;</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
%>