fk_ » Поиск » HelpF.pro

Результаты по ключевому слову: fk_

Как декодировать (преобразовать) Unicode в 1С

При разработке очередного обмена с интернет магазином через API столкнулисть что сайт возвращает ответ в виде:

Код VBS

 {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}

из кода ясно что это JSON и используя код ПрочитатьJSON

Код 1C v 8.3

 Чтение = Новый ЧтениеJSON;

	Чтение.УстановитьСтроку(стрВходящая);

	ДанныеЛога = ПрочитатьJSON(Чтение);

	Чтение.Закрыть();

В переменной ДанныеЛога будет структура в виде

В результате получилась функция с 2-мя вариантами возрата, в зависимости от того как нужно

Код 1C v 8.3

 //Функция читает полученный JSON декадируя текст юникод

Функция ДекодироватьUniCodeВJSON(стрВходящая) 

	// стрВходящая содержит {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}

	

	Чтение = Новый ЧтениеJSON;

	Чтение.УстановитьСтроку(стрВходящая);

	ДанныеЛога = ПрочитатьJSON(Чтение);

	Чтение.Закрыть();

	

	// Вариант 1 используя перебор структуры и вывод в текстовую переменную

	Текст = "";

	Для каждого Элемент Из ДанныеЛога Цикл

		//добавим разделитель после предыдущего значения

		Текст = Текст + ?(НЕ ПустаяСтрока(Текст), Символы.ПС, "");

		//добавим представление ключа и значения:

		Текст = Текст + Элемент.Ключ + " = " + Элемент.Значение;

	КонецЦикла;

	Возврат Текст; //Вернет   ok = true   description = Статус заказа изменен

	

	// Вариант 2 мспользуя ЗаписьJSON

	Запись = Новый ЗаписьJSON;    

	Запись.УстановитьСтроку(Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет));

	ЗаписатьJSON(Запись, ДанныеЛога,);

	Возврат Запись.Закрыть();  // Вернет JSON  {"ok":"true","description":"Статус заказа изменен"}

КонецФункции

На просторах интернета была найдена еще одна функция:

Код 1C v 8.3

 //Параметры: Строка в Юникод (обязательный) Тип: Строка. Исходная строка.

//Возвращаемое значение: Тип: Строка. Строка обработанных символов.

//Описание: Возвращает преобразованную строку из формата Unicod.

//Автор: Александр Кияница (treedo)

Функция ПереобразоватьЮникод(Строка)

   

    ГотововаяСтрока = "" ;

    

    МасУкр = Новый Массив(66) ;

    

    МасУкр[0]="А";   МасУкр[1]="Б";  МасУкр[2]="В";  МасУкр[3]="Г";  МасУкр[4]="Ґ";  МасУкр[5]="Д";

    МасУкр[6]="Е";   МасУкр[7]="Є";  МасУкр[8]="Ж";  МасУкр[9]="З";  МасУкр[10]="И"; МасУкр[11]="І";

    МасУкр[12]="Ї";  МасУкр[13]="Й"; МасУкр[14]="К"; МасУкр[15]="Л"; МасУкр[16]="М"; МасУкр[17]="Н";

    МасУкр[18]="О";  МасУкр[19]="П"; МасУкр[20]="Р"; МасУкр[21]="С"; МасУкр[22]="Т"; МасУкр[23]="У";

    МасУкр[24]="Ф";  МасУкр[25]="Х"; МасУкр[26]="Ц"; МасУкр[27]="Ч"; МасУкр[28]="Ш"; МасУкр[29]="Щ";

    МасУкр[30]="Ь";  МасУкр[31]="Ю"; МасУкр[32]="Я";  





    МасУкр[33]="а";  МасУкр[34]="б"; МасУкр[35]="в"; МасУкр[36]="г"; МасУкр[37]="ґ"; МасУкр[38]="д";

    МасУкр[39]="е";  МасУкр[40]="є"; МасУкр[41]="ж"; МасУкр[42]="з"; МасУкр[43]="и"; МасУкр[44]="і";

    МасУкр[45]="ї";  МасУкр[46]="й"; МасУкр[47]="к"; МасУкр[48]="л"; МасУкр[49]="м"; МасУкр[50]="н";

    МасУкр[51]="о";  МасУкр[52]="п"; МасУкр[53]="р"; МасУкр[54]="с"; МасУкр[55]="т"; МасУкр[56]="у";

    МасУкр[57]="ф";  МасУкр[58]="х"; МасУкр[59]="ц"; МасУкр[60]="ч"; МасУкр[61]="ш"; МасУкр[62]="щ";

    МасУкр[63]="ь";  МасУкр[31]="ю"; МасУкр[65]="я";  

        

    

    МасКод = Новый Массив(66) ;

    

    МасКод[0]="0410";   МасКод[1]="0411";  МасКод[2]="0412";  МасКод[3]="0413";  МасКод[4]="0490";  МасКод[5]="0414";

    МасКод[6]="0415";   МасКод[7]="0404";  МасКод[8]="0416";  МасКод[9]="0417";  МасКод[10]="0418"; МасКод[11]="0406";

    МасКод[12]="0407";  МасКод[13]="0419"; МасКод[14]="041A"; МасКод[15]="041B"; МасКод[16]="041C"; МасКод[17]="041D";

    МасКод[18]="041E";  МасКод[19]="041F"; МасКод[20]="0420"; МасКод[21]="0421"; МасКод[22]="0422"; МасКод[23]="0423";

    МасКод[24]="0424";  МасКод[25]="0425"; МасКод[26]="0426"; МасКод[27]="0427"; МасКод[28]="0428"; МасКод[29]="0429";

    МасКод[30]="042C";  МасКод[31]="042E"; МасКод[32]="042F";  





    МасКод[33]="0430";  МасКод[34]="0431"; МасКод[35]="0432"; МасКод[36]="0413"; МасКод[37]="0491"; МасКод[38]="0434";

    МасКод[39]="0435";  МасКод[40]="0454"; МасКод[41]="0436"; МасКод[42]="0437"; МасКод[43]="0438"; МасКод[44]="0456";

    МасКод[45]="0457";  МасКод[46]="0439"; МасКод[47]="043A"; МасКод[48]="043B"; МасКод[49]="043C"; МасКод[50]="043D";

    МасКод[51]="043E";  МасКод[52]="043F"; МасКод[53]="0440"; МасКод[54]="0441"; МасКод[55]="0442"; МасКод[56]="0443";

    МасКод[57]="0444";  МасКод[58]="0445"; МасКод[59]="0446"; МасКод[60]="0447"; МасКод[61]="0448"; МасКод[62]="0449";

    МасКод[63]="044C";  МасКод[31]="044E"; МасКод[65]="044F";  

    

    

    тмпСтрока = "" ;

    Для Счетчик = 1 По СтрДлина(Строка) Цикл      

        Если Лев(Строка, 1) = "\" Тогда

            Если Лев(Строка, 2) = "\u" Тогда

                

                тмпСтрока = Прав(Лев(Строка, 6),4) ;

                Если МасКод.Найти(тмпСтрока) = Неопределено Тогда

                    СтрокаЗамены = Прав(тмпСтрока, 1) ;

                    тмпСтрока = СтрЗаменить(тмпСтрока,СтрокаЗамены,ТРег(СтрокаЗамены)); 

                    Если МасКод.Найти(тмпСтрока) = Неопределено Тогда

                        Сообщить("Код символа не найден: " + тмпСтрока) ;

                    Иначе                      

                        ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;                                   

                    КонецЕсли;

                Иначе

                    ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;               

                КонецЕсли;

                

                Строка = Прав(Строка, (СтрДлина(Строка)-6)) ; 

            Иначе  

                Строка = Прав(Строка, (СтрДлина(Строка)-2)) ;

            КонецЕсли;

        Иначе

            ГотововаяСтрока = ГотововаяСтрока + Лев(Строка, 1) ;

            Строка = Прав(Строка, (СтрДлина(Строка)-1)) ;     

        КонецЕсли;         

    КонецЦикла;   





    Возврат ГотововаяСтрока ;

        

КонецФункции

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Автоматическое резервное копирование 1С:Предприятия в облако с помощью ПО Effector Saver

Всем известно, для большей гарантии восстановления важных данных, необходимо копировать архивы в несколько мест хранения. Отдельный диск может помочь в случае порчи основного, но в случае если устройство будет потеряно или украдено, он будет так же утрачен.

На сегодня облачные хранилища часто заменяют физические носители информации. Как правило, облачные хранилища предоставляют бесплатно от 2 до 15 ГБ дискового пространства, кому-то этого будет вполне достаточно.

ПО Effector Saver позволяет настроить периодичное резервное копирование информационной базы 1С в облако. И задать количество хранения файлов резервной копии, отдельно для каждого хранилища.

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

Далее в статье рассмотрим как с помощью Effector Saver настроить бэкап информационной базы 1С:Предприятия в облако Яндекс.Диск.

На компьютере где производится настройка, должна быть установлена программа 1С:Предприятие и подключена необходимая база данных.

Скачиваем программу с оф. сайта Скачать Effector Saver

Запускаем файл инсталляции Мастера установки. На последнем этапе Мастера установки, соглашаемся с запуском программы и нажимаем «Завершить».

На панели инструментов нажимаем «Задачи» «Добавить задачу».

Выбираем тип новой задачи «Резервное копирование 1С:Предприятие 8», нажмите «Создать».

Во вкладке «Подключение к 1С» нажимаем «Выбрать базу 1С:Предприятия из списка и заполнить основные параметры».

В открывшемся окне «Выбор базы 1С:Предприятия» указываем необходимую базу и нажимаем «Выбрать».

Поля «Наименование:», «Исполняемый файл:», «Вариант базы:» и «Каталог базы:» автоматически заполнятся в соответствии с выбранной базой.

Необходимо только заполнить имя и пароль пользователя указанной базы, под которым будет запускаться резервное копирование средствами Конфигуратора 1С:Предприятия.

Если используете программную лицензию 1С, то установите флаг «Использовать программную лицензию 1С».

На вкладке «Отключение пользователей», устанавливаем флаг «Завершить работу пользователей 1С:Предприятия».

В Effector Saver доступно два варианта завершения работы пользователей:

- если у вас файловой база выберите «Вызвать штатное завершение работы пользователей»;

- если у вас клиент-серверная база выберите «Завершить сеансы на сервер 1С:Предприятие». Если в кластере 1С:Предприятия создан пользователь «администратор кластера», установите флажок «Кластер требует авторизации». Заполните поля: «Имя администратора кластера:» и «Пароль администратора кластера:». Если порт подключения к Агенту сервера отличный от стандартного, установите флажок «Используется нестандартный порт агента сервера». Заполните поле «Порт агента сервера:» (по умолчанию 1540).

На следующей вкладке «Хранилище архивов» указываем, где следует хранить создаваемые архивы.

Для добавления нового хранилища архива, нажимаем на кнопку «+». В открывшемся окне, нажимаем «Создать новое хранилище».

Из выпадающего списка, выберите, «Яндекс.Диск». Доступны и другие варианты: Локальная/сетевая папка, FTP/FTPS, WebDAV, Google Диск, Dropbox, OneDrive, Облако Mail.Ru.

Поле «Название:», оставим как есть. Нажимаем «Авторизация».

Откроется окно браузера, в котором необходимо ввести логин и пароль для доступа к Яндекс.Диску. Затем нажмите «Разрешить», после этого окно браузера автоматически закроется.

Далее укажем папку для хранения бэкапа базы 1С, нажимаем на кнопку с тремя точками и выбираем папку, (если папки нет, создайте ее).

Для управления количеством копий базы данных, устанавливаем флаг «Автоматически удалять устаревшие резервные копии», и заполняем параметр «Хранить количество копий», например 3. Нажимаем «ОК».

На следующей вкладке назначим расписание. В поле «Назначить задание:», выберите нужный интервал времении заполните параметр «Время начала:».

В верхней части окна настройки устанавливаем флажок «Выполнять задачу по расписанию» и нажимаем кнопку «Сохранить».

Резервное копирование информационной базы 1С на Яндекс.Диск будет осуществляться автоматически в соответствии с установленным расписанием.

Категория: Администрирование

Выгрузка картинок из базы 1С в XML

В нынешнее время для электронного каталога или интернет-магазина необходимо выгружать не только информацию о цене и характеристиках товара, но и сопутствующие изображения. Хранящиеся в базе или связанные с номенклатурой изображения порой приходилось выгружать отдельно, подвергая предварительной обработке имена файлов, подгоняя их под правила связи товара с изображениями в приемнике. Тем не менее, в 1С существует возможность поместить двоичные данные изображений в виде строки в XML, либо другой файл выгрузки, чтобы уже на месте разобрать информацию о товаре.

Рассмотрим на примере следующей конфигурации.

Перечень объектов:

- справочники "Номенклатура", подчиненный ему справочник "Файлы";

- документ "Установка цен";

- обработка "Выгрузка прайса";

- перечисления "Типы файлов", "Типы номенклатуры";

- регистр "Цены номенклатуры".

Для начала, добавим форму элемента для справочника "Файлы"

Код 1C v 8.2 УП

 &НаСервере

Процедура ОбновитьКартинкуФорма(ХранилищеКартинки)





 Если Объект.ТипФайла = Перечисления.ТипыФайлов.Картинка Тогда

  Картинка = ПоместитьВоВременноеХранилище(ХранилищеКартинки.Получить(), УникальныйИдентификатор);

 КонецЕсли;

 

КонецПроцедуры // ОбновитьКартинку()









&НаСервере

Процедура ПоместитьНаСервер(Данные = Неопределено)





 ХранилищеКартинки = ?(Данные = Неопределено, Неопределено, Новый ХранилищеЗначения(Данные));

 ОбновитьКартинкуФорма(ХранилищеКартинки);





КонецПроцедуры // ПоместитьНаСервер()



&НаКлиенте

Процедура ДобавитьФайл(Команда)

 

 Режим = РежимДиалогаВыбораФайла.Открытие;

 ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

 ДиалогОткрытияФайла.ПолноеИмяФайла = "";

 ДиалогОткрытияФайла.Фильтр = "Все *.*|*.*|.jpg|*.jpg|.png|*.png";

 ДиалогОткрытияФайла.МножественныйВыбор = Ложь;

 ДиалогОткрытияФайла.Заголовок = "Выберите файл";

 Если ДиалогОткрытияФайла.Выбрать() Тогда

  мФайл = ДиалогОткрытияФайла.ПолноеИмяФайла;

  ПоместитьНаСервер(Новый ДвоичныеДанные(мФайл));

 Иначе

  Текст = "Файл не выбран!";

  Предупреждение(Текст);

 КонецЕсли;

 

КонецПроцедуры



&НаСервере

Процедура ПриЧтенииНаСервере(ТекущийОбъект)

 

 ОбновитьКартинкуФорма(ТекущийОбъект.ХранилищеФайла);

 

КонецПроцедуры



&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

 

 ТекущийОбъект.ХранилищеФайла = ?(ПустаяСтрока(Картинка), Неопределено, Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(Картинка)));

 

КонецПроцедуры

Настроим форму документа "Установка цен".

Код 1C v 8.2 УП

 &НаСервере

Процедура ЗаполнитьТЧ()



    Результат = ВыгрузкаПрайса.ПолучитьТаблицуЦен(Объект.Дата);

    Объект.Товары.Загрузить(Результат);

 

КонецПроцедуры // ЗаполнитьТЧ()



&НаКлиенте

Процедура Заполнить(Команда)

 

 ЗаполнитьТЧ();

 

КонецПроцедуры

Добавляем обработку выгрузки в XML.

Код 1C v 8.2 УП

 &НаКлиенте

Процедура Выгрузить(Команда)

 

 Если ПустаяСтрока(ФайлВыгрузки) Тогда

  Возврат;

 КонецЕсли;

 

 мСтрока = ВыгрузкаПрайса.ПолучитьДанныеXML();

 мФайл = Новый ТекстовыйДокумент;

 мФайл.УстановитьТекст(мСтрока);

 мФайл.Записать(ФайлВыгрузки);

 

КонецПроцедуры



&НаКлиенте

Процедура ФайлВыгрузкиОткрытие(Элемент, СтандартнаяОбработка)

 

 СтандартнаяОбработка = Ложь;

 

 Режим = РежимДиалогаВыбораФайла.Сохранение;

 ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

 ДиалогОткрытияФайла.ПолноеИмяФайла = ФайлВыгрузки;

 Фильтр = "(*.xml)|*.xml";

 ДиалогОткрытияФайла.Фильтр = Фильтр;

 ДиалогОткрытияФайла.Заголовок = "Выберите файл";

 Если ДиалогОткрытияФайла.Выбрать() Тогда

     

  ФайлВыгрузки = ДиалогОткрытияФайла.ПолноеИмяФайла;





 Иначе

     Текст = "ru = ""Файл(ы) не выбран!""; en = ""File(s) not selected!""";

     Предупреждение(НСтр(Текст));

 КонецЕсли; 

 

КонецПроцедуры

При заполнении табличной части "Товары" документа "Установка цен" и в обработке выгрузки мы обращаемся к общему модулю "Выгрузка прайса":

