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

	Макет = Справочники.Контрагенты.ПолучитьМакет("ПечатьСтруктуры");

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

	ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

	

	ТабДок.Очистить();

	ТабДок.Вывести(ОбластьЗаголовок);

	//Перебор СТРУКТУРЫ и вывод в Табличный документ. РК - Структура с данными

	Для Каждого Элемент из РК Цикл           

		//Сообщить(Элемент.Ключ + ": " + Элемент.Значение);

		Если ТипЗнч(Элемент.Значение) = Тип("Структура") Тогда

			Для Каждого ЭлементВ из Элемент.Значение Цикл 

				ОбластьДетальныхЗаписей.Параметры.Заполнить(ЭлементВ); ТабДок.Вывести(ОбластьДетальныхЗаписей);

			КонецЦикла;	

		Иначе

		ОбластьДетальныхЗаписей.Параметры.Заполнить(Элемент); ТабДок.Вывести(ОбластьДетальныхЗаписей);

		КонецЕсли;	

	КонецЦикла; 	

	ТабДок.Вывести(ОбластьПодвал);

	УниверсальныеМеханизмы.НапечататьДокумент(ТабДок); // или ТабДок.Показать();   

 



&НаКлиенте

Процедура ТоварНоменклатураПриИзменении(Элемент)

	СтрокаТабличнойЧасти = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;

	Номенклатура = СтрокаТабличнойЧасти.Номенклатура;

	ТипЦен = ЭтаФорма.ТипЦен;

	ТекДата = Объект.Дата;

	СтрокаТабличнойЧасти.Цена = ПолучитьЦену(Номенклатура, ТипЦен, ТекДата);

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





&НаСервере

Функция ПолучитьЦену(Номенклатура, ТипЦен, ТекДата) Экспорт

	Отбор = Новый Структура;

	Отбор.Вставить("Номенклатура",Номенклатура);

	Отбор.Вставить("ТипЦены",ТипЦен);	

	ЦенаТовара = РегистрыСведений.ЦеныНоменклатуры.ПолучитьПоследнее(ТекДата,Отбор);

	Возврат ЦенаТовара.Цена;

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





   

 Функция УбратьЛидирующиеНули(НомерДокумента)

    Пока Найти(НомерДокумента, "0") > 0 Цикл

        УбратьЛидирующиеНули(Прав(НомерДокумента, СтрДлина(НомерДокумента)-1));

    КонецЦикла;

    Возврат    НомерДокумента;

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

 Функция УбратьЛидирующиеНули(НомерДокумента)

    

    Попытка

        НомерДокумента = Формат(Число(НомерДокумента), "ЧГ=");

    Исключение

        НомерДокумента = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомерДокумента), "0", " ")), " ", "0");

        Префикс = "";

        Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл

            Префикс = Префикс + Лев(НомерДокумента, 1);

            НомерДокумента = Сред(НомерДокумента, 2);

        КонецЦикла;

        Если Не ПустаяСтрока(Префикс) Тогда

            НомерДокумента = Префикс + УбратьЛидирующиеНули(НомерДокумента);

        КонецЕсли;

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

    Возврат НомерДокумента;

    

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

 ВЫБРАТЬ

    ВЫБОР

    КОГДА Не ПОДСТРОКА(&Номер, 1, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 1, 10)

    КОГДА Не ПОДСТРОКА(&Номер, 2, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 2, 9)

    КОГДА Не ПОДСТРОКА(&Номер, 3, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 3, 8)

    КОГДА Не ПОДСТРОКА(&Номер, 4, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 4, 7)

    КОГДА Не ПОДСТРОКА(&Номер, 5, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 5, 6)

    КОГДА Не ПОДСТРОКА(&Номер, 6, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 6, 5)

    КОГДА Не ПОДСТРОКА(&Номер, 7, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 7, 4)

    КОГДА Не ПОДСТРОКА(&Номер, 8, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 8, 3)

    КОГДА Не ПОДСТРОКА(&Номер, 9, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 9, 2)

    Иначе ПОДСТРОКА(&Номер, 10, 1)

КОНЕЦ КАК НомерБезНулей   

 Пока Лев(Номер, 1) = "0" Цикл 

    Номер = Прав(Номер, СтрДлина(Номер) - 1);

КонецЦикла;

   

 

Функция УбратьНули(НомерСтрокой) 

    Если Лев(НомерСтрокой, 1) = "0" Тогда

        Возврат УбратьНули(Прав(НомерСтрокой, СтрДлина(НомерСтрокой) - 1)); 

    Иначе

        Возврат НомерСтрокой;

    КонецЕсли;

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





ИтоговаяСтрока = УбратьНули(Номер);   

 // Позволяет определить есть ли среди реквизитов шапки Объекта реквизит с переданным именем.

Функция ЕстьРеквизитОбъекта(ИмяРеквизита, Объект) Экспорт



МетаданныеОбъекта = Объект.Метаданные();

Если МетаданныеОбъекта.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда

Возврат Ложь;

Иначе

Возврат Истина;

КонецЕсли; 



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

 // Позволяет определить есть ли среди реквизитов шапки документа

// реквизит с переданным именем.

//

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

//  ИмяРеквизита - строковое имя искомого реквизита, 

//  МетаданныеДокумента - объект описания метаданных документа, среди реквизитов которого производится поиск.

//

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

//  Истина - нашли реквизит с таким именем, Ложь - не нашли.

//

Функция ЕстьРеквизитДокумента(ИмяРеквизита, МетаданныеДокумента) Экспорт



Если МетаданныеДокумента.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда

Возврат Ложь;

Иначе

Возврат Истина;

КонецЕсли; 



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

 // добавим раскрашивание ячеек

	УФ =  УниверсальныйОтчет.ПостроительОтчета.УсловноеОформление;

	УФ.Очистить();

	ЭлемУслОформл = УФ.Добавить("ИтогоПросрочено");

	ЭлемУслОформл.Использование = Истина;

	

	ЭлемОбласти = ЭлемУслОформл.Область.Добавить("ИтогоПросрочено");

	

	

	ЭлемОтбора = ЭлемУслОформл.Отбор.Добавить("ИтогоПросрочено");

	ЭлемОтбора.ВидСравнения = ВидСравнения.Больше;

	ЭлемОтбора.Значение = 0;

	ЭлемОтбора.Использование = Истина;

	

	ЭлемУслОформл.Оформление.ЦветФона.Значение = WebЦвета.Лосось;

	ЭлемУслОформл.Оформление.ЦветФона.Использование = Истина;   

 //Пример получения текста ячейки

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R1C2").Текст = спрНоменклатура.Наименование;

ПолеТабДок.Область("R2C2").Текст = "Это Строка"; //указываем явно литерал строки

   

 // Изменение текста в области или ячейке



Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл

		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 

		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 

		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда

			ТабличныйДокумент.Область("R"+а+"C7").Текст="";

			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	

			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 	

			

		КонецЕсли;

		

	КонецЦикла;

   

 // Как раскрасить ячейку или область табличного документа в зависимости от условия

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента; // Получаем табличный документ из формы 

ТабДок.Очистить(); // Очищаем табличный документ 

Макет = ПолучитьМакет("Макет"); // Получаем макет с именем "Макет" из текущего объекта 

ОбластьСтрокаТаб = Макет.ПолучитьОбласть("СтрокаТаб"); // Получаем область из макета 

ОбластьСтрокаТаб.Параметры.НашПараметр = 1; // Устанавливаем значение 1 параметру "НашПараметр" 

ОбластьОформления = ТабДок.Вывести(ОбластьСтрокаТаб); 

// Вот собственно и само оформление ячейки 

ТабДок.Область(ОбластьОформления.Верх, ОбластьОформления.Лево, ОбластьОформления.Низ, ОбластьОформления.Лево).ЦветФона = WebЦвета.Красный;

   

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

        Таб.ВывестиСекцию("Контрагент");

        // Изменим Текст ячейки, имя которой заранее задали как "ТекстОСостоянии"

        Таб.Область("ТекстОСостоянии").Текст = "Хорошо ";

        // В зависимости от условия изменим Цвет Текста

        Если Раз<0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(255,0,0); 

           ИначеЕсли Раз>0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(0,0,255);

       КонецЕсли;   

 МассивБулево = Новый Массив; 

МассивБулево.Добавить(Тип("Булево"));

ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);

//...

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R3C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение

ПолеТабДок.Область("R3C3").ТипЗначения = ОписаниеТиповБулево; //указываем тип значения

ПолеТабДок.Область("R3C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника   

 ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R4C3").ТипЗначения = ОписаниеТиповДата; //указываем тип, ранее заданный для Даты

ПолеТабДок.Область("R4C3").Значение = ТекущаяДата();

//указываем форматную строку 

//будет выглядеть как "[031120-2315]-", если текущая дата '20-11-2003 23:15:00') 

ПолеТабДок.Область("R4C3").Формат = "ДФ=[ггММдд-ЧЧмм]-";   

 МассивБулево = Новый Массив; 

МассивБулево.Добавить(Тип("Булево"));

ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);

...

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R5C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение

ПолеТабДок.Область("R5C3").ТипЗначения = ОписаниеТиповБулево; //указываем ранее заданный тип

