' $System.Access Customer
' $Command.Mail.AccessModify $BS
' Set $personalCustomer = $Command.Customer.GetPersonalCustomer $WID
' If $Open
'  $personalCustomer.HideClickSearch = ""
' Elif $Close
'  $personalCustomer.HideClickSearch = 1
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $System.SetParameter Arg "&bs=$BS&mid=$MID&dbid=$DBID&type=$Type"
' If ! $Text
'  $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
'   If ! $Customer.Person.Groups.$CGID
'    $CGID = 0
'   EndIf
'   $Target = "Person"
'  EndIf
'  If $QID
'   Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
'   If ! $Search
'    $ST = $Command.Customer.SetSearchQuery $WID $CGID $QID
'   EndIf
'   $Progress = $Command.Customer.Search $WID $ST $Head
'   If $Progress
'    $URL = "$Server?page=MailSelectCustomer&wid=$WID&ST=$ST&head=$Head&cgid=$CGID&qid=$QID&tid=$TID$$_Arg"
<meta http-equiv="Refresh" content="0;URL=$URL">
'   EndIf
'  EndIf
' EndIf
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryCustomerIndex.html"-->
<!--#include file="LibraryNavigation.html"-->
' $CaptionTitle = "顧客の選択"
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmChildHeader $CaptionTitle
''
' If $Progress
'  Sub progressColumn
<p>現在、検索を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmChildFooter
</body>
</html>
'  Exit
' EndIf
''
' If ( $Type != "Received" ) and ( ! $TID )
'  Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
'  If $m.Customers.Count = 1
'   For Each $mc in $m.Customers
'    $TID = $mc.ID
'   Next
'  Else
'   Sub mainColumn1
<div class="desc">顧客の変更をする宛先を選択してください。</div>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'   Call titleRow1
'   $RowNum = 0
'   For Each $mc in $m.Customers
'    Inc $RowNum
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
<tr class="$RowClass"><td nowrap>
'    $ma = $System.GetAddressString $mc.Mail $mc.Name
'    Call cmLink $ma "write20.png" "$Server?page=MailSelectCustomer&wid=$WID&bs=$BS&tid=$mc.ID&mid=$MID&dbid=$DBID&type=$Type"
</td><td nowrap>
'    Set $c = $Command.Customer.GetCustomer $WID $mc.CID 0 $mc.CDBID
$c.Name<br>
</td></tr>
'   Next
'   Call titleRow1
</table>
'   EndSub
'   Sub titleRow1
<tr class="table-header"><td nowrap>宛先</td><td nowrap>顧客</td></tr>
'   EndSub
'   Call layout_list "" "" 0 mainColumn1 "" "" 0
'   Call cmChildFooter
</body>
</html>
'   Exit
'  EndIf
' EndIf
''
' Sub commonColumn
' $System.SetParameter Arg "$Arg&tid=$TID"
<form method="get" action="$Server">
<input type="hidden" name="Page" value="MailSelectCustomer">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="TID" value="$TID">
'  Call menuColumn
</form>
' EndSub
''
' $Rows = $Customer.Rows
' Init $Rows = 20
''
'' <!---------------------検索結果----------------------------->
' If $Text
'  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
'  $rs.Rows = $Rows
''
'  Sub search_mainColumn
'   If $rs.Prev and $rs.Next
'   EndIf
'   If ! $rs.Count
<div class="desc">該当する顧客が見つかりませんでした。</div>
<div class="desc">\\
'  Call cmButton "戻る" "location.href='$Server?page=$Page&wid=$WID$$Arg';" "backlink20.png"
</div>
'   Else
<div class="desc">メールの顧客を選択してください。</div>
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="active">\\
<td nowrap>検索結果\\
'  Call cmButton "クリアする" "location.href='$Server?page=$Page&wid=$WID$$Arg';"
</td>
'   $Encode = $Command.String.Encode $Text
'   Call Navigation $rs "$Arg&searchitem=$SearchItem&text=$Encode" $Rows
</tr>
</table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  $RowNum = 0
'  For Each $c in $rs
'   $curCID = $c.CID
'   $curDBID = $c.DBID
'   Set $cd = $Command.Customer.GetCustomer $WID $curCID 0 $curDBID
'   Inc $RowNum
'   $Remainder = $Command.Math.Modulus $RowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
<tr class="$RowClass"><td>\\
'   $Value = $cd.Name
'   If $cd.CompanyID
'    If $cd.CompanyID != -1
'     $CompanyID = $cd.CompanyID
'     Set $company = $CIndex.Cards.$CompanyID
'     If $company
'      $System.SetParameter Value "$Value ($company.Name)"
'     EndIf
'    EndIf
'    Call cmLink $Value "person20.png" "$Server?page=MailChangeCustomer&wid=$WID&cid=$curCID$$Arg"
'   Else
'    Call cmLink $Value "company20.png" "$Server?page=MailSelectPerson&wid=$WID&cid=$curCID$$Arg"
'   EndIf
</td></tr>
'  Next
</table>
'   EndIf
'  EndSub
' Call layout_list "" "" 0 search_mainColumn "" "" 0 "" commonColumn
' Call cmChildFooter
</body>
</html>
'  Exit
' EndIf
''
'' <!---------------------通常画面----------------------------->
'  Set $Queries = $Customer.$Target.Queries
'  Set $Items = $Customer.$Target.Items
'  If $QID
'   Set $rs = $Command.Customer.GetSearchResult $WID $ST $Rows $Head
'  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
'  EndIf
'  If $Index
'   $Decode = $Command.String.Decode $Index
'   $rs.Initial = $Decode
'  EndIf
'  If $HID
'   $rs.Head = $Head
'   $rs.HID = $HID
'  EndIf
''
' Sub normal_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=$Page&wid=$WID&cgid=-1$Arg" "" "" "" "" "" "icontext"
</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=$Page&wid=$WID&cgid=-3$Arg" "" "" "" "" "" "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=$Page&wid=$WID&cgid=$cg.ID$$Arg" "" "" "" "" "" "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=$Page&wid=$WID&cgid=0$Arg" "" "" "" "" "" "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=$Page&wid=$WID&cgid=-2$Arg" "" "" "" "" "" "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=$Page&wid=$WID&cgid=$cg.ID$$Arg" "" "" "" "" "" "icontext"
</div></td></tr>
'  Next
    <tr><td><hr></td></tr>
    <tr><td><br></td></tr>
 </table>
