1C Программирование и поддержка - [83] :: Прикладное программирование

Делаю диплом.
1С v8.1 Бухгалтерский учет.
Честно говоря я уже неделю думаю как сделать лучше. Задача следующая:
Нужно вести учет о просроченных товарах.

Я решила это реализовать так:
в конфигурации уже есть документ ОтчетПроизводстваЗаСмену
Создала РегистрНакопления ОстаткиНаСкладеГотовойПродукции (существующие регистры мне не подходят).

Измерение регистра - Номенклатура;
Ресурсы - Количество,СрокХранения;
Реквизиты - Просрочено,РешениеПоПросроченному.

При проведении документа ОтчетПроизводстваЗаСмену данные заносятся в мой регистр накопления
Для каждого ТекСтрокаПродукция Из Продукция Цикл
Движение = Движения.ОстаткиНаСкладеГотовойПродукции.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Номенклатура = ТекСтрокаПродукция.Номенклатура;
Движение.Период = ЭтотОбъект.Дата;
Движение.Количество = ТекСтрокаПродукция.Количество;
Движение.СрокХранения = ТекСтрокаПродукция.СрокХранения;
КонеЦикла;

Создала документ ДанныеОСрокеХранения. Этот документ формируется автоматически при проведении документа ОтчетПроизводстваЗаСмену.
НовыйДокумент = Документы.ДанныеОСрокеХранения.СоздатьДокумент();
НовыйДокумент.Дата = ЭтотОбъект.Дата;
НовыйДокумент.ДокументОснование = ЭтотОбъект.Ссылка;
НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);

В форме ФормаДокумента есть табличное поле. При открытиии документа ДанныеОСрокеХранения значения должны подтягиваться в табличное поле из регистра накопления ОстаткиНаСкладеГотовойПродукции (ВыбранныйРегистратор = ДокументОснование). Потом идет проверка: если текущая дата больше даты поступления на склад на 5 суток, то устанавливается в документе ДанныеОСрокеХранения Просрочено = "Да", Решение = "Возврат в переработку". И При проведении этого документа данные заносятся в регистр накопления ОстаткиНаСкладеГотовойПродукции, в соответствующие реквизиты.

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

НО может быть так, что документ ОтчетПроизводстваЗаСмену может быть повторно проведен и тогда в регистре накопления данные перезаносятся и соответственно удаляются значения реквизитов Просрочено и Решение.
Пробовала изменять значения в регистре накопления через НаборЗаписей, но тогда из регистра удаляются почему та все записи.

Как сделать так, чтоб и реквизиты не удалялись и изминения заносились?

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101