Операция вручную. Бух 8.2

1С v8

naïve

12.02.15

✎

11:00

Доброго времени.  Никак не могу понять. Хочу заполнить операцию вручную  обработкой.

Счет =  ПланыСчетов.Хозрасчетный.НайтиПоКоду("002");

Для каждого строкаТз из ОбъектТ.Товары цикл

СтрокаОп = ОбъектО.Движения.Хозрасчетный.добавить();
СтрокаОп.СчетКт = Счет;
СтрокаОп.СубконтоКт[Счет.ВидыСубконто[1].ВидСубконто] = Справочники.Контрагенты.НайтиПоКоду("23512    ");
СтрокаОп.СубконтоКт[Счет.ВидыСубконто[2].ВидСубконто] = Справочники.Номенклатура.НайтиПоКоду(строкаТз.Номенклатура.Код);

СтрокаОп.КоличествоКт = строкаТз.КоличествоУчет;
СтрокаОп.Сумма = строкаТз.Сумма;
КонецЦикла;
ОбъектО.Записать();

1 Shrek_yar

12.02.15

✎

11:03

ОбъектО.Записать();

на
ОбъектОп.Записать();

2 Юзер123

naïve

12.02.15

✎

11:04

(1) да не.

ОбъектО - это документ ДокументСсылка.ОперацияБух

я его в форме получаю. потом объект получаю. потом хочу таб часть заполнить но не выходит.

3 Naumov

12.02.15

✎

11:06

ОбъектО.Движения.Хозрасчетный.Записать();!!!!!!!!!!!!!

4 trooba

12.02.15

✎

11:07

(2) Что именно не выходит? Ошибка? Или все ок, но в таблица документа пустая?

5 Рэйв

12.02.15

✎

11:07

Перед добавлением

ОбъектО.Движения.Хозрасчетный.Записывать=Истина;

6 trooba

12.02.15

✎

11:08

(0) Вот тебе рабочий пример: ОперацияБух=Документы.ОперацияБух.СоздатьДокумент();
ОперацияБух.Дата=КонецДня(КонПериода);
ОперацияБух.Организация=Организация;
ОперацияБух.СпособЗаполнения="Вручную";
Пока Выборка.Следующий() цикл

    СтрокаДвижения=ОперацияБух.Движения.Хозрасчетный.Добавить();
    СтрокаДвижения.СчетДт=Счет9102;
    СтрокаДвижения.Период=КонецДня(КонПериода);
    БухгалтерскийУчет.УстановитьСубконто(СтрокаДвижения.СчетДт, СтрокаДвижения.СубконтоДт, 1, Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00034"));
    //СтрокаДвижения.СубконтоДт.ПрочиеДоходыИРасходы=Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00034");
    СтрокаДвижения.СчетКт=Счет9721;
    //СтрокаДвижения.СубконтоКт.РасходыБудущихПериодов=Выборка.Субконто1;
    БухгалтерскийУчет.УстановитьСубконто(СтрокаДвижения.СчетКт, СтрокаДвижения.СубконтоКт, 1, Выборка.Субконто1);

    СтрокаДвижения.Сумма=Выборка.СуммаКонечныйОстатокДт;
    СтрокаДвижения.СуммаНУДт=СтрокаДвижения.Сумма;
    СтрокаДвижения.СуммаНУКт=СтрокаДвижения.Сумма;
    //СтрокаДвижения.сумма
КонецЦикла;

ОперацияБух.Записать(РежимЗаписиДокумента.Запись);

7 Юзер123

naïve

12.02.15

✎

11:09

(4) (6) спасибо

8 Юзер123

naïve

12.02.15

✎

11:12

Дело было в СтрокаДвижения.Период=КонецДня(КонПериода);