' $System.Access Form
' $System.SetParameter BackURL "$Server?page=FormDocView&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID&bpt=$BPT"
' If $System.IsPost
'  $System.Redirect $BackURL
'  $Command.Form.Notify
'  Exit
' EndIf
' $FormName = $WorkSpace.Forms.$BS.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibrarySelect.html"-->
' $CaptionTitle = "他のユーザーへの通知"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( form.NotifyUIDs.length <= 1 )
	{
		alert( "通知先を選択してください。" );
		return false;
	}
	PreSubmitGID( form );
	return true;
}
//-->
</script>
</head>
<body>
' $System.SetParameter URLFormIndex "$Server?page=FormIndex&wid=$WID&bs=$BS&rid=$RID"
' Call cmHeader $CaptionTitle $URLFormIndex $FormName $BackURL "$FormNameの詳細"
' $Available = $Command.Form.IsAvailableSystem $BS
' If ! $Available
<p>
メール通知をおこなうには、、メールサーバーとメールアカウントの設定が必要です。<br>
システム管理者にお問い合わせ下さい。<br>
</p>
' Else
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="FormDocNotify">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="RID" value="$RID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Creator" value="作成者">
<input type="hidden" name="DateTime" value="日時">
<input type="hidden" name="Subject" value="件名">
<input type="hidden" name="Customer" value="顧客">
<input type="hidden" name="File" value="添付ファイル">
<input type="hidden" name="Title" value="[メールワイズ]$FormNameからの通知">
'  $System.SetParameter URL "page=FormDocView&wid=$WID&bs=$BS&rid=$RID&dbid=$DBID"
<input type="hidden" name="URL" value="$URL">
'  If ! $mw.URL
<input type="hidden" name="_URL" value="1">
'  EndIf
<p>指定されたユーザーに、メールで通知します。通知情報を入力してください。</p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>通知先</td><td>
'  Set $AccessCommand = $Command.Form
'  Call selectUser "GID" "NotifyUIDs" "UIDs" "" "" $Login.FirstGID "" $AccessCommand 1
'  Set $PersonalForm = $Command.Form.GetPersonalForm $BS
'  If $PersonalForm.Notify.Comment
'   $Checked = 0
'  Else
'   $Checked = 1
'  EndIf
'  Call formCheckBox "UserReceived" "通知先をコメントで残す" $Checked 1 "UserReceived"
</td></tr>
<tr><td valign="top" nowrap>コメント</td><td>
'  Call formText "Comment" "" 80 3
</td></tr>
</table>
'  Call formCommit "通知する"
</form>
' EndIf
' Call cmFooter $BackURL "$FormNameの詳細へ"
</body>
</html>