www » Поиск » HelpF.pro

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

Получения новостей с RSS-канала сайта buh.ru

Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp
Данный код для 7.7, при использовании в 8-ой версии нужно заменить СоздатьОбъект( на Новый COMОбъект(, остальное вроде так же.

Код 1C v 7.x

 

Функция ВытащитьДату(Стр)

	парсер=СоздатьОбъект("VBScript.RegExp");

	парсер.Global=-1;

	парсер.IgnoreCase =-1;  

	стрМес="Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";

	парсер.Pattern="(\d\d)\s(("+стрМес+"))\s(\d{4})";

	рез = парсер.Execute(Стр);

	Если рез.Count>0 Тогда

		рез_ = рез.Item(0);

		чч=Число(рез_.Submatches(0));

		мст=рез_.Submatches(1);  

		где=Найти(стрМес,мст);

		мм=цел(где/4)+1;

		гг=Число(рез_.Submatches(3));  

		дат=Дата(гг,мм,чч);

	Иначе

		дат=0;

	КонецЕсли;

	Возврат дат;

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



Процедура Сформировать()   

	ТЗ=СоздатьОбъект("ТаблицаЗначений");

	ТЗ.НоваяКолонка("ИД","Число");

	ТЗ.НоваяКолонка("Дата","Дата"); 

	ТЗ.НоваяКолонка("Заголовок","Строка");

	ТЗ.НоваяКолонка("Ссылка","Строка");

	ТЗ.НоваяКолонка("Текст","Строка"); 

	

	Состояние("Получение данных с сайта www.buh.ru");

	

	//ТаймАут поставьте в зависимости от качества подключения

	ТаймАут=100000;

	

	IE=СоздатьОбъект("InternetExplorer.Application");

	IE.navigate("http://www.buh.ru/rss/rss-2.0.jsp");

	Пока IE.readyState<4 Цикл

		ТаймАут=ТаймАут-1;

		Если ТаймАут=0 Тогда

			Предупреждение("Не удалось получить данные с сайта www.buh.ru",10);

			Возврат;

		КонецЕсли;

	КонецЦикла;        

	

	//версия 0.1 для v7plus.dll 

	//ХМЛ=СоздатьОбъект("AddIn.XMLParser");  

	//ХМЛДок=ХМЛ.СоздатьДокумент();

	//ХМЛДок.Загрузить(oIE.document.XMLDocument); 

	//Выборка=ХМЛДок.ВыбратьУзлы("//item");

	//Для ии=0 По Выборка.КоличествоУзлов()-1 Цикл 

	//	ЭлНовость=Выборка.ПолучитьУзел(ии);

	//	ТЗ.НоваяСтрока();

	//	ТЗ.Дата=ВытащитьДату(ЭлНовость.ВыбратьУзел("./pubDate").Текст);

	//	ТЗ.Заголовок=ЭлНовость.ВыбратьУзел("./title").Текст;

	//	ТЗ.Ссылка=ЭлНовость.ВыбратьУзел("./link").Текст;

	//	ТЗ.Текст=ЭлНовость.ВыбратьУзел("./description").Текст;

	//КонецЦикла; 

	

	//версия 0.2 для MSXML

	ХМЛДок=СоздатьОбъект("MSXML2.DOMDocument");;

	ХМЛДок.async=0;

	ХМЛДок.resolveExternals=0;

	ХМЛДок.load(IE.document.XMLDocument); 

	Выборка=ХМЛДок.selectNodes("//item");

	Для ии=0 По Выборка.length-1 Цикл 

		ЭлНовость=Выборка.item(ии);

		ТЗ.НоваяСтрока();

		ТЗ.Дата=ВытащитьДату(ЭлНовость.selectSingleNode("./pubDate").text);

		ТЗ.Заголовок=ЭлНовость.selectSingleNode("./title").text;

		ТЗ.Ссылка=ЭлНовость.selectSingleNode("./link").text;

		ТЗ.Текст=ЭлНовость.selectSingleNode("./description").text;

	КонецЦикла; 

    //Все. Мы получили ТЗ с последними новостями

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

К сожалению, автор не известен.

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

Технологический журнал 1С v8.1

Технологический Журнал (далее ТЖ) позволяет протоколировать все события 1С:Предприятия (или часть, используя фильтр).
ТЖ настраивается с помощью файла logcfg.xml в папку программы C:\Program Files\1cv81\bin\conf, пример структуры файла (включить запись событий DBMSSQL):

Код

< config xmlns="http://v8.1c.ru/v8/tech-log">
< log history="168" location="C:\Program Files\1Cv81\bin\logs">
< event>
< eq property="name" value="dbmssql"/>
< /event>
< property name="all"/>
< /log>
< dump create="1" location=location="C:\Program Files\1Cv81\bin\dumps" type="2" />
< /config>

1. Для успешного создания логов, нужно создать каталоги для логов (например C:\Program Files\1cv81\bin\logs) и дапмов (например C:\Program Files\1cv81\bin\dumps),
где в случае аварийного завершения ТЖ создаст дамп памяти и копию экрана для передачи разработчикам.
Важно иметь в виду, что в каталог ТЖ при некоторых его настройках могут выводится данные очень большого объема. Поэтому, либо на диске С: должно быть достаточно места, либо каталог ТЖ необходимо изменить.
Для работы ТЖ необходимо, чтобы пользователи, от имени которых запускаются приложения 1С:Предприятия (как клиентские, так и серверные), имели полные права на каталог ТЖ (C:\Program FiIes\1cv81\bin\logs), и право на чтение выше лежащего каталога (C:\Program Files\lcv81).
Примечание. Если все равно не пишется ТЖ, то дать права всем на эту папку (временно, чтобы убедиться что дела в правах).

В каталоге технологического журнала не должно быть посторонних файлов. Каталог, в котором имеются посторонние файлы не позволит создавать журнал (логи).
Место хранения dumps и logs не хранить вместе, потому что через указанный интервал (по умолчанию 1 час) содержимое польностью перетирается и вы потеряете дампы

2. ТЖ лучше настраивать (с помощью фильтров - тэгов logcfg.xml) только на исследуемые события, остальное не собирать, иначе словите "отсутствие места на диске" и тормоза в быстродействии сервера.
Легче выполнять настройку фильтров с помощью обработки с ИТС НастройкаТехнологическогоЖурнала.epf, но при этом помнить, что новые фичи последних релизов в обратке могут отстутствавать (каждая новая версия добавляет новые возможности, в обработки они не отражены). В этом случаи корректировать файл logcfg.xml руками.

Структура конфигурационного файла

Корневым элементом конфигурационного файла является элемент < config>, который определяет настройки ТЖ. он может содержать несколько элементов < log> и один < dump>

< log> определяет каталог ТЖ:
history = количество часов, через которое инфа будет удалятся из ТЖ.
location = Каталог в котором сохраняются логи

Код

< log history="168" location="C:\Program Files\1Cv81\bin\logs">
...
< /log>

Элемент < dump> определяет каталог в который будут записываться дампы аварийного завершения

Код

< dump create="1" location=location="C:\Program Files\1Cv81\bin\dumps" type="2" />

< event> - этим элементом определяется условие, при выполнении которого событие будет записано в ТЖ. Условия записываются элементами:
eq = равно
ne = не равно
gt = больше
ge = больше или равно
lt = меньше
le = меньше или равно
like = соответсвие маске

property - атрибут задает название события
value - атрибут задает значение события, ниже пример в котором в ТЖ будут регистрироваться события относящиеся к группе с именем "dbmssql"

Код

< event>
< eq property="name" value="dbmssql"/>
< /event>

Доступны следующие имена групп, с выходом новых версий платформы возможны добавления новых групп:
PROC - события, относящиеся к процессу целиком и влияющие на дальнейшую работоспособность процесса(старт, завершение, аварийное завершение и т.д.);
SCOM - события создания или удаления серверного контекста, обычно связанного с информационной базой;
ЕХСР - исключительные ситуации приложений системы Предприятие 8.1, которые штатно не обрабатываются и могут послужить причиной аварийного завершения серверного процесса или подсоединенного к нему клиентского процесса;
EXCPCNTX - события, которые начались, но не закончились в момент возникновения нештатной ситуации;
SDBL - события, связанные с исполнением запросов к модели базы данных системы 1С:Предприятие 8.1;
QERR - события, связанные с обнаружением ошибок компиляции запроса или ограничения на уровне записей и полей базы данных.
PERR - события, связанные с обнаружением ошибок работы с настройками пользователя;
CONN - установка или разрыв клиентского соединения с сервером;
ADMIN - управляющие воздействия администратора кластера серверов;
DBV8DBErg - исполнение операторов SQL файловой СУБД;
DBMSSQL - исполнение операторов SQL СУБД Microsoft SQL Server;
DBPOSTGRS - исполнение операторов SQL СУБД PostgreSQL;
DB2 - исполнение операторов SQL СУБД DB2,
CALL - удаленный вызов.
TLOCK - управление транзакционными блокировками в управляемом режиме.

Следует заметить, что на клиентском компьютере могут возникать только те события, которые отсносятся к группам PROC, ЕХСР, SDBL Также на клиентском компьютере могут возникать события из группы DBVBDBEng, если используется файловый вариант работы системы 1С:Предприятие 8.1.
Также следует заметить, что события из групп PROC, SCOW, ЕХСP, CONN и ADMIN возникают относительно и содержат малое количестово информации, в то время как регистрация событий из групп SDBL, DBVPCBE v и DBMSSQL может привозить к значительному росту ТЖ.

3. Чтобы логи перестали собираться достаточно переименовать файл, перезапускать сервер не надо, настройки пересчитываются каждую минуту "на лету"

4. Настроить logcfg.xml для фильтрации событий по определённой ИБ нужно использовать "p:processName="
5. Дополнительные примеры настроек взятые с форумов
6. Дополнительные примеры настроек на сайте 1С

7. Понятно, что собрать логи мало, их еще нужно обработать для решения конкретной задачи.
Файлы ТЖ могут быть просмотрены с помощью любого текстового редактора, но через блокнот ТЖ сложно читаем, так как:
- Требует хорошего понимания архитектуры работы системы
- Тексты запросов регистрируются на внутреннем языке 1С:Предприятия и на языке DBMS
Файлы технологического журнала хранятся в подкаталогах. Имя каждого подкаталога технологического журнала одного процесса будет иметь вид: < ИмяПроцесса>_< ИдентификаторПроцесса>, например: rphost_4076. Имя файла журнала задается шаблоном ГГММДДЧЧ.log. Например, в журнале 07051819.log имя файла образовано от 2007 мая 18, 19 часов)
Журнал для анализа можно выгрузить в эксель, используя разделителем запятую например
1С:ЦУП использует для своих аналитических показалей логи технологического журнала. При использовании ЦУП другие данные собираться не должны, удалите logcfg.xml вручную, ЦУП сам создаст файл с нужными настройками.

Других парсеров логов от 1С нет, есть ObrabotkaTehnologiceskogoGurnala.epf

8. Возможные ошибки и доп. информация:
- ищем логи в каталоге на сервере хотя для 64 разрядного сервера другой каталог программы
- отследить не завершившийся запрос; событие технологического журнала DBMSSQL выводится только в момент окончания выполнения запроса. Если запрос долго не может выполниться, то его выполнение можно прервать, после чего будут выведены в технологический журнал связанные с ним события.

В статье использованы материалы с http://www.gilev.ru/1c/81/techlog/index.htm

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

Сохранение и восстановление данных в Хранилище значений.

Хранилище значений - это тип, который появился в 8-ой версии 1С позволяющий сохранять прямо в базе различные данные, включая двоичные данные (произвольные файлы). Например, так можно хранить в базе данных JPG-картинки, Word-документы и т.д. Причем данные будут храниться в самой базе (файле 1CD или в таблицах на SQL-сервере) и будут включены в штатную выгрузку базы или резервную копию средствами SQL Server.

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

Примеры:

Код 1C v 8.х

 //Изображение, картинки (фотки):



ТекИзображение.Объект = СпрТкани.Ссылка;

ТекИзображение.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;

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

ТекИзображение.Хранилище = Хранилище.Получить();



// в этом месте он все выводит ...



ЭлементыФормы.ПолеКартинки1.Картинка = Хранилище.Получить();

ТекИзображение.Записать();

Код 1C v 8.х

 

//Табличный документ:

Процедура СохранитьВХранилищеНажатие(Элемент)

    ТабДок=Новый ТабличныйДокумент;    

    ТабДок.Вывести(ЭлементыФормы.ПолеТабличногоДокумента1);

    Хранилище=Новый ХранилищеЗначения(ТабДок);

    Записать();

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



Процедура ВосстановитьИзХранилищаНажатие(Элемент)

    ТабДок=Хранилище.Получить();

    Если ТабДок<>Неопределено Тогда

        ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(ТабДок);

    КонецЕсли;

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

Код 1C v 8.х

  //Произвольные файлы (двоичные данные):



ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(файл));

Восьмерка поддерживает сжатие данных, помещаемых в хранилище:

Код 1C v 8.х

 ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(файл),Новый СжатиеДанных(9));

Код 1C v 8.х

 //Внешние обработки и отчеты:



Процедура ЗагрузитьОбработкуВХранилище(РеквизитТипХранилище)

   СтепеньСжатия = Новый СжатиеДанных(9); //9 максимум   

   РеквизитТипХранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные("c:\отчеты\отчет.epf", СтепеньСжатия));

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

  

Процедура ЗапуститьОбработкуИзХранилища(РеквизитТипХранилище)

   ИмяВременногоФайла = КаталогВременныхФайлов()+"отчет.epf";

   ДвоичныеДанные = РеквизитТипХранилище.Получить();

   ДвоичныеДанные.Записать(ИмяВременногоФайла);

   ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяВременногоФайла);

   ВнешняяОбработка.ПолучитьФорму().Открыть();

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

Если это были ДвоичныеДанные, то их можно восстановить из хранилища значения методом Получить и записать в файл методом Записать().

Код 1C v 8.х

 Если ТипЗнч(Хранилище) <> Тип("ДвоичныеДанные") Тогда

    ДвоичныеДанные = Хранилище.Получить();

Иначе

    ДвоичныеДанные = Хранилище;

КонецЕсли; 

ДвоичныеДанные.Записать(ИмяФайла);

Если это был, например, Word-документ (doc-файл, или другой файл зарегистрированного типа), то его можно открыть так:

Код 1C v 8.х

 ЗапуститьПриложение(ИмяФайла);

Чтобы очистить поле типа Хранилище значения, нужно присвоить ему Неопределено:

Код 1C v 8.х

  РеквизитХранилище = Неопределено;

Если в Хранилище значений содержались какие-то ссылки, то они не будут контролироваться при контроле ссылочной целостности (операция Удаление помеченных объектов или метод НайтиПоСсылкам).

К сожалению, 1С не содержит встроенных методов для проверки того, заполнено хранилище или нет.
Такой вариант не работает:

Код 1C v 8.х

 фл=Хранилище<>Неопределено;

Работает только такой вариант:

Код 1C v 8.х

 фл=Хранилище.Получить()<>Неопределено;

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

Источник

Категория: Работа с Хранилищем Значений

Получения курса валют из Интернет

Код 1C v 8.х

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение

ИмяФайла = ПолучитьИмяВременногоФайла(".txt");

//строка-образец

//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1

//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1

СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";

СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");



Попытка //соединяемся

Соединение.Получить(СтрокаСоединения,ИмяФайла);

Исключение

Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);

КонецПопытки;



КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса

КурсыТекст.Прочитать(ИмяФайла);

Код 1C v 8.х

  // еще пример

 Функция ПолучитьКакСтроку(Адресс) 

	соминет = Новый COMОбъект("MSXML2.XMLHTTP");

	соминет.open ("GET", Адресс, Ложь);

	соминет.send();

	Возврат соминет.responseText;

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



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

	// Медот преобразования даты времен 1Сv7

	//Т=Строка(Дат);

	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);

	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");

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



Процедура КнопкаЗагрузитьКурсы(Элемент)

	//Список - список валют	

	Для А = 1 по Список.Количество() цикл

		Если Список[а-1].Пометка тогда

			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));

			Код = Строка(Список[а-1].Значение.Код);

			Дат = ПериодС;

			Пока Дат <= ПериодПо цикл

				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");

				Поз = Найти(Стр,Символы.Таб);

				Если Поз = 0 Тогда

					Дат = Дат + 86400;

					Продолжить;

				КонецЕсли;					

				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));

				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));

				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));

				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();

				Запись.Период = Дат;

				Запись.Валюта = Список[а-1].Значение.Ссылка;

				Запись.Курс = Курс;

				Запись.Кратность = Кратность;

				Запись.Записать(Истина);

				Дат = Дат + 86400;                   

			КонецЦикла;				

		КонецЕсли;			

	КонецЦикла;		

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

Код 1C v 7.x

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

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

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



//*******************************************

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

// Параметры:

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



//*******************************************

// кнПолучить()

//

// Параметры:

//  Нет

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

процедура кнПолучить()

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

    // отправим запрос для обработки серверу

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

    // создадим объект для управления скриптами

    олеШелл = создатьобъект("MSScriptControl.ScriptControl");

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

    // для ускорения парсера занесем весь файл в строковую

    // переменую с разделителем строк

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

    // загрузим содержимое нашего файла в поток

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

    // в цикле получим из потока все строки

    пока олеАДО.EOS() = 0 цикл

        // и запишем их во временную переменую, добавив разделитель строк

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

    фс.УдалитьФайл(стрИмяФайла);

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

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

        // создаим временную таблицу значений

        // для более шустрого заполения из-за отстуствия вызова

        // функции перерисовки таблицы при изменении данных

        тзТемп = создатьобъект("ТаблицаЗначений");

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

            // добавляем новую строку

            тзТемп.НоваяСтрока();

            // получаем строку со смещением 1 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

            // за сколько единиц валюты имеем курс в тенге

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

            // получаем строку со смещением 2 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

            // получаем строку со смещением 5 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

            // очищаем от мусора и преобразуем в число... получаем курс

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

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

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



//*******************************************

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);

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

Хранение записей о внешних компонентах в реестре Windows

Зарегистрированная внешняя компонента хранится в реестре следующим образом:
Предположим, что у нас есть внешняя компонента E:\Events\Events.dll.
В 1С мы пишем:

Код 1C v 7.x

 

ЗагрузитьВнешнююКомпоненту("e:\Events\Events.dll");

vk=СоздатьОбъект("Addin.Events");

Теперь зайдем в программу regedit.exe (Пуск-Выполнить-Regedit.exe).

Если регистрация прошла успешно, то в реестре мы увидим следующие записи (я сделал поиск по подстроке "AddIn.Events" в редакторе реестра regedit.exe, нажав сочетание клавиш Ctrl-F):

Код

[HKEY_CLASSES_ROOT\AddIn.Events\Clsid]
@="{2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397}"

[HKEY_CLASSES_ROOT\CLSID\{2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397}]
@="V7 AddIn 2.0"

[HKEY_CLASSES_ROOT\CLSID\{2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397}\InprocServer32]
@="E:\\Events\\Events.dll"

[HKEY_CLASSES_ROOT\CLSID\{2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397}\ProgID]
@="AddIn.Events"

Значение {2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397} является уникальным для каждого OLE-объекта идентификатором (CLSID). Его должен явно задать разработчик в коде внешней компоненты.

Значение ProgID, которое в нашем случае - "AddIn.Events" также задает разработчик внешней компоненты.

Чтобы в реестре появились эти записи, необходимы права доступа:

Начиная с Windows 2000, обычный пользователь не имеет прав доступа к указанным выше ветвям реестра. Нужны права или администратора, или привилегированного пользователя Windows. После первой загрузки компонента пропишет себя в реестре, и ее смогут использовать и непривилегированные пользователи Windows.

Где 1С ищет внешнюю компоненту?

Если при загрузке внешней компоненты вы не указываете полный путь, такой как E:\Events\Events.dll или сетевой путь наподобие \\ВашСервер\ПапкаГдеЛежатВК\Events.dll, то 1С ищет внешние компоненты

-относительно папки 1Cv7\BIN (КаталогПрограммы())
-относительно каталога информационной базы (КаталогИБ())

Метод ЗагрузитьВнешнююКомпоненту(), обнаружив ВК по новому пути, обновляет ее регистрацию в реестре

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

В 1С:Предприятие 8.0 убрана возможность загрузки ВК относительно каталога ИБ.

В 7.7 же, чтобы избежать проблем, всегда убирайте ВК из каталога ИБ, и прописывайте полные пути (или складывайте DLL в общую для всех пользователей папку BIN).

Кардинальное решение проблемы - VKLoader и RegsvrEx

Имеется компонента VKLoader.dll (автор - Александр Орефков), которая позволяет решить проблемы с регистрацией компонент.

http://openconf.1cpp.ru/vk/vkloader/

Цитата:
"vkloader (далее ВК) - внешняя компонента для 1С-Предприятия 7.7, которая может загружаться без ее регистрации в реестре, и загружать другие внешние компоненты без их регистрации. Предназначена для беспроблемной загрузки внешних компонент пользователями, не имеющими прав на запись в HKCR ветку реестра.
Принцип работы основан на перехвате обращения 1С к WinAPI функциям CLSIDFromProgID и CoCreateInstance.
Также ВК решает проблему "зависания" процесса 1С в памяти при закрытии программы при использовании несовсем корректно написанных сторонних внешних компонент".

Пример использования vkloader:

Код 1C v 7.x

 ЗагрузитьВнешнююКомпоненту("vkloader.dll"); //регистрации не требует

Загрузчик = СоздатьОбъект("ЗагрузчикВК");

Результат = Загрузчик.ЗагрузитьВК("Events.dll", "Addin.Events=2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397");

Замечу, что сама vkloader "умеет" загружать себя без прав доступа к реестру.

Еще одно решение: RegsvrEx

Автор - AlexQC.
Регистрирует компоненты (OLE-объекты) в пользовательской ветке реестра.
RegsvrEX

Пример использования:

Код 1C v 7.x

 Попытка

    Объект=СоздатьОбъект("cool.object");

Исключение

    ИмяДЛЛ=КаталогИБ()+"cool.ocx";

    КомандаСистемы(КаталогИБ()+"regsvrex.exe /s /c "+ИмяДЛЛ);

    Попытка

        Объект=СоздатьОбъект("cool.object");

    Исключение

        Сообщить("Ошибка загрузки компоненты: "+ИмяDLL,"!");

    КонецПопытки;

КонецПопытки;

Источник: kb.mista.ru

Категория: Внешние компоненты

Открытие интернет страницы в Internet Explorer

