' $System.Access Customer
' $Command.Customer.AccessFile
' $System.NoWarning
' If ! $Start
'  $Company = 1
'  Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
'  Set $Import = $PersonalCustomer.ImportCompany
'  $ImportCompany.FileName = $Import.FileName
'  If ! $Line
'   $ImportCompany.ItemName = $Import.ItemName
'  EndIf
'  $ImportCompany.Line = $Line
'  $ImportCompany.Current = $Current
'  $ImportCompany.ReadAll = 0
'  $ImportCompany.WID = $WID
'  $fencoding = $Command.String.DecodeURLEncode $fencoding
'  $ImportCompany.Encoding = $fencoding
'  $System.SetParameter BURL "$Server?page=CustomerImportCompany&wid=$WID&vid=$VID"
'  $BackPage = "会社データの読み込み"
'  $Line = $ImportCompany.Import
'  $Current = $ImportCompany.Current
'  $FileSize = $ImportCompany.Size
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
''
' If $Line or $Start
<meta http-equiv="Refresh" content="0;URL=$Server?page=CustomerImportCompanyExec&wid=$WID&vid=$VID&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
</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>