Код 1C v 8.2 УП

 Функция ПолучитьТаблицуЦен(ДатаЗапроса = Неопределено) Экспорт





 Запрос = Новый Запрос;

 Запрос.Текст = 

  "ВЫБРАТЬ

  | Номенклатура.Ссылка КАК Номенклатура,

  | ЕСТЬNULL(Цены.Цена, 0) КАК Цена,

  | ПРЕДСТАВЛЕНИЕ(Номенклатура.Ссылка) КАК НоменклатураСтрока

  |ИЗ

  | Справочник.Номенклатура КАК Номенклатура

  |  ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ

  |   ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Товар,

  |   ЦеныНоменклатурыСрезПоследних.Цена КАК Цена

  |  ИЗ

  |   РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Дата, ) КАК ЦеныНоменклатурыСрезПоследних) КАК Цены

  |  ПО Номенклатура.Ссылка = Цены.Товар

  |ГДЕ

  | НЕ Номенклатура.ЭтоГруппа

  |

  |УПОРЯДОЧИТЬ ПО

  | Номенклатура

  |АВТОУПОРЯДОЧИВАНИЕ";





 Запрос.УстановитьПараметр("Дата", ?(ЗначениеЗаполнено(ДатаЗапроса), ДатаЗапроса, ТекущаяДата()));

  

 Возврат Запрос.Выполнить().Выгрузить();





КонецФункции // ПолучитьТаблицуЦен()





Функция ПолучитьИзображения(НоменклатураСсылка)

 

 Запрос = Новый Запрос;

 Запрос.Текст = 

  "ВЫБРАТЬ

  | Файлы.Ссылка

  |ИЗ

  | Справочник.Файлы КАК Файлы

  |ГДЕ

  | Файлы.Владелец = &Владелец

  | И Файлы.ТипФайла = ЗНАЧЕНИЕ(Перечисление.ТипыФайлов.Картинка)

  | И НЕ Файлы.ПометкаУдаления";





 Запрос.УстановитьПараметр("Владелец", НоменклатураСсылка);





 Возврат Запрос.Выполнить().Выгрузить();

 

КонецФункции





Функция ПолучитьДанныеXML() Экспорт





 ТЧ_Цены = ПолучитьТаблицуЦен();

 

 ЗаписьXML  = Новый ЗаписьXML;

 ЗаписьXML.УстановитьСтроку();

 

 ЗаписьXML.ЗаписатьОбъявлениеXML();

 

 ЗаписьXML.ЗаписатьНачалоЭлемента("price_list");

 

 Для Каждого СтрокаЦен Из ТЧ_Цены Цикл

  

  ЗаписьXML.ЗаписатьНачалоЭлемента("tovar");

  ЗаписьXML.ЗаписатьАтрибут("name", СтрокаЦен.НоменклатураСтрока);

  ЗаписьXML.ЗаписатьАтрибут("price", Формат(СтрокаЦен.Цена, "ЧРД=.; ЧГ=0"));

  

  ТЧ = ПолучитьИзображения(СтрокаЦен.Номенклатура);

  Если НЕ ТЧ.Количество() = 0 Тогда

   ЗаписьXML.ЗаписатьНачалоЭлемента("picture_list");

   Для Каждого СтрТЧ Из ТЧ Цикл

    

    мДанные = СтрТЧ.Ссылка.ХранилищеФайла.Получить();

    Если НЕ ЗначениеЗаполнено(мДанные) Тогда

     Продолжить;

    КонецЕсли;

    ЗаписьXML.ЗаписатьНачалоЭлемента("picture");

    ЗаписьXML.ЗаписатьАтрибут("binary", Base64Строка(мДанные));

    ЗаписьXML.ЗаписатьКонецЭлемента();

   КонецЦикла;

   ЗаписьXML.ЗаписатьКонецЭлемента();

  КонецЕсли;

  

  ЗаписьXML.ЗаписатьКонецЭлемента();

  

 КонецЦикла;

 

 ЗаписьXML.ЗаписатьКонецЭлемента();

 

 СтрокаXML = ЗаписьXML.Закрыть();

 

 Возврат СтрокаXML;





КонецФункции // ПолучитьФайлXML()

Кодирование изображений выполняется с помощью функции Base64Строка, в качестве аргумента передаются двоичные данные из справочника "Файлы". Предполагается, что приемник XML может выполнить обратное преобразование. В 1С это можно сделать с помощью функции Base64Значение.

результат выгрузки прайса в XML:

Код Batch File (DOS, CMD, BAT)

 <?xml version="1.0"?>

<price_list>

 <tovar name="Товар 1" price="5">

  <picture_list>

   <picture binary="iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAAB3RJTUUH3QINBSMt

F2PHEwAAABd0RVh0U29mdHdhcmUAR0xEUE5HIHZlciAzLjRxhaThAAAACHRwTkdH

TEQzAAAAAEqAKR8AAAAEZ0FNQQAAsY8L/GEFAAAABmJLR0QA/wD/AP+gvaeTAAAA

pklEQVR4nGP4jw3kajICEVYpBmRFcMafGkMgQhZB1wBRBDEYohquBy6F0AAXejM5

DoiQbUAWgehB2ACRg0jDEbIgRCUTAyponLY4XF8cjoBcNAUMaB44EiEBRJhsuJOY

8rSY+oMNgDohJBCsvPiyZd0xIAIyICJwBUDF6E4iDEh1EnoowdXBVaOFElnBCvE3

cggCufAwgIQ1xMdQP5CcNMhJfMQnbwDR3npihwr9YwAAAABJRU5ErkJggg=="/>

  </picture_list>

 </tovar>

 <tovar name="Товар 2" price="10"/>

 <tovar name="Товар 3" price="15"/>

 <tovar name="Товар 4" price="18">

  <picture_list>

   <picture binary="iVBORw0KGgoAAAANSUhEUgAAAGUAAAAaCAYAAACuCJLbAAAABHNCSVQICAgIfAhk

iAAAAAlwSFlzAAADtgAAA7YBp8dLNgAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3Nj

YXBlLm9yZ5vuPBoAABQvSURBVGiB7Xp5cJ3HceevZ77rXXjv4QZIAjzFUxIpSqQo

0ZIiS5apK1EiKYpke2OvdawrLttyNrXeql2K3qxd8WZXKW9i+YiPjeNLdJxDt2Qd

DGVCMi+JJ0iQBEFcxPXu975zpvcPABQIgtRWHFftbrmrpoBvpmemp3/TPT09j5gZ

lyai7dvvEzhyRMaGHCObduT4aFUi+z7dfkNAHmhsTqh80VNuuxdh1Sp13/3bNd5H

6XSx9m3bSKwubbIblWtr2Pa4GyWgrRRLEYcQZkha/FoW8v8RmSw0tA4Ng6tCB2XD

krUU+T4yGe+mrW/4wNzKnxOUvY9ebU4kzFTgO9mC9luIZDJSlAoVMoo5BcEmmOjX

vqr/x0kS60hT5AguWVIUmLlCUlViljmaEEGuoRqW139jTzi73/mgENG3HlkfW2Q5

mVxI7R7k4mqkFmjFVhRpN1RBVYdUYRGFWuk5URaE9/OHlyQCnesviH6lsS5Fmvnc

pmLwr7TBNGPO/oYUxNowTZOThrQShkGOIApituhPSt2rlR7O6yD/8Df3ujNd2nmg

vPKxtYkoHW/I+VgakLGk5kdZ3/cLbqTznq8qtSCoeF5Qq0UcqrD2f6wwIc4Haqay

5SUULwRY/oogz0WKQVrPrcjJ9vdAmgkeAFyq32ySZpxsASsRt2Mpy0o6tkjaplVv

2WY6LmXeMPWpxoTumRitTXzkb96pTvc7B8r2bWusbC3TOFI2V9TccE01Cslzw+GJ

anloPOeWJoqeNxaFqhaR9n2fCWBvlhB0EQXOdnSSSAMATYG1eH7aPDVQDIFfr3Vc

jGYrHgB4SvmK+byz82JHNM+yFgcAA2TbNsUNFg3SNJoyjt2USWaymWR70jLb4rbB

MYcPJql2dF4gxqZdmQEA2EYiXfxQckxV5gWRWlJRISq1sG94LN9/bKxSGixUwrIP

7Xkeu5hUJLlzAnC+RQBqDoZzPI8+vCG97+1B9/ab18TTWds6eHyw/PVv7i1NtxPA

BGgAuObyFnP3wZEL/O8Pv3ffwse/8OKZs8NlPbe65hRSMObe8XPV0xx1GpAXss0a

KwYCPMQAchwnTJWqflvR85aHuragIRYwxxaSNJdaMl6aSCgP26iArawNAHh2aL0T

xrz6IJALa75Oh27UNzyW739nOJ/vm/CjvOdp9z0QZoMx83s2CAwAf/lnt7f/1dd2

j95597L45g0dTZWyChYvysxb2JG+0iBKgCCY4W/YtOCd5Ss6DvWfLXlf/MqrJQD4

93+0IVlnJ+RYoRj85y/etmTBvPRy0zJTzNB//pdv/NP8jobs337ngfSGLd/aN5eS

L6K42QDOBdD7KX22HmbyT/JO6cwFCK6HWAy65EN7UaiAFnTWC0uastMwzEVOTOW6

ipvcTYBL/MQT4uXii5l81ViZ19hYqXmlkdFC976Bwkj3SMUv5D1Vu1CI6f/1RerP

fX/zK3e33XbLkttjlkxCEPcNFnaM52rFtpa6lrbmxAZJwgamXRxzuRodE0I4/QP5

d1pakwuSjtXsxIz5AMBEipglALDmIIr4NBmoM4Ronhjzdi7Z9Bc730fRACAu0T67

bua3mPV9KV66yDwUAyibdcSKlqS9rjPdOr++fqUds1NZS3WlMvLoHc4tRXr6idWW

Xcs0lvN0JWfmb0q2LyyETvpMzWeMvbvrI5hSdGbpFdtj8xaPAIBpGFpIiZG3f35D

dWzwTgLISKT2z7txy9OWlQqmJbAdW2VjUWJRx8RdptRxAGCmaGzEndj7wu5bSxOl

tljcDlddv+zIsnULhwVNroMI2PfqoSUjAxNNdsz0b77/uv006Vn4wJvHOgZODs9r

bs1OXH3bFT0A8MoP3rzGrYWRHUscW3LrJ78KADzWtfEX//D6raHrLgbJYqK+8c0r

7/3k3wFA9wtPby6OD2+QJPx1f/CprwFAEAR08p+f3Vg+O3idbTtDmaWrukYO77v3

PLUzYEpZWnLXR79z4vkfPhgGfkuyfeGrjWuuPVLoO9ZeOLb/9wBGrGn+m5FbbgrK

xRVWXeP++rWbd2k9eW6Nv/3i76rAb3fSDe+2LF9xkAtn20eP7Y03OWJ/hqsHGhnj

RmzIMXyJZCRE2kkmWBuWKwwnqo0OtEaVwm9Py1MbO3M4sWDpqGVZGkEgTz73v/6a

Vdg5JSuCgrfeHxp63V68csixbQUA7fXV1sb66lVSIq6ZiIgAgrnjx6/9YWGk2Eog

lCfKGP3xeKdXCV6/8gMrT0+Nx3tePrhZay0BYOkVC/s7VswbJyG4e/eJNRPD+fax

vvHSNbevO/6zJ5//8NmB8fkA8IF7Noy1NhRadv7gRw/3HT59+8zzoTjcf+3Or/2X

j131wMMPWYl4xT+Ruw8A9v3o67zho3/0lGEYnO858gSzrkMiuaPU2xMGpdzvzbIG

BKBIkPiumxv9GLNO1IbY4FUbuif27fgrrVUGRH7LNTd/f3DHM59hFXbqwFsshOgS

Ahj+xbMPBLnRfwsAtdBdJFav3U+JTCiEHQTaqwtNjgeWbYhs5MiAZFIppEtjQ2f7

Tx7p6+7uHh4anTjh+cEOv1bl0PMQeX5kWlYIAH2v/mTrNCAkjAlhWCcBUkQCjm2r

sZ4DC4TQQpgSphG1EYEkgyiKDHN0ou32Dy4/3dBcN7Zm07K9hikDAOj+Zc8qSDCg

sffnB5ZprSVo0vj3Pb/veiGFnhnFMVjs+buua6cBWXPt8t1XbF7Znzv+1sdPHz59

BwMkhFDJbPK0YVrDIIB11Hzw77/7vQ/+/m+NJLPJPgBw82N/AL9odr/y003Mug4A

L7/5nq8QBGhSAGXFkzuFYfVOzy3kewGZIELvc3/z37RWGQC6cc3GTycaWovTlqUj

xSGzO7D7tSWlgVOfcMtF1Io5FEfOBvv27Rno2dd1wnOLxYCNdJnr6uoCWxrjdVUp

AicWkZEoj44O9Z7Njezsy+V6RouDrosHP7u+uR8A9faeHPz817cfTSQS9OjquuuE

lIBh/nN1zYc/nonFpF3qn18oV0q93/rSlzkKbj27++UzVz7xwNOCoIzTQ0tF4Kco

VA4ydWP1McO6+bpFZ8dGSg1i6oBsTpiW0Te8SFRq2Z6u4ytAgG0Zyg8iOTZSqpen

+i7Tixcen3anKtTW3l09qwnAwo768Vu2rOnlILR/+cL+jQSAhFAPfeF3flRXn/II

wv/Hp166uf/E0MrA9ebR8L5P/u6DG45+/2uvdTCzsXf7d/7ULVfaAcBwnAMNi5bl

B3bv5Cmle1c99JkvvPv3336wenbgU1prlAvVilcts4pCVEuFtRxGHUpFiIzY5/a8

e/qliefe1FfqvgBKwbCkWmu+dtn+rlf+AjPC5pB1uPv4sxNXL23mJU2pRq1VC4fa

Ga73pQEArIkRzQrIL0K3tFjLtFJCK4XBXO1L2596ajqEzQNQn13f3EQAvIqdkuqM

oomyMs6OmNDMDNSMEuIA1D/86MCywZFqioggpOB7r08NGoNHUuVqQKeOdjtEhHtu

uazvH1/vXcwM2vXSrvZrH6TD7vCAUxopAUQWEcEyhbrngaV96Dk0T0sZDfWcyLhu

iIbmRCnbe2gBBhDqtoYzH7yjbdeTf/L2Sgbj4HOvtW6+ftHJdJ135MSh4dVj/aeu

B0/e2SrKfuTpz/+H7o3ct9lghmZWN9265eBjaxtHYpMWwp947LHTn1hm81RY0wEA

6Zbkmcf+6y3xznVP1gDQ5eubWIBAkuTrT+34MhgOAy4DowLoBIA7tqzIjvfkwMwg

EEsxiZloLCUUseWZQlRYIm7b0okbLOKzwFBT0UTvhDs4XbekM/1bT3/795d99ctb

Wv/nl+9sfvVnH1/7+W888OL6D634+Wc/s3mH3T2w1syVWwE2MOmJSE3tlnWrGseW

d2ZypoEoCkP65k/2r4QK+dlXe9rDwEcYeMjlC4ZQfhi4NezqOjHP7DmxNKoVTbdS

Qlgr61qpgMJETn7vJ291ciVvUnE8JlRNu5USckPjCVnNx2QhX2ee7Ft88IV9lwde

DaHnorM9lo9KRfOhDy16l7UKVBgKFYWkVdT9jT29h99++23FES9gZghA97/7+Eeu

uXHp9QBAgsTxrkc/Kw1pAoA0ZMAACiOVjr0vHdm456VHbgAAgcmoJfKiNX4taAHA

nmn8Gwb7U7rA7XdfsfHu+9etS9THswbJsjIi16h4Soi0jshUZSJVNA0rmYxbySbD

lLbjzA4BAUAeKHpVZs4DQJCv/Ymz78SPr1He992dh3+xcGjkK4VfHL8p1312Xd+B

wVWi6jaKfHUe9Pkx/O5DI/UnzxTr7t+y7HRTNuYBQBAoCQDdpyfqgcmb8yu7znTU

fGUygHzJi5VHSw3Tg8TiZrhmWcMYABw9MdH4866+VjBj5eL6PADUvND66g/eWdnT

X0y+uvNUx4svHbuaAUhDqPaYqFHFYxovWxtWNh6YHvOGtS3P9f/3m+46+6UPfKQh

Ke8EA/G6mO/kSwvNiJPTfILYmb5QLljefNRJ2kUA2PnTd+7O9Y1f/Y3/cef8WMpO

Ta3DAIDLNix85Q+33mElUk4aAOqb6lobsvbClo661U0tmTY7RuVEGJXQ1BQZ6XRJ

lQr1FSVQqgqxyLasVEPacVJFFcRi3sxLFgFAPA4jnXEeL5f872rN9Npb/R3TJoww

iv3sme4l+aLnDI2U0yuX1L8r5kgmP7+jt9PzlfHFnrcbp+sScSs4fCKXDoLJiOuK

y5rGTGMyHbPv6FgzM9MzO04vOJcSYOCBLcuO//lIJZEv+fFXdp3paG1O1G7buODY

vkOjyYoXpgdHKqm/3n5w1cy5b7+u47AOlccVb4wZOD1QvAYAHFNWb1yajSPQNzy3