Код 1C v 8.х

 

 СтрокаПоиска="1c-ovec.ru"

 АдресПоиска="http://www.yandex.ru/yandsearch?text="+СтрокаПоиска;

 

 //Пример через COMОбъект

 ИЕ = Новый COMОбъект("InternetExplorer.Application");

 ИЕ.Navigate(АдресПоиска);

 ИЕ.Visible = 1;

 Пока ИЕ.ReadyState<>4 Цикл

	 ОбработкаПрерыванияПользователя();;

 КонецЦикла;

 

 

 //Хотя проще будет так:

 ЗапуститьПриложение(АдресПоиска);

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

Установка ключей защиты для 8.1

1)НЕ СТАВЬТЕ МЕНЕДЖЕР ЛИЦЕНЗИЙ В ТЕРМИНАЛЕ (точнее устанавливайте в 0-й сессии, запуская %SystemRoot%system32mstsc.exe /console
2) сначала ставьте менеджер лицензий, и только потом устанавливайте сетевой ключ
3) если клиент 1С 8.0 видит ключ, это не значит что увидит 8.1 (файл теперь обычно C:Program Files1cv81inconf
ethasp.ini)
4) в терминале локальные ключи не видны, надо в nethasp.ini прописывать в явном виде место расположения сетевого ключа и менеджера лицензий
NH_SERVER_ADDR = 192.168.159.1 ;;(IP-адрес должен быть правильный)
5) клиент 8.1 сначала ищет локальный ключ и если его находит, никогда не будет искать сетевой
6) несколько сетевых ключей или локальный и сетевой ключ на один компьютер ставить нельзя
7) для серверной части 1С надо бывают ТОЛЬКО ЛОКАЛЬНЫЕ НЕ КЛИЕНТСКИЕ ключи
Здорово серверный 64 битный ключ (он зеленый) поддерживает 32битный сервер, в том числе 8.0, но серверный 32битный ключ не поддерживает 64битный сервер 1С
9) для SQL ключей не надо, он не проверяет даже купленные свои лицензии, но покупать их надо : )
10) если большая нагрузка в сети и много клиентов, то менеджер лицензий может не успеть выдать лицензию : ), чтобы это решить, увеличьте интервал опроса к менеджера лицензий клиентов в C:Program Files1cv81inconf
ethasp.ini
NH_SESSION = 5
NH_SEND_RCV = 4
NH_USE_BROADCAST = Disabled
И ограничьте в C:Program FilesAladdinHASP LM nhsrv.ini компьютеры с которых могут подключаться пользователи, например
NHS_IP_LIMIT = 10.24.2.18-99
11) для 64битных менеджеров лицензий или просто свежие скачайте драйвера с http://www.aladdin.ru/support/download/category260
12) на сервере с менеджером лицензий должен быть статический ip-адрес
13) при большом количестве пользователей раздавайте менеджеры лицензий для каждого клиента персонально, указывая конкретный компьютер
NH_SERVER_ADDR = 192.168.159.1 ;;(IP-адрес должен быть правильный)

Источник: http://www.gilev.ru

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

Ошибка Windows Sockets 10054

Причины возникновения
Причины этой ошибки разняться по своей "природе", но их объединяето то, что уже существующее (т.е. ранее установленое) соединение с клиентом разрывает сервер.

1. С версии 8.1.11 включен циклический перезапуск процессов, по наступлению интервала происходит автоматический перезапуск рабочих процессов rphost.

2. В некоторых случаях причиной ошибки могут стать утечки памяти.

3. Действия администратора в консоли (команда удалить пользователя)

4. Процесс rphost на серверном компьютере завершился аварийно

5. Ошибочное принятие высокой интенсивности пользователей за атаку на протокол в некоторых случаях Windows

6. Устаревание данных в кэшах

7. Плохо отслеживаемые события в фоновых процессах

8. Нестандартные запросы могут приводить к падениям rphost

Способы устранения
1. с 8.1.11 включен циклический перезапуск процессов, для анализа этого события на компьютере сервера 1С:Предприятия необходимо включить запись в технологический журнал событий PROC (пример файла logcfg.xml).
Когда процесс выключается, будет выведено событие PROC со свойством Txt=Process become disable.
Когда процесс останавливается, будет выведено событие PROC со свойством Txt=Process terminated. Any clients finished with error. Если аварийные завершения работы пользователей совпадают по времени с выводом этого события, то причиной является принудительная остановка рабочего процесса либо администратором (через консоль кластера), либо вследствие автоматического перезапуска.

2. перезагрузить сервер
3. убедиться, что причиной являются/не являются действия администратора в консоли
4. создать на сервере приложения два или более рабочих процесса, чтобы иметь возможность переподключиться в случаи сбоя рабочего процесса
5. Запусти программу regedit.exe, добавь новое значение типа DWORD с именем SynAttackProtect в раздел реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\ и присвой ему значение 00000000
Имеет смысл делать для ОС Windows 2003 SP1 (http://msdn.microsoft.com/ru-ru/library/ms189083.aspx).

6. arp -d *
ipconfig /flushdns
ipconfig /registerdns
nbtstat -R
nbtstat -RR

7. отключить фоновые процессы во всех базах

8. найти технологическим журналом запрос, приводящий к падению

p.s. Кроме того, 54 ошибку можно получить на релизах <= 8.1.12.98 при ри конвертации конвертором ИБ 77(DBF) -> 81(SQL) в типовой ТиС (демо, взятой с ИТС) релиз. 954 в клиент-серверном варианте.

обойти можно так:

- выполните конвертацию в файловый фариант информационной базы 1С:Предприятия 8.1,
- выгрузите полученную информационную базу в файл,
- загрузите в клиент-серверный вариант информационной базы 1С:Предприятия 8.1.

Подробнее на www.gilev.ru

Категория: Системные Ошибки

Формат, функция форматирования значений

Код 1C v 8.х

 

//Функция формирует удобное для чтения представление значений.



// Примеры форматирования чисел

ЗначФормат = Формат(123456.789, "ЧЦ=10; ЧДЦ=2");      // ЗначФормат = "123 456,79"

ЗначФормат = Формат(123456.789, "ЧГ=0; ЧДЦ=2");      // ЗначФормат = "123456,79"

ЗначФормат = Формат(123456.789, "ЧРД='-'");           // ЗначФормат = "123 456-789"

ЗначФормат = Формат(-123456.789, "ЧО=0");             // ЗначФормат = "(123 456,789)";

ЗначФормат = Формат(13, "ЧЦ=5; ЧВН=; ЧГ=0");      // ЗначФормат = "00013";



//В 8 версии для вывовода чисел прописью используется ЧислоПрописью

ЧислоПрописью(Сумма, "L=ru_RU", Валюта.ПараметрыПрописиНаРусском)  

ЧислоПрописью(1457.25,"L=en_US","dollar, dollars, cent, cents, 2"); // One thousand four hundreds fifty seven dollars 25 cents. 

ЧислоПрописью(Сумма,"Рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2");



//Пример представления Числа в виде Даты

ЗначФормат = Формат(25021949, "ЧЦ=8; ЧРГ=.; ЧВН=; ЧГ=4,2,0");      // ЗначФормат = "25.02.1949"



// Примеры форматирования дат

ЗначФормат = Формат('20020820153309', "ДФ=""дд ММММ гггг 'г.' ЧЧ:мм:сс""");     // ЗначФормат = "20 августа 2002 г. 15:33:09"

ЗначФормат = Формат('20020820153309', "ДФ=""дд/ММ-гггг""");                     // ЗначФормат = "20/08-2002"

ЗначФормат = Формат('20020820153309', "ДФ='q ""кв."" yyyy'"); 		            // ЗначФормат = "3 кв. 2002";

ЗначФормат = Формат('20020820153309', "ДФ='""Итого"" q ""квартал""'") ;	   // ЗначФормат = "Итого 3 квартал";

ЗначФормат = Формат('20020820153309', "ДФ='ММММ гггг'");  		            // ЗначФормат = "Август 2002 г.";

ЗначФормат = Формат('20020820153309', "ДЛФ=ДД");                                // ЗначФормат = "20 августа 2002 г.";

ЗначФормат = Формат('20020820153309', "ДЛФ=Д");                                 // ЗначФормат = "20.08.2002";

ЗначФормат = Формат('20020820153309', "ДЛФ=В");                                 // ЗначФормат = "15:33:09";



ЗначФормат = Формат('20020820153309', "ДФ=HHmmssyyyyMMdd");                                 // ЗначФормат = "15330920020820";

ЗначФормат = Формат('20020820153309', "ДФ=HH:mm:ss yyyy MM dd");                                 // Время 24 часа  - ЗначФормат = "15:33:09 2002 08 20";

ЗначФормат = Формат('20020820153309', "ДФ=hh:mm:ss yyyy MM dd");                                 // Время 12 часов - ЗначФормат = "03:33:09 2002 08 20";



Формат(Дата(2009, 1, 1), "ДЛФ=DD") + ", " + ОпределитьДеньНедели(ДеньНедели(Дата(2009, 1, 1)));   // 1 января 2009 г., Четверг (Смотрите в "Работаем с Датами" Функция Определить день недели)

Формат(Дата(2009, 1, 1), "ДФ=ММММ") + ", " + Формат(Дата(2009, 1, 1), "ДФ=yyyy") + " г.";         // Январь, 2009 г.

Формат(НачалоНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г. - " + Формат(КонецНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г."; // 29 декабря 2008 г. - 04 января 2009 г.



// ДЕКАДУ нельзя вывести через формат, но можно так:

Строка(Цел(День(Дата('20020820153309')) / 10) + 1)+" декада"  = 2 декада



// Примеры форматирования логических выражений

ЗначФормат = Формат(Истина, "БЛ=Отсутствует; БИ=Доступен");                     // ЗначФормат = "Доступен";

ЗначФормат = Формат(Ложь, "БЛ=Нет; БИ=Да");                     				// ЗначФормат = "Нет";

Код 1C v 7.x

 

// Символы, определяющие тип форматируемых данных: 

// Ч — число (Англоязычный синоним: N)  

ЗначФормат = Формат(123.15, "Ч(0)10.2") // 0000123.15

Долг = Строка(Формат(Долг(), "Ч12.2")) + " " + Валюта.Сокр_назв;



// Возможен вывод денежных величин и просто целых чисел прописью. В этом случае форматная строка должна иметь вид "ЧПДС".

// Наличие буквы "П" (в английском варианте для аналогичной цели используется буква "S") определяет сам факт вывода числа прописью. 

// Символ "Д" (в английском варианте — "M") обозначает вывод денежной величины и является необязательным. 

// Символ "С" (в английском варианте — "H") также необязателен и означает вывод с копейками.

ИтогоСуммаПрописью  = Формат(Итог("Сумма"), "ЧПДС");

КоличествоНаименованийПрописью = Формат(КоличествоСтрок(), "ЧП");



// С — строка (Англоязычный синоним: S) 

// "Сn", где n — положительное целое число определяющее ширину поля, в котором будет размещаться строка. 

// В случае, если ширина поля превосходит длину строки сформатированная строка будет дополнена справа пробелами, если же ширина поля меньше длины строки — строка будет усечена справа.





// Д — дата (Англоязычный синоним: D)

ДатаДокумента = Формат(Док.ДатаДок,"Д ДД.ММ.ГГ");  //12.03.08

ДатаДокумента = Формат("01.01.1999", "Д(0)ДДММММГГГГ"); // 01 Января 1999 г.



//Для форматирования даты используется форматная строка вида "Д<ПодстрокаФормата>", где <Подстрока Формата> представляет собой строку, определяющую вид сформатированного представления даты:

//DDMMYY (ДДММГГ)  дата в виде ДД.ММ.ГГ 

//DDMMYYYY (ДДММГГГГ)  дата в виде ДД.ММ.ГГГГ 

//DDMMMMYYYY (ДДММММГГГГ)  дата в виде ДД месяц прописью ГГГГ 

//(0)DDMMMMYYYY ((0)ДДММММГГГГ) этот формат представляет собой вариант предыдущего формата с тем отличием, что число месяца всегда выводится двумя цифрами, т. е. для чисел меньших 10 спереди будет добавлен 0. Например: Формат('01.01.1999', ' 'Д(0)ДДММММГГГГ' ') = 01 Января 1999 г. 

//MMMMYYYY (ММММГГГГ) дата в виде месяц прописью ГГГГ 

//MMMMYY (ММММГГ) дата в виде месяц прописью ГГ 

//ММММ (ММММ) дата в виде месяц прописью 

//QQQQYYYY (ККККГГГГ) дата в виде N квартала ГГГГ 

//QQQQYY (ККККГГ) дата в виде N квартала ГГ 

//QQQQ дата в виде N квартала 

//YYYYMMDD (ГГГГММДД) дата в виде ГГГГММДД, то есть дата '10.11.1998' будет представлена как строка "19981110" 

//WWWW (HHHH) выводит наименование дня недели, соответствующее указанной дате. Наименования дней недели берутся из файла прописи.

Категория: Встроенные Функции

Ошибка : HASP Device Driver not installed (-100)

При включении / перезагрузке компьютера под управлением Windows XP из автозагрузки не загружается Сервер защиты с сообщением об ошибке: HASP Device Driver not installed (-100).
Драйвер защиты загружается медленнее, чем Сервер защиты из автозагрузки.

Решение проблемы:
Вместо Сервера защиты (NHSRVW32.EXE) использовать Менеджер лицензий LMSETUP, устанавливаемый в качестве службы (Service) Windows.
Менеджер лицензий LMSETUP доступен по адресу:
http://www.aladdin.com/support/hasp/enduser.asp

Категория: Системные Ошибки