Как показать сообщение пользователю? методы: СообщениеПользователю и ПоказатьОповещениеПользователя В 1С предполагается, что СообщениеПользователю выводятся для того, чтобы сообщить пользователю об ошибках.
А для информирования о выполняемом действии рекомендуется использовать метод встроенного языка ПоказатьОповещениеПользователя() .
СообщениеПользователю выводит сообщение пользователю (после окончания обработки) или сохраняет его в очередь, если сообщение невозможно вывести прямо сейчас.
Пример вывода сообщения на клиенте:
Код 1C v 8.3 Если ЗначениеЗаполнено( объект. ИнтернетМагазин) Тогда
Иначе
сбп= Новый СообщениеПользователю;
сбп. Текст = "Укажите интернет-магазин данные которого Вы загружаете!" ;
сбп. Поле= "ИнтернетМагазин" ;
сбп. ПутьКДанным = "Объект" ;
сбп. Сообщить( ) ;
КонецЕсли ; При обработке на сервере:
Необходимо зарегистрировать в системе соответствие объекта и имени реквизита формы. Для этого в глобальном контексте реализована функция УстановитьСоответствиеОбъектаИРеквизитаФормы(). Сделать это можно следующим образом:
Код 1C v 8.3 &НаСервере
Процедура ПроцедураВызываемаяСКлиента(ОбъектДанных) = ДанныеФормыВЗначение( Объект, Тип( "ДокументОбъект.ПоступлениеТМЦ" ) ) ;
УстановитьСоответствиеОбъектаИРеквизитаФормы( Документ, "Объект" ) ;
ДействиеСОбъектом( Документ) ;
КонецПроцедуры В данном фрагменте выполняется преобразование объекта из данных формы в реальный объект и устанавливается его соответствие с реквизитом формы по имени "Объект".
Если в дальнейшем требуется создать сообщение, можно сделать это следующим образом:
Код 1C v 8.3 &НаСервере
Процедура ДействиеСОбъектом(ОбъектДанных) = Новый СообщениеПользователю( ) ;
Сообщение. Текст = "В строке 11 табличной части "" Номенклатура"" не хватает " +
НедостающееКоличество + " " + ЕдиницаИзмеренияНоменклатуры;
Сообщение. Поле = "Номенклатура[10].Количество" ;
Сообщение. УстановитьДанные( ОбъектДанных) ;
Сообщение. Сообщить( ) ;
КонецПроцедуры ; В этом фрагменте создается новый объект СообщениеПользователю, в котором запоминается Текст сообщения и указывается Поле объекта, ошибка в данных которого вызвала необходимость вывода сообщения. Информация о том, как объект расположен в форме берется из предварительно запомненной пары "Объект/ИмяРеквизитаФормы". В дальнейшем сообщение будет выведено в окно сообщений формы и привязано к соответствующему элементу управления.
Примеры заполнения свойства Поле объекта СообщениеПользователю ТипШаблонПример
Реквизит ИмяРеквизита Контрагент Табличная часть ИмяТабличнойЧасти Скидки Реквизит табличной части ИмяТабличнойЧасти[ИндексСтроки].ИмяРеквизита Номенклатура[10].Количество Реквизит набора записей [ИндексСтроки].ИмяРеквизита [10].Курс
Еще примеры:
Код 1C v 8.3 &НаКлиенте
Процедура ДействиеСОбъектомНаКлиенте(ОбъектДанных) = Новый СообщениеПользователю( ) ;
Сообщение. Текст = "В строке 11 табличной части "" Номенклатура"" не хватает " +
НедостающееКоличество + " " + ЕдиницаИзмеренияНоменклатуры;
Сообщение. Поле = "Номенклатура[10].Количество" ;
Сообщение. КлючДанных = ОбъектДанных. Ссылка;
Сообщение. ПутьКДанным = "Объект" ;
Сообщение. Сообщить( ) ;
КонецПроцедуры ;
&НаСервере
Процедура Сообщить4НаСервере() 4 = новый СообщениеПользователю;
Сообщение4 . УстановитьДанные( РеквизитФормыВЗначение( "Объект" ) ) ;
Сообщение4 . Текст = "4. Сообщение привязанное к реквизиту шапки Организация" ;
Сообщение4 . Поле = "Организация" ;
Сообщение4 . Сообщить( ) ;
КонецПроцедуры
Сообщение = Новый СообщениеПользователю;
Сообщение. Поле = "Комментарий" ;
Сообщение. Текст = "Заполните комментарий" ;
Сообщение. Сообщить( ) ;
Сообщение = Новый СообщениеПользователю;
Сообщение. Поле = "Товары[0].Количество" ;
Сообщение. Текст = "Не заполнено количество товара в первой строке!" ;
Сообщение. УстановитьДанные( ЭтотОбъект) ;
Сообщение. Сообщить( ) ;
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( “Текст ошибки”,
ЭтотОбъект,
"Договор" , ,
Отказ) ;
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( НСтр( "ru = 'Дублирование пременной'" ) , ,
"Запросы[" + ИдентификаторСтроки+ "].ИмяПеременнойЗапроса" ,
"Объект" , Отказ) ;
ПоказатьОповещениеПользователя - оповещение возникает в правом нижнем углу приложения и сообщает о совершенном действии. В течение нескольких секунд оно постепенно гаснет и пропадает. При этом, если навести на оповещение курсор мышки, оно не гаснет, и есть возможность внимательно его прочитать:
Код 1C v 8.3 ПоказатьОповещениеПользователя( НСтр( "ru = 'Выполнение:'" ) , ПолучитьНавигационнуюСсылку( Объект) , "Выгрузка завершена, все ОК!" , БиблиотекаКартинок. ПолнотекстовыйПоискДалее) ; Код 1C v 8.3 &НаКлиенте
Процедура ПриОткрытии(Отказ) Если ПолучитьДатуЗапретаРедактирования( ) > = Объект. Дата Тогда
НавигационнаяСсылка = ПолучитьНавигационнуюСсылку( Объект. Ссылка) ;
ПоказатьОповещениеПользователя( "Только просмотр!" ,
НавигационнаяСсылка,
"Разрешен только просмотр документа!" ) ;
КонецЕсли ;
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПолучитьДатуЗапретаРедактирования() = Новый Запрос;
Запрос. Текст = "ВЫБРАТЬ
| Константы.ДатаЗапретаРедактирования
|ИЗ
| Константы КАК Константы" ;
РезультатЗапроса = Запрос. Выполнить( ) ;
Возврат РезультатЗапроса. Выгрузить( ) [0 ]. ДатаЗапретаРедактирования;
КонецФункции Категория:
Работа с Формой (Диалог) и её элементами Сообщение пользователю с привязкой текста к полю из контекста клиента в форме СообщениеПользователю Частенько нужно сообщить пользователю какую-то информацию, раньше использовали Сообщить() или
Для вывода информации пользователю начиная с версии 1С:Предприятия 8.2 существует специальный механизм сообщений. В этом механизме используется объект встроенного языка СообщениеПользователю . Предполагается, что сообщения выводятся для того, чтобы сообщить пользователю об ошибках. А для информирования о выполняемом действии рекомендуется использовать метод встроенного языка ПоказатьОповещениеПользователя() .
Код 1C v 8.3 Сообщение = Новый СообщениеПользователю( ) ;
Сообщение. Текст = "Комментарий не указан" ;
Сообщение. Поле = "КомментарийКЗадаче" ;
Сообщение. УстановитьДанные( Объект) ;
Сообщение. Сообщить( ) ;
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( “Текст ошибки”,
ЭтотОбъект,
"Договор" , ,
Отказ) ;
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( НСтр( "ru = 'Дублирование пременной'" ) , ,
"Запросы[" + ИдентификаторСтроки+ "].ИмяПеременнойЗапроса" ,
"Объект" , Отказ) ; Пока управление не передано обратно на клиента, можно получить массив сообщений методом глобального контекста ПолучитьСообщенияПользователю().
еще примеры:
Код 1C v 8.3 // Сообщение.КлючДанных = Ссылка на объект базы или ключ записи
// Сообщение.ПутьКДанным = содержит путь в форме до объекта.
// показываем сообщение из обработки
// КлючДанных и ПутьКДанным - пустые
Сообщение = Новый СообщениеПользователю;
Сообщение.Поле = "Комментарий";
Сообщение.Текст = "Заполните комментарий";
Сообщение.Сообщить();
// показываем сообщение из документа
// КлючДанных - пустой, ПутьКДанным заполнится автоматически
Сообщение = Новый СообщениеПользователю;
Сообщение.Поле = "Товары[0].Количество";
Сообщение.Текст = "Не заполнено количество товара в первой строке!";
Сообщение.УстановитьДанные(ЭтотОбъект);
Сообщение.Сообщить();
Категория:
Встроенные Функции Конвертация экселя в картику
На листе екселя есть картинки, надписи в произвольной форме. Как это чудище с конвертировать в картинку. Нашел процедуру
ФайлПрограммы = НовыйФайл("C:\Program Files\Bullzip\PDF Printer\gs\gswin32c.exe");
Если Не ФайлПрограммы.Существует() Тогда ТекстСообщения = "Не установлена программа - Bullzip"; ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
Возврат "";
КонецЕсли;
ИмяКартинки = "Проба";
ПринтерPDF.SetValue("output", "D:\" +ИмяКартинки + ".jpg");
ПринтерPDF.SetValue("ShowSaveAS", "never");
ПринтерPDF.SetValue("ShowProgress", "no");
ПринтерPDF.SetValue("ShowProgressFinished", "no");
ПринтерPDF.SetValue("ShowSettings", "never");
ПринтерPDF.SetValue("ShowPDF", "no");
ПринтерPDF.SetValue("ConfirmOverwrite","no");
ПринтерPDF.SetValue("Device","jpeg");
ПринтерPDF.WriteSettings();
НастройкиПечатиОриентация= 1;// 1 - портерт, 2 - ландшафт.
НастройкиПечатиМасштаб= 100;// масштаб в процентах.
НастройкиПечатиРазложитьПоКопиям = 1;// 0 - не разбирать по копиям, 1 - разобрать по копиям.
НастройкиПечатиПолеЛев= 10;
НастройкиПечатиПолеПрав= 10;
НастройкиПечатиПолеВерх= 10;
НастройкиПечатиПолеНиз= 10;
НастройкиПечатиКолонтитулВерх= 0;
НастройкиПечатиКолонтитулНиз= 0;
НастройкиПечатиАвтомасштабПоШирине = 1;// 1 - включить, 0 - выключить.
НастройкиПечатиЧерноБелаяПечать = 0;// 1 - включить, 0 - выключить.
НастройкиПечатиИмяПринтера = "Bullzip PDF Printer";// Имя принтера в ОС
Таб.ПараметрыСтраницы(НастройкиПечатиОриентация, НастройкиПечатиМасштаб, НастройкиПечатиРазложитьПоКопиям,
НастройкиПечатиПолеЛев, НастройкиПечатиПолеПрав, НастройкиПечатиПолеВерх, НастройкиПечатиПолеНиз,
НастройкиПечатиКолонтитулВерх, НастройкиПечатиКолонтитулНиз, НастройкиПечатиАвтомасштабПоШирине,
НастройкиПечатиЧерноБелаяПечать, НастройкиПечатиИмяПринтера);
Таб.КоличествоЭкземпляров(1);
Таб.Напечатать(0);
Но есть вопрос? Как перетащить лист экселя в Таб? Нашел много способов и на этом форуме но перетаскиваются только текстовые данные, а мне нужно все.
Категория:
Работа с Microsoft Office и OpenOffice Обмен между базами через XML (создается ФабрикаXDTO) В процедурах выгрузки/загрузки создается ФабрикаXDTO из схемы, которая хранится в макете как файл. Файл настроек схемы надо использовать один и тот же в обработках Загрузки/Выгрузки
Из Фабрики создается объект, его заполняю выгружаемыми данными
Фабрику сохраняю в XML. В процедуре загрузки из читаю фабрику из XML и пробегаю по объектам
Очень удобно!
Код 1C v 8.х Функция СоздатьФайлСхемы() = Новый Файл( КаталогВременныхФайлов( ) + "schema.xsd" ) ;
Если ФайлСхемы. Существует( ) Тогда
УдалитьФайлы( ФайлСхемы. ПолноеИмя) ;
КонецЕсли ;
Ссылка = ПолучитьМакет( "schema_xsd" ) ;
Ссылка. Записать( ФайлСхемы. ПолноеИмя) ;
Возврат ФайлСхемы. ПолноеИмя;
КонецФункции
Функция ВыгрузитьДокументы() = Новый Массив( ) ;
ФайлыXSD. Добавить( СоздатьФайлСхемы( ) ) ;
Фабрика = СоздатьФабрикуXDTO( ФайлыXSD) ;
ФайлОбмена = Фабрика. Создать( Фабрика. Тип( "http://anton.fly7.ru" , "ФайлОбмена" ) ) ;
Пока Выборка. Следующий( ) Цикл
Документ = Фабрика. Создать( Фабрика. Тип( "http://anton.fly7.ru" , "Документ" ) ) ;
Документ. ID = Строка( Док. УникальныйИдентификатор( ) ) ;
Документ. ВидДокумента = Док. Метаданные( ) . Имя;
Документ. Дата = Док. Дата;
Документ. Номер = Док. Номер;
Документ. Статус = ? ( Док. Проведен, "Проведен" , ? ( Док. ПометкаУдаления, "ПометкаУдаления" , "НеПроведен" ) ) ;
Документ. Комментарий = Док. Комментарий;
КонецЦикла
ПараметрыЗаписиXML = Новый ПараметрыЗаписиXML( "UTF-8" , "1.0" , Ложь ) ;
МойXML = Новый ЗаписьXML;
МойXML. ОткрытьФайл( ИмяФайла, ПараметрыЗаписиXML) ;
МойXML. ЗаписатьОбъявлениеXML( ) ;
Фабрика. ЗаписатьXML( МойXML, ФайлОбмена) ;
МойXML. Закрыть( ) ;
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( "Создан файл обмена " + ИмяФайла) ;
КонецФункции
Процедура ЗагрузитьДокументы() = Новый Массив( ) ;
ФайлыXSD. Добавить( СоздатьФайлСхемы( ) ) ;
Фабрика = СоздатьФабрикуXDTO( ФайлыXSD) ;
ФайлОбмена = Фабрика. Создать( Фабрика. Тип( "http://anton.fly7.ru" , "ФайлОбмена" ) ) ;
ОбменXML = Новый ЧтениеXML;
ОбменXML. ОткрытьФайл( ИмяФайла) ;
ФайлОбмена = Фабрика. ПрочитатьXML( ОбменXML, Фабрика. Тип( "http://anton.fly7.ru" , "ФайлОбмена" ) ) ;
Для Каждого Документ Из ФайлОбмена. Документ Цикл
ОбработкаПрерыванияПользователя( ) ;
Если Документ. ВидДокумента = "ПоступлениеТоваров" И
ЗначениеЗаполнено( Поставщик) И
Документ. Контрагент. ИНН Поставщик. ИНН Тогда
КонецЕсли ;
КонецЦикла
ФайлОбмена = "" ;
ОбменXML. Закрыть( ) ;
УдалитьФайлы( ИмяФайла) ;
КонецПроцедуры
Файл схемы примерно такой (разукрашка съела скобки, но смысл должен быть понятен ))
Код xs:schema xmlns:tns="http://anton.fly7.ru" xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="http://anton.fly7.ru" attributeFormDefault="unqualified" elementFormDefault="qualified">
Автор:
Абазин Антон Категория:
WEB-сервисы, WS-ссылки, XDTO-пакеты Подключение к web-сервису и получение от него описание типа Подключается к 1с82 web-сервису, получает от него описание типа
Создает переменную этого типа, Создает файл (dbf обмена).
Помещает файл в переменную и отдает на web-сервис для обработки, получает от него результат обработки
Код 1C v 8.х Определение = Новый WSОпределения( Server, User, Pass) ;
Прокси = Новый WSПрокси( Определение, "http://www.anton.fly7.ru" , "Obmen" , "ObmenSoap" ) ;
Прокси. Пользователь = User;
Прокси. Пароль = Pass;
Тип = Прокси. ФабрикаXDTO. Тип( "http://www.anton.fly7.ru" , "ФайлОбмена" ) ;
ФайлОбмена = Прокси. ФабрикаXDTO. Создать( Тип) ;
Файл = Новый Файл( КаталогВременныхФайлов( ) + "dat.dbf" ) ; i= 1 ;
Пока Файл. Существует( ) Цикл
Файл = Новый Файл( КаталогВременныхФайлов( ) + "dat" + i + ".dbf" ) ;
i= i+ 1 ;
КонецЦикла ;
ДБ = Новый XBase;
ЗаполнитьПоляДБ( ДБ, ТабСвойств) ;
ДБ. СоздатьФайл( Файл. ПолноеИмя) ;
ДБ. АвтоСохранение = Истина ;
ДБ. Добавить( ) ;
ДБ. Artik = Номенклатура. Артикул;
ДБ. Name = Строка( Номенклатура) ;
ДБ. NomGrup = Строка( Номенклатура. ТипНоменклатуры) ;
ДБ. VidNom = Строка( Номенклатура. ВидНоменклатуры) ;
ДБ. Group = ПолучитьГруппу( Номенклатура) ;
ДБ. Strana = "" ;
ДБ. Pol = "" ;
ДБ. Записать( ) ;
ДБ. ЗакрытьФайл( ) ;
ФайлДвоичныеДанные = Новый ДвоичныеДанные( Файл. ПолноеИмя) ;
ФайлаХранилищеЗначения = Новый ХранилищеЗначения( ФайлДвоичныеДанные, Новый СжатиеДанных( 9 ) ) ;
ФайлОбмена. ТипФайла = 1 ;
ФайлОбмена. ИмяФайла = "data_" + СокрЛП( СсылкаНаОбъект. Номер) + ".dbf" ;
ФайлОбмена. Данные = ФайлаХранилищеЗначения. Получить( ) ;
УдалитьФайлы( Файл. ПолноеИмя) ;
Результат = Прокси. LoadDocs( ФайлОбмена) ;
Если ЗначениеЗаполнено( Результат) Тогда
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( Результат) ;
КонецЕсли ;
Автор:
Абазин Антон Категория:
WEB-сервисы, WS-ссылки, XDTO-пакеты 
Как показать сообщение пользователю? методы: СообщениеПользователю и ПоказатьОповещениеПользователя 
