' $System.Access Form
' If $System.IsPost
'  If $Mode or ( $Mode = 0 )
<!--#include file="PartsChangeCondition.html"-->
'   $System.ContentType
'  Else
'   $ST = $Command.Form.SetSearchCondition
'   $System.Redirect $Server?page=FormDocSearch&wid=$WID&bs=$BS&vid=$VID&st=$ST
'   Exit
'  EndIf
' EndIf
' $FormName = $WorkSpace.Forms.$BS.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $ST
'  $Progress = $Command.Form.Search $BS $ST $Head $HID
'  If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=FormDocSearch&wid=$WID&bs=$BS&vid=$VID&ST=$ST&head=$Head&hid=$HID">
'  EndIf
' EndIf
<!--#include file="PartsFormCondition.html"-->
' $CaptionTitle = "詳細検索"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=FormIndex&wid=$WID&bs=$BS&vid=$VID"
' Call cmHeader $CaptionTitle $BackURL $FormName
' $System.CloseDatabase "mw"
''
' If $Progress
'  Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmFooter
</body>
</html>
'  Exit
' EndIf
''
' Set $FormProfile = $Command.Form.GetFormTop $BS
<form name="FormSearch" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="FormDocSearch">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
' If $ST
'  Set $Search = $Command.Form.GetPersonalSearch $BS $ST
'  Set $Conditions = $Search.Conditions
'  $OR = $Search.OR
'  $Span = $Search.Span
'  $SetDate = $Search.SetDate
'  $EndDate = $Search.EndDate
'  $Fuzzy = $Search.Fuzzy
<input type=hidden name=CC value="$Conditions.Count">
' Elif $CC
<input type="hidden" name="CC" value="$CC">
' Else
<input type="hidden" name="CC" value="1">
'  $Span = 3
' EndIf
''
' Sub formColumn
<table class="formTable">
<tr><th nowrap>検索期間</th>
<td nowrap>\\
' Call formRadio "Span" "本日" $Span.Checked_1 1 "today"
' Call formRadio "Span" "過去1週間" $Span.Checked_2 2 "week"
' Call formRadio "Span" "過去1ヶ月" $Span.Checked_3 3 "month"
' Call formRadio "Span" "過去3ヶ月" $Span.Checked_7 7 "three"
' Call formRadio "Span" "過去6ヶ月" $Span.Checked_8 8 "six"
' Call formRadio "Span" "過去1年" $Span.Checked_4 4 "year"
' Call formRadio "Span" "全て" $Span.Checked_5 5 "all"
<br>
' Call formRadio "Span" "期間指定" $Span.Checked_6 6 "date"
(\\
' Call formDateSpan "SetDate" "EndDate" "FormSearch" 0 $SetDate $EndDate "Span[7].checked=true;"
)\\
</td></tr>
<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 $FormProfile $i $IID $Text $Expr $Value $Num "FormSearch"
'  Next
' Elif $Conditions
'  $CC = 0
'  If $Conditions.Count
'   $Num = $Conditions.Count - 1
'  Else
'   $Num = 0
'  EndIf
'  For Each $Cond in $Conditions
'   Call QueryConditionRow $FormProfile $CC $Cond.IID $Cond.Text $Cond.Expr $Cond.Value $Num "FormSearch"
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow $FormProfile 0 $IID $Text $Expr $Value 0 "FormSearch"
' 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 "検索する" "" "Mode.value='';" "location.href='$escBackURL';"
<div class="shadowBottom"></div>
' EndSub
''
' Sub mainColumn
<div class="desc">$FormNameの検索をおこないます。検索条件を指定してください。</div>
' If $Storages.Count and ( ! $VID )
<div class="desc">この検索は、現在のデータを対象としています。</div>
' EndIf
'  Call formColumn
' If $ST and ( ! $Reset )
'  $Count = $Search.Count
'  Init $Count = 0
<!--#include file="LibraryNavigation.html"-->
<!--#include file="PartsFormIndex.html"-->
'  Set $FormProfile = $Command.Form.GetFormTop $BS
'  $Rows = $FormProfile.Rows
'  Init $Rows = 20
'  Set $rs = $Command.Form.GetSearchResult $BS $ST $Rows $Head $HID
'  $ViewIndex.WID = $WID
'  For Each $fd in $rs
'   Set $v = $ViewIndex.Add
'   $v.AID = $BS
'   If $ST
'    $v.OID = $fd.OID
'   Else
'    $v.OID = $fd.ID
'   EndIf
'   $v.DBID = $fd.DBID
'  Next
'  $ViewIndex.Prev = $rs.Prev
'  $ViewIndex.PID = $rs.PID
'  $ViewIndex.Next = $rs.Next
'  $ViewIndex.NID = $rs.NID
'  Call operation "Head"
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call viewFormTitle $FormProfile
'  Call viewFormIndex $BS $FormProfile $ViewIndex "&st=$ST&head=$Head&hid=$HID&wfs=$Login.ID" $RID
'  Call viewFormTitle $FormProfile
</table>
'  Call operation "Tail"
' EndIf
' EndSub
''
' Call layout_view "" "" 0 mainColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL "$FormNameの一覧へ"
' Else
'  Call cmFooter $BackURL "$FormNameの一覧へ"
' EndIf
</body>
</html>
''
' Sub operation $argPos
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active">
'  If $argPos = "Head"
<td nowrap>検索結果 (全$Count件)
'  $SD = $FormSearch.SetDate
'  $ED = $FormSearch.EndDate
'  If $SD or $ED
'   If $SD
$SD.Year/$SD.Month/$SD.Day\\
'   EndIf
～\\
'   If $ED
$ED.Year/$ED.Month/$ED.Day\\
'   EndIf
'  EndIf
</td>
'  EndIf
 <td nowrap>
'  Call Navigation $ViewIndex "&bs=$BS&ST=$ST" $Rows
 </td>
</tr>
</table>
' EndSub
''
' Sub showBackNavigation
'  If $Storages.Count and ( ! $VID )
<!--#include file="LibraryBackNavigation.html"-->
<td width="1%" nowrap>\\
'  Call cmImage menu_sep.png "" "" "" "" "" "" "menusep"
</td>
<td width="1%" nowrap>\\
'  Call backNavigation "&wid=$WID&bs=$BS"
</td>
'  EndIf
' EndSub