Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 21:30

Удалять строки в регистре накопления

Автор studentca, 18 июн 2012, 10:34

0 Пользователей и 1 гость просматривают эту тему.

studentca

Добрый день! Продскажите, какая ошибка в коде, он проходит, но не удаляет движения.

НачалоПериода = НачалоМесяца(Дата);
   Сообщить(НачалоПериода);
      
   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ
      |   Остатки.КОСГУ КАК КОСГУ,
      |   Остатки.СтатьяФинансирования,
      |   Остатки.СуммаВзаиморасчетовОстаток КАК Сумма,
      |   Остатки.Физлицо.Наименование КАК Физлицо,
      |   ВзаиморасчетыСРаботникамиОрганизаций.Регистратор КАК Регистратор
      |ИЗ
      |   РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки КАК Остатки
      |      ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций
      |      ПО Остатки.Физлицо = ВзаиморасчетыСРаботникамиОрганизаций.Физлицо
      |ГДЕ
      |   Остатки.ПериодВзаиморасчетов <= &НачалоПериода
      |ИТОГИ ПО
      |   Регистратор";
      Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
      
        НаборЗаписей = РегистрыНакопления.ВзаиморасчетыСРаботникамиОрганизаций.СоздатьНаборЗаписей();
        ВыборкаПоРегистратору = Запрос.Выполнить().Выбрать();
      Пока ВыборкаПоРегистратору.СледующийПоЗначениюПоля("Регистратор") Цикл
         Сообщить("+");
              НаборЗаписей.Отбор.Регистратор.Установить(ВыборкаПоРегистратору.Регистратор);
              Пока ВыборкаПоРегистратору.Следующий() Цикл
                    ЗаполнитьЗначенияСвойств(НаборЗаписей.Добавить(), ВыборкаПоРегистратору);
               Сообщить("ВыборкаПоРегистратору");
               НаборЗаписей.Прочитать();
               НаборЗаписей.Очистить();
              КонецЦикла;
      //НаборЗаписей.Прочитать();
      //НаборЗаписей.Очистить();
      Сообщить("Очистить");
        КонецЦикла;



Dethmontt

Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

studentca


Dethmontt

Да у вас там бред какой то написан, вы сами то понимаете что пишите?

Набор = РегистрыНакопления.ВзаиморасчетыСРаботникамиОрганизаций.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(Регистратор);
Набор.Прочитать();
Набор.Очистить();
Набор.Записать(Истина);
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

LexaK

для Dethmontt
зачем?
...
Набор.Прочитать();
Набор.Очистить();
...

можно сразу делать:

Набор = РегистрыНакопления.ВзаиморасчетыСРаботникамиОрганизаций.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(Регистратор);
Набор.Записать();

набор записей при создании - пустой.




если помогло нажмите: Спасибо!

Dethmontt

Тем более........

Но если набор используется в цикле то лучше очищать
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск