Примеры расшифровок стандартными бухгалтерскими отчетами БП 3.0

Примеры реализованы на конфигурации Бухгалтерия предприятия КОРП, редакция 3.0 (3.0.40.41). На других редакциях процедуры вызова могут несколько отличаться - разработчики не стоят на месте.... Но, имея в запасе примеры вызова процедур расшифровки, вы решите данную задачу за 5-10 минут.

Просто скачивайте, пользуйтесь и наслаждайтесь.

Ниже приведу пример расшифровки отчетом по проводкам.

 

&НаКлиенте
Процедура ВызовРасшифровки()

    // ......... где -то , что-то.....

    Расшифровка = Новый Структура();
    Расшифровка.Вставить("Счет"+ДтКт, СчетаРасшифровки.СчетУчета);
    Расшифровка.Вставить("Счет"+ДтКтКорр, СчетаРасшифровки.КоррСчет);
    Расшифровка.Вставить("Субконто"+ДтКт+"1", ТекущийКонтрагент);
    Расшифровка.Вставить("Субконто"+ДтКт+"2", ТекущийДоговор);

    Если ТекущиеДанные.ВалютаДоговора <> ВалютаРегламентированногоУчета Тогда
        ДополнительныеСвойства = Новый Структура();
        ДополнительныеСвойства.Вставить("ПоказательБУ", НЕ ЭтоВалютныйДоговор);
        ДополнительныеСвойства.Вставить("ПоказательВалютнаяСумма", ЭтоВалютныйДоговор);
        Расшифровка.Вставить("ДополнительныеСвойства", ДополнительныеСвойства);
    КонецЕсли;

    ОткрытьОтчетПоПроводкам(Расшифровка);

КонецПроцедуры
&НаКлиенте
Процедура ОткрытьОтчетПоПроводкам(Расшифровка)

    // Получим параметры расшифровки
    НачалоПериодаРасшифровки = НачалоПериода;
    Если Расшифровка.Свойство("НачалоПериода") Тогда
        НачалоПериодаРасшифровки = Расшифровка.НачалоПериода;
    КонецЕсли;

    КонецПериодаРасшифровки = КонецПериода;
    Если Расшифровка.Свойство("КонецПериода") Тогда
        КонецПериодаРасшифровки = Расшифровка.КонецПериода;
    КонецЕсли;

    СчетДт  = Неопределено;
    Если Расшифровка.Свойство("СчетДт") Тогда
        СчетДт = Расшифровка.СчетДт;
    КонецЕсли;

    СчетДтВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
    Если Расшифровка.Свойство("СчетДтВидСравнения") Тогда
        СчетДтВидСравнения = Расшифровка.СчетДтВидСравнения;
    КонецЕсли;

    СчетКт  = Неопределено;
    Если Расшифровка.Свойство("СчетКт") Тогда
        СчетКт = Расшифровка.СчетКт;
    КонецЕсли;

    СчетКтВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
    Если Расшифровка.Свойство("СчетКтВидСравнения") Тогда
        СчетКтВидСравнения = Расшифровка.СчетКтВидСравнения;
    КонецЕсли;

    ПоказательВалютнаяСумма = Ложь;
    Если Расшифровка.Свойство("ПоказательВалютнаяСумма") Тогда
        ПоказательВалютнаяСумма = Расшифровка.ПоказательВалютнаяСумма;
    КонецЕсли;

    // Подготавливаем структуру для отбора необходимых параметров.
    ПользовательскиеНастройки = Новый ПользовательскиеНастройкиКомпоновкиДанных;
    ПользовательскиеОтборы = ПользовательскиеНастройки.Элементы.Добавить(Тип("ОтборКомпоновкиДанных"));
    ПользовательскиеОтборы.ИдентификаторПользовательскойНастройки = "Отбор";

    Если ЗначениеЗаполнено(СчетДт) Тогда
        БухгалтерскиеОтчетыКлиентСервер.ДобавитьОтбор(ПользовательскиеОтборы, "СчетДт", СчетДт, СчетДтВидСравнения);
    КонецЕсли;

    Если ЗначениеЗаполнено(СчетКт) Тогда
        БухгалтерскиеОтчетыКлиентСервер.ДобавитьОтбор(ПользовательскиеОтборы, "СчетКт", СчетКт, СчетКтВидСравнения);
    КонецЕсли;

    Для Н = 1 По 3 Цикл
        Для ДтКт = 1 По 2 Цикл
            Если ДтКт = 1 Тогда
                СуффиксДтКт = "Дт";
            Иначе
                СуффиксДтКт = "Кт";
            КонецЕсли;

            ИдентификаторСубконто = "Субконто" + СуффиксДтКт + Н;
            ЗначениеСубконто = Неопределено;
            Если Расшифровка.Свойство(ИдентификаторСубконто) Тогда
                ЗначениеСубконто = Расшифровка[ИдентификаторСубконто];
            КонецЕсли;

            Если ЗначениеСубконто <> Неопределено Тогда
                БухгалтерскиеОтчетыКлиентСервер.ДобавитьОтбор(ПользовательскиеОтборы, ИдентификаторСубконто, ЗначениеСубконто);
            КонецЕсли;

        КонецЦикла;
    КонецЦикла;

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

    // Если в параметрах процедуры имеются ДополнительныеСвойства, тогда будут применяться НЕ настройки по умолчанию
    ДополнительныеСвойстваОпределены = Расшифровка.Свойство("ДополнительныеСвойства");

    Если ДополнительныеСвойстваОпределены Тогда
        Для каждого ТекСвойство Из Расшифровка.ДополнительныеСвойства Цикл
            ДополнительныеСвойства.Вставить(ТекСвойство.Ключ, ТекСвойство.Значение);
        КонецЦикла;
    КонецЕсли;

    ПараметрыФормы = Новый Структура();
    //ПараметрыФормы.Вставить("РежимРасшифровки",       Истина);
    ПараметрыФормы.Вставить("ВидРасшифровки", 2); // Из пользовательских настроек
    ПараметрыФормы.Вставить("ИДРасшифровки", "ОтчетПоПроводкам");
    ПараметрыФормы.Вставить("ПользовательскиеНастройки", ПользовательскиеНастройки);
    //ПараметрыФормы.Вставить("ЗаполняемыеНастройки",        Новый Структура("Показатели", НЕ ДополнительныеСвойстваОпределены));
    ПараметрыФормы.Вставить("СформироватьПриОткрытии"  , Истина);
    ПараметрыФормы.Вставить("ЗаполняемыеНастройки"     , Новый Структура("ВыводимыеДанные, Группировка, Отбор, Показатели", Истина, Истина, Ложь, Ложь));

    ОткрытьФорму("Отчет.ОтчетПоПроводкам.Форма", ПараметрыФормы, ЭтаФорма, Истина);

КонецПроцедуры