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

   

 //Создание схемы запроса

СхемаЗапроса = Новый СхемаЗапроса;

ЗапросВыбораИзИБ = СхемаЗапроса.ПакетЗапросов[0];

//Установка свойств запроса

ЗапросВыбораИзИБ.ТаблицаДляПомещения = "ТаблицаОбороты";

ЗапросВыбораИзИБ.ВыбиратьРазрешенные = Истина;

//Добавляем операторы выбора первого запроса пакета

ОператорВыбораЗакупок = ЗапросВыбораИзИБ.Операторы[0];

ИсточникНоменклатура = ОператорВыбораЗакупок.Источники.Добавить("Справочник.Номенклатура","Товары");

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

ИсточникЗакупки = ОператорВыбораЗакупок.Источники.Добавить("РегистрНакопления.Закупки.Обороты","Закупки");

ИсточникЗакупки.Источник.Параметры[0].Выражение = Новый ВыражениеСхемыЗапроса("&Начало") ;

ИсточникЗакупки.Источник.Параметры[1].Выражение = Новый ВыражениеСхемыЗапроса("&Окончание") ;

ИсточникЗакупки.Источник.Параметры[2].Выражение = Новый ВыражениеСхемыЗапроса("Месяц") ;

//Меняем тип соединения

ИсточникЗакупки.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее;

//Указываем выбираемые поля

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("Товары.Ссылка");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("Закупки.Период");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("ЕСТЬNULL(Закупки.СуммаОборот, 0)");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("0");

//Указываем спевдонимы для выбранных полей

ЗапросВыбораИзИБ.Колонки[0].Псевдоним = "Номенклатура";

ЗапросВыбораИзИБ.Колонки[1].Псевдоним = "Период";

ЗапросВыбораИзИБ.Колонки[2].Псевдоним = "СуммаЗакупок";

ЗапросВыбораИзИБ.Колонки[3].Псевдоним = "СуммаПродаж";

//Добавляем отбор

ОператорВыбораЗакупок.Отбор.Добавить("НЕ Товары.ЭтоГруппа");





///////////////////////

//Выбираем данные о продажах

ОператорВыбораПродаж = ЗапросВыбораИзИБ.Операторы.Добавить();

ИсточникНоменклатура = ОператорВыбораПродаж.Источники.Добавить("Справочник.Номенклатура","Товары");

ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("Товары.Ссылка");

//Добавляем источник РН и устанавливаем параметры

ИсточникПродажи =ОператорВыбораПродаж.Источники.Добавить("РегистрНакопления.Продажи.Обороты","Продажи");

ИсточникПродажи.Источник.Параметры[0].Выражение = Новый ВыражениеСхемыЗапроса("&Начало") ;

ИсточникПродажи.Источник.Параметры[1].Выражение = Новый ВыражениеСхемыЗапроса("&Окончание") ;

ИсточникПродажи.Источник.Параметры[2].Выражение = Новый ВыражениеСхемыЗапроса("Месяц") ;

ИсточникПродажи.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее;

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

ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("Продажи.Период");

ВыражениеЗакупки = ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("0");

ВыражениеПродажи = ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("ЕСТЬNULL(Продажи.СуммаОборот, 0)");

ЗапросВыбораИзИБ.Колонки[2].Поля.Установить(1,ВыражениеЗакупки);

ЗапросВыбораИзИБ.Колонки[3].Поля.Установить(1,ВыражениеПродажи);

//Добавляем отбор

ОператорВыбораПродаж.Отбор.Добавить("НЕ Товары.ЭтоГруппа");

//Индексируем данные

ЗапросВыбораИзИБ.Индекс.Добавить(ЗапросВыбораИзИБ.Колонки[0]);

ЗапросВыбораИзИБ.Индекс.Добавить(ЗапросВыбораИзИБ.Колонки[1]);

//Устанавливаем параметры выбора данных

ОператорВыбораПродаж.ВыбиратьРазличные = Истина;

ОператорВыбораПродаж.КоличествоПолучаемыхЗаписей = 100;





////////////////

//Второй пакет запроса

ЗапросВыбораИзВТ = СхемаЗапроса.ПакетЗапросов.Добавить();

ОператорВыбрать = ЗапросВыбораИзВТ.Операторы[0];

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

Источник = ОператорВыбрать.Источники.Добавить("ТаблицаОбороты","ТаблицаОбороты");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ТаблицаОбороты.Номенклатура");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ТаблицаОбороты.Период");

ОператорВыбрать.ВыбираемыеПоля.Добавить("СУММА(ТаблицаОбороты.СуммаЗакупок)");

ОператорВыбрать.ВыбираемыеПоля.Добавить("СУММА(ТаблицаОбороты.СуммаПродаж)");

//Условие отбора

ОператорВыбрать.Отбор.Добавить("СУММА(ТаблицаОбороты.СуммаЗакупок) > 0");

//Устанавливаем псевдонимы колонок

ЗапросВыбораИзВТ.Колонки[0].Псевдоним = "Номенклатура";

ЗапросВыбораИзВТ.Колонки[1].Псевдоним = "Период";

ЗапросВыбораИзВТ.Колонки[2].Псевдоним = "СуммаЗакупок";

ЗапросВыбораИзВТ.Колонки[3].Псевдоним = "СуммаПродаж";

//Порядок сортировки данных

ЗапросВыбораИзВТ.Порядок.Добавить(ЗапросВыбораИзВТ.Операторы[0].Источники[0].Источник.ДоступныеПоля[0].Поля[6]);

ЗапросВыбораИзВТ.Порядок.Добавить(ЗапросВыбораИзВТ.Колонки[1]);

//Итоги запроса

ИтогНоменклатура = ЗапросВыбораИзВТ.КонтрольныеТочкиИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[0]);

ИтогНоменклатура.ТипКонтрольнойТочки = ТипКонтрольнойТочкиСхемыЗапроса.ТолькоИерархия; 

ЗапросВыбораИзВТ.ОбщиеИтоги =Истина;

ЗапросВыбораИзВТ.ВыраженияИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[2]);

ЗапросВыбораИзВТ.ВыраженияИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[3]);

////////////////

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

ЗапросУничтоженияВТ = СхемаЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросУничтоженияТаблицыСхемыЗапроса"));

ЗапросУничтоженияВТ.ИмяТаблицы = "ТаблицаОбороты";







// ДАЛЕЕ ЕСЛИнам необходимо этот запрос модифицировать дальше в зависимости от настроек.

// Рассмотрим несколько примеров модификация нашего пакета из 3х запросов:

// Пример 1. Допустим, у нас есть переменные "Организация" и "Склад". И в случае, если они заполнены, нам необходимо добавить в отбор данных условия на эти переменные.

Если ЗначениеЗаполнено(Организация) Тогда

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Организация = &Организация");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Организация = &Организация");

КонецЕсли; 

Если ЗначениеЗаполнено(Склад) Тогда

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Склад = &Склад");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Склад = &Склад");

КонецЕсли;



// Пример 2. Нам нужно отобрать товары, для которых последняя цена выше 1000руб. Т.е. необходимо 

// 1. Добавить в текст запроса выбор во временную таблицу из регистра цен номенклатуры, по которой цены выше 1000руб.

// 2. Добавить при выборе данных условия по этой временной таблице в оба запроса выбора данных (закупки и продажи).

// Как вклиниваться в текстовый запрос для выполнения этих действий, вы пожете представить самостоятельно.

// Программно мы просто добавляем строки кода:



//Добавляем временную таблицу

ЗапросИзРегистраЦен = СхемаЗапроса.ПакетЗапросов.Добавить();

//Настраиваем временную таблицу

ЗапросИзРегистраЦен.ТаблицаДляПомещения = "ВТ_ЦеныНоменклатуры";

ОператорВыбрать = ЗапросИзРегистраЦен.Операторы[0];

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

ОператорВыбрать.ВыбираемыеПоля.Добавить("ЦеныНоменклатурыСрезПоследних.Номенклатура");

ОператорВыбрать.Отбор.Добавить("ЦеныНоменклатурыСрезПоследних.Цена > &Цена");

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

СхемаЗапроса.ПакетЗапросов.Сдвинуть(СхемаЗапроса.ПакетЗапросов.Индекс(ЗапросИзРегистраЦен),0);

//Добавляем условия в исходные запросы

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Номенклатура В (ВЫБРАТЬ ВТ_ЦеныНоменклатуры.Номенклатура ИЗ ВТ_ЦеныНоменклатуры КАК ВТ_ЦеныНоменклатуры)");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Номенклатура В (ВЫБРАТЬ ВТ_ЦеныНоменклатуры.Номенклатура ИЗ ВТ_ЦеныНоменклатуры КАК ВТ_ЦеныНоменклатуры)");





// Еще один небольшой пример использования схемы запроса. Формирование запроса, выполняющего поиск задвоенных значений предопределенных данных. 

// Без обращения к метаданным формирует один общий запрос ко всем справочникам, планам счетов, ПВХ, ПВР вцелом по конфигурации. 

СхемаЗапроса = Новый СхемаЗапроса;

КоллекцияОператоры = СхемаЗапроса.ПакетЗапросов[0].Операторы;

Для каждого ГруппаТаблиц Из СхемаЗапроса.ПакетЗапросов[0].ДоступныеТаблицы Цикл

    Если ГруппаТаблиц.Представление = "Справочники"

        ИЛИ ГруппаТаблиц.Представление = "ПланыСчетов"

        ИЛИ ГруппаТаблиц.Представление = "ПланыВидовРасчета"

        ИЛИ ГруппаТаблиц.Представление = "ПланыВидовХарактеристик" Тогда

        Для каждого Таблица Из ГруппаТаблиц.Состав Цикл

            Для каждого ПолеТаблицы Из Таблица.Поля Цикл

                Если ПолеТаблицы.Имя = "ИмяПредопределенныхДанных" Тогда

                    НовыйОператор = КоллекцияОператоры.Добавить();

                    НовыйИсточник = НовыйОператор.Источники.Добавить(Таблица,"СправочникИмя");

                    НовыйОператор.ВыбираемыеПоля.Добавить(""""+Таблица.Имя+"""");

                    НовыйОператор.ВыбираемыеПоля.Добавить("КОЛИЧЕСТВО(РАЗЛИЧНЫЕ СправочникИмя.ИмяПредопределенныхДанных)" );

                    НовыйОператор.Группировка.Добавить("СправочникИмя.ИмяПредопределенныхДанных");

                    НовыйОператор.Отбор.Добавить("СправочникИмя.Предопределенный");

                    НовыйОператор.Отбор.Добавить("КОЛИЧЕСТВО(РАЗЛИЧНЫЕ СправочникИмя.Ссылка) > 1");

                    Продолжить;

                КонецЕсли; 

            КонецЦикла; 

        КонецЦикла; 

    КонецЕсли; 

КонецЦикла; 

   

 Функция  ПроверкаОткрытогоСеансаТекушегоПользователя()   Экспорт

ТекущийПользовательИБ  =  ПользователиИнформационнойБазы.ТекущийПользователь();

СоединенияИБ  =  ПолучитьСоединенияИнформационнойБазы();

СеансОткрыт   = Ложь;

Для  каждого  СоединениеИБ  Из  СоединенияИБ  Цикл

Если  Найти(СоединениеИБ.ИмяПриложения,   "1CV8")   =  О  Тогда

Продолжить; КонецЕсли;

Если  СоединениеИБ.Пользователь.УникальныйИдентификатор  =  ТекушийПользовательИБ.УникальныйИдентификатор  Тогда

Если  СеансОткрыт  Тогда

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

Иначе

СеансОткрыт  =  Истина;

 КонецЕсли;

КонецЕсли;

КокецЦикла;

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

КокецФуккции  //   ПроверкаОткрытогоСеансаТекушегоПользователя   

 //стрТаблицаЕдиницИзмерения - таблица в строке с колонками.

//GUIDЕдиницы

//Базовая - булево

//Коэффициент

//ЕдиницаИзмерения - код классификатора Единиц измерения.

//Утверждено - булево

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

//ТаблицаГабаритов С колонками

//ВидУпаковки (строковое значение)

//Длина

//ширина

//высота

//объем

//ОбъемныйВес

//Вес

//ФормаОснования

//ВесБрутто

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



//стрСтруктураРеквизитов - структура с праметрами

//Наименование

//код

//ПометкаУдаления

//ВидТовара - идентификатор перечисления

//GUIDПроизводителя - GUID производителя

//СтавкаНДС - число ставка

//Жив - булево

Функция СинхронизироватьТовар(GUIDтовара, GUIDродителя, этоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения,стрТаблицаТНВЭД)

	Попытка

		СтруктураРеквизитов = ЗначениеИзСтрокиВнутр(стрСтруктураРеквизитов);

		ТоварСсылка = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDтовара));

		Если СокрЛП(GUIDродителя)<>"" тогда

			ТоварРодитель = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDродителя));

		иначе

			ТоварРодитель = Справочники.Товары.ПустаяСсылка();

		КонецЕсли;

		

		Если ТоварРодитель.Пустая() и Уровень<>"0" тогда

			Если СтруктураРеквизитов.ПометкаУдаления тогда

				Возврат "ОК";

			КонецЕсли;

			возврат "0 Не найден родитель товара";

		КонецЕсли;

		Если СокрЛП(GUIDтовара) = "" тогда

			возврат "0 Не верный ГУИД товара";

		КонецЕсли;

		//заполним реквизиты

		Если ТоварСсылка.Пустая() тогда

			ТоварСсылка = Справочники.Товары.НайтиПоКоду(СтруктураРеквизитов.Код);

		КонецЕсли;

		Если ТоварСсылка.Пустая() тогда

			

			Если этоГруппа="1" тогда 

				ТоварОбъект = Справочники.Товары.СоздатьГруппу();

			иначе

				ТоварОбъект = Справочники.Товары.СоздатьЭлемент();

			КонецЕсли;

			ТоварОбъект.GUIDтовара = GUIDтовара;

		иначе

			ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

			ТоварОбъект.GUIDтовара = GUIDтовара;

		КонецЕсли;

		ТоварОбъект.Родитель = ТоварРодитель;

		

		ТоварОбъект.Наименование = СтруктураРеквизитов.Наименование;

		

		ТоварОбъект.Код = СтруктураРеквизитов.Код;

		.....................

		Если этоГруппа="1" тогда 

		иначе

			Если СтруктураРеквизитов.менеджер <> "" тогда

				......................

			КонецЕсли;

			//

			Если ТоварОбъект.Производитель.Пустая() тогда

				Если СтруктураРеквизитов.Производитель<>"" тогда

					ТекПроизводитель = справочники.Производители.НайтиПоНаименованию(СтруктураРеквизитов.Производитель);

					Если ТекПроизводитель.Пустая() тогда

						НовПроизводитель = Справочники.Производители.СоздатьЭлемент();

					иначе

						НовПроизводитель = ТекПроизводитель.ПолучитьОбъект();

					КонецЕсли;

					НовПроизводитель.GUID = СтруктураРеквизитов.GUIDПроизводителя;

					НовПроизводитель.Наименование = СтруктураРеквизитов.Производитель;

					НовПроизводитель.Записать();

					ТоварОбъект.Производитель = НовПроизводитель.ссылка;

				КонецЕсли;

			КонецЕсли;

			ТоварОбъект.СтавкаНДС = Справочники.СтавкиНДС.НайтиПоНаименованию(СтруктураРеквизитов.СтавкаНДС,Истина);

			

		КонецЕсли;

		

		ТоварОбъект.Записать();

		ТоварОбъект.УстановитьПометкуУдаления(СтруктураРеквизитов.ПометкаУдаления,Ложь);

		ТоварСсылка = ТоварОбъект.Ссылка;

		ТоварОбъект = Null;

		

		//Синхронизируем Единицы измерения

		ТаблицаЕдиниц = ЗначениеИзСтрокиВнутр(стрТаблицаЕдиницИзмерения);

		Для каждого строка из ТаблицаЕдиниц цикл

			ЕдиницаСсылка = Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("GUIDЕдиницы",строка.GUIDЕдиницы);

			Если не ЕдиницаСсылка.Пустая() тогда

				ЕдиницаОбъект = ЕдиницаСсылка.ПолучитьОбъект();

				ЕдиницаОбъект.УстановитьПометкуУдаления(строка.ПометкаУдаления,Ложь);

			иначе

				Если строка.ПометкаУдаления тогда

					продолжить; 

				КонецЕсли;

				ЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();

				ЕдиницаОбъект.GUIDЕдиницы = строка.GUIDЕдиницы;

			КонецЕсли;

			

			ЕдиницаОбъект.Код = строка.Код; 

			ЕдиницаОбъект.Наименование = строка.Наименование; 

			....................

			

			ЕдиницаОбъект.Габариты.Очистить();

			ТаблицаГабаритов = ЗначениеИзСтрокиВнутр(строка.ТаблицаГабаритов);

			Для каждого строкаГабаритов из ТаблицаГабаритов цикл

				НовСтрока = ЕдиницаОбъект.Габариты.Добавить();

				............................

				НовСтрока.Примечание = строкаГабаритов.Примечание;

			КонецЦикла;

			ЕдиницаОбъект.Записать();

			Если строка.Базовая тогда

				ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

				ТоварОбъект.БазоваяЕдиницаИзмерения = ЕдиницаОбъект.Ссылка;

				ТоварОбъект.Записать();

			КонецЕсли;

		КонецЦикла;

		

		ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

		ТоварОбъект.ВремяСинхронизации = ТекущаяДата();

		ТоварОбъект.Синхронизирован = истина;

		ТоварОбъект.Записать();

	исключение

		//в случае возникновение ошибки вывод результата облегчит поиск причины.

		Возврат ОписаниеОшибки();

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

	//Если все прошло успешно сообщим методу вызвашему веб сервис об успешном выполнении.

	Возврат "ОК";

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

 Процедура ПередЗаписью(Отказ)

	#Если не ВнешнееСоединение тогда                          

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

		Если передавать = истина тогда

			Синхронизирован = Ложь; 

		КонецЕсли;

	#КонецЕсли

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



Процедура ПриЗаписи(Отказ)

	#Если не ВнешнееСоединение тогда

		Если Константы.СинхронизироватьБазы.Получить() и передавать тогда

			Синхронизация();

		КонецЕсли;

	#КонецЕсли

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



Функция Синхронизация()

	GUIDтовара = СокрЛП(ссылка.УникальныйИдентификатор());

	Если ссылка.Уровень()>0 тогда

		GUIDродителя = СокрЛП(ссылка.Родитель.УникальныйИдентификатор());

		Уровень = ссылка.Уровень()

	иначе

		GUIDродителя = "";

		Уровень = "0";

	КонецЕсли;

	Если ЭтоГруппа тогда

		СтрэтоГруппа = "1";

	иначе

		СтрэтоГруппа = "0";

	КонецЕсли;

	СтруктураРеквизитов = Новый Структура;

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

	

	СтруктураРеквизитов.Вставить("Наименование",Наименование);

	СтруктураРеквизитов.Вставить("код",код);

	....................

	Если не ЭтоГруппа тогда

		Если ОсновнойПоставщик.Пустая() тогда

			......................

		иначе

			.....................

		КонецЕсли;

		

	КонецЕсли;

	

	стрСтруктураРеквизитов = ЗначениеВСтрокуВнутр(СтруктураРеквизитов);

	

	ТаблицаЕдиницИзмерения = Новый ТаблицаЗначений;

	//GUIDЕдиницы

	//Базовая - булево

	//Коэффициент

	//ЕдиницаИзмерения - код классификатора Единиц измерения.

	//Утверждено - булево

	//ТаблицаГабаритов

	

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Наименование");

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Код");

	....................................

	Выборка = Справочники.ЕдиницыИзмерения.Выбрать(,ссылка);

	Пока Выборка.Следующий() цикл

		НовСтрока = ТаблицаЕдиницИзмерения.Добавить();

		НовСтрока.Наименование = Выборка.Наименование;

		НовСтрока.Код = Выборка.Код;

		..........................

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

		Для каждого колонка из Выборка.Габариты.Выгрузить().Колонки цикл

			ТаблицаГабаритов.Колонки.Добавить(колонка.Имя);

		КонецЦикла;

		Для каждого строка из Выборка.Габариты цикл

			НовСтрока1 = ТаблицаГабаритов.Добавить();

			Для каждого колонка из ТаблицаГабаритов.Колонки цикл

				НовСтрока1[колонка.Имя] = строка[колонка.Имя];

			КонецЦикла;

		КонецЦикла;

		

		НовСтрока.ТаблицаГабаритов = ЗначениеВСтрокуВнутр(ТаблицаГабаритов);

	КонецЦикла; 

	// т.к. наш вебсервис принимает в себя только строковые параметры, преобразуем наши таблицы в строки.

	стрТаблицаЕдиницИзмерения = ЗначениеВСтрокуВнутр(ТаблицаЕдиницИзмерения);

	

	есть = Ложь;

	колПопыток = 0;

	Пока не Есть и колПопытокцикл

		Попытка

			Определение = Новый WSОпределения(Константы.WebАдресМаркетинга.Получить()+"wssinhron.1cws"+"?wsdl",ПараметрыСеанса.Пользователь.Код,ПараметрыСеанса.Пользователь.ПарольЗакупок);

			Прокси = Новый WSПрокси(Определение, "www.market-sinhron.gor", "Синхронизация", "СинхронизацияSoap");

			Прокси.Пароль = ПараметрыСеанса.Пользователь.ПарольЗакупок;

			Прокси.Пользователь = ПараметрыСеанса.Пользователь.Код;

			Результат = Прокси.СинхронизироватьТовар(GUIDтовара, GUIDродителя, СтрЭтоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения, стрТаблицаТНВЭД);

			Определение = Null;

			Прокси = Null;

			есть = Истина;

		исключение

			колПопыток = колПопыток+1;

			Определение = Null;

			Прокси = Null;

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

	КонецЦикла;

	Если колПопыток=100 тогда

		#Если Клиент тогда

			сообщить(ОписаниеОшибки());

			Предупреждение("Ошибка синхронизации. отсутствует подключение.");

		#КонецЕсли

	КонецЕсли;

	передавать = ложь;

	сообщить(Результат);

	Если Лев(Результат,2)="ОК" тогда

		Синхронизирован = Истина;

		ВремяСинхронизации = ТекущаяДата();

		Записать();

	КонецЕсли;

	

	Если СокрЛП(Результат)="0 Не найден родитель товара" тогда

		#Если Клиент тогда

			Сообщить("вызов синхронизации родителя");

		#КонецЕсли

		ОбъектРодитель = родитель.ПолучитьОбъект();

		ОбъектРодитель.Записать();

		Записать();

	КонецЕсли;

	

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

 передавать = истина;

Синхронизация();   

 Функция GetClientOrders()

    МассивЗаказовПокупателейТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ArrayOfClientOrders");

    ЗаказПокупателяТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrder");

    ЗаказПокупателяСтрокаТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrderRow");

    НоменклатураТип = ФабрикаXDTO.Тип("http://company.com/1C/Nomenclature", "Nomenclature");

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

    Запрос.Текст = 

        "ВЫБРАТЬ

        |	ЗаказПокупателя.Ссылка,

        |	ЗаказПокупателя.Номер,

        |	ЗаказПокупателя.Дата

        |ИЗ

        |	Документ.ЗаказПокупателя КАК ЗаказПокупателя";

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

    Выборка = Результат.Выбрать();

    Если Выборка.Количество() = 0 Тогда

        Возврат Null;

    КонецЕсли;

    МассивЗаказовПокупателей = ФабрикаXDTO.Создать(МассивЗаказовПокупателейТип);

    

    Пока Выборка.Следующий() Цикл

        ЗаказПокупателя = ФабрикаXDTO.Создать(ЗаказПокупателяТип);

        ЗаказПокупателя.Number = Выборка.Номер;

        ЗаказПокупателя.Date = Выборка.Дата;

            Для каждого Строка Из Выборка.Ссылка.Товары Цикл

            ЗаказПокупателяСтрока = ФабрикаXDTO.Создать(ЗаказПокупателяСтрокаТип);

            Номенклатура = ФабрикаXDTO.Создать(НоменклатураТип);

            Номенклатура.Code = Строка.Номенклатура.Код;

            Номенклатура.Name = Строка.Номенклатура.Наименование;

            ЗаказПокупателяСтрока.Nomenclature = Номенклатура;

            ЗаказПокупателяСтрока.Count = Строка.Количество;

            ЗаказПокупателя.Products.Добавить(ЗаказПокупателяСтрока);

        КонецЦикла;

        МассивЗаказовПокупателей.ClientOrder.Добавить(ЗаказПокупателя);

    КонецЦикла;

    Возврат МассивЗаказовПокупателей;

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

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

