v8: Обработка ОповеститьОВыборе

 Процедура ПодборПартий(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;

	ВыбраннаяСтрока = ЭлементыФормы.тпПодбор.ТекущиеДанные.Ссылка;

	БухгалтерскийУчет.ПодборПартий(ЭтаФорма,ВыбраннаяСтрока,МХоткуда,Дата);

КонецПроцедуры   

 Процедура ПодборПартий(ЭтаФорма,ВыбраннаяСтрока,МХ,Дата) Экспорт

	

	Перем Код,ТМЦ;

	Перем СтруктураПараметров;

	

	СтандартнаяОбработка = Ложь;

	

	ТМЦ                   = ВыбраннаяСтрока.Наименование;

	Код                   = ВыбраннаяСтрока.Код; 

	

	ФормаОбработки=Обработки.ПодборПартии.Создать();

    ФормаВводПараметров = ФормаОбработки.ПолучитьФорму("ПодборПартии", ЭтаФорма);

	

	ФормаВводПараметров.Заголовок              = Врег(ТМЦ);

	ФормаВводПараметров.тхтКод                 = Код;

	ФормаВводПараметров.тхтТМЦ                 = ТМЦ;

	//------------------------------------------------------------------------

	//СтрокаПодбора = ЭлементыФормы.тпПодбор.ТекущиеДанные.Ссылка;

	

           // ЗАПРОС (Сам Алгоритм) ……..



	Запрос.УстановитьПараметр("Дата",КонецДня(Дата) );

	Запрос.УстановитьПараметр("ТМЦ",ВыбраннаяСтрока );

	Запрос.УстановитьПараметр("МХ",МХ );



	

	Выборка = Запрос.Выполнить().Выбрать();

	//------------------------------------------------------------------------

	Пока Выборка.Следующий() Цикл

				

		НВС=ФормаВводПараметров.Партии.Добавить();// НВС=НоваяСтрока

		НВС.Контрагент       = Выборка.Контрагент;

		НВС.ТМЦ        		 = Выборка.ТМЦ;

		НВС.Партия    		 = Выборка.Партия;

		НВС.Характеристика   = Выборка.Характеристика;

		НВС.Цена1го    		 = Выборка.Цена1гоОстаток;

            	НВС.Цена        	 = Выборка.ЦенаОстаток;

		НВС.Остаток  	 = Выборка.КоличествоОстаток;

		

	КонецЦикла;

	

	СтруктураПараметров = ФормаВводПараметров.ОткрытьМодально();

	

КонецПроцедуры   

 Процедура ПартииВыбор(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка)  Экспорт

	

	//Перем ТМЦ,Количество;

	//Перем СтруктураПараметров;

		

	СтандартнаяОбработка=Ложь;

	

	Количество=1;

	//

	ТМЦ=ВыбраннаяСтрока.ТМЦ;

	

	СтруктураПараметров = Новый Структура;

	СтруктураПараметров.Вставить("ТМЦ", ТМЦ);

	СтруктураПараметров.Вставить("Количество", Количество);

	ОповеститьОВыборе(СтруктураПараметров);





КонецПроцедуры   

 

Процедура тблТМЦОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)



	Перем СтруктураПараметров;

	

	НВС=тблТМЦ.Добавить();

	//НВС.ТМЦ=СтруктураПараметров.ТМЦ;



	

КонецПроцедуры