Имя: Пароль:
1C
 
Программное добавление поля в ОСВ
0 xipypg2012
 
23.10.23
13:16
Добрый день, может кто подскажет. Есть программное формирование ОСВ, надо вывести туда ИНН контрагента

НоваяОСВ = Отчеты.ОборотноСальдоваяВедомость.Создать();
    
    ПолеСчет =  Новый ПолеКомпоновкиДанных("Счет");
    ПользовательскиеНастройкиКомпоновкиДанных = Новый ПользовательскиеНастройкиКомпоновкиДанных;
    НастройкиКД = НоваяОСВ.КомпоновщикНастроек.ПолучитьНастройки();
    НовыйОтбор = НастройкиКД.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    НовыйОтбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии;
    НовыйОтбор.ЛевоеЗначение = ПолеСчет;
    Список = Новый СписокЗначений;
    Список.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками);
    //Список.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками);
    //Список.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСРазнымиДебиторамиИКредиторами);
    НовыйОтбор.ПравоеЗначение = СПИСОК;
    НовыйОтбор.Использование = Истина;
    НоваяОСВ.КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКД);
    
    СтрГр = НоваяОСВ.Группировка.Добавить();
    стргр.Использование = Истина;
    стргр.ПоСубконто = "+1-2-3";
    стргр.ПоСубсчетам = Истина;
    стргр.Счет =  ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками;
    Стргр.Представление = "Контрагенты";
    //СтрГр = НоваяОСВ.Группировка.Добавить();
    //стргр.Использование = Истина;
    //стргр.ПоСубконто = "+1-2-3";
    //стргр.ПоСубсчетам = Истина;
    //стргр.Счет =  ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками;
    //Стргр.Представление = "Контрагенты";
    //СтрГр = НоваяОСВ.Группировка.Добавить();
    //стргр.Использование = Истина;
    //стргр.ПоСубконто = "+1-2";
    //стргр.ПоСубсчетам = Истина;
    //стргр.Счет =  ПланыСчетов.Хозрасчетный.РасчетыСРазнымиДебиторамиИКредиторами;
    //Стргр.Представление = "Контрагенты";
    
    //Обязателньо указываем ключ (Равным параметру "ИДРасшифровки") НастройкиРасшифровки
    НастройкиРасшифровки = Новый Структура;
    НастройкиРасшифровки.Вставить("ИДРасшифровки", ПользовательскиеНастройкиКомпоновкиДанных);
    
    ЗаполнятьТиповыеНастройки = Новый Структура;
    ЗаполнятьТиповыеНастройки.Вставить("Отбор"          , Ложь);
    ЗаполнятьТиповыеНастройки.Вставить("Группировка"     , Ложь);
    ЗаполнятьТиповыеНастройки.Вставить("ВыводимыеДанные", Истина);
    ЗаполнятьТиповыеНастройки.Вставить("Показатели"     , Истина);
    
    ПараметрыОтчета = Новый Структура;
    ПараметрыОтчета.Вставить("Организация"                      , Объект.Организация);
    ПараметрыОтчета.Вставить("НачалоПериода"                    , НачалоГода(ЭтаФорма.Период.ДатаНачала));
    ПараметрыОтчета.Вставить("КонецПериода"                     , КонецКвартала(ЭтаФорма.Период.ДатаОкончания));
    ПараметрыОтчета.Вставить("ВключатьОбособленныеПодразделения", ЛОЖЬ);
    ПараметрыОтчета.Вставить("ПоказательБУ"                     , Истина);
    ПараметрыОтчета.Вставить("ПоказательНУ"                     , ЛОЖЬ); ПараметрыОтчета.Вставить("ПоказательСверкаНУ"                     , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ПоказательПР"                     , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ПоказательВР"                     , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ПоказательВалютнаяСумма"          , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ПоказательКонтроль"               , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ВыводитьЗабалансовыеСчета"        , ЛОЖЬ);
    ПараметрыОтчета.Вставить("РазмещениеДополнительныхПолей"    , 0);
    ПараметрыОтчета.Вставить("ПоСубсчетам"                      , Истина);
    ПараметрыОтчета.Вставить("Группировка"                      , НоваяОСВ.Группировка.Выгрузить());
    ПараметрыОтчета.Вставить("ДополнительныеПоля"               , НоваяОСВ.ДополнительныеПоля.Выгрузить());
    ПараметрыОтчета.Вставить("РазвернутоеСальдо"                , НоваяОСВ.РазвернутоеСальдо.Выгрузить());
    ПараметрыОтчета.Вставить("РежимРасшифровки"                 , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ВыводитьЗаголовок"                , Истина);
    ПараметрыОтчета.Вставить("ВыводитьПодвал"                   , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ДанныеРасшифровки"                , Неопределено);
    ПараметрыОтчета.Вставить("МакетОформления"                  , "ОформлениеОтчётовЗелёный");
    ПараметрыОтчета.Вставить("СхемаКомпоновкиДанных"            , НоваяОСВ.ПолучитьМакет("СхемаКомпоновкиДанных"));
    ПараметрыОтчета.Вставить("ИдентификаторОтчета"              , "ОборотноСальдоваяВедомость");
    ПараметрыОтчета.Вставить("НастройкиКомпоновкиДанных"        , НоваяОСВ.КомпоновщикНастроек.ПолучитьНастройки());
    ПараметрыОтчета.Вставить("НаборПоказателей"                 , Отчеты["ОборотноСальдоваяВедомость"].ПолучитьНаборПоказателей());
    ПараметрыОтчета.Вставить("ОтветственноеЛицо"                , Перечисления.ОтветственныеЛицаОрганизаций.ОтветственныйЗаБухгалтерскиеРегистры);
    ПараметрыОтчета.Вставить("ВыводитьЕдиницуИзмерения"         , ЛОЖЬ);
    ПараметрыОтчета.Вставить("ЗаполняемыеНастройки"               , ЗаполнятьТиповыеНастройки);
    ПараметрыОтчета.Вставить("ВидПериода"                         , 0);//Перечисления.ДоступныеПериодыОтчета.ПроизвольныйПериод);
    
    АдресХранилища = ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
    БухгалтерскиеОтчетыВызовСервера.СформироватьОтчет(ПараметрыОтчета, АдресХранилища);
    
    РезультатВыполнения = ПолучитьИзВременногоХранилища(АдресХранилища);
1 xipypg2012
 
24.10.23
11:25
Поле вывел.
    ДопПоле = НоваяОСВ.ДополнительныеПоля.Добавить();
    ДопПоле.Использование = Истина;
    ДопПоле.Поле = "Субконто1.ИНН";
    ДопПоле.Представление = "ИНН";

Кто нибудь подскажите как указать чтоб оно выводилось отдельной колонкой ?
2 xipypg2012
 
25.10.23
11:55
Никто не сталкивался?
Ошибка? Это не ошибка, это системная функция.