Имя: Пароль:
1C
1С v8
БП. Подбор ОС на определеном складе
0 НикДляЗапросов
 
05.07.12
22:22
Имеем много ОС двигаем их со склада на склад, не удобно подбирать без склада, так как ОС имееют одинаковые названия и распиханы по разным складам...
Чтобы мне такое запрограммировать чтобы раз и удобно?
1 KUBIK
 
05.07.12
22:28
запрос к РН МестонахождениеОСБухгалтерскийУчет
2 НикДляЗапросов
 
05.07.12
22:30
Угу, не понятно как фильтр на форму отбора ОС поставить
3 KUBIK
 
05.07.12
22:48
может создать новую форму списка с отбором по складам на основе данных РН (см. (1))
4 НикДляЗапросов
 
05.07.12
22:54
Непойдет, надо бы на Форму отбора фильтр по списку наложить
5 KUBIK
 
05.07.12
22:55
????
Обзови ее ФормаОтброаСклад и переназначь в документе(ах)
6 НикДляЗапросов
 
05.07.12
22:59
Ладно, все с тобой понятно
7 НикДляЗапросов
 
05.07.12
23:28
Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("Мол",Мол);
   Запрос.Текст =
   "ВЫБРАТЬ
   |    МестонахождениеОСБухгалтерскийУчет.ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОСБухгалтерскийУчет КАК МестонахождениеОСБухгалтерскийУчет
   |ГДЕ
   |    МестонахождениеОСБухгалтерскийУчет.МОЛ = &МОЛ";
   ТЗ = Запрос.Выполнить().Выгрузить();
   
   СЗ = Новый СписокЗначений;
   Сз = Тз.ВыгрузитьКолонку("ОсновноеСредство");
   
   
   СтандартнаяОбработка = Ложь;    
   Счетчик = 1;
   Пока Тз.ВыбратьСтроку() Цикл
       ЭтаФорма.СправочникСписок.Отбор.Ссылка.Значение = Сз[Счетчик];
       Счетчик = Счетчик + 1;
   КонецЦикла;
   ЭтаФорма.СправочникСписок.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;
   ЭтаФорма.СправочникСписок.Отбор.Ссылка.Использование = Истина;

   ЭтаФорма.СправочникСписок.Отбор.ЭтоГруппа.Установить(Ложь);
   ЭтаФорма.СправочникСписок.Отбор.ЭтоГруппа.Использование = Истина;

   ЭтаФорма.ЭлементыФормы.СправочникСписок.ИерархическийПросмотр = Ложь;
   ЭтаФорма.ЭлементыФормы.СправочникСписок.ИзменятьИерархическийПросмотр = Ложь;

   ЭтаФорма.Обновить();

Отбор правильный, но открывается другая форма, а не форма выбора, а хотелось бы туже
8 НикДляЗапросов
 
06.07.12
08:21
Апну, ну запомогите с отбором
9 НикДляЗапросов
 
06.07.12
09:02
апну
10 НикДляЗапросов
 
06.07.12
15:11
апну
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн