' $System.Access Customer
' $Command.Customer.AccessModify $WID $CID
' Set $personalCustomer = $Command.Customer.GetPersonalCustomer $WID
' If $Open
'  $personalCustomer.HideClickSearch = ""
' Elif $Close
'  $personalCustomer.HideClickSearch = 1
' EndIf
' Set $c = $CIndex.Cards.$CID
' Init $DBID = $c.DBID
' $CName = $c.Name
' $CompanyID = $c.CompanyID
' If $cw
'  $System.SetParameter Arg "&BS=$BS&mid=$MID&dbid=$DBID&type=$Type&tid=$TID&cid=$CID&cw=1"
' Else
'  $System.SetParameter Arg "&bs=$BS&cid=$CID&dbid=$DBID&bpt=$BPT"
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If ! $Text
'  $System.SetParameter FirstCGID "FirstCGID$WID"
'  Init $CGID = $Login.$FirstCGID
'  If ( $CGID != -1 ) and ( $CGID != -3 )
'   If ! $Customer.Company.Groups.$CGID
'    $CGID = -1
'   EndIf
'  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=CustomerSelectCompany&wid=$WID&ST=$ST&head=$Head&cgid=$CGID&qid=$QID$$Arg">
'   EndIf
'  EndIf
' EndIf
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryCustomerIndex.html"-->
<!--#include file="LibraryNavigation.html"-->
' $CaptionTitle = "所属する会社の選択"
' Call cmHead $CaptionTitle
' If $Continue
' Call cmLoadJavaScript "window"
<script language="JavaScript" type="text/javascript"><!--
if ( IsAliveWindow( window.parent.opener ) )
{
'  If $MID
  window.parent.opener.location.reload();
'  Else
  var openerform = window.parent.opener.document.forms['FormDoc'];
  if( openerform )
  {
    openerform.elements['Mode'].value = "Select";
    openerform.elements['CID'].value = "$CID";
'   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();
  }
'  EndIf
}
//-->
</script>
' EndIf
</head>
<body>
' If $cw
'  Call cmChildHeader $CaptionTitle
' Else
'  $BS = "c"
'  $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID"
'  $System.SetParameter BackURL "$Server?page=CustomerView&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
'  Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $BackURL "顧客の詳細"
' EndIf
''
' If $Progress
'  Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  If $cw
'   Call cmChildFooter
'  Else
'   Call cmFooter
'  EndIf
</body>
</html>
'  Exit
' EndIf
''
' $Rows = $Customer.Rows
' Init $Rows = 20
' If $Text
'  $System.RemoveParameter QID
'  If $SearchItem = "code"
'   Set $rs = $CCodeIndex.CodeIndex.RowSet
'   $rs.SearchText = $Text
'   $rs.SearchCompany = 1
'   $rs.WID = $WID
''   $rs.Award = $WorkSpace.Award
'  Elif $SearchItem = "tel"
'   $NText = $Command.Customer.NormalizeTel $Text
'   If $NText
'    Set $rs = $CTelIndex.TelIndex.RowSet
'    $rs.SearchText = $NText
'    $rs.SearchCompany = 1
'    $rs.WID = $WID
''    $rs.Award = $WorkSpace.Award
'   EndIf
'  Else
'   Set $rs = $CNameIndex.CompanyIndex.RowSet
'   $rs.SearchText = $Text
'  EndIf
' Else
'  Set $Queries = $Customer.Company.Queries
'  Set $Items = $Customer.Company.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.Company.Users.$LID.Customers
'   Else
'    Set $Customers = $CYomiIndex.Company.Groups.$CGID.Customers
'   EndIf
'   Set $rs = $Customers.RowSet
'  EndIf
'  If $Index
'   $Decode = $Command.String.Decode $Index
'   $rs.Initial = $Decode
'  EndIf
' EndIf
' If $HID
'  $rs.Head = $Head
'  $rs.HID = $HID
' EndIf
' $System.SetParameter Arg "$Arg&cgid=$CGID"
''
<form method="get" action="$Server">
<input type="hidden" name="Page" value="CustomerSelectCompany">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="CID" value="$CID">
<input type="hidden" name="DBID" value="$DBID">
' If $cw
<input type="hidden" name="CW" value="$CW">
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="TID" value="$TID">
' Else
<input type="hidden" name="BPT" value="$BPT">
' EndIf
''
' Sub commonColumn
<table class="menuColumn"><tr>
' If $WorkSpace.Customer.IsAccessCreate
<td width="1%" nowrap>\\
'  If $cw
'   Call cmLinkButton "会社を登録する" "btn_company20.png" "$Server?page=CustomerSetAddCompany&wid=$WID&PersonID=$CID&PersonDB=$DBID$$Arg"
'  Else
'   Call cmLinkButton "会社を登録する" "btn_company20.png" "$Server?page=CustomerAddCompany&wid=$WID&PersonID=$CID&PersonDB=$DBID&bpt=$BPT"
'  EndIf
</td>
' EndIf
' If $CompanyID != -1
<td width="1%" nowrap>\\
'  Call cmLinkButton "会社に所属しない" "btn_stop20.png" "$Server?page=CustomerChangeCompany&wid=$WID&companyID=0$Arg"
</td>
' EndIf
<td align="right" nowrap>会社の検索\\
<select name="SearchItem">
<option value="company" $SearchItem.Selected_company>会社名
<option value="tel" $SearchItem.Selected_tel>電話番号
<option value="code" $SearchItem.Selected_code>会社コード
</select>
<div class="search">
'   Call formTextBox "Text" "$Text" 100 "" "" "" "searchText"
'   Call formSubmit "Search" "" "" "searchButton"
</div></td></tr></table>
' EndSub
''
'  Sub sideColumn
'   If $Text
'    Exit
'   EndIf
'' <!---------------------索引----------------------------->
'  Call customerIndex "会社よみ" $Index $Decode $Arg
'' <!---------------------カテゴリ表示----------------------------->
   <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><hr></td></tr>
    <tr><td><br></td></tr>
 </table>
'   Call categoryJS
'  EndSub
''
'  Sub mainColumn
<div class="desc">\\
'  Call cmImage "person20.png"
<b>$CName</b> さんの所属する会社を選択してください。</div>
' $ViewIndex.WID = $WID
' If $Customer.Company.Member.View
'  $ViewIndex.InitPersonsName = 1
' 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
' var $localArg = $Arg
' If $Text
'  var $EncodedText = $Command.String.Encode $Text
'  $System.SetParameter localArg "$localArg&searchitem=$SearchItem&text=$EncodedText"
' Else
'  $System.SetParameter localArg "$localArg&index=$Index"
'  If $QID
'   $System.SetParameter localArg "$localArg&qid=$QID&st=$ST"
'  EndIf
' EndIf
' Call operation "Head" $localArg
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Call customerTitle "Company" $Items
' $Command.Customer.CloseIndexDatabase
' $RowNum = 0
' For Each $cd in $ViewIndex
'  $CompanyID = $cd.OID
'  $CompanyDB = $cd.DBID
'  Inc $RowNum
'  Call customerRow $cd $Items "Company" "$Server?page=CustomerChangeCompany&wid=$WID&companyID=$CompanyID&companyDB=$CompanyDB$$Arg" "" 0 $RowNum
' Next
' Call customerTitle "Company" $Items
 </table>
' Call operation "Tail" $localArg
' EndSub
''
' If ! $Text
'  Call layout_list "" "" 0 mainColumn "" "" 1 sideColumn commonColumn
' Else
'  Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
' EndIf
</form>
' If $cw
'  Call cmChildFooter
' Else
'  $BS = -2
'  Call cmFooter $BackURL "顧客の詳細へ"
' EndIf
</body>
</html>
' Sub operation $argPos $argArg
'  If ( $argPos = "Head" ) or $ViewIndex.Count
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="active">\\
'   If $argPos = "Head"
<td nowrap>\\
'    If $Text
検索結果\\
'    $escBackURL = $Command.String.JSEncode "$Server?page=$Page&wid=$WID$$Arg"
'    Call cmButton "クリアする" "location.href='$escBackURL';"
'    Else
絞込\\
 <select name="QID" onChange="var i = this.selectedIndex; location.href='$Server?page=$Page&wid=$WID$$argArg.JSEscape&qid=' + this.options[i].value;">
 <option value="0">(全て)
'     Options $QID in $Queries
 </select>
'    EndIf
</td>
'   EndIf
'   If ! $Text or $ViewIndex.Count
<td nowrap>
'    Call Navigation $ViewIndex $argArg $Rows
</td>
'   EndIf
</tr>
</table>
'  EndIf
'  If ( $argPos = "Tail" ) and $Text and ! $ViewIndex.Count
 <table width="100%" border="0" cellspacing="0" cellpadding="4">
 <tr><td nowrap>
該当する会社が見つかりませんでした。
 </td></tr>
 </table>
'  EndIf
' EndSub