всем привет
вопрос в следующем на форме документа есть кнопка для загрузки ТЗ из файла, вот пример кода
     Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
     Диалог.Заголовок = "Выберите файл с заказами";
     Диалог.ПолноеИмяФайла = "";
     Диалог.ПредварительныйПросмотр = Истина;
     Диалог.Фильтр =  "Файлы (*.xls)|*.xls|" + "Формат excel (*.xls)|*.xls|";
     Диалог.Фильтр =  "Файлы (*.xlsx)|*.xlsx|" + "Формат excel (*.xlsx)|*.xlsx|";
     
     Если Не Диалог.Выбрать() Тогда
       Возврат;
     КонецЕсли;
     
     
     Екс = Новый COMОбъект("Excel.Application");
     Екс.Visible = 1;
     Екс.Caption = "файл с заказами";
     Книга = Екс.WorkBooks;
     Книга.Open(Диалог.ПолноеИмяФайла);
     
     Стр = 2;
     Ячейка = Екс.Cells(2,7);
     Номер = СокрЛП(Ячейка.Value);
     ном = 0;
     Пока Номер <> "" Цикл
       ном = ном + 1;
       ст = Объект.ЗаявкаНаАвтоАкредитацию.Добавить();
       
       Ячейка = Екс.Cells(Стр,1);
       Ст.НомерПарковки = СокрЛП(Ячейка.Value);
       
       /// проверка корректности данных по зонам доступа
       Если НЕ Ст.НомерПарковки = "" Тогда
         Если Ст.НомерПарковки = "БПП" Тогда
           Ст.ЗаездНаВП = Истина;
         Иначе
         искНП = СокрЛП(Ст.НомерПарковки);
         ДлинСтр = СтрДлина(искНП);
         Сч = 1;
         новНП = "Р";
         Пока Сч <= ДлинСтр Цикл
           ТекСимвол = Сред(искНП, Сч, 1);
           Если ТекСимвол = "0"  ИЛИ ТекСимвол = "1" ИЛИ ТекСимвол = "2" ИЛИ ТекСимвол = "3" Тогда
             новНП = новНП + ТекСимвол ;
           КонецЕсли;
           Сч = Сч + 1;

как сделать так чтобы это работало и в опубликованной базе в Вэб?

всем привет
вопрос в следующем на форме документа есть кнопка для загрузки ТЗ из файла, вот пример кода
     Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
     Диалог.Заголовок = "Выберите файл с заказами";
     Диалог.ПолноеИмяФайла = "";
     Диалог.ПредварительныйПросмотр = Истина;
     Диалог.Фильтр =  "Файлы (*.xls)|*.xls|" + "Формат excel (*.xls)|*.xls|";
     Диалог.Фильтр =  "Файлы (*.xlsx)|*.xlsx|" + "Формат excel (*.xlsx)|*.xlsx|";
     
     Если Не Диалог.Выбрать() Тогда
       Возврат;
     КонецЕсли;
     
     
     Екс = Новый COMОбъект("Excel.Application");
     Екс.Visible = 1;
     Екс.Caption = "файл с заказами";
     Книга = Екс.WorkBooks;
     Книга.Open(Диалог.ПолноеИмяФайла);
     
     Стр = 2;
     Ячейка = Екс.Cells(2,7);
     Номер = СокрЛП(Ячейка.Value);
     ном = 0;
     Пока Номер <> "" Цикл
       ном = ном + 1;
       ст = Объект.ЗаявкаНаАвтоАкредитацию.Добавить();
       
       Ячейка = Екс.Cells(Стр,1);
       Ст.НомерПарковки = СокрЛП(Ячейка.Value);
       
       /// проверка корректности данных по зонам доступа
       Если НЕ Ст.НомерПарковки = "" Тогда
         Если Ст.НомерПарковки = "БПП" Тогда
           Ст.ЗаездНаВП = Истина;
         Иначе
         искНП = СокрЛП(Ст.НомерПарковки);
         ДлинСтр = СтрДлина(искНП);
         Сч = 1;
         новНП = "Р";
         Пока Сч <= ДлинСтр Цикл
           ТекСимвол = Сред(искНП, Сч, 1);
           Если ТекСимвол = "0"  ИЛИ ТекСимвол = "1" ИЛИ ТекСимвол = "2" ИЛИ ТекСимвол = "3" Тогда
             новНП = новНП + ТекСимвол ;
           КонецЕсли;
           Сч = Сч + 1;

как сделать так чтобы это работало и в опубликованной базе в Вэб?

На управляемых формах модальные окна работать не будут + нужно подключать работу с файлами. Там это в пару процедур делается, не помню точное синтаксис

когда захожу в базу вэб по тонкому клиенту все работает нормально.

и как быть если УФ?

Откажись от модальности. Выбор файла должен быть через ОписаниеОповещения

есть сайт хороший с задачами https://sql-ex.com/

Добрый день! Помогите пожалуйста, я полный ноль в программировании 1с, хочу узнать, возможно ли сделать звуковое оповещение на создание документа?

powershell -c echo `a

Добрый день! Помогите пожалуйста, я полный ноль в программировании 1с, хочу узнать, возможно ли сделать звуковое оповещение на создание документа?