Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

ОСВ в 1с8.1

A-Lena
читатель
офлайн
Дата регистрации: 15.11.2005
Сообщений: 59
Пост №1
 
15.05.2008 10:07

Добрый день.<br>1С:Предприятие 8.1 (8.1.9.57)<br>Бухгалтерия предприятия, редакция 1.6 (1.6.8.3)<br>Как вывести в ОСВ по счету первое субконто жирным шрифтом?

Станислав Зворыкин
читатель
офлайн
Дата регистрации: 20.03.2008
Сообщений: 128
Пост №2
 
15.05.2008 10:10

Без внесения изменений в конфигурацию никак. Либо более правильный выход из положения, это из конфигурации сохранить отчет ОСВ как внешний, далее изменить его в соответствии со своими потребностями и в пользовательском режиме добавить в дополнительные отчеты.

A-Lena
читатель
офлайн
Дата регистрации: 15.11.2005
Сообщений: 59
Пост №3
 
15.05.2008 10:42

"Конечно без внесения изменений не обойтись...<br>Пишу в общем модуле: <br>Область.ТекущаяОбласть.Шрифт.Жирный = Истина;<br>Но выходит ошибка: "Поле объекта недоступно для записи (Жирный)""

Станислав Зворыкин
читатель
офлайн
Дата регистрации: 20.03.2008
Сообщений: 128
Пост №4
 
16.05.2008 10:15

"Если Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоИерархии И ИмяГруппировки <> "Счет" Тогда<br> ДокументРезультат.Область(ДокументРезультат.ВысотаТаблицы, 2).Шрифт = СтруктураПараметров.ШрифтГрупп;<br>КонецЕсли;<br><br>Если ИмяГруппировки = "Субконто1" Тогда<br> ДокументРезультат.Область(ДокументРезультат.ВысотаТаблицы, 2).Шрифт = Новый Шрифт("Arial",9,Истина);<br>КонецЕсли;<br> <br>ВывестиПоказателиОборотноСальдовойВедомостиПоСчету(Выборка, СтруктураПараметров, ОбъектОтчета.Счет);<br><br><br>Вот работающий код, вторая конструкция "Если КонецЕсли" вставлена мной, поищи в процедуре "ВывестиГруппировкуОборотноСальдовойВедомостиПоСчету" в глобальном общем модуле "БухгалтерскиеОтчеты" эти строки и вставь :<br><br>Если ИмяГруппировки = "Субконто1" Тогда<br> ДокументРезультат.Область(ДокументРезультат.ВысотаТаблицы, 2).Шрифт = Новый Шрифт("Arial",9,Истина);<br>КонецЕсли; "

A-Lena
читатель
офлайн
Дата регистрации: 15.11.2005
Сообщений: 59
Пост №5
 
19.05.2008 08:11

Спасибо большое. Добавлен последний вариант - всё получилось.

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация