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

<%
'<!--
'################################################
'	 名称	:寄託入庫一覧
'	 作成日:2006/12/14
'	 作成者:鈴木
'	 目的  :入庫の一覧画面を表示する。
'	 概要	 :
'################################################
'-->
%>

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

	Dim Query
	Dim Content

%>

<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" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST" name="form1" autocomplete="off">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "入庫一覧", "", "", "", "", ""))

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

	'Response.Write(HttpL3_2("追加", "tblbtn( 'fu_syuko.asp?Action=1&EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
	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="5" cellspacing="0">
	<tr>
		<td align="center">
			<table width="770" height="100%" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff" style="border: 1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif"><!--薄青のチェックの背景-->
						<table border="0" cellspacing="0" cellpadding="16" height="100%">
							<tr>
								<td width="720" align="center">

									<TABLE WIDTH="720" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
										<TR><TD HEIGHT="1" VALIGN="top" WIDTH="700"></TD></TR>
										<TR>
											<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="700">
												<TABLE WIDTH="740" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											
											<TD WIDTH="90" HEIGHT="23">入庫日</TD>
											<TD WIDTH="90" HEIGHT="20">納入日</TD>
											<TD WIDTH="" HEIGHT="20">寄託依頼会社</TD>
											<TD WIDTH="260" HEIGHT="20">仕入先</TD>
											<TD WIDTH="30" HEIGHT="20">受付</TD>
										</TR>
												</TABLE>
											</TD>
										</TR>
										<TR>
											<TD VALIGN="TOP">
												<DIV ID="Layer1" STYLE="position: relative; left: 0px; top: 0px; width: 760; height: 100%; z-index: 1; overflow: auto; cursor: hand; border: 1px none #000000">
												
													<TABLE ID="SyoukaiList" WIDTH="740" class="tx1416" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
													<%
														Dim ii, jj
														ii = 0

														Query = "exec SPD寄託入庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
														Set Content = OpenQuery(Query)
														
														'Response.Write(Query)
														
														Do While Not(Content.BOF Or Content.EOF)
															
																Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fu_kitaku_nyuko.asp?SakuseiKaisyaCD=" & Content.Fields("作成会社CD") & "&KitakuIraiKaisyaCD=" & Content.Fields("寄託依頼会社CD")  & "&KitakuNo=" & Content.Fields("寄託受付番号") & "')"" onDblClick=""syokaibtn()"">" & vbCrLf)
																
																Response.Write("<TD WIDTH=""90"" HEIGHT=""23"">")
																If "" & Content.Fields("処理日") = "" And Content.Fields("寄託受付番号") = 0 Then
																	Response.Write("前期繰越")
																Else
																	Response.Write(Content.Fields("入庫年月日"))
																End If
																Response.Write("</TD>" & vbCrLf)

																Response.Write("<TD WIDTH=""90"" HEIGHT=""20"">")
																Response.Write(Content.Fields("処理日"))
																Response.Write("</TD>" & vbCrLf)

																Response.Write("<TD HEIGHT=""20"">")
																	Response.Write(ConvKaisyaMeisyo(Content.Fields("寄託依頼会社CD")))
																Response.Write("</TD>" & vbCrLf)
																
																Response.Write("<TD WIDTH=""260"" HEIGHT=""20"">")
																	Response.Write(ConvKaisyaMeisyo(Content.Fields("作成会社CD")))
																Response.Write("</TD>" & vbCrLf)
																
																Response.Write("<TD WIDTH=""30"" HEIGHT=""20"">")
																	If Content.Fields("有効フラグ") = 0 Then
																		Response.Write("未")
																	Else
																		Response.Write("済")
																	End If
																Response.Write("</TD>" & vbCrLf)

																ii = ii + 1
																Response.Write("</TR>")
															
															Content.MoveNext
														Loop


														For jj = ii To 35
															Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
															Response.Write("<TD WIDTH=""90"" HEIGHT=""23""></TD>" & vbCrLf)
															Response.Write("<TD WIDTH=""90"" HEIGHT=""20""></TD>" & vbCrLf)
															Response.Write("<TD HEIGHT=""20""></TD>" & vbCrLf)
															Response.Write("<TD WIDTH=""260"" HEIGHT=""20""></TD>" & vbCrLf)
															Response.Write("<TD WIDTH=""30"" HEIGHT=""20""></TD>" & vbCrLf)

															Response.Write("</TR>")
														Next
													%>
													</TABLE>
												</DIV>
											</TD>
										</TR>
									</TABLE>

								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>

		</td>
	</tr>
</table>
</div>

</form>
 
<SCRIPT LANGUAGE="JavaScript">
<!--
var lsURL="#"
function syokaibtn(){
	if(lsURL == "#")
	{
		alert("選択されていません");
	}
	else
	{
		tblbtn(lsURL);
	}
}

//TRselect & URLset
function celsel(rw,selURL){
	var trw;
	trw=rw;
	lsURL=selURL;

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

//-->
</SCRIPT>

</body>

<% = HtmlFooter %>

</html>
<%
End Sub
%>