Class DATA.BookLessonTheory Extends (%Persistent, %ZEN.DataModel.Adaptor)
{

Property NumbersLTheory As %String;

Property TextOfLTheoryFile As %Stream.GlobalBinary;}

<dataController modelId="" id="theoryctrl"  modelClass="DATA.BookLessonTheory" />
<tablePane id="theorytable"
 tableName="DATA.BookLessonTheory"
 onselectrow="zenPage.loadRecordTheory(zenThis.getValue());"
 valueColumn="ID">

 <column header="ID" id="theoryID" colName="ID" hidden="true" />
 <column header="Номер" colName="NumbersLTheory" width="60" filterType="text" />

 </tablePane>

<iframe name="frameTextTheory"  id="frameTextTheory" hidden="true"  width="560" height="315"  />

Method loadRecordTheory(id) [ Language = javascript ]
{	
	var fileIframe = zenPage.getComponentById('frameTextTheory');
	fileIframe.setProperty("hidden",true);
	
	var controller4 = zenPage.getComponentById('theoryctrl');
	controller4.setProperty("modelId",id);
	
	var textfile=controller4.getDataByName('TextOfLTheoryFile');
	var urlfile="%25CSP.StreamServer.cls?STREAMOID=";

        fileIframe.setProperty("src",urlfile+textfile);
        fileIframe.setProperty("hidden",false);
}

ClassMethod %OnSubmit(pSubmit As %ZEN.Submit) As %Status
{
if $data(%request.MimeData("$V_File",1))&&$isobject(%request.MimeData("$V_File",1)) {

	set FileObj =##class(DATA.BookLessonTheory).%OpenId(%session.Get("IDBookFileTutor"))
	set FileObj.TextOfLTheoryFile = ##class(%Stream.GlobalBinary).%New()

	set stream = %request.GetMimeData("$V_File",1)
	do stream.SetAttribute("ContentType","application/msword")
	
	Set status = FileObj.TextOfLTheoryFile.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
}