Показать сообщение отдельно
  #5 (permalink)  
Старый 16.08.2012, 09:23
Аватар для ksa
ksa ksa вне форума
CacheVar
Отправить личное сообщение для ksa Посмотреть профиль Найти все сообщения от ksa
 
Регистрация: 19.08.2010
Сообщений: 14,235

Антипример. Типа твоего...

Помогите мне сверстать вот эту небольшую страничку... У меня там что-то съезжает (на самом деле нет )

Class wrk.ZEN.Find Extends %ZEN.Component.page
{

/// Имя приложения, которому принадлежит эта страница.
Parameter APPLICATION;

/// Отображаемое имя для нового приложения.
Parameter PAGENAME;

/// Домен, используемый для локализации.
Parameter DOMAIN;

/// This Style block contains page-specific CSS style definitions.
XData Style
{
<style type="text/css">
/* default styles */
.b {
	background-color:#DCDCDC;
}
</style>
}

/// This XML block defines the contents of this page.
XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
<page enclosingClass="b" xmlns="http://www.intersystems.com/zen" title="">
<html>
	<h3>Полнотекстовый поиск по выполненным работам</h3>
</html>
<hgroup >
	<text size="100" id="find" />
	<button caption="Найти" onclick='zenPage.Find(); zenPage.Find()' />
</hgroup>
<spacer height="10" />
<tableNavigatorBar tablePaneId="table" />
<tablePane
	valueColumn="ID"
	id="table"
	sql=""
	rowSelect="true"
	pageSize="25" 
	useSnapshot="true"
	useKeys="true"
	ondblclick='zenPage.Select(zenThis.getValue("ID"))'
>
<column colName="ID" hidden="true" />
<column colName="job" header="Работа" width="30%" />
<column colName="who" header="Исполнитель" width="10%" />
<column colName="vers" header="Версия" width="5%" />
<column colName="txt" header="Описание" />
</tablePane>
</page>
}

Method Select(Id) [ Language = javascript ]
{
	top.location= 'wrk.ZEN.StageEdit.cls?id='+Id
}

Method Find() As %Status [ ZenMethod ]
{
	set text= ..%GetComponentById("find")
	set text= text.value
	quit:text="" $$$OK
	set str= ""
	for i=1:1:$L(text," ") set str=str_"'"_$P(text," ",i)_"'"_","
	set $E(str,$L(str),$L(str))=""
	set sql="select ID,Job->Name as job,Member->Name as who, vers->Name as vers, Text as txt from wrk.Stage where Text %CONTAINSTERM ("_str_")"
	set table= ..%GetComponentById("table")
	set table.sql= sql
	&js<zenPage.Refresh()>
	quit $$$OK
}

Method Refresh() [ Language = javascript ]
{
	this.getComponentById("table").executeQuery()
}

}
Ответить с цитированием