Как показать сообщение пользователю? методы: СообщениеПользователю и ПоказатьОповещениеПользователя В 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 ]. ДатаЗапретаРедактирования;
КонецФункции Категория:
Работа с Формой (Диалог) и её элементами Использование синхронных методов на клиенте запрещено Адаптировала обработку под интерфейс Такси Бухгалтерии 3, и получила ошибку:
Ошибка при вызове метода контекста (Выбрать)
Если ДиалогОткрытияФайла.Выбрать() Тогда
по причине:
Использование синхронных методов на клиенте запрещено!
Это вызвано тем, что Использование модальных окон запрещено!
Решение:
Нужно использовать создание объекта «ОписанияОповещения » и вызов другого метода диалога Показать()
Вот пример кода с ошибкой:
Код 1C v 8.2 УП &НаКлиенте
Процедура Выгрузить(Команда) = Новый ДиалогВыбораФайла( РежимДиалогаВыбораФайла. Сохранение) ;
Диалог. Заголовок = "Сохранить в файл" ;
Диалог. Фильтр = "Файл ТЧ документа (*.ftd)|*.ftd|Все файлы (*.*)|*.*" ;
Диалог. ПолноеИмяФайла = "Выгрузка_" + Строка( Документ. Номер) ;
Если Диалог. Выбрать( ) Тогда
ЗначениеВФайл( Диалог. ПолноеИмяФайла, ТПТЧ) ;
КонецЕсли ;
КонецПроцедуры Исправленный код:
Код 1C v 8.3 &НаКлиенте
Процедура Выгрузить(Команда) = Новый ДиалогВыбораФайла( РежимДиалогаВыбораФайла. Сохранение) ;
Диалог. Заголовок = "Сохранить в файл" ;
Диалог. Фильтр = "Файл ТЧ документа (*.ftd)|*.ftd|Все файлы (*.*)|*.*" ;
Диалог. ПолноеИмяФайла = "Выгрузка_" + Строка( ВернутьНомерОснования( Объект. Основание) ) ;
Диалог. Показать( Новый ОписаниеОповещения( "ВыгрузитьЗавершение" , ЭтаФорма, Новый Структура( "Диалог" , Диалог) ) ) ;
КонецПроцедуры
&НаКлиенте
Процедура ВыгрузитьЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт = ДополнительныеПараметры. Диалог;
Если ( ВыбранныеФайлы < > Неопределено ) Тогда
ВыгрузитьСервер( Диалог. ПолноеИмяФайла) ;
КонецЕсли ;
КонецПроцедуры
&НаСервере
Процедура ВыгрузитьСервер(ПолнИмяФайла) ( ПолнИмяФайла, ЭтаФорма. ТЗ. Выгрузить( ) ) ;
КонецПроцедуры Категория:
Системные Ошибки Функции сохранения таблицы значений в файл и чтения из файла В данном примере хочу привести несколько универсальных функций по выгрузке таблицы значений в файл и дальнейшего чтения из файла:
П орядок программных действий при выгрузке в файл выглядит так:
Подготавливаем таблицу значений (выгружаем из табличной части, выбираем колонки); Конвертируем таблицу значений в табличный документ; Сохраняем табличный документ в MXL.
При загрузке таблицы порядок действий такой:
Читаем из файла табличный документ; Конвертируем табличный документ в таблицу значений; Используем эту таблицу значений в своих целях (загружаем в табличную часть).
Соответственно файл для хранения данных таблицы имеет расширение *.mxl.
Основные функции для реализации поставленной задачи следующие:
ПреобразоватьТДвТЗ – Функция преобразования табличного документа в таблицу значений.
ПреобразоватьТЗвТД – Функция обратного преобразования таблицы значений в табличный документ.
ПрочитатьТЗИзMXL – Читает из файла данные, определяет колонки таблицы и преобразует эти данные в таблицу значений.
ЗаписатьТЗВMXL – Преобразует таблицу значений в табличный документ и записывает его в файл.
Код 1C v 8.3
Функция ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, Знач КонецСтрока = Неопределено, Знач КонецСтолбец = Неопределено) Экспорт Если НачалоСтрока = Неопределено И НачалоСтолбец = Неопределено Тогда
НачалоСтрока = 1 ;
НачалоСтолбец = 1 ;
КонецЕсли ;
Если НачалоСтрока = Неопределено Тогда
НачалоСтрока = 1 ;
Пока НЕ ТабДок. Область( НачалоСтрока, НачалоСтолбец) . СодержитЗначение
И НачалоСтрока < ТабДок. ВысотаТаблицы
Цикл
НачалоСтрока = НачалоСтрока + 1 ;
КонецЦикла ;
ИначеЕсли НачалоСтолбец = Неопределено Тогда
НачалоСтолбец = 1 ;
Пока НЕ ТабДок. Область( НачалоСтрока, НачалоСтолбец) . СодержитЗначение
И НачалоСтолбец < ТабДок. ШиринаТаблицы
Цикл
НачалоСтолбец = НачалоСтолбец + 1 ;
КонецЦикла ;
КонецЕсли ;
КонецСтрока = ? ( КонецСтрока = Неопределено , ТабДок. ВысотаТаблицы, КонецСтрока) ;
КонецСтолбец = ? ( КонецСтолбец = Неопределено , ТабДок. ШиринаТаблицы, КонецСтолбец) ;
ЭтоТаблица = ( ТипЗнч( СтруктураКолонок) = Тип( "ТаблицаЗначений" ) ) ;
ТабЗначений = ПолучитьТаблицуВывода( СтруктураКолонок) ;
Для ИндексСтроки = НачалоСтрока По КонецСтрока Цикл
СтрокаТЗ = ТабЗначений. Добавить( ) ;
ИндексКолонки = НачалоСтолбец;
Для Каждого Колонка Из СтруктураКолонок Цикл
НаименованиеКолонки = ? ( ЭтоТаблица, Колонка. Наименование, Колонка. Ключ) ;
пИндексКолонки = ? ( ЭтоТаблица, Колонка. СтолбецОтчёт, ИндексКолонки) ;
Если ТабДок. Область( ИндексСтроки, пИндексКолонки) . СодержитЗначение Тогда
СтрокаТЗ[НаименованиеКолонки] = ТабДок. Область( ИндексСтроки, пИндексКолонки) . Значение;
Иначе
СтрокаТЗ[НаименованиеКолонки] = ТабДок. Область( ИндексСтроки, пИндексКолонки) . Текст;
КонецЕсли ;
ИндексКолонки = ИндексКолонки + 1 ;
КонецЦикла ;
КонецЦикла ;
Возврат ТабЗначений;
КонецФункции ;
Функция ПреобразоватьТЗвТД(ТабЗначений, ТабДок = Неопределено, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, ВыводитьЗаголовки = Ложь) Экспорт Если ТабДок = Неопределено Тогда
ТабДок = Новый ТабличныйДокумент;
КонецЕсли ;
НачалоСтрока = ? ( НачалоСтрока = Неопределено , 1 , НачалоСтрока) ;
НачалоСтолбец = ? ( НачалоСтолбец = Неопределено , 1 , НачалоСтолбец) ;
ИндексСтроки = НачалоСтрока;
Если ВыводитьЗаголовки Тогда
ИндексКолонки = НачалоСтолбец;
Для Каждого Колонка Из ТабЗначений. Колонки Цикл
ТабДок. Область( ИндексСтроки, ИндексКолонки) . Текст = ? ( ПустаяСтрока( Колонка. Заголовок) , Колонка. Имя, Колонка. Заголовок) ;
ИндексКолонки = ИндексКолонки + 1 ;
КонецЦикла ;
ИндексСтроки = ИндексСтроки + 1 ;
КонецЕсли ;
Для Каждого Элемент Из ТабЗначений Цикл
ИндексКолонки = НачалоСтолбец;
Для Каждого Колонка Из ТабЗначений. Колонки Цикл
ТабДок. Область( ИндексСтроки, ИндексКолонки) . СодержитЗначение = Истина ;
ТабДок. Область( ИндексСтроки, ИндексКолонки) . ТипЗначения = Новый ОписаниеТипов( Колонка. ТипЗначения) ;
ТабДок. Область( ИндексСтроки, ИндексКолонки) . Значение = Элемент[Колонка. Имя];
ИндексКолонки = ИндексКолонки + 1 ;
КонецЦикла ;
ИндексСтроки = ИндексСтроки + 1 ;
КонецЦикла ;
Возврат ТабДок;
КонецФункции ;
Функция ПрочитатьТЗИзMXL(ИмяФайла, СтруктураКолонок = Неопределено, ЕстьЗаголовок = Истина) Экспорт = Новый ТабличныйДокумент;
ТабДок. Прочитать( ИмяФайла) ;
Если СтруктураКолонок = Неопределено И ЕстьЗаголовок Тогда
СтруктураКолонок = Новый Структура;
Для ИндексКолонки = 1 По ТабДок. ШиринаТаблицы Цикл
Обл1 = ТабДок. Область( 1 , ИндексКолонки) ;
Обл2 = ТабДок. Область( 2 , ИндексКолонки) ;
ИмяКолонки = СокрЛП( Обл1 . Текст) ;
ИмяКолонки = ? ( Найти( ИмяКолонки, " " ) > 0 , СтрЗаменить( ТРег( ИмяКолонки) , " " , "" ) , ИмяКолонки) ;
СтруктураКолонок. Вставить( ИмяКолонки, ? ( Обл2 . СодержитЗначение, Обл2 . ТипЗначения, Новый ОписаниеТипов) ) ;
КонецЦикла ;
ИначеЕсли СтруктураКолонок = Неопределено И НЕ ЕстьЗаголовок Тогда
СтруктураКолонок = Новый Структура;
Для ИндексКолонки = 1 По ТабДок. ШиринаТаблицы Цикл
Обл2 = ТабДок. Область( 1 , ИндексКолонки) ;
ИмяКолонки = "К" + Формат( ИндексКолонки, "ЧДЦ=0; ЧН=0; ЧГ=0" ) ;
СтруктураКолонок. Вставить( ИмяКолонки, ? ( Обл2 . СодержитЗначение, Обл2 . ТипЗначения, Новый ОписаниеТипов) ) ;
КонецЦикла ;
КонецЕсли ;
Таблица = ПреобразоватьТДвТЗ( ТабДок, СтруктураКолонок, ? ( ЕстьЗаголовок, 2 , 1 ) , 1 ) ;
Возврат Таблица;
КонецФункции ;
Процедура ЗаписатьТЗВMXL(ИмяФайла, ТабЗначений, ЕстьЗаголовок = Истина) Экспорт = ПреобразоватьТЗвТД( ТабЗначений, Неопределено , 1 , 1 , ЕстьЗаголовок) ;
ТабДок. Записать( ИмяФайла, ТипФайлаТабличногоДокумента. MXL) ;
КонецПроцедуры ; Еще небольшой набор функций для вывода таблицы значений в табличный документ. После формирования табличного документа, - сохраняем его в файл mxl.
Табличный документ можно сохранить a файлы следующих типов:
ANSITXT - Текстовый документ DOCX - документ MS Word HTML HTML 3HTML 4HTML 5MXL MXL7 ODS - Файл Open Office PDF - файл Acrobat Readr TXT - Текстовый документ XLS - файл Excel XLS95 - файл Excel95 XLS97 - файл Excel97 XLSX - файл Excel2010
Код 1C v 8.3
Функция ЗагрузитьТЗизФайла(ИмяФайла) = КаталогВременныхФайлов( ) + ИмяФайла;
Текст = Новый ЧтениеТекста( Путь, КодировкаТекста. UTF8) ;
стрТЗ = Текст. Прочитать( ) ;
Текст. Закрыть( ) ;
ТЗ = ЗначениеИзСтрокиВнутр( стрТЗ) ;
Возврат ТЗ;
КонецФункции
Функция ЗаписьТЗ2ТабДок(записьТЗ,НомерСтроки,ТабличныйДокумент) = 1 ;
Символ160 = Символ( 160 ) ;
Для каждого полеТЗ из ЗаписьТЗ цикл
типПоляТЗ = ТипЗнч( полеТЗ) ;
если типПоляТЗ = Тип( "Число" ) тогда
полеТЗ= Строка( полеТЗ) ;
полеТЗ= СтрЗаменить( полеТЗ, Символ160 , "" ) ;
полеТЗ= СтрЗаменить( полеТЗ, "," , "." ) ;
иначеесли типПоляТЗ = Тип( "Строка" ) тогда
иначе
полеТЗ = строка( полеТЗ) ;
КонецЕсли ;
имяОбласти = "R" + номерСтроки + "C" + НомерКолонки;
имяОбласти = СтрЗаменить( имяОбласти, Символ( 160 ) , "" ) ;
Ячейка = ТабличныйДокумент. Область( имяОбласти) ;
Ячейка. Текст = полеТЗ;
НомерКолонки = НомерКолонки + 1 ;
КонецЦикла ;
КонецФункции
Функция НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент) = 1 ;
номКолонки= 1 ;
ТабличныйДокумент = новый ТабличныйДокумент;
Для НомКол= 0 по ТаблицаЗначений. Колонки. Количество( ) - 1 Цикл
имяКолонки= ТаблицаЗначений. Колонки[НомКол]. Имя;
имяОбласти = "R" + номерСтроки + "C" + номКолонки;
имяОбласти = СтрЗаменить( имяОбласти, Символ( 160 ) , "" ) ;
Ячейка = ТабличныйДокумент. Область( имяОбласти) ;
Ячейка. Текст = имяКолонки;
ЖирныйШрифт = ? ( ЖирныйШрифт = Неопределено , Новый Шрифт( Ячейка. Шрифт, , , Истина ) , ЖирныйШрифт) ;
Ячейка. Шрифт = ЖирныйШрифт;
номКолонки = номКолонки + 1 ;
КонецЦикла ;
КонецФункции
Функция Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент) = 1 ;
Для каждого записьТЗ из ТаблицаЗначений Цикл
НомСтр = НомСтр + 1 ;
ЗаписьТЗ2 ТабДок( записьТЗ, НомСтр, ТабличныйДокумент) ;
КонецЦикла ;
КонецФункции
Функция ТаблицаЗначений2Mxl(ТаблицаЗначений,ФайлMxl) = новый ТабличныйДокумент;
НаимКолонок2 Mxl( ТаблицаЗначений, ТабличныйДокумент) ;
Таблица2 Mxl( ТаблицаЗначений, ТабличныйДокумент) ;
ТабличныйДокумент. Записать( ФайлMxl, ТипФайлаТабличногоДокумента. MXL) ;
ТабличныйДокумент. Показать( ФайлMxl, ФайлMxl) ;
Возврат 0 ;
КонецФункции
Функция Тест_ВыгрузитьТЗвMxl() ; = "мТЗИсходныеДанные.dat" ;
ТЗ = ЗагрузитьТЗизФайла( файл_мТЗИсходныеДанные) ;
ФайлMxl = КаталогВременныхФайлов( ) + СтрЗаменить( файл_мТЗИсходныеДанные, ".dat" , ".mxl" ) ;
ТаблицаЗначений2 Mxl( ТЗ, ФайлMxl) ;
КонецФункции
Тест_ВыгрузитьТЗвMxl( ) ; Пример выгруженной таблицы значений в файл:
Категория:
Работа с Таблицей Значений Фоновые задания: Пример запуска выполнения процедуры / функции на сервере Как в 1С производится запуск фоновых заданий, каким образом можно получить список заданий при помощи метода "ПолучитьФоновыеЗадания()?
В одном проекте понадобилось запускать выполнение выгрузки на сайт с сервера.
Пользователь на своем клиенте открывает обработку, устанавливает параметры и нажимает выгрузить.
Выгрузка идет не с компьютера клиента, а создается фоновое задание на сервере!
На клиенте в модуле Кнопки Выгрузить:
Код 1C v 8.3 Процедура КоманднаяПанель1ВыгрузитьНаСайт(Кнопка) = Новый Массив;
ПараметрыФоновогоЗадания. Добавить( Группа) ;
ФоновыеЗадания. Выполнить( "МодульРегламентныхЗаданий.ВыгрузкаПрайсаНАФТП" ,
ПараметрыФоновогоЗадания, Новый УникальныйИдентификатор,
"Выгрузка прайса на сайт" ) ;
ПоказатьОповещениеПользователя( "Выгрузка прайса на сайт" , , "Запущено задание выгрузки прайса на сайт, проверьте данные на сайте через 2-3 минуты..." , БиблиотекаКартинок. Информация32 ) ;
ПараметрыФоновогоЗадания - это переменные функции, они задаются по порядку как определены в вызываемой функции.
На сервере в общем модуле МодульРегламентныхЗаданий:
Код 1C v 8.3 Процедура ВыгрузкаПрайсаНАФТП(Группа) Экспорт html /p"; Как Получить фоновые задания?
Напишем в процедуре обработки нажания следующий код:
Код 1C v 8.2 УП &НаКлиенте
Процедура ПолучитьФоновыеЗадания(Команда) ( ) ;
КонецПроцедуры Текст процедуры на сервере:
Код 1C v 8.2 УП &НаСервере
Процедура ПолучитьФоновыеЗаданияНаСервере() = Новый Структура( "Наименование" , "Тестовое задание" ) ;
СписокФоновыхЗаданий = ФоновыеЗадания. ПолучитьФоновыеЗадания( ПараметрыОтбора) ;
Для каждого Задание Из СписокФоновыхЗаданий Цикл
Сообщить( Задание. Наименование) ;
КонецЦикла ;
КонецПроцедуры В окно сообщений выведутся наименования выполняющихся и выполненных в 1С фоновых заданий с наименованием "Тестовое задание", так как мы сделали отбор именно по этому наименованию.
Категория:
Регламентные задания, Фоновые задания Неправильно рассчитывает номер недели в году, функция корректного расчета Для определения номера недели в конфигурациях 1С обычно используется стандартная функция НеделяГода().
Например 17 октября 2016 года:
НеделяГода() возвращает 43 , а по обычному календарю это 42:
Судя по всему, 1С считает по американской системе. "По европейской норме (DIN 1355 / ISO 8601) первой неделей года считается неделя, содержащая 4 января данного года (http://vsegost.com/Catalog/62/6263.shtml ) . А в США первой неделей считается любая неделя, содержащая первое января, независимо от числа дней".
Чтобы 1С возвращала номер недели, совпадающий с "человеческими" календарями и ежедневниками, предлагается использовать следующую функцию:
Код 1C v 8.х Функция НеделяГодаПоISO8601(Знач Дата, Год=Неопределено) Экспорт Если ДеньНедели( НачалоГода( Дата) ) < = 4 тогда
Год = Год( Дата) ;
Неделя = НеделяГода( Дата) ;
Возврат Неделя;
Иначе
Неделя = НеделяГода( Дата) - 1 ;
Если Неделя = 0 тогда
Неделя = НеделяГодаПоISO8601( НачалоГода( Дата) - 1 , Год) ;
Иначе
Год = Год( Дата) ;
КонецЕсли ;
КонецЕсли ;
Возврат Неделя;
КонецФункции
Функция НеделяГода_ISO8601(Дата) = НеделяГода( Дата( Год( Дата) , 1 , 4 ) ) - 1 ;
Результат = НеделяГода( Дата) - Корректировочная;
Результат = ? ( Результат = 0 , НеделяГода_ISO8601( ДобавитьМесяц( КонецГода( Дата) , - 12 ) ) , Результат) ;
Возврат Результат;
КонецФункции Категория:
Работа с Датами (Временем) Функция разбора (разложения) строки в массив, аналог СтрРазделить Код 1C v 8.х Функция РазложитьСтрокуВМассивПодстрок(Знач Строка, Знач Разделитель = "," ,
Знач ПропускатьПустыеСтроки = Неопределено) = Новый Массив;
Если ПропускатьПустыеСтроки = Неопределено Тогда
ПропускатьПустыеСтроки = ? ( Разделитель = " " , Истина , Ложь ) ;
Если ПустаяСтрока( Строка) Тогда
Если Разделитель = " " Тогда
Результат. Добавить( "" ) ;
КонецЕсли ;
Возврат Результат;
КонецЕсли ;
КонецЕсли ;
Позиция = Найти( Строка, Разделитель) ;
Пока Позиция > 0 Цикл
Подстрока = Лев( Строка, Позиция - 1 ) ;
Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока( Подстрока) Тогда
Результат. Добавить( Подстрока) ;
КонецЕсли ;
Строка = Сред( Строка, Позиция + СтрДлина( Разделитель) ) ;
Позиция = Найти( Строка, Разделитель) ;
КонецЦикла ;
Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока( Строка) Тогда
Результат. Добавить( Строка) ;
КонецЕсли ;
Возврат Результат;
КонецФункции Источник
зы: админ, вот искал аналог СтрРазделить с игнорированием пустых строк - не нашел,зато нашел много дублей: https://helpf.pro/faq/view/504.html https://helpf.pro/faq/view/171.html https://helpf.pro/faq/view/351.html
, объедини пожалуйста.
зыы: кнопкой вставки ссылки невозможно пользоваться, ну что за извращенство с подменю, сделай одинарной как везде.
Категория:
Работа с Текстом (Строкой) Как установить HTTP соединение через прокси (proxy) сервер В этом посте я покажу несколько примеров HTTP соединения используя прокси сервера:
Общий пример установки параметров прокси:
Код 1C v 8.х
Соединение = Новый HTTPСоединение( "www.mysite.ru" ) ;
Соединение = Новый HTTPСоединение( "www.mysite.ru" , 8080 ) ;
ПроксиСервер = Новый интернетПрокси;
ПроксиСервер. Пользователь = имяПользователя;
ПроксиСервер. Пароль = парольПользователя;
Соединение = Новый HTTPСоединение( "www.mysite.ru" , , , , ПроксиСервер, Истина ) ; Пример загрузки файла
Код 1C v 8.х // Укажем настройки прокси-сервераhtml ";Вот пример загрузки файла
Код 1C v 8.х //Создаем Файл для отправкиHTML = КаталогВременныхФайлов() + “My1cV8bNdr”;HTML = Новый ЗаписьТекста(ИмяФайлаHTML , КодировкаТекста.ANSI);HTML .ЗаписатьСтроку(”–My1cV8bNdr”);HTML .ЗаписатьСтроку(”content-disposition: form-data; name=”"userfile”"; filename=”"test.htm”"”);HTML .ЗаписатьСтроку(”Content-Type: text/html ”);HTML .ЗаписатьСтроку(”");HTML .ЗаписатьСтроку(”Дальше вставляем html код.”);HTML .ЗаписатьСтроку(”–My1cV8bNdr–”);HTML .Закрыть();HTML , “/upload.php”, КаталогВременныхФайлов() + “result.htm”, ЗаголовокHTTP); Категория:
Работа с Интернет, Почтой (Mail), FTP Google maps : вывод точек на карту и режим панорамы В отличие от яндекс карт в GMaps можно использовать панорамы - за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают!
Для клиента нужно было сделать вывод объектов на карту
С возможностью просмотра панорамы:
Основной HTML код карты хранится в макете:
Код VBS <!DOCTYPE html >html >html ; charset=utf-8"/>html { height: 100% }HTML = '<b>Трафик</b>';html > Код вывода карты:
Код 1C v 8.х Процедура ИнициализироватьКарту()html ";HTML -документа, но не вызывает никакого события в 1с-ке Вырванная из конфигурации обработка GMaps.rar
Можно ее использовать как макет для создания обработки под свои требования.
Пример автоматизации в котором это использовалось.
Категория:
Географическая схема Яндекс карта : вывод точек на карту Пример о том,как вывести яндекс карту на форму и далее работать с ней:
Основной HTML код карты хранится в макете:
Код VBS <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml 1/DTD/xhtml 1-transitional.dtd"> html xmlns="http://www.w3.org/1999/xhtml "> html ; charset=utf-8" />html > Код вывода карты:
Код 1C v 8.х //берем HTML -текст из макета и доделываем егоHTML -документа Пример обратного геокодирования - получение координат по адресу:
Код 1C v 8.х Процедура ПолучитьКоординаты() Экспорт = Новый HTTPСоединение( "geocode-maps.yandex.ru" , , , , , Истина ) ;
ВременныйФайл = КаталогВременныхФайлов( ) + "Yandex_geocode_" + СокрЛП( Новый УникальныйИдентификатор) ;
Попытка
Яндекс. Получить( "/1.x/?geocode=" + Адрес + "&results=1" , ВременныйФайл) ;
Исключение
Сообщить( "Ошибка при попытке геокодировать по яндексу адрес: " + Адрес) ;
Сообщить( ОписаниеОшибки( ) ) ;
Возврат ;
КонецПопытки ;
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML. ОткрытьФайл( ВременныйФайл) ;
ПостроительDOM = Новый ПостроительDOM;
ДокументДОМ = ПостроительDOM. Прочитать( ЧтениеXML) ;
СписокText = ДокументДОМ. ПолучитьЭлементыПоИмени( "text" ) ;
СписокPos = ДокументДОМ. ПолучитьЭлементыПоИмени( "pos" ) ;
Если ( СписокText. Количество( ) = 0 ) ИЛИ ( СписокPos. Количество( ) = 0 ) Тогда
Возврат ;
КонецЕсли ;
Для ъ = 0 по СписокText. Количество( ) - 1 Цикл
Координаты = СписокPos[Ъ]. ТекстовоеСодержимое;
Разделитель = Найти( Координаты, " " ) ;
Широта = Число( Сред( Координаты, Разделитель + 1 ) ) ;
Долгота = Число( Лев( Координаты, Разделитель - 1 ) ) ;
Если Широта = 0 ИЛИ Долгота = 0 Тогда
Продолжить;
КонецЕсли ;
КД = Долгота;
КШ = Широта;
КонецЦикла ;
КонецПроцедуры Обработка вырванная из конфигурации: YandexMap.rar
Можно ее использовать как макет для создания обработки под свои требования.
Пример автоматизации в котором это использовалось.
Категория:
Географическая схема Сообщение пользователю с привязкой текста к полю из контекста клиента в форме СообщениеПользователю Частенько нужно сообщить пользователю какую-то информацию, раньше использовали Сообщить() или
Для вывода информации пользователю начиная с версии 1С:Предприятия 8.2 существует специальный механизм сообщений. В этом механизме используется объект встроенного языка СообщениеПользователю . Предполагается, что сообщения выводятся для того, чтобы сообщить пользователю об ошибках. А для информирования о выполняемом действии рекомендуется использовать метод встроенного языка ПоказатьОповещениеПользователя() .
Код 1C v 8.3 Сообщение = Новый СообщениеПользователю( ) ;
Сообщение. Текст = "Комментарий не указан" ;
Сообщение. Поле = "КомментарийКЗадаче" ;
Сообщение. УстановитьДанные( Объект) ;
Сообщение. Сообщить( ) ;
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( “Текст ошибки”,
ЭтотОбъект,
"Договор" , ,
Отказ) ;
ОбщегоНазначенияКлиентСервер. СообщитьПользователю( НСтр( "ru = 'Дублирование пременной'" ) , ,
"Запросы[" + ИдентификаторСтроки+ "].ИмяПеременнойЗапроса" ,
"Объект" , Отказ) ; Пока управление не передано обратно на клиента, можно получить массив сообщений методом глобального контекста ПолучитьСообщенияПользователю().
еще примеры:
Код 1C v 8.3 // Сообщение.КлючДанных = Ссылка на объект базы или ключ записи
// Сообщение.ПутьКДанным = содержит путь в форме до объекта.
// показываем сообщение из обработки
// КлючДанных и ПутьКДанным - пустые
Сообщение = Новый СообщениеПользователю;
Сообщение.Поле = "Комментарий";
Сообщение.Текст = "Заполните комментарий";
Сообщение.Сообщить();
// показываем сообщение из документа
// КлючДанных - пустой, ПутьКДанным заполнится автоматически
Сообщение = Новый СообщениеПользователю;
Сообщение.Поле = "Товары[0].Количество";
Сообщение.Текст = "Не заполнено количество товара в первой строке!";
Сообщение.УстановитьДанные(ЭтотОбъект);
Сообщение.Сообщить();
Категория:
Встроенные Функции Публикация 1С на веб сервере apache / linux. Ошибка: wsap22.so: wrong ELF class: ELFCLASS32 На виртуальном сервере установлена CentOS 6.5 и сервер 1С 8.3 - все 64 бит.
Нужно опубликовать 1С на веб сервере , инструкция примерно такая:
1) Ставишь httpd.
2) Создаешь папки, где будут хранится конф. файлы, например /var/www/html /baza
3) Прописываешь базу штатной утилиткой:
* заходим в папку с 1с (для х32): cd /opt/1c/v8.2/i386
* ./webinst -apache22 -wsdir baza -dir '/var/www/html /baza/' -connStr 'Srvr="1c.mydomain.com";Ref="baza"' -confPath /etc/httpd/conf/httpd.conf
* проверям, что в созданном файлике /var/www/html /baza/default.vrd и нет лишних (двойных) "/" . У меня они каждый раз появлялись и каждый раз мне проще было их удалить чем вникать, где в команде я напортачил. (также стоит проверить /etc/httpd/conf/httpd.conf, база прописывается в самый конец конфига).
4) ставишь на папку права для пользователя apache: chown apache:apache /var/www/html /baza и перезагружаешь апач.
Вот, в общем то и все.
Делаем публикацию 1С на веб сервере:
Код Batch File (DOS, CMD, BAT) ./webinst -apache22 -wsdir base -dir '/var/www/html /base/' -connStr 'Srvr=5.101.113.142;Ref=tur;' -confPath /etc/httpd/conf/httpd.conf Публикация прошла успешно.
В файл httpd.conf добавляется
LoadModule _1cws_module "/opt/1C/v8.3/i386/wsap22.so"
# 1c publication
Alias "/base" "/var/www/html /base/"
<Directory "/var/www/html /base/">
AllowOverride All
Options None
Order allow,deny
Allow from all
SetHandler 1c-application
ManagedApplicationDescriptor "/var/www/html /base/default.vrd"
</Directory>
содержимое default.vrd
<?xml version="1.0" encoding="UTF-8"?>
xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
base="/base"
ib="Srvr=5.101.113.142;Ref=tur;"/>
Перезапускам Апач и apache2: Syntax error on line 202 of /etc/apache2/apache2.conf: Syntax error on line 1 of /etc/apache2/httpd.conf:
Cannot load /opt/1C/v8.3/i386/wsap22.so into server: /opt/1C/v8.2/i386/wsap22.so: wrong ELF class: ELFCLASS32
Т.е. ему не нравится вот это
LoadModule _1cws_module "/opt/1C/v8.2/i386/wsap22.so"
Выглядит это так:
Проблема в том, что 64-битный апач не хочет работать ( нужно заменить его на 32-битный!
Порядок действий такой:
1. Нужно подкорректировать файлы репозитария, чтобы он загружал 32-битные версии: Открываем /etc/yum.repos.d/, копируете эти файлы для архива и исправляете в текущих $basearch на i686.
2. чистим кэш так: yum clean all или в папке /var/cache/yum/
3. yum install httpd.i686
4. reboot
После перезапуска
./webinst -apache22 -wsdir base -dir '/var/www/html /base/' -connStr 'Srvr=5.101.113.142;Ref=tur;' -confPath /etc/httpd/conf/httpd.conf
Задаем владельца для файла default.vrd:
chown apache:apache /var/www/html /base/default.vrd
Перезагрузим сервера 1с и апач:
/etc/init.d/httpd restart
/etc/init.d/srv1cv82 restart
Еще раз перезагружаем
проверяем - Все будет ОК
Категория:
Linux: CentOS, Debian, Ubuntu, ALT и д.р Реквизит ~ Как сохранять и восстанавливать значения Объектов и Реквизитов на форме УП? У управляемой формы реквизиты заведенные как реквизиты формы, при закрытии и открытии ее заново могут сохраняться и восстанавливаться, достаточно только поставить напротив галочку сохранять и в свойствах формы выбрать "АвтоматическоеСохранениеДанныхВНастройках" - Использовать.
Подробнее в этой статье Как сохранять и восстанавливать значения реквизитов на форме? и там же пример для обычных форм.
А что же делать с реквизитами, которые выступают в роли реквизитов объектов ?
у них такой настройки нет
Код 1C v 8.3 &НаСервере
Процедура ВосстановитьНастройки() = "ЗагрузкаИЗPDF_All4CF.ru" ;
КлючНастроек = "ЗагрузкаИЗPDF_All4CF.ru" ;
ОписаниеНастроек = "ЗагрузкаИЗPDF_All4CF.ru" ;
ИмяПользователя = "" ;
ЗначениеНастроек = ХранилищеОбщихНастроек. Загрузить( КлючОбъекта, КлючНастроек, ОписаниеНастроек, ИмяПользователя) ;
Если ТипЗнч( ЗначениеНастроек) = Тип( "Соответствие" ) Тогда
Объект. Склад = ЗначениеНастроек. Получить( "Склад" ) ;
Объект. Организация = ЗначениеНастроек. Получить( "Организация" ) ;
Объект. ПутьКPDF2TXT = ЗначениеНастроек. Получить( "ПутьКPDF2TXT" ) ;
Объект. ПутьКPDF = ЗначениеНастроек. Получить( "ПутьКPDF" ) ;
КонецЕсли ;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ) ( ) ;
КонецПроцедуры
&НаСервере
Процедура СохранитьНастройки() = "ЗагрузкаИЗPDF_All4CF.ru" ;
КлючНастроек = "ЗагрузкаИЗPDF_All4CF.ru" ;
ОписаниеНастроек = "ЗагрузкаИЗPDF_All4CF.ru" ;
ИмяПользователя = "" ;
Настройки = Новый Соответствие;
Настройки. Вставить( "ПутьКPDF2TXT" , Объект. ПутьКPDF2TXT) ;
Настройки. Вставить( "ПутьКPDF" , Объект. ПутьКPDF) ;
Настройки. Вставить( "Склад" , Объект. Склад) ;
Настройки. Вставить( "Организация" , Объект. Организация) ;
ХранилищеОбщихНастроек. Сохранить( КлючОбъекта, КлючНастроек, Настройки, ОписаниеНастроек, ИмяПользователя) ;
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка) ( ) ;
КонецПроцедуры Открыв обработку и заполним поля закрываем ее, при следующем открытии все поля заполнены из сохраненных настроек:
Категория:
Работа с Формой (Диалог) и её элементами Как узнать текущие релизы 7.7 для Украины Код 1C v 7.x Html Tab, Строк, Р, НомСтроки, Таб, Версия, ДатаВремя; Html Tab = IE.Document.getElementsByTagName("table").item(4).rows(0).cells(4).childNodes.item(10);Html Tab.rows.length;Html Tab.rows(НомСтроки - 1); Категория:
HTML, JS, VML Веб браузер в 1С используя поле HTML документа Настраивал клиенту CRM, он захотел - чтобы панель управления сайтом была в 1С. Хочет - делаем:
Обработка Веб браузер проста, состоит из поля HTML документа и 20 строчек кода:
Код команд:
Код 1C v 8.3 &НаКлиентеHTML = Адрес;HTML .Назад(); HTML = Текст; Адрес = Текст; HTML ДокументСформирован(Элемент)Скачать обработку для 1С 8.3.7 : WebBrauzer.rar
Поле HTML документа - Это Internet Explorer в режиме совместимости IE7, и к сожалению, большинство сайтов уже ориентированы на современные браузеры и при открытии возникает ошибка:
Но у сайтов, владельцы которых позаботились о совместимости, все открывается без ошибок, например: этот https://helpf.pro или http://www.rbc.ru
Категория:
Работа с Интернет, Почтой (Mail), FTP Использование форматированного документа для создания описаний на сайте В 1С хранится номенклатура, которая в последствии выгружается на сайт.
Для каждой выгружаемой номенклатуры нужно указать описание! Но не обычный текст, а хорошо оформленный, со списками, курсив, выделение:
Реализовано следующим образом:
Реквизит объекта ОписаниеОсновное Реквизит формы фдОсновноеОписание
Код, который при изменении форматированного документа, помещает кусок HTML кода находящегося в BODY в реквизит ОписаниеОсновное:
Код 1C v 8.3 &НаКлиентеHTML (текТекст,Вложение); При открытии:
Код 1C v 8.3 &НаСервереHTML (Объект.ОписаниеОсновное,Новый Структура); Категория:
Форматированный документ 
Как показать сообщение пользователю? методы: СообщениеПользователю и ПоказатьОповещениеПользователя 
.gif)
нет - напишем:
