Платформа 7.70.027
Конфигурация ТиС, переписанная вдоль и поперек. База большая.
MS SQL Express

При изменении цены товара иногда выдает ошибку.

.

После этого 1С виснет, процесс не грузит. Завершить сеанс можно только через Диспетчер задач.

Процедура ИзменитьЦену()
    Перем ФормаЗаписи, Элемент, Позиция;
    
    Позиция  = СписокЦен.ТекущаяСтрока();
    Если Позиция > 0 Тогда
        Элемент= СписокЦен.ПолучитьЗначение(Позиция, "Ссылка");
        ФормаЗаписи=глВзятьКонтекст(Контекст);
        ОткрытьФормуМодально(Элемент, ФормаЗаписи); <--- строка 846
    Иначе
        Предупреждение("Не выбрана цена.");
    КонецЕсли;
КонецПроцедуры

Вопроса 2.

1.Может кто-то сталкивался с подобным?
2.Как сэмулировть превышение времени ожидания на тестовой базе MS SQL 2008 R2 Evolution.
ну или MS SQL 2005 Express.(переустановлю)

Спасибо.

В логе SQL что-то есть по этому поводу?

не нашел

А что в процедуре ПриОткрытии для данной формы?

а что это за хрень????

Терминал?

я просто указал, где строка с ошибкой.


ошибка возникает после нажатия на кнопку "Записать".

окно закрывается, появляется собщение об ошибке и 1С перестает реагировать.

не всегда так, но приходится снимать процесс 1С в диспетчере задач.

в смысле здесь на форуме? или в коде?

так тогда нужен код процедуры ПриЗаписи()

Фигасе ... Модально в ПриЗаписи ... Убил бы нахрен ...

igmig65 у человека 900 сообщений, не задавайте глупых вопросов. Всем ясно что это пометка для форума, физически в коде ее нет.

на форуме, конечно, для лучшего представления картины читающих, помогающих.


ПриЗаписи код скорее всего такой же как в типовой.

Процедура ПриЗаписи()    // Предопределенная процедура
    // в процедуре при записи проверятся заполнение обязательных реквизитов
    Перем Описание;
    Перем ФлагОшибки;
    Перем ВыборкаЦен;
    
    Описание = "Не заполнено поле ";
                    
    // изначально считаем, что не все обязательные поля заполнены
    ФлагОшибки = 0;
    
    // проверка обязательных полей
    Если ПустоеЗначение(Валюта) = 1 Тогда
        Описание = Описание + "'Валюта'";
    ИначеЕсли ПустоеЗначение(КатегорияЦены) = 1 Тогда
        Описание = Описание + "'Тип цены'";
    ИначеЕсли ПустоеЗначение(Единица) = 1 Тогда
        Описание = Описание + "'Единица измерения'";
    Иначе
        // все обязательные поля заполнены
        ФлагОшибки = 1;
    КонецЕсли;
    
    Если ФлагОшибки=0 Тогда
        
        // не заполнено обязательное поле
        Предупреждение(Описание);
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;
    
    // проверяем, есть ли уже цена с такой категорией
    ВыборкаЦен = СоздатьОбъект("Справочник.Цены");
    ВыборкаЦен.ИспользоватьВладельца(Владелец);
    ВыборкаЦен.ВыбратьЭлементы();
    Пока ВыборкаЦен.ПолучитьЭлемент()=1 Цикл
        Если КатегорияЦены = ВыборкаЦен.КатегорияЦены Тогда
            Если Выбран()=0 Тогда
                // для новой цена сравниваем только совпадение категории
                ФлагОшибки = 0;
                Прервать;
            Иначе
                // для сохраненного элемента проверить несовпадение категорий
                // недостаточно, т.к. из выборки можно получить редактируемый элемент
                // дублирование категорий может произойти только если совпадают
                // категории у разных элементов
                Если ТекущийЭлемент() <> ВыборкаЦен.ТекущийЭлемент() Тогда
                    ФлагОшибки = 0;
                    Прервать;
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    
    Если ФлагОшибки = 0 Тогда
        Если ВыборкаЦен.ПометкаУдаления() = 1 Тогда
            Если Вопрос("У товара уже есть '"+КатегорияЦены+"' цена, помеченная на удаление.
                        |Снять пометку удаления?","Да+Нет")="Да" Тогда
                // запишем выбранные значение в справочник   
                // снимем пометку удаления 
                Попытка
                    ВыборкаЦен.СнятьПометкуУдаления();
                Исключение
                    Предупреждение(ОписаниеОшибки());
                    СтатусВозврата(0);
                    Возврат;
                КонецПопытки;
                ДатаДляЗаписи = РабочаяДата();
                ВвестиДату(ДатаДляЗаписи,"Дата периодических реквизитов");
                ВыборкаЦен.Валюта.    Установить(ДатаДляЗаписи,Валюта);
                ВыборкаЦен.Единица.    Установить(ДатаДляЗаписи,Единица);
                ВыборкаЦен.Цена.    Установить(ДатаДляЗаписи,Цена);
                ВыборкаЦен.Наценка     = Наценка;
                ВыборкаЦен.Записать();
                ЗаписатьВКонтекст(ВыборкаЦен.ТекущийЭлемент(),ДатаДляЗаписи);
                // закроем форму
                Форма.Закрыть(0);
            КонецЕсли;
        Иначе    
            Предупреждение("У товара уже есть '"+КатегорияЦены+"' цена");
        КонецЕсли;
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;

    Наименование = КатегорияЦены.Наименование;

    глЗаписьПериодическихРеквизитов(Контекст);
КонецПроцедуры    // ПриЗаписи

Получается что ошибка именно в процедуры ИзменитьЦену(), но..

а в процедуре ПриЗаписи() нет вызова ИзменитьЦену().
Ищите где зависает ч-з отладчик, да и желательно проанализировать, когда именно зависает, а когда нет...

Поскольку база очень большая, а Цена скорее всего периодическая, то и таблица периодических значений тоже большая. Для SQL в настройках надо увеличить время ожидания. на ИТСе есть пример настройки SQL.

в мене по суті все те ж саме, але база дбф.
так взагалі давно зрозумів, що треба залишити лише актуальні ціни....

а где вызывается ИзменитьЦену() ? в формуле поля формы?

Сделайте копию таблицу в ИБ и затем почистите ее.