[by_HT]

Не могу понять каким здесь можно образом сделать фильтр на таблицу Item:
FINDREC:

  DimOption::Item:
	BEGIN
	  Item."No." := DimCodeBuf.Code;
	  IF ItemFilter <> '' THEN
		Item.SETFILTER("No.",ItemFilter);
	  Found := Item.FIND(Which);
	  IF Found THEN
		CopyItemToBuf(Item,DimCodeBuf);
	END;

NEXTREC:

  DimOption::Item:
	BEGIN
	  Item."No." := DimCodeBuf.Code;
	  IF ItemFilter <> '' THEN
		Item.SETFILTER("No.",ItemFilter);
		ResultSteps := Item.NEXT(Steps);
	  IF ResultSteps <> 0 THEN
		CopyItemToBuf(Item,DimCodeBuf);
	END;