'  Call categoryJS
' EndSub
''
' Sub normal_mainColumn
<div class="desc">メールの顧客を選択してください。</div>
<form method="get" action="$Server">
<input type="hidden" name="Page" value="MailSelectCustomer">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="TID" value="$TID">
<input type="hidden" name="CGID" value="$CGID">
'  $System.SetParameter Arg "$Arg&cgid=$CGID"
'  $System.SetParameter Arg "$Arg&index=$Index"
'  If $QID
'   $System.SetParameter Arg "$Arg&qid=$QID&st=$ST"
'  EndIf
'' <!---------------------絞込----------------------------->
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="active">\\
<td nowrap>絞込\\
<select name="QID" onChange="Text.value='';this.form.submit();">
<option value="0">(全て)
'  Options $QID in $Queries
</select></td>
'  $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
'  $ViewIndex.Prev = $rs.Prev
'  $ViewIndex.PID = $rs.PID
'  $ViewIndex.Next = $rs.Next
'  $ViewIndex.NID = $rs.NID
'  Call Navigation $ViewIndex $Arg $Rows
</tr></table>
'' <!---------------------一覧の表示----------------------------->
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call customerTitle $Target $Items
'  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
'  $Command.Customer.CloseIndexDatabase
'  $RowNum = 0
'  For Each $cd in $ViewIndex
'   $curCID = $cd.OID
'   $curDBID = $cd.DBID
'   Inc $RowNum
'   If $cd.CompanyID
'    $System.SetParameter urlNext "$Server?page=MailChangeCustomer&wid=$WID&cid=$curCID$$Arg"
'   Else
'    $System.SetParameter urlNext "$Server?page=MailSelectPerson&wid=$WID&cid=$curCID$$Arg"
'   EndIf
'   Call customerRow $cd $Items $Target $urlNext "" 0 $RowNum
'  Next
'  Call customerTitle $Target $Items
</table>
   <table border="0" width="100%" cellspacing="0" cellpadding="2">
    <tr class="active">
'  Call Navigation $ViewIndex $Arg $Rows
    </tr>
   </table>
</form>
' EndSub
' Call layout_list "" "" 0 normal_mainColumn "" "" 1 normal_sideColumn commonColumn
' Call cmChildFooter
</body>
</html>
''
' Sub menuColumn
<table class="menuColumn"><tr>
' If $WorkSpace.Customer.IsAccessCreate
<td width="1%" nowrap>\\
'  Call cmLinkButton "会社を登録する" "btn_company20.png" "$Server?page=CustomerSetAddCompany&wid=$WID&select=1$Arg"
'  Call cmLinkButton "顧客を登録する" "btn_person20.png" "$Server?page=CustomerSetAddPerson&wid=$WID&select=1$Arg"
</td>\\
' EndIf
<td align="right" nowrap>\\
' Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
' Init $SearchItem = $PersonalCustomer.SearchItem
'   Call cmImage menu_sep.png "" "" "" "" "" "" "menusep"
$WorkSpace.Customer.Name$検索\\
<select name="SearchItem">
<option value="company" $SearchItem.Selected_company>会社名
<option value="name" $SearchItem.Selected_name>名前
<option value="tel" $SearchItem.Selected_tel>電話番号
<option value="code" $SearchItem.Selected_code>顧客コード
<option value="mail" $SearchItem.Selected_mail>メールアドレス
</select>
<div class="search">
'   Call formTextBox "Text" "$Text" 100 "" "" "" "searchText"
'   Call formSubmit "Search" "" "" "searchButton"
</div>
</td></tr>
</table>
' EndSub