Имя: Пароль:
1C
1С v8
Не получается в проводке программно записать сумму временной разницы в НУ
0 Тюря
 
19.05.15
17:56
Просто сумма НУ записывается, вроде все просто.
Что тут еще нужно подкрутить?


Процедура КнопкаВыполнитьНажатие(Кнопка)
    СуммаДок=0;
    Объект=БухСправка.ПолучитьОбъект();    
    Объект.Движения.Хозрасчетный.Очистить();
    
    НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(РегДокумент.Ссылка);
    НаборЗаписей.Прочитать();
    
    
    Для Каждого ВыборкаДетальныеЗаписи  из НаборЗаписей Цикл
        сообщить(ВыборкаДетальныеЗаписи.Сумма);
        НовПроводка = Объект.Движения.Хозрасчетный.Добавить();
        НовПроводка.Период = БухСправка.Дата;
        НовПроводка.СчетДт = ВыборкаДетальныеЗаписи.СчетДт;
        НовПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы] = ВыборкаДетальныеЗаписи.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы];
        НовПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат]         = ВыборкаДетальныеЗаписи.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат];
        НовПроводка.ПодразделениеДт = ВыборкаДетальныеЗаписи.ПодразделениеДт;
        
        НовПроводка.ПодразделениеКт = ВыборкаДетальныеЗаписи.ПодразделениеКт;
        НовПроводка.СчетКт = ВыборкаДетальныеЗаписи.СчетКт;
        НовПроводка.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура]                  = ВыборкаДетальныеЗаписи.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура];
        НовПроводка.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПартииМатериаловВЭксплуатации] = ВыборкаДетальныеЗаписи.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПартииМатериаловВЭксплуатации];
        НовПроводка.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизаций]          = ВыборкаДетальныеЗаписи.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизаций];
        НовПроводка.Сумма = ВыборкаДетальныеЗаписи.Сумма;
        СуммаНУ=ВыборкаДетальныеЗаписи.Сумма;
        
        //НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(0,0,0,0,СуммаНУ,СуммаНУ,НовПроводка,Истина); //Так тоже не записывает
        
        НовПроводка.Содержание   = ВыборкаДетальныеЗаписи.Содержание;
        НовПроводка.Регистратор  = БухСправка.Ссылка;
        НовПроводка.СуммаВРДт = СуммаНУ;
        НовПроводка.СуммаВРКт = СуммаНУ;
        
        СуммаДок=СуммаДок+НовПроводка.Сумма;
   КонецЦикла;

    Объект.СуммаОперации = СуммаДок;
    //

    Объект.Записать(РежимЗаписиДокумента.Запись);
    //    
        

КонецПроцедуры
1 Тюря
 
19.05.15
17:57
да конф Бух 2.0.64.18
платформа 8.3.5.1460
2 Тюря
 
19.05.15
18:07
вот это
НовПроводка.Регистратор  = БухСправка.Ссылка;
добавлял для экскриментов
3 trooba
 
19.05.15
18:08
(1) Есть общие модели БухгалтерскийУчет и НалоговыйУчет. Вам нужен НалоговыйУчет, там есть все, например: Процедура ЗаполнитьНалоговыеСуммыПроводки(СуммаНУДт = 0, СуммаНУКт = 0, СуммаПРДт = 0, СуммаПРКт = 0, СуммаВРДт = 0, СуммаВРКт = 0, Проводка, ЕстьРазницы = Истина) Экспорт посчитает сумму, еще совет, не используйте "Объект", "ЭтотОбъект" и тому подобные не по назначению.
4 Тюря
 
19.05.15
18:11
(3) пробовал такое
        //НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(0,0,0,0,СуммаНУ,СуммаНУ,НовПроводка,Истина); //Так тоже не записывает
5 Тюря
 
19.05.15
18:18
(3) изменил имя переменной на мойобъект, не помогло :(
6 Тюря
 
19.05.15
18:20
потопал домой, жду как решить данную алементарную штуку.
7 Aleksandr N
 
19.05.15
18:21
(0) Вместо Объект.Записать(РежимЗаписиДокумента.Запись) - Объект.Движения.Записать(РежимЗаписиДокумента.Запись);
8 Aleksandr N
 
19.05.15
18:22
(7) Ой, вот так - Объект.Движения.Записать();
9 Креатив
 
19.05.15
22:08
(0)Для полноты картины следовало бы огласить полученные проводки.
10 Тюря
 
19.05.15
22:17
(9)все проводки копируются один в один, нету суммы только во временных разницах НУ.
Завтра проверю Объект.Движения.Записать();