<!--#include file="LibraryForm.html"-->
' Sub QueryConditionRow $sqcIndex $sqcIID $sqcText $sqcExpr $sqcValue $sqcNum $sqcFormName $sqcTarget $sqcAccess $sqcOnSubmit $sqcNoStop
'  If $sqcTarget != "Company"
'   Init $sqcIID = "Name"
'  Else
'   Init $sqcIID = "Company"
'  EndIf
'  $sqcType = ""
'  Set $sqcPersonItem = $Customer.Person.Items.$sqcIID
'  Set $sqcCompanyItem = $Customer.Company.Items.$sqcIID
'  If ( $sqcIID = "Stop" ) or ( $sqcIID = "User" ) or ( $sqcIID = "CompanyUser" ) or ( $sqcIID = "CGID" ) or ( $sqcIID = "CompanyCGID" ) or ( $sqcIID = "UID" ) or ( $sqcIID = "CTime" ) or ( $sqcIID = "MID" ) or ( $sqcIID = "MTime" ) or ( $sqcIID = "LastTime" ) or ( $sqcPersonItem.Type = "Select" ) or ( $sqcPersonItem.Type = "Date" ) or ( $sqcCompanyItem.Type = "Select" ) or ( $sqcCompanyItem.Type = "Date" )
'   $System.SetParameter sqcOnChange "Mode.value='$sqcIndex';"
'  Else
'   $System.SetParameter sqcOnChange "Mode.value='change';"
'  EndIf
<tr><td><br></td><td nowrap>
<select name="IID$sqcIndex" onChange="this.value=this.value.replace(/^__/,'');$_sqcOnChange$$_sqcOnSubmit$this.form.submit();">
'  If $sqcTarget != "Company"
'   If $Customer.Person.Groups.Count
<option value="CGID" $sqcIID.Selected_CGID>顧客グループ
'   EndIf
<option value="Code" $sqcIID.Selected_Code>顧客コード
<option value="Name" $sqcIID.Selected_Name>名前
<option value="Yomi" $sqcIID.Selected_Yomi>よみ
'   If ! $Customer.Person.Section.Disable
<option value="Section" $sqcIID.Selected_Section>部課
'   EndIf
<option value="Tel" $sqcIID.Selected_Tel>電話番号
<option value="Mail" $sqcIID.Selected_Mail>メールアドレス
'   If ! $sqcNoStop
<option value="Stop" $sqcIID.Selected_Stop>配信停止
'   EndIf
'   Set $sqcPersonItems = $Customer.Person.Items
'   For Each $sqcItem in $sqcPersonItems
'    If $sqcAccess
'     $sqcContains = $Command.Customer.IsAccessItem $sqcItem
'     If ! $sqcContains
'      If $sqcItem.ID = $sqcIID
'       $sqcText = ""
'       $sqcValue = ""
'      EndIf
'      Continue
'     EndIf
'    EndIf
'    $sqcOID = $sqcItem.ID
'    If $sqcOID = $sqcIID
'     $sqcSel = "Selected"
'     $sqcType = $sqcItem.Type
'     If $sqcType = "Select"
'      Set $sqcOptions = $sqcItem.Options
'     EndIf
'    Else
'     $sqcSel = ""
'    EndIf
<option value="$sqcOID" $sqcSel>$sqcItem.Name
'   Next
<option value="User" $sqcIID.Selected_User>担当
'   If $Customer.Person.File.Size != 0
<option value="File" $sqcIID.Selected_File>添付ファイル名
'   EndIf
<option value="UID" $sqcIID.Selected_UID>登録者
<option value="CTime" $sqcIID.Selected_CTime>登録日時
<option value="MID" $sqcIID.Selected_MID>最終更新者
<option value="MTime" $sqcIID.Selected_MTime>更新日時
<option value="LastTime" $sqcIID.Selected_LastTime>最終履歴(日時)
<option value="__$sqcIID">--------
'  EndIf
'  If $Customer.Company.Groups.Count
<option value="CompanyCGID" $sqcIID.Selected_CompanyCGID>会社グループ
'  EndIf
<option value="CompanyCode" $sqcIID.Selected_CompanyCode>会社コード
<option value="Company" $sqcIID.Selected_Company>会社名
<option value="CompanyYomi" $sqcIID.Selected_CompanyYomi>会社よみ
<option value="CompanyTel" $sqcIID.Selected_CompanyTel>電話番号(会社)
'  Set $sqcCompanyItems = $Customer.Company.Items
'  For Each $sqcItem in $sqcCompanyItems
'   If $sqcAccess
'    $sqcContains = $Command.Customer.IsAccessItem $sqcItem
'    If ! $sqcContains
'     If $sqcItem.ID = $sqcIID
'      $sqcText = ""
'      $sqcValue = ""
'     EndIf
'     Continue
'    EndIf
'   EndIf
'   $sqcOID = $sqcItem.ID
'   If $sqcOID = $sqcIID
'    $sqcSel = "Selected"
'    $sqcType = $sqcItem.Type
'    If $sqcType = "Select"
'     Set $sqcOptions = $sqcItem.Options
'    EndIf
'   Else
'    $sqcSel = ""
'   EndIf
<option value="$sqcOID" $sqcSel>$sqcItem.Name
'  Next
<option value="CompanyUser" $sqcIID.Selected_CompanyUser>担当(会社)
'  If $Customer.Company.File.Size != 0
<option value="CompanyFile" $sqcIID.Selected_CompanyFile>添付ファイル名(会社)
'  EndIf
'  If $sqcTarget = "Company"
<option value="UID" $sqcIID.Selected_UID>登録者
<option value="CTime" $sqcIID.Selected_CTime>登録日時
<option value="MID" $sqcIID.Selected_MID>最終更新者
<option value="MTime" $sqcIID.Selected_MTime>更新日時
<option value="LastTime" $sqcIID.Selected_LastTime>最終履歴(日時)
'  EndIf
</select> が
'  If ( $sqcType = "Date" ) or ( $sqcIID = "CTime" ) or ( $sqcIID = "MTime" ) or ( $sqcIID = "LastTime" )
<select name="Text$sqcIndex" onChange="Mode.value='change';$_sqcOnSubmit$this.form.submit();">
<option value ="">(日付選択)
<option value ="1" $sqcText.Selected_1>今日
<option value ="2" $sqcText.Selected_2>昨日
<option value ="3" $sqcText.Selected_3>明日
<option value ="4" $sqcText.Selected_4>今週
<option value ="5" $sqcText.Selected_5>先週
<option value ="6" $sqcText.Selected_6>来週
<option value ="7" $sqcText.Selected_7>今月
<option value ="8" $sqcText.Selected_8>先月
<option value ="9" $sqcText.Selected_9>来月
<option value ="10" $sqcText.Selected_10>今年
<option value ="11" $sqcText.Selected_11>昨年
'   If $sqcType = "Date"
'    If $sqcText = -1
'     $sqcSel = "Selected"
'    Else
'     $sqcSel = ""
'    EndIf
<option value ="-1" $sqcSel>(未設定)
'    If $sqcText = -2
'     $sqcSel = "Selected"
'    Else
'     $sqcSel = ""
'    EndIf
<option value ="-2" $sqcSel>(直接入力)
'   EndIf
</select>
'   If ! $sqcText
'    If ! $sqcValue
'	  $sqcValue = $Date
'    EndIf
(
'    Call formDate "Value$sqcIndex" $sqcFormName 1 $sqcValue
)
'   Elif $sqcText = -2
'    If ! $sqcValue
'	  $sqcValue = $Date
'    EndIf
(
'    Call formText "Value$sqcIndex$.Year" $sqcValue.Year 8 1 4
年
'    Call formText "Value$sqcIndex$.Month" $sqcValue.Month 4 1 2
月
'    Call formText "Value$sqcIndex$.Day" $sqcValue.Day 4 1 2
日
)
'   EndIf
'  Elif $sqcType = "Select"
<select name="Text$sqcIndex" onChange="Mode.value='change';$_sqcOnSubmit$this.form.submit();">
<option value="">(直接入力)
'   Options $sqcText in $sqcOptions
</select>
'   $sqcContains = $sqcOptions.Contains $sqcText
'   If ! $sqcContains
'    Call formText "Value$sqcIndex" $sqcValue 20 1
'   EndIf
'  Elif ( $sqcIID = "User" ) or ( $sqcIID = "CompanyUser" ) or ( $sqcIID = "UID" ) or ( $sqcIID = "MID" )
<select name="Text$sqcIndex" onChange="Mode.value='change';$_sqcOnSubmit$this.form.submit();">
<option value="">----
'   If $Login.ID = $sqcText
'    $sqcSel = "Selected"
'   Else
'    $sqcSel = ""
'   EndIf
<option value="$Login.ID" $sqcSel>$Login.Name
'   For Each $sqcUser in $Users
'    If $sqcUser.ID = $Login.ID
'     Continue
'    EndIf
'    If $sqcUser.ID = $sqcText
'     $sqcSel = "Selected"
'    Else
'     $sqcSel = ""
'    EndIf
<option value="$sqcUser.ID" $sqcSel>$sqcUser.Name
'   Next
'   If $sqcText = -2
'    $sqcSel = "Selected"
'   Else
'    $sqcSel = ""
'   EndIf
<option value="-2" $sqcSel>(直接入力)
</select>
'   If $sqcText = -2
'    Call formText "Value$sqcIndex" $sqcValue 20 1
'   EndIf
'  Elif $sqcIID = "CGID"
'   Call formSelect "Text$sqcIndex" $Customer.Person.Groups $sqcText
'  Elif $sqcIID = "CompanyCGID"
'   Call formSelect "Text$sqcIndex" $Customer.Company.Groups $sqcText
'  Elif $sqcIID = "Stop"
<select name="Text$sqcIndex">
<option value="1">配信停止
</select>
'  Else
'   Call formText "Text$sqcIndex" $sqcText 30 1
'  EndIf
</td><td nowrap><select name="Expr$sqcIndex">
'  If ( $sqcType = "Date" ) or ( $sqcIID = "CTime" ) or ( $sqcIID = "MTime" ) or ( $sqcIID = "LastTime" )
'   If $sqcText != -1
<option value="5" $sqcExpr.Selected_5>以降
<option value="6" $sqcExpr.Selected_6>以前
'   EndIf
'  Elif $sqcType = "Number"
<option value="7" $sqcExpr.Selected_7>より大きい
<option value="8" $sqcExpr.Selected_8>以上
<option value="9" $sqcExpr.Selected_9>より小さい
<option value="10" $sqcExpr.Selected_10>以下
'  Elif ( $sqcIID != "CGID" ) and ( $sqcIID != "CompanyCGID" ) and ( $sqcIID != "Stop" )
'   If ( $sqcText = -2 ) or ( ( $sqcIID != "UID" ) and ( $sqcIID != "MID" ) )
<option value="1" $sqcExpr.Selected_1>を含む
<option value="2" $sqcExpr.Selected_2>を含まない
'   EndIf
'  EndIf
'  If ( $sqcIID != "File" ) and ( $sqcIID != "CompanyFile" )
<option value="3" $sqcExpr.Selected_3>と同じ
<option value="4" $sqcExpr.Selected_4>と異なる
'  EndIf
</select></td>
<td>
'  If $sqcNum
'   Call cmButton "削除する" "Mode.value='remove';Remove.value='$sqcIndex';$sqcOnSubmit$this.form.submit();"
'  Else
<br>
'  EndIf
</td>
</tr>
' EndSub