Как программно прописать попадание в книгу покупок 1с 8.2 бп
☑
0
sevensword
16.07.15
✎
06:10
пишу в обработку проведения
ДвНДС = Движения.НДСЗаписиКнигиПокупок.Добавить();
ДвНДС.Активность = Истина;
ДвНДС.Период = Дата;
ДвНДС.Организация = Организация;
ДвНДС.Поставщик = Контрагент;
ДвНДС.СчетФактура = Ссылка;
ДвНДС.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
двНДС.СчетФактура = получить_счф(Ссылка);
ДвНДС.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
ДвНДС.НДС = Товары.Итог("СуммаНДС");
ДвНДС.СуммаБезНДС = ?(СуммаВключаетНДС, Товары.Итог("Сумма") - Товары.Итог("СуммаНДС"), Товары.Итог("Сумма"));
ДвНДС.ДатаСобытия = Дата;
ДвНДС.ДоговорКонтрагента = ДоговорКонтрагента;
ДвНДС.Событие = Перечисления.СобытияПоНДСПокупки.НДСОплачен;
но итога нет, данные не попадает в книгу покупок, подскажите пожалуйста где ошибка?
1
sevensword
16.07.15
✎
06:10
функция получить_счф(док)
тз = "ВЫБРАТЬ Ссылка, ДокументОснование ИЗ Документ.СчетФактураПолученный.ДокументыОснования ГДЕ ДокументОснование = &_док";
запрос = новый Запрос(тз);
запрос.УстановитьПараметр("_док", док);
таб = запрос.Выполнить().Выгрузить();
если таб.Количество() > 0 тогда
возврат(таб[0].Ссылка);
конецесли;
возврат(Документы.СчетФактураВыданный.ПустаяСсылка());
конецфункции
2
Мимохожий Однако
16.07.15
✎
06:59
Я бы начал с анализа отчета Книга покупок и движений регистров, которые этот отчет используют. Если не попадает, значит где-то не докрутил. Рекомендуется вместо самопала использовать стандартные функции типовой конфигурации. Сюрпризов будет меньше. Надо только напрячься и изучить.
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший