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

1С 8.3 Удаление из РегистрыБухгалтерии.Хозрасчетный

Автор Александр Мун, 14 июл 2019, 13:36

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

Александр Мун

Добрый день!

Подскажите как удалить записи из РегистрыБухгалтерии.Хозрасчетный?
Бухгалтерия 3.0

&НаСервере
Процедура ПослеВводаДаты(Дата, Параметры) Экспорт

Если Не Дата = Неопределено Тогда

Организация = ЭтотОбъект.Объект.Организация;
Регистратор =  Объект.Ссылка;

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
   | Хозрасчетный.Регистратор,
   | Хозрасчетный.Период
   |ИЗ
   | РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
   |ГДЕ
   | Хозрасчетный.Организация = &Организация И Хозрасчетный.Период > &ДатаРасторжения И Хозрасчетный.Регистратор = &Регистратор
   |
   |УПОРЯДОЧИТЬ ПО
   | Хозрасчетный.Регистратор.Дата";
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.УстановитьПараметр("ДатаРасторжения", Дата);
Запрос.УстановитьПараметр("Регистратор", Регистратор);


Выборка = Запрос.Выполнить().Выбрать();

НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);
НаборЗаписей.Прочитать();

УдаляемыеЗаписи = Новый Массив;

Пока Выборка.Следующий() Цикл
Для Каждого Запись Из НаборЗаписей Цикл
Если Запись.Период = Выборка.Период Тогда
НаборЗаписей.Удалить(Запись);
КонецЕсли;
КонецЦикла;
КонецЦикла;

    КонецЕсли;

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



Не удаляются записи, что не так?

alexandr_ll

Цитата: Александр Мун от 14 июл 2019, 13:36
Добрый день!

Подскажите как удалить записи из РегистрыБухгалтерии.Хозрасчетный?
Бухгалтерия 3.0

&НаСервере
Процедура ПослеВводаДаты(Дата, Параметры) Экспорт

Если Не Дата = Неопределено Тогда

Организация = ЭтотОбъект.Объект.Организация;
Регистратор =  Объект.Ссылка;

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
   | Хозрасчетный.Регистратор,
   | Хозрасчетный.Период
   |ИЗ
   | РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
   |ГДЕ
   | Хозрасчетный.Организация = &Организация И Хозрасчетный.Период > &ДатаРасторжения И Хозрасчетный.Регистратор = &Регистратор
   |
   |УПОРЯДОЧИТЬ ПО
   | Хозрасчетный.Регистратор.Дата";
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.УстановитьПараметр("ДатаРасторжения", Дата);
Запрос.УстановитьПараметр("Регистратор", Регистратор);


Выборка = Запрос.Выполнить().Выбрать();

НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);
НаборЗаписей.Прочитать();

УдаляемыеЗаписи = Новый Массив;

Пока Выборка.Следующий() Цикл
Для Каждого Запись Из НаборЗаписей Цикл
Если Запись.Период = Выборка.Период Тогда
НаборЗаписей.Удалить(Запись);
КонецЕсли;
КонецЦикла;
КонецЦикла;

    КонецЕсли;

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



Не удаляются записи, что не так?
Попробуйте использовать методы Получить, Записать Для набора записей в регистры бухгалтерии.
https://helpme1c.ru/registry-buxgalterii-v-yazyke-1s-8-v-primerax

Александр Мун

alexandr_ll, Да действительно, упустил метод "Записать". Спасибо!

Теги:

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

Рейтинг@Mail.ru

Поиск