Имя: Пароль:
1C
 
УПП регистр СписанныеТовары
0 Uragan_a
 
20.10.15
12:16
Нужно в ТН, чтобы списанные товары, падали на забаланс. Но никак не пойму принцип работы механизма проведения. Так понимаю, с регистр Списанныетовары добавляются строки, которые при проведении документа формируют движения по партиям и БУ ?
А как мне оприходовать на забаланс по той же стоимости, пробовал сам получить стоимость запросом, цена часто не идет на копейку.
Куда и какую строку добавить, чтобы он сформировал оприходование.

Возможно это: правлениеЗапасамиПартионныйУчет.ВыполнитьПриходПоРегистрамПартий(
        ?(ДополнительныеСвойства.Свойство("ТаблицаСтаройРегистрацииВПоследовательности"),ДополнительныеСвойства.ТаблицаСтаройРегистрацииВПоследовательности,Неопределено),
        СтруктураШапкиДокумента, Отказ, ТаблицаПоТоварам, , , Ложь, СтруктураШапкиДокумента.ОтражатьВБухгалтерскомУчете, СтруктураШапкиДокумента.ОтражатьВНалоговомУчете ИЛИ СтруктураШапкиДокумента.ОтражатьВНалоговомУчетеУСН);

    УправлениеЗапасамиПартионныйУчет.СформироватьПроводкиПоПоступлениюТМЦ(СтруктураШапкиДокумента,,ТаблицаПоТоварам,,,,, СтруктураШапкиДокумента.ОтражатьВБухгалтерскомУчете, СтруктураШапкиДокумента.ОтражатьВНалоговомУчете);

Но из требования накладной отказывается работать.
1 mikecool
 
20.10.15
12:25
(0) подпиской на события записи набора регистра пробовал? и ничего считать не надо - все данные есть
2 Uragan_a
 
20.10.15
12:28
(1) не. Интересно. То есть в подписке проверять условие (вид документа и наборе реквизитов), если подходит то добавлять еще строки?
А случайно примерчика нет?)
3 mikecool
 
20.10.15
12:30
(2) пример не дам, но ты сам уже все описал, что надо )
4 Uragan_a
 
20.10.15
12:32
Спасиб, за направление, подумаю)
5 Uragan_a
 
20.10.15
16:27
(4) ПриЗаписи РБ Хозрасчетный, подписка отрабатывает, но возвращает пустой набор записей. Хотя проводки формируются у документа (
6 Джинн
 
20.10.15
16:33
Начнем с того, что на фига они на забалансе сдались? Что за операция такая?
7 Uragan_a
 
21.10.15
01:15
(6) ждал этого вопроса, там, что-то вроде инвентаря. Задача стоит списывать именно из требования накладной. Там без вариантов (
8 Uragan_a
 
21.10.15
07:17
Нифига не пойму.

УправлениеЗапасамиПартионныйУчет.ДвижениеПартийТоваров(Ссылка, Движения.СписанныеТовары.Выгрузить()); Формирует проводки и по БУ и по регистра Партий.
Так, вот, что до, что после этой строки пытаюсь отразить движение по партиям (поступление на забаланс в партионной учете), просто добавив движение:


Движение = Движения.ПартииТоваровНаСкладахБухгалтерскийУчет.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;


Так оно затирает, чтоли те движения. В конце концов остается только отражение поступления партии на забаланс, а основные записи по регистру партий пропадают.
Нифига не пойму принцип работы.
9 Uragan_a
 
21.10.15
16:12
(3)
Вроде все неплохо, но дважды добавляется строка, хотя цикл и подписка отрабатывает один раз.

                РНПТНСБУ = РегистрыНакопления.ПартииТоваровНаСкладахБухгалтерскийУчет.СоздатьНаборЗаписей();
        РНПТНСБУ.Отбор.Регистратор.Установить(РегистраторПТ);
        РНПТНСБУ.Прочитать();
        
        Для Каждого ТекСтрокаМатериалы Из РегистраторПТ.Материалы Цикл
        
            
        Движение = РНПТНСБУ.Добавить();
        Движение.Активность                 = Истина;
        Движение.ВидДвижения                 = ВидДвиженияНакопления.Приход;
        Движение.Период                     = РегистраторПТ.Дата;
        Движение.Организация                 = РегистраторПТ.Организация;
        Движение.Номенклатура                 = ТекСтрокаМатериалы.Номенклатура;
        Движение.Склад                         = РегистраторПТ.Склад;
        Движение.ХарактеристикаНоменклатуры = ТекСтрокаМатериалы.ХарактеристикаНоменклатуры;
        Движение.СерияНоменклатуры             = ТекСтрокаМатериалы.СерияНоменклатуры;
        Движение.Заказ                         = ТекСтрокаМатериалы.Заказ;
        Движение.Качество                     = ТекСтрокаМатериалы.Качество;
        Движение.Количество                 = ТекСтрокаМатериалы.Количество;
        Движение.СчетУчета                     = ПланыСчетов.Хозрасчетный.НайтиПоКоду("201.01");
        Движение.Регистратор                 = РегистраторПТ;
        Попытка
        Движение.Стоимость                     = ТекСтрокаМатериалы.Количество * Стоимость;
        Исключение
        КонецПопытки;
        

    КонецЦикла;
    
    РНПТНСБУ.Записать();
    
    КонецЕсли;
10 Uragan_a
 
21.10.15
16:17
Все
11 Uragan_a
 
21.10.15
16:17
Очистил набор
12 Uragan_a
 
21.10.15
16:18
Спасибо
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.