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

<%
'<!--
'################################################
'	 名称	:FAX文書作成
'	 作成日:2007/8/16
'	 作成者:小野
'	 目的 :FAXの送信画面を表示する。
'	 概要	:
'		<<表示>>
'	・メールの作成画面
'
'################################################
'-->
'
%>

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

	Dim Query,Content
	Dim SakuseiKaisyaCD
	Dim MailCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, TorihikisakiMaisyo
	MailCD = Request("MailCD")
	TorihikisakiCD = Request("TorihikisakiCD")

	Dim RouteType
	RouteType = Request("RouteType")

	Dim KaisyaMeisyo
	Dim FAX
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KaisyaMeisyo = Content.Fields("会社名称")
		FAX = Content.Fields("FAX")
	End If


	'生徒単位でのメール送信拒否設定を取得(091013小野)
	Dim MailSendKyohi
	Query = "exec SPV演習履歴取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		MailSendKyohi = "" & Content.Fields("メール送信拒否")
	End If


	Naiyo = ""
	Naiyo = Naiyo & "拝啓" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "下記の通り送付致しますので、宜しくご査収のほどお願い申し上げます。" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "                             敬具" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "                      " & KaisyaMeisyo & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "                      FAX:" & FAX & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf
	Naiyo = Naiyo & "" & vbCrLf

%>
<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 = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#8D9BCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form1" method="POST" action="fn_fax_bin.asp" ENCTYPE="multipart/form-data" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<%

	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HtmlDesign(6))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))
	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL2("受発信文書ウィンドウ" ,"", "", "", "", "", "", "", "", "", "", ""))
	ElseIf GB_Gyosyu <> "B" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", "メール" , "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", ConvKubunMeisyo("業種CD", GB_Gyosyu) , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", "メール", "", "", "", "", ""))
	End If

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

	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL3_1("送信", "SubmitCheck()", "送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "')", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("送信", "SubmitCheck()" , "", "", "", "", "", "", "", ""))
	End If

	If InStr(RouteType, "MailOnly") > 0 Then
		Response.Write(HttpL3_2("受信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=" & RouteType & "')", "発信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=" & RouteType & "')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=SendMail&RouteType=" & RouteType & "')"))
	Else
		Response.Write(HttpL3_2("受信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=RecvFAX&RouteType=" & RouteType & "')", "送信一覧", "tblbtn( 'fn_fax_ichiran.asp?PageType=SendFAX&RouteType=" & RouteType & "')", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("FAX", "FAX送信"))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="750" height="350" border="0" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF" STYLE="BORDER:solid 1px #000000">
	<tr>
		<td align="center" valign="middle" background="/<% = HomeAlias %>/images/window_bk.gif">
			<table width="720" height="300" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td width="720">
						<table width="100%" height="400" border="0" cellpadding="0" cellspacing="0" STYLE="BORDER:solid 2px #80AEFF">
							<tr>
								<td height="10" colspan="4" class="tx1416"><img src="/<% = HomeAlias %>/images/spacer.gif" width="10" height="10"></td>
							</tr>
							<tr>
								<td width="80" align="right" class="tx1416">宛先:</td>
								<td width="430" height="30">
									<select size="1" name="TorihikisakiCD" class="tbox4_w">
									<%
										Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
										Set Content = OpenQuery(Query)

											Do While Not(Content.BOF Or Content.EOF)
												Dim TmpKaisyaCD
												TmpKaisyaCD = Content.Fields("会社CD")
												If TmpkaisyaCD <> KaisyaCD Then
													Response.Write("<option value=""" & Content.Fields("会社CD") & """")
													If Content.Fields("会社CD") = SakuseiKaisyaCD Then
															Response.Write(" selected")
													End If
													Response.Write(">")
													Response.Write(Content.Fields("会社名称") & "</option>" & vbCrLf)
												End If
											Content.MoveNext
											Loop
									%>

										</select>
								</td>
								<td width="53" align="right" class="tx1416">送信日:</td>
								<td width="140">
									<input type="text" name="Sakuseibi" size="12" onBlur="SetDate(this, 1, true)" class="tbox4_w"	value="<% = Sakuseibi %>" >
								</td>
							</tr>
							<tr>
								<td width="80" height="30" align="right" class="tx1416">件名:</td>
								<td width="640" colspan="3">
									 <input type="text" name="Kenmei" size="50" onBlur="FormStrLeftIME(this,50,true);" class="tbox4_ime_w" value="<% = Kenmei %>">&nbsp;&nbsp;
								</td>
							</tr>
							<tr>
								<td width="80" height="210" align="right" valign="top" class="tx1416"><div><% = Spacer(1,10) %></div>送付状:</td>
								<td width="640" colspan="3">
									 <textarea rows="16" wrap="hard" name="Naiyo" cols="70" onBlur="FormStrLeftIME(this,800,true);" class="tarea4_ime_w"><% = Naiyo %></textarea>
								</td>
							</tr>
							<tr>
								<td width="80" height="30" align="right" class="tx1416">文書:</td>
								<td width="640" colspan="3">
									 <input type="file" name="UpFile" value="" size="84" class="tbox4_w" UNSELECTABLE="On">
								</td>
							</tr>
							<tr>
								<td height="10" colspan="4" class="tx1416"><img src="/<% = HomeAlias %>/images/spacer.gif" width="10" height="10"></td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>

</div>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">

	function SubmitCheck()
	{
		if (form1.TorihikisakiCD.value == "") {
			alert("宛先を選択してください ");
			form1.TorihikisakiCD.focus();
			return false;
		}

		if (form1.Sakuseibi.value == "") {
			alert("送信日を入力してください ");
			form1.Sakuseibi.focus();
			return false;
		}

		if (form1.Kenmei.value == "") {
			alert("件名を入力してください ");
			form1.Kenmei.focus();
			return false;
		}

		if (form1.UpFile.value == "" || form1.UpFile.value == null) {
			alert("送信する文書ファイルを選択してください ");
			return false;
		}

		SubmitReal(form1);
		return true;
	}


</SCRIPT>

<% = HtmlFooter %>
</html>
<%
End Sub
%>