PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Есть 2-х уровневый справочник. Как сделать, чтобы на первом уровне вводились только группы?

Если ввод нового осуществляется в диалоге:
В модуль формы ЭЛЕМЕНТА, в ПриОткрытии:
Если ПустоеЗначение(Родитель)=1 тогда
сообщить("На этом уровне справочника можно вводить ТОЛЬКО группы");
СтатусВозврата(0);
КонецЕсли;

Если в списке:
Код предложил NS:

Процедура ПриЗаписи()
     // Если элемент уже редактировался, то его можно сохранить
     // Если просто нажали клавишу новый, то если можно вводить,
     // Тогда перейдет в режим редактирования
     // Иначе сохранится, перейдет в процедуру приЗакрытии(), и будет удален...
     Если МожноЗаписать=0 Тогда
          МожноЗаписать=1;
          Если ЭтоГруппа()=1 Тогда
               СтатусВозврата(0);
          ИначеЕсли Родитель.Выбран()=1 Тогда
               СтатусВозврата(0);
          Иначе
               НужноЗакрыть=0;
          КонецЕсли;
     КонецЕсли;
КонецПроцедуры

Процедура
 ПриВводеСтроки()
     НужноЗакрыть=1;
     МожноЗаписать=0;
     ПослЭл=ТекущийЭлемент();
     Форма.Закрыть(0);
     // Пойдет сначала на ПриЗаписи(),
     // И если можно записать, тогда
     // Элемент Останется в Режиме редактирования (Без Записи!!!!)
КонецПроцедуры

Процедура
 ПриЗакрытии()
     Если НужноЗакрыть=0 Тогда
          // Если Новый элемент, который нельзя вводить......
          // Можно еще добавить Сообщение или Предупреждение.....
          спр=СоздатьОбъект("Справочник."+вид());
          спр.НайтиЭлемент(ТекущийЭлемент());
          спр.Удалить(1);
          НужноЗакрыть=1;
          МожноЗаписать=1;
          АктивизироватьОбъект(ПослЭл);
          СтатусВозврата(0);
     КонецЕсли;
КонецПроцедуры


- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz