' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageCustomerViewConfig&wid=$WID&id=$ID
'  $Command.Customer.SetView
'  Exit
' EndIf
<!--#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=ManageCustomerViewConfig&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "表示の設定"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageCustomerViewSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>$WorkSpace.Customer.Nameの表示の情報を設定してください。</p>
<ul>
<p>
' $Rows = $Customer.Rows
' Init $Rows = 20
<li>一覧画面で表示する件数</li>
<select name="Rows">
<option value="1" $Rows.Selected_1>1
' Options $Rows in 10 to 100 step 10
</select>
</p>
<p>
<li>一覧画面で表示する項目</li>
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="active"><th colspan="3" nowrap>
' Call cmImage "company20.png"
会社の一覧画面</th></tr>
<tr class="header"><th nowrap>表示</th><th width="150" nowrap>項目名</th><th nowrap>表示文字数</th></tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>会社名</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "CompanyGroup" "" $Customer.Company.Group.View 1
</td><td>会社グループ</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "CompanyCode" "" $Customer.Company.Code.View 1
</td><td>会社コード</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "CompanyYomi" "" $Customer.Company.Yomi.View 1
</td><td>会社よみ</td><td>
' Call SelectLength "CompanyYomiLength" $Customer.Company.Yomi.Length
</td></tr>
<tr><td align="center">
' Call formCheckBox "CompanyTel" "" $Customer.Company.Tel.View 1
</td><td>電話番号</td><td>(全て)</td></tr>
' For Each $Item in $Customer.Company.Items
<tr><td align="center">
'  Call formCheckBox $Item.ID "" $Item.View 1
</td><td>$Item.Name</td><td>
'  If $Item.Type = Text
'   Call SelectLength "Length$Item.ID" $Item.Length
'  Else
(全て)
'  EndIf
</td></tr>
' Next
<tr><td align="center">
' Call formCheckBox "CompanyUser" "" $Customer.Company.User.View 1
</td><td>担当</td><td>
' Call SelectLength "CompanyUserLength" $Customer.Company.User.Length
</td></tr>
<tr><td align="center">
' Call formCheckBox "Member" "" $Customer.Company.Member.View 1
</td><td>所属する顧客</td><td>
' Call SelectLength "MemberLength" $Customer.Company.Member.Length
</td></tr>
</table>
</td><td width="20"><br></td><td valign="top" nowrap>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="active"><th colspan="3" nowrap>
' Call cmImage "person20.png"
顧客の一覧画面</th></tr>
<tr class="header"><th nowrap>表示</th><th width="150" nowrap>項目名</th><th nowrap>表示文字数</th></tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>名前</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "CompanyName" "" $Customer.Person.Company.View 1
</td><td>会社名</td><td>(全て)</td></tr>
' If ! $Customer.Person.Section.Disable
<tr><td align="center">
'  Call formCheckBox "Section" "" $Customer.Person.Section.View 1
</td><td>部課</td><td>(全て)</td></tr>
' EndIf
<tr><td align="center">
' Call formCheckBox "Group" "" $Customer.Person.Group.View 1
</td><td>顧客グループ</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "Code" "" $Customer.Person.Code.View 1
</td><td>顧客コード</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "Yomi" "" $Customer.Person.Yomi.View 1
</td><td>よみ</td><td>
' Call SelectLength "YomiLength" $Customer.Person.Yomi.Length
</td></tr>
<tr><td align="center">
' Call formCheckBox "Tel" "" $Customer.Person.Tel.View 1
</td><td>電話番号</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "Mail" "" $Customer.Person.Mail.View 1
</td><td>メールアドレス</td><td>(全て)</td></tr>
<tr><td align="center">
' Call formCheckBox "Stop" "" $Customer.Person.Post.View 1
</td><td>配信停止</td><td>(全て)</td></tr>
' For Each $Item in $Customer.Person.Items
<tr><td align="center">
'  Call formCheckBox $Item.ID "" $Item.View 1
</td><td>$Item.Name</td><td>
'  If $Item.Type = Text
'   Call SelectLength "Length$Item.ID" $Item.Length
'  Else
(全て)
'  EndIf
</td></tr>
' Next
<tr><td align="center">
' Call formCheckBox "User" "" $Customer.Person.User.View 1
</td><td>担当</td><td>
' Call SelectLength "UserLength" $Customer.Person.User.Length
</td></tr>
</table>
</td></tr>
</table>
</blockquote>
</p>
<p>
<li>詳細画面での履歴件数表示</li>
<div style="text-indent:20;">
' Call formCheckBox "ViewHistory" "履歴の件数を表示する" $Customer.ViewHistory 1 "ViewHistory"
</div>
</p>
' If $Customer.NoCompany
'  $Company = 0
' Else
'  $Company = 1
' EndIf
<p>
<li>顧客の登録時</li>
<div style="text-indent:20;">
' Call formCheckBox "Company" "会社選択ダイアログを表示する" $Company 1 "NoCompany"
</div>
</p>
</ul>
' Call formCommit "変更する"
</form>
' Call cmChildFooter $BackURL "表示の設定へ"
</body>
</html>