Аватар для nastena_r_v
47 / 47 / 1
Регистрация: 03.05.2012
Сообщений: 266
1C 8.x

Добавление данных из справочника в регистр сведений

10.05.2016, 20:23. Показов 28165. Ответов 63
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте всем, вопрос конечно я думаю для профи - легкий, но для новичка (для меня) - не понятен.*
Конфигурация УПП. Есть справочник Должности и регистр сведений ДолжностныеКомпетенцииРабтоников. В справочнике в табличное поле добавляются данные о компетенциях,эти данные записываются в регистр сведений, если допустим уже созданную строку изменить, то в регистре она соответственно тоже изменится, а не добавится новая. Регистр был не периодический, сделала периодичным в пределах дня. Вопрос: как сделать, чтоб при изменении строки с данными компетенции в справочнике, в регистр сведений добавлялась новая строка, а не изменялась предыдущая.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.05.2016, 20:23
Ответы с готовыми решениями:

Табличная часть справочника и регистр сведений
Здравствуйте. Пытаюсь при закрытии элемента справочника записать значения из табличной части в регистр сведений. 1. Записывает...

Регистр сведений «Списанные материалы из эксплуатации». Почему регистр сведений, а не регистр накопления?
Существует Регистр сведений «Списанные материалы из эксплуатации». Регистр сведений предназначен для отражения данных, необходимых при...

Регистр сведений. Добавление записи
Есть независимый, непериодический регистр сведений. Добавляю запись Стр=Справочники.ВерсииФайлов.НайтиПоНаименованию(ЦН); //Сообщить...

63
Эксперт 1С
 Аватар для GreenkA
3066 / 2013 / 526
Регистрация: 25.06.2009
Сообщений: 6,964
09.06.2016, 09:26
Студворк — интернет-сервис помощи студентам
nastena_r_v, покажите код заполнения этого табличного поля в справочнике Должности, может вы там отбор по Должности не делаете?
0
 Аватар для nastena_r_v
47 / 47 / 1
Регистрация: 03.05.2012
Сообщений: 266
13.06.2016, 21:00  [ТС]
GreenkA, Вот по всем процедурам, где есть изменения:
1C
1
2
3
4
5
6
7
8
9
10
11
12
Процедура ПриОткрытии()
        
    ЗаполнитьТаблицуКомпетенций();  
    
    СтрокаТП = ЭлементыФормы.ТабличноеПоле1.ТекущиеДанные;
    Если СтрокаТП <> Неопределено Тогда
        Если СтрокаТП.Действие = Перечисления.ВидыДействияСНачислением.Прекратить Тогда
            СтрокаТП.Очистить();
        КонецЕсли;
    КонецЕсли;
                
КонецПроцедуры // ПриОткрытии
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Процедура ЗаполнитьТаблицуКомпетенций()
    ТабличноеПоле1.Очистить();
    Запрос = Новый Запрос("ВЫБРАТЬ
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Должность,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Период,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Действие,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Периодичность,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Компетенция КАК Компетенция,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Компетенция1 КАК Компетенция1
                          |ИЗ
                          | РегистрСведений.ДолжностныеКомпетенцииРаботников.СрезПоследних(, ) КАК ДолжностныеКомпетенцииРаботниковСрезПоследних
                          |ГДЕ
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Действие <> ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)");
    Запрос.УстановитьПараметр("Должность", Ссылка);
    Выборка = Запрос.Выполнить().Выбрать();    Пока Выборка.Следующий() Цикл
        ЗаполнитьЗначенияСвойств(ТабличноеПоле1.Добавить(), Выборка);       
    КонецЦикла;
                          
КонецПроцедуры
1C
1
2
3
4
5
6
Процедура ТабличноеПоле1ПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования)
    ТекущаяСтрока = ЭлементыФормы.ТабличноеПоле1.ТекущиеДанные;
    Если ТекущаяСтрока <> Неопределено Тогда
        ТекущаяСтрока.МеткаИзменения = Истина;
    КонецЕсли;