ПолеТабДок.Область("R5C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника

//а теперь указываем, что в ячейке будет отображаться флажок

ПолеТабДок.Область("R5C3").УстановитьЭлементУправления(Тип("Флажок"));   

  ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента;

ПолеТабДок.Область("R4C3").Защита = Истина;

   

 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

   

 // Процедура формирования отчета

//

Процедура СформироватьОтчет(ТабличныйДокумент) Экспорт

	

	Если НЕ ЗначениеЗаполнено(УниверсальныйОтчет.ДатаКон) Тогда 

		УниверсальныйОтчет.ДатаКон = ТекущаяДата();

	КонецЕсли;

	

	// Перед формирование отчета можно установить необходимые параметры универсального отчета.

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаОтчета", КонецДня(УниверсальныйОтчет.ДатаКон));

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаНеделяНазад", УниверсальныйОтчет.ДатаКон-(86400*7));





	//УстановитьИнтервалыЗапроса();

	

	УниверсальныйОтчет.СформироватьОтчет(ТабличныйДокумент);

	

	// ДОБАВЛЕННЫЙ КОД - чистит итоги в нужных ячейках

	Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл

		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 

		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 

		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда

			ТабличныйДокумент.Область("R"+а+"C7").Текст="";

			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	

			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 			

		КонецЕсли;		

	КонецЦикла;

КонецПроцедуры // СформироватьОтчет()   

 	Если ЗначениеЗаполнено(ДанныеСтроки.Дата) и Не НачалоДня(ДанныеСтроки.Дата) = НачалоДня(ТекущаяДата()) Тогда

		Для Каждого стр из ОформлениеСтроки.Ячейки Цикл

			стр.ТолькоПросмотр = Истина;

		КонецЦикла;	

	КонецЕсли;   

 Процедура ОтчетПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)

	Если НоваяСтрока Тогда

	Элемент.ТекущиеДанные.Дата = ТекущаяДата();

	Элемент.ТекущиеДанные.Менеджер = ПараметрыСеанса.ТекущийПользователь;

	КонецЕсли;

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

 …

//Проверим текущий номер документа и установим новый если он занят

Если НомерЗанят(Номер) Тогда

УстановитьНовыйНомер();

КонецЕсли;



//функция НомерЗанят() по функционалу очень проста

// в вашей ситуации возможно ее придется изменить

Функция НомерЗанят(НомерДока)

Результат = Ложь;

Попытка

Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ

| Документ_.Номер

|ИЗ

| Документ.Документ КАК Документ_

|ГДЕ

| Документ_.Номер =НомерДока

| И Не Документ_.Ссылка =ТекДок»;

Запрос.УстановитьПараметр(«НомерДока», НомерДока);

Запрос.УстановитьПараметр(«ТекДок», Ссылка);

Результат = не Запрос.Выполнить().Пустой();

Исключение

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

возврат Результат;

КонецФункции //НомерЗанят()   

 
Процедура ВашРеквизитПриИзменении(Элемент)

		СоответствиеПоискаОтбора = Новый Соответствие;

	    СоответствиеПоискаОтбора.Вставить("ЛевоеЗначение",Новый ПолеКомпоновкиДанных("%Нужное поле компоновки%"));

	    СоответствиеПоискаОтбора.Вставить("ВидСравнения",ВидСравненияКомпоновкиДанных.ВСписке); //сюда впихнуть нужный вид сравнения

	    СоответствиеПоискаОтбора.Вставить("Использование",Истина);





	    СоответствиеНовогоОтбора = Новый Соответствие;

	    СоответствиеНовогоОтбора.Вставить("ЛевоеЗначение",Новый ПолеКомпоновкиДанных("%Нужное поле компоновки%"));

	    СоответствиеНовогоОтбора.Вставить("ВидСравнения",ВидСравненияКомпоновкиДанных.ВСписке); // вид сравнения

		Если ЗначениеЗаполнено(Кампейны) тогда

		    СоответствиеНовогоОтбора.Вставить("Использование",Истина);

		Иначе

			СоответствиеНовогоОтбора.Вставить("Использование",Ложь);

		КонецЕсли;





	    СоответствиеНовогоОтбора.Вставить("Значение",Кампейны);





	    ИзменитьОтбор(КомпоновщикНастроек,СоответствиеПоискаОтбора,СоответствиеНовогоОтбора);    

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





Процедура ИзменитьОтбор(ЭлементСтруктуры, СоответствиеПоискаОтбора = Неопределено, СоответствиеНовогоОтбора) Экспорт





	Если ТипЗнч(ЭлементСтруктуры) = Тип("КомпоновщикНастроекКомпоновкиДанных")  Тогда

	    Отбор = ЭлементСтруктуры.Настройки.Отбор;

	Иначе

	    Отбор = ЭлементСтруктуры;

	КонецЕсли;





	Если ТипЗнч(СоответствиеНовогоОтбора["ЛевоеЗначение"]) = Тип("Строка") Тогда

	    нПоле = Новый ПолеКомпоновкиДанных(СоответствиеНовогоОтбора.ЛевоеЗначение);

	Иначе

	    нПоле = СоответствиеНовогоОтбора["ЛевоеЗначение"];

	КонецЕсли;





	Если СоответствиеНовогоОтбора.Получить("ВидСравнения") = Неопределено Тогда

	    нВидСравнения = ВидСравненияКомпоновкиДанных.Равно;

	Иначе

	    нВидСравнения = СоответствиеНовогоОтбора["ВидСравнения"];

	КонецЕсли;





	Если СоответствиеНовогоОтбора.Получить("Использование") = Неопределено Тогда

	    нИспользование = Истина;

	Иначе

	    нИспользование = СоответствиеНовогоОтбора["Использование"];

	КонецЕсли;





	нЗначение = СоответствиеНовогоОтбора["Значение"];





	ТолькоПоЛевомуЗначению = Ложь;

	Если СоответствиеПоискаОтбора = Неопределено Тогда

	    ТолькоПоЛевомуЗначению = Истина;

	КонецЕсли;





	сЛевоеЗначение  =  СоответствиеПоискаОтбора.Получить("ЛевоеЗначение");

	Если сЛевоеЗначение = Неопределено Тогда

	    сЛевоеЗначение = нПоле;

	КонецЕсли;





	сВидСравнения  =  СоответствиеПоискаОтбора.Получить("ВидСравнения");

	Если ВидСравнения = Неопределено Тогда

	    сВидСравнения = ВидСравнения;

	КонецЕсли;





	сИспользование =  СоответствиеПоискаОтбора.Получить("Использование");

	Если сИспользование = Неопределено Тогда

	    сИспользование = нИспользование;

	КонецЕсли;





	Для каждого ЭлементОтбора Из Отбор.Элементы Цикл

	    Если ТолькоПоЛевомуЗначению Тогда

	        НайденныйОтбор = ЭлементОтбора;

	        Прервать;

	    Иначе

	        Если (ЭлементОтбора.ЛевоеЗначение = сЛевоеЗначение)

	            И (ЭлементОтбора.ВидСравнения = сВидСравнения)

	             Тогда

	            НайденныйОтбор = ЭлементОтбора;

	            Прервать;

	        КонецЕсли;

	    КонецЕсли;

	КонецЦикла;





	Если НайденныйОтбор <> Неопределено Тогда

	    НайденныйОтбор.ЛевоеЗначение  = нПоле;

	    НайденныйОтбор.Использование  = нИспользование;

	    НайденныйОтбор.ВидСравнения   = нВидСравнения;

	    НайденныйОтбор.ПравоеЗначение = нЗначение;

	Иначе

		НовыйЭлементОтбора = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));





		ПолеОтбора = Новый ПолеКомпоновкиДанных(нПоле);





		НовыйЭлементОтбора.ЛевоеЗначение  = нПоле;

		НовыйЭлементОтбора.Использование  = нИспользование;

		НовыйЭлементОтбора.ВидСравнения   = нВидСравнения;

		НовыйЭлементОтбора.ПравоеЗначение = нЗначение;

	КонецЕсли;





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

 echo ************************************************************ 

echo Setup param: 

echo ************************************************************ 

set __1c_path=C:\Program Files (x86)\1cv82\common\1cestart.exe

set __base_name=zup_msk

set __base_path=E:\Accounting\Staff\zup_msk

set __upload_path=D:\Backup1C

set __username=Backup

set __password=123420

echo ******************

echo Create folder:

echo ******************

md "%__upload_path%\%__base_name%" 

echo ************************************************************ 

echo Create backup: 

echo ************************************************************ 

"%__1c_path%" config /Out"%__upload_path%\%__base_name%\%__base_name%.log" /F"%__base_path%" /N"%__username%" /P"%__password%" /DumpIB"%__upload_path%\%__base_name%\%__base_name%-%date%.dt"    

 echo ************************************************************ 

echo Setup param: 

echo ************************************************************ 

set __1c_path=C:\Program Files (x86)\1cv82\common\1cestart.exe

set __base_name=crm

set __base_path=server1C\db_crm

set __upload_path=D:\Backup1C

set __username=Backup

set __password=123420

echo ******************

echo Create folder:

echo ******************

md "%__upload_path%\%__base_name%" 

echo ************************************************************ 

echo Create backup: 

echo ************************************************************ 

"%__1c_path%" config /Out"%__upload_path%\%__base_name%\%__base_name%.log" /S"%__base_path%" /N"%__username%" /P"%__password%" /DumpIB"%__upload_path%\%__base_name%\%__base_name%-%date%.dt"