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

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

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

1C Предприятие 8.1 как выделить жырным фрифтом контрагентов в оборотке

Оливетти
читатель
офлайн
Дата регистрации: 20.08.2009
Сообщений: 3
Пост №1
 
20.08.2009 16:02

Подскажите, как сделать чтобы при формировании оборотно-сальдовой ведомости субконто №1 по счету выделялось жирным шрифтом. Пытаюсь проделать это в конфигураторе по аналогии с 7.7, но при формировании отчета жирным выделяются все его строки.<br><br>Заранее спасибо

Liberty
читатель
офлайн
Дата регистрации: 27.02.2009
Сообщений: 448
Пост №2
 
20.08.2009 16:22

В конфигураторе, в макете в "строке показателя" выделяете ячейку "субконто представления" и делаете ее жирной. Кажется так))

Оливетти
читатель
офлайн
Дата регистрации: 20.08.2009
Сообщений: 3
Пост №3
 
20.08.2009 16:54

Да это работает, но не совсем так, как мне хотелось, в данном случае жирным выделяются все субконто счета, по которому составлен отчет, а мне нужно, чтоб выделялось только первое субконто, например если оборотка по счету 62, то жирным бы были только контрагенты, а их договора и документы реализации (т.е. другие субконто) остались бы бледненькими.... скажите это вообще в восьмерке возможно???<br><br>спасибо

Wee
читатель
офлайн
Дата регистрации: 24.11.2007
Сообщений: 464
Пост №4
 
20.08.2009 17:37

"В общем модуле БухгалтерскиеОтчеты найдите процедуру ВывестиГруппировкуОборотноСальдовойВедомостиПоСчету() и исправьте код вот так: <br><br>// Код как он уже есть, чтобы найти нужное место<br>ИначеЕсли Лев(ИмяГруппировки, 8) = "Субконто" Тогда<br> <br> Если Выборка[ИмяГруппировки] = Null Тогда<br> Продолжить;<br> КонецЕсли;<br> <br> ВыводимаяОбласть = СтруктураПараметров.ОбластьСтрокаПоказателяСчет;<br> <br> ВыводимаяОбласть.Параметры.Заполнить(Выборка);<br> <br> ВыводимаяОбласть.Параметры.СубконтоПредставление = Выборка[ИмяГруппировки + "Представление"];<br> <br> ЗаполнитьПараметрыРасшифровкиОбороткиПоСчету(ОбъектОтчета, ВыводимаяОбласть, Выборка, СтруктураПараметров);<br> <br>// то, что нужно добавить!<br> Если ИмяГруппировки = "Субконто1" Тогда<br> ВыводимаяОбласть.Область("R1C2").Шрифт = Новый Шрифт(ВыводимаяОбласть.ТекущаяОбласть.Шрифт,,,Истина);<br> Иначе<br> ВыводимаяОбласть.Область("R1C2").Шрифт = Новый Шрифт(ВыводимаяОбласть.ТекущаяОбласть.Шрифт,,,Ложь);<br> КонецЕсли;<br>"

Оливетти
читатель
офлайн
Дата регистрации: 20.08.2009
Сообщений: 3
Пост №5
 
17.09.2009 00:14

Крууууууто!!! работает!! )))) вот спасибо огромное!! ))<br><br>а подскажите еще пожалуйста, как сделать чтоб и цифры в этой строке были жирными.... то есть итоги в общем по контрагенту<br><br>заранее благодарна

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №6
 
17.09.2009 13:48

R1C2 в адресе области как раз и указывает ячейку, в которой нужно установить шрифт (R - строка, C - колонка). Для охвата нескольких ячеек используйте соответствующий адрес (напр. "R1C2R1C5" - шрифт будет изменен в одной строке со второй по пятую колонку).

Wee
читатель
офлайн
Дата регистрации: 24.11.2007
Сообщений: 464
Пост №7
 
17.09.2009 10:10

Неа, процедура выводит только названия субконто, суммы выводятся в другой.

djsoul
читатель
офлайн
Дата регистрации: 22.12.2009
Сообщений: 2
Пост №8
 
22.12.2009 18:51

"В процедуре ВывестиПоказателиОборотноСальдовойВедомостиПоСчету<br>после строк<br>Область.Параметры.НачальныйОстатокДт = Формат(СальдоНачДт, ФорматПоказателя);<br>Область.Параметры.НачальныйОстатокКт = Формат(СальдоНачКт, ФорматПоказателя);<br>Область.Параметры.ОборотДт       = Формат(ОборотДт, ФорматПоказателя);<br>Область.Параметры.ОборотКт       = Формат(ОборотКт, ФорматПоказателя);<br>Область.Параметры.КонечныйОстатокДт = Формат(СальдоКонДт, ФорматПоказателя);<br>Область.Параметры.КонечныйОстатокКт = Формат(СальдоКонКт, ФорматПоказателя);<br><br>// Вставить <br>Попытка<br> Если (Выборка.Субконто2 = null) и (Выборка.Субконто3 = null) Тогда<br> Область.Область("R1").Шрифт = Новый Шрифт(Область.ТекущаяОбласть.Шрифт,,,Истина);<br> Иначе<br> Область.Область("R1").Шрифт = Новый Шрифт(Область.ТекущаяОбласть.Шрифт,,,Ложь);<br> КонецЕсли;<br>Исключение<br>КонецПопытки;<br>"

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20952
Пост №9
 
22.12.2009 19:03

А зачем в попытку занес присвоение шрифта?

djsoul
читатель
офлайн
Дата регистрации: 22.12.2009
Сообщений: 2
Пост №10
 
23.12.2009 13:17

- "Субконто2" и "Субконто3" есть не у всех счетов.<br><br><br>

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

Читают тему:

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