begemot
Алексей Шумаев

// Для определения доступности формы на изменение с учетом РЛС, пробуем записать объект.
//   Если запись не удаласть - значит доступа нет и нужно перевести форму в режим "Только просмотр"
//   В любом случае, после выполнения операции отменяем транзакцию.
Процедура ОграничениеДоступаПоРЛС(Объект, Форма) Экспорт
   
   Если ПараметрыСеанса.ИспользоватьОграниченияПравДоступаНаУровнеЗаписей Тогда
      Если НЕ Объект.Ссылка.Пустая() Тогда
         НачатьТранзакцию();
         Попытка
            Объект.Записать();
         Исключение
            УстановитьНедоступностьФормы(Форма);
         КонецПопытки;
         ОтменитьТранзакцию();
         Объект.Прочитать(); // для сбоса флага модифицированности объект нужно перечитать
      КонецЕсли;
   КонецЕсли;
   
КонецПроцедуры

Процедура УстановитьНедоступностьФормы(Форма) Экспорт
   
   Форма.ТолькоПросмотр = Истина;
   
   Для каждого ЭлементФормы Из Форма.ЭлементыФормы Цикл
      ТипЭлемента = ТипЗнч(ЭлементФормы);
      Если ТипЭлемента = Тип("ПолеВвода")
         ИЛИ ТипЗнч(ЭлементФормы) = Тип("ТабличноеПоле")
         ИЛИ ТипЗнч(ЭлементФормы) = Тип("ПолеТабличногоДокумента") Тогда
         ЭлементФормы.ТолькоПросмотр = Истина;
      ИначеЕсли ТипЭлемента = Тип("Кнопка") Тогда
         ЭлементФормы.Доступность = Ложь;
      ИначеЕсли ТипЭлемента = Тип("КоманднаяПанель") Тогда
         ЭлементФормы.Доступность = Ложь;
         УстановитьНедоступностьКнопкамКоманднойПанели(ЭлементФормы.Кнопки);
      КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры

Процедура УстановитьНедоступностьКнопкамКоманднойПанели(Кнопки)
   
   Для каждого Кнопка Из Кнопки Цикл
      Если Кнопка.ТипКнопки = ТипКнопкиКоманднойПанели.Действие Тогда
         Если Кнопка.ИзменяетДанные Тогда
            Кнопка.Доступность = Ложь;
         КонецЕсли;
         ДействиеСтрокой = Строка(Кнопка.Действие);
         Если ДействиеСтрокой = "Записать" ИЛИ ДействиеСтрокой = "Записать и закрыть" Тогда
            Кнопка.Доступность = Ложь;
         КонецЕсли;
      ИначеЕсли Кнопка.ТипКнопки = ТипКнопкиКоманднойПанели.Подменю Тогда
         УстановитьНедоступностьКнопкамКоманднойПанели(Кнопка.Кнопки);
      КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры

    <si>
        <r>
            <rPr>
                <b/>
                <sz val="12"/>
                <rFont val="times new roman,serif"/>
            </rPr>
            <t>R</t>
        </r>
        <r>
            <rPr>
                <b/>
                <sz val="10"/>
                <rFont val="times new roman,serif"/>
            </rPr>
            <t>008</t>
        </r>
    </si>

Функция ИзвлечьДанныеИзФайла_SharedStringsXML(ZIPКаталог)
   Перем Файл, SharedStrings;
   Перем МассивSharedStrings;
   
   // Если в файле EXCEL не содержится значений, имеющих тип "СТРОКА", то файл "SharedStrings.xml" не формируется.
   
   МассивSharedStrings = Новый Массив;
   
   Файл = Новый Файл(ZIPКаталог + "XL\SharedStrings.xml");
   Если НЕ Файл.Существует() Тогда
      Возврат МассивSharedStrings;
   КонецЕсли;
   
   SharedStrings = Новый ЧтениеXML;
   SharedStrings.ОткрытьФайл(Файл.ПолноеИмя);
   
   Пока SharedStrings.Прочитать() Цикл
      Если SharedStrings.Имя = "si" И SharedStrings.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
         ЧастиСтроки = Новый Массив;
      КонецЕсли;
      Если ВРег(SharedStrings.Имя) = "#TEXT" Тогда
         ЧастиСтроки.Добавить(SharedStrings.Значение);
      КонецЕсли;
      Если SharedStrings.Имя = "si" И SharedStrings.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
         МассивSharedStrings.Добавить(СтрСоединить(ЧастиСтроки, ""));
      КонецЕсли;
   КонецЦикла;
   
   // Завершение работы.
   // Закрытие Объектов.
   SharedStrings.Закрыть();
   
   Возврат МассивSharedStrings;
   
КонецФункции

   
   Если Не ПроверитьЗаполнение() Тогда
      Возврат;
   КонецЕсли; 
   ТекстМодуля = ПолучитьТекстМодуля();

   
   ТекстМодуля = ПолучитьТекстМодуля();
   Если Не ПроверитьЗаполнение() Тогда
      Возврат;
   КонецЕсли; 

Для каждого Параметр Из ДополнительныеПараметры.Параметры Цикл
   Если ДополнительныеПараметры.ПараметрыСообщения.Свойство(Параметр.Ключ) Тогда
      ДополнительныеПараметры.ПараметрыСообщения.ПроизвольныеПараметры.Вставить(Параметр.Ключ, ДополнительныеПараметры.ПараметрыСообщения[Параметр.Ключ]);
   КонецЕсли;
КонецЦикла;