Доброго дня, krvsa!
Мы делаем примерно так (скидываю весь класс):
Class WEBFORM.HOSPITAL.frmCardAllMedSettings Extends WEBFORM.Template.frmCardList
{
Parameter WINNAME = "Призначення";
XData Style
{
<style type="text/css">
#ctrlForm {
height: 400px;
}
</style>
}
XData tlbPane [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
<pane xmlns="http://www.intersystems.com/zen" title="">
<dataController id="dcAllMedSettings" modelClass="WEBFORM.DataModel.HOSPITAL.AllMedSettings"/>
<hgroup>
<vgroup align="left" valign="top" width="49%">
<label id="logName" hidden="true"/>
<tableNavigatorBar id="navTblSampleLog" tablePaneId="tblSampleLog"
showPageSize="true"
showFilter="false"
/>
<tablePane id="tblSampleLog" width="100%"
caption="Перелік журналів досліджень"
tableName="DATA_SES.SampleLog"
useSnapshot="true"
showFilters="true"
showZebra="false"
showQuery="false"
showRowSelector="false"
showRowNumbers="true"
pageSize="20"
fixedHeaders="false"
valueColumn="ID"
headerLayout="filtersOnTop"
maxRows="500"
useKeys="true"
autoExecute="true"
nowrap="false"
onselectrow="zenPage.rowSelected(zenThis);">
<column colName="ID" hidden="true"/>
<column colName="Name" header="Назва журналу досліджень" filterType="text" hidden="false"/>
</tablePane>
</vgroup>
<spacer width="5"/>
<vgroup align="left" valign="top" width="49%">
<hmenu id="menu">
<menuItem id ="menuInsertrowPN" caption="Додати вибрані дослідження"
onclick="zenPage.AddTargetList();"
help="Додати вибрані дослідження"
image="images/check.png"
/>
</hmenu>
<form controllerId="dcAllMedSettings" labelPosition="left" align="left">
<dateText showTime="false"
size="10"
label="Дата призначення"
format="DMY"
id="DatePrescription"
dataBinding="DatePrescription"
required="true" requiredMessage="Виберіть дату призначення"/>
</form>
<tableNavigatorBar tablePaneId="tblListTarget"
showPageSize="true"
showFilter="false"
/>
<tablePane id="tblListTarget" multiSelect="true" onupdate="zenPage.SelectTarget(zenThis);"
caption="Перелік цілей досліджень"
OnCreateResultSet="DataSet"
useSnapshot="true"
showFilters="true"
showZebra="false"
showQuery="false"
showRowSelector="false"
showRowNumbers="false"
pageSize="20"
fixedHeaders="false"
valueColumn="ID"
headerLayout="filtersOnTop"
maxRows="500"
useKeys="true"
autoExecute="true"
nowrap="false">
<column colName="ID" hidden="true"/>
<column colName="Name" header="Назва цілі дослідження" hidden="false"/>
</tablePane>
</vgroup>
</hgroup>
</pane>
}
ClientMethod SelectTarget(table) [ Language = javascript ]
{
var controller = zenPage.getComponentById('dcAllMedSettings');
var tblListTarget = zenPage.getComponentById('tblListTarget');
var lisTarget=controller.getDataByName('TargetIDList');
tblListTarget.setProperty('selectedRows',lisTarget)
}
Method DataSet(Output tSC As %Status, pInfo As %ZEN.Auxiliary.QueryInfo) As %ResultSet
{
Set tRS = ""
Set LogID = $Get(%session.Data("LogID"))
Set tSC = $$$OK
Set tSELECT = "ID,"
Set tSELECT =tSELECT_"target->Name As Name"
Set tFROM = "DATA_SES.ListTarget"
Set tWHERE = ""
Set tWHERE = "log->ID= '"_LogID_"'"
Set sql = "SELECT " _ tSELECT _ " FROM " _ tFROM
Set:tWHERE'="" sql = sql _ " WHERE " _tWHERE
Set tRS = ##class(%ResultSet).%New()
Set tSC = tRS.Prepare(sql)
Set pInfo.queryText = sql
Quit tRS
}
ClientMethod rowSelected(table) [ Language = javascript ]
{
var id = table.getValue();
this.WriteToSessionLogID(id);
var tblListTarget = zenPage.getComponentById('tblListTarget');
tblListTarget.executeQuery(true);
}
ClientClassMethod AddTargetList() [ Language = javascript ]
{
var logID=this.GetSessionData('LogID');
var table = this.getComponentById('tblListTarget');
var ListTarget=table.getProperty('selectedRows');
var dcAllMedSettings = zenPage.getComponentById('dcAllMedSettings');
dcAllMedSettings.setDataByName('TargetIDList', ListTarget);
dcAllMedSettings.setDataByName('log', logID);
dcAllMedSettings.save();
self.close();
}
Method WriteToSession(ID As %String) [ ZenMethod ]
{
do %session.Set("ObjectID", ID)
}
Method WriteToSessionLogID(ID As %String) [ ZenMethod ]
{
do %session.Set("LogID", ID)
}
/// This client event, if present, is fired when the page is loaded.
ClientMethod onloadHandler() [ Language = javascript ]
{
var f003Id=this.GetSessionData('sessionF003ID');
var controller = zenPage.getComponentById('dcF003');
controller.setModelId(f003Id);
controller.update();
var dateHosp = controller.getDataByName('DateHosp');
var ctrlDateRecord = zenPage.getComponentById('DatePrescription');
ctrlDateRecord.setProperty('minDate',dateHosp);
var Id = this.GetSessionData('ObjectID');
var dcAllMedSettings = zenPage.getComponentById('dcAllMedSettings');
dcAllMedSettings.setModelId(Id);
var LogID=this.GetSessionData('LogID');
if (LogID!='')
{
var tblSampleLog = zenPage.getComponentById('tblSampleLog');
tblSampleLog.setProperty('hidden',1);
var navTblSampleLog = zenPage.getComponentById('navTblSampleLog');
navTblSampleLog.setProperty('hidden',1);
var tblListTarget = zenPage.getComponentById('tblListTarget');
tblListTarget.executeQuery(true);
var logName = zenPage.getComponentById('logName');
var logNameValue = dcAllMedSettings.getDataByName('logName');
logName.setProperty('value',logNameValue);
logName.setProperty('hidden',0);
}
}
/// This client event, if present, is fired when the page is unloaded.
/// If this method returns a string value, then that is used as the
/// return value of the HTML page's onbeforeunload handler (if more than
/// one component returns a string, the first one encountered is used).
ClientMethod onunloadHandler() [ Language = javascript ]
{
this.WriteToSessionLogID('');
}
}
