|
0
diesell
10.04.18
✎
10:47
|
Программно создаю документ операцияБух, заполняю, записываю. В журнале операций все отображается как надо, а вот в ОСВ движения не отображаются, пока не зайдешь вручную в операцию и не перезапишешь. Куда копать?
|
|
|
2
diesell
10.04.18
✎
10:53
|
(1) Вроде бы поставил, все равно не помогло. Вот код:
ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
Смена=ТаблСмен.Найти(стр.Смена,"КодСмены");
ДокОперация.Дата = Смена.Начало;
ДокОперация.Организация = Справочники.Организации.НайтиПоКоду("00000002 ");;
ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокОперация, глЗначениеПеременной("глТекущийПользователь"), Константы.ВалютаРегламентированногоУчета.Получить(), "Продажа",);
Контр=ПолучитьКонтрагента(стр.КодОснования,стр.КодАЗс);
Если стр.КодОснования=12 Тогда
ДокОперация.Содержание = "Физические лица, Бонус наличные деньги";
ДокОперация.Комментарий = "Физические лица, Бонус наличные деньги";
ИначеЕсли стр.КодОснования=13 Тогда
ДокОперация.Содержание = ""+Контр+", Бонус безналичный расчет";
ДокОперация.Комментарий =""+Контр+", Бонус безналичный расчет";
КонецЕсли;
ДокОперация.СпособЗаполнения = "Вручную";
ДокОперация.Записать();
ДокОперацияСсылка = ДокОперация.Ссылка;
Строка1 = ДокОперация.ЭтотОбъект.Движения.Хозрасчетный.Добавить();
Строка1.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02");
Строка1.СубконтоДт.ПрочиеДоходыИРасходы=Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00284");
Строка1.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.05");
Строка1.СубконтоКт.Контрагенты = Справочники.Контрагенты.НайтиПоКоду("з00001480");
Строка1.СубконтоКт.Договоры =Строка1.СубконтоКт.Контрагенты.ОсновнойДоговорКонтрагента;
Строка1.Сумма= Окр(стр.ФактСумма/100*2,2);
Строка1.Содержание = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
Строка1.Период = ДокОперация.Дата;
Строка1.Активность=Истина;
ДокОперация.СуммаОперации=Строка1.Сумма;
ДокОперация.Записать(РежимЗаписиДокумента.Запись);
Сообщить(ДокОперация);
|
|