Обработка проведения документа: движения по регистрам накопления.

@Дима4 · Регистрация: 10.03.2017

Author24 — интернет-сервис помощи студентам

Добрый день!
Просьба посмотреть код и отредактировать правильно, или сказать что больше редактировать нельзя..
Проблема в том что хотел создать одну инструкцию

1C

1	Для Каждого

но никак, (только две получается) получаются ошибки
1С только начал заниматься..
То же самое с

1C

1	Движение.Период = Дата;

возможно ли написать один раз или нет
Сам пробовал это делать но вылетают ошибки, может не так делал..
Спасибо!

1C

Процедура ОбработкаПроведения(Отказ, Режим)
    
    Движения.ОстаткиМатериалов.Записывать = Истина;
    Движения.СтоимостьМатериалов.Записывать = Истина;
    Движения.Продажи.Записывать = Истина;
    Движения.Вознаграждение.Записывать = Истина;
    
    Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
        Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда 
            
            // регистр ОстаткиМатериалов Расход
            Движение = Движения.ОстаткиМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Склад = Склад;
            Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
            
            // регистр СтоимостьМатериалов Расход
            Движение = Движения.СтоимостьМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Количество * ТекСтрокаПереченьНоменклатуры.Стоимость;
        КонецЕсли;
        
        // Регистр Продажи 
        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Номенклатура = ТекСтрокаПереченьНоменклатуры.Номенклатура;
        Движение.Клиент = Клиент;
        Движение.Мастер = Мастер;
        Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
        Движение.Выручка = ТекСтрокаПереченьНоменклатуры.Сумма;
        Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость * ТекСтрокаПереченьНоменклатуры.Количество;
    КонецЦикла;
    
    //Регистр Вознаграждение
    Движение = Движения.Вознаграждение.Добавить();
    Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл 
        Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Услуга Тогда
            
            
            Движение.Период = Дата;
            Движение.Мастер = Мастер;
            Движение.Сумма = Движение.Сумма + ТекСтрокаПереченьНоменклатуры.Сумма;          
        КонецЕсли;     
    КонецЦикла;
    
    Если Движение.Сумма < 1000 Тогда
        Движение.Процент = 5;
    КонецЕсли;
    
    Если Движение.Сумма >= 1000 И Движение.Сумма <= 5000 Тогда
        Движение.Процент = 10;
    КонецЕсли;
    
    Если Движение.Сумма > 5000 Тогда
        Движение.Процент = 15;
    КонецЕсли;
    
    Движение.Вознаграждение = Движение.Сумма * Движение.Процент / 100;
    
КонецПроцедуры

Tklwegsd · 16.03.2017, 16:26

Сообщение от Дима4

возможно ли написать один раз или нет

Если речь о регистре Вознаграждение, то можно.

Сообщение от Дима4

Сам пробовал это делать но вылетают ошибки, может не так делал..

Какие ошибки?

@Дима4 · 16.03.2017, 16:30 **[ТС]**

Да, речь о нем
Например когда я убирал Для Каждого во втором случае то при проведении документа вылетала ошибка Движение.Период = Дата не может быть пустым

Tklwegsd · 16.03.2017, 16:34

Значит не был Период заполнен, но к циклу это отношение не имеет.

@Дима4 · 16.03.2017, 16:39 **[ТС]**

1C

Процедура ОбработкаПроведения(Отказ, Режим)
    
    Движения.ОстаткиМатериалов.Записывать = Истина;
    Движения.СтоимостьМатериалов.Записывать = Истина;
    Движения.Продажи.Записывать = Истина;
    Движения.Вознаграждение.Записывать = Истина;
    
    Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
        Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда 
            
            // регистр ОстаткиМатериалов Расход
            Движение = Движения.ОстаткиМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Склад = Склад;
            Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
            
            // регистр СтоимостьМатериалов Расход
            Движение = Движения.СтоимостьМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Количество * ТекСтрокаПереченьНоменклатуры.Стоимость;
        КонецЕсли;
        
        // Регистр Продажи 
        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Номенклатура = ТекСтрокаПереченьНоменклатуры.Номенклатура;
        Движение.Клиент = Клиент;
        Движение.Мастер = Мастер;
        Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
        Движение.Выручка = ТекСтрокаПереченьНоменклатуры.Сумма;
        Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость * ТекСтрокаПереченьНоменклатуры.Количество;
 
    
    //Регистр Вознаграждение
    Движение = Движения.Вознаграждение.Добавить();
        
        Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Услуга Тогда
            
            
            Движение.Период = Дата;
            Движение.Мастер = Мастер;
            Движение.Сумма = Движение.Сумма + ТекСтрокаПереченьНоменклатуры.Сумма;          
        КонецЕсли;     
    КонецЦикла;
    
    Если Движение.Сумма < 1000 Тогда
        Движение.Процент = 5;
    КонецЕсли;
    
    Если Движение.Сумма >= 1000 И Движение.Сумма <= 5000 Тогда
        Движение.Процент = 10;
    КонецЕсли;
    
    Если Движение.Сумма > 5000 Тогда
        Движение.Процент = 15;
    КонецЕсли;
    
    Движение.Вознаграждение = Движение.Сумма * Движение.Процент / 100;
    
КонецПроцедуры

Обработка проведения документа: движения по регистрам накопления.

Ничего не пойму.. (

а 1 вариант кода работает как нужно..

Tklwegsd · 16.03.2017, 16:42

Откуда в регистре вторая строка? Ты же ведь одну там ожидаешь увидеть?

@Дима4 · 16.03.2017, 16:47 **[ТС]**

В итоге да, должна быть одна строка где все просчитывается
Об этом речь?

Tklwegsd · 16.03.2017, 16:49

Анализируй код. Откуда в этом регистре берется вторая строка?

@Дима4 · 16.03.2017, 16:54 **[ТС]**

Для Каждого ....
Движение = Движения.Вознаграждение.Добавить();
обходим каждый вид услуги и добавляем, получается при обходе второй услуги он хочет добавить еще одну строку но не выходит?

Tklwegsd · 16.03.2017, 17:00

Совершенно верно. Только зачем добавлять новую строку, если по логике, она должна быть одна.

Добавлено через 30 секунд
Вынеси добавление записи регистра за цикл.

Добавлено через 2 минуты

Сообщение от Дима4

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

Добавить выходит. Записать движения не выходит, т.к. Период для новой записи уже не заполняется.

@Дима4 · 16.03.2017, 17:11 **[ТС]**

Спасибо огромное!
Только что понял, что сам написал..
Теперь пишет "Поле объекта не обнаружено (сумма)"

Добавлено через 3 минуты
Буду дальше анализировать!
Спасибо огромное, что натолкнули на мысль

@Dethmontt · 16.03.2017, 17:15

1C

Движение = Движения.Вознаграждение.Добавить();
Движение.Период = Дата;
Движение.Мастер = Мастер;
Для каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
    
    Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Услуга Тогда
          Движение.Сумма = Движение.Сумма + ТекСтрокаПереченьНоменклатуры.Сумма;          
    КонецЕсли;

@Дима4 · 16.03.2017, 17:51 **[ТС]**

Ошибка не ушла

Добавлено через 29 минут
С точками останова получилось что при первом обходе в поле

1C

1	ТекСтрокаПереченьНоменклатуры.Сумма;

попадает первое значение Услуги 1200, но при заходе на второй круг вылетает Ошибка "Поле объекта не обнаружено (Сумма)"...
Ему некуда класть второе значение или что это может значить?)

@Dethmontt · 16.03.2017, 18:08

Дима4, весь код в студию

@Дима4 · 16.03.2017, 18:15 **[ТС]**

Весь код в самом первом сообщении.
Поиграл с комментариями, пришел к выводу что если другие регистры закомментировать то Ваш вариант работает!
Предполагаю что при обходе документа, когда я попадаю на ВидНоменклатуры.Материал он ищет куда ему записать сумму для этого значения, а такого поля не существует... Возможно так

Tklwegsd · 16.03.2017, 19:02

Выкладывай код. Или можешь выложить конфигурацию / базу.

@Дима4 · 16.03.2017, 19:19 **[ТС]**

1C

Процедура ОбработкаПроведения(Отказ, Режим)
    
    Движения.ОстаткиМатериалов.Записывать = Истина;
    Движения.СтоимостьМатериалов.Записывать = Истина;
    Движения.Продажи.Записывать = Истина;
    Движения.Вознаграждение.Записывать = Истина;
    
    Движение = Движения.Вознаграждение.Добавить();
    Движение.Период = Дата;
    Движение.Мастер = Мастер;
    
    Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
        Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда 
            
            // регистр ОстаткиМатериалов Расход
            Движение = Движения.ОстаткиМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Склад = Склад;
            Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
            
            // регистр СтоимостьМатериалов Расход
            Движение = Движения.СтоимостьМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Количество * ТекСтрокаПереченьНоменклатуры.Стоимость;
        КонецЕсли;
        
        // Регистр Продажи 
        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Номенклатура = ТекСтрокаПереченьНоменклатуры.Номенклатура;
        Движение.Клиент = Клиент;
        Движение.Мастер = Мастер;
        Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
        Движение.Выручка = ТекСтрокаПереченьНоменклатуры.Сумма;
        Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость * ТекСтрокаПереченьНоменклатуры.Количество;
        Движение.Сумма = Движение.Сумма + ТекСтрокаПереченьНоменклатуры.Сумма;  
        
        //Регистр Вознаграждение
        
        
        Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Услуга Тогда
            
            Движение.Сумма = Движение.Сумма + ТекСтрокаПереченьНоменклатуры.Сумма;      
        КонецЕсли;     
        
    КонецЦикла;
    
    Если Движение.Сумма < 1000 Тогда
        Движение.Процент = 5;
    КонецЕсли;
    
    Если Движение.Сумма >= 1000 И Движение.Сумма <= 5000 Тогда
        Движение.Процент = 10;
    КонецЕсли;
    
    Если Движение.Сумма > 5000 Тогда
        Движение.Процент = 15;
    КонецЕсли;
    
    Движение.Вознаграждение = Движение.Сумма * Движение.Процент / 100;
    
КонецПроцедуры

Весь код

@Дима4 · 16.03.2017, 19:26 **[ТС]**

Конфигурация
1CCF.zip

Tklwegsd · 16.03.2017, 19:34

Переменная Движение у тебя постоянно переприсваивается.
Пока дойдет до подсчета суммы, там уже движение другого регистра.
Пользуйся отладчиком, чтобы посмотреть какие значения в каких переменных лежат.

@Dethmontt Модератор 3783 / 2963 / 589 Регистрация: 10.03.2011 Сообщений: 11,665 Записей в блоге: 1
	16.03.2017, 18:08	14
	Дима4, весь код в студию 0

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	16.03.2017, 16:26	2
	Сообщение от Дима4 возможно ли написать один раз или нет Если речь о регистре Вознаграждение, то можно. Сообщение от Дима4 Сам пробовал это делать но вылетают ошибки, может не так делал.. Какие ошибки? 1

@Дима4 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 12
	16.03.2017, 16:30 [ТС]	3
	Да, речь о нем Например когда я убирал Для Каждого во втором случае то при проведении документа вылетала ошибка Движение.Период = Дата не может быть пустым 0

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	16.03.2017, 16:34	4
	Значит не был Период заполнен, но к циклу это отношение не имеет. 1

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	16.03.2017, 16:42	6
	Откуда в регистре вторая строка? Ты же ведь одну там ожидаешь увидеть? 1

@Дима4 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 12
	16.03.2017, 16:47 [ТС]	7
	В итоге да, должна быть одна строка где все просчитывается Об этом речь? 0

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	16.03.2017, 16:49	8
	Анализируй код. Откуда в этом регистре берется вторая строка? 1

@Дима4 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 12
	16.03.2017, 16:54 [ТС]	9
	Для Каждого .... Движение = Движения.Вознаграждение.Добавить(); обходим каждый вид услуги и добавляем, получается при обходе второй услуги он хочет добавить еще одну строку но не выходит? 0

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	16.03.2017, 17:00	10
	Сообщение было отмечено Дима4 как решение Решение Совершенно верно. Только зачем добавлять новую строку, если по логике, она должна быть одна. Добавлено через 30 секунд Вынеси добавление записи регистра за цикл. Добавлено через 2 минуты Сообщение от Дима4 получается при обходе второй услуги он хочет добавить еще одну строку но не выходит? Добавить выходит. Записать движения не выходит, т.к. Период для новой записи уже не заполняется. 1

@Дима4 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 12
	16.03.2017, 17:11 [ТС]	11
	Спасибо огромное! Только что понял, что сам написал.. Теперь пишет "Поле объекта не обнаружено (сумма)" Добавлено через 3 минуты Буду дальше анализировать! Спасибо огромное, что натолкнули на мысль 0

@Дима4 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 12
	16.03.2017, 18:15 [ТС]	15
	Весь код в самом первом сообщении. Поиграл с комментариями, пришел к выводу что если другие регистры закомментировать то Ваш вариант работает! Предполагаю что при обходе документа, когда я попадаю на ВидНоменклатуры.Материал он ищет куда ему записать сумму для этого значения, а такого поля не существует... Возможно так 0

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	16.03.2017, 19:02	16
	Выкладывай код. Или можешь выложить конфигурацию / базу. 0

@Дима4 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 12
	16.03.2017, 19:26 [ТС]	18
	Конфигурация 1CCF.zip 0

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	16.03.2017, 19:34	19
	Переменная Движение у тебя постоянно переприсваивается. Пока дойдет до подсчета суммы, там уже движение другого регистра. Пользуйся отладчиком, чтобы посмотреть какие значения в каких переменных лежат. 0

Обработка проведения документа: движения по регистрам накопления.

Решение