Синхронизация справочников

@nastena_r_v · Регистрация: 03.05.2012

Author24 — интернет-сервис помощи студентам

Добрый день, подскажите, как можно синхронизировать справочник Должности организации и Должности? Справочник по упр.учету "Должности" не велся, а сейчас необходимо начать использовать его. Вручную очень долго переносить данные. Может у кого есть? Или примерно что-то похожее есть, как наглядный пример... За ранее спасибо всем.

@GreenkA · 15.03.2016, 10:01

nastena_r_v, какая у вас конфигурация? Какова структура этих справочников?
Думаю, написать обработку по переносу данных не должно занять много времени...

@nastena_r_v · 15.03.2016, 10:35 **[ТС]**

GreenkO, конфигурация УПП 8,3 обычное приложение. Справочники типовые. Различий нет только в стандартных реквизитах. Было бы приемлемо автоматически перенести данные по наименованию и коду. Подскажите, с чего начать, или может пример какой есть?

@GreenkA · 15.03.2016, 11:03

nastena_r_v, создаете обработку. на команду Выполнить() - код

1C

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

Перед запуском - сделайте бэкап базы на всякий случай.

@nastena_r_v · 15.03.2016, 12:29 **[ТС]**

GreenkO, ругается на "Заполнить значение свойств"

@GreenkA · 15.03.2016, 13:45

nastena_r_v, тогда прописывайте реквизиты отдельно:

1C

  Если ТекДолжность.Пустая() Тогда
    НовДолжность = Справочники.Должности.СоздатьЭлемент();
    НовДолжность.Наименование = ВыборкаДолжностей.Наименование;
    НовДолжность.Код = ВыборкаДолжностей.Код;
//и так далее
    НовДолжность.Записать();
  КонецЕсли;

Tklwegsd · 15.03.2016, 20:00

Или параметр добавить

1C

1	ЗаполнитьЗначенияСвойств(НовДолжность, ВыборкаДолжностей,, "Родитель");

@nastena_r_v · 01.04.2016, 14:18 **[ТС]**

