''<!------------------------------------------------------------------
''  customerIndex
''  顧客の索引
''  構文：Call customerIndex <索引の種別見出し> <現在の頭出し文字列> <デコードした頭出し文字列> <保持するCGI引数>
''------------------------------------------------------------------->
' Sub customerIndex $sciCaption $sciIndex $sciText $sciArg $sciJS
'  Set $personalCustomer = $Command.Customer.GetPersonalCustomer $WID
<script language="JavaScript" type="text/javascript"><!--
'  If ! $personalCustomer.HideClickSearch
function onCS( ch1, ch2, ch3 )
{
  var url;
  url = "$Server?page=$Page&wid=$WID&vid=$VID$$_sciArg&index=$_sciIndex" + '%' + ch1;
  if( ch2 != '' )
  {
    url = url + '%' + ch2;
  }
  if( ch3 != '' )
  {
    url = url + '%' + ch3;
  }
'   If $sciJS
  $_sciJS;
'   EndIf
  location.href=url;
}
'   If $sciText
'    $sciPrevText = $Command.String.Chop $sciText
'    $sciPrevIndex = $Command.String.Encode $sciPrevText
function onBack()
{
  var url = '$Server?page=$Page&wid=$WID&vid=$VID$$_sciArg&index=$_sciPrevIndex';
'   If $sciJS
  $_sciJS;
'   EndIf
  location.href=url;
}
'   EndIf
function onClose()
{
  var url;
  url = '$Server?page=$Page&wid=$WID&vid=$VID&close=1$_sciArg';
'   If $sciJS
  $_sciJS;
'   EndIf
  location.href=url;
}
'  Else
function onOpen()
{
  var url;
  url = '$Server?page=$Page&wid=$WID&vid=$VID&open=1$_sciArg';
'   If $sciJS
  $_sciJS;
'   EndIf
  location.href=url;
}
'  EndIf
-->
</script>
 <div class="clicksearch-toggle-button">
'  If $personalCustomer.HideClickSearch
'   Call cmLink "クリック検索" "info_open.png" "javascript:onOpen();" 0 0 "開く"
'  Else
'   Call cmLink "クリック検索" "info_close.png" "javascript:onClose();" 0 0 "閉じる"
'  EndIf
 </div>
'  If ! $personalCustomer.HideClickSearch
 <div class="clicksearch-function">
'   If $sciText
  <div class="clicksearch-text">$sciText</div>
'    Call cmLinkButton "" "backspace.png" "" 0 0 0 "" "onBack();"
'   Else
  <span class="fontSmall">「$sciCaption」で検索をします</span>
'   EndIf
 </div>
 <div class="clicksearch">
 <table class="clicksearch-table">
  <tr><td>\\
'   Call cmLinkButton "゛" "" "javascript:onCS( 'E3', '82', '99' );" 0 0 0 "" "" "clicksearch-button"
</td><td><br></td><td>\\
'   Call cmLinkButton "゜" "" "javascript:onCS( 'E3', '82', '9A' );" 0 0 0 "" "" "clicksearch-button"
</td><td><br></td><td>\\
'   Call cmLinkButton "ー" "" "javascript:onCS( 'E3', '83', 'BC' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
 <tr><td>\\
'   Call cmLinkButton "あ" "" "javascript:onCS( 'E3', '81', '82' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "い" "" "javascript:onCS( 'E3', '81', '84' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "う" "" "javascript:onCS( 'E3', '81', '86' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "え" "" "javascript:onCS( 'E3', '81', '88' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "お" "" "javascript:onCS( 'E3', '81', '8A' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "か" "" "javascript:onCS( 'E3', '81', '8B' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "き" "" "javascript:onCS( 'E3', '81', '8D' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "く" "" "javascript:onCS( 'E3', '81', '8F' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "け" "" "javascript:onCS( 'E3', '81', '91' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "こ" "" "javascript:onCS( 'E3', '81', '93' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "さ" "" "javascript:onCS( 'E3', '81', '95' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "し" "" "javascript:onCS( 'E3', '81', '97' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "す" "" "javascript:onCS( 'E3', '81', '99' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "せ" "" "javascript:onCS( 'E3', '81', '9B' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "そ" "" "javascript:onCS( 'E3', '81', '9D' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "た" "" "javascript:onCS( 'E3', '81', '9F' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "ち" "" "javascript:onCS( 'E3', '81', 'A1' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "つ" "" "javascript:onCS( 'E3', '81', 'A4' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "て" "" "javascript:onCS( 'E3', '81', 'A6' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "と" "" "javascript:onCS( 'E3', '81', 'A8' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "な" "" "javascript:onCS( 'E3', '81', 'AA' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "に" "" "javascript:onCS( 'E3', '81', 'AB' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "ぬ" "" "javascript:onCS( 'E3', '81', 'AC' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "ね" "" "javascript:onCS( 'E3', '81', 'AD' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "の" "" "javascript:onCS( 'E3', '81', 'AE' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "は" "" "javascript:onCS( 'E3', '81', 'AF' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "ひ" "" "javascript:onCS( 'E3', '81', 'B2' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "ふ" "" "javascript:onCS( 'E3', '81', 'B5' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "へ" "" "javascript:onCS( 'E3', '81', 'B8' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "ほ" "" "javascript:onCS( 'E3', '81', 'BB' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "ま" "" "javascript:onCS( 'E3', '81', 'BE' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "み" "" "javascript:onCS( 'E3', '81', 'BF' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "む" "" "javascript:onCS( 'E3', '82', '80' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "め" "" "javascript:onCS( 'E3', '82', '81' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "も" "" "javascript:onCS( 'E3', '82', '82' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "や" "" "javascript:onCS( 'E3', '82', '84' );" 0 0 0 "" "" "clicksearch-button"
</td><td><br></td><td>\\
'   Call cmLinkButton "ゆ" "" "javascript:onCS( 'E3', '82', '86' );" 0 0 0 "" "" "clicksearch-button"
</td><td><br></td><td>\\
'   Call cmLinkButton "よ" "" "javascript:onCS( 'E3', '82', '88' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "ら" "" "javascript:onCS( 'E3', '82', '89' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "り" "" "javascript:onCS( 'E3', '82', '8A' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "る" "" "javascript:onCS( 'E3', '82', '8B' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "れ" "" "javascript:onCS( 'E3', '82', '8C' );" 0 0 0 "" "" "clicksearch-button"
</td><td>\\
'   Call cmLinkButton "ろ" "" "javascript:onCS( 'E3', '82', '8D' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
  <tr><td>\\
