Имя: Пароль:
1C
 
Не установлен отбор по регистратору (Регистр накопления: ТоварыНаСкладах)
0 Sv4org
 
21.09.16
11:16
Здравствуйте
Помогите разорбраться в чём ошибка

Процедура ОбработкаПроведения(Отказ, Режим)                                                                              
    
    Рег = РегистрыНакопления.ТоварыНаСкладах;                                                                          
    НаборЗаписей = Рег.СоздатьНаборЗаписей();                                                                       
    ТЗ_Движения = Ссылка.Товар.Выгрузить();                                                                    
    ТЗ = Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("Материал", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));                              
    ТЗ.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));                                                    
    ТЗ.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));                                                          
    ТЗ.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));                                                            
    ТЗ.Колонки.Добавить("Склад", Новый ОписаниеТипов("СправочникСсылка.Склады"));                                      
    ТЗ.Колонки.Добавить("Организация", Новый ОписаниеТипов("СправочникСсылка.Организация"));                                                          
    ТЗ.Колонки.Добавить("СуммаНДС", Новый ОписаниеТипов("Число"));                                                      
    ТЗ.Колонки.Добавить("Итого",  Новый ОписаниеТипов("Число"));
    Для  Каждого  стр из ТЗ_Движения Цикл
        Строка= ТЗ.Добавить();                    
        Строка.Материал = стр.Номенклатура;    
        Строка.Количество = стр.Номенклатура;
        Строка.Цена = стр.Номенклатура;
        Строка.Сумма = стр.Номенклатура;
        Строка.Склад = стр.Номенклатура;
        Строка.Организация = стр.Номенклатура;
        Строка.СуммаНДС = стр.Номенклатура;
        Строка.Итого = стр.Номенклатура;
    КонецЦикла;
    НаборЗаписей.Загрузить(ТЗ);    
    НаборЗаписей.Записать();    
    
КонецПроцедуры
1 Spieluhr
 
21.09.16
11:18
давно такого ужаса не видел
2 Господин ПЖ
 
21.09.16
11:19
Не установлен отбор по регистратору
3 Господин ПЖ
 
21.09.16
11:20
ну и есть ощущение что РН имеется в коллекции движений документа откуда вызывается проведение. читать мурзилки как пишутся движения
4 vicof
 
21.09.16
11:21
И копирование - это зло
5 Sv4org
 
21.09.16
11:23
(2) а как установить отбор?
(4) в каком смысле копирование?
6 ДемонМаксвелла
 
21.09.16
11:23
(1), (2) +
7 lera01
 
21.09.16
11:24
(4) А может, так задумано? Одна сплошная номенклатура. Вирус на 1С человек пишет!
8 Господин ПЖ
 
21.09.16
11:25
(5) >а как установить отбор?

читая мурзилки по языку
9 Vanilla26
 
21.09.16
11:27
(0) Ну нафик) используй конструктор движений
10 lera01
 
21.09.16
11:27
(0) А зачем вообще такие страсти? Не пробовали воспользоваться конструктором движений?
11 Sv4org
 
21.09.16
11:29
(10) условие было создать таблицу значиний и повести движение
12 DDwe
 
21.09.16
11:30
Конструктор движений уже предлагали?
13 vicof
 
21.09.16
11:30
(11) И как? повел?
14 DDwe
 
21.09.16
11:30
(11) Куда ты его поведешь?
15 Господин ПЖ
 
21.09.16
11:30
(11) допустим. но набор то зачем тут создавать
16 Sv4org
 
21.09.16
11:33
(13) (14) Ошибся "провести"
17 Vanilla26
 
21.09.16
11:34
(16) это в документе или вн обработке?
18 Sv4org
 
21.09.16
11:35
(15) а как по другому сделать?
(17) в документе
19 Господин ПЖ
 
21.09.16
11:36
у документа есть .Движения
20 Vanilla26
 
21.09.16
11:37
(18) тогда (9) (10) (12)
21 Sv4org
 
21.09.16
11:45
(20) я же написал что просили сделать не используя конструктор движений
22 Vanilla26
 
21.09.16
11:50
(21) а ты пока никто не видит запусти его, посмотри хоть зачем он нужен
23 Sv4org
 
21.09.16
11:54
(22) да я обработку проведения сделал через конструктор движений но попросили переделать
24 Vanilla26
 
21.09.16
12:04
(23) а что им не понравилось?
25 Sv4org
 
21.09.16
12:09
(24) Сказали что всё нормально но нужно переделать
26 Sv4org
 
22.09.16
09:27
Ребята помогите разобраться
Процедура ОбработкаПроведения(Отказ, Режим)                                                                              
    
    Рег = РегистрыНакопления.ТоварыНаСкладах;  
          
    НаборЗаписей = РегистрыНакопления.ТоварыНаСкладах.СоздатьНаборЗаписей();  
    
    НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);    
    ТЗ = Новый ТаблицаЗначений;
    ТЗ_Движения = Ссылка.Товар.Выгрузить();
    ТЗ.Колонки.Добавить("Период", Новый ОписаниеТипов("Дата"));
    ТЗ.Колонки.Добавить("Материал", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));                              
    ТЗ.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));                                                    
    ТЗ.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));                                                          
    ТЗ.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));                                                            
    ТЗ.Колонки.Добавить("Склад", Новый ОписаниеТипов("СправочникСсылка.Склады"));                                      
    ТЗ.Колонки.Добавить("Организация", Новый ОписаниеТипов("СправочникСсылка.Организация"));                            
    ТЗ.Колонки.Добавить("СтавкаНДС",  Новый ОписаниеТипов("ПеречислениеСсылка.СтавкиНДС"));                                  
    ТЗ.Колонки.Добавить("СуммаНДС", Новый ОписаниеТипов("Число"));                                                      
    ТЗ.Колонки.Добавить("Итого",  Новый ОписаниеТипов("Число"));
    
        Для  Каждого  стр из ТЗ_Движения Цикл
        НоваяЗапись = НаборЗаписей.Добавить();
        НаборЗаписей.Прочитать();
        Строка = ТЗ.Добавить();
        Строка.Период = Ссылка.Дата;    
        Строка.Материал = стр.Номенклатура;    
        Строка.Количество = стр.Количество;
        Строка.Цена = стр.Цена;
        Строка.Сумма = стр.Сумма;
        Строка.Склад = Ссылка.Склад;
        Строка.Организация = Ссылка.Организация;
        Строка.СтавкаНДС = стр.СтавкиНДС;
        Строка.СуммаНДС = стр.СуммаНДС;
        Строка.Итого = стр.Итого;    
    КонецЦикла;
    НаборЗаписей.Загрузить(ТЗ);    
    НаборЗаписей.Записать(Истина);    
КонецПроцедуры

Подскажите кто-нибудь как сделать что-бы можно было провести движение ещё по одному регистру "Остатки Матералов"
27 Sv4org
 
22.09.16
10:04
уже не надо сделал
всем спасибо