1С 8 Настраиваемый рабочий стол

11 Comments

1. ProGramMoS 01.09.2012 at 18:39

   {Форма.РабочийСтол.Форма(121,3)}: Переменная не определена (Adinsoft_Modulu)
   
   <<?>>Adinsoft_Modulu.ОткрытьФормуИзПанелФункции(НайдСтр);
   
   Вот такое сообщение…при попытке открыть обработку — вроде в конфигураторе все прописал

   Reply ↓
2. rustamsmax 02.09.2012 at 17:05

   Извиняюсь добавьте функцию а модуль обработки:

   Функция ОткрытьФормуИзПанелФункции(СтрокаМеню) Экспорт
   
   Если СтрокаМеню <> Неопределено
   
   И (Не ЕстьРеквизитьОбъекта(СтрокаМеню, «Родитель») ИЛИ СтрокаМеню.Родитель <> Неопределено) Тогда
   
   Если ЕстьРеквизитьОбъекта(СтрокаМеню, «Родитель») Тогда
   
   Тип = СтрокаМеню.Родитель.ИмяОбъекта;
   
   Иначе
   
   Тип = СтрокаМеню.Тип;
   
   КонецЕсли;
   
   Если Тип = «ОбщиеФормы» Тогда
   
   ПолучитьОбщуюФорму(СтрокаМеню.ИмяОбъекта).Открыть();
   
   ИначеЕсли Тип = «Справочники» Тогда
   
   Справочники[СтрокаМеню.ИмяОбъекта].ПолучитьФормуСписка().Открыть();
   
   ИначеЕсли Тип = «Документы» Тогда
   
   Документы[СтрокаМеню.ИмяОбъекта].ПолучитьФормуСписка().Открыть();
   
   ИначеЕсли Тип = «ЖурналыДокументов» Тогда
   
   ЖурналыДокументов[СтрокаМеню.ИмяОбъекта].ПолучитьФорму().Открыть();
   
   ИначеЕсли Тип = «Отчеты» Тогда
   
   ОтчетОбъект = Отчеты[СтрокаМеню.ИмяОбъекта].Создать();
   
   ФормаОтчета = ОтчетОбъект.ПолучитьФорму();
   
   ФормаОтчета.Открыть();
   
   Если ЕстьРеквизитьОбъекта(ОтчетОбъект, «УниверсальныйОтчет») Тогда
   
   СтруктураНастройки = Новый Структура;
   
   СтруктураНастройки.Вставить(«Пользователь», глЗначениеПеременной(«глТекущийПользователь»));
   
   СтруктураНастройки.Вставить(«ИмяОбъекта», Строка(ОтчетОбъект));
   
   СтруктураНастройки.Вставить(«НаименованиеНастройки», СтрокаМеню.ИмяНастройки);
   
   Если УниверсальныеМеханизмы.ПолучитьНастройку(СтруктураНастройки) Тогда
   
   ОтчетОбъект.УниверсальныйОтчет.мТекущаяНастройка = СтруктураНастройки;
   
   ОтчетОбъект.ВосстановитьНастройкиИзСтруктуры(СтруктураНастройки.СохраненнаяНастройка);
   
   ОтчетОбъект.УниверсальныйОтчет.УстановитьЗаголовокФормы(ОтчетОбъект.УниверсальныйОтчет, ОтчетОбъект, ФормаОтчета);
   
   КонецЕсли;
   
   КонецЕсли;
   
   ИначеЕсли Тип = «Обработки» Тогда
   
   Обработки[СтрокаМеню.ИмяОбъекта].ПолучитьФорму().Открыть();
   
   КонецЕсли;
   
   КонецЕсли;
   
   КонецФункции

   Reply ↓
3. rustamsmax 02.09.2012 at 17:07

   и это

   Функция ЕстьРеквизитьОбъекта(Объект, ИмяРеквизита) Экспорт
   
   УИ = Новый УникальныйИдентификатор();
   
   СтрРеквизит = Новый Структура(ИмяРеквизита, УИ);
   
   ЗаполнитьЗначенияСвойств(СтрРеквизит, Объект);

   Возврат СтрРеквизит[ИмяРеквизита] <> NULL И СтрРеквизит[ИмяРеквизита] <> УИ;
   
   КонецФункции

   Reply ↓
4. glek 03.09.2012 at 15:40

   За идею — плюс. Но Вы бы хоть орфографию подправили.
   

   «акже для отчетов можно настраивать по сохраненными настройками.

   . Это на каком языке? А это:
   
   -Пользователь(СправочникСсылка.Пользователи)
   
   —Раздель(Строка)
   
   с русурсам
   
   -Значение(ХранилищеЗначения)
   
   🙂

   Reply ↓
5. iones 12.09.2012 at 15:35

   Это на нармальнановорускам языке)))
   
   + за идею

   Reply ↓
6. iones 20.09.2012 at 11:07

   Мое решение универсального и настраиваемого рабочего стола, для любой конфигурации.
   
   Пока только для обычного приложения.
   
   http://infostart.ru/public/152771/

   Reply ↓
7. -water- 05.12.2012 at 19:30

   Перед тем как выкладывать проверял бы..нифига не работает

   Reply ↓
8. ron1 26.03.2013 at 16:55

   Здравствуйте. Очень нужен такой Рабочий стол. Но смущает последний комментарий.
   
   Рустам, не могли бы Вы сказать, работает ли Ваше обработка на версии 10.3.21.2?
   
   Заранее спасибо.

   Reply ↓
9. rustamsmax 09.07.2013 at 13:45

   (8) ron1, Здравствуйте! да работает

   Reply ↓
10. Alfer 16.01.2014 at 19:04

    совсем неплохо — будем пользоваться — спасибо разработчику

    Reply ↓
11. net7wolf 18.09.2014 at 08:35

    8.1 «Управление торговлей», редакция 10.3 (10.3.5.1) не работает

    Reply ↓