Имя: Пароль:
1C
 
Регламентная переоценка запасов 1с8.3 УПП
,
0 Casper211
 
29.11.16
10:15
Есть документ регламентная переоценка запасов, этот документ отображается в БухгалтерскомУчете и движения записываются в ПартииТоваровНаСкладахБухгалтерскийУчет. Мне необходимо, чтобы движения отражались в ВУправленческомУчете  и чтобы движения записывались "ПартииТоваровНаСкладах(управленческий учет)".В документе есть реквизит ОтражатьВУправленческомУчете, но если я поставлю его истина в коде (где он прописывается перед записью ЛОЖЬ), то ничего вразумительного мне не происходит.
Возможно кто-то знает, как это сделать?
1 azt-yur
 
29.11.16
10:17
(0) нет такого типового документа в УПП. Значит он у вас доработан, следовательно и вопросы к тому кто его делал
2 DrShad
 
29.11.16
10:17
он не является регистратором для этого регистра, а по сему никакие галки не помогут
3 DrShad
 
29.11.16
10:17
(1) есть, но в УПП для Украины
4 Casper211
 
29.11.16
10:49
(3) то есть самому добавить эти движения по дельте?
да УПП для Украины
5 DrShad
 
29.11.16
10:56
(4) а каков тайный смысл? ведь если их изначально нет то и не нужно
6 Casper211
 
29.11.16
11:35
(5) насколько я понял, чтобы что-то там увидеть сразу, а не в конце месяца
7 DrShad
 
29.11.16
11:48
(6) так а разве там этого сразу нет?
8 Casper211
 
29.11.16
12:26
(7) я не нашел. Но в регистре  "ПартииТоваровНаСкладах(управленческий учет)" регистратор "Регламентная переоценка запасов" не стоит.
И перед записью в коде пишет

ОтражатьВБухгалтерскомУчете = Истина;
ОтражатьВУправленческомУчете = Ложь;
9 Casper211
 
29.11.16
12:26
и даже если я сам поменяю на Истину, то ничего не делает
10 Casper211
 
29.11.16
15:17
сделал через подписку


//Записать данные в новый регистр ПродажиПрайсоваСебестоимость
Процедура РегламентнаяПереоценкаЗапасовПартииТоваровНаСкладахОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
    Если Источник.ОтражатьВУправленческомУчете Тогда
        Запрос = Новый Запрос;
        Запрос.Текст = "ВЫБРАТЬ
                       |    &Период,
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка,
                       |    РегламентнаяПереоценкаЗапасовТовары.НомерСтроки,
                       |    РегламентнаяПереоценкаЗапасовТовары.Номенклатура,
                       |    РегламентнаяПереоценкаЗапасовТовары.Цена,
                       |    РегламентнаяПереоценкаЗапасовТовары.ХарактеристикаНоменклатуры,
                       |    РегламентнаяПереоценкаЗапасовТовары.СерияНоменклатуры,
                       |    РегламентнаяПереоценкаЗапасовТовары.Качество,
                       |    РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость,
                       |    ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.Цена, 0) - ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость, 0) КАК Стоимость,
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка.Склад,
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка.Организация,
                       |    ПартииТоваровНаСкладахОстатки.СтатусПартии Как СтатусПартии
                       |ИЗ
                       |    Документ.РегламентнаяПереоценкаЗапасов.Товары КАК РегламентнаяПереоценкаЗапасовТовары
                       |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах.Остатки КАК ПартииТоваровНаСкладахОстатки
                       |        ПО РегламентнаяПереоценкаЗапасовТовары.Номенклатура = ПартииТоваровНаСкладахОстатки.Номенклатура
                       |            И РегламентнаяПереоценкаЗапасовТовары.ХарактеристикаНоменклатуры = ПартииТоваровНаСкладахОстатки.ХарактеристикаНоменклатуры
                       |            И РегламентнаяПереоценкаЗапасовТовары.Ссылка.Склад = ПартииТоваровНаСкладахОстатки.Склад
                       |            И РегламентнаяПереоценкаЗапасовТовары.СерияНоменклатуры = ПартииТоваровНаСкладахОстатки.СерияНоменклатуры
                       |            И РегламентнаяПереоценкаЗапасовТовары.Ссылка.Организация = ПартииТоваровНаСкладахОстатки.Организация
                       |ГДЕ
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка = &РПЗ";
        
        Запрос.УстановитьПараметр("Период", Источник.Дата);
        Запрос.УстановитьПараметр("РПЗ", Источник.Ссылка);
        
        РезультатЗапроса = Запрос.Выполнить().Выгрузить();
        
        Источник.Движения.ПартииТоваровНаСкладах.Загрузить(РезультатЗапроса);
        Источник.Движения.ПартииТоваровНаСкладах.Записывать = Истина;
    КонецЕсли;
    
