Обработка промаркированных записей

[Iceman]

На форме есть кнопка.
На кнопке код:

ForExport.COPY(Rec);
CurrForm.SETSELECTIONFILTER(ForExport);
ForExport.MARKEDONLY(TRUE);
MESSAGE:=FORMAT(ForExport.COUNT);
Mgt.ExportBody(ForExport,2);

MESSAGE выводит значение 1 сколько бы записей я не пометил... всё перепробовал, не работает. В функцию передаётся одна запись.
Это полбеды. Вторая беда:
Как организовать перебор записей в вызываемой функции?
То, что написано там сейчас после всех мучений с функцией:

Function ExportBody(JnlRecord: Record, Option:.....)

LRecord.COPY(JnlRecord);
LocRecord.COPYFILTERS(LRecord);
//LocRecord.MARKEDONLY(TRUE);

IF LocRecord.FIND('-') THEN
	REPEAT

	MESSAGE('Record Found');

	.............................................

	UNTIL LocRecord.NEXT = 0;

Понимаю что решение в функции неверное, но довести до ума никак не могу.
Помогите разобраться...

З.Ы. Записи маркируются по Ctrl+F1

[Milk]

Насчет первого куска кода: SETSELECTIONFILTER(Record) фильтрует не маркированные записи, а выделенные в форме синим цветом (если таких нет, то возьмется запись, на которой стоит курсор), и маркирует их в переменной Record. Вторые полбеды я не понял

[Iceman]

ForExport.COPY(Rec);
CurrForm.SETSELECTIONFILTER(Rec);

ForExport.MARKEDONLY(TRUE);

MESSAGE:=FORMAT(ForExport.COUNT);

Выдает верное количество промаркированных записей, но записи "пропадают" из формы...
Что делать?...

Цитата:

Сообщение от Milk

Насчет первого куска кода: SETSELECTIONFILTER(Record) фильтрует не маркированные записи, а выделенные в форме синим цветом, и маркирует их в переменной Record

А как в таком случае сделать маркер по Ctrl+F1?

[Milk]

Очевидно, MARKEDONLY(TRUE) . Записи у вас пропадают тоже из-за SETSELECTIONFILTER. Он вам вообще не нужен в данных обстоятельствах.

[Iceman]

Цитата:

Сообщение от Milk

Очевидно, MARKEDONLY(TRUE) . Записи у вас пропадают тоже из-за SETSELECTIONFILTER. Он вам вообще не нужен в данных обстоятельствах.

Точно
Разобрался...
А каким образом будет корректно перебрать записи на втором участке?

[romeo]

В функции ExportBody() параметр JnlRecord нужно передавать ВАРом, чтобы с него снялись фильтры и марки. КОПИФИЛЬТЕРС можно убрать, достаточно одного КОПИ.

[Iceman]

Огромное спасибо!
Заработало ©

[Iceman]

З.Ы.
Пользуясь случаем хотел поитересоваться философским смыслом условия "IF LocRecord.FIND('-') THEN"...
Как оно работает?

[randrews]

Цитата:

Сообщение от Iceman

З.Ы.
Пользуясь случаем хотел поитересоваться философским смыслом условия "IF LocRecord.FIND('-') THEN"...
Как оно работает?

Ищет первую запись с учетом фильтров и ключа. Если находит, то присваивает переменной LocRecord значения полей из найденой записи. И возвращает TRUE. Если не находит, то переменная LocRecord остается нетронутой и возвращает FALSE.

Да.... забыл филосовский смысл
Очень часто используется в связке

IF LocRecord.FIND('-') THEN
	REPEAT
	UNTIL LocRecord.NEXT = 0;

чтобы пробежаться по все записям и что-то с ними сделать

[Iceman]

Цитата:

Сообщение от randrews

Ищет первую запись с учетом фильтров и ключа. Если находит, то присваивает переменной LocRecord значения полей из найденой записи. И возвращает TRUE. Если не находит, то переменная LocRecord остается нетронутой и возвращает FALSE.

Да.... забыл филосовский смысл
Очень часто используется в связке

IF LocRecord.FIND('-') THEN
	REPEAT
	UNTIL LocRecord.NEXT = 0;

чтобы пробежаться по все записям и что-то с ними сделать

Я так понимаю в данном случае '-' - и есть сам ключ. Именно он меня и интересует.
Остальное очевидно... =)

[romeo]

Цитата:

Сообщение от Iceman

Я так понимаю в данном случае '-' - и есть сам ключ. Именно он меня и интересует.
Остальное очевидно... =)

Можно почитать справку по кодингу в нави.. Это помогает на первых порах. Извините за резкость.
Просто будучи людьми рациональными и я и Вы понимаем - нажать F1 выйдет намного быстрее, чем писать пост на форум.

[Iceman]

Цитата:

Сообщение от romeo

Можно почитать справку по кодингу в нави.. Это помогает на первых порах. Извините за резкость.
Просто будучи людьми рациональными и я и Вы понимаем - нажать F1 выйдет намного быстрее, чем писать пост на форум.

Ясно, спасибо.
F1 - наше всё

З.Ы. Штудировал я справки... но ведь не факт что я всё понял верно?

[randrews]

Цитата:

Сообщение от Iceman

Ясно, спасибо.
F1 - наше всё
З.Ы. Штудировал я справки... но ведь не факт что я всё понял верно?

Даже заинтересовало, что там написано такого сложного, что можно понять неверно Полез сам в справку

Цитата:

'-' The first record in the table ('-' can only be used alone)

"первая запись в таблице"...

[Greggy_imported]

может я ошибаюсь конечно ... но тут двояко ... все таки не первая запись в таблице а первая запись в рекордсете ограниченном фильтрами ... ну и если фильтров нет то в таблице

[randrews]

Цитата:

Сообщение от Greggy

может я ошибаюсь конечно ... но тут двояко ... все таки не первая запись в таблице а первая запись в рекордсете ограниченном фильтрами ... ну и если фильтров нет то в таблице

Да, Вы правы. Фраза вырванная из контекста выглядит двояко.

Там комментарии есть в хелпе еще

Comments
FIND retrieves the first record that meets the conditions set by SearchStr and the filters associated with Record. The search path reflects the sort order defined by the current key  ....

и т.п.