1с
Евгений//***Новый пользователь***
НовыйПользователь = ПользователиИнформационнойБазы.СоздатьПользователя();
НовыйПользователь.Имя = "Имя";
НовыйПользователь.ПолноеИмя = "Фамилия Имя Отчество";
НовыйПользователь.АутентификацияСтандартная = Истина;
НовыйПользователь.Пароль = "пароль";
НовыйПользователь.Роли.Добавить(Метаданные.Роли.Администратор);
НовыйПользователь.ПоказыватьВСпискеВыбора = Ложь;
НовыйПользователь.Язык = Метаданные.Языки.Русский;
НовыйПользователь.Записать();
----------------------------------------
//***Проверка карт***
Функция АлгоритмЛуна(ШтрКод) Экспорт
N = СтрДлина(ШтрКод)+1;
sum = 0;
Для i = 1 по N-1 Цикл
p = Сред(ШтрКод,N-i,1);
Если(i/2 <> Цел(i/2) ) Тогда
p = 2*p;
Если (p > 9) Тогда
p = p - 9;
КонецЕсли;
КонецЕсли;
sum = sum + p;
КонецЦикла;
sum = (sum/10) - Цел(sum/10);
Если (sum <> 0) Тогда
sum = 10 - sum*10;
КонецЕсли;
Сообщить("Контр.число ="+sum);
Возврат sum;
КонецФункции
-------------------------------------
//***Мобильное приложение***
Функция ПолучитьПрокси(Параметры = Неопределено,Таймаут = 0) Экспорт
Если Параметры = Неопределено Тогда
АдресСервера = Константы.АдресЦентральнойБазы.Получить();
Пользователь = Константы.ПользовательДляОбмена.Получить();
Пароль = Константы.ПарольДляОбмена.Получить();
Иначе
АдресСервера = Параметры.Адрес;
Пользователь = Параметры.Пользователь;
Пароль = Параметры.Пароль;
КонецЕсли;
Определение = Новый WSОпределения(АдресСервера, Пользователь,
Пароль,, ?(Таймаут = 0,60,Таймаут),
Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Неопределено));
Прокси = Новый WSПрокси(Определение, "http://1c.enginf.ru/office/", "WebBonuces", "WebBonucesSoap12",,
?(Таймаут = 0,60,Таймаут), Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Неопределено));
Прокси.Пользователь = Пользователь;
Прокси.Пароль = Пароль;
Возврат Прокси;
КонецФункции
Функция Десериализовать(XMLСтруктураСериализованногоОбъекта) Экспорт
ЧтениеXMLДанных = Новый ЧтениеXML;
ЧтениеXMLДанных.УстановитьСтроку(XMLСтруктураСериализованногоОбъекта);
ТЗ = СериализаторXDTO.ПрочитатьXML(ЧтениеXMLДанных);
ЧтениеXMLДанных.Закрыть();
Возврат ТЗ;
КонецФункции
Функция Сериализовать(ТаблицаДляВыгрузки) Экспорт
ДеревоВОбъектеXDTO = СериализаторXDTO.ЗаписатьXDTO(ТаблицаДляВыгрузки);
МойXML = Новый ЗаписьXML;
МойXML.УстановитьСтроку();
ФабрикаXDTO.ЗаписатьXML(МойXML, ДеревоВОбъектеXDTO);
Возврат МойXML.Закрыть();
КонецФункции
-------------------------------------
//***Разобрать входные данные***
&НаСервере
Процедура Команда1НаСервере()
Для каждого Строка из СтрРазделить(Реквизит1,Символы.ПС,Ложь) Цикл
Для каждого Стр из СтрРазделить(Строка,Символы.Таб,Ложь) Цикл
КонецЦикла;
КонецЦикла;
КонецПроцедуры