Интерфейс с memo-полями

[Руслан]

Может кто писал свой интерфейс с выводом мемо-полей?? Поделитесь примером...

[LaaLaa]

Полный исходный код примера можно скачать здесь: PrintPictures_src_rus.zip
См. также этот пример на видео:

[LaaLaa]

Фрагмент из примера SelectPersons.vip

Код: Выделить всё

  Text memoid=memo1 Appendix.Contents;
    show at (,16,,);

[Руслан]

LaaLaa, спасибо! Буду разбираться..

[Руслан]

А как организовать вывод нескольких значений мемо-полей в одном фейсе, что-то типа справочника???

[Руслан]

Одну запись выводит, но если делать view c несколькими значениями, то все равно выводит первую запись...

Код: Выделить всё

Interface SelectMemo;

 show at (6,6,65,20)

	var
	 cnRec   : comp;

  create view
  as select *
	 from attrval, ttndoc, basedoc
	 where
	 ((
      cnRec  ==  attrval.nrec
	  and attrval.CREC == ttndoc.NREC
	  and TTNDOC.CDOC == BaseDoc.Nrec
	 ));

	 parameters cnRec;

browse brSelPers;
  show at (,,,10);
  table basedoc;

fields
  Basedoc.nodoc  'Номер документа': [20];
end;



panel panText;
  show at (,11,,);

Text memoid=memo1 Attrval.vlvar 'Мемо-поле';
end;

handleevent
		cmInit:
		{
				Rescanpanel(#basedoc);
		}
  end;

End.

[Den]

Вы бы лучше вариант привели Вашей вью сконструированной которая кажет некорректно данные. А то мы тут телепатическими возможностями не обладаем...

Для начала точно нужно указать таблицу панели
...
panel panText;
show at (,11,,);
Table attrval;
...

[Руслан]

Вот вьюха:

Код: Выделить всё

  create view
  as select *
	 from attrval, ttndoc, basedoc
	 where
	 ((
	 word(1150) == attrnam.wtable
	 and attrnam.NREC == attrval.CATTRNAM
	 and attrval.CREC == ttndoc.NREC
	 and TTNDOC.CDOC == BaseDoc.Nrec
	 and 'Особые заявления отправителя (4)' ==    attrnam.name
	 ));

Запрос возвращает дофига записей, но в фейс выводит только первую...

[Den]

Запрос в саппорте и view интерфейса с отображением ее в визуальных форматах - это разные вещи.

При Вашем варианте вью запаритесь делать чтобы выводилось как нужно. Весь вопрос в том, что Вы хотите в browse brSelPers отображать только те ДО у которых есть атрибут, или все ? если все, то нужно переделать ЛОТ чтобы корневой таблицей считалась basedoc аля :

BaseDoc.Nrec == TTNDOC.CDOC
and word(1102) == ttndoc.wtable
and ttndoc.nrec == attrval.CREC
and word(1150) == attrval.wtable
and нрек атрибута 'Особые заявления отправителя (4)' == attrval.cattrnam


тогда будет корректно отображаться все, правда все ДО будут в бравсе. если нужны тока ДО у которых есть атрибуты, то можно конечно использовать /== но это будет жесть при больших объемах данных. Как вариант, переливка во временную таблу таких записей ДО и ЛОТ останется той же самой что я привел, тока вместо узла BaseDoc будет эта временная таблица.

[Руслан]

Вообще, мне данные basedoc не нужны. Нужно, чтобы в фейсе отображались данные атрибута типа мемо, которые не пустые....

[Руслан]

Den, а есть какой-то принцип, метод построения view для интерфейсов????

[Den]

Вообще, мне данные basedoc не нужны. Нужно, чтобы в фейсе отображались данные атрибута типа мемо, которые не пустые....

ну они к чему то же должны отображаться ?? или это будет похоже на каталог какой то )

[zna]

.... Как вариант, переливка во временную таблу таких записей ДО ..., тока вместо узла BaseDoc будет эта временная таблица.

-
вот это и есть один из методов построения view для интерфейсов.

[Руслан]

ну они к чему то же должны отображаться ?? или это будет похоже на каталог какой то )

Именно каталог и нужен...

[Den]

Интересно, а это как ...как Вы представляете себе визуально редактор-мемо-поля = text к разным записям attrval в виде бравсе что ли ?