' $System.Access Form
' $Command.Form.AccessFile $BS
' $AppliName = $WorkSpace.Forms.$BS.Name
' If $System.IsPost
'  If $Cancel
'   $System.Redirect $Server?page=FormFile&wid=$WID&bs=$BS
'   $ImportForm.BS = $BS
'   $ImportForm.Cancel
'  Else
'   $System.Redirect $Server?page=FormImportExec&wid=$WID&bs=$BS&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=FormImport&wid=$WID&bs=$BS"
' $System.SetParameter URLFormFile "$Server?page=FormFile&wid=$WID&bs=$BS"
' $System.SetParameter URLFormIndex "$Server?page=FormIndex&wid=$WID&bs=$BS"
' Call cmHeader $CaptionTitle $URLFormIndex $AppliName $URLFormFile "ファイル入出力" $BackURL "履歴データの読み込み"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="FormImportConfirm">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<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=FormImportPreview&wid=$WID&bs=$BS&fencoding=$fencoding"></iframe></p>
'  Else
'   $Company = 1
<!--#include file="PartsFormImport.html"-->
'  EndIf
<p>
'  Call cmButton "<< 前へ" "location.href='$BackURL.JSEscape';"
'  Call formSubmit "" "読み込む"
'  Call formSubmit "Cancel" "キャンセルする"
</p>
</form>
' Call cmFooter $BackURL "履歴データの読み込みへ"
</body>
</html>