<!-- #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> </td><td> </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> </td>
<td align="center" class="tx1416">％</td>
<td> </td><td> </td><td> </td><td> </td><td> </td>
<td align="center" class="tx1416">運送会社</td><td> </td><td> </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
%>