остальное » Поиск

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

COM-подключение к базе 7.7 из .NET, .NET Core

Инсталяция:> dotnet add package sabatex.V1C77

или добавить через NUGET пакет sabatex.V1C77.

Добавить пространство имен: using sabatex.V1C77;

пример использованя: ---C#

     static void Main(string[] args)     {         // создаём строку соединения         var connection = new sabatex.V1C77.Models.Connection         {             DataBasePath = @"C:\demo\1SBUKRD", // путь к базе             PlatformType = sabatex.V1C77.Models.EPlatform1C.V77M, // платформа 1С77             UserName = "Админов", // имя пользователя             UserPass = "" // пароль или пустая строка         };          // соединяемся с 1С77         //          using (var _1c77 = sabatex.V1C77.COMObject1C77.CreateConnection(connection))         {             // перебор всего справочника Контрагенты             var contr = _1c77.GlobalContext.CreateObject("Справочник.Контрагенты");             if (contr.Method<double>("ВыбратьЭлементы") == 1)             {                 while (contr.Method<double>("ПолучитьЭлемент")==1)                 {                     if (contr.Method<double>("ЭтоГруппа") == 1) continue;                     var name = contr.GetProperty<string>("Наименование");                     Console.WriteLine(name);                 }             }         }     }   [/pre]
 соответствие типов данных 1С7.7 и C# 
   строка - string
   число - doubl
   дата - DataTime
   остальное - V1C77COMObject
возможно использовать bool для замены double(0- false;1 - true) тогда выражение сократится к if (contr.Method("ВыбратьЭлементы"))

Категория: OLE, ActiveX

Блокировка записей, невозможно изменить или удалить из регистра. Конфликт блокировок MS SQL + 1C

При попытке удалить запись из регистра сведений - получаю ошибку: она заблокирована, ошибка блокировок и т.д.

Отключил всех пользователей, перезапустил сервер, пробую удалить - опять ошибка блокировки

Путем тестов было вяснено, что проблема не в коде, а происходит это на этапе обращения платформы к SQL серверу... после долгих поисков решений, в интернете была найдена статья, которая помогла в решении данной проблемы:

Кто что блокирует, MS SQL + 1C

В повседневной работе достаточно задействовать только первый блок "/*кто кого*/". Открываем MS SQL Server Management Studio, правой на корень - "new query" - вставляем код запроса (только верхнюю часть до "Кто что блокирует", остальное - для детального анализа), выполняем запрос (вверху есть кнопочка выполнения запроса).

Выполнив запрос, запоминаем "ID виновника", быстренько идем в консоль сервера 1С, заходим в ветку "Сеансы" нашей базы. Видим все соединения с 1С-сервером, ищем там колонку "Соединение с СУБД", чтобы увидеть соединения 1С-сервера с MSSQL-сервером. В колонке будет всего несколько заполненных значений, среди них и будет "ID виновника".

Что делать если его там нет, тут 3 варианта:

1. Вернитесь в MSSQL и сделайте запрос еще несколько раз подряд, если значения меняются или таблица вообще пуста - постоянной блокировки нет, у вас (уже) все в порядке.

2. Сеанс который блокирует MSSQL находится в другой базе т.е. блокировка не в той базе (можно попробовать задействовать ветку всех сеансов в консоли 1С-сервера) - вернитесь в MSSQL и внимательно посмотрите в колонку DB в ней находится название базы.

3. Бывает что ID процесса в 1С-консоли вообще отсутствует, такое тоже бывает если у вас есть какие-то внешние программы подключенные напрямую в базу 1С, если пускаете кого-то в MSSQL напрямую, то вариант не исключен.

Код SQL-запроса:

Код SQL

 SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED





DECLARE @dbid AS smallint;

use [ВАШАБАЗА];

SET @dbid=DB_ID();





/*кто кого*/

SELECT DB_NAME(pr1.dbid) AS 'DB'

      ,pr1.spid AS 'ID жертвы'

      ,RTRIM(pr1.loginame) AS 'Login жертвы'

      ,pr2.spid AS 'ID виновника'

      ,RTRIM(pr2.loginame) AS 'Login виновника'

      ,pr1.program_name AS 'программа жертвы'

      ,pr2.program_name AS 'программа виновника'

      ,txt.[text] AS 'Запрос виновника'

FROM   MASTER.dbo.sysprocesses pr1(NOLOCK)

       JOIN MASTER.dbo.sysprocesses pr2(NOLOCK)

            ON  (pr2.spid = pr1.blocked)

       OUTER APPLY sys.[dm_exec_sql_text](pr2.[sql_handle]) AS txt

WHERE  pr1.blocked <> 0





/* Кто что блокирует */

SELECT s.[nt_username]

      ,request_session_id

      ,tran_locks.[request_status]

      ,rd.[Description] + ' (' + tran_locks.resource_type + ' ' + tran_locks.request_mode + ')' [Object]

      ,txt_blocked.[text]

      ,COUNT(*) [COUNT]

FROM   sys.dm_tran_locks AS tran_locks WITH (NOLOCK)

       JOIN sys.sysprocesses AS s WITH (NOLOCK)

            ON  tran_locks.request_session_id = s.[spid]

       JOIN (

                SELECT 'KEY' AS sResource_type

                      ,p.[hobt_id] AS [id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name) AS [Description]

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

                UNION ALL

                SELECT 'RID' AS sResource_type

                      ,p.[hobt_id] AS [id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name) AS [Description]

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

                UNION ALL

                SELECT 'PAGE'

                      ,p.[hobt_id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name)

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

               

                UNION ALL

                SELECT 'OBJECT'

                      ,o.[object_id]

                      ,QUOTENAME(o.name)

                FROM   sys.objects o

            ) AS RD

            ON  RD.[sResource_type] = tran_locks.resource_type

            AND RD.[id] = tran_locks.resource_associated_entity_id

       OUTER APPLY sys.[dm_exec_sql_text](s.[sql_handle]) AS txt_Blocked

WHERE  (

           tran_locks.request_mode = 'X'

           AND tran_locks.resource_type = 'OBJECT'

       )

       OR  tran_locks.[request_status] = 'WAIT'

GROUP BY

       s.[nt_username]

      ,request_session_id

      ,tran_locks.[request_status]

      ,rd.[Description] + ' (' + tran_locks.resource_type + ' ' + tran_locks.request_mode + ')'

      ,txt_blocked.[text]

ORDER BY

       6 DESC

       





IF EXISTS ( SELECT  Name





            FROM    tempdb..sysobjects





            WHERE   name LIKE '#LOCK_01_01%' )

    DROP TABLE #LOCK_01_01









CREATE TABLE #LOCK_01_01





    (





      spid INT,





      dbid INT,





      ObjId INT,





      IndId SMALLINT,





      Type VARCHAR(20),





      Resource VARCHAR(50),





      Mode VARCHAR(20),





      Status VARCHAR(20)





    )





INSERT  INTO #LOCK_01_01





EXEC sp_lock









select OBJECT_NAME(ObjId) as [Имя объекта], Mode [Тип блокировки (код)],





CASE

     WHEN Mode='Sch-S' THEN 'Блокировка стабильности схемы. Гарантирует, что элемент схемы, такой как таблица или индекс, не будет удален до тех пор, пока сеанс связи удерживает блокировку стабильности схемы на данный элемент схемы;'





 WHEN Mode='Sch-М' THEN '= Блокировка изменения схемы. Должен поддерживаться любым сеансом связи, во время которого предполагается изменить схему данного ресурса. Гарантирует, что другие сеансы не имеют ссылок на обозначенный объект;'





 WHEN Mode='S' THEN 'S = Коллективная блокировка. Удерживающему сеансу предоставлен коллективный доступ к ресурсу;'





 WHEN Mode='U' THEN 'U = Блокировка обновления. Указывает блокировку обновления, полученную на ресурсы, которые со временем могут быть обновлены. Используется для предотвращения общей формы взаимоблокировки, которая возникает, когда множество сеансов блокируют ресурсы для потенциального обновления в последующее время;'





 WHEN Mode='X' THEN 'X = Монопольная блокировка. Удерживающему сеансу предоставлен исключительный доступ к ресурсу;'





 WHEN Mode='IS' THEN 'IS = Блокировка с намерением коллективного доступа. Указывает намерение поместить S блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='IU' THEN 'IU = Блокировка с намерением обновления. Указывает намерение поместить U блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='IX' THEN 'IX = Блокировка с намерением монопольного доступа. Указывает намерение поместить X блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='SIU' THEN 'SIU = Коллективная блокировка с намерением обновления. Указывает коллективный доступ к ресурсу с намерением получения блокировок обновления на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='SIX' THEN 'SIX = Коллективная блокировка с намерением монопольного доступа. Указывает коллективный доступ к ресурсу с намерением получения монопольных блокировок на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='UIX' THEN 'UIX = Блокировка обновления с намерением монопольного доступа. Указывает блокировку обновления ресурса с намерением получения монопольных блокировок на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='BU' THEN 'BU = Блокировка массового обновления. Используется для массовых операций;'

     --[ ELSE else_result_expression ]

END as [Тип блокировки]





,syspr.spid, syspr.dbid, syspr.open_tran, syspr.status, syspr.hostprocess, syspr.loginame, syspr.hostname





 From

#LOCK_01_01





inner join master.dbo.sysprocesses as syspr

on syspr.spid = #LOCK_01_01.spid and syspr.dbid = #LOCK_01_01.dbid





where

#LOCK_01_01.Type = 'TAB'

and

#LOCK_01_01.dbid = @dbid     





/* Чем занят сервер*/

SELECT s.[spid]

      ,s.[loginame]

      ,s.[open_tran]

      ,s.[blocked]

      ,s.[waittime]

      ,s.[cpu]

      ,s.[physical_io]

      ,s.[memusage]

       INTO #sysprocesses

FROM   sys.[sysprocesses] s





WAITFOR DELAY '00:00:01'





SELECT txt.[text]

      ,s.[spid]

      ,s.[loginame]

      ,s.[hostname]

      ,DB_NAME(s.[dbid]) [db_name]

      ,SUM(s.[waittime] -ts.[waittime]) [waittime]

      ,SUM(s.[cpu] -ts.[cpu]) [cpu]

      ,SUM(s.[physical_io] -ts.[physical_io]) [physical_io]

      ,s.[program_name]

FROM   sys.[sysprocesses] s

       JOIN #sysprocesses ts

            ON  s.[spid] = ts.[spid]

            AND s.[loginame] = ts.[loginame]

       OUTER APPLY sys.[dm_exec_sql_text](s.[sql_handle]) AS txt

WHERE  s.[cpu] -ts.[cpu]

       + s.[physical_io] -ts.[physical_io]

       > 500

       OR  (s.[waittime] -ts.[waittime]) > 3000

GROUP BY

       txt.[text]

      ,s.[spid]

      ,s.[loginame]

      ,s.[hostname]

      ,DB_NAME(s.[dbid])

      ,s.[program_name]

ORDER BY

       [physical_io] DESC

       

DROP TABLE #sysprocesses

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

Настройка многопользовательских сетевых ключей 1С

Речь ниже пойдет о usb-ключах, а программные лицензии > Если необходимо активировать многопользовательскую клиентскую лицензию 1С, так чтобы лицензии раздавал сервер приложений 1С, то это необходимо делать где угодно, только не на самом сервере приложений 1С. При этом в окне активации выбирать опцию «Дополнительно», поставить птичку на сервер 1С и указать параметры подключения к серверу.

о usb-ключах

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

1. Раздача лицензий сервером приложений 1С:- Тут все просто, ставим сервер приложений 1С, втыкаем ключ и в свойствах зарегистрированной в кластере 1С базы выставляем параметр «Разрешить выдачу лицензий сервером 1С:Предприятия» в позицию «Да». При такой конфигурации раздавать пользовательские лицензии будет сам сервер приложений 1С, но есть один неприятный момент, каждая открытая копия 1С на пользовательском компьютере будет съедать по одной лицензии, т. е. если открыть с одного компа 10 раз одну и ту же базу, то будет съедено 10 лицензий!

2. Раздача лицензий Hasp License Manager: - Ставим Hasp License Manager в качестве сервиса и запускаем. - Как правило при установке он сам добавляет разрешающие правила во встроенный в винду брандмауэр, если этого не произошло, то добавляем вручную правило разрешающее подключения по протоколам TCP и UDP на порт 475. - Если сеть побита на VLAN-ы и используются различные ACL, то необходимо прописать везде где это нужно правила доступа, как в пункте выше. - Настраиваем файл конфигурации Hasp License Manager, который называется nhsrv.ini и лежит по умолчанию в C:\Program Files (x86)\Aladdin\HASP LM . Вот примерный конфиг, указываю только интересующие пункты, остальное у меня закоментировано:NHS_USERLIST = 250 ; максимальное количество обслуживаемых клиентов, по умолчанию 250NHS_SERVERNAMES = ; имя сервера на котором установлен ключ с лицензиями и запущен Hasp LMNHS_USE_UDP = disabled ; включить или выключить использование протокола UDP, по умолчанию включенNHS_USE_TCP = enabled ; включить или выключить использование протокола TCPNHS_IP_portnum = 475 ; номер порта на котором принимает запросы Hasp LMNHS_IP_LIMIT = ; номера подсетей с которых разрешено подключение к Hasp LMNHS_USE_IPX = disabled ; включить или выключить использование IPXNHS_USE_NETBIOS = disabled ; включить или выключить использование NETBIOS - Настраиваем файл nethasp.ini на пользовательских компьютерах, по умолчанию лежит вC:\Program Files (x86)\1cv82\conf . Вот примерный конфиг, указываю только интересующие пункты, остальное у меня удалено:[NH_COMMON]NH_IPX = DisabledNH_NETBIOS = DisabledNH_TCPIP = Enabled

[NH_IPX]

[NH_NETBIOS]

[NH_TCPIP]

NH_SERVER_ADDR = 192.168.0.1, 192.168.0.2, 192.168.0.3 ; указываем где искать свободные лицензии, т. е. сервера на которых установлены многопользовательские клиентские ключи и настроенный Hasp LMNH_TCPIP_METHOD= TCPNH_SESSION = 5NH_SEND_RCV = 4NH_USE_BROADCAST = Disabled ; выключаем широковещание

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

- Если ключей много и доступ пользователей к ним делится по какому-то признаку (например по разным проектам), то хорошей практикой будет вести точный учет того, какие пользователи к каким ключам имеют доступ и настраивать их файлы nethasp.ini соотвественно. Это позволит администратору системы более полно владеть информацией и может очень помочь в решении проблем с нехваткой лицензий.

Источник

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

Получение почты используя IMAP или POP3

В данном примере используется IMAP и POP3
Для использования POP3 раскомментируйте строки и Профиль.АутентификацияPOP3 = Истина;

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПолучитьСообщений(Команда)

	

	ПутьСохранения = "D:\temp";

	

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	

	//Профиль.АдресСервераPOP3 = "re05.hc.ru";

	//Профиль.ПортPOP3 = "995";

	//Профиль.Пользователь = "robot@site.ru";

	//Профиль.Пароль = "11223344";

	Профиль.АутентификацияPOP3 = Ложь;

	Профиль.АутентификацияSMTP = Ложь;



	

	// IMAP

	Профиль.ИспользоватьSSLIMAP = Истина;

	Профиль.АдресСервераIMAP = "re05.hc.ru";

	Профиль.ПортIMAP = "993"; 	

	Профиль.ПользовательIMAP = "robot@site.ru";

	Профиль.ПарольIMAP = "11223344";

	Профиль.ТолькоЗащищеннаяАутентификацияIMAP=Ложь;

	

	Почта = Новый ИнтернетПочта;

	

	Сообщ = Новый СообщениеПользователю();

	

	Попытка

		Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP); //ПротоколИнтернетПочты.POP3

		// Получаем все сообщения из почтового ящика

		МассивСообщений = Новый Массив;

		МассивСообщений = Почта.Выбрать(Ложь);

	Исключение

		// Ошибка при подключении к серверу или при приеме сообщения обмена

		Сообщ.Текст = " - Ошибка при подключении или приеме" + ОписаниеОшибки();

		Сообщ.Сообщить();

		Возврат;

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

	

	// Массив будет содержать сообщения, которые в последствии будут удалены с сервера 

	МассивСообщенийОбмена = Новый Массив;

	

	Если МассивСообщений.Количество() = 0 Тогда

		// Сообщений в почтовом ящике нет

		Сообщ.Текст = "Сообщений в почтовом ящике нет.";

		Сообщ.Сообщить();

		Возврат;

	КонецЕсли;

	

	ИмяФайлаСообщения = "";

	Для Индекс = 0 По МассивСообщений.Количество() - 1 Цикл  		

		// Отбираем только сообщения, которые содержат файлы прайсы, остальное спам 

		ЧастьТемы = "Price list";

		Если Лев(МассивСообщений[Индекс].Тема, СтрДлина(ЧастьТемы)) = ЧастьТемы Тогда

			Попытка

				// Записываем файл 

				МассивСообщений[Индекс].Вложения[0].Данные.Записать(ПутьСохранения+"\"+МассивСообщений[Индекс].Вложения[0].ИмяФайла);

				Сообщ.Текст = "Принят файл: " + МассивСообщений[Индекс].Вложения[0].ИмяФайла + " с адреса " + Профиль.Пользователь;

				Сообщ.Сообщить(); 				

			Исключение

				Сообщ.Текст = "Похоже нет файла в письме  ";

				Сообщ.Сообщить(); 				

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

		Иначе

			Почта.УдалитьСообщения(МассивСообщений[Индекс]);			

		КонецЕсли;

	КонецЦикла;

	

	Сообщ.Текст = "Сообщения получены!";

	Сообщ.Сообщить();

	Почта.Отключиться(); 

	

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

Категория: Работа с Интернет, Почтой (Mail), FTP

Управляем 1С со стороны используя web-сервис Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Как выборочно Разрешить / Запретить редактирование ячеек листа Категория: Работа с Microsoft Office и OpenOffice

Как сделать чтобы в колонке табличного поля выводились текущие остатки?

На форме в табличное поле добавим Колонку (Имя - НачальноеСальдо, Данные - Пусто и все остальное тоже) и колонку КонечноеСальдо
Зайдем в свойства Табличного поля и в событиях определим процедуру при выводе строки: ДействиеПриВыводеСтроки

А в модуле напишем:

Код 1C v 8.х

 

Процедура ЗарплатаПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

	//Укажем фильтр получения остатков

	Фильтр = Новый Структура;

	Фильтр.Вставить("ФизЛицо",ДанныеСтроки.ФизЛицо);

	// по подразделению не надо

	//Фильтр.Вставить("Подразделение", ДанныеСтроки.Подразделение);

	//Остаток до документа

	Попытка

		НачСальдо = РегистрыНакопления.Взаиморасчеты.Остатки(Новый Граница(Дата, ВидГраницы.Исключая),Фильтр,"ФизЛицо","ВзаимРасчет")[0].ВзаимРасчет; 		

	Исключение // остатка нет

		НачСальдо = 0;

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

	//Остаток после документа

	Попытка

		КонСальдо = РегистрыНакопления.Взаиморасчеты.Остатки(Новый Граница(Дата, ВидГраницы.Включая),Фильтр,"ФизЛицо","ВзаимРасчет")[0].ВзаимРасчет; 		

	Исключение // остатка нет

		КонСальдо = 0;

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

	

	ОформлениеСтроки.Ячейки.НачальноеСальдо.ОтображатьТекст = Истина;

	ОформлениеСтроки.Ячейки.НачальноеСальдо.Текст = ?(НачСальдо=0,"",НачСальдо); 

	ОформлениеСтроки.Ячейки.КонечноеСальдо.ОтображатьТекст	= Истина;

	ОформлениеСтроки.Ячейки.КонечноеСальдо.Текст = ?(КонСальдо=0,"",КонСальдо);  



	//Добавим цветовое оформление, чтобы выделить минусовые остатки

	Если НачСальдо < 0 Тогда

		ОформлениеСтроки.Ячейки.НачальноеСальдо.ЦветФона = Новый Цвет(255, 131, 131);

	Иначе 

		ОформлениеСтроки.Ячейки.НачальноеСальдо.ЦветФона = Новый Цвет(255, 255, 231);

	КонецЕсли;

	Если КонСальдо < 0 Тогда

		ОформлениеСтроки.Ячейки.КонечноеСальдо.ЦветФона = Новый Цвет(255, 131, 131);

	Иначе 

		ОформлениеСтроки.Ячейки.КонечноеСальдо.ЦветФона = Новый Цвет(255, 255, 231);

	КонецЕсли;	

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

Категория: Документы

Получения новостей с 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 Категория: Администрирование