' $System.Access Customer
' Set $FormSystem = $WorkSpace.Forms.$BS
' $AppName = $FormSystem.Name
' Set $personalCustomer = $Command.Customer.GetPersonalCustomer $WID
' If $Open
'  $personalCustomer.HideClickSearch = ""
' Elif $Close
'  $personalCustomer.HideClickSearch = 1
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' 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
<meta http-equiv="Refresh" content="0;URL=$Server?page=FormSelectCustomer&wid=$WID&bs=$BS&ST=$ST&sdb=$SDB&head=$Head&cgid=$CGID&qid=$QID">
'   EndIf
'  EndIf
' EndIf
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryCustomerIndex.html"-->
<!--#include file="LibraryNavigation.html"-->
' $CaptionTitle = "顧客の選択"
' Call cmHead $CaptionTitle
' Call cmLoadJavaScript "window"
<script language="JavaScript" type="text/javascript"><!--
function onLoad()
{
' If $OnSearch
	if ( IsAliveWindow( window.parent.opener ) )
	{
		var openerform = window.parent.opener.document.forms['FormDoc'];
		if( openerform )
		{
			document.forms['SearchCustomer'].elements['Text'].value = openerform.elements['Text'].value;
		}
	}
	document.forms['SearchCustomer'].submit();
' Else
	window.parent.focus();
' EndIf
}
function onSelect( nCurCID )
{
	if ( IsAliveWindow( window.parent.opener ) )
	{
		var openerform = window.parent.opener.document.forms['FormDoc'];
		if( openerform )
		{
			openerform.elements['Mode'].value = "Select";
			openerform.elements['CID'].value = nCurCID;
' Set $FormProfile = $Command.Form.GetFormTop $BS
' For Each $Item in $FormProfile.Items
'  If ( $Item.Type = "User" ) and $Item.Multiple
			var u = openerform.elements['Item$Item.ID'].options;
			for( i = 0 ; i < u.length - 1 ; i ++ )
			{
				u[i].selected = true ;
			}
			u[i].selected = false;
'  EndIf
' Next
			openerform.submit();
		}
	}
	window.close();
}
//-->
</script>
</head>
<body onLoad="onLoad();">
' Call cmChildHeader $CaptionTitle
''
' If $OnSearch
<form name="SearchCustomer" method="get" action="$Server">
<input type="hidden" name="Page" value="FormSelectCustomer">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="SearchItem" value="$SearchItem">
<input type="hidden" name="Text" value="">
<p>顧客を検索しています。しばらくお待ちください。</p>
</form>
'  Call cmChildFooter
</body>
</html>
'  Exit
' EndIf
''
' If $Progress
'  Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmChildFooter
</body>
</html>
'  Exit
' EndIf
''
<form method="get" action="$Server">
<input type="hidden" name="Page" value="FormSelectCustomer">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
''
' Sub commonColumn
'  Call menuColumn
' EndSub
''
' Sub menuColumn
<table class="menuColumn"><tr>\\
' If $WorkSpace.Customer.IsAccessCreate
<td width="1%" nowrap>\\
'  Call cmLinkButton "会社を登録する" "btn_company20.png" "$Server?page=CustomerSetAddCompany&wid=$WID&bs=$BS&select=1"
'  Call cmLinkButton "顧客を登録する" "btn_person20.png" "$Server?page=CustomerSetAddPerson&wid=$WID&bs=$BS&select=1"
</td>
' EndIf
' Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
' Init $SearchItem = $PersonalCustomer.SearchItem
<td align="right" nowrap>顧客検索\\
<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
''
' $System.SetParameter Arg "&bs=$BS"
' $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
'  If $rs.Prev and $rs.Next
'  EndIf
''
'  Sub search_mainColumn
'   If $rs.Count
<div class="desc">$AppNameに追加する顧客を選択してください。</div>
'   EndIf
<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></tr>
</table>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  If ! $rs.Count
<tr><td nowrap>該当する顧客が見つかりませんでした。</td></tr>
'  Else
'  $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 underline"><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
'    $Image = "person20.png"
'   Else
'    $Image = "company20.png"
'   EndIf
'   Call cmLink $Value $Image "javascript:onSelect( $curCID );"
</td></tr>
'  Next
<tr>
'   $Encode = $Command.String.Encode $Text
'   Call Navigation $rs "$Arg&searchitem=$SearchItem&text=$Encode" $Rows
</tr>
'  EndIf
</table>
'  EndSub
'  Call layout_view "" "" 0 search_mainColumn commonColumn
' Else
'  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
'  $System.SetParameter Arg "$Arg&cgid=$CGID"
<input type="hidden" name="CGID" value="$CGID">
'  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=$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 mainColumn
'  $System.SetParameter Arg "$Arg&index=$Index"
'  If $QID
'   $System.SetParameter Arg "$Arg&qid=$QID&st=$ST"
'  EndIf
 <div class="desc">$AppNameに追加する顧客を選択してください。</div>
 <table class="active" width="100%" border="0" cellspacing="0" cellpadding="4">
'' <!---------------------絞込----------------------------->
 <tr><td valign="top" nowrap>絞込
 <select name="QID" onChange="Text.value='';this.form.submit();">
 <option value="0">(全て)
'  Options $QID in $Queries
 </select>
 </td></tr>
 </table>
'' <!---------------------一覧の表示----------------------------->
 <table width="100%" border="1" cellspacing="0" cellpadding="4" bgcolor="#ffffff">
'  Call customerTitle $Target $Items
'  $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
'  For Each $cd in $ViewIndex
'   $curCID = $cd.OID
'   $curDBID = $cd.DBID
'   Inc $RowNum
'   Call customerRow $cd $Items $Target "javascript:onSelect( $curCID );" "" 0 $RowNum
'  Next
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
'  Call Navigation $ViewIndex $Arg $Rows
</tr>
</table>
'  EndSub
'  Call layout_list "" "" 0 mainColumn "" "" 1 sideColumn commonColumn
' EndIf
</form>
' Call cmChildFooter
</body>
</html>