|
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
|
Помогите найти, как оформлять код, создавать ответы на определенное сообщение, в правилах, не нашел, в описании тоже нет, а то не с ориентируюсь никак
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |