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

Главная »
Линия консультаций » Комплексные решения 1С (КА, ERP, УПП), управленческий учет (УНФ), корпорациям » 1С:Предприятие 8. ERP Управление предприятием 2.0 » ERP Подсистема управленческого учета » Ошибка при выполнении обработчика — ‘ОбработкаУдаленияПроведения’
по причине:
Поле объекта не обнаружено (НачалоДняПорядка)
{ОбщийМодуль.ПроведениеСерверУТ.Модуль(433)}: Объект.Движения.Записать();
{Документ.ПоступлениеБезналичныхДенежныхСредств.МодульОбъекта(543)}: ПроведениеСерверУТ.ЗаписатьНаборыЗаписей(ЭтотОбъект);

по причине:
Ошибка при выполнении обработчика — ‘ПриЗаписи’
по причине:
Поле объекта не обнаружено (НачалоДняПорядка)
{ОбщийМодуль.ОперативныеВзаиморасчетыСервер.Модуль(287)}: ВызватьИсключение(СтрШаблон(НСтр(«ru = ‘В регистрах взаиморасчетов обранужены отрицательные остатки на дату %1. Проведение невозможно.’;
{ОбщийМодуль.ОперативныеВзаиморасчетыСервер.Модуль(1570)}: ЗаполнитьОперативныеВзаиморасчеты(ОсновныеПараметры);
{РегистрНакопления.РасчетыСКлиентами.МодульНабораЗаписей(659)}: ОперативныеВзаиморасчетыСервер.РаспределитьПоИзменениям(ПараметрыИзменений, ДополнительныеСвойства);
{ОбщийМодуль.ПроведениеСерверУТ.Модуль(433)}: Объект.Движения.Записать();
{Документ.ПоступлениеБезналичныхДенежныхСредств.МодульОбъекта(543)}: ПроведениеСерверУТ.ЗаписатьНаборыЗаписей(ЭтотОбъект);

Бух-ия 1,6,25,5. Есть проведенный и заполненый документ Регистрация отплаты поставщику для НДС. Нажимаю Заполнить, 1 с спрашивает отменить проведение, нажимаю Да, табличное поле будет очищено -да. и вылетает ошибка

{Документ.РегистрацияОплатыПоставщикуДляНДС(14)}: Ошибка при вызове метода контекста (Записать)

           Записать(РежимЗаписиДокумента.ОтменаПроведения);

по причине:

по причине:

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

по причине:

{ОбщийМодуль.ОбщегоНазначения(941)}: Операция не выполнена

           Записать(РежимЗаписиДокумента.ОтменаПроведения);

В конфигураторе строка 941

   Для Каждого СтрокаДвижения ИЗ ТаблицаДвижений Цикл        

       Попытка

           СтрокаДвижения.НаборЗаписей.Записать();

       Исключение

           // возможно «сработал» RLS или механизм даты запрета изменения

           СообщитьОбОшибке(ОписаниеОшибки(), Отказ, СтрокаДвижения.Имя);

           ВызватьИсключение «Операция не выполнена»;

       КонецПопытки;

   КонецЦикла;

Что значит возможно сработал RLS? Дата запрета стоит 30,09,2010. документ от 31,12,2010

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

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

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

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

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

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

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

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

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

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

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

«ВЫБРАТЬ

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

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

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

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

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

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

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

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

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

|ИЗ

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

|ГДЕ

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

|

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                    |ИЗ

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

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

                    | ,

                    | Материал В

                    | (ВЫБРАТЬ

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

                    | ИЗ

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

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

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

                    | ,

                    | Материал В

                    | (ВЫБРАТЬ

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

                    | ИЗ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

         Иначе

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

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

        КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

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

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

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

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

                           |ИЗ

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

                           | (ВЫБРАТЬ

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

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

                           | ИЗ

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

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

                           |ГДЕ

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

            КонецЕсли;

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

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

ОбработкаУдаленияПроведения

Предопределенная процедура обработки
удаления проведения доку­мента.

Синтаксис:

ОбработкаУдаленияПроведения()

Англоязычный синоним:

UnPostingProcess

Описание:

Процедура ОбработкаУдаленияПроведения
— предопределенная проце­дура. Она
не является встроенной процедурой
языка. Для нее определено толь­ко
название и синтаксис. Тело процедуры
должно быть написано разработчи­ком
конфигурации в Модуле документа (см.
«Виды программных модулей»). Вызов
процедуры ОбработкаУдаленияПроведения
производится в системе 1С:Предприятие
неявно при отмене проведения документа
или при удалении проведенных документов
в любом режиме — интерактивно или
программно. (см. СделатьНеПроведенным,
Удалить).

Замечание.
В предопределенных процедурах
ОбработкаПроведения
и ОбработкаУдаленияПроведения
система 1С:Предприятие сама выполняет
все действия через транзакцию (см.
«Процедуры работы с транзак­циями»),
поэтому никаких специальных действий
по обработке транзакций в этих
предопределенных процедурах предпринимать
не нужно.

Если в данной предопределенной
процедуре установить статус возврата
— 0 (например, если данному пользователю
нельзя отменять проведение докумен­та)
то отмена проведения документа не будет
выполнена и будет отменена сис­темная
транзакция.

Замечание.
В предопределенных процедурах
ОбработкаУдаленияПроведения
и ОбработкаПроведения
нельзя использовать элементы интерактивного
управления (например, операторы
Предупреждение,
Вопрос,
ВвестиЧисло
и т. п.), т. к. в этом случае при открытой
транзакции система ожидает отклика
пользователя, а все ос­тальные
пользователи ждут завершения транзакции
(в результате доку­менты у всех
остальных пользователей в этот момент
не могут проводить­ся). Если в
конфигурации необходимо при проведении
документа выда­вать пользователю
некоторые сообщения, то следует
использовать опера­торы Сообщить
или Состояние.

Данная предопределенная процедура
может располагаться только в Моду­лях
документов (см. «Виды программных
модулей»).

Пример:

Процедура
ОбработкаУдаленияПроведения()

//
Процедура выполняется при отмене
проведения

// или
удалении документа

//
Сотрудник — это реквизит документа

СпрСотрудники.НайтиЭлемент(Сотрудник);

// если
нашли сотрудника…

Если
СпрСотрудники.Выбран() = 1 Тогда

//
СтРасч — это реквизит документа

СпрСотрудники.НайтиЭлемент(СтРасч);

ВозвратРасч
= 0;

Если
СпрСотрудники.Выбран() = 1 Тогда

//
если старый расчетчик еще есть — откатим!

ВозвратРасч
= 1;

КонецЕсли;

СпрСотрудники.НайтиЭлемент(Сотрудник);

Если
ВозвратРасч = 1 Тогда

СпрСотрудники.Родитель
= СтРасч;

КонецЕсли;

СпрСотрудники.Записать();

КонецЕсли;

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

См. также:
СтатусВозврата,
СделатьНеПроведенным,
Удалить

АрхивироватьДокумент

Предопределенная процедура обработки
архивирования документа.

Синтаксис:

АрхивироватьДокумент()

Англоязычный синоним:

ArchiveDocument

Описание:

Вызов процедуры АрхивироватьДокумент
производится в системе 1С:Предприятие
неявно в процессе смены расчетного
периода журнала расче­тов «вперед»
(т. н. архивация данных расчета), если
в журнале расчетов содер­жатся записи,
порожденные данным документом.

Тело процедуры должно быть
написано разработчиком конфигурации
в Модуле документа, вызываемом в
конфигураторе: Документ — Редактировать
— Модуль документа.

Пример:

Процедура
АрхивироватьДокумент()

//
Процедура выполняется при архивации
документа расчета

ЖР =
СоздатьОбъект(«ЖурналРасчетов.Зарплата»);

Если
Окончание > ЖР.КонецТекущегоПериода()
Тогда

Зарегистрировать(ТекущийДокумент());

КонецЕсли;

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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #

  20.03.2015288.77 Кб317.doc

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #