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