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

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


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

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

Для каждого Строка Из Таблица Цикл
Строка.НомерТелефона = Объект.КонтактнаяИнформация.Представление;
Сообщить(Строка.НомерТелена);
Строка.НомерТелефонаБезКодов = Объект.КонтактнаяИнформация.Представление;
Сообщить(Строка.НомерТелефонаБезКодов);
КонецЦикла;
КонецПроцедуры
1 Ёпрст
 
31.12.19
13:30
(0)
Таблица.Колонки.Добавить("НомерТелефона"); //это конечно, полный ПЭ ..подумайте, что вы пишите
Таблица.Колонки.Добавить("НомерТелефонаБезКодов");
2 Amra
 
31.12.19
13:36
(1) То, что Таблица это не ТЗ, а строка ТЧ, не смущает?
(0) Код выкинуть. Весь. Совсем. Подумать. Написать
3 polosov
 
31.12.19
13:41
(0) Используй процедуры и функции модулей УправлениеКонтактнойИнформацией*
4 applesound
 
31.12.19
13:48
Текс процедуры смущает - даже очень как смущает.
Открыл Общие модули УправлениеКонтактнойИнформацией - направьте, что именно искать.
5 polosov
 
31.12.19
13:53
(4) Все что начинается с Заполнить*
6 applesound
 
31.12.19
14:01
Таблица = Объект.КонтактнаяИнформация.Заполнить();
Верно? Добавить возвращает новую строку табличной части
7 polosov
 
31.12.19
14:05
8 applesound
 
14.01.20
12:21
Вопрос закрыт, решений найдено.
Решение:

Для каждого ТекСтрока из Объект.КонтактнаяИнформация Цикл
    ТекСтрока.НомерТелефона = ТекСтрока.Представление;
    ТекСтрока.НомерТелефонаБезКодов = ТекСтрока.Представление
КонецЦикла;
Ошибка? Это не ошибка, это системная функция.