Вопрос по MARKEDONLY - NAV: Программирование

foxsoft2005 · 11.04.2007, 18:35

Всем привет!

Собственно, вопрос вот какой:
есть переменная типа record, для данной переменной вызывается модально форма, в которой пользователь через Ctrl + F1 маркирует записи. Можно ли вернуть эти записи после того, как пользователь, промаркировав нужное, нажал кноку Ок?

balashov · 11.04.2007, 19:19

Цитата:

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

Всем привет!

Собственно, вопрос вот какой:
есть переменная типа record, для данной переменной вызывается модально форма, в которой пользователь через Ctrl + F1 маркирует записи. Можно ли вернуть эти записи после того, как пользователь, промаркировав нужное, нажал кноку Ок?

Можно чуть по другому сделать:
Пример:

Код:

IF fWarehouseShipmentList.RUNMODAL = ACTION::LookupOK THEN BEGIN
  fWarehouseShipmentList.SetSelection(pWarehouseShipmentHeader);
  fWarehouseShipmentList.GETRECORD(pWarehouseShipmentHeader);
  IF pWarehouseShipmentHeader.FIND('-') THEN 
	repeat
	  //в цикле получаеш эти записи
	until pWarehouseShipmentHeader.NEXT=0;

Ну а в самой списочной форме которая будет открываться для выбора нужна новая функция:

Код:

SetSelection(VAR pWarehouseShipmentHeader : Record "Warehouse Shipment Header")
CurrForm.SETSELECTIONFILTER(pWarehouseShipmentHeader);

причем пользователю достаточно выделить выбранные записи, не нажимая cntrl + F11

foxsoft2005 · 11.04.2007, 22:15

Отличная идея! Весьма Вами благодарен!

foxsoft2005 · 12.04.2007, 09:41

Все работает, спасибо!
Только одна поправка: перед модальным вызовом формы нужно добавить

[codebox]fWarehouseShipmentList.LOOKUPMODE := TRUE[/codebox]

romeo · 12.04.2007, 10:41

А еще можно в вызываемой модально форме написать функцию, назвать ее допустим GetCopyRec(). В качестве параметра VAR передавать ей тот же рек, на котором построена форма. Текст функции

Код:

GetMarketRec(VAR _Rec)
  _Rec.COPY(Rec);

Тогда вы можете получать маркированные (да и как вы понимаете любые другие записи, ибо COPY копирует фильтры, марки и тд) записи. Вызов подобен этому :

Код:

_Form.SETTABLEVIEW(НужнаяРека);
_Form.LOOKUPMODE(TRUE);
IF _Form.RUNMODAL = ACTION::LookupOK THEN BEGIN
  _Form.GetCopyRec(НужнаяРека);
END;

После этого можно вызывать НужнаяРека.MARKEDONLY(TRUE);, бегать по ней в цикле, что угодно ...