Имя: Пароль:
1C
1С v8
Помогите с записью РегистрНакопления
0 Popkorm
 
21.11.11
13:50
Чета так не работает :
   РегДвижения = РегистрыНакопления.ДвиженияТовараУКонтрагентов.СоздатьНаборЗаписей();
   РегДвижения.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка);
   РегДвижения.Прочитать();
       
       ДвижВРегистр = РегДвижения.Добавить();
       ДвижВРегистр.ВидДвиженияПриходРасход= Перечисления.ВидыДвиженийПриходРасход.Приход;
       ДвижВРегистр.ВидОперацииСТоваром    = Перечисления.ВидыОперацийСТоваром.КупляПродажа;
       ДвижВРегистр.Активность = Истина;
   Для Каждого Стр Из ОборотыКонтрагентов Цикл
       Если Стр.продажи>0 Тогда
       ДвижВРегистр.Период =ДатаКонец;
       ДвижВРегистр.Контрагент   = ЭтотОбъект.Контрагент;
       ДвижВРегистр.Номенклатура = Стр.Номенклатура;
       ДвижВРегистр.Количество   = Стр.Продажи;
       КонецЕсли;
   КонецЦикла;

   РегДвижения.Записать();
Ошибка:Ошибка записи! Не установлен отбор по регистратору (Регистр накопления: Движения товара у контрагентов)
1 LAAry
 
21.11.11
13:52
РегДвижения.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка,Истина);?
2 Popkorm
 
21.11.11
13:53
(1)а разве Истина не по умолчанию?!
3 Popkorm
 
21.11.11
13:56
(1)хорошо,теперь такая ошибка:
Ошибка записи! Не установлен отбор по регистратору (Регистр накопления: Движения товара у контрагентов)
4 Галахад
 
гуру
21.11.11
13:57
Регистратор прописан в документе?
5 Жан Пердежон
 
21.11.11
13:59
Для Каждого Стр Из ОборотыКонтрагентов Цикл
   Если Стр.продажи>0 Тогда
       ДвижВРегистр  = ЭтотОбъект.Движения.ДвиженияТовараУКонтрагентов.Добавить();
***
   КонецЕсли;
КонецЦикла;

ЭтотОбъект.Движения.ДвиженияТовараУКонтрагентов.Записать();
6 Шапокляк
 
21.11.11
14:00
(0) ДвижРегистр.Регистратор=ЭтотОбъект.Ссылка;
7 Popkorm
 
21.11.11
14:11
(5)не работает:
   РегДвижения = РегистрыНакопления.ДвиженияТовараУКонтрагентов.СоздатьНаборЗаписей();
   РегДвижения.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка,Истина);
   РегДвижения.Прочитать();
       
   Для Каждого Стр Из ОборотыКонтрагентов Цикл
       Если Стр.продажи>0 Тогда
       ДвижВРегистр = ЭтотОбъект.Движения.ДвиженияТовараУКонтрагентов.Добавить();    
       ДвижВРегистр.ВидДвиженияПриходРасход= Перечисления.ВидыДвиженийПриходРасход.Приход;
       ДвижВРегистр.ВидОперацииСТоваром    = Перечисления.ВидыОперацийСТоваром.КупляПродажа;
       ДвижВРегистр.Активность = Истина;
       ДвижВРегистр.Период =ДатаКонец;
       ДвижВРегистр.Контрагент   = ЭтотОбъект.Контрагент;
       ДвижВРегистр.Номенклатура = Стр.Номенклатура;
       ДвижВРегистр.Количество   = Стр.Продажи;
       
       КонецЕсли;
   КонецЦикла;

           ЭтотОбъект.Движения.ДвиженияТовараУКонтрагентов.Записать();
Ошибка записи! Не установлен отбор по регистратору (Регистр накопления: Движения товара у контрагентов)
8 PVV65
 
21.11.11
14:19
Вместо этого ДвижВРегистр = ЭтотОбъект.Движения.ДвиженияТовараУКонтрагентов.Добавить();
надо ДвижВРегистр = РегДвижения.Добавить();
9 Popkorm
 
21.11.11
14:27
(8)тоже самое
   РегДвижения = РегистрыНакопления.ДвиженияТовараУКонтрагентов.СоздатьНаборЗаписей();
   РегДвижения.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка,Истина);
   РегДвижения.Прочитать();
       
   Для Каждого Стр Из ОборотыКонтрагентов Цикл
       Если Стр.продажи>0 Тогда
   //    ДвижВРегистр = ЭтотОбъект.Движения.ДвиженияТовараУКонтрагентов.Добавить();
       ДвижВРегистр = РегДвижения.Добавить();
       ДвижВРегистр.ВидДвиженияПриходРасход= Перечисления.ВидыДвиженийПриходРасход.Приход;
       ДвижВРегистр.ВидОперацииСТоваром    = Перечисления.ВидыОперацийСТоваром.КупляПродажа;
       ДвижВРегистр.Активность = Истина;
       ДвижВРегистр.Период =ДатаКонец;
       ДвижВРегистр.Контрагент   = ЭтотОбъект.Контрагент;
       ДвижВРегистр.Номенклатура = Стр.Номенклатура;
       ДвижВРегистр.Количество   = Стр.Продажи;
       
       КонецЕсли;
   КонецЦикла;
      РегДвижения.Записать();
Ошибка записи! Не установлен отбор по регистратору (Регистр накопления: Движения товара у контрагентов)
10 Жан Пердежон
 
21.11.11
14:35
сейчас окажется, что ТС код в одной обработке правит, а запускает другую
11 Жан Пердежон
 
21.11.11
14:36
(7) код в (5) - из рабочего примера
12 Popkorm
 
21.11.11
14:40
(11)Создаю док,в док есть кнопка Загрузить,где ТЗ(ОборотыКонтрагентов)не имеет не какого значения в этом доке,просто от туда получаю данные,а записать надо в этот документ+РН
13 Ksandr
 
21.11.11
14:44
а документ то записан? ссылка небось пустая
14 Popkorm
 
21.11.11
15:22
все работает,у меня ТЗ(ОборотыКонтрагентов) был пустой,не правильно было описано Процедура &НаСервере для перехода в общий модуль.Всем спасибо
AdBlock убивает бесплатный контент. 1Сергей