Имя: Пароль:
1C
1C 7.7
v7: Изменение текущего документа в форме
0 AlexKing
 
25.01.15
08:41
Как можно изменить тек. документ форме? 1с выдает ошибку блокировки когда пытаюсь изменить реквизит тек. документа.
1 osa1C
 
25.01.15
08:43
(0) Другой пользователь редактирует этот документ
2 Chameleon1980
 
25.01.15
08:45
в какой форме-то?
3 AlexKing
 
25.01.15
08:52
Ну я его и изменяю (в форме документа).
Вот код:
Процедура ПриОткрытии()
    Если ПустоеЗначение(ДокументДоговор) = 1 Тогда
        НовыйЭлемент = СоздатьОбъект("Документ.Договоры");
        НовыйЭлемент.Новый();
        НовыйЭлемент.СуммаДоговора = СуммаДоговора;
        НовыйЭлемент.КонтролироватьСуммуДоговора = КонтролироватьСуммуДоговора;
        НовыйЭлемент.Сумма = Сумма;
        НовыйЭлемент.ДатаДок = ДатаДог ;
        //НовыйЭлемент.НомерДок = Код;    
        НовыйЭлемент.СправочникДоговора = ТекущийЭлемент();
        НовыйЭлемент.Записать();
        
        ДокументДоговор = НовыйЭлемент.ТекущийДокумент();
        
        ОбъектСправочник = СоздатьОбъект("Справочник.Договора");
        ОбъектСправочник.НайтиЭлемент(ТекущийЭлемент());
        ОбъектСправочник.ДокументДоговор = ДокументДоговор;
        ОбъектСправочник.Записать();
    КонецЕсли;
        ОткрытьФорму(ДокументДоговор);
        СтатусВозврата(0);
КонецПроцедуры

То есть если некий реквизит при открытии (ну или не только при открытии) не установлен я хочу получить Объект на изменение текущего документа и назначить данному реквизиту некое значение. Проблема в том что при этом 1с уже заблокировала данный документ, а я пытаюсь повторно его заблокировать при получение объекта не текущий документ. Так как этом можно обойти? И можно ли?
4 AlexKing
 
25.01.15
08:54
Извините, оговорился ... это не документ а справочник, но в принципе разницы не вижу.
5 Мимохожий Однако
 
25.01.15
09:28
(0)Текст ошибки полностью в студию (копипастом).
6 Dump
 
25.01.15
10:35
Процедура ПриОткрытии() - что именно открывается? Случайно, не элемент спр. Договора?
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс