|
|
Как в подписке на событие добавить движение по регистру? |
☑ |
|
0
firelli87
14.02.12
✎
12:39
|
приветствую всех! Ка 1.1.18. В подписку на событие "После проведения документа передача материалов в эксплуатацию" добавляю движения с проводками по забалансовым счетам. К сожалению эти движения затирают движения документа по 10 счету. Как добавить движения, а не затереть?
|
|
|
1
ДенисЧ
14.02.12
✎
12:39
|
Прочитать()
Записать(Ложь)
|
|
|
2
PR
14.02.12
✎
12:40
|
Прочитать, добавить, записать
|
|
|
3
Naumov
14.02.12
✎
12:43
|
.Записать(ложь)
|
|
|
4
firelli87
14.02.12
✎
12:49
|
Так. Интересно теперь чуть подробнее. Сначала что я считываю процедурой: прочитать()? Записать() я не использую, у меня добавляются проводки:
Проводки = Источник.Движения.Хозрасчетный;
Для Каждого Строка Из ТаблицаЗатратМЦ Цикл
Проводка = Проводки.Добавить();
Проводка.Период = Источник.Дата;
Проводка.Организация = Источник.Организация;
Проводка.СчетДт = Строка.СчетМЦ;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "Склады", Источник.Склад);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "Номенклатура", Строка.Номенклатура);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "РаботникиОрганизации", Строка.ФизЛицо);
Проводка.КоличествоДт = Строка.Количество;
Проводка.Сумма = Строка.Сумма;
КонецЦикла;
|
|
|
5
Spieluhr
14.02.12
✎
12:53
|
(4)Проводки.Записать();
забыл
|
|
|
6
Tazuya
14.02.12
✎
12:56
|
НаборЗаписей = РегистрыНакопления.ПродажиСебестоимость.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Источник.Ссылка);
стр = Результат.Выбрать();
Пока стр.Следующий() Цикл
Движение = НаборЗаписей.Добавить();
Движение.Регистратор = Источник.Ссылка;
Движение.Период = Источник.дата;
Движение.Номенклатура=стр.Номенклатура;
Движение.ХарактеристикаНоменклатуры=стр.ХарактеристикаНоменклатуры;
Движение.ЗаказПокупателя="";
Движение.Подразделение= Источник.Подразделение;
Движение.Проект="";
Движение.Количество=стр.Количество;
Движение.Стоимость=стр.Стоимость;
Движение.СписаниеПартий=истина;
Движение.ДокументДвижения=Источник.ссылка;
Движение.ДокументДвиженияПериод=Источник.дата;
КонецЦикла;
НаборЗаписей.Записать();
|
|
|
7
Scooter
14.02.12
✎
12:58
|
(6)Загрузить??? неа
|
|
|
8
Scooter
14.02.12
✎
12:59
|
(7)+ ну или на крайняк заполнить значенияСв
|
|
|
9
firelli87
14.02.12
✎
13:02
|
Понял ребята вконце цикла Проводки.Записать(ложь). Всем спасибо!
|
|
|
10
Tazuya
14.02.12
✎
13:14
|
(8)согласен, что не оптимизировано, зато работает.
оплата была за время :-)
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший