Показать сообщение отдельно
Старый 18.01.2005, 13:18     # 878
Cartman
Migel Mod Volos
 
Аватар для Cartman
 
Регистрация: 09.09.2003
Адрес: МПЛ-в почетной д
Сообщения: 7 486

Cartman ГипербогCartman ГипербогCartman ГипербогCartman Гипербог
Cartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman ГипербогCartman Гипербог
mrvain, на счет первого - можно написать обработку типа:
спр1 = СоздатьОбъект("Справочник.Номенклатура");
спр2 = СоздатьОбъект("Справочник.Номенклатура");
Спр1.ВыбратьЭлементы();
Пока Спр1.ПолучитьЭлемент() = 1 Цикл
Спр2.ВыбратьЭлементы();
Пока Спр2.ПолучитьЭлемент() = 1 Цикл
Если СокрЛП(Спр1.Наименование) = СокрЛП(Спр2.Наименование) Тогда
Если Спр1.Код <> Спр2.Код Тогда
Сообщить("дубль " + Спр2.Наменование + " код " + спр2.Код);
КОнецЕсли;
КОнецЕсли;
КОнецЦикла;
КОнецЦикла;

Это для 7.7.

ASol, сеньк, подправил.
__________________
Все "спасибы" - в приват и в репутацию! не засоряйте форум!!!! © Plague

Небьющаяся игрушка - это игрушка,
которой ребенок может разбить все свои остальные игрушки.


Последний раз редактировалось Migel M. Volos; 18.01.2005 в 14:00.
Cartman вне форума