' $System.Access Customer
' If $System.IsPost
'  If $Mode = "Delete"
'   $System.Redirect $Server?page=CustomerSearch&wid=$WID&ST=$ST&reset=1
'   $Command.Customer.DeleteCheckedCustomer
'   Exit
'  Elif $Mode or ( $Mode = 0 )
<!--#include file="PartsChangeCondition.html"-->
'   $System.ContentType
'  Else
'   $ST = $Command.Customer.SetSearchCondition
'   $System.Redirect $Server?page=CustomerSearch&wid=$WID&vid=$VID&ST=$ST
'   Exit
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $ST and ( ! $Reset )
'  $Progress = $Command.Customer.Search $WID $ST $Head
'  If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=CustomerSearch&wid=$WID&vid=$VID&ST=$ST&head=$Head">
'  EndIf
' EndIf
<!--#include file="PartsCustomerCondition.html"-->
' $CaptionTitle = "詳細検索"
' If $ST and ( ! $Reset )
'  $CaptionMessage = "アドレスデータの検索が完了しました。"
'  $CaptionSubmit = "検索する"
' Else
'  $CaptionMessage = "アドレスデータの検索をおこないます。検索条件を指定してください。"
'  $CaptionSubmit = "検索する"
' EndIf
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=CustomerIndex&wid=$WID&vid=$VID"
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Customer.Name
''
' If $Progress
'  Sub progressColumn
<p>現在、検索を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmChildFooter
</body>
</html>
'  Exit
' EndIf
''
<form name="CustomerSearch" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerSearch">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
' If $CC
<input type=hidden name=CC value="$CC">
' Elif $ST
'  Set $Search = $Command.Customer.GetPersonalSearch $WID $ST
'  $OR = $Search.OR
'  $Fuzzy = $Search.Fuzzy
'  $Company = $Search.Company
'  Set $Conditions = $Search.Conditions
<input type=hidden name=CC value="$Conditions.Count">
' Else
<input type="hidden" name="CC" value="1">
' EndIf
''
' Sub formColumn
<table class="formTable">
<tr><th nowrap>検索対象</th><td colspan="3" nowrap>
' Call formRadio "Company" "顧客" $Company.RChecked 0 "TargetPerson" "Mode.value=0;CC.value='';this.form.submit();"
' Call formRadio "Company" "会社" $Company.Checked 1 "TargetCompany" "Mode.value=0;CC.value='';this.form.submit();"
</td></tr>
' If $Company
'  $Target = "Company"
' Else
'  $Target = "Person"
' EndIf
<tr><th nowrap>検索条件</th>
<td colspan="3" nowrap>\\
<!--#include file="LibrarySearchCondition.html"-->
<table border="0" cellspacing="0" cellpadding="5" width="100%">
<tr><td>
' Call searchCondition
</td></tr>
<tr><td>
 <table border="0" cellspacing="0" cellpadding="0">
' If $CC
'  $Num = $CC - 1
'  For $i = 0 to $Num
'   $IID = $System.GetParameter IID$i
'   $Text = $System.GetParameter Text$i
'   $Expr = $System.GetParameter Expr$i
'   $Value = $System.GetParameter Value$i
'   Call QueryConditionRow $i $IID $Text $Expr $Value $Num "CustomerSearch" $Target 1
'  Next
' Elif $Conditions
'  $CC = 0
'  If $Conditions.Count
'   $Num = $Conditions.Count - 1
'  Else
'   $Num = 0
'  EndIf
'  For Each $Cond in $Conditions
'   Call QueryConditionRow $CC $Cond.IID $Cond.Text $Cond.Expr $Cond.Value $Num "CustomerSearch" $Target 1
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow 0 $IID $Text $Expr $Value 0 "CustomerSearch" $Target 1
' EndIf
</table>
</td></tr>
<tr><td>
' Call cmButton "条件を追加する" "Mode.value='add';this.form.submit();"
</td></tr>
</table>
</td></tr>
</table>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit $CaptionSubmit "" "Mode.value='';" "location.href='$escBackURL';"
' EndSub
''
' Sub mainColumn
'  If $CaptionMessage
<div class="desc">$CaptionMessage</div>
'  EndIf
'  Call formColumn
' If $ST and ( ! $Reset )
<!--#include file="LibraryCustomerIndex.html"-->
<!--#include file="LibraryNavigation.html"-->
<script language="JavaScript" type="text/javascript">
<!--
function CheckAll( form )
{
	var e = form.elements;
	var l = e.length;
	var checked = false;
	for( i = 0 ; i < l ; i ++ ) { if( e[i].name == "CID" && ! e[i].checked ) { checked = true; } }
	for( i = 0 ; i < l ; i ++ ) { if( e[i].name == "CID" ) { e[i].checked=checked; } }
}
function IsChecked( form )
{
	var e = form.elements;
	var l = e.length;
	for( i = 0 ; i < l ; i ++ ) { if( e[i].name == "CID" && e[i].checked ) { return true; } }
	alert( 'アドレスデータをチェックしてください。' );
	return false;
}
function onDelete( form )
{
	if( IsChecked( form ) )
	{
		if( confirm( 'チェックしたアドレスデータを全て削除します。よろしいですか？' ) )
		{
			form.Mode.value = 'Delete';
			form.ST.value = "$ST";
			form.submit();
		}
	}
}
//-->
</script>
'  $Count = $Search.Count
'  Init $Count = 0
'  If $WorkSpace.Customer.IsAccessDelete and $Count
'   $CheckBox = 1
'  EndIf
''
'  Sub operation $argPos $argCount $argCheckBox
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr class="active">
'  If $argCheckBox
<td nowrap>\\
<input type=hidden name="ST" value="">\\
<span class="pointing">\\
'   If $argPos = "Head"
'    Call cmImage pointing_t.png
'   Else
'    Call cmImage pointing_b.png
'   EndIf
</span>\\
'   Call cmButton "削除する" "onDelete( this.form );"
</td>
'  EndIf
'  Call Navigation $ViewIndex "&ST=$ST" $Rows
</tr></table>
'  EndSub
''
'  $ViewIndex.WID = $WID
'  $Rows = $Customer.Rows
'  Init $Rows = 20
'  If $Target = "Company"
'   If $Customer.Company.Member.View
'    $ViewIndex.InitPersonsName = 1
'   EndIf
'  Else
'   If $Customer.Person.Company.View
'    $ViewIndex.InitCompany = 1
'   EndIf
'  EndIf
'  Set $Items = $Customer.$Target.Items
''
<table width="100%" border="0" cellspacing="0" cellpadding="2">\\
<tr class="active"><td width="1%" nowrap>検索結果 (全$Count件)</td></tr></table>
'  Set $rs = $Command.Customer.GetSearchResult $WID $ST $Rows $Head
'  $ViewIndex.Prev = $rs.Prev
'  $ViewIndex.PID = $rs.PID
'  $ViewIndex.Next = $rs.Next
'  $ViewIndex.NID = $rs.NID
'  Call operation "Head" $Count $CheckBox
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call customerTitle $Target $Items $CheckBox "CheckAll( document.forms['CustomerSearch'] );"
'  For Each $c in $rs
'   Set $v = $ViewIndex.Add
'   $v.OID = $c.OID
'   $v.DBID = $c.DBID
'  Next
'  $RowNum = 0
'  For Each $cd in $ViewIndex
'   Inc $RowNum
'   Call customerRow $cd $Items $Target "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$cd.OID&dbid=$cd.DBID&ST=$ST&head=$Head&wcs=$Login.ID$$Arg" $CurCID $CheckBox $RowNum
'  Next
'  Call customerTitle $Target $Items $CheckBox "CheckAll( document.forms['CustomerSearch'] );"
</table>
'  Call operation "Tail" $Count $CheckBox
' EndIf
' EndSub
''
' Call layout_view "" "" 0 mainColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL "アドレスデータの一覧へ"
' Else
'  $BS = -2
'  Call cmFooter $BackURL "アドレスデータの一覧へ"
' EndIf
</body>
</html>