Отличается строка ТЧ. Не пойму чем...?

Форум Программирование Общие вопросы программирования (Dev)

1. user1559729 20.12.21 21:23 Сейчас в теме

Вывел ТЧ документа на форму. Мне нужно контролировать Модифицированность. Делаю:

	ОбъектФормы = РеквизитФормыВЗначение("ДокументОбъект");
	ОбъектСервера = МойДокумент.ПолучитьОбъект();

	Если ОбъектФормы <> ОбъектСервера Тогда
		Возврат Истина;
	Иначе
		Возврат Ложь;
	КонецЕсли;

Показать

1Ска говорит, что есть отличия в ТЧ, остальные реквизиты - одинаковые. В ТЧ одна единственная строка, которую я не трогаю, только вывожу. Не пойму, в чем отличие ОбъектФормы.МояТЧ[0] и ОбъектСервера.МояТЧ[0] ? Сравнил все колонки через "=" - значения колонок совпадают...

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. spacecraft 20.12.21 21:41 Сейчас в теме

(1) Так нельзя сравнивать разные объекты, даже если они содержат одинаковые данные. Сами объекты разные. Условие "Если ОбъектФормы <> ОбъектСервера Тогда" всегда будет Истина.

Если хотите определить, изменился документ или нет, то сравнивайте их Ссылки.

3. user1559729 20.12.21 22:07 Сейчас в теме

(2) Мне нужно узнать, были ли изменения в ТЧ документа, выведенной на форму, чтобы выполнить сохранение документа, если данные изменились. Причем тут ссылки?

4. spacecraft 20.12.21 22:27 Сейчас в теме

(3) Вот в каком месте вышеприведенного кода "1Ска говорит, что есть отличия в ТЧ"?
Комментарий был про сам код.
Хотите сравнивать ТЧ?
Сравнивайте каждое значение каждой строки ТЧ объекта формы с данными ссылки.
Только вот зачем? Если изменения вносились оперативно, то флаг модифицированности устанавливается автоматически.
Если изменяли вне контекста модуля формы, то по хорошему делается оповещение и устанавливается тот флаг программно.

5. user1559729 20.12.21 22:32 Сейчас в теме

(4) Начал сравнивать - громоздко. Искал решение попроще. Пока что обошелся признаком Модифицированности и флагом Сохранять данные. Спс за комменты.
Если что - похожая тема тут - https://forum.infostart.ru/forum9/topic133387/

6. dehro 12 21.12.21 07:17 Сейчас в теме

(5) Перебор по метаданным.

Цикл по реквизитам.
Цикл по табличным частям с вложенным циклом по реквизитам табличных частей.

Делов-то: на полчаса, ежели ещё и кофию попить.

7. VZyryanov 21.12.21 09:35 Сейчас в теме

Функция КоллекцияРазличаются(ТЗ1,ТЗ2,ИсключаемыеКолонки="") Экспорт
	ИсклКол=СтрокаВМассив(ИсключаемыеКолонки);
	Если ТЗ1.Количество()<>ТЗ2.Количество() Тогда
		Если ТЗ1.Количество()=1 И ТЗ2.Количество()=0 Тогда
			Для К=0 По ТЗ1.Количество()-1 Цикл
				Стр1=ТЗ1[К];
				Для М=0 По ТЗ1.Колонки.Количество()-1 Цикл
					Имя=ТЗ1.Колонки[М].Имя;
					Если ИсклКол.Найти(Имя)<>Неопределено Тогда
						Продолжить;
					КонецЕсли;
					Если ЗначениеЗаполнено(Стр1[Имя]) Тогда
						Возврат Истина;
					КонецЕсли;
				КонецЦикла;
			КонецЦикла;
			Возврат Ложь;
		ИначеЕсли ТЗ1.Количество()=0 И ТЗ2.Количество()=1 Тогда
			Для К=0 По ТЗ2.Количество()-1 Цикл
				Стр2=ТЗ2[К];
				Для М=0 По ТЗ1.Колонки.Количество()-1 Цикл
					Имя=ТЗ1.Колонки[М].Имя;
					Если ИсклКол.Найти(Имя)<>Неопределено Тогда
						Продолжить;
					КонецЕсли;
					Если ЗначениеЗаполнено(Стр2[Имя]) Тогда
						Возврат Истина;
					КонецЕсли;
				КонецЦикла;
			КонецЦикла;
			Возврат Ложь;
		Иначе
			Возврат Истина;
		КонецЕсли;
	КонецЕсли;
	Для К=0 По ТЗ1.Количество()-1 Цикл
		Стр1=ТЗ1[К];
		Стр2=ТЗ2[К];
		Для М=0 По ТЗ1.Колонки.Количество()-1 Цикл
			Имя=ТЗ1.Колонки[М].Имя;
			Если ИсклКол.Найти(Имя)<>Неопределено Тогда
				Продолжить;
			КонецЕсли;
			Если Стр1[Имя]<>Стр2[Имя] Тогда
				Возврат Истина;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	Возврат Ложь;
КонецФункции

Показать

8. soft_wind 21.12.21 10:18 Сейчас в теме

(5) есть другой вариант, документ объект со всеми своими ТЧ отлично сериализуется (что это такое - знаете?)
с помощью 3-4 команд XDTO документ превращается в строку
и остается сравнить всего две строки, текущего документа и сохраненного.

Оставьте свое сообщение

E-mail: