Объединение ячеек в печатной форме

[Ly_Alena]

Функция ПечатьТЦ(Тип)
   
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
   Запрос.Текст ="ВЫБРАТЬ
                 |   ЗаказПокупателя.Ссылка,
                 |   ЗаказПокупателя.Дата,
                 |   ЗаказПокупателя.Контрагент,
                 |   ЗаказПокупателя.Ответственный,
                 |   ЗаказПокупателя.Комментарий,
                 |   ЗаказПокупателя.ПроцентНакладные,
                 |   ЗаказПокупателя.Номер,
                 |   ЗаказПокупателя.ДопРасходыОтСуммыБезНДС,
                 |   ЗаказПокупателя.УсловияОплаты,
                 |   ЗаказПокупателя.МестоИСрокПоставки
                 |ИЗ
                 |   Документ.ЗаказПокупателя КАК ЗаказПокупателя
                 |ГДЕ
                 |   ЗаказПокупателя.Ссылка = &ТекущийДокумент";

   Шапка = Запрос.Выполнить().Выбрать();
   Шапка.Следующий();

   ТабДокумент = Новый ТабличныйДокумент;
   ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ТЦ_ТЦ";
   
   Макет = ПолучитьМакет("ТЦ");
   
   ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
   ОбластьМакета.Параметры.Дата = Шапка.Дата;
   ОбластьМакета.Параметры.Номер = Шапка.Номер;
   ОбластьМакета.Параметры.Контрагент = Шапка.Контрагент;
   ОбластьМакета.Параметры.УсловияОплаты = Шапка.УсловияОплаты;
   ОбластьМакета.Параметры.МестоИСрокПоставки = Шапка.МестоИСрокПоставки;
   ТабДокумент.Вывести(ОбластьМакета);
   
   ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
   ОбластьМакета.Параметры.Комментарий = Шапка.Комментарий;
   ТабДокумент.Вывести(ОбластьМакета);

   
   ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
   ОбластьМакета.Параметры.ПроцентНакладные = Шапка.ПроцентНакладные;
   ТабДокумент.Вывести(ОбластьМакета);
   
   
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
   Запрос.Текст ="ВЫБРАТЬ
                 |   ЗаказПокупателяТовары.ЗапрашиваемоеНаименование,
                 |   ЗаказПокупателяТовары.Номенклатура,
                 |   ЗаказПокупателяТовары.Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдИзм,
                 |   СУММА(ЗаказПокупателяТовары.Количество) КАК Количество,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.ПлановаяСебестоимость) КАК ПлановаяСебестоимость,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.ЦенаБезНДС) КАК ЦенаБезНДС,
                 |   СУММА(ЗаказПокупателяТовары.СуммаБезНДС) КАК СуммаБезНДС,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.Цена) КАК Цена,
                 |   СУММА(ЗаказПокупателяТовары.Сумма) КАК Сумма,
                 |   СУММА(ЗаказПокупателяТовары.Транспортные) КАК Транспортные,
                 |   СУММА(ЗаказПокупателяТовары.Накладные) КАК Накладные,
                 |   СУММА(ЗаказПокупателяТовары.УслПостоянные) КАК УслПостоянные,
                 |   СУММА(ЗаказПокупателяТовары.Прибыль) КАК Прибыль,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.Рентабельность) КАК Рентабельность,
                 |   ЗаказПокупателяТовары.НовоеНаименование,
                 |   СУММА(ЗаказПокупателяТовары.СуммаПлановойСебестоимости) КАК СуммаСебестоимости,
                 |   ЗаказПокупателяТовары.НомерСтроки КАК НомерСтроки,
                 |   ЗаказПокупателяТовары.НомерЛота КАК НомерЛота
                 |ИЗ
                 |   Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары
                 |ГДЕ
                 |   ЗаказПокупателяТовары.Ссылка = &ТекущийДокумент
                 |
                 |СГРУППИРОВАТЬ ПО
                 |   ЗаказПокупателяТовары.ЗапрашиваемоеНаименование,
                 |   ЗаказПокупателяТовары.Номенклатура,
                 |   ЗаказПокупателяТовары.НовоеНаименование,
                 |   ЗаказПокупателяТовары.Номенклатура.БазоваяЕдиницаИзмерения,
                 |   ЗаказПокупателяТовары.НомерСтроки,
                 |   ЗаказПокупателяТовары.НомерЛота
                 |
                 |УПОРЯДОЧИТЬ ПО
                 |   НомерСтроки,
                 |   НомерЛота";
            

   РезультатЗапросаТовары = Запрос.Выполнить();
   Если НЕ РезультатЗапросаТовары.Пустой() Тогда
   
      Индекс = 0;
      Область = Макет.ПолучитьОбласть("Товары");
      Обход = РезультатЗапросаТовары.Выбрать();
      ОбходТовары = РезультатЗапросаТовары.Выбрать();
      Пока Обход.Следующий() Цикл
      
         Если Обход.Количество = 0 Тогда
            Продолжить;
         КонецЕсли;
            
         Если Не ЗначениеЗаполнено(Обход.Номенклатура) Тогда
            Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
            Продолжить;
         КонецЕсли;
         
         Индекс = Индекс + 1;
         Область.Параметры.НомерСтроки = Индекс;
         Область.Параметры.НомерЛота = Обход.НомерЛота;
         Область.Параметры.ЗапрашиваемоеНаименование = Обход.ЗапрашиваемоеНаименование;
         Если ЗначениеЗаполнено(Обход.НовоеНаименование) Тогда
         Область.Параметры.НовоеНаименование = Обход.НовоеНаименование;
         Иначе Область.Параметры.НовоеНаименование = Обход.Номенклатура;
         КонецЕсли;
         Область.Параметры.Номенклатура = Обход.Номенклатура;
         Область.Параметры.ЕдИзм = Обход.ЕдИзм;
         Область.Параметры.Количество = Обход.Количество;
         Область.Параметры.Себестоимость = Обход.ПлановаяСебестоимость;
         Область.Параметры.СуммаСебестоимости = Обход.СуммаСебестоимости;
         Область.Параметры.ЦенаБезНДС = Обход.ЦенаБезНДС;
         Область.Параметры.СуммаБезНДС = Обход.СуммаБезНДС;
         Область.Параметры.Цена = Обход.Цена;
         Область.Параметры.Сумма = Обход.Сумма;
         Область.Параметры.Транспортные = Обход.Транспортные;
         Область.Параметры.Накладные = Обход.Накладные;
         Область.Параметры.УслПостоянные = Обход.УслПостоянные;
         Область.Параметры.Прибыль = Обход.Прибыль;
         Область.Параметры.Рентабельность = Обход.Рентабельность;
         
         ТабДокумент.Вывести(Область);
         
      КонецЦикла;
   КонецЕсли;   
      
      
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
   Запрос.Текст ="ВЫБРАТЬ
                 |   ВложенныйЗапрос.Количество КАК ИтогоКоличество,
                 |   ВложенныйЗапрос.СуммаСебестоимости КАК ИтогоСебестоимость,
                 |   ВложенныйЗапрос.СуммаБезНДС КАК ИтогоСуммаБезНДС,
                 |   ВложенныйЗапрос.Сумма КАК ИтогоСумма,
                 |   ВложенныйЗапрос.Прибыль КАК ИтогоПрибыль,
                 |   ВЫБОР
                 |      КОГДА ВложенныйЗапрос.СуммаСебестоимости > 0
                 |         ТОГДА ВложенныйЗапрос.Прибыль / ВложенныйЗапрос.СуммаСебестоимости * 100
                 |      ИНАЧЕ 0
                 |   КОНЕЦ КАК ИтогоРентабельность,
                 |   ВложенныйЗапрос.Транспортные КАК ИтогоТранспортные,
                 |   ВложенныйЗапрос.Накладные КАК ИтогоНакладные,
                 |   ВложенныйЗапрос.УслПостоянные КАК ИтогоКПН
                 |ИЗ
                 |   (ВЫБРАТЬ
                 |      СУММА(ЗаказПокупателяТовары.Количество) КАК Количество,
                 |      СУММА(ЗаказПокупателяТовары.СуммаПлановойСебестоимости) КАК СуммаСебестоимости,
                 |      СУММА(ЗаказПокупателяТовары.СуммаБезНДС) КАК СуммаБезНДС,
                 |      СУММА(ЗаказПокупателяТовары.Сумма) КАК Сумма,
                 |      СУММА(ЗаказПокупателяТовары.Прибыль) КАК Прибыль,
                 |      СУММА(ЗаказПокупателяТовары.Транспортные) КАК Транспортные,
                 |      СУММА(ЗаказПокупателяТовары.Накладные) КАК Накладные,
                 |      СУММА(ЗаказПокупателяТовары.УслПостоянные) КАК УслПостоянные
                 |   ИЗ
                 |      Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары
                 |   ГДЕ
                 |      ЗаказПокупателяТовары.Ссылка = &ТекущийДокумент) КАК ВложенныйЗапрос";

   РезультатЗапросаТов = Запрос.Выполнить();
   Если НЕ РезультатЗапросаТов.Пустой() Тогда
   
      Индекс = 0;
      Область = Макет.ПолучитьОбласть("ИтогоТовары");
      Обход = РезультатЗапросаТов.Выбрать();
      ОбходТовары = РезультатЗапросаТов.Выбрать();
      Пока Обход.Следующий() Цикл
      
         Если Обход.ИтогоКоличество = 0 Тогда
            Продолжить;
         КонецЕсли;
            
      ИтогоРентабельность = Окр(Обход.ИтогоРентабельность, 2, РежимОкругления.Окр15как20);   

      Область.Параметры.ИтогоКоличество = Обход.ИтогоКоличество;
      Область.Параметры.ИтогоСуммаСебестоимости = Обход.ИтогоСебестоимость;
      Область.Параметры.ИтогоСуммаБезНДС = Обход.ИтогоСуммаБезНДС;
      Область.Параметры.ИтогоСумма = Обход.ИтогоСумма;
      Область.Параметры.ИтогоПрибыль = Обход.ИтогоПрибыль;
      Область.Параметры.ИтогоРентабельность = ИтогоРентабельность;
      Область.Параметры.ИтогоТранспортные = Обход.ИтогоТранспортные;
      Область.Параметры.ИтогоНакладные = Обход.ИтогоНакладные;
      Область.Параметры.ИтогоКПН = Обход.ИтогоКПН;
      ТабДокумент.Вывести(Область);
      КонецЦикла;
   КонецЕсли;   
   
   ОбластьМакета = Макет.ПолучитьОбласть("Согласование");
   ОбластьМакета.Параметры.Ответственный = Шапка.Ответственный;
   Если Шапка.ДопРасходыОтСуммыБезНДС=Истина Тогда
      ОбластьМакета.Параметры.НДС="Доп. расходы рассчитаны от суммы без НДС";
   Иначе
      ОбластьМакета.Параметры.НДС="Доп. расходы рассчитаны от суммы с НДС";
      КонецЕсли;
   ТабДокумент.Вывести(ОбластьМакета);
   
   Возврат ТабДокумент;
КонецФункции


Нужно чтобы если номер лота повторяется, то объединить эту ячеку, например

№лота    наименование    кол-во
№1           таз                  2
№2            ведро                3
№1            ковш                  4

Чтобы было так:

№лота   наименование    кол-во
№1               таз                  2
                     ковш               4
№2               ведро               3

[SitnovaMarina]

Нужно в запросе использовать  ИТОГИ, группировать по Лоту и при выводе на печать делать выборку как-то так

            Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам)....

Тогда сначала в запросе у вас будет таблица сгруппированная по Лоту№1, потом по Лоту №2 и т.д.

[Ly_Alena]

Нужно в запросе использовать  ИТОГИ, группировать по Лоту и при выводе на печать делать выборку как-то так

            Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам)....

Тогда сначала в запросе у вас будет таблица сгруппированная по Лоту№1, потом по Лоту №2 и т.д.

Выдает ошибку "{Документ.ЗаказПокупателя.МодульОбъекта(591)}: Метод объекта не обнаружен (Пустой)
   Если НЕ РезультатЗапросаТовары.Пустой() Тогда"

Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
   Запрос.Текст ="ВЫБРАТЬ
                 |   ЗаказПокупателяТовары.ЗапрашиваемоеНаименование,
                 |   ЗаказПокупателяТовары.Номенклатура,
                 |   ЗаказПокупателяТовары.Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдИзм,
                 |   СУММА(ЗаказПокупателяТовары.Количество) КАК Количество,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.ПлановаяСебестоимость) КАК ПлановаяСебестоимость,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.ЦенаБезНДС) КАК ЦенаБезНДС,
                 |   СУММА(ЗаказПокупателяТовары.СуммаБезНДС) КАК СуммаБезНДС,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.Цена) КАК Цена,
                 |   СУММА(ЗаказПокупателяТовары.Сумма) КАК Сумма,
                 |   СУММА(ЗаказПокупателяТовары.Транспортные) КАК Транспортные,
                 |   СУММА(ЗаказПокупателяТовары.Накладные) КАК Накладные,
                 |   СУММА(ЗаказПокупателяТовары.УслПостоянные) КАК УслПостоянные,
                 |   СУММА(ЗаказПокупателяТовары.Прибыль) КАК Прибыль,
                 |   СРЕДНЕЕ(ЗаказПокупателяТовары.Рентабельность) КАК Рентабельность,
                 |   ЗаказПокупателяТовары.НовоеНаименование,
                 |   СУММА(ЗаказПокупателяТовары.СуммаПлановойСебестоимости) КАК СуммаСебестоимости,
                 |   ЗаказПокупателяТовары.НомерСтроки КАК НомерСтроки,
                 |   ЗаказПокупателяТовары.НомерЛота КАК НомерЛота,
                 |   ЗаказПокупателяТовары.КоличествоВПроизводство
                 |ИЗ
                 |   Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары
                 |ГДЕ
                 |   ЗаказПокупателяТовары.Ссылка = &ТекущийДокумент
                 |   И ЗаказПокупателяТовары.КоличествоВПроизводство <> 0
                 |
                 |СГРУППИРОВАТЬ ПО
                 |   ЗаказПокупателяТовары.ЗапрашиваемоеНаименование,
                 |   ЗаказПокупателяТовары.Номенклатура,
                 |   ЗаказПокупателяТовары.НовоеНаименование,
                 |   ЗаказПокупателяТовары.Номенклатура.БазоваяЕдиницаИзмерения,
                 |   ЗаказПокупателяТовары.НомерСтроки,
                 |   ЗаказПокупателяТовары.НомерЛота,
                 |   ЗаказПокупателяТовары.КоличествоВПроизводство
                 |
                 |УПОРЯДОЧИТЬ ПО
                 |   НомерСтроки,
                 |   НомерЛота
                 |ИТОГИ ПО
                 |   НомерЛота";
            
   
   РезультатЗапросаТовары = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   Если НЕ РезультатЗапросаТовары.Пустой() Тогда
   
      Индекс = 0;
      Область = Макет.ПолучитьОбласть("Товары");
...

[SitnovaMarina]

Не переписывайте "влоб", немножко думайте)

Надо так, короче:

   Результат = Запрос.Выполнить();
   Если Не Результат.Пустой() Тогда
      ВыборкаПоЛотам = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
      Пока ВыборкаПоЛотам.Следующий() Цикл





       

[Ly_Alena]

Не переписывайте "влоб", немножко думайте)

Надо так, короче:

   Результат = Запрос.Выполнить();
   Если Не Результат.Пустой() Тогда
      ВыборкаПоЛотам = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
      Пока ВыборкаПоЛотам.Следующий() Цикл


       

Дублируются строки. Вы меня пожалуйста извините за тупые вопросы - просто только начала, не совсем понимаю...

[SitnovaMarina]

Можете обработку скинуть?

[Ly_Alena]

Можете обработку скинуть?

РезультатЗапросаТовары = Запрос.Выполнить();
   Если НЕ РезультатЗапросаТовары.Пустой() Тогда
       ВыборкаПоЛотам = РезультатЗапросаТовары.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
         Пока ВыборкаПоЛотам.Следующий() Цикл
      Индекс = 0;
      Область = Макет.ПолучитьОбласть("Товары");
      Обход = РезультатЗапросаТовары.Выбрать();
      ОбходТовары = РезультатЗапросаТовары.Выбрать();
      Пока Обход.Следующий() Цикл
      
         Если Обход.Количество = 0 Тогда
            Продолжить;
         КонецЕсли;
            
         Если Не ЗначениеЗаполнено(Обход.Номенклатура) Тогда
            Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
            Продолжить;
         КонецЕсли;
                    
               
         Индекс = Индекс + 1;
         Область.Параметры.НомерСтроки = Индекс;
         Область.Параметры.НомерЛота = Обход.НомерЛота;
         Область.Параметры.ЗапрашиваемоеНаименование = Обход.ЗапрашиваемоеНаименование;
         Если ЗначениеЗаполнено(Обход.НовоеНаименование) Тогда
         Область.Параметры.НовоеНаименование = Обход.НовоеНаименование;
         Иначе Область.Параметры.НовоеНаименование = Обход.Номенклатура;
         КонецЕсли;
         Область.Параметры.Заполнить(Обход);

Добавлено: 28 окт 2014, 11:11

Можете обработку скинуть?

РезультатЗапросаТовары = Запрос.Выполнить();
   Если НЕ РезультатЗапросаТовары.Пустой() Тогда
       ВыборкаПоЛотам = РезультатЗапросаТовары.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
         Пока ВыборкаПоЛотам.Следующий() Цикл
      Индекс = 0;
      Область = Макет.ПолучитьОбласть("Товары");
      Обход = РезультатЗапросаТовары.Выбрать();
      ОбходТовары = РезультатЗапросаТовары.Выбрать();
      Пока Обход.Следующий() Цикл
      
         Если Обход.Количество = 0 Тогда
            Продолжить;
         КонецЕсли;
            
         Если Не ЗначениеЗаполнено(Обход.Номенклатура) Тогда
            Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
            Продолжить;
         КонецЕсли;
                    
               
         Индекс = Индекс + 1;
         Область.Параметры.НомерСтроки = Индекс;
         Область.Параметры.НомерЛота = Обход.НомерЛота;
         Область.Параметры.ЗапрашиваемоеНаименование = Обход.ЗапрашиваемоеНаименование;
         Если ЗначениеЗаполнено(Обход.НовоеНаименование) Тогда
         Область.Параметры.НовоеНаименование = Обход.НовоеНаименование;
         Иначе Область.Параметры.НовоеНаименование = Обход.Номенклатура;
         КонецЕсли;
         Область.Параметры.Заполнить(Обход);

