Тема Удаление дублирующих записей

[Элексир]

Здравствуйте. помогите с такой проблемой.
Есть документ вида

№ телефона \ Баланс1 \ Баланс2

в котором лежат только "оригинальные" по (№ тел) записи.
после некоторых манипуляций. записей становится больше.

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

[Sla]

удалялась или не выдавалась в запросе?

[Элексир]

удалялась.


Я кажется неправильно выразился запрос не из внешних обработок а из самого документа.
типа по кнопке нажать.

[Kivals]

В 1С 7.7 запрос изменять данные не может.
Ты или не в ту тему написал (возможно - 8.Х?) или не так сформулировал (тебе алгоритм нужен?)

[Элексир]

да, если не затруднит подскажи текстовку.
я уже несколько раз документ заново набирал

[Kivals]

1. ВыгрузитьТабличнуюЧасть в Таблицу значений
2. Отсортировать по НомерТелефона,Баланс
3. Пройти с конца до начала по ТЗ: если номер телефона поменялся от предыдущей строки - оставляем, если нет - удаляем
4. ЗагрузитьТабличнуюЧасть

(можно и без загрузки/выгрузки, но мне так привычнее - ИМХО быстрее работает на больших объемах)

[Элексир]

попробуем

[Элексир]

Kivals, а как пройтись по таблице значений?? у меня хмурь выдает

[Элексир]

выдает ошибку номер за пределами значения.

Код:

Процедура ТЗ()
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");

ТабЗнач.НоваяКолонка("Номер","Строка",7);
ТабЗнач.НоваяКолонка("Баланс1","Число",10,2);
ТабЗнач.НоваяКолонка("Баланс2","Число",10,2);
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 цикл
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер=№ тел;
ТабЗнач.Баланс1=Баланс1;
ТабЗнач.Баланс2=Баланс2;
КонецЦикла;
ТабЗнач.Сортировать("Номер+","Баланс1+");
сообщить(строка(ТабЗнач.КоличествоСтрок()));

Для НомерСтроки=ТабЗнач.КоличествоСтрок()  По 1 Цикл
ТабЗнач.ПолучитьСтрокуПоНомеру(НомерСтроки);
номер0="9000000000";
если ТабЗнач.Номер=номер0 тогда
ТабЗнач.УдалитьСтроку(); КонецЕсли;
КонецЦикла;




КонецПроцедуры

[Kivals]

Код:

ТабЗнач.НоваяКолонка("Номер","Строка",7);
ТабЗнач.НоваяКолонка("Баланс1","Число",10,2);
ТабЗнач.НоваяКолонка("Баланс2","Число",10,2);
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 цикл
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер=№ тел;
ТабЗнач.Баланс1=Баланс1;
ТабЗнач.Баланс2=Баланс2;
КонецЦикла;

заменяется на

Код:

ВыгрузитьТабличнуюЧасть(ТабЗнач,"Номер,Баланс1,Баланс2");

НомерСтроки - это предопределенній атрибут документа, лучше в качестве счетчика используй что-то типа И1

1С не умеет делать цикл с шагом -1 - только +1, поэтому:

Код:

Для И1=-ТабЗнач.КоличествоСтрок()  По -1 Цикл
ТабЗнач.ПолучитьСтрокуПоНомеру(-И1);

и еще: ошибку тебе выдает на конкретную строку. Какую именно?
УдалитьСтроку() требует номер строки, следовательно будет:

Код:

ТабЗнач.УдалитьСтроку(-И1);

[Элексир]

спасибо щас попробую

[Элексир]

Kivals, посмотри пожалуйста что в коде он у меня нифига не удаляет.

Код:

Процедура ТЗ()
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");

ВыгрузитьТабличнуюЧасть(ТабЗнач,"№ Тел, Баланс1, Баланс2");
удалитьстроки();

ТабЗнач.Сортировать("№ тел+","Баланс1+");
сообщить(строка(ТабЗнач.КоличествоСтрок()));
Для И1=-ТабЗнач.КоличествоСтрок() По -1 Цикл
ТабЗнач.ПолучитьСтрокуПоНомеру(-И1);
номер0="9200000000";
если ТабЗнач.№ тел=номер0 тогда
номер0=ТабЗнач.ЛицСч;
ТабЗнач.УдалитьСтроку(-И1);
КонецЕсли;
КонецЦикла;
ЗагрузитьТабличнуюЧасть(ТабЗнач);
КонецПроцедуры

[Элексир]

даже если исправить ошибку(вынести номер0 за цикл для...по...) он все равно не удаляет

[Элексир]

У меня получилось УРА!!! оказывается там надо еще использовать ПолучитьЗначение()
Всем, большое спасибо!!!

[Kivals]

Не понял - где там нужно ПолучитьЗначение()? у тебя есть ПолучитьСтрокуПоНомеру() - этого должно было хватить...

[Элексир]

Kivals,вот с этим кодом у меня все заработало.
[

Код:

ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТабЗнач,"№ тел,,Баланс1,Баланс2");
удалитьстроки();
ТабЗнач.Сортировать("+№ тел,+Баланс1");
Номер0="";
Для И1= -(ТабЗнач.КоличествоСтрок()) По -1 Цикл
ТабЗнач.ПолучитьЗначение(-И1,"№ тел");
сообщить(ТабЗнач.ПолучитьЗначение(-И1,"№ тел"));
если СокрЛП(лицевой)=СокрЛП(ТабЗнач.ПолучитьЗначение(-И1,"№ тел"))
тогда
ТабЗнач.УдалитьСтроку(-И1);
сообщить("строка удалена"); иначе лицевой=ТабЗнач.ПолучитьЗначение(-И1,"№ тел");
КонецЕсли;
КонецЦикла;
ЗагрузитьТабличнуюЧасть(ТабЗнач);

[Элексир]

Kivals,А как правильно надо было использовать ПолучитьСтрокуПоНомеру()?

[Kivals]

№ тел - это у тебя идентификатор колонки?
тогда наверное только как у тебя сделано...

Просто у меня идентификаторы колонок всегда соответствуют правилам идентификаторов 1С, и тогда начало цикла будет такое:

Код:

Для И1= -(ТабЗнач.КоличествоСтрок()) По -1 Цикл
ТабЗнач.ПолучитьСтрокуПоНомеру(-И1);
ЗнКол=ТабЗнач.ИдентКолонки;

[Элексир]

А теперь понятно я не извлекал значение колонки из полученной строки.
поэтому не происходило сравнение значений.
 

[Элексир]

№ тел это идентификатор только без пробела.

[Kivals]

Если идентификатор колонки НомерТелефона то прекрасно будет работать следующий код:

Код:

ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТабЗнач,"НомерТелефона,Баланс1,Баланс2");
УдалитьСтроки(); // не обязательно
ТабЗнач.Сортировать("+НомерТелефона,+Баланс1");
Лицевой="";
Для И1= -(ТабЗнач.КоличествоСтрок()) По -1 Цикл
ТабЗнач.ПолучитьСтрокуПоНомеру(-И1);
Сообщить(ТабЗнач.НомерТелефона);
Если СокрЛП(Лицевой)=СокрЛП(ТабЗнач.НомерТелефона) Тогда
ТабЗнач.УдалитьСтроку(-И1);
Сообщить("строка удалена");
Иначе
Лицевой=ТабЗнач.НомерТелефона;
КонецЕсли;
КонецЦикла;
ЗагрузитьТабличнуюЧасть(ТабЗнач);

[Элексир]

Kivals, спасибо за помошь все работает