Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: ФормаСписка Плана счетов после добавления 4го субконто
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
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Цвета.СветлоЖелтый;
    КонецЕсли;

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

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

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


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

Спасибо)

а пиво без проблем)
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.