kravtВариант загрузки файла в БД:

Class AttachedFile Extends %Persistent
{

Property FileData As %Stream.GlobalBinary;

Property FileName As %String;

Property FileSize As %Integer;

}

Class FileUpload Extends %ZEN.Component.page
{
Parameter APPLICATION = "TestUploadFile";

Parameter PAGENAME = "UploadFile";

/// Domain used for localization.
Parameter DOMAIN;

/// This Style block contains page-specific CSS style definitions.
XData Style
{
<style type="text/css">
</style>
}

/// This XML block defines the contents of this page.
XData Contents [ XMLNamespace = " http://www.intersystems.com/zen" ]
{
<page xmlns=" http://www.intersystems.com/zen" title="">
<form id="FileForm" labelPosition="left" enctype="multipart/form-data"><!-- should be enctype="multipart/form-data" -->
<fileUpload label="File:" id="File" name="File"/>
<hgroup align="right">
<submit caption="Submit" action="submit"/><spacer width="5"/>
<button caption="Cancel" onclick="window.close();"/>
</hgroup>
</form>
</page>
}

/// Загрузка файла в базу как %Stream.GlobalBinary
ClassMethod %OnSubmit(pSubmit As %ZEN.Submit) As %Status
{
if $data(%request.MimeData("$V_File",1))&&$isobject(%request.MimeData("$V_File",1)) {

set FileObj =##class(AttachedFile).%New()
set FileObj.FileName = %request.MimeData("$V_File",1).FileName
set FileObj.FileSize = %request.MimeData("$V_File",1).Size
set FileObj.FileData = ##class(%Stream.GlobalBinary).%New()

set stream = %request.GetMimeData("$V_File",1)
Set status = FileObj.FileData.CopyFrom(stream)
set status = FileObj.%Save()

if $$$ISOK(status) {
set ^CacheTempPav($zh,"rc")="OK"
} else {
do $system.Status.DecomposeStatus(status, .errors)
merge ^CacheTempPav($zh,"rc")=errors
}
set status = FileObj.%Close()
}

Quit $$$OK
}

}

Подскажите, как при нажатии Submit закрыть окно добавления файла вызванное через zenPage.launchPopupWindow и обновить табличку со списком файлов!?

П.С.М.arminПодскажите, как при нажатии Submit закрыть окно добавления файла вызванное через zenPage.launchPopupWindow

window.close() не работает?
armin и обновить табличку со списком файлов!?
перерисовать эту табличку.

НЕТ не помагает!

Получаеться, что я форму закрываю но сабмит еще не сработал потому таблица и не обновляетья! Как сделать, что бы %OnSubmit срабатывал раньше чем SaveExit() ???