Меню

Ошибка при выполнении обработчика обработка проведения

Ошибка при выполнении обработчика — ‘ОбработкаПроведения’

по причине:

{Документ.ОказаниеУслуги.МодульОбъекта(70)}: Ошибка при вызове метода контекста (Выполнить)

    РезультатЗапроса = Запрос2.Выполнить();

по причине:

{(5, 24)}: Поле не найдено «НоменклатураДокумента.СуммаВДокументе»

НоменклатураДокумента.<<?>>СуммаВДокументе,

Немогу никак понят в чем ошибка

Запрос2 = Новый Запрос;

    Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;

    Запрос2.Текст = «ВЫБРАТЬ

                    |    НоменклатураДокумента.Номенклатура,

                    |    НоменклатураДокумента.ВидНоменклатуры,

                    |    НоменклатураДокумента.КоличествоВДокументе,

                    |    НоменклатураДокумента.СуммаВДокументе,

                    |    ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество,

                    |    ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость

                    |ИЗ

                    |    НоменклатураДокумента КАК НоменклатураДокумента

                    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(

                    |                ,

                    |                Материал В

                    |                    (ВЫБРАТЬ

                    |                        НоменклатураДокумента.Номенклатура

                    |                    ИЗ

                    |                        НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки

                    |        ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал

                    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(

                    |                ,

                    |                Материал В

                    |                    (ВЫБРАТЬ

                    |                        НоменклатураДокумента.Номенклатура

                    |                    ИЗ

                    |                        НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки

                    |        ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал»;

                    
    // Запишем пустые наборы записей, чтобы читать остатки без учета данных в документе

    Движения.СтоимостьМатериалов.Записать();

    Движения.ОстаткиМатериалов.Записать();

                    
    РезультатЗапроса = Запрос2.Выполнить();

Добрый день!
После обновления программы (Зарплата и управление персоналом КОРП, редакция 3.1 (3.1.23.165) ) перестали проводится документы Начисление зарплаты и взносов.

Ошибка при выполнении обработчика — ‘ОбработкаПроведения’
по причине:
Значение индекса выходит за границы диапазона
{ОбщийМодуль.УчетСреднегоЗаработка.Модуль(5222)}: Начисления.Удалить(ИсключаемаяСтрока);
{ОбщийМодуль.УчетСреднегоЗаработка.Модуль(3405)}: РаспределитьВТНачисленияПоБазе(МенеджерВременныхТаблиц, Регистратор, ИсключатьВПериодКомандировок);
{ОбщийМодуль.УчетСреднегоЗаработка.Модуль(3009)}: ЗарегистрироватьНачисленияДляРасчетаОбщегоСреднегоЗаработка(Движения, Отказ, МенеджерВременныхТаблиц, ИсключатьВПериодКомандировок, ЗаписыватьДвижения);
{ОбщийМодуль.УчетСреднегоЗаработка.Модуль(237)}: ЗарегистрироватьДанныеОбщегоСреднегоЗаработка(Движения, Отказ, МенеджерВременныхТаблиц, ЗаписыватьДвижения);
{Документ.НачислениеЗарплаты.МодульМенеджера(265)}: УчетСреднегоЗаработка.ЗарегистрироватьДанныеСреднегоЗаработка(Движения, Отказ, ДанныеДляПроведения.НачисленияДляСреднегоЗаработка);
{Документ.НачислениеЗарплаты.МодульОбъекта(124)}: Документы.НачислениеЗарплаты.ПровестиПоУчетам(Ссылка, РежимПроведения, Отказ, Неопределено, Движения, ЭтотОбъект, ДополнительныеСвойства);

по причине:
Значение индекса выходит за границы диапазона

В чем может быть причина?

0 / 0 / 0

Регистрация: 14.11.2013

Сообщений: 24

1

Ошибка при выполнении обработчика — ‘ОбработкаПроведения’

16.10.2015, 01:17. Показов 14818. Ответов 2


Пишет ошибку из общего модуля при нажатии Провести или Записать(см. скрин). Перепроверил код общего модуля, по моему все как из учебника, но почему-то выдает такую ошибку…

Документ

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр Начисления
    Движения.Начисления.Записывать = Истина;
    Для Каждого ТекСтрокаНачисления Из Начисления Цикл
        Движение = Движения.Начисления.Добавить();
        Движение.Сторно = Ложь;
        Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;
        Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;
        Движение.ПериодДействияКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.ПериодРегистрации = Дата;
        Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;
        Движение.БазовыйПериодКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.Сотрудник = ТекСтрокаНачисления.Сотрудник;
        Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;
        Движение.ИсходныеДанные = ТекСтрокаНачисления.Начислено;
    КонецЦикла;
 
    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    
    // Записываем движения регистров
    Движения.Начисления.Записать();
    
    //Получим список всех сотрудников, содержащихся в документе
    Запрос = Новый Запрос(
    "ВЫБРАТЬ РАЗЛИЧНЫЕ
    |   НачисленияСотрудникамНачисления.Сотрудник
    |ИЗ
    |   Документ.НачисленияСотрудникам.Начисления КАК НачисленияСотрудникамНачисления
    |ГДЕ
    |   НачисленияСотрудникамНачисления.Ссылка = &ТекущийДокумент");
    
    Запрос.УстановитьПараметр("ТекущийДокумент",Ссылка);
    
    //Сформируем список сотрудников
    ТаблЗнач = Запрос.Выполнить().Выгрузить();
    МассивСотрудников = ТаблЗнач.ВыгрузитьКолонку("Сотрудник");
    
    //Вызов процедуры РассчитатьНачисления из общего модуля
    ПроведениеРасчетов.РассчитатьНачисления(Движения.Начисления, ПланыВидовРасчета.ОсновныеНачисления.Оклад, МассивСотрудников);
    Движения.Начисления.Записать( ,Истина);
    
    ПроведениеРасчетов.РассчитатьНачисления(Движения.Начисления, ПланыВидовРасчета.ОсновныеНачисления.Премия, МассивСотрудников);
    Движения.Начисления.Записать( ,Истина);
КонецПроцедуры

Общие модули

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Процедура РассчитатьНачисления(НаборЗаписейРегистра, ТребуемыйВидРасчета, СписокСотрудников) Экспорт
    
    Регистратор = НаборЗаписейРегистра.Отбор.Регистратор.Значение;
    
    //Рассчитать первичные записи
    Если ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Оклад Тогда
        
        Запрос = Новый Запрос;
        Запрос.Текст =
            "ВЫБРАТЬ
            |   НачисленияДанныеГрафика.ЗначениеПериодДействия КАК Норма,
            |   НачисленияДанныеГрафика.ЗначениеФактическийПериодДействия КАК Факт,
            |   НачисленияДанныеГрафика.НомерСтроки КАК НомерСтроки
            |ИЗ
            |   РегистрРасчета.Начисления.ДанныеГрафика(Регистратор=&Регистратор И
            |       ВидРасчета = &ВидРасчета И Сотрудник В (&СписокСотрудников))
            |   КАК НачисленияДанныеГрафика";
            
        Запрос.УстановитьПараметр("Регистратор", Регистратор);
        Запрос.УстановитьПараметр("ВидРасчета", ТребуемыйВидРасчета);
        Запрос.УстановитьПараметр("СписокСотрудников", СписокСотрудников);
        
        ВыборкаРезультата = Запрос.Выполнить().Выбрать();
        
        Для Каждого ЗаписьРегистра Из НаборЗаписейРегистра Цикл
            СтруктураНомер = Новый Структура("НомерСтроки");
            СтруктураНомер.НомерСтроки = ЗаписьРегистра.НомерСтроки;
            ВыборкаРезультата.Сбросить();
            
            Если ВыборкаРезультата.НайтиСледующий(СтруктураНомер) Тогда
                
                Если ВыборкаРезультата.Норма = 0 Тогда
                    Сообщение = Новый СообщениеПользователю;
                    Сообщение.Текст = "Вид расчета: Оклад - Нет рабочих дней в заданном периоде";
                    Сообщение.Сообщить();
                    ЗаписьРегистра.Результат = 0;
                Иначе
                    
                    //Рассчитать оклад по фактическому периоду и исходным данным
                    ЗаписьРегистра.Результат = (ЗаписьРегистра.ИсходныеДанныеВыборкаРезультата.Норма) * ВыборкаРезультата.Факт;
                    Сообщение = Новый СообщениеПользователю;
                    Сообщение.Текст ="Выполнен расчет" + ЗаписьРегистра.Регистратор + "-" + ЗаписьРегистра.ВидРасчета + "-" + ЗаписьРегистра.Сотрудник;
                    Сообщение.Сообщить();
                КонецЕсли;
            КонецЕсли;
        КонецЦикла
        
    //Рассчитать вторичные записи
ИначеЕсли ТребуемыйВидРасчета = ПланыВидовРасчета.ОсновныеНачисления.Премия Тогда
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |   НачисленияБазаНачисления.РезультатБаза КАК База,
        |   НачисленияБазаНачисления.НомерСтроки КАК НомерСтроки
        |ИЗ
        |   РегистрРасчета.Начисления.БазаНачисления(&ИзмеренияОсновного,
        |       &ИзмеренияБазового,,Регистратор = &Регистратор И ВидРасчета = &ВидРасчета И Сотрудник В (&СписокСотрудников))
        |   КАК НачисленияБазаНачисления";
        
    Измер = Новый Массив(1);
    Измер[0] = "Сотрудник";
    
    Запрос.УстановитьПараметр("ИзмеренияОсновного", Измер);
    Запрос.УстановитьПараметр("ИзмеренияБазового", Измер);
    Запрос.УстановитьПараметр("Регистратор", Регистратор);
    Запрос.УстановитьПараметр("ВидРасчета", ТребуемыйВидРасчета);
    Запрос.УстановитьПараметр("СписокСотрудников", СписокСотрудников);
    
    ВыборкаРезультата = Запрос.Выполнить().Выбрать();
    
    Для Каждого ЗаписьРегистра Из НаборЗаписейРегистра Цикл
        СтруктураНомер = Новый Структура("НомерСтроки");
        СтруктураНомер.НомерСтроки = ЗаписьРегистра.НомерСтроки;
        ВыборкаРезультата.Сбросить();
        
        Если ВыборкаРезультата.НайтиСледующий(СтруктураНомер) Тогда
            ЗаписьРегистра.Результат = ВыборкаРезультата.База * (10 / 100);
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "Выполнен расчет" + ЗаписьРегистра.Регистратор + "-" + ЗаписьРегистра.ВидРасчета + "-" + ЗаписьРегистра.Сотрудник;
            Сообщение.Сообщить();
        КонецЕсли;
    КонецЦикла;
    
 
КонецЕсли;
КонецПроцедуры

Миниатюры

Ошибка  при выполнении обработчика - 'ОбработкаПроведения'
 

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь



0



Не проводится документ. Как решить проблему?

Ошибка при выполнении обработчика — ‘ОбработкаПроведения’
по причине:
: Ошибка при вызове метода контекста (Выполнить)
РезультатЗапроса = Запрос2.Выполнить();
по причине:
: Поле не найдено «НоменклатураДокумента.Номенклатура»
ПО НоменклатураДокумента.<<?>>Номенклатура = СтоимостьТоваровОстатки.Номенклатура

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

Движения.ОстаткиТоваров.Записывать = Истина;
Движения.СтоимостьТоваров.Записывать = Истина;
Движения.Продажи.Записывать = Истина;

//Менеджер временных таблиц
МенеджерВТ = Новый МенеджерВременныхТаблиц;

Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос.Текст =
«ВЫБРАТЬ
| РасходнаяНакладнаяТовары.Товар,
| РасходнаяНакладнаяТовары.Товар.ВидНоменклатуры КАК ВидНоменклатуры,
| СУММА(РасходнаяНакладнаяТовары.Количество) КАК КоличествоВДокументе,
| СУММА(РасходнаяНакладнаяТовары.Сумма) КАК СуммаВДокументе
|ПОМЕСТИТЬ НоменклатураДокумента
|ИЗ
| Документ.РасходнаяНакладная.Товары КАК РасходнаяНакладнаяТовары
|ГДЕ
| РасходнаяНакладнаяТовары.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| РасходнаяНакладнаяТовары.Товар,
| РасходнаяНакладнаяТовары.Товар.ВидНоменклатуры»;

Запрос.УстановитьПараметр(«Ссылка», Ссылка);
РезультатЗапроса = Запрос.Выполнить();

Запрос2 = Новый Запрос;
Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос2.Текст =
«ВЫБРАТЬ
| НоменклатураДокумента.Номенклатура,
| НоменклатураДокумента.ВидНоменклатуры,
| НоменклатураДокумента.КоличествоВДокументе,
| НоменклатураДокумента.СуммаВДокументе,
| ЕСТЬNULL(СтоимостьТоваровОстатки.СтоимостьОстаток, 0) КАК Стоимость,
| ЕСТЬNULL(ОстаткиТоваровОстатки.КоличествоОстаток, 0) КАК Количество
|ИЗ
| НоменклатураДокумента КАК НоменклатураДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьТоваров.Остатки(
| ,
| Номенклатура В
| (ВЫБРАТЬ
| НоменклатураДокумента.Номенклатура
| ИЗ
| НоменклатураДокумента)) КАК СтоимостьТоваровОстатки
| ПО НоменклатураДокумента.Номенклатура = СтоимостьТоваровОстатки.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиТоваров.Остатки(
| ,
| Номенклатура В
| (ВЫБРАТЬ
| НоменклатураДокумента.Номенклатура
| ИЗ
| НоменклатураДокумента)) КАК ОстаткиТоваровОстатки
| ПО НоменклатураДокумента.Номенклатура = ОстаткиТоваровОстатки.Номенклатура»;

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

Если ВыборкаДетальныеЗаписи.Количество = 0 Тогда
СтоимостьТоваров = 0;
Иначе
СтоимостьТоваров = ВыборкаДетальныеЗаписи.Стоимость / ВыборкаДетальныеЗаписи.Количество;

Если ВыборкаДетальныеЗаписи.ВидНоменклатуры = Перечисления.ВидНоменклатуры.Товар Тогда

Движение = Движения.ОстаткиТоваров.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
Движение.Склад = Склад;
Движение.Количество = ВыборкаДетальныеЗаписи.Количество;

Движение = Движения.СтоимостьТоваров.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
Движение.Стоимость = ВыборкаДетальныеЗаписи.СтоимостьТовара * ВыборкаДетальныеЗаписи.Количество;

// Регистр Продажи
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.Товар;
Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
Движение.Сумма = ВыборкаДетальныеЗаписи.СуммаВДокументе;
Движение.Стоимость = ВыборкаДетальныеЗаписи.СтоимостьТовара * ВыборкаДетальныеЗаписи.КоличествоВДокументе;

Если Режим = РежимПроведенияДокумента.Оперативный Тогда

// Проверить отрицательные остатки
Запрос3 = Новый Запрос;
Запрос3.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос3.Текст ;

РезультатЗапроса = Запрос3.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = «Не хватает » + Строка(- ВыборкаДетальныеЗаписи.КоличествоОстаток) + » единиц товара «»» + ВыборкаДетальныеЗаписи.Номенклатура + «»»»;
Сообщение.Сообщить();

[ Вопрос дня ] Почему не удается провести документ “Реализация товаров и услуг” с заполненным направлением деятельности в 1С:Комплексная автоматизация 2.4?

Изменения типового функционала линейки конфигураций УТ, КА, ERP иногда вызывает всплеск активности в Мастер-группах. Так, изменения функционала использования направлений деятельности в документах в версиях 1С:УТ 11.4.5, 1С:КА 2.4.5, 1С:ERP 2.4.4, привело к появлению однотипных вопросов в рамках Мастер-группы курса Управленческий учет в типовых конфигурациях 1С (КА 2, УТ 11 и 1C:ERP) – Базовый курс.

Вопрос

Работаю в 1С:Комплексная автоматизация 2 (2.4.11.46). У меня не получается провести документ “Реализация товаров и услуг” с заполненным направлением деятельности без создания заказа покупателя. Система выдает ошибку, что в организации не хватает шкафов, стеллажей и т.п., хотя товар есть и он не в резерве. Если в документе не указывать направление деятельности или делать на основании заказа, то он проводится без проблем. Что я делаю не так, где ошибки в настройках?

Без указания направления деятельности мне по заданию не распределить расходы по амортизации пропорционально выручке.

Ответ

В новых релизах программы изменен функционал использования направлений деятельности в документах. Теперь для того, чтобы выполнить продажу с направлением деятельности (НД) у вас должны быть остатки под это направление деятельности. То есть в документе закупки товара в табличной части (ТЧ) “Товары” в колонке “Назначение” нужно указать направление деятельности (или заказ клиента) под которое выполняется закупка.

Для того, чтобы в документе закупки в ТЧ можно было указать “Назначение”, у вас должна быть включена функциональная опция “Обособленное обеспечение заказов” в разделе “НСИ и администрирование” – “Склад и доставка”.

В поступлении “Назначение” наследуется в аналитику учета по номенклатуре, а “Направление деятельности” (на закладке “Дополнительно”) – в аналитику учета по расчетам с партнерами.

Анна Викулина

Протестируйте качество нашей работы — получите первую консультацию в подарок.

Большинство вопросов на форумах по проблеме «долго проводятся документы», начинаются с перечисления технических характеристик серверов, сетевых параметров и т.д. А поскольку таких вопросов много, а технические характеристики, как правило, более чем солидные, можно сделать вывод, что «железо» здесь не причем. Рассмотрим другие причины долгого проведения документов в 1С.

Работая с одной из первых версий конфигурации УПП, вместе с бухгалтерами, мы ставили эксперимент – засекали время проведения документа «Реализация товаров и услуг». С момента нажатия кнопки до «отвисания» программы проходило больше 40 секунд. Версия программы была серверной, пользователи работали на сервере посредством RDP. Т.е. с технической точки зрения все было нормально. В базе была одна организация, отсутствовали ограничения в правах, и для «чистоты» эксперимента – только один пользователь. Такое время ожидания мы объясняли для себя так: документ проводился сразу в разрезе трех учетов, создавая огромное количество записей не только в регистрах накопления, но и «отмечаясь» в регистрах сведений. Но то была первая версия УПП. Прошло достаточно много времени, и разработчики должны были оптимизировать режим записи и хранения данных в своих учетных системах. С тех пор, однако, проблема в той или иной степени все-таки сохранилась.

Рис.1 Количество возможных движений в УПП 1.1 Рис.1 Количество возможных движений в УПП 1.1
Рис.2 Количество возможных движений в конфигурации ERP Рис.2 Количество возможных движений в конфигурации ERP
Рис.3 Количество возможных движений в БП 3.0 Рис.3 Количество возможных движений в БП 3.0

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

Избыточность кода

Если вы когда-нибудь использовали конструктор движений для документа в конфигураторе, то видели, как мало кода при этом создается, и как быстро проводится при этом документ. Но в реальности не все так просто. Необходимость ограничения попытки проведения, например, в прошлом периоде, сразу же рождает необходимость дополнить этот код. Как только у 1С появилась возможность вести учет по нескольким организациям, складам и подразделениям, сразу возникла необходимость в ограничении прав доступа различных пользователей к той или иной информации. И как следствие – ограничение прав доступа на уровне записи.

А как реализуется такая возможность? На каждом этапе проверки добавляется новый код. Возможности проведения, полнота заполнения данных, необходимость записывать документ в разных разрезах – вот причина того, что наш код растет как на дрожжах.

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

Рис.4 Код, созданный конструктором движений Рис.4 Код, созданный конструктором движений
Рис.5 Начало обработки проведения в Бухгалтерии предприятия 3.0. Рис.5 Начало обработки проведения в Бухгалтерии предприятия 3.0.

Как видим, этот только «подготовка данных» для записи.

Рис.6 Непосредственное формирование движений в БП 3.0 Рис.6 Непосредственное формирование движений в БП 3.0

В каждой строке, по сути, присутствует отсылка к глобальным модулям. Эти скачки между модулями также никак не добавляют скорости работы. Можно подумать: «Это же какие-то миллисекунды», – но именно из них в результате складываются десятки секунд ожидания. Скорость – это величина, характеризующаяся быстротой выполнения. В нашем случае, это скорость выполнения кода, а если кода слишком много, то и скорость выполнения невелика.

Какими бы мощными не были бы компьютеры, и как бы быстро они не реагировали на желания пользователя, они не могут научиться мгновенно преодолевать массы программного кода, выстроенного разработчиками. Защита от ошибок и получение максимально точных данных, вынуждают пользователя ожидать действий программы. Поскольку разработчики конфигураций 1С постоянно трудятся над оптимизацией своих решений, которые на сегодня становятся все более популярными в силу разных обстоятельств, можно надеяться на серьезные подвижки в этой области и на то, что проблема «долго проводятся документы» уйдет в прошлое. И да прибудет с нами код.

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

Движения.ОстаткиМатериалов.Записывать = Истина;

Движения.СтоимостьМатериалов.Записывать = Истина;

Движения.Продажи.Записывать = Истина;

// Создать менеджер временных таблиц

МенеджерВТ = Новый МенеджерВременныхТаблиц;

#Область НоменклатураДокумента

Запрос = Новый Запрос;

// Укажем, какой менеджер временных таблиц использует этот запрос

    Запрос.МенеджерВременныхТаблиц = МенеджерВТ;

Запрос.Текст = 

«ВЫБРАТЬ

| ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры 

|                                                    КАК ВидНоменклатуры,

|   ОказаниеУслугиПереченьНоменклатуры.НаборСвойств,

| СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) 

|                                       КАК КоличествоВДокументе,

| СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) 

|                                    КАК СуммаВДокументе

|ПОМЕСТИТЬ НоменклатураДокумента

|ИЗ

| Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры

|ГДЕ

| ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка

|

|СГРУППИРОВАТЬ ПО

| ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры

|   ОказаниеУслугиПереченьНоменклатуры.НаборСвойств «;

Запрос.УстановитьПараметр(«Ссылка», Ссылка);

РезультатЗапроса = Запрос.Выполнить();

#КонецОбласти

     #Область ДвиженияДокумента

Запрос2 = Новый Запрос;

    Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;

    Запрос2.Текст = «ВЫБРАТЬ

                    | НоменклатураДокумента.Номенклатура,

                    | НоменклатураДокумента.ВидНоменклатуры,

|    НоменклатураДокумента.НаборСвойств,

                    | НоменклатураДокумента.КоличествоВДокументе,

                    | НоменклатураДокумента.СуммаВДокументе,

                    | ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,

                    | ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество

                    |ИЗ

                    | НоменклатураДокумента КАК  НоменклатураДокумента

                    | ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(

                    | ,

                    | Материал В

                    | (ВЫБРАТЬ

                    | НоменклатураДокумента.Номенклатура

                    | ИЗ

                    | НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки

                    | ПО  НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал

                    | ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(

                    | ,

                    | Материал В

                    | (ВЫБРАТЬ

                    | НоменклатураДокумента.Номенклатура

                    | ИЗ

                    | НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки

                    | ПО  НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал  «;

// Установим необходимость блокировки данных в регистрах СтоимостьМатериалов

         // и ОстаткиМатериалов

      Движения.СтоимостьМатериалов.БлокироватьДляИзменения = Истина;

      Движения.ОстаткиМатериалов.БлокироватьДляИзменения = Истина;

// Запишем пустые наборы записей, чтобы читать остатки без учета данных в документе

    Движения.СтоимостьМатериалов.Записать();

    Движения.ОстаткиМатериалов.Записать();

РезультатЗапроса = Запрос2.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

Если ВыборкаДетальныеЗаписи.Количество = 0 Тогда

              СтоимостьМатериала = 0;

         Иначе

              СтоимостьМатериала =

              ВыборкаДетальныеЗаписи.Стоимость / ВыборкаДетальныеЗаписи.Количество;

        КонецЕсли;

Если ВыборкаДетальныеЗаписи.ВидНоменклатуры =

Перечисления.ВидыНоменклатуры.Материал Тогда 

// регистр ОстаткиМатериалов Расход

Движение = Движения.ОстаткиМатериалов.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

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

Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;

Движение.НаборСвойств = ВыборкаДетальныеЗаписи.НаборСвойств;

Движение.Склад = Склад;

Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;

// регистр СтоимостьМатериалов Расход

        Движение = Движения.СтоимостьМатериалов.Добавить();

        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

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

        Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;

        Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе * СтоимостьМатериала;

КонецЕсли;

// Регистр Продажи

        Движение = Движения.Продажи.Добавить();

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

        Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;

        Движение.Клиент = Клиент;

        Движение.Мастер = Мастер;

        Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;

        Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;

        Движение.Стоимость = СтоимостьМатериала * ВыборкаДетальныеЗаписи.КоличествоВДокументе;

КонецЦикла;

Движения.Записать();

#КонецОбласти

    #Область КонтрольОстатков

           Если Режим = РежимПроведенияДокумента.Оперативный Тогда

           // Проверить отрицательные остатки

   Запрос3 = Новый Запрос;

           Запрос3.МенеджерВременныхТаблиц = МенеджерВТ;

           Запрос3.Текст = «ВЫБРАТЬ

                           | ОстаткиМатериаловОстатки.Материал,

   |    ОстаткиМатериаловОстатки.НаборСвойств,

                           | ОстаткиМатериаловОстатки.КоличествоОстаток

                           |ИЗ

                           | РегистрНакопления.ОстаткиМатериалов.Остатки(,(Материал, НаборСвойств)В

                           | (ВЫБРАТЬ

                           | НоменклатураДокумента.Номенклатура

   |                        НоменклатураДокумента.НаборСвойств

                           | ИЗ

                           | НоменклатураДокумента)

                           | И Склад = &Склад) КАК ОстаткиМатериаловОстатки

                           |ГДЕ

                           | ОстаткиМатериаловОстатки.КоличествоОстаток < 0 «;

   Запрос3.УстановитьПараметр(«Склад», Склад);

           РезультатЗапроса = Запрос3.Выполнить();

           ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

              Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

              Сообщение = Новый СообщениеПользователю();

              Сообщение.Текст = «Не хватает » + Строка(- ВыборкаДетальныеЗаписи.КоличествоОстаток) +

                       » единиц материала «»» + ВыборкаДетальныеЗаписи.Материал + «»»» + 

   » из набора свойств «»» + ВыборкаДетальныеЗаписи.НаборСвойств + «»»»;

               Сообщение.Сообщить();

                    Отказ = Истина;

КонецЦикла;

            КонецЕсли;

#КонецОбласти

КонецПроцедуры

0 0 голоса
Рейтинг статьи
Подписаться
Уведомить о
guest

0 комментариев
Старые
Новые Популярные
Межтекстовые Отзывы
Посмотреть все комментарии

А вот еще интересные материалы:

  • Яшка сломя голову остановился исправьте ошибки
  • Ясность цели позволяет целеустремленно добиваться намеченного исправьте ошибки
  • Ясность цели позволяет целеустремленно добиваться намеченного где ошибка
  • Ошибка при выполнении прокси сервера
  • Ошибка при выполнении досрочного погашения тинькофф