Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
12 Дек 2017, 22:54
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: программное добавление записей в регистр кудир  (Прочитано 1977 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн mag1595

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2014-02-24
  • Сайт: 
  • Профессия: Программист 1С
Помогите пожалуйста!!! Пытаюсь при проведении документа реализация товаров услуг сделать записи в КУДиР
Вот код:

 НаборЗаписьейКУДиР = РегистрыНакопления.КнигаУчетаДоходовИРасходов.СоздатьНаборЗаписей();
            НаборЗаписьейКУДиР.Отбор.Регистратор.Значение=СтруктураШапкиДокумента.ссылка;
            ЗаписьКУДиР = НаборЗаписьейКУДиР.Добавить();
            ЗаписьКУДиР.Период = ДатаДока;
            ЗаписьКУДиР.Регистратор = СтруктураШапкиДокумента.Ссылка;
            ЗаписьКУДиР.Активность = Истина;
            ЗаписьКУДиР.Организация = Справочники.Организации.НайтиПоНаименованию(СтруктураШапкиДокумента.Организация);
            ЗаписьКУДиР.Содержание = "Доход от "+СтруктураШапкиДокумента.Ссылка;
            ЗаписьКУДиР.РеквизитыПервичногоДокумента = СтруктураШапкиДокумента.Ссылка;
            ЗаписьКУДиР.Графа4 = Сумма;
            ЗаписьКУДиР.ДоходЕНВД = Сумма;
            НаборЗаписьейКУДиР.Записать(Истина);


Но почему-то записи в регистр не добавляются. Почему? Что не так?


Оффлайн DmitriyF

  • *****
  • Сообщений: 729
  • РЕПУТАЦИЯ: 48
  • КПД: 7%
  • Регистрация: 2013-03-18
  • Сайт: 
  • Профессия: Разработчик 1С
Помогите пожалуйста!!! Пытаюсь при проведении документа реализация товаров услуг сделать записи в КУДиР
Вот код:

 НаборЗаписьейКУДиР = РегистрыНакопления.КнигаУчетаДоходовИРасходов.СоздатьНаборЗаписей();
            НаборЗаписьейКУДиР.Отбор.Регистратор.Значение=СтруктураШапкиДокумента.ссылка;
            ЗаписьКУДиР = НаборЗаписьейКУДиР.Добавить();
            ЗаписьКУДиР.Период = ДатаДока;
            ЗаписьКУДиР.Регистратор = СтруктураШапкиДокумента.Ссылка;
            ЗаписьКУДиР.Активность = Истина;
            ЗаписьКУДиР.Организация = Справочники.Организации.НайтиПоНаименованию(СтруктураШапкиДокумента.Организация);
            ЗаписьКУДиР.Содержание = "Доход от "+СтруктураШапкиДокумента.Ссылка;
            ЗаписьКУДиР.РеквизитыПервичногоДокумента = СтруктураШапкиДокумента.Ссылка;
            ЗаписьКУДиР.Графа4 = Сумма;
            ЗаписьКУДиР.ДоходЕНВД = Сумма;
            НаборЗаписьейКУДиР.Записать(Истина);


Но почему-то записи в регистр не добавляются. Почему? Что не так?
Это где написано? В каком месте?

Оффлайн mag1595

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2014-02-24
  • Сайт: 
  • Профессия: Программист 1С
Находится это в модуле документа РеализацияТоваровУслуг.
Решила проблему при помощи конструктора движений.
Вот код:
Если ЭтотОбъект.ВидОплаты = Перечисления.ВидыОплат.Наличный Тогда
         СуммаОбщ = 0;
         Движения.КнигаУчетаДоходовИРасходов.Очистить();
         Для Каждого ТекСтрокаАгентскиеУслуги Из АгентскиеУслуги Цикл
         СуммаОбщ = СуммаОбщ + ТекСтрокаАгентскиеУслуги.СервисныйСбор + ТекСтрокаАгентскиеУслуги.СуммаКомиссии
                     + ТекСтрокаАгентскиеУслуги.СервисныйСборЗаВозврат + ТекСтрокаАгентскиеУслуги.ВозвратТарифа
                     + ТекСтрокаАгентскиеУслуги.КомиссияУслугСвязи;
         КонецЦикла;
            
            Движение = Движения.КнигаУчетаДоходовИРасходов.Добавить();
            Движение.Период = Дата;
            Движение.Организация = Организация;
            Движение.Содержание = "Доход от "+СтруктураШапкиДокумента.Ссылка;
            Движение.Графа4= СуммаОбщ;
            Движение.ДоходЕНВД = СуммаОбщ;
            Движение.РеквизитыПервичногоДокумента = "№ "+ЭтотОбъект.Номер+" от "+Строка(ЭтотОбъект.Дата);


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
170 Сообщений
ilyay ilyay
75 Сообщений
oleg-x
55 Сообщений
alex0402
49 Сообщений
andron81_81
42 Сообщений
AIFrame
37 Сообщений
MuI_I_Ika MuI_I_Ika
33 Сообщений
BuhRust
30 Сообщений
Golickoff Golickoff
28 Сообщений
Dima Dddd Dima Dddd
26 Сообщений

* Кто онлайн

  • Точка Гостей: 311
  • Точка Скрытых: 0
  • Точка Пользователей: 4
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal