' $System.Access Customer
' If $WMV
'  Set $BP = $Command.Personal.SetBackPage $WMV "MailView"
'  $BP.Args.BS = $BID
'  $BP.Args.mid = $BMID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.type = $BType
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WFV
'  Set $BP = $Command.Personal.SetBackPage $WFV "FormDocView"
'  $BP.Args.BS = $BID
'  $BP.Args.rid = $BRID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WCS
'  Set $BP = $Command.Personal.SetBackPage $WCS "CustomerSearch"
'  $BP.Args.st = $ST
'  $BP.Args.head = $Head
'  $BP.Args.curCID = $CID
'  $BPT = $BP.TimeStamp
' Elif $WCI
'  Set $BP = $Command.Personal.SetBackPage $WCI "CustomerIndex"
'  $BP.Args.cgid = $CGID
'  $BP.Args.qid = $QID
'  $BP.Args.st = $ST
'  $BP.Args.index = $Index
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.curCID = $CID
'  $BPT = $BP.TimeStamp
' Elif $WFS
'  If $BRID
'   Set $BP = $Command.Personal.SetBackPage $WFS "FormDocModify"
'   $BP.Args.rid = $BRID
'   $BP.Args.dbid = $BDBID
'  Else
'   Set $BP = $Command.Personal.SetBackPage $WFS "FormDocAdd"
'  EndIf
'  $BP.Args.BS = $BID
'  $BP.Args.did = $DID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' EndIf
' If ! $DBID
'  $DBID = $CIndex.Cards.$CID.DBID
'  $System.CloseDatabase CIndex
' EndIf
' $ViewIndex.WID = $WID
' Set $v = $ViewIndex.Add
' $v.OID = $CID
' $v.DBID = $DBID
' $ViewIndex.InitCompany = 1
' Set $c = $ViewIndex.GetHead
' If $c.CompanyID
'  $CompanyID = $c.CompanyID
'  If $CompanyID != -1
'   $CompanyDB = $c.CompanyDB
'   Set $Company = $c.Company
'  EndIf
'  $CType = "customer"
'  $CName = "顧客"
' Else
'  $CompanyID = $CID
'  $CompanyDB = $DBID
'  Set $Company = $c
'  $cmp = 1
'  $CType = "company"
'  $CName = "会社"
' EndIf
' If $OpenFID
'  $Command.Customer.OpenSection $WID $CompanyID $OpenFID
' Elif $CloseFID
'  $Command.Customer.CloseSection $WID $CompanyID $CloseFID
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryCustomerView.html"-->
' $System.SetParameter CaptionTitle "$CNameの詳細"
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' If $BP.Page = "MailView"
'  $CaptionBackPage = "メールの詳細へ"
'  $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&vid=$VID$$BP.Param"
' Elif $BP.Page = "FormDocView"
'  $BID = $BP.Args.BS
'  $System.SetParameter CaptionBackPage "$WorkSpace.Forms.$BID.Nameの詳細へ"
'  $System.SetParameter BackURL "$Server?page=FormDocView&wid=$WID&vid=$VID$$BP.Param"
' Elif $BP.Page = "CustomerSearch"
'  $CaptionBackPage = "$WorkSpace.Customer.Name$の検索へ"
'  $System.SetParameter BackURL "$Server?page=CustomerSearch&wid=$WID&vid=$VID$$BP.Param"
' Elif $BP.Page = "FormDocModify"
'  $BID = $BP.Args.BS
'  $System.SetParameter CaptionBackPage "$WorkSpace.Forms.$BID.Nameの変更へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID$$BP.Param"
'  $FDS = 1
' Elif $BP.Page = "FormDocAdd"
'  $BID = $BP.Args.BS
'  $System.SetParameter CaptionBackPage "$WorkSpace.Forms.$BID.Nameの作成へ"
'  $System.SetParameter BackURL "$Server?page=$BP.Page&wid=$WID$$BP.Param"
'  $FDS = 1
' Else
'  $CaptionBackPage = "アドレスデータの一覧へ"
'  $System.SetParameter BackURL "$Server?page=CustomerIndex&wid=$WID&vid=$VID$$BP.Param"
' EndIf
' $SystemName = $WorkSpace.Customer.Name
' $Command.System.OnBrowse $SystemName $CID $WID
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onPrint()
{
    window.open( '$Server?page=CustomerPrint&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID', 'PrintCustomer', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );
}
//-->
</script>
</head>
<body>
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID&vid=$VID$$BP.Param"
' Call cmHeader $CaptionTitle $URLCustomerIndex $SystemName
''
' If ! $c.Init
'  Sub deleteColumn
<p>指定された$CName$データは既に削除されています。</p>
'  EndSub
'  Call layout_msg "" "" 0 deleteColumn
'  If $VID
'   Call cmChildFooter $BackURL $CaptionBackPage
'  Else
'   Call cmFooter $BackURL $CaptionBackPage
'  EndIf
</body>
</html>
'  Exit
' EndIf
''
<form method="post" action="$Server?" onSubmit="if( ! Text.value ){ return false; }" 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
'  Call menuColumn
' EndSub
''
' Sub menuColumn
'  If $FDS
'   Exit
'  EndIf
<table class="menuColumn">\\
<tr>\\
'  Call tbCreate "&cid=$CID&dbid=$DBID&bpt=$BPT&wcv=$Login.ID&ctype=$CType"
<td nowrap>
'  Call cmLinkButton "印刷する" "btn_print20.png" "" 0 0 0 "" "onPrint();"
</td>
<td align="right" nowrap>\\
' Call tbSearchCustomer
</td></tr></table>
' EndSub
''
'  Sub sideColumn
<div class="customerview-sidemenu-operation sidemenu-operation">
'  If $Company
'   $Disable = 0
'  Else
'   $Disable = 1
'  EndIf
'  If $WorkSpace.Customer.IsAccessCreate
'   Call cmLinkButton "顧客を登録する" "btn_add13.png" "$Server?page=CustomerAddPerson&wid=$WID&companyid=$CompanyID&companyDB=$CompanyDB&bpt=$BPT" $Disable
'  EndIf
'  If $WorkSpace.Customer.IsAccessModify or ( ( ! $VID ) and ( $Company.UID = $Login.ID ) )
'   If $Customer.Person.Section.Disable
'    If $Company.Persons.Count > 1
'     $Disable = 0
'    Else
'     $Disable = 1
'    EndIf
'    Call cmLinkButton "順番変更" "btn_order13.png" "$Server?page=CustomerOrder&wid=$WID&cid=$CID&dbid=$DBID&companyID=$CompanyID&companyDB=$CompanyDB&bpt=$BPT" $Disable
'   Else
'    Call cmLinkButton "部課の設定" "btn_setting13.png" "$Server?page=CustomerSection&wid=$WID&cid=$CID&dbid=$DBID&companyID=$CompanyID&companyDB=$CompanyDB&bpt=$BPT" $Disable
'   EndIf
'  EndIf
<br></div>
 <table class="category">
  <tr><td nowrap>\\
'  If $cmp
<div class="category-item selected">\\
'   Call cmImage "company20.png"
$c.Name\\
'  Else
'   If $Company
<div class="category-item">\\
'    Call cmLink $Company.Name "company20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$CompanyID&dbid=$CompanyDB&bpt=$BPT"
'   Else
<div class="category-item-disable">\\
'    Call cmImage "company20.png"
(会社は設定されていません)\\
</div></td></tr><tr><td nowrap><div class="category-item-disable selected">\\
'    Call cmImage "spacer.gif" "" "" 20 20
'    Call cmImage "person20.png"
$c.Name\\
'   EndIf
'  EndIf
</div></td></tr>
'  If $Customer.Person.Section.Disable
'   For Each $p in $Company.Persons
'    Call personTree $p.OID
'   Next
'  Else
'   For Each $PID in $Company.Member
'    Call personTree $PID
'   Next
'   Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
'   Set $FIDs = $PersonalCustomer.Company.$CompanyID.FIDs
'   For Each $Section in $Company.Sections
'   If $Section.Member.Count
<tr><td nowrap><div class="category-item">\\
'    $Contains = $FIDs.Contains $Section.ID
'    If $Contains
'     Call cmLink "$Section.Name ($Section.Member.Count)" "plus13.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID&bpt=$BPT&OpenFID=$Section.ID"
'    Else
'     Call cmLink "$Section.Name" "minus13.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID&bpt=$BPT&CloseFID=$Section.ID"
'     For Each $PID in $Section.Member
'      Call personTree $PID
'     Next
'    EndIf
</div></td></tr>
'   Else
<tr><td nowrap><div class="category-item-disable">\\
'    Call cmImage "node13.png"
$Section.Name</div></td></tr>
'   EndIf
'   Next
'  EndIf
 </table>
'  Call categoryJS
' EndSub
''
' Sub mainColumn
' If ! $cmp
 <table class="dataView" width="100%">
 <caption>\\
'  Call cmImageText "person20.png" "顧客データ" "" "" "" "" "" "" "" "caption-text"
'  If $WorkSpace.Customer.IsAccessModify or ( ( ! $VID ) and ( $c.UID = $Login.ID ) )
'   Call cmLinkButton "変更する" "btn_edit13.png" "$Server?page=CustomerModifyPerson&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT&ctype=costomer"
'   If $Company
'    $SelectCompanyCaption = "別の会社に所属させる"
'   Else
'    $SelectCompanyCaption = "会社に所属させる"
'   EndIf
'   Call cmLinkButton $SelectCompanyCaption "btn_company13.png" "$Server?page=CustomerSelectCompany&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT"
'  EndIf
'  If ! $FDS
'   If $WorkSpace.Customer.IsAccessDelete or ( ( ! $VID ) and ( $c.UID = $Login.ID ) )
'    Call cmLinkButton "削除する" "btn_delete13.png" "$Server?page=CustomerDelete&wid=$WID&cid=$CID&dbid=$DBID&bpt=$BPT&ctype=customer"
'   EndIf
'   Call cmLinkButton "履歴を見る" "btn_history13.png" "$Server?page=CustomerHistory&wid=$WID&vid=$VID&cid=$CID&dbid=$DBID&bpt=$BPT&wcv=$Login.ID"
'   If $Customer.ViewHistory
'    $Count = $Command.Customer.GetHistoryCount $WID 0 $CID $DBID
($Count 件)
'   EndIf
'  EndIf
</caption>
'  Call viewData $c
 </table>
' EndIf
''
' If $Company
 <table class="dataView" width="100%">
 <caption>\\
'  Call cmImageText "company20.png" "会社データ" "" "" "" "" "" "" "" "caption-text"
'  If $WorkSpace.Customer.IsAccessModify or ( ( ! $VID ) and ( $Company.UID = $Login.ID ) )
'   Call cmLinkButton "変更する" "btn_edit13.png" "$Server?page=CustomerModifyCompany&wid=$WID&cid=$CompanyID&dbid=$CompanyDB&bpt=$BPT&ctype=company"
'  EndIf
'  If ! $FDS
'   If $WorkSpace.Customer.IsAccessDelete or ( ( ! $VID ) and ( $Company.UID = $Login.ID ) )
'    Call cmLinkButton "削除する" "btn_delete13.png" "$Server?page=CustomerDelete&wid=$WID&cid=$CompanyID&dbid=$CompanyDB&bpt=$BPT&ctype=company"
'   EndIf
'   Call cmLinkButton "履歴を見る" "btn_history13.png" "$Server?page=CustomerHistory&wid=$WID&vid=$VID&cid=$CompanyID&dbid=$CompanyDB&bpt=$BPT&wcv=$Login.ID"
'   If $Customer.ViewHistory
'    $Count = $Command.Customer.GetHistoryCount $WID 0 $CompanyID $CompanyDB
($Count 件)
'   EndIf
'  EndIf
</caption>
'  Call viewData $Company
 </table>
' EndIf
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 1 sideColumn commonColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL $CaptionBackPage
' Else
'  $BS = -2
'  Call cmFooter $BackURL $CaptionBackPage
' EndIf
''
</body>
</html>
''
'  Sub personTree $PID
'   Set $Person = $CIndex.Cards.$PID
'   If ! $Person
'    Continue
'   EndIf
'   $PDB = $Person.DBID
<tr><td nowrap>\\
'   If $PID = $CID
<div class="category-item selected">\\
'   Else
<div class="category-item">\\
'   EndIf
'   Call cmImage "spacer.gif" "" "" 20 20
'   Call cmLink $Person.Name "person20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$PID&dbid=$PDB&bpt=$BPT"
</div></td></tr>
'  EndSub