' $System.Access Customer
' $Command.Customer.AccessFile
' $System.NoWarning
' If ! $Start
'  Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
'  Set $Import = $PersonalCustomer.ImportPerson
'  $ImportPerson.FileName = $Import.FileName
'  If ! $Line
'   $ImportPerson.ItemName = $Import.ItemName
'  EndIf
'  $ImportPerson.Line = $Line
'  $ImportPerson.Current = $Current
'  $ImportPerson.ReadAll = 0
'  $ImportPerson.WID = $WID
'  $fencoding = $Command.String.DecodeURLEncode $fencoding
'  $ImportPerson.Encoding = $fencoding
'  $System.SetParameter BURL "$Server?page=CustomerImportPerson&wid=$WID&vid=$VID"
'  $BackPage = "顧客データの読み込み"
'  $Line = $ImportPerson.Import
'  $Current = $ImportPerson.Current
'  $FileSize = $ImportPerson.Size
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Line or $Start
<meta http-equiv="Refresh" content="0;URL=$Server?page=CustomerImportPersonExec&wid=$WID&vid=$VID&line=$Line&current=$Current&fencoding=$fencoding">
'  $CaptionTitle = "顧客データのCSVファイルからの読み込み(実行中)"
'  Call cmHead $CaptionTitle
</head>
<body>
'  Call cmHeaderBasic
''
'  Sub temp_mainCoulmn
<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 class="desc">※ ブラウザをそのままにしてお待ち下さい。<br>
　 ブラウザを閉じたり、中止ボタンや更新ボタンを押さないでください。<br>
　 (会社データが途中まで読み込まれ、破損などの原因になる場合があります)<br>
</div>
'  EndSub
'  Call layout_view "" "" 0 temp_mainCoulmn
'  Call cmFooter
</body>
' Else
'  $CaptionTitle = "顧客データのCSVファイルからの読み込み(完了)"
'  Call cmHead $CaptionTitle
</head>
<body>
'  $System.SetParameter BackURL "$Server?page=CustomerFile&wid=$WID&vid=$VID"
'  $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID&vid=$VID"
'  Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $BackURL "ファイル入出力"
'  Sub mainColumn
<div class="desc">
顧客データのCSVファイルからの読み込みが正常に終了しました。
</div>
'  EndSub
'  Call layout_view "" "" 0 mainColumn
'  If $VID
'   Call cmChildFooter $BackURL "ファイル入出力へ"
'  Else
'   $BS = -2
'   Call cmFooter $BackURL "ファイル入出力へ"
'  EndIf
</body>
' EndIf
</html>