' If $System.IsCloud
'  Exit
' EndIf
' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemCustomerImportExplain&wid=$WID
'  $Command.Customer.SetBatchImport
'  Exit
' EndIf
' If ! $WID
'  If $mw.WorkSpaces.Count = 1
'   $WID = $mw.WorkSpaces.Head
'   $System.SetWorkSpaceID $WID
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Env.IsMSIE
' Call cmLoadJavaScript "member_ie"
' Else
' Call cmLoadJavaScript "member_nn"
' EndIf
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "アドレスデータのインポート設定"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.FileName.value )
	{
		alert( "ファイル名を入力してください。" );
		return false;
	}
	return true;
}
-->
</script>
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
' If ! $WID
<p>アドレスデータのコマンド読み込みの設定をおこないます。<br>
読み込み対象のメールスペースを選択してください。</p>
<ul>
'  For Each $ws in $mw.WorkSpaces
<li>\\
'   Call cmLink $ws.Name "" "$Server?page=SystemCustomerImport&wid=$ws.ID"
</li>
'  Next
</ul>
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>
'  Exit
' EndIf
<form method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemCustomerImport">
<input type="hidden" name="WID" value="$WID">
<p>アドレスデータのCSVファイル読み込みの設定をおこなってください。
' Call cmLink "[説明]" "" "$Server?page=SystemCustomerCSVExplain" 0 1
<br>
' Call formNote 1
</p>
' Set $Import = $Customer.ImportPerson
' If $Import
'  $FileName = $Import.FileName
'  $ItemName = $Import.ItemName
'  For Each $Item in $Import.Items
'   If ( $Item.Item = "Company" ) or ( $Item.Item = "Person" )
'    $System.AddParameter IIDs $Item.IID
'   Else
'    $System.AddParameter IIDs $Item.Item
'   EndIf
'  Next
' Else
'  $ItemName = 1
' EndIf
<p><table border="0" cellspacing="0" cellpadding="2">
' If $mw.WorkSpaces.Count > 1
<tr><td nowrap>メールスペース</td><td nowrap><b>$mw.WorkSpaces.$WID.Name</b></td></tr>
' EndIf
<tr><td nowrap>ファイル名
' Call formNecessaryMark
</td><td nowrap>
' Call formText "FileName" $FileName 20 1 255
</td></tr>
</table></p>
<p>
読み込む項目
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td align="middle">
' Call cmImageButton "Top( this.form, 'IIDs' ); return false;" "order_top20.png"
<br><br>
' Call cmImageButton "Up( this.form, 'IIDs' ); return false;" "order_up20.png"
<br><br>
' Call cmImageButton "Down( this.form, 'IIDs' ); return false;" "order_down20.png"
<br><br>
' Call cmImageButton "Bottom( this.form, 'IIDs' ); return false;" "order_bottom20.png"
</td>
<td nowrap>
<select name="IIDs" multiple size="15">
' For Each $IID in $IIDs
'  If $IID = "CGID"
'   If $Customer.Person.Groups.Count
<option value="$IID">顧客グループ</option>
'   EndIf
'  Elif $IID = "Code"
<option value="$IID">顧客コード</option>
'  Elif $IID = "Name"
<option value="$IID">名前</option>
'  Elif $IID = "Yomi"
<option value="$IID">よみ</option>
'  Elif $IID = "Section"
'   If ! $Customer.Person.Section.Disable
<option value="$IID">部課</option>
'   EndIf
'  Elif $IID = "Tel"
<option value="$IID">電話番号</option>
'  Elif $IID = "Mail"
<option value="$IID">メールアドレス</option>
'  Elif $IID = "User"
<option value="$IID">担当</option>
'  Elif $IID = "Post"
<option value="$IID">配信停止</option>
'  Elif $IID = "CompanyCGID"
'   If $Customer.Company.Groups.Count
<option value="$IID">会社グループ</option>
'   EndIf
'  Elif $IID = "CompanyCode"
<option value="$IID">会社コード</option>
'  Elif $IID = "CompanyName"
<option value="$IID">会社名</option>
'  Elif $IID = "CompanyYomi"
<option value="$IID">会社よみ</option>
'  Elif $IID = "CompanyTel"
<option value="$IID">電話番号(会社)</option>
'  Elif $IID = "CompanyUser"
<option value="$IID">担当(会社)</option>
'  Else
'   Set $Item = $Customer.Person.Items.$IID
'   If ! $Item
'    Set $Item = $Customer.Company.Items.$IID
'   EndIf
<option value="$IID">$Item.Name</option>
'  EndIf
' Next
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td>
<td nowrap valign="middle">
' Call cmButton "<< 追加" "AddMember( this.form, 'Items', 'IIDs' );"
<br><br>
' Call cmButton "削除 >>" "RemoveMember( this.form, 'IIDs' );"
</td>
<td nowrap>
<select name="Items" multiple size="15">
' If $Customer.Person.Groups.Count
<option value="CGID">顧客グループ</option>
' EndIf
<option value="Code">顧客コード</option>
<option value="Name">名前</option>
<option value="Yomi">よみ</option>
' If ! $Customer.Person.Section.Disable
<option value="Section">部課</option>
' EndIf
<option value="Tel">電話番号</option>
<option value="Mail">メールアドレス</option>
<option value="Post">配信停止</option>
' For Each $Item in $Customer.Person.Items
<option value="$Item.ID">$Item.Name</option>
' Next
<option value="User">担当者</option>
' If $Customer.Company.Groups.Count
<option value="CompanyCGID">会社グループ</option>
' EndIf
<option value="CompanyCode">会社コード</option>
<option value="CompanyName">会社名</option>
<option value="CompanyYomi">会社よみ</option>
<option value="CompanyTel">電話番号(会社)</option>
' For Each $Item in $Customer.Company.Items
<option value="$Item.ID">$Item.Name</option>
' Next
<option value="CompanyUser">担当者(会社)</option>
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td></tr>
</table>
</blockquote>
</p>
<p>
' Call formCheckBox "ItemName" "先頭行を項目名として無視する" $ItemName 1 "ItemName"
</p>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "アドレスデータのインポート実行ファイルを作成する" "" "PreSubmit( this.form, 'Items', 'IIDs' );" "location.href='$escBackURL';"
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>