' $System.Access Form
' $Command.Form.AccessFile $BS
' $AppliName = $WorkSpace.Forms.$BS.Name
' If $System.IsPost
'  $System.Redirect $Server?page=FormImportConfirm&wid=$WID&bs=$BS&fencoding=$fencoding
'  $Command.Form.SetPersonalImport
'  $ImportForm.BS = $BS
'  $ImportForm.Upload FileName
'  Exit
' 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
</head>
<body>
' $System.SetParameter BackURL "$Server?page=FormFile&wid=$WID&bs=$BS"
' $System.SetParameter URLFormIndex "$Server?page=FormIndex&wid=$WID&bs=$BS"
' Call cmHeader $CaptionTitle $URLFormIndex $AppliName $BackURL "ファイル入出力"
' Set $FormProfile = $Command.Form.GetFormTop $BS
<form method="post" action="$Server?" enctype="multipart/form-data">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="FormImport">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<p>$AppliNameのデータをCSVファイルから読み込みます。
' Call cmLink "[説明]" "" "$Server?page=FormCSVExplain&wid=$WID&bs=$BS" 0 1
</p>
<p>ファイル
' Call formFile "FileName"
</p>
''
' $DateTimeType = $FormProfile.DateTime.Type
' If ( $DateTimeType = 2 ) or ( $DateTimeType = 3 )
'  $DateTimeLabel = "日付, 時刻"
' Else
'  $DateTimeLabel = "日付"
' EndIf
''
' Set $Import = $Command.Form.GetPersonalImport $BS
' If $Import
'  $ItemName = $Import.ItemName
'  For Each $Item in $Import.Items
'   $System.AddParameter IIDs $Item.IID
'  Next
' Else
'  $ItemName = 1
'  If ( $DateTimeType = 2 ) or ( $DateTimeType = 3 )
'   $System.AddParameter IIDs "DateAndTime"
'  Else
'   $System.AddParameter IIDs "DateTime"
'  EndIf
'  $System.AddParameter IIDs "CTime"
'  $System.AddParameter IIDs "Creator"
'  $System.AddParameter IIDs "Code"
'  $System.AddParameter IIDs "Subject"
'  $System.AddParameter IIDs "Customers"
'  For Each $Item in $FormProfile.Items
'   $System.AddParameter IIDs $Item.ID
'  Next
'  $System.AddParameter IIDs "Comment"
' EndIf
<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 = "DateAndTime"
<option value="$IID">日時</option>
'  Elif $IID = "DateTime"
<option value="$IID">$DateTimeLabel</option>
'  Elif $IID = "CTime"
<option value="$IID">作成日時</option>
'  Elif $IID = "Creator"
<option value="$IID">作成者</option>
'  Elif $IID = "Code"
<option value="$IID">(番号)</option>
'  Elif $IID = "Subject"
<option value="$IID">件名</option>
'  Elif $IID = "Customers"
<option value="$IID">顧客</option>
'  Elif $IID = "Customer1"
<option value="$IID">顧客1 (コード, 会社名, 名前)</option>
'  Elif $IID = "Customer2"
<option value="$IID">顧客2 (コード, 会社名, 名前)</option>
'  Elif $IID = "Customer3"
<option value="$IID">顧客3 (コード, 会社名, 名前)</option>
'  Elif $IID = "Comment"
<option value="$IID">コメント</option>
'  Else
'   Set $Item = $FormProfile.Items.$IID
'   If $Item
<option value="$IID">$Item.Name</option>
'   EndIf
'  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 ( $DateTimeType = 2 ) or ( $DateTimeType = 3 )
<option value="DateAndTime">日時</option>
' EndIf
<option value="DateTime">$DateTimeLabel</option>
<option value="CTime">作成日時</option>
<option value="Creator">作成者</option>
<option value="Code">(番号)</option>
<option value="Subject">件名</option>
<option value="Customers">顧客</option>
<option value="Customer1">顧客1 (コード, 会社名, 名前)</option>
<option value="Customer2">顧客2 (コード, 会社名, 名前)</option>
<option value="Customer3">顧客3 (コード, 会社名, 名前)</option>
' For Each $Item in $FormProfile.Items
<option value="$Item.ID">$Item.Name</option>
' Next
<option value="Comment">コメント</option>
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td></tr>
</table>
</blockquote>
</p>
<p>
' Call formCheckBox "ItemName" "先頭行を項目名として無視する" $ItemName 1 "ItemName"
</p>
<p>文字コード\\
' Call formFEncoding
</p>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "次へ >>" "" "PreSubmit( this.form, 'Items', 'IIDs' );" "location.href='$escBackURL';"
</form>
' Call cmFooter $BackURL "ファイル入出力へ"
</body>
</html>