<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：小売販売一覧表示
' 作成日 ：2007/2/10
' 作成者 ：Masayoshi Wada
' 目的 ：小売販売一覧を画面に表示する。
' 概要 ：
' <<表示>>
' ・小売販売の一覧画面
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Title, SenColor
Title = "お買い上げ票"
Dim ShowDel
ShowDel = Request("ShowDel")
Dim PageType
PageType = Request("PageType")
Dim RouteType
RouteType = Request("RouteType")
Dim BunsyoSyuruiCD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
Dim BunsyoNaiyoCD
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim SakuseiKaisyaCD
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
Dim Action
Action = Request("Action")
Dim DenpyoNo
DenpyoNo = Request("DenpyoNo")
If RouteType = "admin" Then
EnshuCD = Request("EnshuCD")
End If
' For Debug
'Response.Write("GB_SystemCD:" & GB_SystemCD & "<br>")
'Response.Write("EnshuCD:" & EnshuCD & "<br>")
'Response.Write("KaisyaCD:" & KaisyaCD & "<br>")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "<br>")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "<br>")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "<br>")
'Response.Write("RouteType:" & RouteType & "<br>")
%>
<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" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<input type="hidden" name="PageType" value="<% = PageType %>">
<%
'RouteType = "ViewOnly" の定義を追加（070320小野）
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HtmlDesign(4))
Else
Response.Write(HtmlDesign(1))
End If
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "販売部", "", "販売書類", "", "お買い上げ票", "", "", "", "", ""))
ElseIf RouteType = "admin" Then
Response.Write(HttpL1(4))
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "演習状況一覧" , "tblbtn( '/" & HomeAlias & "/admin/syokai/fm_jyokyo_ichiran.asp?EnshuCD=" & EnshuCD & "')", "小売販売", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL1(2))
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", Title, "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", ""))
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
ElseIf RouteType = "admin" Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("追加", "tblbtn( 'kh_kouri.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=HU&NyusyukoKubun=U')", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4(Title, "一覧表示"))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td valign="top">
<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
<tr>
<td align="CENTER" valign="MIDDLE">
<TABLE BORDER="0" CELLSPACING="4" 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%">
<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"><img src="/<% = HomeAlias %>/images/spacer.gif" width="1" height="1"></TD>
<TD WIDTH="90" HEIGHT="20">お買上日</TD>
<TD WIDTH="90" HEIGHT="20">伝票番号</TD>
<% If RouteType = "admin" Then %>
<TD WIDTH="150" HEIGHT="20">生徒名</TD>
<% Else %>
<TD WIDTH="150" HEIGHT="20">お客様名</TD>
<% End If %>
<TD 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="SyoukaiList" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
' 2006.11.28 [iiDef]を追加して、伝票番号を保存する(iiDefのあるＬＩＮＥは追加または変更したＬＩＮＥ）
Dim Query
Dim Content
Dim ii, jj, iiDef
ii = 0
iiDef = -1
If RouteType = "admin" Then
Query = "exec SPK小売販売一覧取得_先生 '" & GB_SystemCD & "','" & EnshuCD & "'"
Else
Query = "exec SPK小売販売一覧取得_生徒 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "'"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("削除フラグ") <> 1 Then
'選択状態保持（070320小野）
If Content.Fields("文書内容CD") = BunsyoNaiyoCD And Content.Fields("会社CD") = SakuseiKaisyaCD Then
iiDef = ii
End If
'RouteType="admin"の場合のみ会社CDを確保
If RouteType = "admin" Then
KaisyaCD = Content.Fields("会社CD")
End If
Response.Write("<TR onClick=""celsel(" & ii & ",'kh_kouri_view.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&SakuseiKaisyaCD=" & Content.Fields("作成会社CD") & "&PageType=ichiran&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "')"" CLASS=""tx1618"" onDblClick=""syokaibtn()"">" & vbCrLf)
Response.Write("<TD ALIGN=""CENTER"" WIDTH=""20"" HEIGHT=""21"">")
If Content.Fields("削除フラグ") = 1 Then
Response.Write("x")
End If
Response.Write("<img src=""/" & HomeAlias & "/images/spacer.gif"" width=""1"" height=""1""></TD>" & vbCrLf)
Response.Write("<TD ALIGN=""CENTER"" WIDTH=""90"" HEIGHT=""20"">" & SetTimeYYYYMMDD(Content.Fields("買上日")) & "</TD>" & vbCrLf)
Response.Write("<TD ALIGN=""CENTER"" WIDTH=""90"" HEIGHT=""20"">" & Content.Fields("文書内容CD") & "</TD>" & vbCrLf)
If RouteType = "admin" Then
Response.Write("<TD ALIGN=""LEFT"" WIDTH=""150"" HEIGHT=""20"" CLASS=""tx1416"">" & Content.Fields("学生氏名") & "</TD>" & vbCrLf)
Else
Response.Write("<TD ALIGN=""LEFT"" WIDTH=""150"" HEIGHT=""20"" CLASS=""tx1416"">" & Content.Fields("客氏名") & "</TD>" & vbCrLf)
End If
Response.Write("<TD ALIGN=""LEFT"" HEIGHT=""20"" CLASS=""tx1416"">" & Content.Fields("摘要") & "</TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
End If
Content.MoveNext
Loop
For jj = ii To 30
Response.Write("<TR HEIGHT=""21"">" & vbCrLf)
Response.Write("<TD ALIGN=""CENTER"" WIDTH=""20""></TD>" & vbCrLf)
Response.Write("<TD ALIGN=""CENTER"" WIDTH=""90""></TD>" & vbCrLf)
Response.Write("<TD ALIGN=""LEFT"" WIDTH=""90""></TD>" & vbCrLf)
If RouteType = "admin" Then
Response.Write("<TD ALIGN=""LEFT"" WIDTH=""150""></TD>" & vbCrLf)
Else
Response.Write("<TD ALIGN=""LEFT"" WIDTH=""150""></TD>" & vbCrLf)
End If
Response.Write("<TD ALIGN=""CENTER""></TD>" & vbCrLf)
Response.Write("</TR>")
Next
%>
</TABLE>
</DIV>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
<SCRIPT LANGUAGE="JavaScript">
var lsURL="#"
function syokaibtn()
{
if(lsURL == "#")
{
alert("選択されていません");
}
else
{
tblbtn(lsURL);
}
}
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>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<%
' 2006.11.28 演習一覧表示の機能を追加＆モディファイ（伝票番号を引数に追加）
%>
<% If iiDef <> -1 Then %>
celsel(<% = iiDef %>, "kh_kouri_view.asp?EnshuCD=<% = EnshuCD %>&SakuseiKaisyaCD=<% = KaisyaCD %>&PageType=ichiran&RouteType=<% = RouteType %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>")
Layer1.scrollTop = <% = (iiDef - 5) * 20 %>;
<% End If %>
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>