<!-- #include file="../../include.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_syorui_view_main_in.asp" -->
<%
'
'<!--
'################################################
' 名称 ：発信前仕入販売書類表示
' 作成日 ：2012/07/03
' 作成者 ：小野
' 目的 ：発信前の仕入販売書類を表示する。
' 概要 ：検認処理のため
'################################################
'-->
%>
<%
main()
Sub main()
Dim Query
Dim Content
Dim ErrMsg
If Not(SessionCheck()) Then
Exit Sub
End If
Dim KenninView
KenninView = Request("KenninView")
Dim EnshuName
If GB_EnshuCD <> "" Then
'EnshuCD = GB_EnshuCD
End If
If EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
End If
End If
Dim SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim SeitoCD
SeitoCD = Request("SeitoCD")
%>
<html>
<% = HtmlHeader(";sj3tyobored;") %>
<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">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="fm_enshucontrol07_bin.asp" onSubmit="return SubmitCheck();" target="_top">
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<input type="hidden" name="SakuseiKaisyaCD" value="<% = SakuseiKaisyaCD %>">
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="BunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input type="hidden" name="SeitoCD" value="<% = SeitoCD %>">
<input type="hidden" name="KenninView" value="<% = KenninView %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If GB_Admin = 1 Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "仕入販売書類確認", "", "", "", "", ""))
Else'If GB_Admin > 1 Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "仕入販売書類確認", "", "", "", "", ""))
End If
Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If KenninView <> "1" Then
Response.Write(HttpL3_1("この書類の発信を許可する", "SubmitCheck();", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("この書類の発信許可を取り消す", "SubmitCheck();", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3_2("一覧に戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol07.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SeitoCD=" & SeitoCD & "')", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("演習コントロール", "仕入販売書類の確認"))
Response.Write(HttpL5(""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="690" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td align="center" valign="top">
<TABLE BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="30" align="center"> 対象演習名 </TD>
<TD height="30" align="center" BGCOLOR="#FFFFFF"> <% = EnshuMeisyo %> </TD>
<% If ConvEnshuKubun(EnshuCD) = "P" Then %>
<TD HEIGHT="20"> 学生氏名 </TD>
<TD height="30" align="center" BGCOLOR="#FFFFFF"> <% = ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, SakuseiKaisyaCD)) %> </TD>
<% Else %>
<TD HEIGHT="20"> 会社コード </TD>
<TD height="30" align="center" BGCOLOR="#FFFFFF"> <% = SakuseiKaisyaCD %> </TD>
<% End If %>
<TD HEIGHT="20"> 作成会社 </TD>
<TD height="30" align="center" BGCOLOR="#FFFFFF"> <% = ConvKaisyaMeisyoDx(EnshuCD, SakuseiKaisyaCD) %> </TD>
</TR>
</table>
</td>
</tr>
<tr>
<td align="center">
<%
'オリジナル商品を取得するため生徒CDを入れ替える（同時同業のみ必要）
Dim TmpGakuseiNo
TmpGakuseiNo = GB_GakuseiNo
GB_GakuseiNo = ConvKaisyaGakuseiNo(EnshuCD, SakuseiKaisyaCD)
Response.Write(ShiireUriageSyorui(EnshuCD, SakuseiKaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0, 0))
GB_GakuseiNo = TmpGakuseiNo
%>
</td>
</tr>
</table>
</div>
</form>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck() {
<% If KenninView <> "1" Then %>
if (!confirm("この書類の発信を許可しますか？ ")) {
<% Else %>
if (!confirm("この書類の発信許可を取り消しますか？ ")) {
<% End If %>
return false;
}
SubmitReal(form1);
}
</script>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>