Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 19:27

Как Добавить новую запись в табличную часть

Автор tmpnikl, 23 мар 2015, 12:25

0 Пользователей и 2 гостей просматривают эту тему.

vitasw

Цитата: tmpnikl от 26 мар 2015, 11:01по сути алгоритму, код верный
Вам не кажется, что если выпадает по ошибке, то все-таки что-то с алгоритмом не то?

tmpnikl

Оставляю код с комментариями, чтоб был понятен титанический труд(для меня) по составлению этого код, но он уже работает...:-), спасибо

&Насервере
Процедура S_ave_srv()
    srv_СписокПользователей=рф_СписокПользователей;
СтруктураОтбора = Новый Структура;
СтруктураОтбора.Вставить("Сохр", Истина); // сначала указываем колонку где искать, а потом что искать.
НайденныйМассивСтрок = рф_СписокПользователей.НайтиСтроки(СтруктураОтбора);
перем1=НайденныйМассивСтрок[0].код;
ЭС_1 = Справочники.Партнеры.НайтиПоКоду(перем1);
эл_1объект = ЭС_1.получитьОбъект();
//.Ссылка.ПолучитьОбъект();
//ЭС_ориг.КонтактнаяИнформация.Страна
//ЭС_ориг.ИмяТабЧастиОбъекта
//ТЧ_ааа=Справочники.Партнеры.табличнаячасть;
Для Каждого ЭлементМассива из srv_СписокПользователей Цикл
    Если ЭлементМассива.Сохр<>Истина Тогда
        перем2=ЭлементМассива.код;
        ЭС_2 = Справочники.Партнеры.НайтиПоКоду(перем2);
        эл_2объект = ЭС_2.получитьОбъект();
        эл_2тч=эл_2объект.ПрограммноеОбеспечение.выгрузить();
         Для каждого СтрокаТЧ2 Из эл_2тч Цикл
           НоваяСтрокаТЧ1=эл_1объект.ПрограммноеОбеспечение.Добавить();
           ЗаполнитьЗначенияСвойств(НоваяСтрокаТЧ1, СтрокаТЧ2);
           //эл_1объект.ПрограммноеОбеспечение.Коментарий="сячсясч"
           //эл_1объект.ПрограммноеОбеспечение.Получить()
       КонецЦикла;
        //эл_1объект.ПрограммноеОбеспечение.загрузить(эл_2тч);
       эл_1объект.записать();
    КонецЕсли;
       
//       Для Каждого ТекущаяСтрока Из ЭлементСправочника.КонтактнаяИнформация Цикл
//           НоваяСтрока = ЭС_ориг.КонтактнаяИнформация.добавить();
//           //ЭС_ориг.КонтактнаяИнформация.добавить();
//           //ЭС_ориг.КонтактнаяИнформация[0].АдресЭП
//           НоваяСтрока.Страна="чччч";
//           
//           //ЭлементСправочника.КонтактнаяИнформация.ВыгрузитьКолонки();
//           //     ТЗ = ТекущаяСтрока.ВыгрузитьКолонки();
//                //ЭС_ориг.Загрузить(ТЗ);
////ААА = ТЧ_ааа.Добавить();
////               ЗаполнитьЗначениеСвойств(ААА, ТекущаяСтрока);
//           КонецЦикла;
           //ААА.записать();
   КонецЦикла;   
    //ЭлементСправочника = Справочники.Контрагенты.НайтиПоКоду("Ю0006");
    //Для Каждого ТекущаяСтрока Из ЭлементСправочника.ВидыДеятельности Цикл
    //    Сообщить(ТекущаяСтрока.ВидДеятельности);
    //КонецЦикла;   
   
   
   
//НайденныеСтроки = рф_СписокПользователей.НайтиСтроки(Новый Структура("Наименование", "Взор"));
//СтруктураОтбора = Новый Структура;
//СтруктураОтбора.Вставить("Сохр", Истина); // сначала указываем колонку где искать, а потом что искать.
//НайденныйМассивСтрок = рф_СписокПользователей.НайтиСтроки(СтруктураОтбора);
//перем1=НайденныйМассивСтрок[0].код;
//перем2=справочники.Партнеры.выбрать
//перем2
////.Партнеры.НайтиПоКоду(перем1);
////справочники.Партнеры.ДополнительныеРеквизиты.выбрать();


//Для Каждого НайденнаяСтрока Из НайденныеСтроки Цикл
////Действия
//        сообщить(НайденнаяСтрока.наименование);

//КонецЦикла;
// // Вставить содержимое обработчика.
//    //Для Каждого Строка из  рф_СписокПользователей цикл
//    //конеццикла
КонецПроцедуры

cska-fanat-kz

Цитата: tmpnikl от 26 мар 2015, 11:12эл_2объект = ЭС_2.получитьОбъект();         эл_2тч=эл_2объект.ПрограммноеОбеспечение.выгрузить();

чтобы выгрузить() не обязательно получать объект,
попробуйте просто "ЭС_2.ПрограммноеОбеспечение.выгрузить();"
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

tmpnikl


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск