Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
26 Сен 2020, 05:03
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Схема компоновки данных  (Прочитано 4284 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн макс

  • ****
  • Сообщений: 305
  • РЕПУТАЦИЯ: 10
  • КПД: 3%
  • Регистрация: 2010-06-15
  • Сайт: 
Есть отчет в бухгалтерии предприятия Ведомость амортизации ОС, он сделал через схему компоновки данных, у него есть поле ОстаточнаяСтоимость, в запросе, в выбранных полях какие-то папки, как я понял они добавляются через модуль объекта
вот код модуля

ГруппаДанныеНаНачало = КомпоновщикНастроек.Настройки.Выбор.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаНачало.Заголовок     = "На начало периода";
   ГруппаДанныеНаНачало.Использование = Истина;
   ГруппаДанныеНаНачалоСтоимость = ГруппаДанныеНаНачало.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаНачалоСтоимость.Заголовок     = "Стоимость";
   ГруппаДанныеНаНачалоСтоимость.Использование = Истина;
   ГруппаДанныеНаНачалоСтоимость.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   ГруппаДанныеНаНачалоАмортизация = ГруппаДанныеНаНачало.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаНачалоАмортизация.Заголовок     = "Амортизация (износ)";
   ГруппаДанныеНаНачалоАмортизация.Использование = Истина;
   ГруппаДанныеНаНачалоАмортизация.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   ГруппаДанныеНаНачалоОстаточнаяСтоимость = ГруппаДанныеНаНачало.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаНачалоОстаточнаяСтоимость.Заголовок     = "Остаточная стоимость" + ?(ИДКонфигурации = "БАУ" ИЛИ ИДКонфигурации = "БАУКОРП", " (с учетом износа)", "");
   ГруппаДанныеНаНачалоОстаточнаяСтоимость.Использование = Истина;
   ГруппаДанныеНаНачалоОстаточнаяСтоимость.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   
   ГруппаОбороты = КомпоновщикНастроек.Настройки.Выбор.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаОбороты.Заголовок     = "За период";
   ГруппаОбороты.Использование = Истина;
   ГруппаУвеличениеСтоимости = ГруппаОбороты.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаУвеличениеСтоимости.Заголовок     = "Увеличение стоимости";
   ГруппаУвеличениеСтоимости.Использование = Истина;
   ГруппаУвеличениеСтоимости.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   ГруппаНачислениеАмортизации = ГруппаОбороты.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаНачислениеАмортизации.Заголовок     = "Начисление амортизации (износа)";
   ГруппаНачислениеАмортизации.Использование = Истина;
   ГруппаНачислениеАмортизации.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   ГруппаУменьшениеСтоимости = ГруппаОбороты.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаУменьшениеСтоимости.Заголовок     = "Уменьшение стоимости";
   ГруппаУменьшениеСтоимости.Использование = Истина;
   ГруппаУменьшениеСтоимости.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   ГруппаСписаниеАмортизации = ГруппаОбороты.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаСписаниеАмортизации.Заголовок     = "Списание амортизации (износа)";
   ГруппаСписаниеАмортизации.Использование = Истина;
   ГруппаСписаниеАмортизации.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   
   ГруппаДанныеНаКонец = КомпоновщикНастроек.Настройки.Выбор.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаКонец.Заголовок     = "На конец периода";
   ГруппаДанныеНаКонец.Использование = Истина;
   ГруппаДанныеНаКонецСтоимость = ГруппаДанныеНаКонец.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаКонецСтоимость.Заголовок     = "Стоимость";
   ГруппаДанныеНаКонецСтоимость.Использование = Истина;
   ГруппаДанныеНаКонецСтоимость.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   ГруппаДанныеНаКонецАмортизация = ГруппаДанныеНаКонец.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаКонецАмортизация.Заголовок     = "Амортизация (износ)";
   ГруппаДанныеНаКонецАмортизация.Использование = Истина;
   ГруппаДанныеНаКонецАмортизация.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   ГруппаДанныеНаКонецОстаточнаяСтоимость = ГруппаДанныеНаКонец.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаДанныеНаКонецОстаточнаяСтоимость.Заголовок     = "Остаточная стоимость" + ?(ИДКонфигурации = "БАУ" ИЛИ ИДКонфигурации = "БАУКОРП", " (с учетом износа)", "");
   ГруппаДанныеНаКонецОстаточнаяСтоимость.Использование = Истина;
   ГруппаДанныеНаКонецОстаточнаяСтоимость.Расположение  = РасположениеПоляКомпоновкиДанных.Вертикально;
   
   Структура = Структура.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
   Структура.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
   Структура.Порядок.Элементы.Добавить(Тип("АвтоЭлементПорядкаКомпоновкиДанных"));
   
   ГруппаОсновноеСредство = КомпоновщикНастроек.Настройки.Выбор.Элементы.Добавить(Тип("ГруппаВыбранныхПолейКомпоновкиДанных"));
   ГруппаОсновноеСредство.Заголовок     = "";
   ГруппаОсновноеСредство.Использование = Истина;
   ГруппаОсновноеСредство.Расположение = РасположениеПоляКомпоновкиДанных.Вместе;
   
   ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаОсновноеСредство, "ОсновноеСредство");
   ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаОсновноеСредство, "ИнвентарныйНомер");
   
   Если ДанныеОтчета.ПоказателиОтчета.БУ.Значение Тогда
   
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаПоказатели,                        "ПоказательБУ");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаНачалоСтоимость,           "НаНачалоПериода.СтоимостьОстатокНачПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаНачалоАмортизация,         "НаНачалоПериода.АмортизацияИзносОстатокНачПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаНачалоОстаточнаяСтоимость, "НаНачалоПериода.ОстаточнаяСтоимостьНачПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаУвеличениеСтоимости,               "ЗаПериод.СтоимостьУвеличение");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаУменьшениеСтоимости,               "ЗаПериод.СтоимостьУменьшение");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаНачислениеАмортизации,             "ЗаПериод.АмортизацияИзносНачисление");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаСписаниеАмортизации,               "ЗаПериод.АмортизацияИзносСписание");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаКонецСтоимость,            "НаКонецПериода.СтоимостьОстатокКонПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаКонецАмортизация,          "НаКонецПериода.АмортизацияИзносОстатокКонПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаКонецОстаточнаяСтоимость,  "НаКонецПериода.ОстаточнаяСтоимостьКонПериода");
      
   КонецЕсли;
   
   Если ДанныеОтчета.ПоказателиОтчета.НУ.Значение Тогда
   
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаПоказатели,                        "ПоказательНУ");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаНачалоСтоимость,           "НаНачалоПериода.СтоимостьНУОстатокНачПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаНачалоАмортизация,         "НаНачалоПериода.АмортизацияНУОстатокНачПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаНачалоОстаточнаяСтоимость, "НаНачалоПериода.ОстаточнаяСтоимостьНУНачПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаУвеличениеСтоимости,               "ЗаПериод.СтоимостьНУУвеличение");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаУменьшениеСтоимости,               "ЗаПериод.СтоимостьНУУменьшение");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаНачислениеАмортизации,             "ЗаПериод.АмортизацияНУНачисление");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаСписаниеАмортизации,               "ЗаПериод.АмортизацияНУСписание");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаКонецСтоимость,            "НаКонецПериода.СтоимостьНУОстатокКонПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаКонецАмортизация,          "НаКонецПериода.АмортизацияНУОстатокКонПериода");
      ТиповыеОтчеты.ДобавитьВыбранноеПоле(ГруппаДанныеНаКонецОстаточнаяСтоимость,  "НаКонецПериода.ОстаточнаяСтоимостьНУКонПериода");
      
   КонецЕсли; 


Оффлайн макс

  • ****
  • Сообщений: 305
  • РЕПУТАЦИЯ: 10
  • КПД: 3%
  • Регистрация: 2010-06-15
  • Сайт: 
в запросе схемы не выводит остаточную стоимость, может быть в модуле? подскажите

Оффлайн макс

  • ****
  • Сообщений: 305
  • РЕПУТАЦИЯ: 10
  • КПД: 3%
  • Регистрация: 2010-06-15
  • Сайт: 
В схеме компановки  Настройки - Выбранные поля, как я понимаю попадают поля из запроса, там помимо них всякие папки, поля которых в запросе нету


Теги:
 

Перенос данных из 1с 82 БП (базовая) в 1с 82 БГУ (базовая)

Автор Владимир87Раздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 4
Просмотров: 9770
Последний ответ 06 Дек 2014, 17:40
от дфтын
Поиск по бае данных,(полнотекстовый поиск)

Автор kot_ooРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 0
Просмотров: 4923
Последний ответ 19 Май 2014, 15:40
от kot_oo
Как исправить при обновлении ИБ: Ошибка в запросе набора данных по причине: {(58, 2)}: Несовместимые типы "ВЫБОР" <<?>>ВЫБОР

Автор dollРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 4
Просмотров: 4588
Последний ответ 26 Апр 2018, 06:45
от Геннадий ОбьГЭС
"Задваивание" данных в отчете

Автор mashencev_antonРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 14
Просмотров: 11761
Последний ответ 12 Июл 2020, 14:17
от karogach
Куда сохраняются данные в режиме работы клиент при выгрузке данных обработкой "Универсальный обмен данными в формате XML"

Автор xDDРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 3
Просмотров: 10868
Последний ответ 13 Ноя 2014, 08:23
от cska-fanat-kz

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
67 Сообщений
oooo800
39 Сообщений
LexaK
31 Сообщений
Дмитрий Джей Дмитрий Джей
29 Сообщений
IL2016
28 Сообщений
antoneus antoneus
24 Сообщений
DmitriyF DmitriyF
17 Сообщений
Ann_
16 Сообщений
мадам брошкина
13 Сообщений
illiona
10 Сообщений

* Кто онлайн

  • Точка Гостей: 302
  • Точка Скрытых: 0
  • Точка Пользователей: 0

Нет пользователей онлайн.

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal