Сохранение данных в регистр сведений / 1С

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / 1С [игнор отключен] [закрыт для гостей] / Сохранение данных в регистр сведений

18 сообщений из 18, страница 1 из 1

Сохранение данных в регистр сведений

#35674656

TyShiSvEt

Гость

Мне необходимо все реквизиты справочника сохранить в регистре сведений. Редактирование и добавление элементов справочника делаю в ФормеЭлемента.
Как отследить были или нет внесены какие- нибудь изменения данных. Если изменения не вносились , то как сделать что бы в регистр сведений данные не помещались (сохранение происходит при вызове события "после записи").

Я пытаюсь сравнить 2 объекта

Объект1 = Ссылка.ПолучитьОбъект() - хранит изменяемую запись до записи в справочник

Объект2 = Ссылка.ПолучитьОбъект() - хранит измененную запись после записи в справочник

Если измененний не было, то Объект1=Объект2, но мне пишет что они не равны, хотя при просмотре в отладчике никакой разницы я не заметил Почему? ИЛИ подскажите другой способ сохранения данных в регистре.

...

Рейтинг:

0 / 0

25.11.2008, 16:49

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35674706

BestProgrammist

Гость

TyShiSvEt,
1) Изменен или нет объект относительно базы, проверять всегда в событиях "ПередЗАписью"
2) "Перед записью" для справочника элемент и его значения из базы доступны по ссылке
ЭтотОбъект.Ссылка
3) Следовательно сравниваешь значение Реквизитов из "ЭтотОбъект.ИмяРеквизита" с "ЭтотОбъект.Ссылка.ИмяРеквизита"

4) Если сравнивать со значениями хранимыми в регистре, тогда в "ПередЗаписью" нужно прочитать значения из регистра и так же сравнить их с новыми значениями элемента.

...

Рейтинг:

0 / 0

25.11.2008, 17:09

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35674741

TyShiSvEt

Гость

Проблема в том что количество реквизитов изменения которых необходимо отслеживать 17 штук.
и проверять изменение каждого совсем не хочется.
С помощью Ссылка.ПолучитьОбъект() гораздо удобней.

Процедура ПередЗаписью(Отказ)
Объект1 = Ссылка.ПолучитьОбъект();
КонецПроцедуры

Процедура ПослеЗаписи()
Объект2 = Ссылка.ПолучитьОбъект();

Если Объект1 <> Объект2 тогда
Запись = РегистрыСведений.ШтатноеРасписание.СоздатьМенеджерЗаписи();
бла- бла- бла
Запись.Записать(Истина);
КонецПроцедуры

Объект1 <> Объект2 (если изменений не было), но как я уже писал что при отсутсвие изменений Объект1 и Объект2 всеравно не равны.

...

Рейтинг:

0 / 0

25.11.2008, 17:20

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35674743

TyShiSvEt

Гость

Пардон
Объект1 <> Объект2 ЕСЛИ БЫЛИ ИЗМЕНЕНИЯ

...

Рейтинг:

0 / 0

25.11.2008, 17:22

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35674875

Naf

Участник

Откуда: Москва

Сообщения: 2 597

Рейтинг: 0 / 0

примерно так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.

Функция ОбъектыСправочникаРавны(Объект1,Объект2)

	Объект1 = Справочники.Банки.СоздатьЭлемент();
	Объект2 = Справочники.Банки.СоздатьЭлемент();
	
	Равны = (Объект1.Код=Объект2.Код) и (Объект1.Наименование=Объект2.Наименование) и (Объект1.Родитель=Объект2.Родитель) и (Объект1.Владелец=Объект2.Владелец) и (Объект1.ПометкаУдаления=Объект2.ПометкаУдаления);
	
	Если не Равны Тогда
	    Возврат Ложь;	
	КонецЕсли; 
	
	Для каждого Реквизит Из Объект1.Метаданные().Реквизиты Цикл
		ИмяРеквизита = Реквизит.Имя;
		Если не(Объект1[ИмяРеквизита]=Объект2[ИмяРеквизита]) Тогда
			Возврат Ложь;	
		КонецЕсли;     	
	КонецЦикла; 
	
	Для каждого ТабличнаяЧасть Из Объект1.Метаданные().ТабличныеЧасти Цикл
		ИмяТЧ = ТабличнаяЧасть.Имя;
		ТЧ1 = Объект1[ИмяТЧ];
		ТЧ2 = Объект2[ИмяТЧ];
		Если не(ТЧ1.Количество()=ТЧ2.Количество()) Тогда
			Возврат Ложь;	
		КонецЕсли;     	
		Для й= 0  По ТЧ1.Количество()- 1  Цикл
			Стр1 = ТЧ1[й];		
			Стр2 = ТЧ2[й];		
			Для каждого Реквизит Из ТабличнаяЧасть.Реквизиты Цикл
				ИмяРеквизита = Реквизит.Имя;
				Если не(Стр1[ИмяРеквизита]=Стр2[ИмяРеквизита]) Тогда
					Возврат Ложь;	
				КонецЕсли;     				
			КонецЦикла; 
		КонецЦикла; 
	КонецЦикла; 
	
	Возврат Истина;

КонецФункции

С уважением, Naf

...

Рейтинг:

0 / 0

25.11.2008, 18:12

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35674983

BestProgrammist

Гость

TyShiSvEt,
это ваша "хотелка", а не возможности 1С,
Naf привел код который допустим в 1С

...

Рейтинг:

0 / 0

25.11.2008, 18:53

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35676699

TyShiSvEt

Гость

Naf,
Спасибо заработало!

Но всетаки почему не работает?

Объект1 = Ссылка.ПолучитьОбъект() до записи
Объект2 = Ссылка.ПолучитьОбъект() после записи

Даже если изменений не было Объект1==Объект2 всегда ЛОЖЬ

...

Рейтинг:

0 / 0

26.11.2008, 14:31

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35676705

Reder

Участник

Откуда: Москва

Сообщения: 428

Рейтинг: 0 / 0

TyShiSvEt,

Потому что это разные экземпляры объектов.

...

Рейтинг:

0 / 0

26.11.2008, 14:32

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35678091

Dolter

Гость

RederTyShiSvEt,

Потому что это разные экземпляры объектов.

Даже не столько потому, что это разные экземпляры одного и того же объекта, а потому что у них как минимум один реквизит в базе разный: _Version (обновляется при каждой записи вне зависимости от наличия изменений).

Т.е. либо заблокировать на форме кнопку записи до внесения каких-либо изменений в реквизиты (Модифицированность) либо в ПередЗаписью() взводить какой-либо флаг при отсутствии это самой модифицированности и при его "взведенном" состоянии не отрабатывать кусок кода в ПослеЗаписи().

...

Рейтинг:

0 / 0

27.11.2008, 06:21

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35678749

Naf

Участник

Откуда: Москва

Сообщения: 2 597

Рейтинг: 0 / 0

DolterRederTyShiSvEt,

Потому что это разные экземпляры объектов.

Даже не столько потому, что это разные экземпляры одного и того же объекта, а потому что у них как минимум один реквизит в базе разный: _Version (обновляется при каждой записи вне зависимости от наличия изменений).

Т.е. либо заблокировать на форме кнопку записи до внесения каких-либо изменений в реквизиты (Модифицированность) либо в ПередЗаписью() взводить какой-либо флаг при отсутствии это самой модифицированности и при его "взведенном" состоянии не отрабатывать кусок кода в ПослеЗаписи().

Может оказаться на форме элементы с галкой "изменяет данные". при его отработке взведется галка Модифицированность, хотя данные и не изменялись

...

Рейтинг:

0 / 0

27.11.2008, 12:28

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35686745

av.tor

Гость

Два объекта полученные при помощи вызова двух методов ПолучитьОбъект() всегда будут НЕ равны . Независимо ни от чего.

Код: plaintext

1.
2.
3.

с = Справочники.Валюты.НайтиПоКоду( 643 ); 
о1 = с.ПолучитьОбъект();
о2 = с.ПолучитьОбъект();
Сообщить(о1=о2); // здесь всегда будет Ложь

Как вариант можно при открытии формы сохранять значения в виде строки XML, при/после записи получать такую строку снова и сравнивать их. Если отличаются - значит есть отличия:

Код: plaintext

1.
2.
3.

ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.УстановитьСтроку();
ЗаписатьXML(ЗаписьXML, Ссылка.ПолучитьОбъект());
xmlСтрока = ЗаписьXML.Закрыть();

Еще вариант

в процедуре ПередЗаписью делаем

Код: plaintext

1.
2.
3.
4.
5.
6.

Запрос = Новый Запрос("Выбрать * из "+ ИмяОбъекта + " Как Эл Где Эл.Ссылка = &Ссылка");
//читаем данные объекта до изменений
Для Каждого Реквизит Из МетаданныеОбъект.Реквизиты Цикл
	Если НЕ Выборка[Реквизит.Имя] = ЭтаФорма[Реквизит.Имя] Тогда
		//есть изменения
	КонецЕсли;
КонецЦикла;

...

Рейтинг:

0 / 0

02.12.2008, 01:10

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35686768

Deosfen

Участник

Откуда: Nakhodka

Сообщения: 297

Рейтинг: 0 / 0

Используйте метод "Модифицированность".

...

Рейтинг:

0 / 0

02.12.2008, 01:55

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35687510

TyShiSvEt

Гость

Прбовал Ссылка.ПолучитьОбъект().Модифицированность(), при любом варианте = ложь

...

Рейтинг:

0 / 0

02.12.2008, 12:36

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35689401

Deosfen

Участник

Откуда: Nakhodka

Сообщения: 297

Рейтинг: 0 / 0

Вы писали: "Мне необходимо все реквизиты справочника сохранить в регистре сведений. Редактирование и добавление элементов справочника делаю в ФормеЭлемента. "

- тогда в событии ПередЗаписью, используйте метод "Модифицированность"

...

Рейтинг:

0 / 0

03.12.2008, 04:30

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35689772

TyShiSvEt

Гость

Deosfen,
Не совсем понятно как использовать этот метод, я уже писал что и после записи и до записи Объект.Модифицированность()=ложь, даже при наличии изменений.

Да и к слову у меня прекрасно работает код который предложил Naf.

...

Рейтинг:

0 / 0

03.12.2008, 10:35

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35690577

pail

Участник

Откуда: Екатеринбург

Сообщения: 982

Рейтинг: 0 / 0

TyShiSvEtDeosfen,
Не совсем понятно как использовать этот метод, я уже писал что и после записи и до записи Объект.Модифицированность()=ложь, даже при наличии изменений.

Да и к слову у меня прекрасно работает код который предложил Naf.

Сколько же еще раз нужно прямым текстом сказать, что разные экземпляры объектов - они РАЗНЫЕ,
и (в частности) у свежесозданного экземпляра Модифицированности быть не может.

...

Рейтинг:

0 / 0

03.12.2008, 13:58

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35690753

TyShiSvEt

Гость

pailTyShiSvEtDeosfen,
Не совсем понятно как использовать этот метод, я уже писал что и после записи и до записи Объект.Модифицированность()=ложь, даже при наличии изменений.

Да и к слову у меня прекрасно работает код который предложил Naf.

Сколько же еще раз нужно прямым текстом сказать, что разные экземпляры объектов - они РАЗНЫЕ,
и (в частности) у свежесозданного экземпляра Модифицированности быть не может.

То что экземпляры разные это понятно. Сейчас я хочу знать другое: можно ли в данном случае использовать метод Модифицированность(), если можно, то хотелось бы больше конкретики.

...

Рейтинг:

0 / 0

03.12.2008, 14:33

| Ответить | Цитировать | Написать

Сохранение данных в регистр сведений

#35691434

Dolter

Гость

TyShiSvEtpailTyShiSvEtDeosfen,
Не совсем понятно как использовать этот метод, я уже писал что и после записи и до записи Объект.Модифицированность()=ложь, даже при наличии изменений.

Да и к слову у меня прекрасно работает код который предложил Naf.

Сколько же еще раз нужно прямым текстом сказать, что разные экземпляры объектов - они РАЗНЫЕ,
и (в частности) у свежесозданного экземпляра Модифицированности быть не может.

То что экземпляры разные это понятно. Сейчас я хочу знать другое: можно ли в данном случае использовать метод Модифицированность(), если можно, то хотелось бы больше конкретики.
Попробуйте в форме объекта, после изменения данных вывести следующее:
Модифицированность()
ЭтотОбъект.Модифицированность()
Ссылка.ПолучитьОбъект().Модифицированность()
и увидите в чем разница последнего перед двумя предыдущими...

...

Рейтинг:

0 / 0

03.12.2008, 17:22

| Ответить | Цитировать | Написать

18 сообщений из 18, страница 1 из 1

Форумы / 1С [игнор отключен] [закрыт для гостей] / Сохранение данных в регистр сведений

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=28&fpage=155&tid=1524240]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	84ms
get topic data:	12ms
get forum data:	2ms
get page messages:	54ms
get tp. blocked users:	2ms
others:	14ms

total:	197ms