[prod87]

Добавил в план счетов 4й субконто. Как вывести его в таблицу на форме списка плана счетов ?
Пробовал просто добавлять колонку "Субконто4". При щелчке по ней открывается форма элемента, но при добавлении 4го субконто в поле субконто 4(на форме списка) не отображается вид субконто. Поле просто остается пустым..
Можно ли каким нибудь более простым способом добавить эту колонку или нужно код дописывать ?

Если только код дописывать, тогде находится этот кусок кода? Не могу найти...

Заранее спасибо

[Vofka]

В форме списка есть процедура

СписокПриВыводеСтроки

имеет она такой вид:

Процедура СписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

    Колонка  = ОформлениеСтроки.Ячейки;
    Субконто = ДанныеСтроки.ВидыСубконто;

    Если Субконто.Количество() >= 1 Тогда
        Колонка.Субконто1.Текст = ?(Субконто[0].ТолькоОбороты, НСтр("ru='(об) ';uk='(об) '"), "") + Субконто[0].ВидСубконто;
        Колонка.Субконто1.ОтображатьТекст = Истина;
    КонецЕсли;

    Если Субконто.Количество() >= 2 Тогда
        Колонка.Субконто2.Текст = ?(Субконто[1].ТолькоОбороты, НСтр("ru='(об) ';uk='(об) '"), "") + Субконто[1].ВидСубконто;
        Колонка.Субконто2.ОтображатьТекст = Истина;
    КонецЕсли;

    Если Субконто.Количество() >= 3 Тогда
        Колонка.Субконто3.Текст = ?(Субконто[2].ТолькоОбороты, НСтр("ru='(об) ';uk='(об) '"), "") + Субконто[2].ВидСубконто;
        Колонка.Субконто3.ОтображатьТекст = Истина;
    КонецЕсли;

    Если ДанныеСтроки.ЗапретитьИспользоватьВПроводках Тогда
        ОформлениеСтроки.ЦветФона = WebЦвета.СветлоЖелтый;
    КонецЕсли; 

    Вид = ДанныеСтроки.Вид;
    Если Вид = ВидСчета.Активный  Тогда
        Колонка.Вид.Текст = "А";
    ИначеЕсли Вид = ВидСчета.Пассивный  Тогда
        Колонка.Вид.Текст = "П";
    Иначе
        Колонка.Вид.Текст = "АП";
    КонецЕсли;

    Колонка.Вид.ОтображатьТекст = Истина;

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

Делаете её такого вида:

Процедура СписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

    Колонка  = ОформлениеСтроки.Ячейки;
    Субконто = ДанныеСтроки.ВидыСубконто;

    Если Субконто.Количество() >= 1 Тогда
        Колонка.Субконто1.Текст = ?(Субконто[0].ТолькоОбороты, НСтр("ru='(об) ';uk='(об) '"), "") + Субконто[0].ВидСубконто;
        Колонка.Субконто1.ОтображатьТекст = Истина;
    КонецЕсли;

    Если Субконто.Количество() >= 2 Тогда
        Колонка.Субконто2.Текст = ?(Субконто[1].ТолькоОбороты, НСтр("ru='(об) ';uk='(об) '"), "") + Субконто[1].ВидСубконто;
        Колонка.Субконто2.ОтображатьТекст = Истина;
    КонецЕсли;

    Если Субконто.Количество() >= 3 Тогда
        Колонка.Субконто3.Текст = ?(Субконто[2].ТолькоОбороты, НСтр("ru='(об) ';uk='(об) '"), "") + Субконто[2].ВидСубконто;
        Колонка.Субконто3.ОтображатьТекст = Истина;
    КонецЕсли;

    Если Субконто.Количество() >= 4 Тогда
        Колонка.Субконто4.Текст = ?(Субконто[3].ТолькоОбороты, НСтр("ru='(об) ';uk='(об) '"), "") + Субконто[3].ВидСубконто;
        Колонка.Субконто4.ОтображатьТекст = Истина;
    КонецЕсли;

    Если ДанныеСтроки.ЗапретитьИспользоватьВПроводках Тогда
        ОформлениеСтроки.ЦветФона = WebЦвета.СветлоЖелтый;
    КонецЕсли; 

    Вид = ДанныеСтроки.Вид;
    Если Вид = ВидСчета.Активный  Тогда
        Колонка.Вид.Текст = "А";
    ИначеЕсли Вид = ВидСчета.Пассивный  Тогда
        Колонка.Вид.Текст = "П";
    Иначе
        Колонка.Вид.Текст = "АП";
    КонецЕсли;

    Колонка.Вид.ОтображатьТекст = Истина;

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

и покупаете дяде Вове бутылочку пива.

Сообщение отредактировал Vofka - 16.10.12, 14:29

Причина редактирования: Исправил код, небольшая опечатка была

[prod87]

Самое смешное во всем этом, то что я так и сделал) Но по невнимательности открыл модуль налогового плана счетов:D
Стыд и срам)

Спасибо)

а пиво без проблем)