Имя: Пароль:
1C
1C 7.7
v7: Движения регистров обработкой
0 e200420
 
08.10.12
12:27
Привет! Пытаюсь сделать движение регистров обработкой и получаю ошибку "Движения регистров не могут выполняться у данного объекта". Галка - "оперативны учет стоит"
код:

   Док=СоздатьОбъект("Документ.ПриходныйОрдер");
   Рег = СоздатьОбъект("Регистр.Партии");
   тз=СоздатьОбъект("ТаблицаЗначений");
   тз.НоваяКолонка("Фирма");
   тз.НоваяКолонка("ТМЦ");
   тз.НоваяКолонка("Счет");
   тз.НоваяКолонка("МестоХранения");
   тз.НоваяКолонка("Поставщик");
   тз.НоваяКолонка("Поставка");
   тз.НоваяКолонка("ПрихДокумент");
   тз.НоваяКолонка("КодОперации");
   тз.НоваяКолонка("ОстатокТовара");
   тз.НоваяКолонка("Стоимость");
   тз.НоваяКолонка("ПродСтоимость");
   
   Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);
   Пока Док.ПолучитьДокумент() = 1 Цикл
       Если Док.Проведен()=1 Тогда
           тз.УдалитьСтроки();
           Рег.ВыбратьДвиженияДокумента(Док);
           Пока Рег.ПолучитьДвижение()=1 Цикл
               тз.НоваяСтрока();
               тз.Фирма = Рег.Фирма;
               тз.ТМЦ = Рег.ТМЦ;
               Док.ПолучитьСтрокуПоНомеру(тз.НомерСтроки);
               тз.Счет = Док.Счет;
               тз.МестоХранения = Рег.МестоХранения;
               тз.Поставщик = Рег.Поставщик;
               тз.Поставка = Рег.Поставка;
               тз.ПрихДокумент = Рег.ПрихДокумент;
               тз.КодОперации = Рег.КодОперации;
               тз.ОстатокТовара = Рег.ОстатокТовара;
               тз.Стоимость = Рег.Стоимость;
               тз.ПродСтоимость = Рег.ПродСтоимость;
           КонецЦикла;
           
           //Док.ОчиститьДвижения("Регистр.Партии");
           
           тз.ВыбратьСтроки();
           Пока тз.ПолучитьСтроку()=1 Цикл
               Регистр.Партии.Фирма = тз.Фирма;
               Регистр.Партии.ТМЦ = тз.ТМЦ;
               Регистр.Партии.Счет = Док.Счет;
               Регистр.Партии.МестоХранения = тз.МестоХранения;
               Регистр.Партии.Поставщик = тз.Поставщик;
               Регистр.Партии.Поставка = тз.Поставка;
               Регистр.Партии.ПрихДокумент = тз.ПрихДокумент;
               Регистр.Партии.КодОперации = тз.КодОперации;
               Регистр.Партии.ОстатокТовара = тз.ОстатокТовара;
               Регистр.Партии.Стоимость = тз.Стоимость;
               Регистр.Партии.ПродСтоимость = тз.ПродСтоимость;
               Регистр.Партии.ПривязыватьСтроку(тз.НомерСтроки);
               Регистр.Партии.ДвижениеПриходВыполнить();
           КонецЦикла;
           Сообщить(Док);
       КонецЕсли;
   КонецЦикла;
1 mikecool
 
08.10.12
12:28
почитать основы программирования в 7.7 предлагать?
2 zak555
 
08.10.12
12:29
(1) не программирования, а конфигурированию
3 chelentano
 
08.10.12
12:30
(0) в 77 движения по регистрам делается только документами
4 e200420
 
08.10.12
12:34
(3) Спасибо за помощь
5 e200420
 
08.10.12
12:40
теперь возник следующий вопрос. Как мне внести изменения в движения по регистрам тысячи доков, не трогая при этом бух проводки?
6 zak555
 
08.10.12
12:41
(5) править модуль дока : сначала записываешь движения проводок в ТЗ, очищаешь все движения, пишешь в регистры, а потом из ТЗ в проводки

только вопрос : на хрена ?
7 mishaPH
 
08.10.12
12:44
(6) вот тоже интересно. что-то изменяя в регистрах не коснеться бух?

Есть только востанавливать партионный учет.
8 zak555
 
08.10.12
12:45
(7) кто-то ссыт сдавать уточнёнку
9 e200420
 
08.10.12
12:46
(6) это можно поставить на поток?
10 zak555
 
08.10.12
12:46
(9) в поток фотонов ?
11 Прохожий
 
08.10.12
12:48
(7) Ну может там регистр ПодотчетУпрСписаныхНалевоМатериалов