Имя: Пароль:
1C
1С v8
Заолнить по документам План Продаж по сценарию день
0 Смертник
 
28.11.12
11:52
Помогите уже всю голову сломал - необходимо заполнить табличную часть документа по документам План Продаж, отобранных по сценарию день. Ниже привожу код
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПолеОбъекта) Экспорт
   
   СценарииПланирования = Справочники.СценарииПланирования;
   Сценарий             = СценарииПланирования.НайтиПоНаименованию("День");
   
       ПланПродаж = Документы.ПланПродаж.ПолучитьФормуВыбора();
       ПланПродаж.Заголовок = "Выберите документ План продаж для заполнения документа Наряд на отгрузку";
       ПланПродаж.РежимВыбора = Истина;
       Наряд = ПланПродаж.ОткрытьМодально();
   
   Если НЕ ЗначениеЗаполнено(Наряд) Тогда
       Возврат;
   КонецЕсли;
   ЗаполнитьТабличнуюЧастьПоОприходованиюНаОсновании(Наряд, Объект, Истина);
   
КонецПроцедуры

Процедура ЗаполнитьТабличнуюЧастьПоОприходованиюНаОсновании(Наряд, Объект, Перезаполнение=Ложь) Экспорт
Перем Отказ;

Отказ = Ложь;

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

Как поставить условие на сценарий день для списка документов?
1 vicof
 
28.11.12
11:57
ПланПродаж.СправочникСписок.Отбор.Сценарий = ..., не?
2 Смертник
 
28.11.12
12:00
ПланПродаж = Документы.ПланПродаж.ПолучитьФормуВыбора(); после этой строки условие ставить?
3 vicof
 
28.11.12
12:01
ага
4 vicof
 
28.11.12
12:04
или так. Первая строчка, если колонки нет.
СправочникСписок.Колонки.Добавить("Сценарий");
СправочникСписок.Отбор.Сценарий.Установить(Сценарий);
5 Смертник
 
28.11.12
13:45
СценарииПланирования = Справочники.СценарииПланирования;
   Сценарий             = СценарииПланирования.НайтиПоНаименованию("День");
       
       ПланПродаж = Документы.ПланПродаж.ПолучитьФормуВыбора();
       Если Документы.ПланПродаж.Сценарий = Сценарий Тогда
           ПланПродаж.Заголовок = "Выберите документ План продаж для заполнения документа Наряд на отгрузку";
           ПланПродаж.РежимВыбора = Истина;
           Наряд = ПланПродаж.ОткрытьМодально();
       КонецЕсли;

Так?
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший