OFF: Тест для вставки сообщений
☑
0
---Fix---
16.04.12
✎
17:00
такт обычный текст
Код:
Процедура ЗаполнитьГлавнуюТаблицу(пГлавнаяТаблица)
пГлавнаяТаблица.УдалитьСтроки();
//ПустаяТЗ = ПолучитьПустоеЗначение("ТаблицаЗначений");
врспр = СоздатьОбъект("Справочник.Контрагенты");
врспр.ПорядокКодов();
врспр.ВыбратьЭлементы();
Пока врспр.ПолучитьЭлемент() = 1 Цикл
Если врспр.Уровень() = 1 Тогда
пГлавнаяТаблица.НоваяСтрока();
пГлавнаяТаблица.Слой = врспр.Код;
КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
//КопияТЗ.НоваяКолонка("НомерПериода", "Число", 2, 0);
//КопияТЗ.НоваяКолонка("ВидыТеплаСПараметрами", "ТаблицаЗначений");
ЗаполнитьТаблицуПериодов(КопияТЗ);
пГлавнаяТаблица.Периоды = КопияТЗ;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ЗаполнитьТаблицуПериодов(пТаблицаПериодов)
//пТаблицаПериодов = СоздатьОбъект("ТаблицаЗначений");
пТаблицаПериодов.НоваяКолонка("НомерПериода", "Число", 2);
пТаблицаПериодов.НоваяКолонка("ВидыТеплаСПараметрами", "ТаблицаЗначений");
//ПустаяТЗ = ПолучитьПустоеЗначение("ТаблицаЗначений");
пТаблицаПериодов.УдалитьСтроки();
//врспр = СоздатьОбъект("Справочник.ПериодыПланирования");
//врспр.ВыбратьЭлементы();
//Пока врспр.ПолучитьЭлемент() = 1 Цикл
// пТаблицаПериодов.НоваяСтрока();
// пТаблицаПериодов.НомерПериода = врспр.НомерМесяца;
// КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
// ЗаполнитьТаблицуВидовТеплаСПараметрами(КопияТЗ);
// пТаблицаПериодов.ВидыТеплаСПараметрами = КопияТЗ;
//КонецЦикла;
Для а=1 По 12 Цикл
пТаблицаПериодов.НоваяСтрока();
пТаблицаПериодов.НомерПериода = а;
КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
ЗаполнитьТаблицуВидовТеплаСПараметрами(КопияТЗ);
пТаблицаПериодов.ВидыТеплаСПараметрами = КопияТЗ;
КонецЦикла;
//Добавляем 4 кватрала отриц. числа, и год -9
пТаблицаПериодов.НоваяСтрока();
пТаблицаПериодов.НомерПериода = -1;
КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
ЗаполнитьТаблицуВидовТеплаСПараметрами(КопияТЗ);
пТаблицаПериодов.ВидыТеплаСПараметрами = КопияТЗ;
пТаблицаПериодов.НоваяСтрока();
пТаблицаПериодов.НомерПериода = -2;
КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
ЗаполнитьТаблицуВидовТеплаСПараметрами(КопияТЗ);
пТаблицаПериодов.ВидыТеплаСПараметрами = КопияТЗ;
пТаблицаПериодов.НоваяСтрока();
пТаблицаПериодов.НомерПериода = -3;
КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
ЗаполнитьТаблицуВидовТеплаСПараметрами(КопияТЗ);
пТаблицаПериодов.ВидыТеплаСПараметрами = КопияТЗ;
пТаблицаПериодов.НоваяСтрока();
пТаблицаПериодов.НомерПериода = -4;
КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
ЗаполнитьТаблицуВидовТеплаСПараметрами(КопияТЗ);
пТаблицаПериодов.ВидыТеплаСПараметрами = КопияТЗ;
пТаблицаПериодов.НоваяСтрока();
пТаблицаПериодов.НомерПериода = -9;
КопияТЗ = СоздатьОбъект("ТаблицаЗначений");
ЗаполнитьТаблицуВидовТеплаСПараметрами(КопияТЗ);
пТаблицаПериодов.ВидыТеплаСПараметрами = КопияТЗ;
КонецПроцедуры
1
---Fix---
17.04.12
✎
08:12
Помогите найти, как оформлять код, создавать ответы на определенное сообщение, в правилах, не нашел, в описании тоже нет, а то не с ориентируюсь никак
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший