' $System.Access Customer
' If $System.IsPost
'  $Encode = $Command.String.Encode $Text
'  $System.Redirect $Server?page=$Page&wid=$WID&vid=$VID&searchItem=$SearchItem&text=$Encode
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryNavigation.html"-->
' $CaptionTitle = "検索結果の表示"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=CustomerIndex&wid=$WID&vid=$VID"
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Customer.Name
<form method="post" action="$Server?" style="margin:0px;">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<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"
'  Call cmLinkButton "顧客を登録する" "btn_person20.png" "$Server?page=CustomerAddPerson&wid=$WID"
' EndIf
</td><td align="right" nowrap>\\
' Call tbSearchCustomer $SearchItem $Text
</td></tr>\\
</table>
' EndSub
''
' Sub mainColumn
' If $Text
'  $Command.Customer.SetSearchItem $WID $SearchItem
'  If $SearchItem = "company"
'   Set $rs = $CNameIndex.CompanyIndex.RowSet
'   $rs.SearchText = $Text
'  Elif $SearchItem = "name"
'   Set $rs = $CNameIndex.NameIndex.RowSet
'   $rs.SearchText = $Text
'  Elif $SearchItem = "code"
'   Set $rs = $CCodeIndex.CodeIndex.RowSet
'   $rs.SearchText = $Text
'  Elif $SearchItem = "tel"
'   $NText = $Command.Customer.NormalizeTel $Text
'   If $NText
'    Set $rs = $CTelIndex.TelIndex.RowSet
'    $rs.SearchText = $NText
'   EndIf
'  Elif $SearchItem = "mail"
'   $NText = $Command.Customer.NormalizeMail $Text
'   If $NText
'    Set $rs = $CMailIndex.MailIndex.RowSet
'    $rs.SearchText = $NText
'   EndIf
'  EndIf
'  If $HID
'   $rs.Head = $Head
'   $rs.HID = $HID
'  EndIf
'  $Rows = $Customer.Rows
'  Init $Rows = 20
'  $rs.Rows = $Rows
'  If $rs.Prev and $rs.Next
'  EndIf
'  If ! $rs.Count
<div class="desc">該当するアドレスデータが見つかりませんでした。</div>
'  Else
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="active">\\
<td nowrap>$WorkSpace.Customer.Name$検索の結果表示</td>
'   $Encode = $Command.String.Encode $Text
'   $ViewIndex.WID = $WID
'   For Each $c in $rs
'    Set $v = $ViewIndex.Add
'    $v.OID = $c.CID
'    $v.DBID = $c.DBID
'   Next
'   $ViewIndex.Prev = $rs.Prev
'   $ViewIndex.PID = $rs.PID
'   $ViewIndex.Next = $rs.Next
'   $ViewIndex.NID = $rs.NID
'   Call Navigation $ViewIndex "&searchitem=$SearchItem&text=$Encode" $Rows
</tr>
</table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'   $Count = $rs.Count
'   $Command.Customer.CloseIndexDatabase
'   $RowNum = 0
'   For Each $cd in $ViewIndex
'    $CID = $cd.OID
'    $DBID = $cd.DBID
'    Inc $RowNum
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
<tr class="$RowClass underline"><td>\\
'    $Value = $cd.Name
'    If $cd.CompanyID
'     $Image = "person20.png"
'     If $cd.CompanyID != -1
'      $CompanyID = $cd.CompanyID
'      Set $company = $CIndex.Cards.$CompanyID
'      If $company
'       $System.SetParameter Value "$Value ($company.Name)"
'      EndIf
'     EndIf
'    Else
'     $Image = "company20.png"
'    EndIf
'    Call cmLink $Value $Image "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID"
</td></tr>
'   Next
</table>
'  EndIf
' EndIf
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL "アドレスデータの一覧へ"
' Else
'  $BS = -2
'  Call cmFooter $BackURL "アドレスデータの一覧へ"
' EndIf
</body>
</html>