' $System.Access Customer
' Set $personalCustomer = $Command.Customer.GetPersonalCustomer $WID
' If $Open
'  $personalCustomer.HideClickSearch = ""
' Elif $Close
'  $personalCustomer.HideClickSearch = 1
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $System.SetParameter FirstCGID "FirstCGID$WID"
' Init $CGID = $Login.$FirstCGID
' If ( $CGID = -1 ) or ( $CGID = -3 )
'  $Target = "Company"
' Elif ( $CGID = -2 ) or ( ! $CGID )
'  $Target = "Person"
' Elif $Customer.Company.Groups.$CGID
'  $Target = "Company"
' Else
'  $Target = "Person"
'  If ! $Customer.Person.Groups.$CGID
'   $CGID = 0
'  EndIf
' EndIf
' If $QID
'  Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
'  If ( ! $Search ) or $Reset
'   $ST = $Command.Customer.SetSearchQuery $WID $CGID $QID
'  EndIf
'  $Progress = $Command.Customer.Search $WID $ST $Head
'  If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=CustomerIndex&wid=$WID&vid=$VID&ST=$ST&head=$Head&cgid=$CGID&qid=$QID">
'  EndIf
' EndIf
' $CaptionTitle = $WorkSpace.Customer.Name
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmHeader $CaptionTitle
''
' If $Progress
'  Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmFooter
</body>
</html>
'  Exit
' EndIf
''
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryCustomerIndex.html"-->
<!--#include file="LibraryNavigation.html"-->
' $Rows = $Customer.Rows
' Init $Rows = 20
' Set $Queries = $Customer.$Target.Queries
' Set $Items = $Customer.$Target.Items
' If $QID
'  Set $rs = $Command.Customer.GetSearchResult $WID $ST $Rows $Head
'  Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
'  $Total = $Search.Count
' Else
'  If $CGID = -1
'   Set $Customers = $CYomiIndex.Company.Customers
'  Elif ( $CGID = -2 ) or ( $CGID = -3 )
'   $LID = $Login.ID
'   Set $Customers = $CYomiIndex.$Target.Users.$LID.Customers
'  Elif $CGID
'   Set $Customers = $CYomiIndex.$Target.Groups.$CGID.Customers
'  Else
'   Set $Customers = $CYomiIndex.Person.Customers
'  EndIf
'  Set $rs = $Customers.RowSet
'  $Total = $Customers.Count
' EndIf
' Init $Total = 0
' If $Index
'  $Decode = $Command.String.Decode $Index
'  $rs.Initial = $Decode
' EndIf
' If $HID
'  $rs.Head = $Head
'  $rs.HID = $HID
' EndIf
' $System.SetParameter Arg "$Arg&cgid=$CGID"
''
<form method="get" action="$Server" onSubmit="if( ! Text.value ){ return false; }">
<input type="hidden" name="Page" value="CustomerSearchIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
''
' Sub commonColumn
<table class="menuColumn">
<tr><td width="1%" nowrap>
' If $WorkSpace.Customer.IsAccessCreate
'  Call cmLinkButton "会社を登録する" "btn_company20.png" "$Server?page=CustomerAddCompany&wid=$WID&cgid=$CGID"
'  Call cmLinkButton "顧客を登録する" "btn_person20.png" "$Server?page=CustomerAddPerson&wid=$WID&cgid=$CGID"
' EndIf
' If $WorkSpace.Customer.IsAccessFile
'  Call cmLinkButton "ファイル入出力" "btn_file20.png" "$Server?page=CustomerFile&wid=$WID&vid=$VID"
' EndIf
</td>
<td align="right" nowrap>
' Call tbSearchCustomer
</td></tr>
</table>
' EndSub
''
' Sub sideColumn
'' <!---------------------索引----------------------------->
' If $Target = "Company"
'  Call customerIndex "会社よみ" $Index $Decode $Arg
' Else
'  Call customerIndex "よみ" $Index $Decode $Arg
' EndIf
'' <!---------------------カテゴリ表示----------------------------->
   <table class="category">
    <tr><td><hr></td></tr>
    <tr><td nowrap>\\
' If $CGID = -1
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmLink "会社一覧" "company20.png" "$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=-1"
</div></td></tr>
    <tr><td nowrap>\\
' If $CGID = -3
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink "(担当)" "category20.png" "$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=-3" "" "" "" "" "" "icontext"
</div></td></tr>
' For Each $cg in $Customer.Company.Groups
    <tr><td nowrap>\\
'  If $CGID = $cg.ID
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
'   Call cmImage "spacer.gif" "" "" 20 20
'   Call cmLink $cg.Name "category20.png" "$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=$cg.ID" "" "" "" "" "" "icontext"
</div></td></tr>
' Next
    <tr><td nowrap>\\
' If ! $CGID
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmLink "顧客一覧" "person20.png" "$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=0" "" "" "" "" "" "icontext"
</div></td></tr>
    <tr><td nowrap>\\
' If $CGID = -2
<div class="category-item selected">\\
' Else
<div class="category-item">\\
' EndIf
' Call cmImage "spacer.gif" "" "" 20 20
' Call cmLink "(担当)" "category20.png" "$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=-2" "" "" "" "" "" "icontext"
</div></td></tr>
' For Each $cg in $Customer.Person.Groups
    <tr><td nowrap>\\
'  If $CGID = $cg.ID
<div class="category-item selected">\\
' Else
<div class="category-item">\\
'  EndIf
'   Call cmImage "spacer.gif" "" "" 20 20
'   Call cmLink $cg.Name "category20.png" "$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=$cg.ID" "" "" "" "" "" "icontext"
</div></td></tr>
' Next
    <tr><td><hr></td></tr>
    <tr><td><br></td></tr>
 </table>
'  Call categoryJS
' EndSub
''
''
' Sub mainColumn
'  $System.SetParameter Arg "$Arg&index=$Index"
'  If $QID
'   $System.SetParameter Arg "$Arg&qid=$QID&st=$ST"
'  EndIf
'  $ViewIndex.WID = $WID
'  If $Target = "Company"
'   If $Customer.Company.Member.View
'    $ViewIndex.InitPersonsName = 1
'   EndIf
'  Else
'   If $Customer.Person.Company.View
'    $ViewIndex.InitCompany = 1
'   EndIf
'  EndIf
'  $rs.Rows = $Rows
'  For Each $c in $rs
'   Set $v = $ViewIndex.Add
'   If $QID
'    $v.OID = $c.OID
'   Else
'    $v.OID = $c.CID
'   EndIf
'   $v.DBID = $c.DBID
'  Next
'  $ViewIndex.Prev = $rs.Prev
'  $ViewIndex.PID = $rs.PID
'  $ViewIndex.Next = $rs.Next
'  $ViewIndex.NID = $rs.NID
'  $Command.Customer.CloseIndexDatabase
'  $RowNum = 0
'  Call operation "Head"
'' <!---------------------一覧の表示----------------------------->
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call customerTitle $Target $Items
'  If $ViewIndex.Count == 0
</table>
<div class="mailindex-separator">
'   If ! $Head
データはありません。
'   EndIf
</div>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Else
'   For Each $cd in $ViewIndex
'    $CID = $cd.OID
'    $DBID = $cd.DBID
'    Inc $RowNum
'    Call customerRow $cd $Items $Target "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID&head=$Head&hid=$HID&wci=$Login.ID$$Arg" $curCID 0 $RowNum
'   Next
'  EndIf
'  Call customerTitle $Target $Items
</table>
'  Call operation "Tail"
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 1 sideColumn commonColumn
</form>
' If $VID
'  Call cmChildFooter
' Else
'  $BS = -2
'  Call cmFooter
' EndIf
</body>
</html>
''
' Sub operation $argPos
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="active">\\
'  If $argPos = "Head"
<td width="1%" nowrap><span class="address-filter">絞込</span>\\
<select name="QID" onChange="var i = QID.selectedIndex; location.href='$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=$CGID&qid=' + QID.options[i].value;">
<option value="0">(全て)
' Options $QID in $Queries
</select>
' If $QID
'  Call cmButton "再実行" "location.href='$Server?page=CustomerIndex&wid=$WID&vid=$VID&cgid=$CGID&qid=$QID';"
' EndIf
' If ! $Index
 (全$Total件)
' EndIf
</td>
' EndIf
' Call Navigation $ViewIndex $Arg $Rows
</tr></table>
' EndSub