КонецПроцедуры
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Процедура ПриЗаписи(Отказ)
     ИзмененныеСтрокиТаблицы = ТабличноеПоле1.НайтиСтроки(Новый Структура("МеткаИзменения",Истина));
    Для к = 0 по ИзмененныеСтрокиТаблицы.Количество() - 1 Цикл
        НоваяЗапись = РегистрыСведений.ДолжностныеКомпетенцииРаботников.СоздатьМенеджерЗаписи();
        НоваяЗапись.Компетенция = ИзмененныеСтрокиТаблицы[к].Компетенция;
        НоваяЗапись.Компетенция1 = ИзмененныеСтрокиТаблицы[к].Компетенция1;
        НоваяЗапись.Периодичность = ИзмененныеСтрокиТаблицы[к].Периодичность;
        НоваяЗапись.Действие = ИзмененныеСтрокиТаблицы[к].Действие;
        НоваяЗапись.Период = ИзмененныеСтрокиТаблицы[к].Период;
        //НоваяЗапись.Период = ТекущаяДата();
        НоваяЗапись.Должность = Ссылка;
        НоваяЗапись.Записать();
    КонецЦикла;  
    
КонецПроцедуры
0
Эксперт 1С
 Аватар для GreenkA
3066 / 2013 / 526
Регистрация: 25.06.2009
Сообщений: 6,964
14.06.2016, 00:18
nastena_r_v, вы параметр запроса выставляете - Должность, но в самом запросе этого отбора нет.
1
 Аватар для nastena_r_v
47 / 47 / 1
Регистрация: 03.05.2012
Сообщений: 266
14.06.2016, 08:32  [ТС]
Точно. Я не обратила внимания на этого =) Спасибо
1C
1
2
3
4
5
6
7
8
9
10
11
    Запрос = Новый Запрос("ВЫБРАТЬ
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Должность,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Период,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Действие,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Периодичность,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Компетенция КАК Компетенция,
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Компетенция1 КАК Компетенция1
                          |ИЗ
                          | РегистрСведений.ДолжностныеКомпетенцииРаботников.СрезПоследних(, Должность = &Должность) КАК ДолжностныеКомпетенцииРаботниковСрезПоследних
                          |ГДЕ
                          | ДолжностныеКомпетенцииРаботниковСрезПоследних.Действие <> ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)");
параметр запроса вставить в параметры виртуальной таблицы или в условия?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.06.2016, 08:32

Регистр сведений. Ошибка получения данных
Подскажите в чем ошибка? Код из общего модуля Функция РозничнаяЦенаРубли(АктуальнаяДата, ЭлементТовары) Экспорт Отбор =...

Вывод в табличную часть справочника данных из регистра сведений
Здравствуйте! Есть справочник и РС. Надо в табличную часть справочника вывести данные из РС, причем, он должен записывать только те...

Регистр сведений. Регистр накоплений
Здравствуйте! Нужна помощь в создании (и настройки работы) регистра сведений и регистра накопления. Я с трудом могу понять как они...

Регистр сведений
Нужна помощь в оптимизации запроса... есть запрос: Запрос = Новый Запрос; Запрос.Текст = &quot; |ВЫБРАТЬ ...

Регистр сведений
Здравствуйте все!!! Подскажите вот что. Я создал три регистра: ЦеныНоменклатуры, РегистрСведений1 и КурсДенег. Но в разделе...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
64
Ответ Создать тему
Опции темы

Новые блоги и статьи
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм
anaschu 30.08.2026
Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы.
russiannick 30.08.2026
Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта
anaschu 27.08.2026
хоп хоп хоп хидахоп, а я кладую))
Как у меня протекала болезнь
zorxor 27.08.2026
Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему
kumehtar 26.08.2026
ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .
[EasyBuilder Pro] Памятка по разработке для панелей Weintek
ФедосеевПавел 26.08.2026
Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru