Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
25 ноя 2024, 08:56

Запись одного документа в несколько регистров

Автор o.p.sierik, 27 мая 2015, 16:22

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

o.p.sierik

:zebzdr::zebzdr::zebzdr::zebzdr::befhbt:
Помогите пожалуйста. Нужно что бы документ записывалс в два регистра. Только есть одно условие.
Если елемент табличной части документа имеет значение Справочник.ТранспортноеСредство то запись в один регистр, если любое другое значение, то запись в другой регистр

Процедура ОбработкаПроведения(Отказ, Режим)
   //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
   // Даний фрагмент побудований конструктором.
   // При повторному використанні конструктора, внесені вручну зміни будуть втрачені!!!

   // регістр ТранспортніЗасоби Приход
   Движения.ТранспортніЗасоби.Записывать = Ложь;
   Движения.Залишки.Записывать = Истина;
      Для Каждого ТекСтрокаТовариПослуги Из ТовариПослуги Цикл
      Движение = Движения.ТранспортніЗасоби.Добавить();
      Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
      Движение.Период = Дата;
      Движение.Склад = Склад;
      Движение.Найменування = ТекСтрокаТовариПослуги.Номенклатура;
      Движение.ОднВиміру = ТекСтрокаТовариПослуги.ОднииціВиміру;
      Движение.Кількість = ТекСтрокаТовариПослуги.Кількість;
      Движение.Сума = ТекСтрокаТовариПослуги.Сума;
   
   // регістр Залишки Приход

      Движение = Движения.Залишки.Добавить();
      Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
      Движение.Период = Дата;
      Движение.Склад = Склад;
      Движение.Найменування = ТекСтрокаТовариПослуги.Номенклатура;
      Движение.ОднВиміру = ТекСтрокаТовариПослуги.ОднииціВиміру;
      Движение.Кількість = ТекСтрокаТовариПослуги.Кількість;
      Движение.Сума = ТекСтрокаТовариПослуги.Сума;
      
   КонецЦикла;

      //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

Rasty

Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

o.p.sierik

Цитата: Rasty от 27 мая 2015, 16:26
используйте если ТипЗНЧ = Тип
а можете более подробнос подсказать ?

Rasty

берем строку из тч пишем
Если ТипЗНЧ(Строка.ВашРеквизит) = Тип("СправочникСсылка.ТранспортноеСредство") тогда
одну
иначе
делаем две записи
конецесли
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск