1С (1C): Вопросы по конфигурациям (часть 1) - [68] :: Программы

ghost3k

На счет готовых обработок не знаю, но можно написать самому. код будет небольшим, но время выполнения будет зависеть от размера справочника.
Суть в следующем:

ТабНом = СоздатьОбъект("ТаблицаЗначений");
ТабНом.НоваяКолонка("Элемент", "Справочник.Номенклатура");
ТабНом.НоваяКолонка("Артикул", "Строка");

Спр = СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
     //не будем добавлять группы и товары с пустым артикулом
Если (Спр.ЭтоГруппа() = 1) или (СокрЛП(Спр.Артикул) = "") Тогда
         продолжить;
     КонецЕсли;
     ТабНом.НоваяСтрока();
     ТабНом.Элемент = Спр;
     ТабНом.Артикул = Спр.Артикул;
КонецЦикла;

//теперь начнем анализировать полученную таблицу

ТабНом.Сортировать("Артикул");
ТабНом.ВыбратьСтроки();
стКлюч = "";
новКлюч = "";
Пока ТабНом.ПолучитьСтроку() = 1 Цикл
    новКлюч = СокрЛП(ТабНом.Артикул);
    Если новКлюч = СтКлюч Тогда
        //значит текущий элемент и предыдущий имеют один артикул

КонецЕсли;
КонецЦикла;

Если что непонятно пиши

Добавлено:
Забыл добавить одну строку

Заканчиваться должно так:
...
КонецЕсли;
стКлюч = НовКлюч;
КонецЦикла;

Модерирует : gyra, Maz
Widok (17-09-2008 12:56): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156