' $System.Access Form
' $Command.Form.AccessFile $BS
' $System.NoWarning
' If ! $Start
'  Set $PersonalImport = $Command.Form.GetPersonalImport $BS
'  $ImportForm.BS = $BS
'  $ImportForm.FileName = $PersonalImport.FileName
'  If ! $Line
'   $ImportForm.ItemName = $PersonalImport.ItemName
'  EndIf
'  $ImportForm.Line = $Line
'  $ImportForm.Current = $Current
'  $ImportForm.ReadAll = 0
'  $fencoding = $Command.String.DecodeURLEncode $fencoding
'  $ImportForm.Encoding = $fencoding
'  $System.SetParameter BURL "$Server?page=FormImport&wid=$WID&bs=$BS"
'  $BackPage = "履歴データの読み込み"
'  $Line = $ImportForm.Import
'  $Current = $ImportForm.Current
'  $FileSize = $ImportForm.Size
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Line or $Start
<meta http-equiv="Refresh" content="0;URL=$Server?page=FormImportExec&wid=$WID&bs=$BS&line=$Line&current=$Current&fencoding=$fencoding">
'  $CaptionTitle = "履歴データのCSVファイルからの読み込み(実行中)"
'  Call cmHead $CaptionTitle
</head>
<body>
'  Call cmHeaderBasic
''
'  Sub temp_mainColumn
<div class="desc">
'  If $Start
CSVファイルから履歴データを読み込みます。しばらくお待ち下さい。
'  Else
CSVファイルから履歴データを読み込んでいます。しばらくお待ち下さい。
<blockquote>
<b>$Line</b>行読み込みました。引き続きデータを読み込み中です。
<table border="1" width="400" cellspacing="0" cellpadding="2" bgcolor="#ffffff"><tr>
'   $RT = $System.Rate $Current $FileSize
'   If $RT
<td width="$RT%" nowrap bgcolor="#0000ff"><br></td>
'   EndIf
<td nowrap><br></td>
</tr></table>
</blockquote>
'  EndIf
</div>
<div class="desc">※ ブラウザをそのままにしてお待ち下さい。<br>
　 ブラウザを閉じたり、中止ボタンや更新ボタンを押さないでください。<br>
　 (履歴データが途中まで読み込まれ、破損などの原因になる場合があります)<br>
</div>
'  EndSub
'  Call layout_view "" "" 0 temp_mainColumn
'  Call cmFooter
</tr></table>
</body>
' Else
'  $CaptionTitle = "履歴データのCSVファイルからの読み込み(完了)"
'  Call cmHead $CaptionTitle
</head>
<body>
'  $AppliName = $WorkSpace.Forms.$BS.Name
'  $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 "ファイル入出力"
'  Sub mainColumn
<div class="desc">
履歴データのCSVファイルからの読み込みが正常に終了しました。
</div>
'  EndSub
'  Call layout_view "" "" 0 mainColumn
'  Call cmFooter $BackURL "ファイル入出力へ"
</body>
' EndIf
</html>