'   Call cmLinkButton "わ" "" "javascript:onCS( 'E3', '82', '8F' );" 0 0 0 "" "" "clicksearch-button"
</td><td><br></td><td>\\
'   Call cmLinkButton "を" "" "javascript:onCS( 'E3', '82', '92' );" 0 0 0 "" "" "clicksearch-button"
</td><td><br></td><td>\\
'   Call cmLinkButton "ん" "" "javascript:onCS( 'E3', '82', '93' );" 0 0 0 "" "" "clicksearch-button"
</td></tr>
 </table>
 </div>
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  customerTitle
''  顧客一覧の表の見出し
''  構文：Call customerTitle
''------------------------------------------------------------------->
' Sub customerTitle $sctTarget $sctItems $sctCheck $sctOnCheck
<!--#include file="LibraryCommon.html"-->
<tr class="table-header">
'  If $sctCheck
<td width="1%" align="center" nowrap>
'   If $sctOnCheck
<a href="javascript:$_sctOnCheck">\\
' Call cmImage "btn_check20.png" "クリックすると全てをチェックできます" "" 20 20
</a>
'   Else
' Call cmImage "btn_check20.png" "" "" 20 20
'   EndIf
</td>
'  EndIf
'  If $sctTarget = "Company"
<td nowrap>会社名</td>
'   If $Customer.Company.Group.View
<td nowrap>会社グループ</td>
'   EndIf
'   If $Customer.Company.Code.View
<td nowrap>会社コード</td>
'   EndIf
'   If $Customer.Company.Yomi.View
<td nowrap>会社よみ</td>
'   EndIf
'   If $Customer.Company.Tel.View
<td nowrap>電話番号</td>
'   EndIf
'  Else
<td nowrap>名前</td>
'   If $Customer.Person.Company.View
<td nowrap>会社名</td>
'   EndIf
'   If ( ! $Customer.Person.Section.Disable ) and $Customer.Person.Section.View
<td nowrap>部課名</td>
'   EndIf
'   If $Customer.Person.Group.View
<td nowrap>顧客グループ</td>
'   EndIf
'   If $Customer.Person.Code.View
<td nowrap>顧客コード</td>
'   EndIf
'   If $Customer.Person.Yomi.View
<td nowrap>よみ</td>
'   EndIf
'   If $Customer.Person.Tel.View
<td nowrap>電話番号</td>
'   EndIf
'   If $Customer.Person.Mail.View
<td nowrap>メールアドレス</td>
'   EndIf
'   If $Customer.Person.Post.View
<td nowrap>配信停止</td>
'   EndIf
'  EndIf
'  For Each $sctItem in $sctItems
'   $sctAccess = $Command.Customer.IsAccessItem $sctItem
'   If ! $sctAccess
'    Continue
'   EndIf
'   If $sctItem.View
<td nowrap>$sctItem.Name<br></td>
'   EndIf
'  Next
'  If $Customer.$sctTarget.User.View
<td nowrap>担当</td>
'  EndIf
'  If $sctTarget = "Company"
'   If $Customer.Company.Member.View
<td nowrap>所属する顧客</td>
'   EndIf
'  EndIf
</tr>
' EndSub
''
''<!------------------------------------------------------------------
''  ViewField
''  フィールドの出力
''  文字数に制限がある場合、切って表示する
''  構文：Call ViewField <元の文字列> <文字数制限> <URL(リンクの場合)> <画像(リンクの場合)> <折り返しなし>
''------------------------------------------------------------------->
' Sub ViewField $vfSrc $vfLength $vfURL $vfImage $vfNowrap
'  If $vfLength
'   $vfValue = $Command.String.StrHead $vfSrc $vfLength
'  Else
'   $vfValue = $vfSrc
'  EndIf
'  If $vfNowrap
<td nowrap>
'  Else
<td>
'  EndIf
'  If $vfURL
'   Call cmLink $vfValue $vfImage $vfURL
'  ElIf $vfImage
<span class="icontext">
'   Call cmImage $vfImage
'   View $vfValue 1 0 1
</span>
'  Else
'   View $vfValue 1 0 1
'  EndIf
</td>
' EndSub
''
''<!------------------------------------------------------------------
''  ViewFieldValues
''  フィールドの出力(配列)
''  文字数に制限がある場合、切って表示する
''  構文：Call ViewFieldValues <文字列の配列> <文字数制限>
''------------------------------------------------------------------->
' Sub ViewFieldValues $vfValues $vfLength
'  $vfStr = ""
'  For Each $vfValue in $vfValues
'   If $vfStr
'    $System.SetParameter vfStr "$vfStr , $vfValue"
'   Else
'    $vfStr = $vfValue
'   EndIf
'  Next
'  Call ViewField $vfStr $vfLength
' EndSub
''
''<!------------------------------------------------------------------
''  ViewMailFieldValues
''  メールフィールドの出力(配列)
''  構文：Call ViewMailFieldValues <メールアドレスの配列>
''------------------------------------------------------------------->
' Sub ViewMailFieldValues $vfValues
<td>\\
'  var $vfFirst = 1
'  For Each $vfValue in $vfValues
'   If $vfFirst
'    $vfFirst = 0
'   Else
 , \\
