Имя: Пароль:
1C
1С v8
УФ, отменить ввод новой строки ТЧ
0 егаис
 
18.12.16
12:57
Господа, туплю
Есть две ТЧ документа, одна подчинена второй по УИД.
Нужно отменить ввод строки в подчиненной ТЧ, есть нет строк в главной ТЧ.

&НаКлиенте
Процедура НормативыВыдачиПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
    
    ДанныеДолжности = Элементы.Должности.ТекущиеДанные;
    Если НЕ ДанныеДолжности = Неопределено Тогда
        ДанныеНорм = Элементы.НормативыВыдачи.ТекущиеДанные;
        Если НоваяСтрока Тогда
            ДанныеНорм.Идентификатор = ДанныеДолжности.Идентификатор;
        КонецЕсли;
    Иначе
        ОчиститьСообщения();
        Сообщить("Сначала введите должность!");
    КонецЕсли;    
    
КонецПроцедуры


&НаКлиенте
Процедура НормативыВыдачиПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования, Отказ)
    
    Если Строка(Элемент.ТекущиеДанные.Идентификатор) = "00000000-0000-0000-0000-000000000000" Тогда
        Отказ = Истина;
    КонецЕсли;    
    
КонецПроцедуры


В таком варианте проблемы возникают и с выходом по ESC
1 Diman000
 
18.12.16
13:06
Я, конечно, точно не помню.
Но такие штуки же делаются периодически и все работает.
События типа ПередНачаломДобавления нет что ли?

Вот это прикольная строка:
Строка(Элемент.ТекущиеДанные.Идентификатор) = "00000000-0000-0000-0000-000000000000"

Смотри с количеством нулей не ошибись)))
2 егаис
 
18.12.16
13:13
(1) ага, руками...отладчик наше все
черт, через строку смотрел что не увидел это событие...спасибо
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.