Имя: Пароль:
1C
1С v8
УПП: Помогите с графиком заказов
0 discant
 
13.07.12
13:40
!Здравствуйте
Есть обработка для создания серии подчиненных заказов на производство.
Для наглядности приведу код процедуры формирования заказов первого уровня:

Для каждого СтрокаТабличнойЧасти из ПроизвЗаказ.Продукция Цикл        
                           Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
СрокИзготовленияГоловы = РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Новый Структура("Объект,Свойство",Номенклатура,ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Срок изготовления"))).Значение;  
Если СрокИзготовленияГоловы = Неопределено Тогда
                                        СрокИзготовления = 0;
                                        КонецЕсли;
КонецЦикла;                            
       Для каждого строкаТабличнойЧасти из ПроизвЗаказ.Материалы Цикл    
           Если СтрокаТабличнойЧасти.ВидВоспроизводства <> Перечисления.ВидыВоспроизводстваНоменклатуры.Производство Тогда
                Продолжить;
               КонецЕсли;
           Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
           
                   ЗП = Документы.ЗаказНаПроизводство.СоздатьДокумент();    
           ЗаполнениеДокументов.ЗаполнитьШапкуДокументаПоОснованию(ЗП, ПроизвЗаказ);
           ЗП.ОсновнойЗаказНаПроизводство = ПроизвЗаказ;
           Подразделение = РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Новый Структура("Объект,Свойство",Номенклатура,ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Подразделения"))).Значение;
           Если Подразделение = Неопределено  Тогда
                           // Предупреждение("Свойство <Подразделения> элемента" + Номенклатура + "не заполнено. Заказ для этой подсборки не может быть создан");
                           Продолжить;
                           КонецЕсли;
                                   ЗП.Подразделение = Подразделение;
                       
                                   ЗП.Дата = ТекущаяДата();
           ЗП.ДатаИсполнения = ПроизвЗаказ.ДатаИсполнения -86400 - СрокИзготовленияГоловы*86400;
СрокИзготовления = РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Новый Структура("Объект,Свойство",Номенклатура,ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Срок изготовления"))).Значение;  
Если СрокИзготовления = Неопределено Тогда
                                        СрокИзготовления = 0;
                                        КонецЕсли;
           
                       ЗП.ДатаЗапуска = ЗП.ДатаИсполнения - СрокИзготовления*86400;
           
                               ЗП.УстановитьНовыйНомер(ПроизвЗаказ.Организация.Префикс);
           ЗП.Ответственный =  глЗначениеПеременной("глТекущийПользователь");
                           НоваяСтрока = ЗП.Продукция.Добавить();        
   ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТабличнойЧасти);
                       НоваяСтрока.Спецификация = УправлениеПроизводством.ОпределитьСпецификациюПоУмолчанию(НоваяСтрока.Номенклатура, НоваяСтрока.ХарактеристикаНоменклатуры, ЗП.Дата, ЗП.Подразделение);
                       Если НЕ ЗначениеЗаполнено(НоваяСтрока.Спецификация) Тогда
           Продолжить;
       КонецЕсли;
       ЗП.ЗаполнитьМатериалыПоСпецификации(ЗП.Материалы, "Материалы");
                                                               ЗП.Записать(РежимЗаписиДокумента.Проведение);
           Сообщить("Документ "+СокрЛП(ЗП));    
               КонецПроцедуры                                                                          
       

После формирования эти заказы попадают в структура подчиненности заказа-основания, однако, когда строишь диаграмму Ганта типовой обработкой График заказов, не видно ни структуры подчиненности, ни связей.
Может, у кого есть мысли, почему все так печально?
Заранее спасибо!
1 discant
 
13.07.12
14:30
Миста спит?
2 discant
 
13.07.12
15:01
АУУУУУ
3 Нуф-Нуф
 
13.07.12
15:02
бухают
4 discant
 
13.07.12
17:17
(3)К сожалению, в решении проблемы это не помогает(((((
5 discant
 
16.07.12
08:55
Доброе утро!
Надеюсь, Миста уже проснулась и отошла от выходных?
Все также интересует вопрос, описанный в (0).
6 discant
 
16.07.12
12:19
Люди, неужели никто не юзал график заказов? Вы где?
7 gavrikprog
 
16.07.12
13:20
(6) ты программист? или кто?
8 gavrikprog
 
16.07.12
13:21
(7) нах у более-менее прогриков работу отбирать :)
AdBlock убивает бесплатный контент. 1Сергей