/+xVxWq0CAA608aw6DqeEqXKuY2lNAvGe5eyj/6nD//g2//xnx7Rio2Xvt31+I2P

bN57esaNrXFe+sydD19/CMBVQpIBAKYpLCkoHXesxsa2VG5gpFJMxYJqqq2sxCrc

F0VOwWPJpZjJYcKwGxrqE9m2tLSyk9YybgjypJSlu1Y1xY9+4YY/fvyjV336Uw9d

eaSh3nGFmMxV2ZaMYjEj6mxPlYnAne11JTBDaz1ZZiSNrr68ZTRmy5AIICLOph33

4ftXHzvYM5q1TKma6mO1+29b0vPbtyzpvedDy/ovW5jJW5ZUYxPVWCZle5YlVDZp

uexHxX9397KXE45RM6UInnnl1Lxoonzqj+9e9sNFzfFjUtB0Wobjlizfe13Hc2vb

k3vCopeLFJPSTPlq2GAK4W9cmv0lM4gBysatshQUNWfsgXs2zHuLASTAVdMQgWMb

nvNW9+WppOWZpgibU6bRZJO15aGrnzctwyMBHHv5yFYnZecMS/jxjDPxsSfu/OnU

PqJkKl40LOGnsrEiR+wEXiT9ql8wRFh2AwTrh+9SxAB1fW6TMxoFbZUgcVXJjxbl

q95Af6548nDvWG7Tokzy0zd1PqZZh6YhkkYylrXrYvNB526s76Wc50oSnU8X5MtI

iAv6qKo/oqr+uIyZWRG360mQpf2ooP2wqGt+yWpOr2TFgSrVBlQY1cDMUHxBnm3G

pAQAJIUkKSwdRO5FBWKQZn1hHmuK0W7NLIw0ahSFEMk4aQFQ3BGs2fY6Gnu0bfms

eMZwU3MDYDCIIZi15FDHAk9nB4+MjA0dGX/dYn/PPJuGNj3Z5cknmLHgrQF9JjwA

JU1olhmCqHeEoISF4NFr2+5yTNFg1sXbCcRky4S0ZJKmc780fZuYLDyjzNQ2vffn

/MJMzExaM6kwrEZVfzSq+SUQDJYko5pf1JVgJHKDIphJhdrlUFU5jGrKD6usWDNP

XfcvUibzmiBmZhUqxVNzThfNLHi6TPFOynbB2kRU8YqIlIpc31UVNwxztbJF3KYK

Vc/OlTvt0XwHImUaXphQMdN1hic6IUQk3CBueGFceEEcGrb2oobxs7Xy2KniQcOv

7XdSleGbk3dV8frrfC51f2Tb/VZ/4VRDzo1d5mlxRdWNDDf0Ru9dHrvNdgzbjFtJ

JsCwjbh0rMzFduUMAC7aQGAGnXfYMADU+if2AwCZ0iCCJAipo8iDvjDbPMVnc6j8

S8kyF73fo9bMNPzcT3nniwEBISzT0X7kClPadkNyoZDCApEAAZFjF2UUOay0TUrb

kSbzrE+Hx0bdY0NDlRfmpYPusUQtd9/WQwEw85GLiLo+t8kZ88OGCscWR5FYmomp

FcszWOUYZEhDQlpS2pl4q5CCiMCzbV9P2r5iAgkSc197mFlrDqBZaaUCDiLPSDjZ

yA8qQa42zFMC0ZSlkSCAL8jq/ko0nYf6l9DFUv4gJjCxMKUNzVpY0tJKKxAZ0rZS

RszKMsGMmNRgLjg4OBF11WrhO3GXe5sy0cSmJ7u86ddH473ZmF/ets1fP/RMrjUe

hAXYxZKnC6eLRmibaEmmZF2dYaSFIkhoYgYiNygySJgxM0XECN2oypqVNA2HBLMw

yJxjWVwbr+UjL/RIkDDjZlxP1PIcKqW1SDGfvzfpPTj+NR6/pnLR/yJM3qfTVLM/

JXAYAYDQGqgV3bFKWO1Tpq0DjfHhQrArYYlTdeSOaFOXNj2517voczAAEBE9/cRq

c7HrxAZ9M+PVzNYAlDKESNgOWhMGtYFgCQKiUGs9JYMQk4ehNISQBhlgYjUVcpGE

kNIQREDoh4EOzz+UiZg0n/8+/38bXcrlMTNrAHKGS6bJI4wZOiiH6GfNOc2yJiks

J8xotC2u8qdinnv/E4dDngXCRX9ihG3bxBt4w4rlXCvPpi0UOSXFSZcoboJNkvI3

v2a5BEUApFLMQgRQ2o1Lv5KJxV0n9AK3PhbchJsCbN06p1u+OChTtG3bNnEj3hDu

xICcKCSMRaYnjGSGyrHoN6C8D6Vcg6NKgXtDRzdkqlGsYb7agZv01ouAMU3/G2jy

rVebJ+JFAAAAAElFTkSuQmCC"/>

  </picture_list>

 </tovar>

 <tovar name="Услуга 1" price="32"/>

 <tovar name="Услуга 2" price="15"/>

</price_list>

Источник

Категория: XML, DBF, TXT, CSV

Расчет компенсации за задержку заработной платы

Компенсация за задержку зарплаты в конфигурации 1С ЗУП 8 рассчитывается при подготовке ведомости на выплату зарплаты - Зарплата к выплате (Рабочий стол - закладка Расчет зарплаты - Журнал выплаты зарплаты - Зарплата к выплате) Заполним его:
title

Для автоматического расчета компенсации за задержку зарплаты, необходимо нажать на ссылку Расчет сумм к выплате
title

В появившейся форме в поле Рассчитать компенсацию за задержку выплаты на указывается количество дней, на которые была задержана выплата зарплаты.

Расчет суммы компенсации осуществляется в форме настройки расчета по кнопке Рассчитать.

title

Формула, по которой рассчитывается компенсация за задержку зарплаты:
Результат = Сумма, подлежащая выплате * кол-во дней задержки* (Ставка рефинансирования ЦБ / 100 * 1/300)
Ставка рефинансирования ЦБ на конкретную дату отражена в форме Настройки параметров учета (Рабочий стол - закладка Учреждение - Настройка параметров учета) на закладке Прочие ставки

Категория: 1С Зарплата и Управление Персоналом 2.5

Управляем 1С со стороны используя web-сервис

Передача команд 1С на выполнение через ссылки в письме.
web-сервисы помогают интегрировать 1С с различными программами, делая её более гибкой. Статей в интеренете достаточно можно, но в основном там описывается выгрузка из 1С, обмен между двумя 1С или 1С и каким-то мощным программным продуктом написанным на C или других языках.
Для меня же была поставлена задача возможности управление 1С через браузер. Как пример: обрабатывать завершение задачи БП в 1С по ссылке в письме (примерно такого типа http://site.ru/?user=000000001&bp=000000555, т.е. отсюда видно, что пользователь 000000001 хочет закрыть задачу 000000555), т.е. пользователь со своего смартфона не имеющего доступа к 1С как таковому, должен получить возможность управлять ею извне. Собственно, более сложной задачей можно поставить написание собственных web-форм, более легких и компактных, с произвольным дизайном для управления 1С.
Задача с точки зрения написания кода 1С очень легкая. Основная сложность заключалась в освоении HTML и JavaScript для управления извне. Начальные знаний по этому вопросу я подчерпнул из статьи Примеры пользования web сервисов 1С из браузера.

Настройка 1С
Для возможности использовать 1С в вебе необходимо:
1. Установить модуль расширения веб-сервера;
title

2. Настроить Windows: доустановить компоненты IIS и настроить проверку подлинности. Всё это можно прочитать в статье Настройка веб-клиента 1С:Предприятие 8.2 под Windows 7 x64 и IIS.

Программирование 1С
Теперь можно приступить к конфигурированию.
title

1. Создадим Web-сервис Input:
1.1. Input имеет операцию InputData которая принимает два параметра: User и Command, и возвращает параметр типа "boolean (http://www.w3.org/2001/XMLSchema)". Текст функции InputData:

Код 1C v 8.х

 Функция InputData(User, Command)



    обДанные = Справочники.Данные.СоздатьЭлемент();



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



    Возврат Истина;



КонецФункции

1.2. Устанавливаем для Input URI пространства имен = "http://infostart.ru". Здесь может быть любое уникальное имя, обычно это ссылка на сайт.
1.3. Устанавливаем для Input имя файла публикации = "input.1cws". Это имя web-сервиса к которому будем устанавливать соединение.
2. Для наглядности примера создадим справочник Данные, все параметры оставим по умолчанию.
3. Публикуем нашу конфигурацию и web-сервис: Администрирование -> Публикация на веб сервере...
title

На этом конфигурирование заканчивается, всё остальное сделает за нас 1С.

Разработка HTML страницы
Эта часть далась для меня тяжело, т.к. я ещё только делаю первые шаги в этой теме. Буду рад замачаниям и советам. А так, я постараюсь объяснить всё на пальцах тем, кто как и я знаком по большей части с 1С.
После установки ISS (я уже давал ссылку в начале статьи) на диске C появится каталог C:\inetpub\wwwroot, в этом каталоге располагается сайт. Для локальной машины (на которой установили ISS) он виден так http://localhost/, ну а для пользователей извне, как-то так http://infostart.ru (по правде там немного сложнее, но не суть, мы сейчас не про это). Заглавная страница сайта будет грузиться из файла index.htm каталога C:\inetpub\wwwroot
title

Исходники файлов можно скачать здесь: Скачивать файлы может только зарегистрированный пользователь!

Код файла index.htm попытаюсь объяснить как могу, т.к. сам некоторые моменты не понимаю:

Код

[html xmlns="http://www.w3.org/1999/xhtml"] // Неважно. Используется в XHTML для объявления пространства имен.
[head] // Предназначен для хранения других элементов, цель которых — помочь браузеру в работе с данными.

[meta http-equiv="Content-Type" content="text/html; charset=utf-8" /] // Неважно. Мета-теги используются для указания описания.

[title]Тест веб сервиса 1С[/title] // Неважно. Определяет заголовок документа, то что видит пользователь как текст вкладки.

[script type="text/javascript" src="../js/connect1c.js"] [/script] // Важно. Подключение JavaScript библиотек. В моём случае это мой модуль соединения с 1С.
[script type="text/javascript" src="../js/parameters.js"] [/script] // Важно. А это модуль обработки параметров строки браузера.

[/head]

[body] // Предназначен для хранения содержания веб-страницы (контента), отображаемого в окне браузера.
[p id="response1C"][/p] // Важно. Метка response1C, куда вернёться ответ запроса 1С.
[/body]

[script type="text/javascript"] // Важно. Начало основного скрипта, который выдёргивает из строки браузера всё что идёт дальше знака вопроса,
а дальше парсит по определенному алгоритму. В нашем случае будут искаться ключевые слова "user=" и "command=".

user = GetParameter("user"); // Важно. Находим значение user. Сам метод GetParameter находится в библиотеке parameters.js, о которой поговорим чуть позже.
command = GetParameter("command"); // Важно. Находим значение command.

Inquiry1C(user, command); // Важно. Запрос к 1С с найденными параметрами. Сам метод Inquiry1C находится в библиотеке connect1c.js

[/script]

[/html]

Заменил < на [, а > - ], замените перед использованием обратно.
Рассмотрим библиотеку parameters.js, которая находится в папке C:\inetpub\wwwroot\js
f

Код

unction GetParameter(pName) { // Сам метод я нашёл на просторах интернета.

search = window.location.search; // window.location - это по сути URL, метод search этого объекта возвращает часть адреса после символа "?", включая символ "?".

begin = search.indexOf(pName) + pName.length + 1; // Вычисляем позицию начала строки значения параметра для вырезания. +1 - в нашем случае это знак "=".
Итого, для search = "?user=007" мы найдём позицию начала равной 6 (нумерация с нуля).
end = search.indexOf('&', begin); // Находим позицию конца выражения. В нашем случае, разделение параметров осуществляется знаком "&", и если мы его не найдём,
то позицией конца будет последний символ строки search (смотри дальше код).

if (end == -1) {
end = search.length;
};

return unescape(search.substring(begin, end)); // Метод unescape возвращает строку, содержащую данные типа charString (не знаю зачем это надо,
но видимо такое приведение типа здесь необходимо). Ну а метод substring - извлекает подстроку из строки.

}
Теперь рассмотрим библиотеку connect1c.js, которая также находится в папке C:\inetpub\wwwroot\js
function Inquiry1C(pUser, pCommand) { // Основной метод этой библиотеки. Запрос к 1С.

XMLHTTP = CreateRequestObject(); // Создание XML HTTP запроса. Сам метод я узнал из википедии.

XMLHTTP.open('POST', '../TestWeb/ws/Input.1cws', true, "Admin", "1"); // Создаём соединение типа POST, где второй параметр - адрес; параметр true - значит асинхронное,
то есть браузер не будет ждать ответа сервера, а продолжит работу; далее пользователь и пароль с правами на операцию InputData (этот тот метод, который мы написали в 1С),
саму операцию можно выполнять в привилегированном режиме, чтобы не мучиться с правами для пользователя Admin.

XMLHTTP.onreadystatechange = function() {WhenAnswering1C(XMLHTTP)}; // Когда 1С отработает, автоматически сработает метод WhenAnswering (о нём чуть ниже по тексту этой библиотеки).

XMLHTTP.send(''
+ ' '
+ ' '
+ ''
+ pUser + ' '
+ ''
+ pCommand + ' '
+ ' '); // Отправка XML запроса, где описывается метод к исполнению в 1С, с переданными параметрами из нашей строки URL.
// Строку запроса можно раскурить минут за 5

}

function CreateRequestObject() { // Чудо метод из википедии "Пример использования". По сути, ничего сложного.
if (typeof XMLHttpRequest === 'undefined') {
XMLHttpRequest = function() {
try { return new ActiveXObject("Msxml2.XMLHTTP.6.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP.3.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP"); }
catch(e) {}
try { return new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e) {}
throw new Error("This browser does not support XMLHttpRequest.");
};
}
return new XMLHttpRequest();
}

function WhenAnswering1C(pXMLHTTP) { // Метод, который срабатывает после обработки запроса 1С.

status = StausRequest(pXMLHTTP); // Вычисляется статус для отправки сообщения пользователю (о нём чуть ниже).
document.getElementById("response1C").appendChild(document.createTextNode(status)); // Вывод на экран в помеченную область response1C (о ней я писал в основном файле).
Метод getElementById возвращает ссылку на узел документа.
Метод appendChild добавляет нод в конце списка дочерных нодов элемента, т.е. встраивает в нашу область нужный нам текст.

}

function StausRequest(pXMLHTTP) // Определение статуса.
{
status = "";
if (pXMLHTTP.readyState == 4) { // Опять же, читая википедию можно понять, readyState - это текущее состояние объекта (0 — не инициализирован, 1 — открыт,
2 — отправка данных, 3 — получение данных и 4 — данные загружены).
if (pXMLHTTP.status != 200) { // status - HTTP-статус в виде числа (404 — «Not Found», 200 — «OK» и т. д.)
status = "Запрос завершился неудачно. Ответ сервера: " + pXMLHTTP.responseText; // responseText -текст ответа на запрос.
Если состояние не 3 или 4, возвращает пустую строку.
}
else {
if (RequestSuccessful(pXMLHTTP)) { // Проверка ответа от 1С (о нём чуть ниже).
status = "Запрос отработан.";
}
else {
status = "Запрос был отклонён.";
};

};
};

return status;
}

function RequestSuccessful(pXMLHTTP) { // Проверка ответа от 1С. Здесь мы получим возвращаемое от 1С значение (в нашем случае 1С может вернуть тип булево).

DOM = pXMLHTTP.responseXML.getElementsByTagName("return")[0]; // responseXML - Текст ответа на запрос в виде XML, который затем может быть обработан посредством DOM.
Если состояние не 4, возвращает null.
response = DOM.childNodes[0].data; // Достаём данные из ответа.

return response == "true"; // Если правда, то правда

По правде, я не смог преобразовать сроку в булево, поэтому пришлось оставить так.

}

Проверка
Открываем браузер и вводим строку "localhost/?user=007&command=hello world!":
title

После чего можно открыть 1С и убедиться что создался элемент справочника:
title

На этом пример ознакомления управления 1С извне можно считать законченным

Автор: Soloist

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Идентификация Web сервисов 1C

