' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemLicense
'  $Command.System.SetCustomerData
'  $Command.System.SetLicenseKey
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "ライセンスキーの登録"
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ( ! form.Key1.value ) || ( ! form.Key2.value ) || ( ! form.Key3.value ) || ( ! form.Key4.value ) || ( ! form.Key5.value ) || ( ! form.Key6.value ) )
	{
		alert( "ライセンスキーを入力してください。" );
		return false;
	}
	if( ! form.UserNumber.value )
	{
		alert( "お客様番号を入力してください。" );
		return false;
	}
	if( ! form.Company.value )
	{
		alert( "会社名を入力してください。" );
		return false;
	}
	return true;
}
-->
</script>
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemLicense"
' $UserNumber = $Command.System.GetUserNumber
' $Company = $Command.System.GetCompany
' $Section = $Command.System.GetSection
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin" "システム設定" $BackURL "ライセンスキーの設定"
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemLicenseSet">
<input type="hidden" name="rw" value="User">
<p>
ライセンスキー証明書に書かれてある<font color="#ff0000">お客様番号</font>、及び<font color="#ff0000">ライセンスキー</font>を入力してください。<br>
現在の登録ユーザー数は<b>$Users.Count</b>人です。登録ユーザー数以上のキーを設定してください。<br>
' Call formNote 1
</p>
<p><table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>お客様番号
' Call formNecessaryMark
</td><td>
' Call formText "UserNumber" $UserNumber 7 1 6
</td></tr>
<tr><td nowrap>ライセンスキー
' Call formNecessaryMark
</td><td nowrap>
' Call formTextBox "Key1" "" 5 "" "" 4
-\\
' Call formTextBox "Key2" "" 5 "" "" 4
-\\
' Call formTextBox "Key3" "" 5 "" "" 4
-\\
' Call formTextBox "Key4" "" 5 "" "" 4
-\\
' Call formTextBox "Key5" "" 5 "" "" 4
-\\
' Call formTextBox "Key6" "" 5 "" "" 4
-\\
' Call formTextBox "Key7" "" 5 "" "" 4
</td></tr>
</table></p>
<p><table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>会社名
' Call formNecessaryMark
</td><td>
' Call formText "Company" $Company 30 1
</td></tr>
<tr><td nowrap>部署名</td><td>
' Call formText "Section" $Section 30 1
</td></tr>
</table></p>
' Call formCommit "設定する"
</form>
<ul>
<li><a href="$Server?page=SystemLicenseHistory">ライセンスキーの登録状況</a></li>
</ul>
' Call cmChildFooter $BackURL "ライセンスキーの設定へ"
</body>
</html>