' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "顧客項目の設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin&wid=$WID"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<p><img src="$IMG_PATH/person20.png">顧客の項目を設定してください。</p>
<p>標準の項目
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="300" nowrap>項目</th><th width="300" nowrap>操作</th></tr>
<tr><td nowrap>顧客コード</td><td nowrap>
' Call cmLink "変更する" "write20.png" "$Server?page=SystemCustomerPersonFixedItem&wid=$WID&id=$ID&item=Code"
</td></tr>
<tr><td nowrap>名前
<font color="#ff0000">*</font>
</td><td nowrap>
<font color="#888888">(変更できません)</font>
</td></tr>
<tr><td nowrap>よみ
' If $Customer.Person.Yomi.Necessary
<font color="#ff0000">*</font>
' EndIf
</td><td nowrap>
' Call cmLink "変更する" "write20.png" "$Server?page=SystemCustomerPersonFixedItem&wid=$WID&id=$ID&item=Yomi"
</td></tr>
<tr><td nowrap>部課</td><td nowrap>
' Call cmLink "変更する" "write20.png" "$Server?page=SystemCustomerPersonFixedItem&wid=$WID&id=$ID&item=Section"
</td></tr>
<tr><td nowrap>電話番号</td><td nowrap>
<font color="#888888">(変更できません)</font>
</td></tr>
<tr><td nowrap>メールアドレス</td><td nowrap>
<font color="#888888">(変更できません)</font>
</td></tr>
<tr><td nowrap>配信停止</td><td nowrap>
' Call cmLink "変更する" "write20.png" "$Server?page=SystemCustomerPersonFixedItem&wid=$WID&id=$ID&item=Post"
</td></tr>
<tr><td nowrap>添付ファイル</td><td nowrap>
' Call cmLink "変更する" "write20.png" "$Server?page=SystemCustomerPersonFixedItem&wid=$WID&id=$ID&item=File"
</td></tr>
</table>
</p>
<p>カスタマイズ可能な項目
' Call cmLink "追加する" "write20.png" "$Server?page=SystemCustomerPersonItemAdd&wid=$WID&id=$ID"
' If $Customer.Person.Items.Count > 1
'  $NoOrder = 0
' Else
'  $NoOrder = 1
' EndIf
' Call cmLink "順番変更" "order20.png" "$Server?page=SystemCustomerPersonItemOrder&wid=$WID&id=$ID" $NoOrder
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="300" nowrap>項目</th><th width="300" nowrap>操作</th></tr>
' For Each $Item in $Customer.Person.Items
<tr><td nowrap>$Item.Name
'  If $Item.Necessary
<font color="#ff0000">*</font>
'  EndIf
'  If $Item.Access
<img src="$IMG_PATH/access20.png">
'  EndIf
</td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=SystemCustomerPersonItemModify&wid=$WID&id=$ID&iid=$Item.ID"
'  Call cmLink "削除する" "delete20.png" "$Server?page=SystemCustomerPersonItemDelete&wid=$WID&id=$ID&iid=$Item.ID"
'  Call cmLink "アクセス権" "access20.png" "$Server?page=SystemCustomerPersonItemAccess&wid=$WID&id=$ID&iid=$Item.ID"
</td></tr>
' Next
</table>
</p>
<p>
<font color="#ff0000">*</font> <font size="-1">は必須指定されている項目です。</font>
<img src="$IMG_PATH/access20.png" style="vertical-align:middle;"> <font size="-1">はアクセス権が設定されている項目です。</font>
</p>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>