1. Если на web сервере стоит Anonymous access
1.1 В базе нет пользователей – идеальный вариант для тестирования web-сервиса, чтобы не заморачиваться…
1.2 Если хочется, чтобы вэб сервис работал под определенным пользователем 1С. Добавляем в файл default.vrd строку идентификации типа:
ib='Srvr="SERVER";Ref="TEST";usr=Администратор;pwd=*****'
1.3 HTTP Basic идентификация: (http://en.wikipedia.org/wiki/Basic_access_authentication)

Если на превый запрос вы получаете окно идентификации, можете туда забить логин и пароль. У меня на Firefox c русскими пользователями это не работает. Делаем английского пользователя и все нормально коннектиться. Но все-таки интересно как это происходит – смотрим в Firefox Web-console:
title

Хорошо.что это стандартная идентификация. значит мы ее может использовать программно:
И добавляем в ajax запрос параметр Authorization. Преобразуем строку “sikudaws:123456″ при помощи Base64:

Код

$.ajax({
url: sikudaULRWebService,
type: "POST",
contentType: "text/xml",
dataType: "text",
data: soapEnv,
contentType: "text/xml charset='utf-8'",
Authorization: "Basic c2lrdWRhd3M6MTIzNDU2"
}).success( function(dataResponce) {...

Преобразовывать строки в Base64 b и назад можно здесь: http://rumkin.com/tools/compression/base64.php
И получаем идентификацию сразу. УРА.
Это даже легче PОST идентификация тонкого клиента:
http://its.1c.ru/db/v83doc#content:16:1(Требуется доступ по ITS)
title

2. Идентификация средствами операционной системы в 1С к сожалению решается предыдущим способом. Требует введения имени и пароля пользователя Windows и не дает какого либо преимущества. Ее рассматривать не будем.

Источник: sukuda

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Настройка веб-клиента 1С:Предприятие 8.2 под Windows 7 x64 и IIS

Возникла необходимость отладить небольшую конфигурацию 1С:Предприятие 8.2 под веб-клиентом. Веб сервером был выбран IIS, являющийся самым родным для ОС Windows. Опыт использования этого сервера в Windows XP подсказывал, что с ним будет меньше проблем чем с Apache, но на недавно установленной Windows 7 x64 все оказалось не так просто. Мелкие проблемы начались с момента попытки публикации веб приложения, а после их устранения коснулись уже веб сервера, настройкой которого платформа 1С:Предприятие 8.2 не занимается.

Героически победив все свалившиеся напасти, решил скомпоновать и выложить на всеобщее обозрение свои шаги в достижении цели.

Шаг 1. Доустановка компонентов IIS.

Для работы веб-клиента 1С:Предприятия необходимы службы IIS, которые небыли установлены по умолчанию при установке Windows 7 x64.

Для их установки следует перейти "Пуск - Панель управления - Программы и компоненты - Включение или отключение компонентов Windows". В появившемся дереве, в ветке "Службы IIS – Компоненты разработки приложений" отметить все компоненты, как показано на рисунке. Затем нажать кнопку "Ок".
title

Шаг 2. Разрешение 32-разрядных приложений в пуле приложений.

Веб-клиент 1С:Предприятия 8.2 является 32-разрядным приложением. Поэтому для 64-разрядной ОС необходимо разрешить работу оных в пуле приложений сервера IIS. Для этого необходимо перейти "Пуск - Панель управления – Администрирование – Диспетчер служб IIS". В диспетчере служб выбрать "Пулы приложений – DefaultAppPool – Дополнительные параметры". В списке дополнительных параметров переменной "Разрешены 32-разрядные приложения" установить значение "True".
title

Шаг 3. Установка удостоверения пула приложений в качестве удостоверения анонимного пользователя.

По умолчанию в качестве анонимного пользователя установлен пользователь IUSR, которого нет в системе. Дабы не создавать оного можно просто включить удостоверение пула приложений в качестве удостоверения анонимного пользователя. Для этого необходимо перейти "Пуск - Панель управления – Администрирование – Диспетчер служб IIS". В диспетчере служб перейти в "Проверка подлинности – Анонимная проверка подлинности". В открывшемся диалоге отметить "Удостоверение пула приложений". Закрыть диалог, нажав кнопку "ОК".
title

Вроде бы ничего не забыл. Ну а дальше публикуем веб-клиента (в конфигураторе "Администрирование – Публикация на веб-сервере") и наслаждаемся результатом, запустив отладку (в конфигураторе "Отладка – Начало отладки – Веб клиент: начать отладку").
title

Автор: provlax

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Как открыть справочник ЗначениеСвойствОбъектов с отбором по Владельцу?

Добрый день!
Модифицирую отчет, возникла необходимость дать пользователю возможность отбора по свойству документа. Возможные значения хранятся в справочнике ЗначениеСвойствОбъектов, не могу понять как его можно открыть с отбором только по конкретному свойству...

http://s1.ipicture.ru/uploads/20130427/ZNgmIZFK.jpg

http://s1.ipicture.ru/uploads/20130427/4MjX2Eqe.jpg

Категория: 1С Общие вопросы - Обычные формы

Как получить информацию о изображении (высота, ширина, размер)?

Платформа 1С версии 8.х предоставляет слабые возможности по работе с изображением.
Для работы с изображениями можно использовать библиотеку Windows Image Acquisition Automation Library. Библиотеку с описанием можно скачать здесь (в Windows 7 уже входит в состав дистриботива).

После того, как загрузили архив, распакуйте. Саму библиотеку wiaaut.dll придется зарегистрировать командой regsvr32. После регистрации доступен COM-объект "WIA.ImageFile". Приведем пример работы:

Код 1C v 8.х

 // Выбор файла

СтандартнаяОбработка = Ложь;

РежимДиалога = РежимДиалогаВыбораФайла.Открытие;

ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалога);

ДиалогВыбораФайла.МножественныйВыбор = Ложь;

ДиалогВыбораФайла.Заголовок = "Задайте имя файла";

ДиалогВыбораФайла.ПолноеИмяФайла = ПолеИмениФайла;

	

ДиалогВыбораФайла.Фильтр = "Все файлы картинок|*.jpg;*.jpeg;*.gif;*.bmp;*.ico;*.png;*.tif;*.*";

Если НЕ ДиалогВыбораФайла.Выбрать() Тогда

	// Если не выбран файл

	Возврат;

КонецЕсли;

	

ПолеИмениФайла = ДиалогВыбораФайла.ПолноеИмяФайла;

	

// Создаем объект

ФайлКартинка = Новый COMОбъект("WIA.ImageFile");

ФайлКартинка.LoadFile(ПолеИмениФайла);



Сообщить("Расширение файла: " + ФайлКартинка.FileExtension);

Сообщить("Высота: " + ФайлКартинка.Height);

Сообщить("Ширина: " + ФайлКартинка.Width);

Сообщить("Размер: " + Окр(ФайлКартинка.FileData.Count / 1024, 2) + " Кб");

Библиотека была протестирована на самых распространенных форматах файлов-картинок: jpeg, gif, bmp, ico, png, tif.
Здесь можно скачать готовую обработку: Скачивать файлы может только зарегистрированный пользователь!

Помимо данных о картинке, библиотека может многое другое: изменить размер изображения, повернуть, получить изображение со сканера и прочее. Надеюсь, мы еще вернемся к этой библиотеке. Источник

Категория: COM-объекты, WMI, WSH

Создание и работа с БД MySQL из 1С

Появилась необходимость выложить часть данных из 1С в открытый доступ большому числу пользователей.
Что бы не нарушать условий лицензирования и обеспечить безопасность данных, было принято решение развернуть новую базу на MySQL. Так как особо модерировать ее никто не хочет, пришлось сделать управление MySQL-ной БД из 1С, и начал с создания структуры БД. Итак:
Создаем 2 справочника неирархических, один подчинен другому.
а. Таблицы
б. Колонки

Таблицы - реквизиты:
Автокод - Булево (Определяет необходимость нумеровать запись уникальным кодом, или отдать нумерование на откуп MySQL)
Таблицы - колонки:
ТипДанных - Число (в коде определим тип хранящихся данных по числу)
Длина - Число (длина хранящихся данных)
МожетБытьНоль - булево (может ли хранится пустое значение)
Связь - СсылкаНа таблицу (С которой есть связь все к одному)

Заполняем значениями справочники...

Теперь подключаемся:

Код 1C v 8.х

 Connection = Новый COMОбъект("ADODB.Connection");

СтрокаПодключения =   "DRIVER={MySQL ODBC 5.1 Driver};OPTION=3;DATABASE=" + константы.lk_БД.Получить() + ";PWD=" + константы.lk_Пароль.Получить() + ";PORT=3306;SERVER=" + константы.lk_Сервер.Получить() + ";UID=" + константы.lk_Пользователь.Получить() + ";";

Connection.Open(СокрЛП(СтрокаПодключения));

Сначала удалим таблицы если они есть:

Код 1C v 8.х

     Результат = Новый COMОбъект("ADODB.Command");

    Результат.ActiveConnection = Connection; // работаем через это соединение

    Результат.CommandTimeOut = Connection.CommandTimeOut; // таков тайм-аут

    Результат.CommandType = "adCmdText";

   

    Запрос = Новый Запрос;

    Запрос.Текст = "ВЫБРАТЬ

    |   Таблицы.Наименование КАК Таблица

    |   ИЗ

    |    Справочник.Таблицы КАК Таблицы";

    ВыборкаТаблиц = Запрос.Выполнить().Выбрать();

    Пока ВыборкаТаблиц.Следующий() Цикл

        Результат.CommandText =        " D_rop TABLE IF EXISTS " + ВыборкаТаблиц.Таблица + " ;";

        Результат.Execute();

    КонецЦикла;

Теперь приступим к созданию таблиц БД:

Код 1C v 8.х

  Запрос = Новый Запрос;

    Запрос.Текст = "ВЫБРАТЬ

    |    Таблицы.Наименование КАК Таблица,

    |    Колонки.Наименование КАК Колонка,

    |    Колонки.ТипДанных,

    |    Колонки.Длина,

    |    Колонки.МожетБытьНоль,

    |    Колонки.Связь.Наименование КАК Связь

    |ИЗ

    |    Справочник.Колонки КАК Колонки

    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Таблицы КАК Таблицы

    |        ПО Колонки.Владелец = Таблицы.Ссылка

    |

    |ИТОГИ ПО

    |    Таблица";

   

    ВыборкаТаблиц = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    Пока ВыборкаТаблиц.Следующий() Цикл

 

        Скрипт =         " CREATE TABLE " + ВыборкаТаблиц.Таблица + " ( " + символ(13) +

        " " + ПолучитьКолонкуID(ВыборкаТаблиц.Таблица) + " int(11) NOT NULL " + ?(Справочники.Lk_Таблицы.НайтиПоНаименованию(ВыборкаТаблиц.Таблица).АвтоКод,"auto_increment","") + "," + символ(13);

       

        Выборка = ВыборкаТаблиц.Выбрать();

        Строчека = "" ;

        Ключики = "";

       

        Пока Выборка.Следующий() цикл

         Строчека = Строчека + "`" + Выборка.Колонка + "` " + ПолучитьПродолжениеСкрипта(Выборка.ТипДанных,Выборка.длина,Выборка.МожетБытьНоль) + "," + символ(13);

           

            ЕСли ЗначениеЗаполнено(Выборка.Связь) Тогда

                Ключики = Ключики + ", KEY `FK_" + ВыборкаТаблиц.Таблица + "-" + Выборка.Колонка + "` (`" + Выборка.Колонка + "`),

                | CONSTRAINT `FK_" + ВыборкаТаблиц.Таблица + "-" + Выборка.Колонка + "` FOREIGN KEY (`" + Выборка.Колонка + "`) REFERENCES `" + Выборка.Связь + "` (`" + ПолучитьКолонкуID(Выборка.Связь) + "`)" + Символ(13)    ;   

            КонецЕсли;               

        КонецЦикла;

       

        Скрипт = Скрипт + Строчека;

        Скрипт = Скрипт + "  PRIMARY KEY  (" + ПолучитьКолонкуID(ВыборкаТаблиц.Таблица) + ") " + символ(13) +  Ключики +

        " ) ENGINE=InnoDB DEFAULT CHARSET=utf8;";

        Сообщить("Таблица создана: " + ВыборкаТаблиц.Таблица);

        Результат.CommandText =        скрипт;

        Результат.Execute();

     КонецЦикла;

    Connection.Close();

И под закуску недостающие функции, использованные в основном тексте:

Код 1C v 8.х

 Функция ПолучитьКолонкуID(зн) экспорт

    ПрефиксКончился = Ложь;

    Колонка = "";

    Для сч = 1 по СтрДлина(зн) Цикл

              Символик = Mid(зн,Сч, 1);

             

          Если ПрефиксКончился Тогда

        Колонка = Колонка + Символик;     

          КонецЕсли;

 

             

              Если Символик = "_" Тогда

                  ПрефиксКончился = Истина;

              КонецЕсли;

             

          КонецЦикла;

          Если Колонка = "" Тогда

              Колонка = зн;

          КонецЕсли;

          Колонка = Колонка + "ID";

          Возврат Колонка;

КонецФункции

Предполагается что название таблиц идут с префиксом например: prefix_NameTable

Код 1C v 8.х

 Функция ПолучитьПродолжениеСкрипта(ТипД,ДлинаД,Ноль) экспорт

   

    Если ТипД = 1 тогда  //строка

     Зн = " varchar(" + Строка(ДлинаД) + ") " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 2 Тогда     //число

     Зн = " int(11) " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 3 Тогда          //смаллчисло

     Зн = " smallint(6) " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли типД = 4 тогда    //текст

     Зн = " text";

    ИначеЕсли ТипД = 5 тогда // дата

     Зн = " date " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 6 Тогда          //смаллчисло

     Зн = " bit(1) " + ?(Ноль, "null","NOT NULL");

 ИначеЕсли ТипД = 7 Тогда // Дата и время

          Зн = " dateTime " + ?(Ноль, "null","NOT NULL");

 КонецЕсли;   

         

    Возврат Зн;

КонецФункции

Источник

Категория: COM-объекты, WMI, WSH

Порядок заполнения платежных поручений на уплату платежей в бюджет в 1С: УТ

В обновлении 10.3.10 типовой конфигурации «Управление торговлей, ред.10.3» порядок заполнения платежных поручений на уплату платежей в бюджет приведен в соответствие с Приказом Минфина РФ №102н от 01.10.2009 «О внесении изменений в приказ Министерства финансов РФ от 24.11.2004 №106н «Об утверждении Правил указания информации в полях расчетных документов на перечисление налогов, сборов и иных платежей в бюджетную систему РФ».

Перечисление денежных средств в бюджет и внебюджетные фонды, в таможню, по аренде государственного имущества и подобные платежи в адрес разного рода государственных структур оформляются документом «Платежное поручение исходящее».

Для оформления платежа можно:

- выбрать операцию «Перечисление налога»;

- выбрать другую операцию документа, перейти на закладку «Перечисление в бюджет» и установить флажок «Перечисление в бюджет».

Исключения: закладка «Перечисление в бюджет» невидима при выборе вида операции «Перевод на другой счет» и «Перечисление денежных средств подотчетнику».

ПЕРЕЧИСЛЕНИЕ НАЛОГА

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

На закладке «Перечисление в бюджет» нужно заполнить поля 101, 104 – 110 платежного поручения.

Порядок заполнения этих реквизитов соответствует Приказу Минфина РФ №102н от 01.10.2009 «О внесении изменений в приказ Министерства финансов РФ от 24.11.2004 №106н «Об утверждении Правил указания информации в полях расчетных документов на перечисление налогов, сборов и иных платежей в бюджетную систему РФ».

Правила заполнения полей 104 – 110 определяются выбранным в платежном поручении видом перечисления в бюджет:

- Налоговый платеж - используется для перечисления в бюджет налогов, сборов и других платежей, администрируемых налоговыми органами;

- Таможенный платеж - используется для перечисления в бюджет таможенных и иных платежей от внешнеэкономической деятельности;

- Иной платеж - используется для всех прочих перечислений денежных средств в бюджет (при аренде или покупке имущества, за услуги, оказанные государственными органами, административные платежи и сборы и т.д.). Вид перечисления «Иной платеж» устанавливается по умолчанию для всех видов операции, кроме операции «Перечисление налога».

ПЕРЕЧИСЛЕНИЕ ТАМОЖЕННОГО ПЛАТЕЖА

Для перечисления таможенного платежа в документе «Платежное поручение исходящее» нужно выбрать вид операции «Прочие расчеты с контрагентами», указать контрагента (таможню), сумму платежа, договор (с видом «Прочее»). Затем перейти на закладку «Перечисление в бюджет» и на этой закладке установить флажок «Перечисление в бюджет», указать вид перечисления «Таможенный платеж», заполнить другие необходимые реквизиты.
title

Перечисление таможенного платежа

Платежное поручение распечатывается или передается в программу «Клиент-банка». При поступлении выписки банка в платежном поручении ставится флажок «Оплачено».

ПЕРЕЧИСЛЕНИЕ ПЛАТЕЖА ЗА АРЕНДУ ГОСУДАРСТВЕННОГО ИМУЩЕСТВА

Для перечисления платежа за аренду госимущества в документе «Платежное поручение исходящее» нужно выбрать вид операции «Оплата поставщику», указать контрагента (госучреждение, управляющее имуществом), сумму платежа, договор (с видом «С поставщиком»). Затем перейти на закладку «Перечисление в бюджет» и на этой закладке установить флажок «Перечисление в бюджет», указать вид перечисления «Иной платеж», заполнить другие необходимые реквизиты.
title

Перечисление платежа за аренду государственного имущества

Платежное поручение распечатывается или передается в программу «Клиент- банка». При поступлении выписки банка в платежном поручении ставится флажок «Оплачено».

Александр Шадривов, источник.

Категория: 1С Управление торговлей 10.3