Имя: Пароль:
1C
1C 7.7
v7: Удалить проводки
0 serg-lom89
 
28.08.13
13:52
счет1013=СчетПоКоду("10.13");
    счет00=СчетПоКоду("00");
    Спр=СоздатьОбъект("Справочник.МестаХранения");
    Спр.НайтиПоКоду("1000");
    Тек=Спр.ТекущийЭлемент();
    Опер=СоздатьОбъект("Операция");
    Опер.ИспользоватьСубконто(ВидыСубконто.МестаХранения, Тек);
    Опер.ВыбратьОперацииСПроводками(Дата1, Дата1, счет1013);
    Пока Опер.ПолучитьПроводку()>0 Цикл
        
        Если  (Опер.Сумма<0 ) или (Опер.Количество<0) тогда
            Сообщить("Количество = "+Опер.Количество+" ,а сумма = "+Опер.Сумма);
            Опер.УдалитьПроводку();
        КонецЕсли;
    КонецЦикла;

Надо выбрать проводки по 10.13 и которые  минусов(кол или сумма) удалить
не подскажите почему не удаляет?
1 Euguln
 
28.08.13
13:53
Опер.Записать(); где?
2 Rie
 
28.08.13
13:55
Ещё и выборка сбивается.
3 serg-lom89
 
28.08.13
13:56
(2) где?
4 Rie
 
28.08.13
13:59
(2) После удаления, по идее.
5 serg-lom89
 
28.08.13
14:00
(4) не понял))