//ДокументСсылка - ссылка на проверяемый документ

//ИмяТабЧасти    - имя проверяемой табличной части (строка)

//ПроверяемыеРеквизиты - перечень проверяемых реквизитов (строка, реквизиты разделяются запятой) 

 Процедура ПроверимДублиСтрок(ДокументСсылка,ИмяТабЧасти,ПроверяемыеРеквизиты,Отказ)

 

	ТаблицаДокумента = ДокументСсылка[ИмяТабЧасти].Выгрузить();

	ТаблицаДокумента.Колонки.Добавить("КвоПроверкаДублей"); 

	ТаблицаДокумента.ЗаполнитьЗначения(1, "КвоПроверкаДублей");

	

	ТаблицаДокумента.Свернуть(ПроверяемыеРеквизиты,"КвоПроверкаДублей");

	

	Для Каждого ТекущаяСтрока Из ТаблицаДокумента Цикл 

		Если ТекущаяСтрока.КвоПроверкаДублей > 1 Тогда

			РеквизитыДляСообщения = "";

			Стр = СокрЛП(ПроверяемыеРеквизиты);

			Пока Найти(Стр,",") > 0 Цикл

				НаимРеквизита = СокрЛП(Лев(Стр,Найти(Стр,",") - 1));

				Стр = Прав(Стр,СтрДлина(Стр) - Найти(Стр,","));

				РеквизитыДляСообщения = РеквизитыДляСообщения+ТекущаяСтрока[НаимРеквизита]+", ";

			КонецЦикла; 

			РеквизитыДляСообщения = РеквизитыДляСообщения+ТекущаяСтрока[СокрЛП(Стр)];

			

			Сообщить("Информация "+РеквизитыДляСообщения+" введена несколько раз в табличную часть, проведение невозможно!");

			Отказ = Истина;

		КонецЕсли; 

	КонецЦикла;

 

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

   

 // Процедура - обработчик события ОбработкаПроверкиЗаполнения объекта.

//

Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)

		

	Если Запасы.Количество() = 0 Тогда

		Возврат;

	КонецЕсли;

	

	ПроверимДублиСтрок(Ссылка, "Запасы", "Номенклатура, АлгоритмФормированияШК,Регион", Отказ);



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

   

 

Функция ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, ТекущаяПапка=Неопределено)

	Рез = Истина;

	Если ТекущаяПапка = Неопределено Тогда ТекущаяПапка = НачальнаяПапкаВыгрузкиКомп КонецЕсли; 

	МассивФайлов = НайтиФайлы(ТекущаяПапка, "*");

	ТекКаталог = СтрЗаменить(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(ТекущаяПапка, НачальнаяПапкаВыгрузкиКомп, ""), "\", "/"), "//", "/");

	Если Прав(ТекКаталог, 1) <> "/" Тогда

		ТекКаталог = ТекКаталог + "/";

	КонецЕсли;

	

	Для Каждого НайденныйФайл Из МассивФайлов Цикл

		Файл = Новый Файл(НайденныйФайл.ПолноеИмя);

		Если Файл.ЭтоКаталог() Тогда

			ЕстьТакаяПапка = Соединение.НайтиФайлы(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.Путь, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/"), НайденныйФайл.Имя).Количество() > 0;

			

			Если не ЕстьТакаяПапка Тогда

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

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

				КонецЦикла;

				Если Не Успешно Тогда

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

				КонецЕсли;

				

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

						Соединение.СоздатьКаталог(НайденныйФайл.Имя);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", каталог " + НайденныйФайл.Имя + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

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

				КонецЦикла;

				

				Если Не Успешно Тогда

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

				КонецЕсли;

				

				

			КонецЕсли;

			

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.ПолноеИмя, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/") + "/");

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			Если Не Успешно Тогда

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

			КонецЕсли;

			

			ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, НайденныйФайл.ПолноеИмя);



			Если не Рез Тогда

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

			КонецЕсли;

			

		Иначе

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			Если Не Успешно Тогда

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

			КонецЕсли;

		

			

			

			// почему-то иногда при большой выгрузке глюкает ((

			// а со второй попытки выкладывается.... странно...

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.Записать(НайденныйФайл.ПолноеИмя, НайденныйФайл.Имя);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", файл " + НайденныйФайл.ПолноеИмя + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			

			Если Не Успешно Тогда

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

			КонецЕсли;

			

			#Если Клиент Тогда

				Состояние("Выгрузка файла: " + НайденныйФайл.ПолноеИмя);

			#КонецЕсли

			

		КонецЕсли;

	КонецЦикла;

	

	Возврат Рез;

	

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





// ПРИМЕР обращения к функции

КаталогиДляПередачиНаFTP = Новый Соответствие;

// цикл и в нем

КаталогиДляПередачиНаFTP.Вставить(СсылкаНаЭлементСправочника);

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



// Теперь Выгрузим все на FTP

	Для Каждого Выборка из КаталогиДляПередачиНаFTP Цикл

	ВыборкаДетальныеЗаписи = Выборка.Ключ;

	Соединение = Новый FTPСоединение(ВыборкаДетальныеЗаписи.FTPСервер,

	ВыборкаДетальныеЗаписи.FTPПорт,

	ВыборкаДетальныеЗаписи.FTPПользователь,

	ВыборкаДетальныеЗаписи.FTPПароль, ,Ложь);

	ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, ВыборкаДетальныеЗаписи.FTPКаталогВыгрузки, ВыборкаДетальныеЗаписи.КаталогВыгрузкиДанных);

	КонецЦикла;

   

 Выбрать * Из РегистрНакопления.Продажи.Обороты   

 Выбрать Контрагент,СуммаОборот Из РегистрНакопления.Продажи.Обороты   

 Выбрать Контрагент,Номенклатура,СуммаОборот,СуммаУпрОборот Из РегистрНакопления.Продажи.Обороты   

 Выбрать Контрагент,Сумма(Сумма), Максимум(Сумма), Минимум(Сумма)

ИЗ РегистрНакопления.Продажи.Обороты(&ДатаС,&ДатаПо)

Сгруппировать По Контрагент

   

 Итоги . . . по   

 ВЫБРАТЬ

Номенклатура,

ПодразделениеКомпании,

СуммаПродажиОборот,

КоличествоОборот

ИЗ

РегистрНакопления.ПродажиКомпании.Обороты



ИТОГИ СУММА(КоличествоОборот), СУММА(СуммаПродажиОборот) ПО

ОБЩИЕ,

Номенклатура,

ПодразделениеКомпании   

 

//Реквизит "Листы" - неопределённого типа

//Реквизит "Файл" - строковой реквизит, в котором хранится путь к excel-файлу



Процедура ЗаполнитьЛисты()

	

	ЭлементыФормы.Листы.СписокВыбора.Очистить();

	Таблица = ПолучитьCOMОбъект(Файл);

	

	Для Н = 1 По Таблица.Sheets.Count Цикл

		ТекущийЛист = Строка(Таблица.Sheets(Н).Index) + ". " + Таблица.Sheets(Н).Name;

		ЭлементыФормы.Листы.СписокВыбора.Добавить(ТекущийЛист);

	КонецЦикла;

	ЭлементыФормы.Листы.Значение = ТекущийЛист;

	

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



Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	Если ЭлементыФормы.Листы.Значение = "" Тогда

		Предупреждение("Выберите лист", 5);

		Возврат;

	КонецЕсли;



	Таблица = ПолучитьCOMОбъект(Файл);

	Индекс = Число(Сред(ЭлементыФормы.Листы.Значение, 1, Найти(ЭлементыФормы.Листы.Значение, ". ") - 1));//извлекаем порядковый номер из текущего значения списка выбора

	Лист = Таблица.Sheets(Индекс);//получаем лист по порядковому номеру



	//теперь обращаемся к значениям в ячейках по своему усмотрению



	Строка = 1;

	Столбец = 4;



	КодНоменклатуры = Лист.Cells(Строка, Столбец).Value);

	Номенклатура = Лист.Cells(Строка, Столбец + 1).Text);

	

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

   

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

// вида: "Введен на основании: Счет на оплату № 000415 от 30 июня 2008 г."

// и возвращает массив содержащий название документа, номер и дату 

Функция РазбитьСтрокуДокументаНаНомерИДату(Стр)

	Симв1 = Найти(Стр,":");

	Симв2 = Найти(Стр,"№");

	Симв3 = Найти(Стр,"от");

	РезМассив = Новый Массив;

	РезМассив.Добавить(СокрЛП(Сред(Стр,Симв1+1, Симв2-Симв1-1)));

	РезМассив.Добавить(СокрЛП(Сред(Стр,Симв2+1, Симв3-Симв2-1)));

	РезМассив.Добавить(СокрЛП(Сред(Стр,Симв3+2, СтрДлина(Стр)-Симв3)));

	Возврат РезМассив;	

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



//Пример обращения

Реквизит1 = "Введен на основании: Счет на оплату № 000415 от 30 июня 2008 г."; 

МассивСДанными = РазбитьСтрокуДокументаНаНомерИДату(Реквизит1);

Сообщить("Документ - "+МассивСДанными[0]); 

Сообщить("Номер - "+МассивСДанными[1]); 

Сообщить("Дата - "+МассивСДанными[2]);



// Результат Будет

// Документ - Счет на оплату

// Номер - 000415

// Дата - 30 июня 2008 г.   

  // Функция преобразовавает строку

// вида: "Введен на основании: Счет на оплату № 000415 от 30 июня 2008 г."

// и возвращает массив содержащий название документа, номер и дату

Функция РазбитьСтрокуДокументаНаНомерИДату(Стр)

    Симв1 = Найти(Стр,":");

	Симв2 = Найти(Стр,"№");

	Симв3 = Найти(Стр,"от");

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

	Список.ДобавитьЗначение(СокрЛП(Сред(Стр,Симв1+1, Симв2-Симв1-1)));

	Список.ДобавитьЗначение(СокрЛП(Сред(Стр,Симв2+1, Симв3-Симв2-1)));

	Список.ДобавитьЗначение(СокрЛП(Сред(Стр,Симв3+2, СтрДлина(Стр)-Симв3)));

	Возврат Список;	

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





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

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

 	Реквизит1 = "Введен на основании: Счет на оплату № 000415 от 30 июня 2008 г.";

	СпЗсДанными = РазбитьСтрокуДокументаНаНомерИДату(Реквизит1);

	Сообщить("Документ - "+ СпЗсДанными.ПолучитьЗначение(1));

	Сообщить("Номер - "+ СпЗсДанными.ПолучитьЗначение(2));

	Сообщить("Дата - "+ СпЗсДанными.ПолучитьЗначение(3));

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

 Функция ПолучитьВажныеРеквизиты(ВидКонтрагента)



МассивРеквизитов = Новый Массив;



Если ВидКонтрагента = Перечисления.ВидыКонтрагентов.Поставщик Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("ТипЦен");

МассивРеквизитов.Добавить("ЛимитКледита");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Покупатель Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ФактАдрес");

МассивРеквизитов.Добавить("ПроцентБонусов");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Банк Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("БИК");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Налоговая Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("КодИФНС");



КонецЕсли;



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

   

 «ОбработкаПолученияДанныхВыбора»   

 Справочники.Номенклатура.Печать(ТабДок, Ссылка)   

  //Как из номера, числа недели вернуть первую Дату этой недели?

Функция ДатаПоНомеруНедели(НомерНедели,   Год = Неопределено)

   Возврат НачалоНедели(Дата(?(Год=Неопределено, Год(ТекущаяДата()), Год),1,1)+(НомерНедели-НеделяГода(Дата(?(Год = Неопределено, Год(ТекущаяДата()), Год), 1, 1))) * 604800);

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



//ПРИМЕРЫ ОБРАЩЕНИЯ:

ТекДата = ТекущаяДата();

Сообщить("Текущая Дата - "+Строка(ТекДата));

Сообщить("Неделя года - "+Строка(НеделяГода(ТекДата)));

Сообщить("--------------------------");

Сообщить(ДатаПоНомеруНедели(НеделяГода(ТекДата)));

Сообщить(ДатаПоНомеруНедели(НеделяГода(ТекДата), 2005));



// В окно сообщений будет выведено:

//

// Текущая Дата - 20.08.2010 0:00:00

// Неделя года - 34

// ----------------------------

// 16.08.2010 0:00:00

// 15.08.2005 0:00:00

   

 спрНомен = Метаданные.Справочники.Номенклатура;

	Сообщить("Имя справочника """ + спрНомен.Имя + """");

	Сообщить("Комментарий " + спрНомен.Комментарий);

	Сообщить("ВидИерархии " + спрНомен.ВидИерархии);

	Сообщить("КоличествоУровней " + спрНомен.КоличествоУровней);

	Сообщить("ИспользованиеПодчинения " + спрНомен.ИспользованиеПодчинения);

// Результат:

// Имя справочника "Номенклатура"

// Комментарий Перечень товаров

//ВидИерархии ИерархияГруппИЭлементов

// КоличествоУровней 2

// ИспользованиеПодчинения Элементам