' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageMailViewConfig&wid=$WID&id=$ID
'  $Command.Mail.SetView
'  Exit
' EndIf
' $AppliName = $WorkSpace.Mails.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryViewSet.html"-->
' $CaptionTitle = "表示の変更"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailViewConfig&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "表示の設定"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailViewSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>$AppliNameの表示の情報を設定してください。</p>
<ul>
<p>
' $Rows = $MailProfile.Rows
' Init $Rows = 50
<li>一覧画面で表示するメールの件数</li>
<select name="Rows">
<option value="20" $Rows.Selected_20>20
' Options $Rows in 50 to 200 step 50
</select>
</p>
<p>
<li>一覧画面で表示する項目</li>
</p>
<blockquote>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="header"><th nowrap>表示</th><th width="200" nowrap>項目名</th><th nowrap>表示文字数</th><th nowrap>その他</th></tr>
<tr><td align="center">
' If $MailProfile.LineNumber.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formCheckBox "LineNumber" "" $Checked 1
</td><td>行数</td><td>(全て)</td><td><br></td></tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>日時</td><td>(全て)</td><td><br></td></tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>状況・確認者</td><td>(全て)</td><td><br></td></tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>担当者</td><td>(全て)</td><td><br></td></tr>
<tr><td align="center">
' If $MailProfile.Code.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formCheckBox "Code" "" $Checked 1
</td><td>番号</td><td>(全て)</td><td><br></td></tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>件名</td><td>
' Call SelectLength "SubjectLength" $MailProfile.Subject.Length
</td><td><br></td></tr>
<tr><td align="center">
' If $MailProfile.Customer.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formCheckBox "Customer" "" $Checked 1
</td><td>宛先/差出人</td><td>
' Call SelectLength "CustomerLength" $MailProfile.Customer.Length
</td><td nowrap>
' Call formCheckBox "Each" "宛先と差出人を分けて表示する" $MailProfile.Customer.Each 1 "Each"
</td></tr>
' If $MailProfile.AccountView.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' $AccountSize = $MailProfile.Accounts.Count
' If $AccountSize > 1
<tr><td align="center">
'  Call formCheckBox "AccountView" "" $Checked 1
</td><td>アカウント</td><td>(全て)</td><td><br></td></tr>
' Else
<input type="hidden" name="AccountView" value="1">
' EndIf
' For Each $Item in $MailProfile.Items
<tr><td align="center">
'  If $Item.Hidden
'   $Checked = 0
'  Else
'   $Checked = 1
'  EndIf
'  Call formCheckBox $Item.ID "" $Checked 1
</td><td nowrap>$Item.Name<br></td><td>(全て)</td><td><br></td></tr>
' Next
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>コメント</td><td>(全て)</td><td><br></td></tr>
</table>
</blockquote>
<p>
<li>メールの作成画面</li>
<div style="text-indent:20;">
' Call formCheckBox "ViewProperty" "メール情報の設定欄を表示する" $MailProfile.ViewProperty 1 "ViewProperty"
</div>
</p>
<p>
<li>メール詳細画面での履歴件数表示</li>
<div style="text-indent:20;">
' Call formCheckBox "ViewHistory" "履歴の件数を表示する" $MailProfile.ViewHistory 1 "ViewHistory"
</div>
</p>
' If ! $WorkSpace.Customer.Disable
<p>
<li>メールの詳細画面に表示する顧客の項目</li>
</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="header"><th nowrap>表示</th><th width="150" nowrap>会社項目</th></tr>
'  If $Customer.Company.Groups.Count
<tr><td align="center">
'   Call formCheckBox "CompanyCGID" "" $MailProfile.Company.CGID 1
</td><td>会社グループ</td></tr>
'  EndIf
<tr><td align="center">
'  Call formCheckBox "CompanyCode" "" $MailProfile.Company.Code 1
</td><td>会社コード</td></tr>
<tr><td align="center">
'  Call formCheckBox "CompanyYomi" "" $MailProfile.Company.Yomi 1
</td><td>会社よみ</td></tr>
<tr><td align="center">
'  Call formCheckBox "CompanyTel" "" $MailProfile.Company.Tel 1
</td><td>電話番号</td></tr>
'  For Each $Item in $Customer.Company.Items
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   $IID = $Item.ID
<tr><td align="center">
'   Call formCheckBox "Company" "" $MailProfile.Company.$IID $IID
</td><td>$Item.Name</td></tr>
'  Next
<tr><td align="center">
'  Call formCheckBox "CompanyUser" "" $MailProfile.Company.User 1
</td><td>担当者</td></tr>
<tr><td align="center">
'  Call formCheckBox "CompanyFile" "" $MailProfile.Company.File 1
</td><td>添付ファイル</td></tr>
</table>
</td><td width="20"><br></td><td valign="top" nowrap>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="header"><th nowrap>表示</th><th width="150" nowrap>顧客項目</th></tr>
'  If $Customer.Person.Groups.Count
<tr><td align="center">
'   Call formCheckBox "CGID" "" $MailProfile.Person.CGID 1
</td><td>顧客グループ</td></tr>
'  EndIf
<tr><td align="center">
'  Call formCheckBox "PersonCode" "" $MailProfile.Person.Code 1
</td><td>顧客コード</td></tr>
<tr><td align="center">
'  Call formCheckBox "Yomi" "" $MailProfile.Person.Yomi 1
</td><td>よみ</td></tr>
'  If ! $Customer.Person.Section.Disable
<tr><td align="center">
'   Call formCheckBox "Section" "" $MailProfile.Person.Section 1
</td><td>部課</td></tr>
'  EndIf
<tr><td align="center">
'  Call formCheckBox "Tel" "" $MailProfile.Person.Tel 1
</td><td>電話番号</td></tr>
<tr><td align="center">
'  Call formCheckBox "Mail" "" $MailProfile.Person.Mail 1
</td><td>メールアドレス</td></tr>
<tr><td align="center">
'  Call formCheckBox "Post" "" $MailProfile.Person.Post 1
</td><td>配信停止</td></tr>
'  For Each $Item in $Customer.Person.Items
'   $Access = $Command.Customer.IsAccessItem $Item
'   If ! $Access
'    Continue
'   EndIf
'   $IID = $Item.ID
<tr><td align="center">
'   Call formCheckBox "Person" "" $MailProfile.Person.$IID $IID
</td><td>$Item.Name</td></tr>
'  Next
<tr><td align="center">
'  Call formCheckBox "User" "" $MailProfile.Person.User 1
</td><td>担当者</td></tr>
<tr><td align="center">
'  Call formCheckBox "File" "" $MailProfile.Person.File 1
</td><td>添付ファイル</td></tr>
</table>
</td></tr>
</table>
</blockquote>
' EndIf
</ul>
' Call formCommit "変更する"
</form>
' Call cmChildFooter $BackURL "表示の設定へ"
</body>
</html>