Заполнить табличную часть. Программно.

[applesound]

Добрый день.
Необходимо заполнить табличную часть спрвочника Партнеры.КонтактнаяИнформация.
Часть реквизитов заполнено: Ссылка, НомерСтроки, Тип, Вид, Представление, ЗначенияПолей
Часть реквизитов не заполнено: НомерТелефона, НомерТелефонаБезКодов

Необходимо на основании заполненного поля Представление дозаполнить поля НомерТелефона и НомерТелефонаБезКодов


Создана Подписка на событие / СправочникОбъект.Партнеры / ПередЗаписью
Процедура в общем модуле. При записи отладчиком попадаю в процедуру. Всё остальное не работает.

Процедура ПартнерПередЗаписьюПроверитьДополнитьКИПередЗаписью(Объект, Отказ) Экспорт
// Вставить содержимое обработчика.
ДляОтладки = Истина;
Таблица = Объект.КонтактнаяИнформация.Добавить();
Таблица.Колонки.Добавить("НомерТелефона");
Таблица.Колонки.Добавить("НомерТелефонаБезКодов");

Для каждого Строка Из Таблица Цикл
Строка.НомерТелефона = Объект.КонтактнаяИнформация.Представление;
Сообщить(Строка.НомерТелена);
Строка.НомерТелефонаБезКодов = Объект.КонтактнаяИнформация.Представление;
Сообщить(Строка.НомерТелефонаБезКодов);
КонецЦикла;
КонецПроцедуры

[alexandr_ll]

Добрый день.
Необходимо заполнить табличную часть спрвочника Партнеры.КонтактнаяИнформация.
Часть реквизитов заполнено: Ссылка, НомерСтроки, Тип, Вид, Представление, ЗначенияПолей
Часть реквизитов не заполнено: НомерТелефона, НомерТелефонаБезКодов

Необходимо на основании заполненного поля Представление дозаполнить поля НомерТелефона и НомерТелефонаБезКодов


Создана Подписка на событие / СправочникОбъект.Партнеры / ПередЗаписью
Процедура в общем модуле. При записи отладчиком попадаю в процедуру. Всё остальное не работает.

Процедура ПартнерПередЗаписьюПроверитьДополнитьКИПередЗаписью(Объект, Отказ) Экспорт
// Вставить содержимое обработчика.
ДляОтладки = Истина;
Таблица = Объект.КонтактнаяИнформация.Добавить();
Таблица.Колонки.Добавить("НомерТелефона");
Таблица.Колонки.Добавить("НомерТелефонаБезКодов");

Для каждого Строка Из Таблица Цикл
Строка.НомерТелефона = Объект.КонтактнаяИнформация.Представление;
Сообщить(Строка.НомерТелена);
Строка.НомерТелефонаБезКодов = Объект.КонтактнаяИнформация.Представление;
Сообщить(Строка.НомерТелефонаБезКодов);
КонецЦикла;
КонецПроцедуры

Этот метод

Код Выделить Развернуть

Таблица = Объект.КонтактнаяИнформация.Добавить();
Добавляет пустую строку в табличную часть справочника, поэтому все дальнейшее не выполняется. Вероятно, вы планировали выгрузить табличную часть в таблицу значений.

Код Выделить Развернуть

Таблица = Объект.КонтактнаяИнформация.Выгрузить();

[FanFani]

Я так понял что поле представление просто перенести в строку номер телефона?
Извините, но в коде какой-то бред написан.

Код Выделить Развернуть


Процедура ПартнерПередЗаписьюПроверитьДополнитьКИПередЗаписью(Объект, Отказ) Экспорт
Для каждого СтрокаТЧ из Объект.КонтактнаяИнформация Цикл
    Если Не ЗначениеЗаполнено(СтрокаТЧ.НомерТелефона) Тогда
        СтрокаТЧ.НомерТелефона = СтрокаТЧ.Представление;
        СтрокаТЧ.НомерТелефонаБезКодов = СтрокаТЧ.Представление;
    КонецЕсли;
КонецЦикла;
КонецПроцедуры


[applesound]

Вопрос закрыт. Всем спасибо!!!

Добавлено: 09 янв 2020, 18:14

Я так понял что поле представление просто перенести в строку номер телефона?
Извините, но в коде какой-то бред написан.

Код Выделить Развернуть


Процедура ПартнерПередЗаписьюПроверитьДополнитьКИПередЗаписью(Объект, Отказ) Экспорт
Для каждого СтрокаТЧ из Объект.КонтактнаяИнформация Цикл
    Если Не ЗначениеЗаполнено(СтрокаТЧ.НомерТелефона) Тогда
        СтрокаТЧ.НомерТелефона = СтрокаТЧ.Представление;
        СтрокаТЧ.НомерТелефонаБезКодов = СтрокаТЧ.Представление;
    КонецЕсли;
КонецЦикла;
КонецПроцедуры


Всё работает !!!