КонецПроцедуры
11 Casper211
 
29.11.16
15:55
Доделал немного

//Записать данные в  регистр ПартииТоваровНаСкладах (упр)
Процедура РегламентнаяПереоценкаЗапасовПартииТоваровНаСкладахОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
    Если Источник.ОтражатьВУправленческомУчете Тогда
        Запрос = Новый Запрос;
        Запрос.Текст = "ВЫБРАТЬ
                       |    &Период,
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка,
                       |    РегламентнаяПереоценкаЗапасовТовары.НомерСтроки,
                       |    РегламентнаяПереоценкаЗапасовТовары.Номенклатура,
                       |    РегламентнаяПереоценкаЗапасовТовары.Цена,
                       |    РегламентнаяПереоценкаЗапасовТовары.ХарактеристикаНоменклатуры,
                       |    РегламентнаяПереоценкаЗапасовТовары.СерияНоменклатуры,
                       |    РегламентнаяПереоценкаЗапасовТовары.Качество,
                       |    РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость,
                       |    ВЫБОР
                       |        КОГДА ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.Цена, 0) - ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость, 0) < 0
                       |            ТОГДА -(ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.Цена, 0) - ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость, 0))
                       |        ИНАЧЕ ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.Цена, 0) - ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость, 0)
                       |    КОНЕЦ КАК Стоимость,
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка.Склад,
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка.Организация,
                       |    ПартииТоваровНаСкладахОстатки.СтатусПартии КАК СтатусПартии,
                       |    ВЫБОР
                       |        КОГДА ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.Цена, 0) - ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость, 0) < 0
                       |            ТОГДА ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
                       |        ИНАЧЕ ВЫБОР
                       |                КОГДА ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.Цена, 0) - ЕСТЬNULL(РегламентнаяПереоценкаЗапасовТовары.ЦенаСебестоимость, 0) > 0
                       |                    ТОГДА ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
                       |            КОНЕЦ
                       |    КОНЕЦ КАК ВидДвижения
                       |ИЗ
                       |    Документ.РегламентнаяПереоценкаЗапасов.Товары КАК РегламентнаяПереоценкаЗапасовТовары
                       |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах.Остатки КАК ПартииТоваровНаСкладахОстатки
                       |        ПО РегламентнаяПереоценкаЗапасовТовары.Номенклатура = ПартииТоваровНаСкладахОстатки.Номенклатура
                       |            И РегламентнаяПереоценкаЗапасовТовары.ХарактеристикаНоменклатуры = ПартииТоваровНаСкладахОстатки.ХарактеристикаНоменклатуры
                       |            И РегламентнаяПереоценкаЗапасовТовары.Ссылка.Склад = ПартииТоваровНаСкладахОстатки.Склад
                       |            И РегламентнаяПереоценкаЗапасовТовары.СерияНоменклатуры = ПартииТоваровНаСкладахОстатки.СерияНоменклатуры
                       |            И РегламентнаяПереоценкаЗапасовТовары.Ссылка.Организация = ПартииТоваровНаСкладахОстатки.Организация
                       |ГДЕ
                       |    РегламентнаяПереоценкаЗапасовТовары.Ссылка = &РПЗ";
        
        Запрос.УстановитьПараметр("Период", Источник.Дата);
        Запрос.УстановитьПараметр("РПЗ", Источник.Ссылка);
        
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
        
        Источник.Движения.ПартииТоваровНаСкладах.Загрузить(РезультатЗапроса);
        Источник.Движения.ПартииТоваровНаСкладах.Записывать = Истина;
    КонецЕсли;
    
КонецПроцедуры