' $System.Access Post
' If $PCID or ! $PDID
'  $PDID = $Command.Post.InitDraft $WID $PCID $rw $BS
' EndIf
' Set $Draft = $Command.Post.GetDraft $WID $PDID
' $Command.Post.AccessModify $WID $Draft.PCID
' If $System.IsPost
'  $Draft.Comment = $Comment
'  If $Mode = "Search"
'   $System.Redirect $Server?page=$Page&wid=$WID&pdid=$PDID&bpt=$BPT&extract=1&itemname=$ItemName&fencoding=$fencoding
'   $Command.Post.ClearTarget
'   $Command.Post.SetTargetCondition
'   If $Search = 2
'    $ImportPost.Upload File
'   EndIf
'   Exit
'  Elif $Mode = "Submit"
'   $PCID = $Draft.PCID
'   If $PCID
'    $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID&tab=to&bpt=$BPT
'    $Command.Post.Create
'   Else
'    $System.Redirect $Server?page=PostConfirm&wid=$WID&pdid=$PDID
'   EndIf
'   Exit
'  Elif $Mode = "Cancel"
'   $PCID = $Draft.PCID
'   If $PCID
'    $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID&tab=to&bpt=$BPT
'   Else
'    $System.Redirect $Server?page=PostIndex&wid=$WID
'   EndIf
'   $Command.Post.CancelDraft
'   Exit
'  Elif $Mode = "Query"
'   $System.Redirect $Server?page=$Page&wid=$WID&pdid=$PDID&bpt=$BPT
'   $Command.Post.SetQueryCondition
'   Exit
'  Elif $Mode = "Remove"
'   $System.Redirect $Server?page=$Page&wid=$WID&pdid=$PDID&bpt=$BPT
'   $Command.Post.RemoveTarget
'   Exit
'  Elif $Mode = "Save"
'   $PCID = $Command.Post.Create
'   $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT
'   Exit
'  Elif $Mode = "Prev"
'   $System.Redirect $Server?page=PostSetData&wid=$WID&pdid=$PDID
'   Exit
'  Else
<!--#include file="PartsChangeCondition.html"-->
'   $System.ContentType
'  EndIf
' EndIf
' If $Extract
'  $Progress = $Command.Post.SearchTarget $itemname $fencoding
'  If $PCID or ! $PDID
'   $PDID = $Command.Post.InitDraft $WID $PCID $rw $BS
'  EndIf
'  Set $Draft = $Command.Post.GetDraft $WID $PDID
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
'  If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=$Page&wid=$WID&pdid=$PDID&bpt=$BPT&extract=1&itemname=$itemname">
'  EndIf
<!--#include file="PartsCustomerCondition.html"-->
' $BS = $Draft.BS
' If $Draft.PCID
'  $CaptionTitle = "配信先の変更"
'  $CaptionBackPage = "配信情報の詳細へ"
'  $CaptionSubmit = "変更する"
' Else
'  $CaptionTitle = "新規配信"
'  $CaptionBackPage = "配信内容の設定へ"
'  $CaptionSubmit = "次へ >>"
' EndIf
<script language="JavaScript" type="text/javascript"><!--
function onCancel( form )
{
	if( confirm( "編集中の内容が破棄されますが、よろしいですか？" ) )
	{
		form.Mode.value ="Cancel";
		form.submit();
	}
}
function onSubmit( form )
{
' If ( $Draft.Status = -1 ) and $Draft.Count
	form.Mode.value ="Submit";
	form.submit();
' Else
	alert( '配信先を抽出してください。' );
' EndIf
}
function onRemove( form )
{
	var e = form.elements;
	var l = e.length;
	for( i = 0 ; i < l ; i ++ )
	{
		if( e[i].name == "CID" && e[i].checked )
		{
			form.Mode.value='Remove';
			form.submit();
			return true;
		}
	}
	alert( '顧客をチェックしてください。' );
}
function OnExport( form )
{
	var url = "$Server/target.csv?page=PostExportTarget&wid=$WID&pdid=$PDID&pcid=$Draft.PCID&ct=1&oencoding=" + form._oencoding.value;
	location.href=url;
}
//-->
</script>
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter URLPostIndex "$Server?page=PostIndex&wid=$WID"
' If $Draft.PCID
'  $System.SetParameter BackURL "$Server?page=PostView&wid=$WID&pcid=$Draft.PCID&tab=to&bpt=$BPT"
'  Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name $BackURL "配信情報の詳細"
' Else
'  $System.SetParameter BackURL "$Server?page=PostSetData&wid=$WID&pdid=$PDID"
'  Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name
' EndIf
' $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
''
<form name="PostTarget" method="post" action="$Server?" enctype="multipart/form-data">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="PostSetTarget">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="PDID" value="$PDID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
' If ! $CC
'  $CGID = $Draft.CGID
'  $Search = $Draft.Search
'  $QID = $Draft.QID
'  $OR = $Draft.OR
'  $Fuzzy = $Draft.Fuzzy
'  Set $Conditions = $Draft.Conditions
' EndIf
' If ( ! $CheckedSearch ) and ( $CheckedSearch != 0 )
'  $CheckedSearch = $Search
' EndIf
<input type="hidden" name="CheckedSearch" value="$CheckedSearch">
''
' Sub mainColumn
' If ! $Draft.PCID
<!--#include file="LibraryPostSet.html"-->
'  Call viewStep "2"
' EndIf
' If $WorkSpace.Customer.Disable
<input type="hidden" name="Search" value="2">
<p>CSVファイルを指定して、配信先を抽出してください。</p>
' Else
<p>顧客の選択条件を指定して、配信先を抽出してください。</p>
'' <!---------------------抽出条件----------------------------->
<p>
'  Call formRadio "Search" "全ての顧客に配信する" $Search.RChecked 0 "SearchAll"
</p><p>
'  Call formRadio "Search" "顧客を絞り込んで配信する" $Search.Checked_1 1 "SearchFilter"
&nbsp;
'  Call cmImage "item16.png"
<select name="QID" onChange="this.value=this.value.replace(/^__/,'');Mode.value='Query';this.form.submit();">
<option value="">(新規絞込)
'  If $Customer.Person.Queries.Count
<option value="__$QID">------
'  EndIf
'  Options $QID in $Customer.Person.Queries
'  If $Customer.Company.Queries.Count
<option value="__$QID">------
'  EndIf
'  Options $QID in $Customer.Company.Queries
</select>
</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td><br></td><td colspan="3">
<!--#include file="LibrarySearchCondition.html"-->
' Call searchCondition
</td></tr>
'  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 "PostTarget" "Person" 1 "Search[1].checked=true;" 1
'   Next
'  Elif $Conditions
'   $Num = 0
'   For Each $Cond in $Conditions
'    $IID = $Cond.IID
'    If $Customer.Person.Items.$IID
'     Set $Item = $Customer.Person.Items.$IID
'     If $Item.Access
'      $Contains = $Command.Customer.IsAccessItem $Item
'      If ! $Contains
'       Continue
'      EndIf
'     EndIf
'    EndIf
'    If $Customer.Company.Items.$IID
'     Set $Item = $Customer.Company.Items.$IID
'     If $Item.Access
'      $Contains = $Command.Customer.IsAccessItem $Item
'      If ! $Contains
'       Continue
'      EndIf
'     EndIf
'    EndIf
'    Inc $Num
'   Next
'   If $Num
'    Inc $Num -1
'   Else
'    $Num = 0
'   EndIf
'   $CC = 0
'   For Each $Cond in $Conditions
'    $IID = $Cond.IID
'    If $Customer.Person.Items.$IID
'     Set $Item = $Customer.Person.Items.$IID
'     If $Item.Access
'      $Contains = $Command.Customer.IsAccessItem $Item
'      If ! $Contains
'       Continue
'      EndIf
'     EndIf
'    EndIf
'    If $Customer.Company.Items.$IID
'     Set $Item = $Customer.Company.Items.$IID
'     If $Item.Access
'      $Contains = $Command.Customer.IsAccessItem $Item
'      If ! $Contains
'       Continue
'      EndIf
'     EndIf
'    EndIf
'    Call QueryConditionRow $CC $Cond.IID $Cond.Text $Cond.Expr $Cond.Value $Num "PostTarget" "Person" 1 "Search[1].checked=true;" 1
'    Inc $CC
'   Next
'  EndIf
'  If $CC
<input type="hidden" name="CC" value="$CC">
'  Else
'   Call QueryConditionRow 0 $IID $Text $Expr $Value 0 "PostTarget" "Person" 1 "Search[1].checked=true;" 1
<input type="hidden" name="CC" value="1">
'  EndIf
<tr><td><br></td><td colspan="3">
'  Call cmButton "条件を追加する" "Mode.value='add';Search[1].checked=true;this.form.submit();"
</td></tr>
</table>
</blockquote>
<p>
'  Call formRadio "Search" "CSVファイルから読み込んで配信する" $Search.Checked_2 2 "SearchImport"
' EndIf
' Call cmLink "[説明]" "" "$Server?page=PostCSVExplain&wid=$WID&pdid=$PDID" 0 1
</p>
<blockquote>
' If $WorkSpace.Customer.Disable
'  Call formFile "File"
<p>
'  Call formCheckBox "ItemName" "先頭行を項目名として無視する" $ItemName 1 "ItemName"
</p>
' Else
'  Call formFile "File" "" "" "Search[2].checked=true;"
<p>
'  Call formCheckBox "ItemName" "先頭行を項目名として無視する" $ItemName 1 "ItemName" "Search[2].checked=true;"
</p>
' EndIf
<p>文字コード\\
' Call formFEncoding
</p>
</blockquote>
'' <!---------------------注意書き(検索前)----------------------------->
<p>
' If ! $WorkSpace.Customer.Disable
メールアドレスが設定されていない顧客や、配信停止の顧客は、配信対象から除きます。<br>
ひとつの顧客に複数のメールアドレスが設定されている場合、先頭のメールアドレスにだけ配信します。<br>
' EndIf
配信先の件数は1000件まで指定できます。1001件以上の宛先に配信することはできません。<br>
</p>
<p>
' Call cmButton "配信先を抽出する" "Mode.value='Search';this.form.submit();" "search20.png"
</p>
' If $Draft.Status = -1
'' <!---------------------抽出結果の一覧----------------------------->
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active"><td nowrap>抽出結果
'  If $Draft.Count
(全$Draft.Count件)
'   If $WorkSpace.Customer.IsAccessFile and ( $Draft.Search != 2 )
</td><td align="right">
'    Call formOEncoding "_oencoding"
'    Call cmButton "ファイル出力" "OnExport( this.form );return false;" "disk20.png"
'   EndIf
'  EndIf
</td></tr>
</table>
'  If $Draft.Count
<!--#include file="LibraryPostTarget.html"-->
'   $Draft.Customers.Reverse = 0
'   If $CheckedSearch != 2
'    $CheckBox = 1
'   EndIf
'   Call PostTargetIndex 0 "&bpt=$BPT&pdid=$PDID&itemname=$ItemName" $Head $CheckBox $CheckedSearch
'   If $CheckBox
チェックした顧客を配信先から
'    Call cmButton "除外する" "onRemove( this.form );"
'    If $Draft.RemoveCIDs.Count
<p><table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="title" width="100" nowrap>除外</td><td>
'     $First = 1
'     For Each $RCID in $Draft.RemoveCIDs
'      Set $c = $CIndex.Cards.$RCID
'      If ! $c
'       Continue
'      EndIf
'      If $First
'       $First = 0
'      Else
,
'      EndIf
'      If $c.CompanyID != -1
'       $CompanyID = $c.CompanyID
'       Set $Company = $CIndex.Cards.$CompanyID
'       If $Company
'        Call cmImage "company20.png"
$Company.Name
'       EndIf
'      EndIf
'      If $WorkSpace.Customer.Disable
'       Call cmImage "person20.png"
$c.Name
'      Else
'       Call cmLink $c.Name "person20.png" "$Server?page=CustomerView&wid=$WID&cid=$RCID&dbid=$c.DBID" 0 1
'      EndIf
'     Next
<br></td></tr>
</table></p>
'    EndIf
'   EndIf
'  Else
該当する顧客が存在しませんでした。条件を再設定して、配信先を抽出してください。
'  EndIf
' EndIf
<hr>
'' <!---------------------コメント----------------------------->
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>コメント</td><td nowrap>
' Call formText "Comment" $Draft.Comment 60 3
<br><font size="-1" color="#008800">コメントの内容は送信されません。</font></td></tr></table>
'' <!---------------------ボタン----------------------------->
' If $Draft.PCID
'  Call cmButton $CaptionSubmit "Mode.value='Submit';this.form.submit();"
' Else
'  Call cmButton "<< 前へ" "Mode.value='Prev';this.form.submit();"
'  If $WorkSpace.Post.IsAccessSend
'   Call cmButton $CaptionSubmit "onSubmit( this.form );"
'  EndIf
&nbsp;
'  Call cmButton "書きかけ保存する" "Mode.value='Save';this.form.submit();"
' EndIf
' Call cmButton "キャンセルする" "onCancel( this.form );"
' EndSub
''
' Call layout_view "" "" 0 mainColumn
</form>
' Call cmFooter $BackURL $CaptionBackPage
</body>
</html>