Имя: Пароль:
1C
 
Как программно прописать попадание в книгу покупок 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
Я бы начал с анализа отчета Книга покупок и движений регистров, которые этот отчет используют. Если не попадает, значит где-то не докрутил. Рекомендуется вместо самопала использовать стандартные функции типовой конфигурации. Сюрпризов будет меньше. Надо только напрячься и изучить.
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший