Яндекс, Google, Рамблер Карты и 1С Обработка демонстрирует возможности интеграции 1С с картографическими сервисами, в ней поддерживается работа трех поставщиков услуг / карт — Яндекс, Google. Рамблер.
Автор: Діма Головаченко - http://smaylukk.com.ua
но так вот сама обработка + еще 2 :
Скачивать файлы может только зарегистрированный пользователь!
Код Модуля Обработки:
Код 1C v 8.х Перем СтруктураПоставщиковКарт Экспорт;time
Код Формы Управляемой:
Код 1C v 8.2 УП Категория:
COM-объекты, WMI, WSH Excel файл как Внешний источник данных Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто.
1. В конфигурации добавляет новый объект метаданных типа "Внешние источники данных" и назовем его просто "Excel".
2. На закладке "Данные" созданного объекта "Excel" добавляем новую таблицу. При этом появится окно мастера добавления таблицы внешнего источника.
Выбираем первый пункт "Вручную", т.к. лично у меня второй пункт "Выбрать из списка таблиц внешнего источника данных" работает нестабильно.
Если Вы все же хотите попробовать добавить таблицу через второй пункт, то в качестве строки соединения в появившемся окне указываем:
Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Documents and Settings\Admin\Мои документы\finance3.xls; DriverID=790
В этой строке укажите путь к своему файлу. Имя пользователя и пароль я не указывал.
Отмечу, что путь к файлу и строка соединения в дальнейшем не запоминается и нужны эти параметры единожды, чтобы создать автоматически описание полей таблицы источника.
Если соединение прошло нормально, то должен отобразиться список таблиц источника. Флажком можно выбрать нужную таблицу и ее поля.
3. Даем имя новой таблице "Данные". Переходим на вкладку таблицы "Данные". В поле "Имя в источнике данных" указываем имя листа в файле Excel и добавляем в конце знак "$". В моем случае это "Данные$". В табличной части "Поля" добавляем поля и редактируем их тип.
У каждого поля в свойствах должно быть задано как минимум "Имя" и "Имя в источнике данных".
4. Создаем процедуру в которой пишем подключение к источнику и запрос:
Код 1C v 8.х ПараметрыСоединения = Новый ПараметрыСоединенияВнешнегоИсточникаДанных; time КАК Время,
Вот и все!
Источник:
passion-programmer
Параметры соединения для файла Excel выглядят вот так:
Файлы XLSX (версия Office 2007 и выше)
Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=D:\ФайлExcel.xlsx;
Файлы XLS (ранее)
Driver={Microsoft Excel Driver (*.xls)}; DriverID=790; DBQ=D:\ФайлExcel.xls; Категория:
Внешние источники данных Обмен между базами через 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">Time "/>
Автор:
Абазин Антон Категория:
WEB-сервисы, WS-ссылки, XDTO-пакеты Преобразование даты 1С в unixtime (Unix Time Stamp) Как известно, unixtime содержит количество секунд, прошедших с 1 января 1970 года. Поэтому, для преобразования даты 1С в дату unixtime нам всего то нужно от нашей даты отнять дату 01.01.1970 и перевести получившееся значения в удобоваримый формат.
Код 1C v 8.х unixtime = Формат(ТекущаяДата() - дата(1970,1,1,1,0,0), "ЧГ=0");
Соответственно, для обратного преобразования нам надо дату unix
time прибавить к дате 01.01.1970:
Код 1C v 8.х Дата1С = дата(1970,1,1,1,0,0) + unixtime ; Готовые функции:
Код 1C v 8.х
Функция ПолучитьUnixTS(ПараметрДата) Возврат УниверсальноеВремя( ПараметрДата) - '19700101 ';
КонецФункции Код 1C v 8.х //время 1с Time ) Time ); Категория:
Работа с Датами (Временем) Работа с форматом JSON в 1С При обмене данными с веб-сайтами зачастую используется формат JSON. К сожалению, в 1С нет стандартных процедур для работы с данным форматом. В процессе реализации одного из проектов мной был разработан ряд процедур и функций облегчающих жизнь программисту 1С при работе с данными в формате JSON.
Преобразование строки JSON в структуру 1С.
Для преобразования строки JSON в структуру 1С служит функция ЗаполнитьСтруктуруИзJSON().
Код 1C v 8.х Функция ЗаполнитьСтруктуруИзJSON(<ТекстJON>)
<ТекстJSON> (обязательный) - строка в формате JSON,
которую необходимо преобразовать в структуру.
Возвращаемое значение.
Тип Структура.
Имя значения задается в структуре как Ключ, а само значение, соответственно, как значение. Поддерживаются также вложенные значение ("{}" в "{}") и массивы. В таких случаях тип значения будет Структура и Массив соответственно. Если у в JSON задан только массив, то сформируется структура с одним элементом с ключом "Значение" и типом "Массив". Ниже приведены поясняющие примеры:
Код 1C v 8.х СтрокаJSON = "{"" server"" :"" 10234"" ,"" user"" :"" 3745"" ,"" hash"" :"" 8263ad83ce"" }" ;
Результат = ЗаполнитьСтруктуруИзJSON( СтрокаJSON) ;
Сообщить( "server:" + Результат. server + "
|user:" + Результат. user + "
|hash:" + Результат. hash) ;
СтрокаJSON = "{"" server"" :"" 10234"" ,"" users"" :["" 3745"" ,"" 7462"" ,"" 2374"" ],"" hash"" :"" 8263ad83ce"" }" ;
Результат = ЗаполнитьСтруктуруИзJSON( СтрокаJSON) ;
Сообщить( "server:" + Результат. server + "
|hash:" + Результат. hash) ;
для каждого user ИЗ Результат. users Цикл
Сообщить( "user: " + user) ;
КонецЦикла ;
СтрокаJSON = "{"" server"" :"" 10234"" ,"" users"" :[{"" id"" :"" 3745"" ,"" name"" :"" Jack"" },{"" id"" :"" 7462"" ,"" name"" :"" Nick"" }>" ;
Результат = ЗаполнитьСтруктуруИзJSON( СтрокаJSON) ;
Сообщить( "server:" + Результат. server) ;
для каждого user Из Результат. users Цикл
Сообщить( "user id: " + user. id +
", user name: " + user. name) ;
КонецЦикла ;
СтрокаJSON = "["" Nissan"" ,"" Ford"" ,"" Audi"" ]" ;
Результат = ЗаполнитьСтруктуруИзJSON( СтрокаJSON) ;
для каждого Авто Из Результат. Значение Цикл
Сообщить( Авто) ;
КонецЦикла ;
Следует заметить, что все значения заполняются как строковые (тип "Строка"). Последующее преобразование (например, к числу) лежит на самом разработчике.
Формирование строки JSON в 1С.
Для формирования строки в формате JSON в 1С предназначена функция СформироватьСтрокуJSON().
Код 1C v 8.х Функция СформироватьСтрокуJSON(<Объект>)
<Объект> (обязательный) - объект, который необходимо
преобразовать в формат JSON. Может иметь тип "Структура",
"Массив" или "ТаблицаЗначений".
Если Объект имеет тип "ТаблицаЗначений", то она рассматривается как массив из структур, соответствующих колонкам ТЗ. Все значения приводятся к строковому типу, дата приводится в формат unix
time , значение типа булево "Истина" преобразуется в строку "true", а "Ложь" - в "false, прочие объекты просто преобразуются как "Строка(Объект)".
Ниже приведены поясняющие примеры.
Код 1C v 8.х
Данные = Новый Структура( "server,user,hash" ,
10234 , 3745 , "8263ad83ce" ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Данные = Новый Массив;
Данные. Добавить( "Nissan" ) ;
Данные. Добавить( "Ford" ) ;
Данные. Добавить( "Audi" ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Данные = Новый Структура;
Данные. Добавить( "server" , 10234 ) ;
Данные. Добавить( "users" , Новый Массив) ;
Данные. Добавить( "hash" , "8263ad83ce" ) ;
Данные. users. Добавить( 3745 ) ;
Данные. users. Добавить( 7462 ) ;
Данные. users. Добавить( 2374 ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Данные = Новый Структура;
Данные. Вставить( "server" , 10234 ) ;
Данные. Вставить( "users" , Новый Массив) ;
Данные. users. Добавить( Новый Структура( "id,name" , 3745 , "Jack" ) ) ;
Данные. users. Добавить( Новый Структура( "id,name" , 7246 , "Nick" ) ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
ТаблПользователей = Новый ТаблицаЗначений;
ТаблПользователей. Колонки. Добавить( "id" ) ;
ТаблПользователей. Колонки. Добавить( "name" ) ;
НоваяСтрока = ТаблПользователей. Добавить( ) ;
НоваяСтрока. id = 3276 ;
НоваяСтрока. name = "Jack" ;
НоваяСтрока = ТаблПользователей. Добавить( ) ;
НоваяСтрока. id = 3276 ;
НоваяСтрока. name = "Nick" ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Автор:
Павел Толкачев Категория:
Работа с Интернет, Почтой (Mail), FTP Загрузка данных из текстовых файлов, выбирая SQL запросом данные из этих файлов Часто бывает потребность загружать данные из текстовых форматов, причем информация для загрузки бьется на 2 и более файлов.
Хорошо бы посредством SQL запроса выбирать данные из этих файлов и производить загрузку! Это вполне возможно и я считаю этот способ наиболее грамотный для решения таких задач!
Рассмотрим вариант как это сделать! Имеем 2 файла:
- Head_XXXXX.txt
- Rows_XXXXX.txt
Где XXXXX – порядковой номер пары файлов
Структура строки в Head_XXXXX.txt
Код Колонка1 20 символов – Номер заказа
Структура строки в Rows_XXXXX.txt
Код Колонка1 20 символов – Номер заказа
В каждой паре файлов несколько Заказов. Необходимо загрузить эти заказы в БД 1С
Для этого воспользуемся Microsoft.Jet.OLEDB.4.0
Для того чтоб данный драйвер корректно понимал структуру файлов необходимо в каталоге расположения данных файлов, перед выполнением запросов, создать специальный текстовый файл
schema.ini cо следующими строками:
Код [ Head_XXXXX]Time Width 10Time Width 10Time Width 10
Как видим, здесь мы задаем структуру таблицы из файла.
Остается только выполнить запрос к полученной текстовой БД и обработать результат:
Ниже приведен пример кода для платформы 1С 8:
Код 1C v 8.х // Загружает данные из текстовых данныхTime Width 10Time Width 10Time Width 10
Автор:
Журавлев Михаил Викторович Категория:
Конвертация данных, Обмен, Перенос Как оповестить пользователей из серверного модуля или регламентного задания. Код 1C v 8.2 УП time :30 /server:"+ СокрЛП(Компьютер.Ключ)+" * "+Текст; Категория:
Пользователь, роль доступа, интерфейс Значение параметра Extended Properties для разных версий MS Excel Параметр
Extended Properties=""Excel 8.0;" обозначает версию в котором сохранен файл
* 1997 год — Excel 97(8) — Microsoft Office 97
Примеры
Код 1C v 8.х //подключениеTime out=0; Ссылки по теме:
V8 1С8.1 и Excel 2007 Категория:
Работа с Microsoft Office и OpenOffice Простые примеры реализации демо-версий обработок на платформе «1С:Предприятие 8». Каждый из тех кто продает свой интеллектуальный труд, не раз сталкивался с необходимостью создания демо-версии разработки, дабы продемонстрировать клиенту функциональность, но при этом сохранить для клиента потребность в приобретении полнофункциональной версии. В этой статье я хотел бы рассмотреть несколько не сложных примеров создания демо-версий обработок/отчетов для платформы «1С:Предприятие 8».
Перед тем как приступить, собственно, к сути вопроса, хотелось бы сделать небольшое отступление для «крутых хакеров». Как известно, штатные возможности 1С, не представляют достаточно надежных средств для защиты исходного кода, поэтому приведенные здесь примеры – это исключительно защита от ПОЛЬЗОВАТЕЛЯ и ничего более.
Да и в целом, по моему глубокому убеждению, открытость кода в 1С – это одно из важнейших (если не самое важное) её достоинств. Поэтому я сторонник «установки пароля на модуль, поставки без исходного текста», только в случае демо-версии разработки. А при приобретении обработки, клиент приобретает её ЦЕЛИКОМ, в том числе и исходный код.
Для начала, немного общих моментов. Для того что бы ограничить использование нашего «уникального» функционала, будь-то алгоритм проведения документа или процедура формирования отчета, необходимо вынести код в модуль объекта и скрыть его от пользователя. Это можно достичь двумя путями. Во-первых установка пароля на модуль объекта. Что бы установить пароль, откройте модуль объекта, далее в меню «Текст» выберите пункт «Установить пароль». Во-вторых поставка без исходного кода. Что бы получить обработку/отчет без исходного кода, необходимо сначала создать поставку включающую в себя наш отчет без исходного кода, а затем сохранить его как внешний. Настройка поставки производится в диалоге «Конфигурация > Поставка конфигурации > Настройка поставки».
Итак, пример № 1. Ограничение по времени использования. Заключается в том, что функционал работает в течении определенного, ограниченного времени, например 10 дней. Для этого, нам надо как-то «запомнить» дату первого запуска, сделаем это с помощью реестра Windows.
Код 1C v 8.х Функция СрокДемоЗакончился() Перем Значение;
RegProv= ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ) ;
RegProv. GetStringValue( "2147483649" , "Software\1C\1Cv8\Report" , "StartDate" , Значение) ;
Если Значение= NULL Тогда
RegProv. CreateKey( "2147483649" , "Software\1C\1Cv8\Report" ) ;
RegProv. SetStringValue( "2147483649" , "Software\1C\1Cv8\Report" , "StartDate" , Строка( Формат( ТекущаяДата( ) , "ДФ=ггггММддЧЧммсс" ) ) ) ;
Возврат Ложь ;
Иначе
ДатаСтарта= Дата( Значение) ;
КонецПериода= ДатаСтарта+ 60 * 60 * 24 * 10 ;
ТекДата= ТекущаяДата( ) ;
Возврат НЕ ( ТекДата> ДатаСтарта И ТекДата< = КонецПериода) ;
КонецЕсли ;
КонецФункции
Таким образом, осталось только вставить проверку на продолжение работы в нашу основную процедуру, например:
Код 1C v 8.х Процедура СформироватьОтчет() Экспорт Если СрокДемоЗакончился( ) Тогда
Возврат ;
КонецЕсли ;
…
КонецПроцедуры
Для особо хитрых пользователей, можно сделать запрос точного времени из Интернета, что бы защититься от изменения системного времени. Например, так:
Код 1C v 8.х Функция ТочноеВремяПоГринвичу()time .com/time /scripts/clock-7/x.php",Ложь);
Пример №2. Ограничение по количеству выполнений. То есть к примеру, отчет в демо-версии можно сформировать не более 5-ти раз. Делается аналогично предыдущему варианту, разница заключается лишь в том, что в реестр на этот раз будем записывать номер текущего запуска.
Код 1C v 8.х Функция СрокДемоЗакончился() Перем Значение;
RegProv= ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ) ;
RegProv. GetDWORDValue( "2147483649" , "Software\1C\1Cv8\Report" , "Count" , Значение) ;
ЭтотЗапуск= 1 ;
Если Значение= NULL Тогда
RegProv. CreateKey( "2147483649" , "Software\1C\1Cv8\Report" ) ;
Иначе
ЭтотЗапуск= Значение+ 1 ;
КонецЕсли ;
Если ЭтотЗапуск< = 5 Тогда
RegProv. SetDWORDValue( "2147483649" , "Software\1C\1Cv8\Report" , "Count" , ЭтотЗапуск) ;
Возврат Ложь ;
Иначе
Возврат Истина ;
КонецЕсли ;
КонецФункции
Пример №3. Реализация защиты «пароль-ответ». Недостаток предыдущих способов, заключается в том, что полнофункциональная версия является отдельной разработкой, которую клиенту необходимо переслать, привести, установить и т.д. При использовании же, следующего способа, всё что потребуется для получения полной версии разработки – это зарегистрировать обработку, т.е. ввести правильный код.
Суть этого способа состоит в том, что при запуске у клиента формируется некий уникальный ключ, для которого, по только нам известному алгоритму, можно сформировать «ответный пароль». И в случае совпадения пары ключ-ответ обработка считается успешно зарегистрированной.
В качестве такого уникального ключа можно, к примеру, использовать серийный номер жесткого диска, MAC-адрес, имя пользователя и т.д. Рассмотрим пример с серийным номером жесткого диска.
Код 1C v 8.х Функция ПолучитьСерийныйНомерЖесткогоДиска(Диск) = Новый COMОбъект( "Scripting.FileSystemObject" ) ;
ФСО_Диск= ФСО. GetDrive( Диск) ;
Возврат ФСО_Диск. SerialNumber;
КонецФункции
Алгоритм получения «ответного значения» по ключу, ограничен лишь Вашей фантазией. Здесь же, в качестве примера, я буду использовать простую перестановку символов в обратном порядке.
Код 1C v 8.х Функция ПолучитьОтветПоКлючу(Ключ) = СтрДлина( Ключ) ;
Результат= "" ;
Пока н< > 0 Цикл
Результат= Результат+ Сред( Ключ, н, 1 ) ;
н= н- 1 ;
КонецЦикла ;
Возврат Результат;
КонецФункции
Таким образом, наша процедура проверки и подтверждения регистрации будет выглядеть так:
Код 1C v 8.х Функция ЭтоЗарегистрированнаяКопия() Перем Значение, Ответ;
RegProv= ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ) ;
RegProv. GetDWORDValue( "2147483649" , "Software\1C\1Cv8\Report" , "Registered" , Значение) ;
Если Значение= NULL Тогда
Регистрация= Ложь ;
Ключ= ПолучитьСерийныйНомерЖесткогоДиска( "C" ) ;
Если ВвестиСтроку( Ответ, "Ключ: " + Ключ) Тогда
Если Ответ= ПолучитьОтветПоКлючу( Ключ) Тогда
RegProv. SetDWORDValue( "2147483649" , "Software\1C\1Cv8\Report" , "Registered" , 1 ) ;
Регистрация= Истина ;
Иначе
Предупреждение( "Регистрационный код введен не верно!" ) ;
КонецЕсли ;
КонецЕсли ;
Возврат Регистрация;
Иначе
Возврат Истина ;
КонецЕсли ;
КонецФункции
Осталось только вставить проверку регистрации в нашу основную процедуру:
Код 1C v 8.х Процедура СформироватьОтчет() Экспорт Если НЕ ЭтоЗарегистрированнаяКопия( ) Тогда
. . .
КонецЕсли ;
. . .
КонецПроцедуры
На данный момент, существуют различные декомпиляторы, плагины к Total Commander и др. разработки, позволяющие получить исходный программный код, даже если он закрыт паролем или поставляется в скомпилированном варианте. Дабы чуть-чуть усложнить жизнь пользователям умеющим пользоваться Google, можно ключевые моменты алгоритма, такие как работа с реестром или проверка регистрационного кода, дополнительно вынести во внешний шифрованный скрипт.
Начиная с Windows Script 5.0, появилась возможность чтения зашифрованных сценариев машинами сценариев. Поэтому любой сценарий написанный на VBScript или JavaScript, может быть выполнен в зашифрованном виде. Что бы преобразовать код на VBScript в зашифрованный вид, воспользуемся бесплатной утилитой «Windows Script Encoder», которую можно скачать с сайта Microsoft. В результате, например скрипт создания в реестре Windows раздела «HKEY_CURRENT_USER\Software\1C\1Cv8\Report», будет выглядеть следующим образом:
#@~^ZAAAAA==jY~UtVV{ZMnlD+64N+^OvJU^DbwYcj4+^Vr#@#@&j4VsR"noqDrOPJuF;jw?KWDhCM+ 'FZ'F;-%'InwKDOwr~\(HE^V@#@&hyAAAA==^#~@
Приведу пример функции, осуществляющей проверку введенного пользователем регистрационного кода, с использованием шифрованного скрипта:
Код 1C v 8.х Функция ПроверитьРегистрационныйКод(Код) = Новый COMОбъект( "MSScriptControl.ScriptControl" ) ;
Скрипт. Language= "VBScript.Encode" ;
Скрипт. AddCode( "#@~^ewAAAA==o!x^DkKxP;t" + Символ( 127 ) + "^3v|nX*@#@&7zx/SnD{4wCs/" + Символ( 127 ) + "@#@&d(0~F" + Символ( 127 ) + "XxJ9^+Rl{qOv0q*rPPt" + Символ( 127 ) + "U,bUkh" + Символ( 127 ) + "D'74:.E" + Символ( 127 ) + "P3x9P(W@#@&d;4+13'zUdh" + Символ( 127 ) + "D@#@&3x[~wEUmDrW hyQAAA==^#~@ " ) ;
Возврат Скрипт. CodeObject. Check( Код) ;
КонецФункции
Эта функция вернет «Истина», если в качестве регистрационного кода передать ей строку «dce8a7196f14». Аналогичным образом можно скрыть и всю работу с реестром. Но, тем не менее, не следует забывать о существующих специализированных программных продуктах, позволяющих отслеживать чтение и запись реестра.
В заключении, хочется сказать, что как известно, надежная защита для программного продукта – это такая защита, стоимость взлома которой, превышает стоимость законного приобретения. Поэтому для крупных проектов следует использовать более надежные средства от незаконного копирования и использования, такие как вынос ключевых функций во внешние dll, аппаратные ключи защиты и пр. Здесь же я попытался привести несколько простых примеров в качестве основ так сказать…
Источник Категория:
Полезные, Универсальные Функции Отправка отчетов из 1С по электронной почте (E-Mail) Автоматическая генерация отчета "Анализ заказов поставщикам"
Отчет анализ заказов является штатным отчетом конфигурации 1С Управление производственным предприятием. Обработка для генерации отчета, рассматриваемая в данной статье, позволяет программно создать и настроить форму отчета, запустить его выполнение. Полученный результат сохраняется в файл Microsoft Excel (XLS, XLSX) и может быть отправлен по электронной почте.
Предлагаемое решение состоит из трех файлов: Скачивать файлы может только зарегистрированный пользователь!
service.vbs служит для запуска 1С предприятия и генерации отчета;
emailer.vbs - VBS скрипт предназначен для отправки результатов выполнения запроса отчета на указанный при настройке адрес электронной почты;
rep_email.epf - сама внешняя обработка для генерации отчета, выполняющая настройки отображаемых показателей, группировок строк и столбцов, установки требуемых отборов отчета, обеспечивает выполнение запроса и формирования табличного документа по макету отчета и сохранение сформированного отчета в XLS файл.
Запуск отчета выполняется посредством VBS файла (vbscript) при помощи "Назначенных заданий". VBS программа обеспечивает запуск приложения 1С, устанавливает соединение с сервером 1С и передает управление внешней обработке через экспортную функцию ReportNow(), размещенную в общем модуле обработки по генерации отчета. Пример VBS Script для выполнения внешней обработки 1С из командной строки:
Код VBS
Set v81 = CreateObject ("V81.Application" )
res = v81.Connect("Srvr=Server1C;Ref = db1C;Usr=User1C;Pwd=Password1C" )
res = v81.ExternalDataProcessors.Create("C:\1C\Service\rep_email.epf" ).ThisObject.Report()
v81.Exit (false )
WScript.Sleep(5000 )
Dim WshShell
Set WshShell = WScript.CreateObject ("WScript.Shell" )
WshShell.Run "C:\1C\ Service\emailer.vbs"
VBS E-Mail скрипт для отправки готового отчета в формате Excel создает новое электронное письмо на заданный адрес, в теле письма указывает пояснение к отчету, а в качестве вложения прикрепляет файл, создание и наполнение информацией которого была произведена при запуске service.vbs
Код VBS 'Отправить сообщение с помощью локальной службы SMTPtime out") = 60
Внешняя обработка по запуску отчета "Анализ заказов поставщику" состоит из двух процедур. Первая - "ReportNow() Экспорт" служит для определения входной точки передачи управления от VBS к 1С. Вторая - "ОткрытьОтчетПоИмени()" - выполняет действия по настройке критериев отбора отчета, группировке строк и столбцов, определению состава количественных показателей. Данный способ вызова отчетов стандартной конфигурации широко применяется в различных формах 1С, и по мере развития конфигурации может быть позаимствован как минимум из нескольких форм списка справочников (Контрагенты, Номенклатура и т.д.). Исходный код первой функции: >
Код 1C v 8.х Процедура ReportNow() Экспорт ( "АнализЗаказовПоставщикам" ) ;
КонецПроцедуры Сохранение отчета из 1С в Excel
Процедура формирования формы отчета принимает в качестве параметра название объекта метаданных конфигурации, в данном случае - "АнализЗаказовПоставщикам". Очевидно, что в зависимости от типа отчета процедура будет меняться пропорционально используемым реквизитам. В рассматриваемом примере добавляется отбор по контрагенту. Для своего ключевого поставщика заменить значение искомого наименования на нужное.
Код 1C v 8.х Процедура ОткрытьОтчетПоИмени(НазваниеОтчета) Экспорт = Отчеты[НазваниеОтчета]. Создать( ) ;
Форма = Отчет. ПолучитьФорму( , , ) ;
Форма. Открыть( ) ;
Отчет. УстановитьНачальныеНастройки( ) ;
ТекОтбор = Отчет. УниверсальныйОтчет. ПостроительОтчета. Отбор. ДоговорКонтрагентаВладелец;
ТекОтбор. Использование = Истина ;
ТекОтбор. Значение = Справочники. Контрагенты. НайтиПоНаименованию( "Поставщик" ) ;
ТекОтбор. ВидСравнения = ВидСравнения. Равно;
Отчет. УниверсальныйОтчет. ПостроительОтчета. Отбор. Добавить( "ОсталосьОтгрузитьЕдиницОтчетов" ) ;
ТекОтбор1 = ОтчетОстатки. УниверсальныйОтчет. ПостроительОтчета. Отбор. ОсталосьОтгрузитьЕдиницОтчетов;
ТекОтбор1 . Использование = Истина ;
ТекОтбор1 . Значение = 0 ;
ТекОтбор1 . ВидСравнения = ВидСравнения. Больше;
Отчет. СостояниеОтгрузкиПоЗаказу = истина ;
Отчет. НеОтгружено = Истина ;
Отчет. ОтгруженоЧастично = Истина ;
Отчет. СформироватьОтчет( ФормаОтчета. ЭлементыФормы. ПолеТабличногоДокументаРезультат) ;
мПутьШаблон= "C:\1C\Service" ;
мФайлШаблон= "ЗаказыПоставщику.xls" ;
ИмяФайла = мПутьШаблон + "\" + мФайлШаблон;
Если Не ИмяФайла = Неопределено Тогда
Форма. ЭлементыФормы. ПолеТабличногоДокументаРезультат. СохранятьСвойстваОтображения = Истина ;
Форма. ЭлементыФормы. ПолеТабличногоДокументаРезультат. Записать( ИмяФайла, ТипФайлаТабличногоДокумента. XLS97) ;
КонецЕсли ;
ФормаОтчета. Закрыть( ) ;
КонецПроцедуры
Для того, чтобы отладить обработку в режиме 1С:Предприятие, запущенного из конфигуратора можно создать экранную форму обработки и разместить в ней следующую процедур автоматического запуска отлаживаемого отчета:
Код 1C v 8.х Процедура ПередОткрытием(Отказ, СтандартнаяОбработка) = истина ;
ОткрытьОтчетПоИмени( "АнализЗаказовПоставщикам" ) ;
КонецПроцедуры
Надеемся, что успешная комбинация внешней обработки для запуска отчета по расписанию и vbscript поможет в автоматизации бизнеса вашего предприятия. Данная редакция настроек больше ориентирована на менеджера поставщика для вашей компании, что отслеживать взаимное движение товаров и документов.
Источник
Руководство компании, хочет получать оперативную сводку продаж по фирме Категория:
Работа с Интернет, Почтой (Mail), FTP Создание писем, событий и задач в MS Outlook из 1С Отправка писем из 1С Предприятия – одна из самых необходимых функций, отсутствующая в штатном функционале платформы. Один из вариантов реализации – это подключение к MS Outlook по технологии OLE. В статье приведены примеры создания писем, событий и задач в MS Outlook из 1С. Автоматическое создание событий и задач используется не часто, но порой бывает очень удобно.
Для 1С 8.х замените
Код 1C v 7.x Outlook = СоздатьОбъект( "Outlook.Application" ) ;
на
Код 1C v 8.х Outlook = Новый COMОбъект( "Outlook.Application" ) ;
так же посмотрите:
Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом
Создание сообщения
Код 1C v 7.x
Процедура СоздатьПисьмо(Адрес,ПутьКВложению) Попытка
Outlook = СоздатьОбъект( "Outlook.Application" ) ;
ЕстьОшибка = 0 ;
Исключение
Предупреждение( "Не удалось создать объект Outlook.Application" ) ;
ЕстьОшибка = 1 ;
КонецПопытки ;
Если ЕстьОшибка = 0 Тогда
Письмо = Outlook. CreateItem( 0 ) ;
Письмо. Subject = "Тема письма" ;
Письмо. Body = "Текст письма" ;
Письмо. Recipients. Add( Адрес) ;
Если ФС. СуществуетФайл( ПутьКВложению) = 1 Тогда
Письмо. Attachments. Add( ПутьКВложению) ;
КонецЕсли ;
Письмо. Display( ) ;
Иначе
Тема = "Тема письма" ;
ТекстПисьма = "Текст письма" ;
СтрокаЗапуска = "mailto:" + Адрес + "?subject=" + Тема + "&body=" + ТекстПисьма;
ЗапуститьПриложение( СтрокаЗапуска) ;
КонецЕсли ;
КонецПроцедуры Создание события
Код 1C v 7.x
Процедура СоздатьСобытие() Попытка
Outlook = СоздатьОбъект( "Outlook.Application" ) ;
Исключение
Предупреждение( "Не удалось создать объект Outlook.Application" ) ;
Возврат ;
КонецПопытки ;
Событие = Outlook. CreateItem( 1 ) ;
Событие. Subject = "Название события" ;
Событие. Start = "15.01.2010 15:00:00" ;
Событие. End = "15.01.2010 16:00:00" ;
Событие. Body = "Описание события" ;
Событие. Location = "Место события" ;
Событие. ReminderMinutesBeforeStart = 15 ;
Событие. BusyStatus = 0 ;
Событие. MeetingStatus = 0 ;
Событие. Sensitivity = 2 ;
Событие. Save( ) ;
Сообщить( "Событие в календаре создано успешно" , "i" ) ;
КонецПроцедуры Создание задачи
Код 1C v 7.x //создать новую задачу из 1С в MS OutlookTime = "" + ДатаСтартаЗадачи + " 9:00:00"; Категория:
Работа с Microsoft Office и OpenOffice Синхронизация времени рабочей станции с сервером В процедуре
ПриНачалеРаботыСистемы() на рабочей станции можно вставить вызов команды
NET TIME для синхронизации с сервером или другим компьютеров, выглядеть это будет примерно так:
Код 1C v 8.х КомандаСистемы("net time \\ИМЯ_СЕРВЕРА /set /yes");
или запуск 1C сделать из батника и там сначала установить время с помощью NET
TIME , а потом и 1с-ку стартануть.
Категория:
Работа с Датами (Временем) Синхронизация системного Времени по запросу Реализовано для защиты от "умных" пользователей, которые делают то что не нужно делать (ручное изменение даты и времени). В рабочей конфигурации используется при синхронизации времени в ЭККА (кассовый аппарат) при закрытии рабочей смены.
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка)time .in.ua");time .txt");time .bat",КодировкаТекста.OEM);time .bat");time .bat";time .txt",КодировкаТекста.OEM);time .bat");time .txt"); Категория:
Работа с Датами (Временем) Прямые запросы к SQL серверу. Как то возникла ситуация, когда в справочник, с включенной проверкой на уникальность кода, из вне приходят элементы с такими же кодами. Отключать проверку нельзя. Пришлось делать затычку.
Подключение к SQL в общем то широко описано:
Код 1C v 8.х Функция Подключение(Сервер,БД)Time Out = 0;Time Out = 0;
Сервер и БД можно получить и программно, но муторно. Эти данные можно взять из свойств БД на сервере 1С.
Название таблицы и полей в SQL можно получить с помощью команды 1С:
Цитата Глобальный контекст
Дальше нам нужно новый элемент справочника все ж таки записать, ну например :
Код 1C v 8.х
Попытка
спр. Записать( ) ;
Исключение
Сообщить( "Не уникальный код " + стр. Код+ " у элемента " + стр. Наименование) ;
Спр. УстановитьНовыйКод( ) ;
Спр. Записать( ) ;
КонецПопытки ;
Все, делаем подмену.
Код 1C v 8.х подключение= Подключение( Сервер, База) ;
ТекстЗапроса= "UPDATE Номенклатура
|SET Номенклатура._Code=" + Формат( КодНужный, "ЧГ=0" ) + "
|FROM _Reference57 AS Номенклатура
|WHERE (CAST(Номенклатура._Folder AS int)=1)
|AND (Номенклатура._Code=" + Формат( Спр. Код, "ЧГ=0" ) + ")
|" ;
подключение. Execute( ТекстЗапроса) ;
Сообщить( "Код " + КодБыл+ " подменен на " + КодНужный) ;
Категория:
Запросы 1C и Google Maps была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было решено использовать геокодирование сервиса Google и Google Visualization для отображение элементов на карте.
Геокодирование – процесс преобразования адресов·(Украина, Киевская область, Киев, Крещатик 20) в географические координаты (широта 37.423021 и долгота -122.083739), которые можно использовать для размещения маркеров или расположения карты. Подробно про геокодирование можно почитать
тут .
Для работы с геокодированием необходимо
зарегистрировать ключ API карт Google .
Важный момент: если у вас программа работает в локальной сети и в Internet, то вам необходимо регистрировать два ключа. В зависимости от того, с какого места подключается пользователь к базе подставлять тот или иной ключ.
И так, собственно программная реализация.
В конфигурации есть две общих формы:
* Форма подбора координат. Данная форма формирует запрос на геокодирование и обрабатывает результат.
* Форма отображения объектов. Данная форма использует
API визуализации Google . В частности данная форма использует визуализацию
Map .
Запрос и обработка результата геокодирования.
Формирование запроса происходит с ключом output=csv, для вывода результата запроса в csv файл. После выполнения запроса проверяется код результата запроса и разбор csv файла на широту и долготу.
Код 1C v 8.2 УП #НаСервере
Процедура ОтправитьЗапросНаПоискКоординат() = Параметры. ОбъектПодбора. Город. Наименование;
Страна = Параметры. ОбъектПодбора. Город. Владелец. Владелец. Наименование;
Адрес = Параметры. ОбъектПодбора. Адрес;
ПараметрПоиска = Страна + " " + Город + " " + Адрес;
АдресOutput = ПолучитьИмяВременногоФайла( ) ;
Ключ = Константы. КлючКарта. Получить( ) ;
ТекстСсылки = "maps/geo?q=" + EncodeURL( ПараметрПоиска) + "&output=csv&oe=utf8&sensor=false&key=" + Ключ;
ПроксиСервер = Неопределено ;
HTTPСервис = Новый HTTPСоединение( "maps.google.com" , , , , ПроксиСервер, Ложь ) ;
ПравильностьВыполнения = Истина ;
Попытка
HTTPСервис. Получить( ТекстСсылки, АдресOutput) ;
Исключение
Сообщить( ОписаниеОшибки( ) , СтатусСообщения. Важное) ;
ПравильностьВыполнения = Ложь ;
КонецПопытки ;
Если ПравильностьВыполнения Тогда
Текст = Новый ТекстовыйДокумент;
Текст. Прочитать( АдресOutput) ;
РезультатПоиска = Текст. ПолучитьСтроку( 1 ) ;
КодРезультата = Лев( РезультатПоиска, 3 ) ;
РезультатПоиска = Сред( РезультатПоиска, 7 , СтрДлина( РезультатПоиска) ) ;
Если КодРезультата <> "200" Тогда
Возврат ;
КонецЕсли ;
Широта = Число( Сред( РезультатПоиска, 0 , 10 ) ) ;
Долгота = Число( Сред( РезультатПоиска, 12 , 10 ) ) ;
КонецЕсли ;
КонецПроцедуры
Формирование карты отображения
При формировании отображения объекта на карте к стандартному коду визуализации добавлен следующий:
Код 1C v 8.х if(!google.visualization) setTime out(checkIfGoogleLoad, 1000);
Это связано с тем, что платформа не хочет сразу обновлять фрейм поля html документа.
Код 1C v 8.2 УП #НаСервереTime out(checkIfGoogleLoad, 1000);Андрей Данилюк Категория:
COM-объекты, WMI, WSH 
Яндекс, Google, Рамблер Карты и 1С 
