1C Предприятие 8.1 как выделить жырным фрифтом контрагентов в оборотке
20.08.2009
16:02
#1
Подскажите, как сделать чтобы при формировании оборотно-сальдовой ведомости субконто №1 по счету выделялось жирным шрифтом. Пытаюсь проделать это в конфигураторе по аналогии с 7.7, но при формировании отчета жирным выделяются все его строки.
Заранее спасибо
Заранее спасибо
20.08.2009
16:22
#2
В конфигураторе, в макете в "строке показателя" выделяете ячейку "субконто представления" и делаете ее жирной. Кажется так))
20.08.2009
16:54
#3
Да это работает, но не совсем так, как мне хотелось, в данном случае жирным выделяются все субконто счета, по которому составлен отчет, а мне нужно, чтоб выделялось только первое субконто, например если оборотка по счету 62, то жирным бы были только контрагенты, а их договора и документы реализации (т.е. другие субконто) остались бы бледненькими.... скажите это вообще в восьмерке возможно???
спасибо
спасибо
20.08.2009
17:37
#4
"В общем модуле БухгалтерскиеОтчеты найдите процедуру ВывестиГруппировкуОборотноСальдовойВедомостиПоСчету() и исправьте код вот так:
// Код как он уже есть, чтобы найти нужное место
ИначеЕсли Лев(ИмяГруппировки, 8) = "Субконто" Тогда
Если Выборка[ИмяГруппировки] = Null Тогда
Продолжить;
КонецЕсли;
ВыводимаяОбласть = СтруктураПараметров.ОбластьСтрокаПоказателяСчет;
ВыводимаяОбласть.Параметры.Заполнить(Выборка);
ВыводимаяОбласть.Параметры.СубконтоПредставление = Выборка[ИмяГруппировки + "Представление"];
ЗаполнитьПараметрыРасшифровкиОбороткиПоСчету(ОбъектОтчета, ВыводимаяОбласть, Выборка, СтруктураПараметров);
// то, что нужно добавить!
Если ИмяГруппировки = "Субконто1" Тогда
ВыводимаяОбласть.Область("R1C2").Шрифт = Новый Шрифт(ВыводимаяОбласть.ТекущаяОбласть.Шрифт,,,Истина);
Иначе
ВыводимаяОбласть.Область("R1C2").Шрифт = Новый Шрифт(ВыводимаяОбласть.ТекущаяОбласть.Шрифт,,,Ложь);
КонецЕсли;
"
// Код как он уже есть, чтобы найти нужное место
ИначеЕсли Лев(ИмяГруппировки, 8) = "Субконто" Тогда
Если Выборка[ИмяГруппировки] = Null Тогда
Продолжить;
КонецЕсли;
ВыводимаяОбласть = СтруктураПараметров.ОбластьСтрокаПоказателяСчет;
ВыводимаяОбласть.Параметры.Заполнить(Выборка);
ВыводимаяОбласть.Параметры.СубконтоПредставление = Выборка[ИмяГруппировки + "Представление"];
ЗаполнитьПараметрыРасшифровкиОбороткиПоСчету(ОбъектОтчета, ВыводимаяОбласть, Выборка, СтруктураПараметров);
// то, что нужно добавить!
Если ИмяГруппировки = "Субконто1" Тогда
ВыводимаяОбласть.Область("R1C2").Шрифт = Новый Шрифт(ВыводимаяОбласть.ТекущаяОбласть.Шрифт,,,Истина);
Иначе
ВыводимаяОбласть.Область("R1C2").Шрифт = Новый Шрифт(ВыводимаяОбласть.ТекущаяОбласть.Шрифт,,,Ложь);
КонецЕсли;
"
17.09.2009
00:14
#5
Крууууууто!!! работает!! )))) вот спасибо огромное!! ))
а подскажите еще пожалуйста, как сделать чтоб и цифры в этой строке были жирными.... то есть итоги в общем по контрагенту
заранее благодарна
а подскажите еще пожалуйста, как сделать чтоб и цифры в этой строке были жирными.... то есть итоги в общем по контрагенту
заранее благодарна
17.09.2009
13:48
#6
R1C2 в адресе области как раз и указывает ячейку, в которой нужно установить шрифт (R - строка, C - колонка). Для охвата нескольких ячеек используйте соответствующий адрес (напр. "R1C2R1C5" - шрифт будет изменен в одной строке со второй по пятую колонку).
22.12.2009
18:51
#8
"В процедуре ВывестиПоказателиОборотноСальдовойВедомостиПоСчету
после строк
Область.Параметры.НачальныйОстатокДт = Формат(СальдоНачДт, ФорматПоказателя);
Область.Параметры.НачальныйОстатокКт = Формат(СальдоНачКт, ФорматПоказателя);
Область.Параметры.ОборотДт = Формат(ОборотДт, ФорматПоказателя);
Область.Параметры.ОборотКт = Формат(ОборотКт, ФорматПоказателя);
Область.Параметры.КонечныйОстатокДт = Формат(СальдоКонДт, ФорматПоказателя);
Область.Параметры.КонечныйОстатокКт = Формат(СальдоКонКт, ФорматПоказателя);
// Вставить
Попытка
Если (Выборка.Субконто2 = null) и (Выборка.Субконто3 = null) Тогда
Область.Область("R1").Шрифт = Новый Шрифт(Область.ТекущаяОбласть.Шрифт,,,Истина);
Иначе
Область.Область("R1").Шрифт = Новый Шрифт(Область.ТекущаяОбласть.Шрифт,,,Ложь);
КонецЕсли;
Исключение
КонецПопытки;
"
после строк
Область.Параметры.НачальныйОстатокДт = Формат(СальдоНачДт, ФорматПоказателя);
Область.Параметры.НачальныйОстатокКт = Формат(СальдоНачКт, ФорматПоказателя);
Область.Параметры.ОборотДт = Формат(ОборотДт, ФорматПоказателя);
Область.Параметры.ОборотКт = Формат(ОборотКт, ФорматПоказателя);
Область.Параметры.КонечныйОстатокДт = Формат(СальдоКонДт, ФорматПоказателя);
Область.Параметры.КонечныйОстатокКт = Формат(СальдоКонКт, ФорматПоказателя);
// Вставить
Попытка
Если (Выборка.Субконто2 = null) и (Выборка.Субконто3 = null) Тогда
Область.Область("R1").Шрифт = Новый Шрифт(Область.ТекущаяОбласть.Шрифт,,,Истина);
Иначе
Область.Область("R1").Шрифт = Новый Шрифт(Область.ТекущаяОбласть.Шрифт,,,Ложь);
КонецЕсли;
Исключение
КонецПопытки;
"
Перенос данных из бюджет 7.7 рел. 635 в 8.1 рел. 1.011.3, правила 2.09.05 Ошибка загрузкиКоллеги, кто формировал справку по ДСВ ? Зарплата 8,1 релиз 2.5.19.3
Читают тему
(гостей: 1)