' $System.Access Customer
' $Command.Customer.AccessFile
' If $System.IsPost
'  If $Cancel
'   $System.Redirect $Server?page=CustomerFile&wid=$WID&vid=$VID
'   $ImportCompany.Cancel
'  Else
'   $System.Redirect $Server?page=CustomerImportCompanyExec&wid=$WID&vid=$VID&start=1&fencoding=$fencoding
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' $CaptionTitle = "読み込みの確認"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=CustomerImportCompany&wid=$WID&vid=$VID"
' $System.SetParameter URLCustomerFile "$Server?page=CustomerFile&wid=$WID&vid=$VID"
' $System.SetParameter URLCustomerIndex "$Server?page=CustomerIndex&wid=$WID&vid=$VID"
' Call cmHeader $CaptionTitle $URLCustomerIndex $WorkSpace.Customer.Name $URLCustomerFile "ファイル入出力" $BackURL "会社データの読み込み"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerImportCompanyConfirm">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="fencoding" value="$fencoding">
<p>CSVファイルの内容(5行分まで)</p>
'  If $Env.IsMSIE
<p><iframe width="95%" height="200" marginwidth="0" marginheight="0" src="$Server?page=CustomerImportPreview&wid=$WID&vid=$VID&company=1&fencoding=$fencoding"></iframe></p>
'  Else
'   $Company = 1
<!--#include file="PartsCustomerImport.html"-->
'  EndIf
'  Call cmButton "<< 前へ" "location.href='$BackURL.JSEscape';"
'  Call formSubmit "" "読み込む"
'  Call formSubmit "Cancel" "キャンセルする"
</form>
' If $VID
'  Call cmChildFooter $BackURL "会社データの読み込みへ"
' Else
'  $BS = -2
'  Call cmFooter $BackURL "会社データの読み込みへ"
' EndIf
</body>
</html>