Если так пишу:

РезультатЗапросаТовары = Запрос.Выполнить();
   Если НЕ РезультатЗапросаТовары.Пустой() Тогда
       ВыборкаПоЛотам = РезультатЗапросаТовары.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
         Индекс = 0;
      Область = Макет.ПолучитьОбласть("Товары");
      Обход = РезультатЗапросаТовары.Выбрать();
      ОбходТовары = РезультатЗапросаТовары.Выбрать();
      
      Пока ВыборкаПоЛотам.Следующий() Цикл
        //Пока Обход.Следующий() Цикл
      
         Если Обход.Количество = 0 Тогда
            Продолжить;
         КонецЕсли;
            
         Если Не ЗначениеЗаполнено(Обход.Номенклатура) Тогда
            Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
            Продолжить;
         КонецЕсли;
                    
         Индекс = Индекс + 1;
         Область.Параметры.НомерСтроки = Индекс;
         Область.Параметры.НомерЛота = Обход.НомерЛота;
         Область.Параметры.ЗапрашиваемоеНаименование = Обход.ЗапрашиваемоеНаименование;
         Если ЗначениеЗаполнено(Обход.НовоеНаименование) Тогда
         Область.Параметры.НовоеНаименование = Обход.НовоеНаименование;
         Иначе Область.Параметры.НовоеНаименование = Обход.Номенклатура;
         КонецЕсли;
         Область.Параметры.Заполнить(Обход);
         ТабДокумент.Вывести(Область);
      //КонецЦикла;   
      //КонецЦикла;
      КонецЦикла;
   КонецЕсли;   



То выводит только итоговые строки, в таблице нет записей

Добавлено: 28 окт 2014, 11:34

Можете обработку скинуть?

Так он выводит три раза подряд мои строки сортируя по номеру лота, но не объединяя те строки, где номер лота повторяется:

РезультатЗапросаТовары = Запрос.Выполнить();         
   
   Если НЕ РезультатЗапросаТовары.Пустой() Тогда
       ВыборкаПоЛотам = РезультатЗапросаТовары.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
      Пока ВыборкаПоЛотам.Следующий() Цикл
      Индекс = 0;
      Область = Макет.ПолучитьОбласть("Товары");
      Обход = РезультатЗапросаТовары.Выбрать();
      ОбходТовары = РезультатЗапросаТовары.Выбрать();
      Область.Параметры.НомерЛота = Обход.НомерЛота;

      //Пока ВыборкаПоЛотам.Следующий() Цикл
      
      Пока Обход.Следующий() Цикл
      
         Если Обход.Количество = 0 Тогда
            Продолжить;
         КонецЕсли;
            
         Если Не ЗначениеЗаполнено(Обход.Номенклатура) Тогда
            Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
            Продолжить;
         КонецЕсли;
                    
         Индекс = Индекс + 1;
         Область.Параметры.НомерСтроки = Индекс;
         //Область.Параметры.НомерЛота = Обход.НомерЛота;
         Область.Параметры.ЗапрашиваемоеНаименование = Обход.ЗапрашиваемоеНаименование;
         Если ЗначениеЗаполнено(Обход.НовоеНаименование) Тогда
         Область.Параметры.НовоеНаименование = Обход.НовоеНаименование;
         Иначе Область.Параметры.НовоеНаименование = Обход.Номенклатура;
         КонецЕсли;
         Область.Параметры.Заполнить(Обход);
         ТабДокумент.Вывести(Область);
      КонецЦикла;   
      //КонецЦикла;
      КонецЦикла;
   КонецЕсли;

Добавлено: 28 окт 2014, 12:49

Что делаю не так?