Добавление проводки в документ списание товара

1С v8

28.06.13

✎

10:29

При помощи обработки "Выгрузка из SH в 1С" переносится документ списание недостачи как документ Списание товара.
При этом формируется проводка 94/41.01.
Нужно добавить ещё одну 73.02/94. Подскажите, пожалуйста, как?
После проведения он редактирует проводки следующей записью:

Если Док.Проведен Тогда
Рег = РегистрыБухгалтерии.Хозрасчетный;
НаборЗаписей = Рег.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Значение = Док.Ссылка;
НаборЗаписей.Прочитать();
ОсновныеДанные = НаборЗаписей.Выгрузить();
ОсновныеДанные = Док.Движения.Хозрасчетный.Выгрузить();
Для Каждого СтДвиж Из ОсновныеДанные Цикл
СтДвиж.СчетДт = ПланыСчетов.Хозрасчетный.НедостачиИПотериОтПорчиЦенностей;
Попытка
СтДвиж.ВидСубконтоДт1 = СтДвиж.СчетДт.ВидыСубконто[0].ВидСубконто;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;

НаборЗаписей.Загрузить(ОсновныеДанные);
Попытка
НаборЗаписей.Записать(Истина);
Исключение
Сообщить (ОписаниеОшибки());
КонецПопытки;
КонецЕсли;

1 hhhh

28.06.13

✎

10:41

а зачем вид субконто меняете?

2 Umutbayev

28.06.13

✎

10:44

(1) Так было в обработке. Тут я Ничего не менял.
Обработка скачана с интернета. Остальные документы получилось подправить под свою бухгалтерию, а этот что-то не получается.

4 PCcomCat

28.06.13

✎

10:47

Так уберите корректировку?!

5 ale-sarin

28.06.13

✎

10:50

(4) Да не мешает им это. Не понимаете?
Автор не знает, что еще дописать сюда, что бы еще одну проводку добавить.

6 Umutbayev

28.06.13

✎

10:55

(4) Корректировку убрал. Но он не решает основного вопроса.

7 philll

28.06.13

✎

11:46

НоваяПроводка=Проводки.Добавить();

Новаяпроводка.Период=НовДок.Дата;

Сумма =

НоваяПроводка.Организация=

Новаяпроводка.СчетДт=
Новаяпроводка.СчетКт=

новаяПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.] =

новаяПроводка.СубконтоДт[
новаяПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.=

новаяПроводка.СубконтоКт

проводки.ЗАПИСАТЬ();

8 Umutbayev

28.06.13

✎

12:24

(7) Спасибо

9 Umutbayev

28.06.13

✎

12:25

Получилось Вот так

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

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

10 philll

28.06.13

✎

12:34

работает?

11 Nenaviwu1c20

28.06.13

✎

12:36

Субконто устанавливать не забудь

12 Nenaviwu1c20

28.06.13

✎

12:36

если таковые имеются конечно