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

<%
'<!--
'################################################
'	 名称	:仕入売上書類一覧 '" & GB_SystemCD & "',
'	 作成日:2002/9/10
'	 作成者:山崎 貴史
'	 目的 :仕入売上書類の一覧画面を表示する。
'	 概要	:
'		<<表示>>
'	・仕入売上書類の一覧画面
'################################################
'-->
'
%>

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

	Dim BunsyoSyuruiCD, SenpoBunsyoSyuruiCD
	Dim SyoruiMei, SenpoSyoruiMei
	Dim NyusyukoKubun
	Dim ErrMsg
	ErrMsg = Request("ErrMsg")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	NyusyukoKubun = Request("NyusyukoKubun")


	Dim SyoruiKubun
	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoSyuruiCD <> "" Then
		SenpoFlg = 1
	End If

	Select Case SenpoBunsyoSyuruiCD
	Case "KI"
		SenpoSyoruiMei = "先方見積依頼書"
	Case "KM"
		SenpoSyoruiMei = "先方見積書"
	Case "KC"
		SenpoSyoruiMei = "先方注文書"
	Case "KU"
		SenpoSyoruiMei = "先方注文請書"
	Case "KK"
		SenpoSyoruiMei = "先方注文請書確認"
	Case "KN"
		SenpoSyoruiMei = "先方納品請求書"
	Case "KB"
		SenpoSyoruiMei = "先方物品受領書"
	Case "KX"
		SenpoSyoruiMei = "先方買入申込書"
	Case "KY"
		SenpoSyoruiMei = "先方売渡申込書"
	Case Else
	End Select
	Dim PageType

	Select Case BunsyoSyuruiCD
	Case "KV"
		PageType = "買入一括受付"
		SyoruiKubun = "V"
	Case "KW"
		PageType = "売渡一括受付"
		SyoruiKubun = "W"
	Case Else
	End Select

	Select Case NyusyukoKubun
	Case "S"
		SyoruiMei = "仕入入庫"
	Case "U"
		SyoruiMei = "売上出庫"
	End Select


%>
	<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="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../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">
<form OnKeyDown="FormKeyDown(this)"	 method="POST" action="fd_syorui_ikkatsu_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="SenpoBunsyoSyuruiCD" value="<% = SenpoBunsyoSyuruiCD %>">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	If SyoruiKubun = "V" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", PageType , "", "", "", "", ""))
	ElseIf SyoruiKubun = "W" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", PageType , "", "", "", "", ""))
	ElseIf SyoruiKubun = "X" 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')", "管理部買入", "", "", "", "", ""))
	ElseIf SyoruiKubun = "1" 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')", "管理部売渡", "", "", "", "", ""))
	ElseIf SyoruiKubun = "U" 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')", SyoruiMei, "", "", "", "", ""))
	Else
		 Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", ""))
	End If

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

	Dim Query
	Dim Content

	If SenpoFlg = 0 Then
		Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'"
	Else
		Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', '" & SenpoBunsyoSyuruiCD & "'"
	End If

	Set Content = OpenQuery(Query)

	'項目無し判定(061214小野)
	Dim KoumokuFlg,MoveFirstFlg
	KoumokuFlg = 0
	MoveFirstFlg = 0
	If ErrMsg = "" Then
		Do While Not(Content.BOF Or Content.EOF)
			MoveFirstFlg = 1
			If Content.Fields("返信フラグ") = 0 Then
				KoumokuFlg = 1
		 		Exit Do
			End If
		Content.MoveNext
		Loop
		If MoveFirstFlg = 1 Then
			Content.MoveFirst
		End If
		If KoumokuFlg = 1 Then
			Response.Write(HttpL3_1("送信", "SubmitCheck();", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		End If
	Else
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4(PageType , ""))

	Response.Write(HttpL5(ErrMsg))
%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
						<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" rules="none">
							<tr>
								<td>
									<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
										<tr>
											<td>
												<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
													<tr>
														<td align="CENTER" valign="MIDDLE">
															<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">
																		<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
													<% If KoumokuFlg = 1 Then %>
																			<TR>
																				<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600" align="center">
													<table height="30" border="0" cellpadding="0" cellspacing="0">
														<tr>
															<td align="center" class="tx1416">掛率</td><td>&nbsp;</td><td>&nbsp;</td>
															<td align="right"><input type="text" name="Kakeritsu" size="3" align="right" onkeyup="FormStrFloat(this,3,0)" onkeypress="FormStrFloat(this,3,0)" onblur="FormStrFloatCutoff(this)" class="tbox5"></td><td>&nbsp;</td>
															<td align="center" class="tx1416">%</td>
															<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>
															<td align="center" class="tx1416">運送会社</td><td>&nbsp;</td><td>&nbsp;</td>
															<td align="center" class="tx1416">
															<select size="1" name="UnsoGaisyaCD" class="tbox4" style="width:190">
																<option value="">    </option>
																<%
																	Dim ContentUnso
																	Dim SelectedFlg
																	SelectedFlg = 0
																	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
																	Set ContentUnso = OpenQuery(Query)
																	Do While Not(ContentUnso.BOF Or ContentUnso.EOF)
																		If ContentUnso.Fields("業種CD") = "U" Then
																			Response.Write("<option value=""" & ContentUnso.Fields("会社CD") & """")
																			If SelectedFlg = 0 And ContentUnso.Fields("市場CD") = GB_ShijyoCD Then
																				Response.Write(" selected")
																				SelectedFlg = 1
																			End If
																			Response.Write(">" & ContentUnso.Fields("会社名称") & "</option>" & vbCrLf)
																		End If
																		ContentUnso.MoveNext
																	Loop
																%>
															</select>
															</td>
														</tr>
													</table>
																				</TD>
																			</TR>
													<% End If %>
																			<TR>
																				<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
																					<TABLE WIDTH="620" 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"><br></TD>
																							<TD WIDTH="100" HEIGHT="20">処理日</TD>
																							<TD WIDTH="100" HEIGHT="20">取引先</TD>
																							<TD WIDTH="100" HEIGHT="20">納入期日</TD>
																							<TD HEIGHT="20">摘要</TD>
																							<TD WIDTH="30" HEIGHT="20"><%
																							If SenpoBunsyoSyuruiCD = "" Then
																						 	Response.Write("発信")
																							Else
																						 	Response.Write("送信")
																							End If %></TD>
																						</TR>
																					</TABLE>
																				</TD>
																			</TR>
																			<TR>
																				<TD VALIGN="TOP">
																					<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:640px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
																						<TABLE ID="List" WIDTH="620" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
	Dim ii, jj
	ii = 0

	'項目無し判定のためクエリは上に移動(061214小野)

		Dim NextPageParam
		Do While Not(Content.BOF Or Content.EOF)
	 	If Content.Fields("返信フラグ") = 0 And Content.Fields("削除フラグ") <> 1 Then
			If NextPageParam <> "" Then
				NextPageParam = NextPageParam & ";"
			End If
			NextPageParam = NextPageParam & Content.Fields("作成会社CD") & "," & SenpoBunsyoSyuruiCD & "," & Content.Fields("文書内容CD")

			Response.Write("<TR ALIGN=""CENTER"" class=""tx1416"">" & vbCrLf)
			Response.Write("<TD WIDTH=""20"" HEIGHT=""20"">")
			Response.Write("<TD WIDTH=""100"" HEIGHT=""20"" class=""tx1618"">" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "</TD>" & vbCrLf)
			Response.Write("<TD WIDTH=""100"" HEIGHT=""20"">" & Content.Fields("作成会社略名称") & "</TD>" & vbCrLf)
			Response.Write("<TD WIDTH=""100"" HEIGHT=""20"" class=""tx1618"">" & SetTimeYYYYMMDD(Content.Fields("納入期日")) & "</TD>" & vbCrLf)
			Response.Write("<TD HEIGHT=""23"" align=""left"">" & Content.Fields("摘要") & "</TD>" & vbCrLf)
			Response.Write("<TD WIDTH=""30"" HEIGHT=""20"">")
			If SenpoBunsyoSyuruiCD = "" Then
				Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2))
			Else
				Response.Write(ConvFlagMeisyo(Content.Fields("返信フラグ"), 2))
			End If
			Response.Write("</TD>" & vbCrLf)
			ii = ii + 1
			Response.Write("</TR>")
		End IF
	 	Content.MoveNext
		Loop


		For jj = ii To 17
	 	Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
		Response.Write("<TD WIDTH=""20"" HEIGHT=""20"">")
		Response.Write("<TD WIDTH=""100"" HEIGHT=""20""></TD>" & vbCrLf)
		Response.Write("<TD WIDTH=""100"" HEIGHT=""20""></TD>" & vbCrLf)
		Response.Write("<TD WIDTH=""100"" HEIGHT=""20""></TD>" & vbCrLf)
		Response.Write("<TD HEIGHT=""23""></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>
								</td>
							</tr>
						</table>


</div>
<input type="hidden" name="NextPageParam" value="<% = NextPageParam %>">
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
	function SubmitCheck()
	{
		if (form1.Kakeritsu.value == "")
		{
			alert("掛率を入力して下さい。");
			form1.Kakeritsu.focus();
			return false;
		}
		if (Math.floor(form1.Kakeritsu.value) == 0)
		{
			alert("掛率は1以上を入力して下さい。");
			form1.Kakeritsu.focus();
			return false;
		}
		SubmitReal(form1);
		
	}
</SCRIPT>
<% = HtmlFooter %>

</html>
<%
End Sub
%>