v8: Подбор Документов

20.08.2013 12:01

Прочитано: 5223

Процедура КоманднаяПанель1Подбор(Кнопка)

ФормаПодбора = Документы.ЗаказПокупателя.ПолучитьФормуВыбора(,ЭтаФорма.ЭлементыФормы.ТабличноеПоле1);
ФормаПодбора.ЗакрыватьПриВыборе = Ложь;
ФормаПодбора.РежимВыбора = Истина;
ФормаПодбора.Открыть();

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

Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)

НоваяСтрока = ЭлементыФормы.ТабличноеПоле1.ДобавитьСтроку();
НоваяСтрока.Заказ = ЗначениеВыбора;

КонецПроцедуры
Моя задача по кнопке подбор попасть в документы ЗаказыПокупателей (это у меня получается по первой процедуре). Потом выбранные документы нужно добавить в табличное поле внешней обработки. Это я пытаюсь сделать второй обработкой но у меня она не срабатывает. подскажите, пожалуйста, где ошибка.

Yandex

Возможно, вас также заинтересует

E_Migachev

20.08.2013 14:56

Ответ № 1

(0) astafeva, смотри пример Как сделать подбор элементов справочника в табличную часть документа?

Jonsony

20.08.2013 16:57

Ответ № 2

данная процедура по кнопке (кнопка расположена на управляемой форме внешней обработки) открывает множественный подбор документов "Перемещение товаров" и по результату отбора в зависимости от условий заполняет два списка значений на управляемой форме внешней обработки

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ВыбратьДокументы(Команда)

	

	// Вставить содержимое обработчика.

ЗначениеОтбора = Новый Структура("СкладОтправитель", Магазин);

ЗначениеОтбора = Новый Структура("СкладПолучатель", Магазин);

ПараметрыВыбора = Новый Структура("ЗакрыватьПриВыборе, МножественныйВыбор, Отбор", Истина, Истина, ЗначениеОтбора);

РезультатОтбора = ОткрытьФормуМодально("Документ.ПеремещениеТоваров.ФормаВыбора", ПараметрыВыбора);



Если РезультатОтбора <> Неопределено Тогда

	

   Для Каждого ВыбранныйЭлемент Из РезультатОтбора Цикл 

		РеквизитДокумента=ПолучитьРеквизитыДокумента(ВыбранныйЭлемент);

		//	   Если  Строка(ВыбранныйЭлемент.Статус) <> "Отгружено" Тогда	//должно быть <>

	   Если  Строка(РеквизитДокумента.Статус) = "Отгружено" Тогда

	   		НеТотСтатус=Истина;

	   		Продолжить;

	    КонецЕсли;			 

	   

	   Если РеквизитДокумента.СкладПолучатель=Магазин Тогда

			СтрокаВыгрузки = ДокументыВыгрузки.Добавить(ВыбранныйЭлемент);

		ИначеЕсли РеквизитДокумента.СкладОтправитель=Магазин Тогда

			СтрокаВозврата = ДокументыВозврата.Добавить(ВыбранныйЭлемент);

    	КонецЕсли;  

   КонецЦикла;   	

   

	Если НеТотСтатус=Истина Тогда

		Сообщить("В подборе были выбраны документы со статусом отличным от (Отгружено), данные документы были исключены из результатов подбора");

	КонецЕсли;

	

Иначе	

		Сообщить("Документы не выбраны!!!");

КонецЕсли;





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

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