' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' Call cmLoadStyleSheet "setting"
' $CaptionTitle = "アプリケーションの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin&wid=$WID"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
' Set $ws = $mw.WorkSpaces.$WID
<p>$ws.Nameのアプリケーションを設定してください。</p>
<p>
メールアプリケーション
' $NoAdd = $Command.Mail.IsDisableToAddSystem $WID
' $Count = $ws.Mails.Count
' If $Count > 1
'  $NoOrder = 0
' Else
'  $NoOrder = 1
' EndIf
' If ! $System.IsStandardPlan
'  Call cmLink "追加する" "write20.png" "$Server?page=SystemMailSystemAdd&wid=$WID" $NoAdd
'  Call cmLink "順番変更" "order20.png" "$Server?page=SystemMailSystemOrder&wid=$WID" $NoOrder
' EndIf
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="title"><th width="250">名前</th><th width="200">操作</th><th width="350">登録件数</th></tr>
' For Each $ms in $ws.Mails
<tr><td nowrap>$ms.Name<br></td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemMailSystemModify&wid=$WID&id=$ms.ID"
'  Call cmLink "削除する" "delete20.png" "$Server?page=SystemMailSystemDelete&wid=$WID&id=$ms.ID" $NoOrder
</td><td nowrap>
'  Set $MailIndex = $Command.Mail.GetMailIndex $ms.ID
'  $RCount = $MailIndex.Received.Count
'  $SCount = $MailIndex.Sent.Count
'  $DCount = $MailIndex.Drafts.Count
'  Init $RCount = 0
'  Init $SCount = 0
'  Init $DCount = 0
'  $MailCount = $RCount + $SCount + $DCount
'  Call ShowRecordedDataCount $MailCount 100000
 (受信：$RCount / 送信：$SCount / 作成中：$DCount)
</td></tr>
' Next
</table>
</p>
<p>
その他のアプリケーション
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="title"><th width="250">名前</th><th width="200">操作</th><th width="350">登録件数</th></tr>
' For Each $fs in $ws.Forms
<tr><td nowrap>
'  If $fs.Disable
<font color="#888888">$fs.Name (使用停止)</font>
'  Else
$fs.Name<br>
'  EndIf
</td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemManageApplicationSet&wid=$WID&id=$fs.ID"
</td><td nowrap>
'  If ! $fs.Disable
'   Set $FormIndex = $Command.Form.GetFormIndex $fs.ID
'   $FormCount = $FormIndex.Documents.Count
'   Call ShowRecordedDataCount $FormCount 100000
'  EndIf
</td></tr>
' Next
<tr><td nowrap>
' If $ws.Customer.Disable
<font color="#888888">$ws.Customer.Name (使用停止)</font>
' Else
$ws.Customer.Name
' EndIf
</td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemManageApplicationSet&wid=$WID&id=-2"
</td><td nowrap>
'  If ! $ws.Customer.Disable
'   $CompanyCount = $CYomiIndex.Company.Customers.Count
'   $PersonCount = $CYomiIndex.Person.Customers.Count
'   Init $CompanyCount = 0
'   Init $PersonCount = 0
'   $CustomerCount = $CompanyCount + $PersonCount
'   Call ShowRecordedDataCount $CustomerCount 100000
 (会社：$CompanyCount / 顧客：$PersonCount)
'  EndIf
</td></tr>
<tr><td nowrap>
' If $ws.Template.Disable
<font color="#888888">$ws.Template.Name (使用停止)</font>
' Else
$ws.Template.Name
' EndIf
</td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemManageApplicationSet&wid=$WID&id=-4"
</td><td nowrap>
' If ! $ws.Template.Disable
'  Set $Templates = $Command.Template.GetTemplates $WID 0
'  $TemplateCount = $Templates.Count
'  Call ShowRecordedDataCount $TemplateCount 1000
' EndIf
</td></tr>
<tr><td nowrap>
' If $ws.Post.Disable
<font color="#888888">$ws.Post.Name (使用停止)</font>
' Else
$ws.Post.Name
' EndIf
</td><td nowrap>
' Call cmLink "変更する" "write20.png" "$Server?page=SystemManageApplicationSet&wid=$WID&id=-1"
</td><td nowrap>
' If ! $ws.Post.Disable
'  $PostCount = $Post.Index.Count
'  Call ShowRecordedDataCount $PostCount
' EndIf
</td></tr>
<tr><td nowrap>
' If $ws.Report.Disable
<font color="#888888">$ws.Report.Name (使用停止)</font>
' Else
$ws.Report.Name<br>
' EndIf
</td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemManageApplicationSet&wid=$WID&id=-3"
</td><td nowrap>
</td></tr>
<tr><td nowrap>
' If $ws.User.Disable
<font color="#888888">$ws.User.Name (使用停止)</font>
' Else
$ws.User.Name
' EndIf
</td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemManageApplicationSet&wid=$WID&id=-5"
</td><td nowrap>
' If ! $ws.User.Disable
$Users.Count件
' EndIf
</td></tr>
</table>
</p>
<p>
登録件数が制限値を超えると、件数が<span style="color:#ff0000;">赤字</span>で表示されます。<br>
また、一覧表示や検索の処理に時間がかかる恐れがあります。
</p>
次の操作によって、登録件数を減らせます。
<ul style="margin-top:0;">
 <li><b>メールアプリケーション / 電話履歴 / 訪問履歴 ：</b><br>
' If ! $System.IsCloud
     不要なデータを削除する、または<a href="$Server?page=SystemSave&wid=$WID">過去のデータを退避する</a>。</li>
' EndIf
 <li><b>アドレス帳 / テンプレート ：</b><br>
     不要なデータを削除する。</li>
</ul>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>
''
'' 件数を表示
'' Call ShowRecordedDataCount <登録件数> <制限の値>
' Sub ShowRecordedDataCount $argCount $argLimit
'  Init $argCount = 0
'  If $argLimit and ( $argCount >= $argLimit )
<span style="color:#ff0000;">$argCount件</span>\\
'  Else
$argCount件\\
'  EndIf
' EndSub