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

Строки дублируются в регистрах при проведении документа

Автор mmv_89@mail.ru, 11 мар 2013, 22:54

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

mmv_89@mail.ru

Есть 2 документа: Договор залога и Закрытие договора залога. Они регистрируются в регистре накопления и регистре бухгалтерии. Договор залога проходит нормально по регистрам. А при проведении Закрытия договора залога данные выдергиваются из Договора залога и строки в регистрах дублируется, т.е. удваиваются.  В чем может быть ошибка? Процедуру привожу ниже.

Процедура ОбработкаПроведения(Отказ, РежимПроведения)

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

MuI_I_Ika

А у вас регистр накопления случайно не оборотный?

Теги:

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

Рейтинг@Mail.ru

Поиск