' If $page = "SystemSetupAccount"
'  Exit
' EndIf
' $bExceedRecordLimitSystems = 0
''
' Sub BeginRecordWarning
'  If ! $bExceedRecordLimitSystems
<div class="warning">
次のメールスペースに、登録件数が制限値を超えているアプリケーションがあります。
<ul style="margin-top:0;margin-bottom:0;">
'   $bExceedRecordLimitSystems = 1
'  EndIf
' EndSub
''
' Sub EndRecordWarning
'  If $bExceedRecordLimitSystems
</ul>
</div>
'  EndIf
' EndSub
''
' Sub CheckWSRecordLimit $argWS
'' メールアプリケーション
'  For Each $ms in $argWS.Mails
'   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
'   $Sum = $RCount + $SCount + $DCount
'   If $Sum >= 100000
'    $bRecordWarning = 1
'    Exit
'   EndIf
'  Next
'  If $bRecordWarning
'   Exit
'  EndIf
'' 電話/訪問履歴
'  For Each $fs in $argWS.Forms
'   If $fs.Disable
'    Continue
'   EndIf
'   Set $FormIndex = $Command.Form.GetFormIndex $fs.ID
'   If $FormIndex.Documents.Count >= 100000
'    $bRecordWarning = 1
'    Exit
'   EndIf
'  Next
'  If $bRecordWarning
'   Exit
'  EndIf
'' アドレス帳
'  If ! $argWS.Customer.Disable
'   Set $localCYomiIndex = $Command.Customer.GetYomiIndexTop $argWS.ID
'   $CompanyCount = $localCYomiIndex.Company.Customers.Count
'   $PersonCount = $localCYomiIndex.Person.Customers.Count
'   Init $CompanyCount = 0
'   Init $PersonCount = 0
'   $CustomerCount = $CompanyCount + $PersonCount
'   If $CustomerCount >= 100000
'    $bRecordWarning = 1
'    Exit
'   EndIf
'  EndIf
'' テンプレート
'  If ! $argWS.Template.Disable
'   Set $Templates = $Command.Template.GetTemplates $argWS.ID 0
'   $TemplateCount = $Templates.Count
'   If $Templates.Count >= 1000
'     $bRecordWarning = 1
'    Exit
'   EndIf
'  EndIf
' EndSub
'
'' 各メールスペースについてチェック
' For Each $localWS in $mw.WorkSpaces
'  $bRecordWarning = 0
'  Call CheckWSRecordLimit $localWS
'  If $bRecordWarning
'   Call BeginRecordWarning
<li>$localWS.Name [<a href="$Server?page=SystemManageApplication&wid=$localWS.ID">詳細</a>]</li>
'  EndIf
' Next
' Call EndRecordWarning