Собственно написал обработочку по удалению проводок из документа "Переоценка валюты" по выбранному фильтру. Проводок не нахожу, а в оборотке наблюдаю их, полный пересчет итогов выполнял
Помогите, пожалуйста, замучался уже

и че делать? мож тестирование и исправление выполнить?

спасибо всем за "ИСЧЕРПЫВАЮЩИЕ" ответы

"спасибо"

(0) Давно программишь?

ну такое... по семерочке задачки не часто встречаются. (4) а к чему вопрос?

(5) Держись, дружище, дальше будет хуже.

(5) вот спасибо, следующий... помощник

(5) Документы потом не забыл перепровести? )))))))))))

(0) Если файловая, удалить все файлы CDX, запустить монопольно.

(8) доки не перепроводил - запустил тестирование. База - скуль

После Опер.Записать() бух итоги сами пересчитываюся, все должно было быть нормально.

Показывай как удалял

(12) тоже хочу научиться из документов проводки удалаять

(11) Опер.Записать() вылетает по ошибке

1 минуту

(13) И в чем проблема?

да бог ее, эту семерку, знает. Не могу скинуть пока код, идет тестирование - дерну мышкой - зависнет база ("не отвечает") и прийдется все по-новой тестировать

или при тестировании - можно свернуть (безболезненно) окно?

да, кстати, по логике, если я перепроведу документы - то при перепроведении опять насоздаются проводки, которые я удалил

(17) Есть плагин который показывает что там в базе происходит когда окно висит на мертво.

(16) да вроде нет проблемы, сижу ровно, ожидаю результата запроса "Показывай как удалял" из (12)

(19) бяда

(17) так свернуть можно или лучше обождать?

(23) да не зависнет она, просто прогресс не обновляется, сверни и жди

(23) Можно.

свернул окно и оно зависло

Спр=СоздатьОбъект("Справочник.Валюты");
    Спр.НайтиПоКоду("840");
    Валюта =  Спр.ТекущийЭлемент();
    
    ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
    ТабЗнач.НоваяКолонка("Док");
    ТабЗнач.НоваяКолонка("Ном");
    
    Опер = СоздатьОбъект("Операция");
    Если (ПустоеЗначение(Дебит)=0) И (ПустоеЗначение(Кредит)=0) Тогда
            Опер.ВыбратьОперацииСПроводками(ДатаН, ДатаК, Дебит + "," + Кредит, Валюта);
        Иначе
            Опер.ВыбратьОперацииСПроводками(ДатаН, ДатаК, Счетик);
    КонецЕсли;
        СтарНом = "";
        Пока Опер.ПолучитьПроводку() = 1 Цикл
            ТабЗнач.НоваяСтрока();
            ТабЗнач.ПолучитьСтрокуПоНомеру(ТабЗнач.КоличествоСтрок());
            ТабЗнач.Док = Опер.Документ.ТекущийДокумент();
               ТабЗнач.Ном = Опер.НомерПроводки();
               СтарНом = ТабЗнач.Ном;    
        КонецЦикла;
    ПервыйДок = "";  
    ТабЗнач.ВыбратьСтроки();
    Пока ТабЗнач.ПолучитьСтроку() = 1 цикл
        Если (ПервыйДок <> ТабЗнач.Док) И (ПервыйДок = "") тогда
            Опер = СоздатьОбъект("Операция");
            Опер.НайтиОперацию(ТабЗнач.Док);
            Опер.ВыбратьПроводки();
            ПервыйДок = Опер.Документ.ТекущийДокумент();
            Опер.ПолучитьПроводкуПоНомеру(ТабЗнач.Ном);
        ИначеЕсли ПервыйДок = ТабЗнач.Док тогда
            Опер.ПолучитьПроводкуПоНомеру(ТабЗнач.Ном);
        Иначе
            Опер.Записать();
            
            Опер = СоздатьОбъект("Операция");
            Опер.НайтиОперацию(ТабЗнач.Док);
            Опер.ВыбратьПроводки();
            ПервыйДок = Опер.Документ.ТекущийДокумент();
            Опер.ПолучитьПроводкуПоНомеру(ТабЗнач.Ном);
        КонецЕсли;
        
        Если УдалитьПроводки = 0 Тогда    
               Курс = глКурсДляВалюты(Валюта, Опер.ДатаОперации);
            ВалСумма = глПересчет(Опер.Сумма,Гривня,Валюта,Опер.ДатаОперации);
            Опер.УстановитьАтрибут("ВалСумма", ВалСумма);
            Попытка
                Опер.УстановитьАтрибут("Курс", Курс);
            Исключение
            КонецПопытки;
            Опер.УстановитьАтрибут("Валюта", Валюта);
        Иначе    
            Опер.УдалитьПроводку();
        КонецЕсли;
        Сообщить(Опер.Документ);
        
    Конеццикла;
    
    Попытка
        Опер.Записать();
    Исключение
    КонецПопытки;

(26) подожди - закончит и отвиснет

не отвиснет

Код на помойку.

чей-то?

(30)помоги

За создание объекта в цикле вообще тапками надо бить по рукам.

"идет тестирование - дерну мышкой - зависнет база"
Не виснет ничего. Это MS когда-то изменения в винду, а 1С проигнорировала сей факт. Грубо говоря, в эпоху WinNT окна приложений перерисовывались системой принудительно. Потом, для экономии ресурсов, потребовали, что бы приложение сообщало системе, что окно требуется перерисовать.
1С в процессе тестирования никак не сообщает, винде о том, что оно живое, соответственно получаем "белый квадрат Малевича".

Напихай доки в ТЗ
дальше
перебор твой ТЗ с доками

это за цикл
Опер = СоздатьОбъект("Операция");

потом
Опер.НайтиОперацию(тут твой док из тз);

Опер.ВыбратьПроводки();
тут обратный цикл по проводкам документа с уловием на дебит кредит и тд

ну и
Опер.УдалитьПроводку();
Опер.Записать();

перед концом цикла по документам

потом следущий документ и тд

ничего вылетать не будет при записи

(35) у меня ж тоже самое...

Хотя я на твоем месте бы разобрался почему у тебя лишние переоценки делаются, там есть список счетов в 7.7 с особым порядком переоценки, может тебе просто туда надо это все добавить и лишних проводок не будет?

Нет у тебя не тоже самое.

Напихай доки в ТЗ


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

напихал

перебор твой ТЗ с доками

  ПервыйДок = "";  
    ТабЗнач.ВыбратьСтроки();
    Пока ТабЗнач.ПолучитьСтроку() = 1 цикл
,,,,
    конеццикла;


потом
Опер.НайтиОперацию(тут твой док из тз);

        Если (ПервыйДок <> ТабЗнач.Док) И (ПервыйДок = "") тогда
            Опер = СоздатьОбъект("Операция");
            Опер.НайтиОперацию(ТабЗнач.Док);
            Опер.ВыбратьПроводки();
            ПервыйДок = Опер.Документ.ТекущийДокумент();
            Опер.ПолучитьПроводкуПоНомеру(ТабЗнач.Ном);

"дебит" :)

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

А я тебе говорю что напихай доки, и перебери обратным циклом с условием, и прямо в цикле удаляй.

(40) да ладно, тебе

помоги, плиз, до 4:30 не спал - нич... не сображаю

Операция = СоздатьОбъект("Операция");
цикл по докам
    Опер.НайтиОперацию(ТабЗнач.Док);
    фл = 0;
        для сч = - Опер.КоличествоПроводок() По - 1 Цикл
               Опер.ПолучитьПроводкуПоНомеру(-Сч);
               //тут условие на дебет кредит и прочее
        фл = 1;      
        Операция.УдалитьПроводку();
        КонецЦикла;
    если фл = 1 тогда
        Операция.Записать();
    конецесли
КонецЦикла;

операция не выбрана

пока все ок

может пригодится [DELOPER] Массовое удаление выборочных проводок из ручных операций http://catalog.mista.ru/public/14191/