'   EndIf
$_vfValue.MailTo\\
'  Next
</td>
' EndSub
''
''<!------------------------------------------------------------------
''  customerRow
''  レコードの出力
''  構文：Call customerRow <レコードデータ> <項目一覧> <カテゴリID> <リンククリック時のURL> <カレント顧客ID> <チェックボックスを出すなら1> <出力行数カウント>
''------------------------------------------------------------------->
' Sub customerRow $scrCustomer $scrItems $scrTarget $scrURL $scrCurCID $scrCheck $scrRowNum
'  If $scrCurCID = $scrCustomer.OID
'   $RowClass = "currentRow"
'  Else
'   $Remainder = $Command.Math.Modulus $scrRowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
'  EndIf
<tr class="$RowClass customerTR">
'  If $scrCheck
<td width="1%" align="center">\\
'   Call formCheckBox "CID" "" "" "$scrCustomer.OID"
</td>
'  EndIf
'  If $scrTarget = "Company"
'   Call ViewField $scrCustomer.Name 0 $scrURL "company20.png" 1
'  Else
'   Call ViewField $scrCustomer.Name 0 $scrURL "person20.png" 1
'   If $Customer.Person.Company.View
'    If $scrCustomer.CompanyID = -1
<td><br></td>
'    Else
'     Set $scrCD = $scrCustomer.Company
'     Call ViewField $scrCD.Name 0 "" "company20.png"
'    EndIf
'   EndIf
'   If ( ! $Customer.Person.Section.Disable ) and $Customer.Person.Section.View
'    $scrSectionID = $scrCustomer.SectionID
'    Set $scrSection = $scrCustomer.Company.Sections.$scrSectionID
'    If $scrSection
'     Call ViewField $scrSection.Name 0 "" "section20.png"
'    Else
<td><br></td>
'    EndIf
'   EndIf
'  EndIf
'  If $Customer.$scrTarget.Group.View
'   $scrCGID = $scrCustomer.CGID
'   Call ViewField $Customer.$scrTarget.Groups.$scrCGID.Name
'  EndIf
'  If $Customer.$scrTarget.Code.View
'   Call ViewField $scrCustomer.Code
'  EndIf
'  If $Customer.$scrTarget.Yomi.View
'   Call ViewField $scrCustomer.Yomi $Customer.$scrTarget.Yomi.Length
'  EndIf
'  If $Customer.$scrTarget.Tel.View
'   Call ViewFieldValues $scrCustomer.Tels
'  EndIf
'  If $scrTarget = "Person"
'   If $Customer.Person.Mail.View
'    Call ViewMailFieldValues $scrCustomer.Mails
'   EndIf
'   If $Customer.Person.Post.View
<td>
'    If $scrCustomer.Stop
配信停止
'    EndIf
<br></td>
'   EndIf
'  EndIf
'  For Each $scrItem in $scrItems
'   $scrAccess = $Command.Customer.IsAccessItem $scrItem
'   If ! $scrAccess
'    Continue
'   EndIf
'   If $scrItem.View
'    $scrVIID = $scrItem.ID
'    If $scrItem.Type = "Date"
<td>
'     For Each $scrValue in $scrCustomer.Items.$scrVIID
$scrValue.Year/$scrValue.Month/$scrValue.Day
'      Exit
'     Next
<br></td>
'    Elif $scrItem.Type = "Text"
'     Call ViewFieldValues $scrCustomer.Items.$scrVIID $scrItem.Length
'    Else
'     Call ViewFieldValues $scrCustomer.Items.$scrVIID
'    EndIf
'   EndIf
'  Next
'  If $Customer.$scrTarget.User.View
'   $scrUsers = ""
'   For Each $scrUID in $scrCustomer.UIDs
'    Set $scrUser = $Users.$scrUID
'    If ! $scrUser
'     Continue
'    EndIf
'    If $scrUsers
'     $System.SetParameter scrUsers "$scrUsers , $scrUser.Name"
'    Else
'     $scrUsers = $scrUser.Name
'    EndIf
'   Next
'   Call ViewField $scrUsers $Customer.$scrTarget.User.Length
'  EndIf
'  If $scrTarget = "Company"
'   If $Customer.Company.Member.View
'    $scrStr = ""
'    For Each $scrPD in $scrCustomer.Persons
'     If $scrStr
'      $System.SetParameter scrStr "$scrStr , $scrPD.Name"
'     Else
'      $scrStr = $scrPD.Name
'     EndIf
'    Next
'    Call ViewField $scrStr $Customer.Company.Member.Length
'   EndIf
'  EndIf
</tr>
' EndSub