Добрый день! Есть документ , в нем есть табличная часть ,(реквизит  номенклатура , январь, февраль, март и д.т по декабрь), необходимо данные записать в регист накопления по месяцам. напишите пожалуйста код

Тут такое не взлетает. Вряд ли кто-то будет писать код. Для начала не ясно что такое месяца (какого типа)

(0)Для начала попробуй разобраться, как это делается при помощи конструктора движений. А затем код, сгенерированный конструктором, можно будет поправить руками для своих нужд.

НаборЗаписей = РегистрыНакопления.ИмяРегистра.СоздатьНаборЗаписей();
Для каждого Стр из ТЧ Цикл
НаборЗаписей.Номенклатура = Стр.Номенклатура;
...
КонецЦикла;
НаборЗаписей.Записать();

Что-то такое будет

тип число

Структуру регистра, в который хочешь записывать, покажи, не стесняйся.

Имерения :Договор, Поставщик, документ,
Ресурсы : Количество

а табличная часть документа

      Январь   Февраль     Март

Книга    2        3         6

2, 3, 6 -это штуки

а регистр должен выглядеть :
январе  2  
феврале 3
март    6

Тогда примерно так:

НаборЗаписей = РегистрыНакопления.ИмяРегистра.СоздатьНаборЗаписей();
Количество = ТЧ.Итог("Январь") + ТЧ.Итог("Февраль") + ... + ТЧ.Итог("Декарь");

НаборЗаписей.Договор = Договор;
НаборЗаписей.Поставщик = Контрагент;
НаборЗаписей.Документ = Ссылка;

НаборЗаписей.Записать();

перед записать ещё

НаборЗаписей.Количество = Количество;

Какой приз за написание кода?

там разбивка по месяцам должна быть

все отдельной стракой

Хорошо, если не добавлять 12 измерений,
тогда

НаборЗаписей = РегистрыНакопления.ИмяРегистра.СоздатьНаборЗаписей();
ТекГод = Год(ТекущаяДата());
Для каждого Стр из ТЧ Цикл

НаборЗаписей.Количество = ТЧ.Итог("Январь");
НаборЗаписей.Период = Дата(ТекГод, 01,01,00,00,00);
НаборЗаписей.Договор = Договор;
НаборЗаписей.Поставщик = Контрагент;
НаборЗаписей.Документ = Ссылка;

НаборЗаписей.Количество = ТЧ.Итог("Февраль");
НаборЗаписей.Период = Дата(ТекГод, 02,01,00,00,00);
НаборЗаписей.Договор = Договор;
НаборЗаписей.Поставщик = Контрагент;
НаборЗаписей.Документ = Ссылка;

...

НаборЗаписей.Количество = ТЧ.Итог("Декабрь");
НаборЗаписей.Период = Дата(ТекГод, 12,01,00,00,00);
НаборЗаписей.Договор = Договор;
НаборЗаписей.Поставщик = Контрагент;
НаборЗаписей.Документ = Ссылка;

КонецЦикла;

НаборЗаписей.Записать();

псоле таких сообщений - в первую очередь нужно в личную карточку фото поместить своё. Минимун неглиже. Максимум - ню.

(16) если больше не встанет ?

(17) чо?

(18) ты его "чо" называешь ? =)

(19) я с ним не разговариваю, если я тебя правильно понял.
Но вопросы в (0) без (16) бессмыссленны

(15)Для каждого Стр из ТЧ Цикл лишнее
в (10)точнее, если не обращать внимания на Период.

Спасибо большое!!!!!!!!! получилось))))

Не за что, обращайся)