Имя: Пароль:
1C
1С v8
А как вы боритесь с одинаковыми строками?
,
0 igoza
 
17.04.14
13:28
как-то же можно проще??

    Для Каждого СтрокаСравнения Из ТМЦ Цикл        
        Для Каждого Строка Из ТМЦ Цикл         
            Если СтрокаСравнения.Заказ = Строка.Заказ
                И СтрокаСравнения.Номенклатура = Строка.Номенклатура                 
                И СтрокаСравнения.ПроизводственныйЗаказ = Строка.ПроизводственныйЗаказ
                И СтрокаСравнения.НомерСтроки <> Строка.НомерСтроки
                Тогда
                обВывестиСообщение("Имеется в таблице строка № "+ СтрокаСравнения.НомерСтроки+ ", номенклатура "+СтрокаСравнения.Номенклатура
                + ", заказ "+СтрокаСравнения.Заказ+", производственный заказ "+СтрокаСравнения.ПроизводственныйЗаказ);
                ТМЦ.Удалить(Строка.НомерСтроки-1);
            КонецЕсли;            
        КонецЦикла;        
    КонецЦикла;
1 Любопытная
 
17.04.14
13:32
что это?
2 andreymongol82
 
17.04.14
13:32
Свернуть() или
Найти() или
НайтиСтроки()
3 mikecool
 
17.04.14
13:33
запрос + группировка + суммирование спец поля
4 igoza
 
17.04.14
13:35
это таблица документа перед записью
5 МихаилМ
 
17.04.14
13:38
алгоритм с ошибкой.
6 andreymongol82
 
17.04.14
13:42
(4) Выгрузить ее в ТЗ
7 VladZ
 
17.04.14
13:44
(0) За цикл в цикле нужно бить линейкой по рукам.
8 Серго62
 
17.04.14
13:44
(0) Свернуть не предлагать?
9 VladZ
 
17.04.14
13:45
+7 В стандартных конфах вроде есть процедура проверки... По крайней мере в УТ точно есть. Зачем свое городить?
10 Серго62
 
17.04.14
13:46
(7) железной?
11 Любопытная
 
17.04.14
13:46
(10) ребром
12 jsmith82
 
17.04.14
13:47
ПередЗаписью() запросом
13 jsmith82
 
17.04.14
13:48
хотя лучше в ОбработкаПроведения()
14 jsmith82
 
17.04.14
13:52
Запрос = Новый Запрос();
Запрос.Текст =
"ВЫБРАТЬ
|ТМЦ.Товар,
|1 КАК Поле
|ИЗ
|Документ.МойДокумент.ТМЦ КАК ТМЦ
|СГРУППИРОВАТЬ ПО ТМЦ ИМЕЮЩИЕ СУММА(Поле) > 1";
Результат = Запрос.Выполнить();
Если Не Результат.Пустой() Тогда
Отказ = Истина;
///Сообщить о проблемных товарах
КонецЕсли;
15 andreymongol82
 
17.04.14
13:53
(14) Опередил :)
16 igoza
 
17.04.14
14:04
(14) благодарю!