GreenkO, должности переносит, но почему-то некоторые пропускает, причем справочник "Должности" был абсолютно пустой. ((

Добавлено через 3 часа 1 минуту
Разобралась почему пропускает строки.
А еще вопрос, тоже по этим же должностям. Как сделать, чтоб при добавлении новой должности в справочник "Должности организации", добавлялась автоматически эта же должность в справочник "Должности", так же по коду и наименованию.

@GreenkA · 01.04.2016, 14:22

nastena_r_v, можно перед записью проверять:

1C

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

@nastena_r_v · 03.04.2016, 21:59 **[ТС]**

GreenkO, добавила в процедуру "При записи", иначе на код никак не реагирует. ,но ругается на
Если Объект.Ссылка.Пустая() Тогда

1C

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

пишет: Значение не является значением объектного типа (Пустая)
Хотя при создании кода дает выбрать эту функцию.

@GreenkA · 03.04.2016, 22:17

nastena_r_v, ПриЗаписиНаСервере?

Сообщение от nastena_r_v

иначе на код никак не реагирует

Сорри, предыдущий код надо исправить:

1C

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

@nastena_r_v · 04.04.2016, 05:25 **[ТС]**

GreenkO, все-равно процедуру не видит. А если я переношу код в процедуру при записи, то ругается так же на значение "пустая", как я и писала ранее.

@GreenkA · 04.04.2016, 09:32

nastena_r_v, вам надо связать процедуру с событием формы. И прописать ее надо в модуле формы.

@nastena_r_v · 04.04.2016, 10:53 **[ТС]**

Я так и делала. Нет результата.
В чем может быть причина, что он ругается на значение "Пустая?

@GreenkA · 04.04.2016, 13:26

nastena_r_v, в отладчике смотрели? заходит в эту процедуру?

@Briolin · 06.04.2016, 07:45

Сообщение от GreenkO

создаете обработку. на команду Выполнить() - код
1CВыделить код

1C

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

Можете подсказать почему не работает код? 1С 8.2 ,пишет ошибки:

1C

{Обработка.Обработка1.Форма.Форма.Форма(3,11)}: Ожидается имя процедуры
Процедура <<?>>Выполнить(Команда); (Проверка: Сервер)
{Обработка.Обработка1.Форма.Форма.Форма(3,11)}: Ожидается имя процедуры
Процедура <<?>>Выполнить(Команда); (Проверка: Тонкий клиент)

@GreenkA · 06.04.2016, 08:39

Briolin, измените имя процедуры.

@Briolin · 06.04.2016, 08:52

Сообщение от GreenkO

измените имя процедуры.

Я сразу изменил её, не помогло

@GreenkA · 06.04.2016, 08:54

Briolin, покажите весь код вашей процедуры

@Briolin · 06.04.2016, 08:58

GreenkO,

1C

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

@GreenkA 3062 / 2009 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	06.04.2016, 08:54	19
	Briolin, покажите весь код вашей процедуры 0

@nastena_r_v 47 / 47 / 1 Регистрация: 03.05.2012 Сообщений: 266
		1
	Синхронизация справочников 15.03.2016, 07:28. Показов 4444. Ответов 26 Метки нет (Все метки) Добрый день, подскажите, как можно синхронизировать справочник Должности организации и Должности? Справочник по упр.учету "Должности" не велся, а сейчас необходимо начать использовать его. Вручную очень долго переносить данные. Может у кого есть? Или примерно что-то похожее есть, как наглядный пример... За ранее спасибо всем. 0

@GreenkA 3062 / 2009 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	15.03.2016, 10:01	2
	nastena_r_v, какая у вас конфигурация? Какова структура этих справочников? Думаю, написать обработку по переносу данных не должно занять много времени... 1

@nastena_r_v 47 / 47 / 1 Регистрация: 03.05.2012 Сообщений: 266
	15.03.2016, 10:35 [ТС]	3
	GreenkO, конфигурация УПП 8,3 обычное приложение. Справочники типовые. Различий нет только в стандартных реквизитах. Было бы приемлемо автоматически перенести данные по наименованию и коду. Подскажите, с чего начать, или может пример какой есть? 0

@nastena_r_v 47 / 47 / 1 Регистрация: 03.05.2012 Сообщений: 266
	15.03.2016, 12:29 [ТС]	5
	GreenkO, ругается на "Заполнить значение свойств" Миниатюры 0

@nastena_r_v 47 / 47 / 1 Регистрация: 03.05.2012 Сообщений: 266
	01.04.2016, 14:18 [ТС]	8
	GreenkO, должности переносит, но почему-то некоторые пропускает, причем справочник "Должности" был абсолютно пустой. (( Добавлено через 3 часа 1 минуту Разобралась почему пропускает строки. А еще вопрос, тоже по этим же должностям. Как сделать, чтоб при добавлении новой должности в справочник "Должности организации", добавлялась автоматически эта же должность в справочник "Должности", так же по коду и наименованию. 0

@nastena_r_v 47 / 47 / 1 Регистрация: 03.05.2012 Сообщений: 266
	04.04.2016, 05:25 [ТС]	12
	GreenkO, все-равно процедуру не видит. А если я переношу код в процедуру при записи, то ругается так же на значение "пустая", как я и писала ранее. 0

@GreenkA 3062 / 2009 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	04.04.2016, 09:32	13
	nastena_r_v, вам надо связать процедуру с событием формы. И прописать ее надо в модуле формы. 0

@nastena_r_v 47 / 47 / 1 Регистрация: 03.05.2012 Сообщений: 266
	04.04.2016, 10:53 [ТС]	14
	Я так и делала. Нет результата. В чем может быть причина, что он ругается на значение "Пустая? 0

@GreenkA 3062 / 2009 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	04.04.2016, 13:26	15
	nastena_r_v, в отладчике смотрели? заходит в эту процедуру? 0

@GreenkA 3062 / 2009 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	06.04.2016, 08:39	17
	Briolin, измените имя процедуры. 0

@Briolin 59 / 64 / 11 Регистрация: 13.11.2014 Сообщений: 940
	06.04.2016, 08:52	18
	Сообщение от GreenkO измените имя процедуры. Я сразу изменил её, не помогло 0

Синхронизация справочников

Решение