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С:Предприятие 8» обладает значительным спектром функций и механизмов взаимодействия с внешними программами и оборудованием на основе общепризнанных открытых стандартов и протоколов.

Довольно большую группу среди них составляют средства обмена данными, которые мы и рассмотрим в этой статье.

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

* Работа с текстовыми документами. Встроенный язык платформы позволяет разработчику создавать, динамически формировать и записывать текстовые документы, в том числе на основе готовых шаблонов. Обмен данными с использованием текстовых документов может быть одним из самых простых способов взаимодействия с другими информационными системами.
* Последовательное чтение текстовых файлов. Дело в том, что такие файлы могут быть очень большого объема, поэтому существуют специальные программные объекты, позволяющие читать и записывать их быстро (с использованием оптимизированных алгоритмов).
* XML. Платформа позволяет организовывать интеграцию с прикладными системами с использованием XML-документов, являющихся на сегодня общепринятым средством представления данных. Поддержка XML выполнена на уровне встроенного языка.
* DBF-файлы. Механизм работы с базами данных формата DBF предназначен для обеспечения возможности манипулирования ими непосредственно из языка системы через объект xBase. Можно как работать с существующими базами данных, так и создавать новые базы данных произвольной конфигурации.
* Работа с файловой системой. Доступ к функциям работы с файловой системой реализован на уровне встроенного языка. Эта возможность может быть использована при организации взаимодействия с другими информационными системами через общие каталоги.

Базовые средства обмена данными

Платформа также содержит набор специализированных средств обмена данными для создания распределенных информационных систем на основе программ «1С:Предприятия» и решений других поставщиков.

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

* объекты «обмена»,
* средства сериализации,
* средства документов.

При помощи этих средств могут быть реализованы две основные технологии собственно обмена данными:

* универсальный механизм обмена данными;
* механизм управления распределенными информационными базами.

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

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

С помощью объектов «план обмена» реализованы два важных внутренних механизма платформы.

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

XML-сериализация — это процесс преобразования данных «1С:Предприятия» в последовательность данных формата XML и наоборот.

Средства чтения и записи XML-документов позволяют работать с данными формата XML на «базовом» уровне, без привязки к объектам «1С:Предприятия». В частности, они дают возможность открывать XML-документы для чтения, читать из них данные, создавать новые XML-документы и записывать в них данные. Все это активно используется при реализации различных схем обмена данными.

Универсальный механизм обмена данными

Универсальный механизм обмена данными предназначен для создания территориально распределенных систем на основе как «1С:Предприятия», так и решений других поставщиков. Однако этот механизм позволяет переносить только данные, перенос конфигурации и административной информации «1С:Предприятия» при его помощи невозможен. В качестве формата обмена используются XML-документы, при этом при обмене данными между информационными базами «1С:Предприятия» не накладывается ограничений на идентичность конфигурации и структуры конкретных объектов. В то же время в одной конфигурации может быть создано несколько независимых схем обмена с различными информационными системами. Важно также и то, что при организации схемы обмена не накладывается ограничений на структуру распределенной системы. Может быть организована как классическая структура типа «звезда», так и более сложные многоуровневые структуры типа «снежинка» и др.

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

Механизм управления распределенными информационными базами

Механизм управления распределенными информационными базами (УРИБ) играет ключевую роль в создании территориально распределенных систем на основе идентичных конфигураций «1С:Предприятия 8» (распределенная система должна иметь древовидную структуру, в которой существует корневой узел и определено отношение «главный—подчиненный» для каждой пары связанных узлов). Данная технология обеспечивает регистрацию изменений в базах данных, инфраструктуру сообщений и обмен информацией в формате XML. Централизованное управление конфигурацией системы осуществляется с помощью визуальных средств или программным образом. С ее помощью выполняется не только обмен данными, но и перенос программной конфигурации.

УРИБ реализует следующие основные возможности:

* интерактивное создание распределенной системы и выполнение обмена данными без дополнительного программирования;
* обеспечение идентичности конфигураций информационных баз, входящих в состав распределенной системы;
* подключение новых и отключение существующих узлов;
* создание начального образа информационной базы для нового узла;
* различные способы разрешения коллизий при одновременном изменении данных в разных узлах распределенной системы;
* в рамках одной распределенной информационной базы может быть создано несколько схем обмена;
* распределенная информационная база может содержать схемы обмена с другими информационными системами, в том числе с информационными базами «1С:Предприятия», не являющимися распределенными информационными базами;
* задание условий на передачу и прием изменений на уровне отдельных элементов данных;
* восстановление обмена данными в таких случаях, как восстановление информационных баз из резервных копий и т. д.;
* сжатие сообщений обмена в формате .ZIP и автоматическую распаковку сообщений обмена при приеме.

Различные способы управления обменом данными

Отличительная особенность механизма УРИБ заключается в том, что во всех узлах должны быть одинаковые конфигурации и между двумя связанными узлами должны быть установлены отношения главный—подчиненный. Благодаря этому процесс обмена можно формализовать и создавать распределенные информационные базы даже без программирования, так как система «знает», как обмениваться информацией. В отличие от этого, при использовании универсального механизма обмена данными в узлах может быть что угодно и взаимодействовать они могут как угодно, поэтому обязательно нужно писать код, описывающий правила такого взаимодействия. Таким образом, механизм УРИБ — это быстро и просто, но по определенным правилам, а универсальный механизм обмена данными — это «как угодно» и поэтому сложнее и требует написания всего кода вручную.

В целом же прикладное решение может содержать произвольное количество планов обмена как с использованием механизма УРИБ, так и без его использования. Например, одна и та же информационная база может входить в состав различных распределенных систем. Например, по одному плану обмена (с использованием УРИБ) она будет «общаться» с филиалами, а по другому плану обмена (с применением универсального механизма обмена данными) она может работать с корпоративной информационной системой (не «1С:Предприятие»), поставляя туда данные о работе филиалов для создания консолидированной отчетности по всему холдингу в целом.

Таким образом, программные средства и механизмы «1С:Предприятия» позволяют создавать различные по структуре однородные и неоднородные распределенные информационные системы.

Как добавить дополнительную колонку в табличном поле?
Добавляете колонку, а все вычисления реализуются с помощью события ПриВыводеСтроки табличного поля:

Код 1C v 8.х

 // 1-й вариант:

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

   СамаЯчейка = ОформлениеСтроки.Ячейки.ИмяЯчейки;

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

   СамаЯчейка.Текст = "Лалала";

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



// 2-й вариант:

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

   ОформлениеСтроки.Ячейки.ИмяЯчейки.УстановитьТекст("Лалала");

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



// 3-й вариант:

Процедура НоменклатураПриПолученииДанных(Элемент, ОформленияСтрок)

   Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

    СамаЯчейка = ОформлениеСтроки.Ячейки.ИмяЯчейки;

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

    СамаЯчейка.Текст = "Лалала";

   КонецЦикла;

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

   

С помощью этого события можно выводить не только текст, но также флажки и картинки, например:
Картинка:

Код 1C v 8.х

 Ячейка = ОформлениеСтроки.Ячейки.ТипСобытия;

Ячейка.ОтображатьТекст    = Ложь;

Ячейка.ОтображатьФлажок   = Ложь;

Ячейка.ОтображатьКартинку = Истина;

Ячейка.ИндексКартинки = 1; 



// или другой пример:

ТЗ=Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("ПометкаУдаления",,"ПометкаУдаления");

ТЗ.Колонки.Добавить("Проведен",,"Проведен");

    

КолонкаКартинки=ЭлементыФормы.ТЗ.Колонки.Вставить(0,"<");

КолонкаКартинки.Имя="Картинка";

КолонкаКартинки.Ширина=5;

КолонкаКартинки.ДанныеКартинки="ИндексКартинки";

КолонкаКартинки.КартинкиСтрок= БиблиотекаКартинок.СостоянияДокумента;



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

Если ДанныеСтроки.Проведен Тогда

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

ИначеЕсли НЕ ДанныеСтроки.Проведен Тогда

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

ИначеЕсли ДанныеСтроки.ПометкаУдаления Тогда

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

КонецЕсли;

   

Флажки:

Код 1C v 8.х

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

ОформлениеСтроки.Ячейки.Колонка2.УстановитьТекст("");

ОформлениеСтроки.Ячейки.Колонка2.Флажок = Истина; 

   

Еще можно менять цвет фона и текста, шрифт и другие характеристики оформления:

Код 1C v 8.х

 ОформлениеСтроки.Ячейки.<ИмяКолонки>.ЦветФона = Новый Цвет (255,100,100);

ОформлениеСтроки.Ячейки.<ИмяКолонки>.Шрифт = Новый Шрифт(,,Истина);   

Можно также управлять доступностью отдельных строк и ячеек табличного поля:

Код 1C v 8.х

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

Обычно колонка должна быть рассчитываемой, или зависимой от данных, поэтому нужно задействовать второй параметр ДанныеСтроки. Этот механизм можно использовать для отображения остатков товаров в форме подбора, текущих цен, долга контрагента, другой информации по строкам.

Но здесь нужно быть осторожным! Событие ПриВыводеСтроки вызывается довольно часто при перерисовке табличного поля. Поэтому процедура должна отрабатывать довольно быстро, чтобы не тормозить вывод списка. Если в ней происходит обращение к базе данных, то вывод может резко замедлиться.

Если начались тормоза, то рекомендуется сделать следующее:
1. Кеширование результата запроса в переменной модуля формы (таблица значений или массив, еще можно использовать соответствие, которое индексируется для примитивных типов данных, например, код товара или артикул)
2. При отключенной колонке (видимость) запрос к базе НЕ должен выполняться.
По умолчанию колонку держать выключенной, включение только по кнопке в форме или при личных настройках определенного пользователя.
3. Лучше выполнять один большой запрос на несколько товаров, чем несколько маленьких запросов на один товар.
4. Список товаров нужно передавать как ПАРАМЕТР виртуальной таблицы Остатки, а не как параметр условия ГДЕ.
5. При повышенных требованиях к скорости отображения списка и большом количестве пользователей можно завести регистр сведений, хранящий актуальные остатки. Для поддержки его актуальности можно создать последовательность.
6. Еще вариант через обработчик - при ПолученииДанных (вроде так называется)... Там сразу передается массив ОформленияСтрок - в нем все строки сразу и вызывается он реже, чем при выводе строки...
7. Завести в табличной части реквизит, куда при открытии формы и по мере надобности помещать остатки, это значительно ускорит вывод остатков, правда будет не лучшим образом влиять на флаг Модифицированность.

Источник.