Имя: Пароль:
1C
1С v8
Как в подписке на событие добавить движение по регистру?
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)согласен, что не оптимизировано, зато работает.
оплата была за время :-)
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс