Ошибка безопасного режима

Форум Программирование Общие вопросы программирования (Dev)

1. user2073132 28.03.24 05:07 Сейчас в теме

Что в этом коде нужно поменять что бы он работал в безопасном режиме?

&НаКлиенте
Процедура ЗагрузитьДанныеНаКлиенте(Результат, ДопПараметр) Экспорт
	ЗагрузитьДанныеНаСервере(Результат, ДопПараметр)
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьДанныеНаСервере(Результат, ДопПараметр) 
	Если НЕ (Результат = Неопределено) Тогда       
		ИмяФайла = Результат[0];
	Иначе
		Сообщить("Не выбран файл!");
		Возврат;
	КонецЕсли;
	
	Выборка = Справочники.ВнеоборотныеАктивы.Выбрать();           
    Пока Выборка.Следующий() Цикл   
        СправочникЗадачи = Выборка.ПолучитьОбъект();  
         СправочникЗадачи.Удалить();
    КонецЦикла;

	
	ТабДок = Новый ТабличныйДокумент;              	ТабДок.Прочитать(ИмяФайла);
	Для Строка = 2 По ТабДок.ВысотаТаблицы Цикл        
		ТипТабл = ТабДок.Область(Строка, 2).Текст;
		Если не ТабДок.Область(Строка, 2).Текст = "" и не ТабДок.Область(Строка, 2).Текст = "Наименование" Тогда
			Если Справочники.ВнеоборотныеАктивы.НайтиПоНаименованию(ТипТабл, Истина) = Справочники.ВнеоборотныеАктивы.ПустаяСсылка() Тогда	
			ЭлементыВнеоборотныеАктивы = Справочники.ВнеоборотныеАктивы.СоздатьЭлемент(); 
			ЭлементыВнеоборотныеАктивы.Наименование = ТабДок.Область(Строка, 2).Текст;
			ЭлементыВнеоборотныеАктивы.НачальнаяСтоимость = ТабДок.Область(Строка, 4).Текст;
			ЭлементыВнеоборотныеАктивы.Записать();  
			Сообщить("В справочник была добавлена запись " + ЭлементыВнеоборотныеАктивы.Наименование);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. glek 119 28.03.24 08:04 Сейчас в теме

(1) Попробовать добавить разрешение на использование каталога файловой системы.

3. o.kovalev 114 29.03.24 08:43 Сейчас в теме

&НаКлиенте
Процедура ЗагрузитьФайл(Команда)
	
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Диалог.Заголовок = "Выберите файл";
	Диалог.ПолноеИмяФайла = ""; 
	Фильтр = "MXL (*.mxl|*.mxl"; 
	Диалог.Фильтр = Фильтр; 
	Диалог.МножественныйВыбор = Ложь;	
	Диалог.Показать(Новый ОписаниеОповещения("ЗагрузитьФайлЗавершение", ЭтаФорма, Новый Структура("Диалог", Диалог)));	
	
	
	
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьФайлЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт

	Диалог = ДополнительныеПараметры.Диалог;   
	
	
	Если (ВыбранныеФайлы <> Неопределено) Тогда				
		
		ТаблДокумент= Новый ТабличныйДокумент();
		ТаблДокумент.Прочитать(Диалог.ПолноеИмяФайла);
		АдресВХ = ПоместитьВоВременноеХранилище(ТаблДокумент);		
			
		ОбработатьФайлНаСервере(АдресВХ);
				
	КонецЕсли;
	
КонецПроцедуры


&НаСервере
Процедура ОбработатьФайлНаСервере(АдресВХ)

	ТаблДокумент=ПолучитьИзВременногоХранилища(АдресВХ);
	
  	Для Строка = 1 По ТаблДокумент.ВысотаТаблицы Цикл        
        Сообщить(ТаблДокумент.Область(Строка, 2).Текст);
	КонецЦикла;
 
	
КонецПроцедуры

Показать

Оставьте свое сообщение

E-mail: