<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	:製造指図書一覧(製品一覧)
'	作成日	:2008/3/31
'	作成者	:小野
'	目的	:製造指図書の一覧画面を表示する。
'	概要	:
'	修正変更:(08/05/01:小野)商社部門出庫モードのための製品一覧モードを追加
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim Mode
	Mode = Request("Mode")

	Dim GenkaHyo
	GenkaHyo = Request("GenkaHyo")

	Dim Label
	If Mode = "Shukko" Then
		Label = "製品"
	ElseIf Mode = "Shikakari" Then
		Label = "仕掛品"
	Else
		Label = "製造完了"
	End If

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="/<% = HomeAlias %>/binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<link href="/<% = HomeAlias %>/binx/sj3tyobored.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/<% = HomeAlias %>/include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="/<% = HomeAlias %>/includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="/<% = HomeAlias %>/include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="/<% = HomeAlias %>/includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="/<% = HomeAlias %>/javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%
	If InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HtmlDesign(4))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If GenkaHyo = "1" 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')", "原価計算表", "", "", "", "", ""))
	ElseIf Mode = "Shukko" 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')", "製品出庫", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "製造指図書", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", ""))

	If Mode = "Shukko" Then
		Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "出庫一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=MU')", "", "", "", "", "", ""))
	ElseIf Mode = "Shikakari" Then
		If GenkaHyo = "1" Then
			Response.Write(HttpL3_2("製造完了一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Seihin&GenkaHyo=1')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("追加", "tblbtn('" & Replace(Request.ServerVariables("SCRIPT_NAME"), "_ichiran.asp", ".asp") & "')", "製造完了一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Seihin')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", ""))
		End If
	Else
		If GenkaHyo = "1" Then
			Response.Write(HttpL3_2("仕掛品一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Shikakari&GenkaHyo=1')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("仕掛品一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Shikakari')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", ""))
		End If
	End If

	If GenkaHyo = "1" Then
		Response.Write(HttpL4("原価計算表", Label & "一覧表示"))
	ElseIf Mode = "Shukko" Then
		Response.Write(HttpL4("商社部門へ出庫", Label & "一覧表示"))
	Else
		Response.Write(HttpL4("製造指図書", Label & "一覧表示"))
	End If

%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%">
<TR>
	<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif" valign="top">
		<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
		<TR>
			<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
				<TABLE WIDTH="600" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
				<TR ALIGN="CENTER">
					<TD WIDTH="20" HEIGHT="20"> </TD>
					<TD WIDTH="100" HEIGHT="20">製造<% If Mode = "Shikakari" Then Response.Write("開始") End If %>日</TD>
					<TD HEIGHT="20">商品</TD>
					<TD WIDTH="110" HEIGHT="20">ロット</TD>
<!--
					<TD WIDTH="110" HEIGHT="20">単価</TD>
-->
				</TR>
				</TABLE>
			</TD>
		</TR>
		<TR>
			<TD VALIGN="TOP">
				<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:620px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;">
					<TABLE ID="List" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
					<%
						Dim Query
						Dim Content
						Dim Query2
						Dim Content2
						Dim Content3
						Dim Syoribi
						Dim MinusSuryo
						Dim TmpBunsyoNaiyoCD
						Dim ii, jj
						ii = 0
						Query = "exec SPD製造指図書一覧 '" & GB_SystemCD & "'"
						Query = Query & ", '" & EnshuCD & "'"
						Query = Query & ", '" & KaisyaCD & "'"
						Set Content = OpenQuery(Query)
						Do While Not(Content.BOF Or Content.EOF)
							If TmpBunsyoNaiyoCD <> Content.Fields("文書内容CD") Then
								TmpBunsyoNaiyoCD = Content.Fields("文書内容CD")
								MinusSuryo = 0
								'製品出庫モードの場合はすでに出庫された数量をMinusSuryoに算出する
								If Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" Then
									Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU'"
									Set Content2 = OpenQuery(Query)
									Do While Not(Content2.BOF Or Content2.EOF)
										'先方書類が当該入庫に該当する出庫の数量をMinusSuryoに算出
										If Content2.Fields("先方文書種類CD") = Content.Fields("製造状況区分") And Content2.Fields("先方文書内容CD") = Content.Fields("文書内容CD") Then
											Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU', '" & Content2.Fields("文書内容CD") & "'"
											Set Content3 = OpenQuery(Query)
											Do While Not(Content3.BOF Or Content3.EOF)
												MinusSuryo = MinusSuryo + Content3.Fields("数量")
												Content3.MoveNext
											Loop
										End If
										Content2.MoveNext
									Loop
								End If
																																																																															'全て出庫したレコードは除外
								If (Mode = "Shikakari" And (Content.Fields("製造状況区分") = "PS" Or Content.Fields("製造状況区分") = "YS")) Or (Mode = "Seihin" And (Content.Fields("製造状況区分") = "MS" Or Content.Fields("製造状況区分") = "ZS")) Or (Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" And (Content.Fields("商品数量") - MinusSuryo) > 0) Then
									If Mode = "Shikakari" Then
										Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
									Else
										Syoribi = SetTimeYYYYMMDD(Content.Fields("完了日"))
									End If
									Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'")
									If Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" Then
										Response.Write(Replace(Request.ServerVariables("SCRIPT_NAME"), "seizosashizusho_ichiran.asp", "nyusyukko.asp") & "?BunsyoSyuruiCD=MU&SenpoBunsyoSyuruiCD=MS&SenpoBunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&NyusyukoKubun=U")
									Else
										If GenkaHyo = "1" Then
											If Mode = "Shikakari" Then
												Response.Write(HomeAliasSL & "user/bk/hojyobo/fk_genkakeisanhyo.asp?BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Mode=" & Mode)
											Else
												Response.Write(HomeAliasSL & "user/bk/hojyobo/fk_genkakeisanhyo_view.asp?BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Mode=" & Mode)
											End If
										Else
											Response.Write(Replace(Request.ServerVariables("SCRIPT_NAME"), "_ichiran.asp", "_view.asp") & "?BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Mode=" & Mode)
										End If
									End If
									Response.Write("')"" class=""tx1416"" onDblClick=""syokaibtn()"">" & vbCrLf)
									Response.Write("<TD WIDTH=""20"" HEIGHT=""24""> </TD>" & vbCrLf)
									Response.Write("<TD WIDTH=""100"" class=""tx1618"">" & Syoribi & "</TD>" & vbCrLf)
									Response.Write("<TD>")
									If Content.Fields("製造状況区分") = "YS" Or Content.Fields("製造状況区分") = "ZS" Then
										Response.Write(ConvZairyoMeisyo(Content.Fields("商品CD")))	'材料の場合は材料名称を取得
									Else
										Response.Write(Content.Fields("商品名称"))
									End If
									Response.Write("</TD>" & vbCrLf)
									Response.Write("<TD WIDTH=""110"" class=""tx1618"">" & Content.Fields("商品数量") - MinusSuryo & "</TD>" & vbCrLf)
'									Response.Write("<TD WIDTH=""110"" class=""tx1618"">" & Content.Fields("商品単価") & "</TD>" & vbCrLf)
									Response.Write("</TR>")
									ii = ii + 1
								End If
							End If
							Content.MoveNext
						Loop


						For jj = ii To 18
							Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
							Response.Write("<TD WIDTH=""20"" HEIGHT=""24""></TD>" & vbCrLf)
							Response.Write("<TD WIDTH=""100""></TD>" & vbCrLf)
							Response.Write("<TD></TD>" & vbCrLf)
							Response.Write("<TD WIDTH=""110""></TD>" & vbCrLf)
'							Response.Write("<TD WIDTH=""110""></TD>" & vbCrLf)
							Response.Write("</TR>")
						Next
					%>
					</TABLE>
				</DIV>
			</TD>
		</TR>
		</TABLE>
	</TD>
</TR>
</TABLE>
</div>
</body>
<% = HtmlFooter %>
<SCRIPT LANGUAGE="JavaScript">
<!--

var lsURL
lsURL = "#"
function syokaibtn(){
	if(lsURL == "#")
	{
		alert("選択されていません");
	}
	else
	{
		tblbtn(lsURL + "&RouteType=<% = RouteType %>");
	}
}

//TRselect & URLset
function celsel(rw,lsParam){

	for (k=0; k<document.all['List'].rows.length; k++){
		document.all['List'].rows[k].style.backgroundColor ="";
	}//セル色クリア
	document.all['List'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更

	lsURL = lsParam;
}

//-->
</SCRIPT>

</html>
<%
End Sub
%>