Функция ПолучитьСписокДоменов () Экспорт  

	Результат = Новый Массив(); 

	objNameSpace = "";                   

	Попытка  objNameSpace = ПолучитьCOMОбъект("WinNT:");   

		м = Новый Массив();  м.Добавить("domain"); // Computer User Group GlobalGroup domain  

		м2 = Новый COMSafeArray(м, "VT_VARIANT");  

		objNameSpace.Filter = м2;  

		Для каждого item Из objNameSpace Цикл   

			Результат.Добавить(item.Name);  

		КонецЦикла; 

	Исключение  

		Результат.Очистить(); 

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

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

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





Функция ПолучитьСписокГруппВДомене (ИмяДомена, ТипГрупп = "GlobalGroup") Экспорт  

	Результат = Новый Массив(); 

	objNameSpace = "";  

	Попытка  objNameSpace = ПолучитьCOMОбъект("WinNT://"+СокрЛП(ИмяДомена));   

		м = Новый Массив();  

		м.Добавить(ТипГрупп); // Computer User Group GlobalGroup domain  

		м2 = Новый COMSafeArray(м, "VT_VARIANT");  

		objNameSpace.Filter = м2;  

		Для каждого item Из objNameSpace Цикл   

			Результат.Добавить(item.Name);  

		КонецЦикла; 

	Исключение  

		Результат.Очистить(); 

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

	

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

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

	

Функция ПолучитьСписокПользователейВГруппеДомена (ИмяДомена, ИмяГруппы) Экспорт  

	Результат = Новый Массив(); 

	objNameSpace = "";  

	Попытка  

		objNameSpace = ПолучитьCOMОбъект("WinNT://" + СокрЛП(ИмяДомена) + "/" + СокрЛП(ИмяГруппы) + ", Group");   

		Для каждого item Из objNameSpace.Members() Цикл   

			Результат.Добавить(item.Name);  

		КонецЦикла; 

	Исключение  

		Результат.Очистить(); 

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

	

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

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



Функция ПользовательВГруппеДомена (ИмяДомена, ИмяГруппы, ИмяПользователя) Экспорт  

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

	Массив = ПолучитьСписокПользователейВГруппеДомена (СокрЛП(ИмяДомена), ИмяГруппы);

	Для каждого элМассив из Массив Цикл  

		Если ВРег(элМассив) = ВРег(СокрЛП(ИмяПользователя)) Тогда   // пользователь уже в группе   

			Результат = Истина;    

			Прервать;  

		КонецЕсли; 

	КонецЦикла;  

	

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

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



Функция ДобавитьПользователяВГруппуДомена (ИмяДомена, ИмяГруппы, ИмяПользователя) Экспорт  

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

	element_user = ""; 

	element_group = "";  

	Попытка  

		element_user = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяПользователя + ", user");  

		element_group = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяГруппы + ", group");  

		element_group.Add(element_user.ADsPath);  element_group.SetInfo();  

		Результат = Истина; 

	Исключение  

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

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

	

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

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



Функция УдалитьПользователяИзГруппыДомена (ИмяДомена, ИмяГруппы, ИмяПользователя) Экспорт  

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

	element_user = ""; 

	element_group = "";  

	Попытка  element_user = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяПользователя + ", user");  

		element_group = ПолучитьCOMОбъект("WinNT://" + ИмяДомена + "/" + ИмяГруппы + ", group");  

		element_group.Remove(element_user.ADsPath);  

		element_group.SetInfo();  

		Результат = Истина; 

	Исключение  

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

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

	

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

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



Процедура ЗаполнитьПочтовыеАдресаИзAD() 

	Попытка      

		conn = ПолучитьCOMОбъект("","ADODB.Connection");  

		conn.Provider = "ADSDSOObject";  

		conn.Open("Active Directory Provider"); 

	Исключение  Предупреждение("Ошибка подключения к Active Directory!");  

		Возврат; 

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

	

	Для Каждого Стр из Таблица Цикл  

		Если НЕ ПустаяСтрока(Стр.Логин) Тогда   

			Попытка        

				query = "SEL ECT ADsPath FR OM 'LDAP://DC="+СокрЛП(Домен.Код)+"' WHERE SAMAccountName='"+Стр.Логин+"'";    

				rs = conn.Execute(query);    

				Пока НЕ rs.EOF() Цикл     

					obj = ПолучитьCOMОбъект(rs.Fields(0).Value);     

					Если obj.Class="user" Тогда      

						Стр.НоваяПочта=СокрЛП(obj.EmailAddress);      

						Если Стр.НоваяПочта<>Стр.СтараяПочта Тогда       

							Стр.Установить=Истина;      

						КонецЕсли;     

					КонецЕсли;     

					rs.MoveNext();    

				КонецЦикла;   

			Исключение

				Сообщить("Ошибка получения почты для логина :"+Стр.Логин);				                                                      

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

		КонецЕсли;

	КонецЦикла;

	conn.Close();	

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



Функция УдалитьПроцесс (ИмяКомпьютера, НазваниеПроцесса, Логин, Пароль) Экспорт  

	Попытка  COM = Новый COMОбъект ("WbemScripting.SWbemLocator");  

		Серв = COM.ConnectServer(СокрЛп(ИмяКомпьютера), "\root\cimv2", СокрЛП(Логин), СокрЛП(Пароль));  

		СписокПроцессов = Серв.execQuery("Sel ect * fr om Win32_Process Where Name = '"+СокрЛП(НазваниеПроцесса)+"'");  

		Для каждого item Из СписокПроцессов Цикл   

			item.Terminate();  

		КонецЦикла; 

	Исключение  

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

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

	

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

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

 // coder1cv8 - Мой вариант получения почты 1С-ного пользователя:

Функция ПолучитьMailПоПользователю(СсылкаПользователь)

Адрес="";

ПользовательИБ=ПользователиИнформационнойБазы.НайтиПоИмени(СокрЛП(СсылкаПользователь.Код));

Если ПользовательИБ<>Неопределено Тогда

   Если ПользовательИБ.АутентификацияОС Тогда

     ПользовательОС=СтрЗаменить(ПользовательИБ.ПользовательОС,"\","/");

       Попытка

         ЮзерАД=ПолучитьCOMОбъект("WinNT:"+ПользовательОС+",user");

         LDAP=ПолучитьCOMОбъект("LDAP://CN="+ЮзерАД.FullName+",OU=Common Users,OU=Regular Users,DC="+Домен+",DC=local");

         Адрес=LDAP.Mail;

       Исключение

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

  КонецЕсли;

КонецЕсли;

Возврат Адрес;

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

 Connection = Новый COMОбъект("ADODB.Connection");

СтрокаПодключения = "Provider=SQLOLEDB.1;Password=" + Здесь пароль доступа + ";Persist Security Info=True;User ID=" + Здесь имя пользователя + ";Initial Catalog=" + Здесь имя БД + "; Data Source=" + Здесь имя сервера + ";";



//Ну и выполним какой-нибудь запрос с обходом:

Результат = Новый COMОбъект("ADODB.Command");

Результат.ActiveConnection = Connection; // работаем через это соединение

Результат.CommandTimeOut = Connection.CommandTimeOut; // таков тайм-аут

Результат.CommandType = "adCmdText"; // исполняем в точности процедуру

Результат.CommandText =    " S_elect name as Наименование

| FROM

|    dbo.sysobjects'";



Выборка = Результат.Execute(); // выполняем процедуру

Пока Выборка.Eof() = 0 Цикл

    Сообщить(Выборка.Fields("Наименование").Value);

   Выборка.MoveNext();

КонецЦикла;       

 РабДата=Лев(СокрЛП(РабочаяДата),10);

    //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); 

    НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

    НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

   

    МойЗапрос = "    

    |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost

    |FROM RG38027, SC172, _1SJOURN, DH38011

    |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) =  CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND

    |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |

    |U_nion ALL

    |

    |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost

    |FROM RA38027, SC172, _1SJOURN, DH38011

    |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <=  CONVERT (DATETIME , '"+РабДата+"')) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) >  CONVERT (DATETIME , '"+НачМесяца+"')) AND

    |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0

    |ORDER BY SC172.DESCR";

    

    Connection = Новый COMОбъект("ADODB.Connection");

    //Connection.Provider = Провайдер; 

    Connection.ConnectionString = мдСтрокаПодключения;

    

    //Сообщить(МойЗапрос); 

    

    Попытка

        Connection.Open();

    Исключение

        Сообщить("Подключение - bad!");

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



    RS = Новый COMОбъект("ADODB.Recordset");

    //RS.CursorType = 3; 

    RS.Open(МойЗапрос, Connection );

    

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

    ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30);

    ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10));

    ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10);

    ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10);

    ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15);

    

    Пока RS.EOF() = 0 Цикл

        КонтрагентНаименование = RS.Fields("DESCR").Value;

        ИДДокумента = RS.Fields("SP38025").Value;

        НомерДок = RS.Fields("DOCNO").Value;

        ДатаДок = RS.Fields("DATADOC").Value;        

        СуммаОстаток = Число(RS.Fields("Ost").Value);

        

        Если СуммаОстаток = 0 Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;

        

        Стр=ТЗ.Добавить();

        

        Стр.КонтрагентНаименование = КонтрагентНаименование;

        Стр.ИДДокумента = ИДДокумента;

        Стр.НомерДок = НомерДок;

        Стр.ДатаДок = Дата(ДатаДок);        

        Стр.СуммаОстаток = СуммаОстаток;

        

        RS.MoveNext();

    КонецЦикла;   

 // Функция для Платформы 1С 8.0 или 8.1

// Выполняет загрузку из файла Excel

//

// Параметры

//  ПутьКФайлу  - <Строка>            - путь к файлу xls

//

// Автор: ---%%%Gmix 16.03.2006 12:38:48

//     

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

//   <Булево>   – Истина загрузка произошла

//                                             - Ложь загрузки не было

//

Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт

       

            Файл=Новый Файл(ПутьКФайлу);



            Если Файл.Существует() Тогда

                        Стр_Файл=Файл.ПолноеИмя;

        

                        // Отрезаем слеш если он есть в конце пути

                        Стр_Путь=Файл.Путь;

                        Если Прав(Стр_Путь,1)="\" Тогда

                                   Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1);

                        КонецЕсли;

                       

                        // Строка корнекта

                        Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)};

                    |DriverId=790;

                    |Dbq="+Стр_Файл+";

                    |DefaultDir="+Стр_Путь+";"; 

                        Об_Конект = Новый COMОбъект("ADODB.Connection");

                        Попытка

                                    Об_Конект.Open(Стр_Конект);           

                        Исключение

                                   Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!

                                   |Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");

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

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

                       

                        // формируем запрос

                        // Здесь есть нюанс первая строка данных всегда будет являться заголовком

// если она пустая то имена клонок формируются следующим образом F<Номер колонки>

                        Стр_SQL = "S_elect

                |     F1 as Артикул,

                |     F2 as Наименование,

                |     F3 as ПолноеНаименование

                | FROM [A1:AZ100000]

                | WHERE ((F1 Is Not Null) AND (F1 <>''))";

                Об_РекордСет = Новый COMОбъект("ADODB.Recordset");



                        Попытка

                                   Об_РекордСет=Об_Конект.Execute(Стр_SQL);

                        Исключение

                                   Сообщить("Не удадлось выполнить запрос к файлу Excel

                                   |"+ ОписаниеОшибки(),СтатусСообщения.Важное);

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

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



                     

                        Пока НЕ Об_РекордСет.EOF Цикл

                                  // Получаем данные из Об_РекордСет

                                   // ...

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

                                   Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл

                // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 

                                   КонецЦикла;

                                   // ...

                                   Об_РекордСет.MoveNext();

                        КонецЦикла;

                      

                        Об_Конект.Close();     // Закрываем конект

                        Об_Конект=Неопределено;

                        Об_РекордСет=Неопределено;



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

            Иначе

                        Сообщить("Файл "+ПутьКФайлу+" не найден!");

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

            КонецЕсли;

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

 НачатьТранзакцию();

	стрПодключения = "Driver={Microsoft Visual FoxPro Driver};

	|SourceType=DBF;SourceDB=\\192.168.***.***\server\baza\;

	|Exclusive=No; Collate=Machine;NULL=NO;DELETED=YES;BACKGROUNDFETCH=NO;";

	Connect = Новый COMОбъект("ADODB.Connection");

	попытка

		Connect.Open(стрПодключения);

	исключение

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

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

		Возврат;

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

	RS = Новый COMОбъект("ADODB.RecordSet");

	RS.Open("Select * from country where !deleted()",Connect);

	пока RS.EOF()=0  цикл

		Если Число(RS.Fields("cntry_code").Value)>0 тогда

			РезультатПоиска = Справочники.КлассификаторСтранМира.НайтиПоКоду(Число(RS.Fields("cntry_code").Value));	 

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

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

				НоваяСтрана.Код =Число(RS.Fields("cntry_code").Value);

				НоваяСтрана.Наименование = СокрЛП(RS.Fields("cntry_name").Value);

				НоваяСтрана.Записать();

			Иначе

				НайденнаяСтрана=РезультатПоиска.ПолучитьОбъект();

				НайденнаяСтрана.Наименование=СокрЛП(RS.Fields("cntry_name").Value);

				НайденнаяСтрана.Записать();

				Сообщить("Страна с кодом "+ СокрЛП(RS.Fields("cntry_code").Value)+ "уже существует");

			конецесли;

		КонецЕсли;

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

		Сообщить(СокрЛП(RS.Fields("cntry_code").Value)+"  " + СокрЛП(RS.Fields("cntry_name").Value));	

		RS.MoveNext();

	КонецЦикла;

	RS.Close();

	Connect.Close();

	ЗафиксироватьТранзакцию();   

 // Загружает данные из текстовых данных

// Параметры

// Стр_КаталогДанных - <Строка>

// Автор: Gmix 04.05.2006 12:22:09

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

//   <Булево>

Функция ЗагрузитьДанныеИзtxt(Стр_КаталогДанных)

            // проверки заполнения

           

            ОБ_ФайлДанных=Новый Файл(Стр_КаталогДанных);

            Если НЕ ОБ_ФайлДанных.ЭтоКаталог() Тогда

                        Сообщить("Необходимо указать каталог данных!",СтатусСообщения.ОченьВажное);

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

            КонецЕсли;

           

            Если НЕ ОБ_ФайлДанных.Существует() Тогда

                Сообщить("Каталог """+Стр_КаталогДанных+""" не существует!",СтатусСообщения.ОченьВажное);

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

            КонецЕсли;

           

            ОБ_АДОКонект = Новый COMОбъект("ADODB.Connection");

            ОБ_АДОРекордсетШапка = Новый COMОбъект("ADODB.Recordset");

            ОБ_АДОРекордсетСтроки = Новый COMОбъект("ADODB.Recordset");

           

            //Определяем пару файлов

            Стр_ОкончаниеФайла="";

            ФайлыШапок = НайтиФайлы(Стр_КаталогДанных, "Head_*.txt");

            Для каждого ФайлШапки Из ФайлыШапок Цикл

                        Стр_ОкончаниеФайла=Сред(ФайлШапки.ИмяБезРасширения,6);

                        Стр_таблицаШапки=ФайлШапки.Имя;

                       

                        Стр_ТаблицаСтрок="Rows_"+Стр_ОкончаниеФайла+".txt";

                        Стр_ИмяФайлСтрок=ДобавлениеСлеша(Стр_КаталогДанных)+Стр_ТаблицаСтрок;

                        ФайлСтрок=Новый Файл(Стр_ИмяФайлСтрок);

                        Если НЕ ФайлСтрок.Существует() Тогда

                            Сообщить("Не найден файл строк для файла шапки """+Стр_таблицаШапки+"""! Пара файлов не обработана",СтатусСообщения.Важное);

                                   Продолжить;

                        КонецЕсли;

                       

                        //Создаем схему данных

                        ФайлСхемыДанных=Новый Файл(ДобавлениеСлеша(Стр_КаталогДанных)+"schema.ini");

                        Если ФайлСхемыДанных.Существует() Тогда

                                   Попытка

                                       УдалитьФайлы(ФайлСхемыДанных.Путь,ФайлСхемыДанных.Имя);

                                   Исключение

                                       Сообщить("Не возможно удалить файл """+ФайлСхемыДанных.ПолноеИмя+""" для создания новой схемы данных! Проверте атрибуты файла",СтатусСообщения.Важное);

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

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

                        КонецЕсли;

                       

                        Стр_СхемаДанныхТхт="["+Стр_таблицаШапки+"]

                                                                                  |ColNameHeader=False

                                                                                  |Format=FixedLength

                                                                                  |Col1=NumberNote Text Width 20

                                                                                  |Col2=StoreNum Text Width 5

                                                                                  |Col3=DataNote DateTime Width 10

                                                                                  |Col4=DataDev DateTime Width 10

                                                                                  |Col5=DataDes DateTime Width 10

                                                                                  |Col6=CountLine Long Width 4

                                                                                  |["+Стр_ТаблицаСтрок+"]

                                                                                  |ColNameHeader=False

                                                                                  |Format=FixedLength

                                                                                  |Col1=NumberNote Text Width 20

                                                                                  |Col2=Articul Text Width 7

                                                                                  |Col3=Counts Double Width 9";

                       

                        ТекстСхемы=Новый ЗаписьТекста(ФайлСхемыДанных.ПолноеИмя, КодировкаТекста.ANSI);

                        ТекстСхемы.Записать(Стр_СхемаДанныхТхт);

                        ТекстСхемы.Закрыть();

                       

                        // Создаем коннект

                        Попытка

                                   ОБ_АДОКонект.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Стр_КаталогДанных+";Extended Properties='text;FMT=Delimited;HDR=NO'");

                        Исключение

                                   Сообщить("Невозможно открыть соединение!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

 

                        Стр_SQL = "S_elect * FROM "+Стр_таблицаШапки;

                       

                        Попытка

                                    ОБ_АДОРекордсетШапка=ОБ_АДОКонект.Execute(Стр_SQL);                

                        Исключение

                            Сообщить("Ошибка выполнения запроса """+Стр_SQL+"""!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

 

                        Пока НЕ ОБ_АДОРекордсетШапка.EOF Цикл

                                  

                                   // Заказ

                                  

                                   Стр_НомерЗаказа     = ОБ_АДОРекордсетШапка.Fields("NumberNote").Value;

                                   Стр_КодКА= ОБ_АДОРекордсетШапка.Fields("StoreNum").Value;

                                  

                                   Д_ДатаЗаказа= ОБ_АДОРекордсетШапка.Fields("DataNote").Value;

                                   Д_ДатаДоставки= ОБ_АДОРекордсетШапка.Fields("DataDev").Value;

                                   Д_ДатаСбора= ОБ_АДОРекордсетШапка.Fields("DataDes").Value;

                                   Ч_КоличествоСтрок            = ОБ_АДОРекордсетШапка.Fields("CountLine").Value;

                               

                                   Сообщить("Заказ № "+Стр_НомерЗаказа+" от " +Д_ДатаЗаказа+ " Код контрагента: "+Стр_КодКА+" Дата доставки: "+Д_ДатаДоставки);



                                   // Обработка строк заказа

                                  Стр_SQL = "S_elect * FROM "+Стр_ТаблицаСтрок+" WHERE NumberNote='"+Стр_НомерЗаказа+"'";

                                   Попытка

                                               ОБ_АДОРекордсетСтроки=ОБ_АДОКонект.Execute(Стр_SQL);               

                                   Исключение

                                               Сообщить("Ошибка выполнения запроса """+Стр_SQL+"""!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

                                  

                                   Сч=0;

                                   Сообщить(" №           Артикул                     Количество");

                                   Пока НЕ ОБ_АДОРекордсетСтроки.EOF Цикл

                                               //Заполняем таб часть документа

                                               Сч=Сч+1;

                                              Стр_Артикул=СокрЛП(ОБ_АДОРекордсетСтроки.Fields("Articul").Value);

                                               Ч_Количество=ОБ_АДОРекордсетСтроки.Fields("Counts").Value;

                                               Сообщить(""+Сч+"    " +Стр_Артикул+ "               "+Ч_Количество);

                                               ОБ_АДОРекордсетСтроки.MoveNext();

                                   КонецЦикла;

                                   ОБ_АДОРекордсетШапка.MoveNext();

                        КонецЦикла;

            КонецЦикла;

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

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

 // Выполняет загрузку из файла Excel

// Параметры

//  ПутьКФайлу  - <Строка>            - путь к файлу xls

// Автор: ---%%%Gmix 16.03.2006 12:38:48

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

//   <Булево>   – Истина загрузка произошла

//                       - Ложь загрузки не было

Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт



            Файл=Новый Файл(ПутьКФайлу);



            Если Файл.Существует() Тогда

                        Стр_Файл=Файл.ПолноеИмя;

                        // Отрезаем слеш если он есть в конце пути

                        Стр_Путь=Файл.Путь;

                        Если Прав(Стр_Путь,1)="\" Тогда

                                   Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1);

                        КонецЕсли;

                     // Строка корнекта

                    Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)};

                    |DriverId=790;

                    |Dbq="+Стр_Файл+";

                    |DefaultDir="+Стр_Путь+";"; 

                        Об_Конект = Новый COMОбъект("ADODB.Connection");

                        Попытка

                                    Об_Конект.Open(Стр_Конект);           

                        Исключение

                                   Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!

                                   |Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");

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

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



// формируем запрос

// Здесь есть нюанс первая строка данных всегда будет являться заголовком

// если она пустая то имена клонок формируются следующим образом F<Номер колонки>

               Стр_SQL = "S_elect

                |     F1 as Артикул,

                |     F2 as Наименование,

                |     F3 as ПолноеНаименование

                | FROM [A1:AZ100000]

                | WHERE ((F1 Is Not Null) AND (F1 <>''))";

                        Об_РекордСет = Новый COMОбъект("ADODB.Recordset");



                        Попытка

                                   Об_РекордСет=Об_Конект.Execute(Стр_SQL);

                        Исключение

                                   Сообщить("Не удадлось выполнить запрос к файлу Excel

                                   |"+ ОписаниеОшибки(),СтатусСообщения.Важное);

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

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



                        Пока НЕ Об_РекордСет.EOF Цикл

                                   // Получаем данные из Об_РекордСет

                                   // ...

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

                                  Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл

                                     // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 

                                   КонецЦикла;

                                   // ...

                                   Об_РекордСет.MoveNext();

                        КонецЦикла;



                        Об_Конект.Close();     // Закрываем конект

                        Об_Конект=Неопределено;

                        Об_РекордСет=Неопределено;

                    

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

            Иначе

                        Сообщить("Файл "+ПутьКФайлу+" не найден!");

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

            КонецЕсли;

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

  Перем СсылкаНаДокумент;



Процедура СформироватбФайл_MS_Word_И_OpenOffice(Кнопка)

	

	ДокументСсылка = СсылкаНаДокумент;

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



	// Теперь формируем файл из MS Wordа

	Попытка

		

		MSWord = новый COMОбъект("Word.Application");

		//Передаем текущие параметры форм в MSWord

		MSWord.Documents.Open(ИмяФайла);	

		MSWordDoc = MSWord.ActiveDocument();

		

		WordContent =  MSWord.ActiveDocument().ActiveWindow.S_election;

		

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

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

		// с именами табличных частей.

		Для ТекущаяТаблица = 1 ПО MSWordDoc.Tables.Count Цикл 

			мТабличнаяЧасть = Неопределено;

			Для ТекущаяСтрока  = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Rows.Count Цикл 

				Для ТекущаяКолонка = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Columns.Count Цикл 

					

					мТабличнаяЧасть = ИмяТабличнойЧастиВСтроке(

					ПолучитьСтартПеременной( MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока,ТекущаяКолонка).Range.Text	) 

					,ДокументСсылка);

					

					Если  мТабличнаяЧасть <> Неопределено Тогда

						Прервать;;	

					КонецЕсли;	

					

				КонецЦикла;

				Если  мТабличнаяЧасть <> Неопределено Тогда

					Прервать;;	

				КонецЕсли;	

			КонецЦикла;

			

			//Итак мы имеем номер текущей таблицы  и имя табличной части

			Если  мТабличнаяЧасть <> Неопределено Тогда

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

				ВсегоСтрокТЧ = 0;

				Для Каждого строкаТЧ Из  ДокументСсылка[мТабличнаяЧасть.Имя] Цикл

					ВсегоСтрокТЧ = ВсегоСтрокТЧ+1;

				КонецЦикла;

				//ВсегоСтрокТЧ = ДокументСсылка[мТабличнаяЧасть.Имя].Количество;

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

				Для ТекущаяСтрокаТЧ  = 1  По ВсегоСтрокТЧ Цикл

					Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда

						MSWordDoc.Tables(ТекущаяТаблица).Rows.Add(MSWordDoc.Tables(ТекущаяТаблица).Rows(ТекущаяСтрока+ТекущаяСтрокаТЧ-1));

					КонецЕсли;	

					//MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,2).Range.Text = Строка(ТекущаяСтрокаТЧ);

					Для ТекКол = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Columns.Count Цикл 

						Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда

							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ,ТекКол).Range.Text));

							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");

							MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;

						Иначе

							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text));

							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");

							MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;

						КонецЕсли;	

					КонецЦикла;	

				КонецЦикла;	

				//MSWordDoc.Tables(ТекущаяТаблица).Rows.Delete();

				//MSWordDoc.Tables(ТекущаяТаблица).Rows(3).Delete();

			КонецЕсли;	

		КонецЦикла;

		

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

		// Вытаскивам из шаблона текст 

		ТекстДокумента = MSWordDoc.Range(0, MSWordDoc.Characters.Count).Text;

		

		// Из текста вытаскиваем Имена переменных залюченных а скобки []

		Список = ПолучитьСписокПеременных(ТекстДокумента);

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

		

		// Заполняем в структуру ревизитовперечень переменных

		СтруктураРеквизитов=СтруктураРеквизитовДокумента(ДокументСсылка);

		ЗначениеРеквизита="";

		Для Каждого ЭлементСписка Из Список Цикл

			

			// Если находится соответствие переменной из документа и шаблона то производим замену

			Если СтруктураРеквизитов.Свойство(ЭлементСписка.Значение, ЗначениеРеквизита ) Тогда

				//Сообщить("["+ЭлементСписка.Значение+"]"+" : "+ЗначениеРеквизита);

				WordContent.Find.Execute("["+ЭлементСписка.Значение+"]",0,0,0,0,0,-1,,,Строка(ЗначениеРеквизита),2);		

			Иначе

				Сообщить("-> " + ЭлементСписка.Значение+" - Не найден в структуре документа");

				// Заменим переменную на пустую строку

				WordContent.Find.Execute("["+ЭлементСписка.Значение+"]",0,0,0,0,0,-1,,," ",2);		

			КонецЕсли;

			

		КонецЦикла;

		

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

		MSWord.S_election.WholeStory();

		MSWord.S_election.Fields.Update();

		MSWord.S_election.HomeKey();	

		

		//MSWordDoc.SaveAs(ИмяФайла);

		

		//отображаем MSWord

		MSWord.Visible=1;

		MSWord.Activate();

		

	Исключение

		Предупреждение(ОписаниеОшибки());

		MSWord.Quit();

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

	

	

	// Теперь формируем файл из OpenOffice

	

	Попытка

		ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");

		Reflection = ServiceManager.createInstance("com.sun.star.reflection.CoreReflection");

		Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");

		

		Args = Новый COMSafeArray("VT_DISPATCH", 1);

		OOДокумент = Desktop.loadComponentFromURL(ПреобразоватьВURL(ИмяФайла), "_blank", 0, Args);

		

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

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

		// с именами табличных частей.

		Для ТекущаяТаблица = 0 ПО OOДокумент.getTextTables().Count-1 Цикл 

			мТабличнаяЧасть = Неопределено;

			Для ТекущаяСтрока  = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.Count-1 Цикл 

				Для ТекущаяКолонка = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 

					

					мТабличнаяЧасть = ИмяТабличнойЧастиВСтроке(

					ПолучитьСтартПеременной( OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекущаяКолонка, ТекущаяСтрока).string	) 

					,ДокументСсылка);

					

					Если  мТабличнаяЧасть <> Неопределено Тогда

						Прервать;;	

					КонецЕсли;	

					

				КонецЦикла;

				Если  мТабличнаяЧасть <> Неопределено Тогда

					Прервать;;	

				КонецЕсли;	

			КонецЦикла;

			

			//Итак мы имеем номер текущей таблицы  и имя табличной части

			Если  мТабличнаяЧасть <> Неопределено Тогда

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

				ВсегоСтрокТЧ = 0;

				Для Каждого строкаТЧ Из  ДокументСсылка[мТабличнаяЧасть.Имя] Цикл

					ВсегоСтрокТЧ = ВсегоСтрокТЧ+1;

				КонецЦикла;

				//ВсегоСтрокТЧ = ДокументСсылка[мТабличнаяЧасть.Имя].Количество;

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

				Для ТекущаяСтрокаТЧ  = 1  По ВсегоСтрокТЧ Цикл

					Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда

						// Добавляем строку перед нашей

						OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.I_nsertByIndex(ТекущаяСтрока+ТекущаяСтрокаТЧ-1, 1);

					КонецЕсли;	

					

					Для ТекКол = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 

						

						Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда             

							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ).string));

							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");

							OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;

						Иначе                                                   

							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string));

							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");

							

							OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;

						КонецЕсли;	

					КонецЦикла;	

				КонецЦикла;	

			КонецЕсли;	

		КонецЦикла;

		

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

		// Вытаскивам из шаблона текст 

		//ТекстДокумента = MSWordDoc.Range(0, MSWordDoc.Characters.Count).Text;

		ТекстДокумента = ООПолучитьТекст(OOДокумент);

		

		// Из текста вытаскиваем Имена переменных залюченных а скобки []

		Список = ПолучитьСписокПеременных(ТекстДокумента);

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

		

		// Заполняем в структуру ревизитовперечень переменных

		СтруктураРеквизитов=СтруктураРеквизитовДокумента(ДокументСсылка);

		ЗначениеРеквизита="";

		

		OOЗамена = OOДокумент.CreateReplaceDescriptor();

		

		Для Каждого ЭлементСписка Из Список Цикл

			

			// Если находится соответствие переменной из документа и шаблона то производим замену

			Если СтруктураРеквизитов.Свойство(ЭлементСписка.Значение, ЗначениеРеквизита ) Тогда

				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";

				OOЗамена.ReplaceString = Строка(ЗначениеРеквизита);

				OOДокумент.ReplaceAll(OOЗамена);

			Иначе

				Сообщить("-> " + ЭлементСписка.Значение+" - Не найден в структуре документа");

				// Заменим переменную на пустую строку

				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";

				OOЗамена.ReplaceString = " ";

				OOДокумент.ReplaceAll(OOЗамена);

				

			КонецЕсли;

			

		КонецЦикла;

		OOДокумент.getCurrentController().getFrame().getContainerWindow().setFocus();

		

	Исключение

		Предупреждение(ОписаниеОшибки());

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

	

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

   //ДОПОЛНИТЕЛЬНО НЕОБХОДИМЫЕ ФУНКЦИИ

// Добавлем форматы представления полей и дополнительную информацию о полях

Процедура ДобавитьФорматы(ПереченьРеквизитов,Значение,пПредставлениеРеквизита, ДокументСсылка = Неопределено)

	Если ТипЗнч(Значение) = Тип("Дата")  Тогда  // расширяем представление даты

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ДФddMMyyyy",Формат(Значение,"ДФ=dd.MM.yyyy"));

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ДЛФDD",Формат(Значение,"ДЛФ=DD"));

	ИначеЕсли ТипЗнч(Значение) = Тип("Число") Тогда  // расширяем представление числа

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧДЦ2ЧГ0",Формат(Значение,"ЧДЦ=2; ЧГ=0"));

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧДЦ2",Формат(Значение,"ЧДЦ=2"));

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧПропись",Значение);

	ИначеЕсли  (ТипЗнч(Значение) = Тип("СправочникСсылка.КонтактныеЛица"))  или  (ТипЗнч(Значение) = Тип("СправочникСсылка.ФизическиеЛица")) Тогда

		// Расширяем выводимые поля для типов физ. лица, контакные лица сокращением инициалов	

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ФИО",Строка(Значение));

	КонецЕсли

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



Процедура ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,РеквизитСсылка,Реквизит,пПредставлениеРеквизита)

	

	мГлубинаРекурсии = мГлубинаРекурсии+1;

	ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"Код",РеквизитСсылка["Код"]);

	ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"Наименование",РеквизитСсылка["Наименование"]);

	

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

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя,РеквизитСсылка[ЭлементРеквизита.Имя]);

		Если (Найти(ЭлементРеквизита.Тип,"Справочник ссылка")>0) И (мГлубинаРекурсии <=3) И (Найти(ЭлементРеквизита.Тип,",")=0) Тогда

			///+++

			ЗаполнитьРеквизиты(мГлубинаРекурсии, ПереченьРеквизитов,РеквизитСсылка[ЭлементРеквизита.Имя],РеквизитСсылка[ЭлементРеквизита.Имя].Метаданные(),пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя);

		Иначе

			ДобавитьФорматы(ПереченьРеквизитов,РеквизитСсылка[ЭлементРеквизита.Имя],пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя);

		КонецЕсли

	КонецЦикла;	

	

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



Функция ПолучитьСписокПеременных(ТекстШаблона)

	СписокПеременных = Новый СписокЗначений();

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

	Пока ЕщеЕсть Цикл

		ПервыйСимвол = Найти(ТекстШаблона,"[");

		Если ПервыйСимвол > 0 Тогда

			ВторойСимвол = Найти(ТекстШаблона,"]");

			Если (ВторойСимвол > 0 И ВторойСимвол > ПервыйСимвол) Тогда

				СписокПеременных.Добавить(Сред(ТекстШаблона,ПервыйСимвол + 1,ВторойСимвол - ПервыйСимвол - 1));

				ТекстШаблона = Сред(ТекстШаблона,ВторойСимвол + 1);

			Иначе

				ЕщеЕсть = Ложь;

			КонецЕсли;

		Иначе

			ЕщеЕсть = Ложь;

		КонецЕсли;

	КонецЦикла;

	Возврат СписокПеременных;

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



Функция СтруктураРеквизитовДокумента(ДокументСсылка)  Экспорт

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

	ПереченьРеквизитов.Вставить("Дата",ДокументСсылка["Дата"]);

	ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка["Дата"],"Дата");

	ПереченьРеквизитов.Вставить("Номер",ДокументСсылка["Номер"]);

	Реквизиты = ДокументСсылка.Метаданные().Реквизиты;

	Для Каждого Реквизит Из Реквизиты  Цикл

		мГлубинаРекурсии = 1;

		ПереченьРеквизитов.Вставить(Реквизит.Имя,ДокументСсылка[Реквизит.Имя]);

			ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],Реквизит.Имя,ДокументСсылка);

		Если Найти(Реквизит.Тип,"Справочник ссылка")>0 Тогда

			ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],ДокументСсылка[Реквизит.Имя].Метаданные(),Реквизит.Имя);

		Иначе

			//ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],Реквизит.Имя);

		КонецЕсли;

	КонецЦикла;	

	ТабличныеЧасти = ДокументСсылка.Метаданные().ТабличныеЧасти;

	Для Каждого ТабличнаяЧасть Из ТабличныеЧасти  Цикл

		// Сообщить(ТабличнаяЧасть); // Для таблицы характеристик отрабатываем свой код // с выводом табличной части как набора реквизитов

		Если ТабличнаяЧасть.Имя = "Характеристики" Тогда

			Для Каждого СтрокаТабличнойЧасти Из ДокументСсылка[ТабличнаяЧасть.Имя]  Цикл

				мПредставлениеРеквизита = "Характеристика"+"_"+СтрЗаменить(СтрокаТабличнойЧасти["ВидХарактеристики"], " ", "_");

				мЗначение = СтрокаТабличнойЧасти["ЗначениеХарактеристики"];

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);

				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);

				Если Найти(ТипЗнч(мЗначение),"Справочник ссылка")>0 Тогда

					ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,мЗначение,мЗначение.Метаданные(),мПредставлениеРеквизита);

				КонецЕсли;

				

			КонецЦикла;	

		КонецЕсли;	

		//Перечень реквизитов табличной части

		Реквизиты = ТабличнаяЧасть.Реквизиты;

		Для Каждого Реквизит Из Реквизиты  Цикл

			Для Каждого СтрокаТабличнойЧасти Из ДокументСсылка[ТабличнаяЧасть.Имя]  Цикл

				мГлубинаРекурсии = 1;

				мПредставлениеРеквизита = "_"+СтрокаТабличнойЧасти.НомерСтроки+"_"+ТабличнаяЧасть.Имя+"_НомерСтроки";

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,Строка(СтрокаТабличнойЧасти.НомерСтроки));

				мПредставлениеРеквизита = "_"+СтрокаТабличнойЧасти.НомерСтроки+"_"+ТабличнаяЧасть.Имя+"_"+Реквизит.Имя;

				мЗначение = СтрокаТабличнойЧасти[Реквизит.Имя];

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);

				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);

				Если Найти(ТипЗнч(мЗначение),"Справочник ссылка")>0 Тогда

					ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,мЗначение,мЗначение.Метаданные(),мПредставлениеРеквизита);

				Иначе

					//ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита);

				КонецЕсли;

			КонецЦикла;	

			//Если реквизит числовой, то подсчитываем итог  

			Если Реквизит.Тип.СодержитТип(Тип("Число"))  Тогда

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

				мПредставлениеРеквизита = "Итог"+"_"+ТабличнаяЧасть.Имя+"_"+Реквизит.Имя;

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);

				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);

			КонецЕсли;

		КонецЦикла;			

	КонецЦикла;	    	

	Возврат ПереченьРеквизитов;

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



Функция ИмяТабличнойЧастиВСтроке(Строка,ДокументСсылка)

	ТабличнаяЧасть=Неопределено;

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

		ТабличнаяЧасть = ДокументСсылка.Метаданные().ТабличныеЧасти.Найти(Строка) 

	КонецЕсли;	

	Возврат ТабличнаяЧасть;

	

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



//Получает первый кусок переменной до _

Функция ПолучитьСтартПеременной(ПереданнаяСтрока) Экспорт

	СтартПеременной = "";

	ПервыйСимвол = Найти(ПереданнаяСтрока,"[");

	Если  ПервыйСимвол > 0 Тогда

		ВторойСимвол = Найти(ПереданнаяСтрока,"]");

		Если  (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда

			Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));

			ВторойСимвол = Найти(Переменная,"_");

			Если  (ВторойСимвол > 0) И (ВторойСимвол > 1) Тогда

				СтартПеременной = Сред(Переменная,1,ВторойСимвол-1);

			КонецЕсли;	

		КонецЕсли;	

		

	КонецЕсли;	

	

	Возврат СтартПеременной;	

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



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

Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока) Экспорт

	Переменная = "";

	ПервыйСимвол = Найти(ПереданнаяСтрока,"[");

	Если  ПервыйСимвол > 0 Тогда

		ВторойСимвол = Найти(ПереданнаяСтрока,"]");

		Если  (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда

			Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));

		КонецЕсли;	

		

	КонецЕсли;	

	Возврат Переменная;	

КонецФункции// Идентифицирует табличную часть в строке



// Функция преобразует Windows имя файла в URL OpenOffice

Функция ПреобразоватьВURL(ИмяФайла)

	Возврат "file:///" + СтрЗаменить(ИмяФайла, "\", "/");

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



// Функция извлекает текст из документа

Функция ООПолучитьТекст(OOДокумент)

	Текст = "";

	oParEnum = OOДокумент.getText().createEnumeration();

	Пока  oParEnum.hasMoreElements() Цикл

		oPar = oParEnum.nextElement();

		Если  oPar.supportsService("com.sun.star.text.Paragraph") ТОгда

			Текст = Текст + oPar.getString();

		ИначеЕсли oPar.supportsService("com.sun.star.text.TextTable") Then

			//Сообщить(oPar.getString());

		КонецЕсли;

	КонецЦикла;

	Для ТекущаяТаблица = 0 ПО OOДокумент.getTextTables().Count-1 Цикл 

		Для ТекущаяСтрока  = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.Count-1 Цикл 

			Для ТекущаяКолонка = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 

				Текст = Текст + OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекущаяКолонка, ТекущаяСтрока).string;

			КонецЦикла;

		КонецЦикла;

	КонецЦикла;

	Возврат Текст;

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

 //п_Текст - ТекстЗапроса... вернётся соответственно ТЗ

Функция Прямой_запрос_к_jabber(п_Текст) Экспорт

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

    л_число_попыток = 0;

    л_Запрос_выполнен = Ложь;

    Пока (л_Запрос_выполнен = Ложь) И (л_число_попыток <= 3) Цикл

        Если (гл_Соединение_jb.State = 0) Или (гл_Соединение_jb.DefaultDatabase <> "log_1c") Тогда

            гл_Соединение_jb = "";

            л_Параметры_соединения = "DRIVER={MySQL ODBC 5.1 Driver};OPTION=3;DATABASE=BAZADANNIH_IMYA;PWD=PAROLLLLL;PORT=3306;SERVER=ip_adres_servera;UID=admin";

            гл_Соединение_jb = Новый COMОбъект("ADODB.Connection");

            Попытка

                гл_Соединение_jb.Open(л_Параметры_соединения);

            Исключение

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

        КонецЕсли;

        

        л_Команда = Новый COMОбъект("ADODB.Command");

        л_Команда.ActiveConnection = гл_Соединение_jb;

        л_Команда.CommandText = п_Текст;

        л_Команда.CommandType = 1;

        

        л_Набор_записей = Новый COMОбъект("ADODB.Recordset");

        л_Набор_записей.CursorType = 3;

        л_число_попыток = л_число_попыток + 1;

        Попытка

            л_Набор_записей = л_Команда.Execute();

            л_Запрос_выполнен = Истина;

        Исключение

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

    КонецЦикла;

    Если (л_Запрос_выполнен = Ложь) Тогда

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

        Возврат(л_ТЗ);

    Иначе

        л_Число_колонок = л_Набор_записей.Fields.Count - 1;

        Если (л_Число_колонок > -1) Тогда

            Для Ф = 0 По л_Число_колонок Цикл

                л_Колонка_добавлена = Ложь;

                л_Префикс = "";

                л_сч = 0;

                Пока (л_Колонка_добавлена = Ложь) Цикл

                    Попытка

                        л_ТЗ.Колонки.Добавить(л_Префикс + л_Набор_записей.Fields(Ф).Name);

                        л_Колонка_добавлена = Истина;

                    Исключение

                        л_Префикс = ?(л_сч = 0, "_", "_" + л_сч + "_");

                        л_сч = л_сч + 1;

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

                КонецЦикла;

            КонецЦикла;

            Если (л_Набор_записей.EOF() = Истина) И (л_Набор_записей.BOF() = Истина) Тогда

            Иначе

                л_Набор_записей.MoveFirst();

                Пока (л_Набор_записей.EOF() = 0) Цикл

                    л_стр = л_ТЗ.Добавить();

                    Для Ф = 0 По л_Число_колонок Цикл

                        л_стр[Ф] = л_Набор_записей.Fields(Ф).Value;

                    КонецЦикла;

                    л_Набор_записей.MoveNext();

                КонецЦикла;

            КонецЕсли;

        КонецЕсли;

        Попытка

            л_Набор_записей.Close();

        Исключение

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

        Возврат(л_ТЗ)

    КонецЕсли;

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

   

 Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL)

   

  СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +  

      (";UID=") + Login + ("; PWD=") + Password + (";");

    

     СоединениеSQL = Новый ComObject("ADODB.Connection");

  СоединениеSQL.ConnectionString=СтрокаСоединения;

   Попытка

    СоединениеSQL.Open();

    Состояние ("Подключение к серверу SQL...");

   Исключение

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

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

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

    

  Состояние ("Выполнение запроса SQL...");

  ЗаписиSQL = Новый ComObject("ADODB.RecordSet");

  ЗаписиSQL.ActiveConnection = СоединениеSQL;

  ЗаписиSQL = СоединениеSQL.Execute (ЗапросSQL);

   

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

  Состояние ("Заполнение временной таблицы...");

  Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

   ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;  

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

   //Сообщить(ИмяСтолбца);

  КонецЦикла;

   

  Пока ЗаписиSQL.EOF=0 Цикл    // Заполнение созданной таблицы

    

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

   Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

    НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

    //Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

   КонецЦикла;

          

   ЗаписиSQL.MoveNext();

    

  КонецЦикла;

   

  Состояние ("Закрываем соединение с SQL...");

     ЗаписиSQL.Close();

  СоединениеSQL.Close();

   

  Возврат Таблица;   // Возврат таблицы значений запроса SQL

   

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

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

    

    Если ПроверкаДат() Тогда 

         Состояние("Запущена выгрузка данных");

         ПолучитьДанныеВТаблице();

         Если чОтчетов<>0 Тогда

                СортироватьТаблицу();

              ВыгрузитьТаблицуВФайл();

              ЗакрытьСистему();

              Состояние("Выгрузка завершена");

         Иначе

              //ЗакрытьСистемуАварийно();

 

         КонецЕсли;

    КонецЕсли;    

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

 Процедура ВыгрузитьТаблицуВФайл()

    

        //1. Open Excel-file 

 

               Если FileOfReports = Неопределено Тогда

            Попытка

                FileOfReports = Новый COMОбъект("Excel.Application");

                MyBook=FileOfReports.WorkBooks.Add(истина); //вместо истина можно вставить имя шаблона

 

                

                FirstSheet=MyBook.Worksheets(1);

                FirstSheet.Name = ОпределитьДату(НачПериода)+"-"+ОпределитьДату(КонПериода);

                FirstSheet.Activate();



                MyBook.SaveAs(КаталогDBF+"ОтчетыПроизводства.xls");

                

            Исключение

                Сообщить("ОШИБКА ЗАПИСИ В EXCEL-ФАЙЛ:"+ОписаниеОшибки());

                Сообщить("Совет: Возможно файл, в который должна быть произведена запись, Вами открыт для просмотра");

                Сообщить("Если это так, то закройте файл и запустите данную обработку повторно!");

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

            

            FileOfReports.Visible = 0;

        Иначе

            FileOfReports.Visible = 0;

            //FileOfReports.Visible = 1;

 

        КонецЕсли;

    

        //2.=========================================================================

        //Состояние("Анализ структуры файла...");

         

        чОтчетов = ТаблицаОтчетов.Количество();

        

        ЭлементыФормы.ИндикаторЗагрузки.МинимальноеЗначение = 0;

        ЭлементыФормы.ИндикаторЗагрузки.МаксимальноеЗначение = чОтчетов;

            

        ЭлементыФормы.Logo.Заголовок = "Выгружаю документы";

        лСчетчикИндикатора = 0;

        

        ВыгрузитьЗаголовокТаблицы(26);

        

        //ВЫГРУЖАЮ ТАБЛИЦУ В ФАЙЛ ПО СТРОКАМ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        фСтарт=истина; //флаг первого прохода

 

        чОт=2;         //номер первой строки с данными

         

        Пока чОтчетов >= 1 Цикл //Цикл по строкам Таблицы отчетов

 

              чОтчетов = чОтчетов -1;

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

             Если (СтрокаОтчетов.ДатаВыпуска=ДатаВыпускаПред) 

                И (СтрокаОтчетов.Принадлежность=ПринадлежностьПред)

                И (СтрокаОтчетов.Типоразмер=ТипоразмерПред)

                И (СтрокаОтчетов.ТипОсновы=ТипОсновыПред)

             Тогда

             Иначе

                ДатаВыпускаПред=СтрокаОтчетов.ДатаВыпуска; 

                ПринадлежностьПред=СтрокаОтчетов.Принадлежность;

                ТипоразмерПред=СтрокаОтчетов.Типоразмер;

                ТипОсновыПред=СтрокаОтчетов.ТипОсновы;

                Если фСтарт Тогда

                     фСтарт = ложь; //Уже не первый проход

 

                Иначе     

                     чДо=глСчетчикСтрок;

                     ВыгрузитьСтрокуИтог(чОт,чДо,26);

                КонецЕсли;

                чОт=глСчетчикСтрок;

             КонецЕсли;

             

             ВыгрузитьСтрокуОтчетовВФайл(СтрокаОтчетов,26);

             

             лСчетчикИндикатора = лСчетчикИндикатора + 1;

             ЭлементыФормы.ИндикаторЗагрузки.Значение = лСчетчикИндикатора;

             

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

        

        КонецЦикла;

        чДо=глСчетчикСтрок;

        ВыгрузитьСтрокуИтог(чОт,чДо,26);

 

        //КОНЕЦ ВЫГРУЗКИ СТРОК В ФАЙЛ 

 

        Состояние("Данные файла выгружены");               

        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        libСообщитьНК1("ИНФО: ШАГ 1 ВЫПОЛНЕН. Данные файла Отчеты.DBF успешно считаны",1);    

        

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

 

        ЭлементыФормы.Logo.Заголовок = "Создание сводных таблиц";

        

        //РазделитьОбласти();

 

            //Range("A2").S_elect

 

            //ActiveWindow.FreezePanes = True

 

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"наим","Дата","Наим","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"ЮВ","Дата","Наим,Каркас,Вид","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр(2)","Дата","Наим,Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр","Дата","Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Основа","Дата","Основа","","кг основы");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Напыление","","Напылен","","кг напылен");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Клей","","Дата","","кг клея");

            

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



Процедура СоздатьТаблицуЛист(стрДанные,стрСводнаяТаблица,стрПоле1,стрПоле2,стрПоле3,стрПоле4);

    

    //Создает сводную таблицу стрСводнаяТаблица с полями (стрПоле4 - поле реквизита) 

     //и размещает ее на одноименном листе

     //Заполняет сводную таблицу данными, взятыми с листа стрДанные

     

    //Поле стрПоле2 может быть полем списка через запятую

   

    //0. Вспомогательный разбор списка значений в стрПоле2 и определение числа значений

 

         лПоля.Очистить(); //сбросим все значения, если таковые весели в памяти

 

         стрПоля=стрПоле2;

         i=1;//число значений в списке

 

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

             

              n=Найти(стрПоля,",");

              лПоля.Добавить(Сред(стрПоля,1,n-1));

              стрПоля=Сред(стрПоля,n+1);

              i=i+1;

              

         КонецЦикла;      

         лПоля.Добавить(стрПоля);

         

    //1. Установить диапазон выборки данных

     FirstSheet.Activate();

    дДиапазонДанных=FirstSheet.UsedRange.Address;

    ДиапазонДанных=FirstSheet.Name+"!"+Строка(дДиапазонДанных);    

    

    //2. Создать кэш под сводную таблицу

    //   аргументы не переменные, а текст с именем переменных (crazy)

     

         SourceType = xlDatabase;

         SourceData = ДиапазонДанных;

    

         Cache = MyBook.PivotCaches().Add(SourceType, SourceData);

 

    //для отладки: FileOfReports.Visible = 1;   

           

    //3. Породить из кэша сводную таблицу с именем стрСводнаяТаблица

         TableDestination="";

         TableName=стрСводнаяТаблица;

    

         Cache.CreatePivotTable(TableDestination,TableName);

    

    //4. Определить представление данных в сводной таблице

     //стрПоле1

 

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

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле1).Orientation = 3; //xlRowField=1 то, что указывается справа у таблицы

 

    КонецЕсли;

    

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

               MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).Orientation = 1; 

         КонецЕсли;



         чНомер = чНомер + 1;  

    КонецЦикла;      



    //стрПоле3

 

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

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле3).Orientation = 2; //xlColumnField=2 то, что указывается в вепрхней части таблицы

 

    КонецЕсли;

    

    //стрПоле4

 

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

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле4).Orientation = 4; //xlCount=4 data

 

    КонецЕсли;

    

    //5. Скрыть пустые строки в стрПоле2, предварительно проверив, что таковые СУЩЕСТВУЮТ!!!!

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

              Если IfPivotItemExists(TableName,лПоля[чНомер].Значение,"(пусто)")Тогда

                    MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).PivotItems("(пусто)").Visible = False;

              КонецЕсли;

         КонецЕсли;

         чНомер = чНомер + 1;  

    КонецЦикла;      

             

    //6. Закрыть вспомогательные панели                                                  

 

        MyBook.ShowPivotTableFieldList = False;

        FileOfReports.CommandBars("PivotTable").Visible = False;

    

    //7. Присвоить активному листу имя, заданное в параметрах процедуры

 

        MyBook.ActiveSheet.Name = стрСводнаяТаблица;

    

    //8. Сохранить файл

 

        MyBook.Save();

    

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



Функция IfPivotItemExists(strTableName,strFieldName,strItemName)

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

 

        nItems = MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems().Count;

        i = 1;

        Пока i <= nItems Цикл

            Если strItemName=MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems(i).Name Тогда

                 //Искомая позиция strItemName существует:

 

                 //Сообщить("Позиция "+strItemName+" найдена");

 

                 Возврат True;

            КонецЕсли;

            i=i+1; 

        КонецЦикла;

        

        //Сообщить("Позиция "+strItemName+" не найдена");

 

        Возврат False;

        

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

  РабочаяКнига = СоздатьОбъект("Excel.Application");

РабочаяКнига.SheetsInNewWorkbook = 1;

РабочаяКнига.Caption = "Отчет по договорам отгрузки";

NewBook = РабочаяКнига.Workbooks;

List = NewBook.Add;



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

СписокСтолбцов.ДобавитьЗначение("Модель");

СписокСтолбцов.ДобавитьЗначение("Разнорядка");

СписокСтолбцов.ДобавитьЗначение("По договору");

СписокСтолбцов.ДобавитьЗначение("Отгрузили");

СписокСтолбцов.ДобавитьЗначение("Осталось");



//Заполним наименование столбцов: Модель, Разнорядка, Количество

Для Столбец = 1 По СписокСтолбцов.РазмерСписка() Цикл

	Ячейка = РабочаяКнига.Cells(1,Столбец);

	Ячейка.Value = СписокСтолбцов.ПолучитьЗначение(Столбец);

КонецЦикла; 



//Формируем запрос по регистру

//	//Создание объекта типа Запрос

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

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

"//{{ЗАПРОС(Сформировать)

|Период с ДатаНач по ДатаКон;

|Разнорядка = Регистр.УчетДоговоров.Разнорядка;

|Модель = Регистр.УчетДоговоров.Модель.Группа;

|Колво = Регистр.УчетДоговоров.Количество;

|Функция КолвоПриход = Приход(Колво);

|Функция КолвоРасход = Расход(Колво);

|Функция КолвоОст = КонОст(Колво);

|Группировка Разнорядка;

|Группировка Модель;

|"//}}ЗАПРОС

;



// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

	Возврат;

КонецЕсли;



НомерСтроки = 1;

Пока Запрос.Группировка("Разнорядка") = 1 Цикл

	Пока Запрос.Группировка("Модель") = 1 Цикл 

		Модель = Запрос.Модель;

		Разнорядка = Запрос.Разнорядка;

		КолПоДоговору = Запрос.КолвоПриход;

		КолОтгрузили = Запрос.КолвоРасход;

		КолОсталось = Запрос.КолвоОст;

		НомерСтроки = НомерСтроки + 1;

		//Организум заполнение ячеек Excel

		Для Ст = 1 По СписокСтолбцов.РазмерСписка() Цикл

			Ячейка = РабочаяКнига.Cells(НомерСтроки,Ст);

			Если Ст = 1 Тогда

				Ячейка.Value = Модель;

			ИначеЕсли Ст = 2 Тогда

				Ячейка.Value = Строка(Разнорядка);

			ИначеЕсли Ст = 3 Тогда

				Ячейка.Value = КолПоДоговору;

			ИначеЕсли Ст = 4 Тогда

				Ячейка.Value = КолОтгрузили;

			ИначеЕсли Ст = 5 Тогда

				Ячейка.Value = КолОсталось;

			КонецЕсли;

		КонецЦикла;	

	КонецЦикла;

КонецЦикла; 

СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard;

//Метод СводнаяТаблица.Name возвращает имя сводной таблицы

//Можно задать имя таблицы СводнаяТаблица.Name = "МояТаблица"

СводнаяТаблица.SmallGrid = 0;

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



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

//Например, СводнаяТаблица.PivotFields(1).Value 

//возвращает значение "Модель"



//Попробуем с другого конца

//1 - Row

//2 - Column

//3 - Page

//4 - Data

СводнаяТаблица.PivotFields(1).Orientation = 1;    //Модель 

СводнаяТаблица.PivotFields(2).Orientation = 3;    //Разнорядка

СводнаяТаблица.PivotFields(3).Orientation = 4;    //По договору

СводнаяТаблица.PivotFields(4).Orientation = 4;    //Отгрузили

СводнаяТаблица.PivotFields(5).Orientation = 4;    //Осталось



//Пройдемся по форме отчета

СводнаяТаблица.Format(1);



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

РабочаяКнига.CommandBars("PivotTable").Visible = 0;

РабочаяКнига.Visible = 1; 

 Функция ПодключитьCOMОбъект(Путь) Экспорт 

    Отказ = Ложь;

    

    COMСоединение = Новый COMОбъект("ADODB.Connection");

    COMСоединение.ConnectionString  = ".....";

    COMСоединение.ConnectionTimeOut = 1200;

    COMСоединение.CursorLocation    = 3;

    

    Попытка

        COMСоединение.Open(COMСоединение.ConnectionString);

    Исключение

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

        COMСоединение = "";

        Предупреждение("Невозможно установить соединение - " + ОписаниеОшибки());

        Возврат НЕ Отказ;

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

    

    Возврат НЕ Отказ;

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



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

    Если НЕ ПодключитьCOMОбъект(ПутьКФайлуГДБ) Тогда

        ЗакрытьФормуИндикатора();

        Возврат;    

    КонецЕсли;





    КомандаАДО = Новый COMОбъект("ADODB.Command");

    

    ТекстЗапроса = "S_elect id from nomenclature where ext_1c_id = 1";



    Рекордсет = Новый COMОбъект("ADODB.Recordset");

    Попытка

        Рекордсет = КомандаАДО.Execute();

    Исключение

        Предупреждение("Не получилось выполнить запрос!" + " - " + ОписаниеОшибки());

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

   Рекордсет.MoveFirst();                                                               

    Пока Рекордсет.EOF() = 0 Цикл   

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

           айди = Рекордсет.Fields("id").Value;

           Сообщить(айди);

        КонецЦикла; 

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

   

 стрПодключения = "Driver={SQL Server};"

стрПодключения = стрПодключения + ИмяСервера + ";";

стрПодключения = стрПодключения +"Uid=" + ИмяПользователя + ";";

стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";

стрПодключения = стрПодключения + "DataBase =" + ИмяБазы + ";";

стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";



Connection = Новый COMОбъект("ADODB.Connection");

Connection.OpenServer = стрПодключения;



RS = Новый COMОбъект("ADODB.Recordset");



// Запрос к базе на языке SQL запросов.

RS.Open("S_elect * from TradeUnit", Connection);



Пока RS.EOF() = 0 Цикл



// Можно обращаться и обрабатывать значения полей выборки.

ИД = RS.Fields("ID").Value;

Код = RS.Fields("Code").Value;

   // Обработка других полей

RS.MoveNext();

КонецЦикла;



RS.Close();

Connection.Close();    

 

Отчет = РабочиеКниги.Open(Каталог+Названиефайла);

ОтЛевогоКрая=550;

ОтВерха=80;

Длина=100;

Высота=50;

кн = Отчет.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота);

st = "Private Sub CommandButton1_Click()" + Chr(13) + " ThisWorkbook.Sheets(1).range(""I10:I10000"").AutoFilter Field:=1, Criteria1:="">0"", Operator:=xlAnd" + Chr(13) + "End Sub";

Excel.VBE.ActiveVBProject.VBComponents.Add (1);

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st);   

 

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st1);

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (2,st2);   

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

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

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



ТабличноеПоле.Очистить();

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();



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



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

Соединение = Новый COMОбъект("ADODB.Connection");

НаборЗаписей = Новый ComObject("ADODB.RecordSet");

Команда = Новый COMОбъект("ADODB.Command");



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

 Соединение.Open();

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

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



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

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



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

//Состояние ("Заполнение временной таблицы...");



Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;

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

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

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

 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);

  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



//Состояние ("Закрываем соединение с SQL...");

Соединение.Close();

Возврат Таблица;

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

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +

    (";UID=") + Login + ("; PWD=") + Password + (";");

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

  Подключение.Open(СтрокаСоединения);

  Состояние ("Подключение к серверу SQL...");

 Исключение

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

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

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

 

СоединениеSQL = Новый COMObject("ADODB.Command");

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



Состояние ("Выполнение запроса SQL...");

ЗаписиSQL = Новый ComObject("ADODB.RecordSet");



ЗаписиSQL = СоединениеSQL.Execute();



 

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

Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;

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

 Сообщить(ИмяСтолбца);

КонецЦикла;





Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы

 

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

 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

 КонецЦикла;

       

 ЗаписиSQL.MoveNext();

 

КонецЦикла;



Состояние ("Закрываем соединение с SQL...");

   ЗаписиSQL.Close();

Подключение.Close();



Возврат Таблица;   // Возврат таблицы значений запроса SQL



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

 Ex = Новый COMObject("Excel.Application");

   Ex.Workbooks.Open(Путь);

   Ex.Visible = 1;    

   ТекЛист=Ex.WorkSheets(1);        

   Для Ячейка = 1 по 400 цикл

       Если НЕ  ТекЛист.Cells(Ячейка,1).Value  = Неопределено тогда

           Сообщить(Строка(ТекЛист.Cells(Ячейка,1).Value));    

           Карта = Справочники.Номенклатура.НайтиПоКоду(ИзЧислаВСтроку(ТекЛист.Cells(Ячейка,1).Value));    

           Если Карта.Пустая() тогда        

               Сообщить(" Пустой элемент "  + ТекЛист.Cells(Ячейка,1));

           иначе

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

               Объект.ОсновнойПоставщик = ОсновнойКлиент;

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

               конецесли;    

       конецесли;

   конеццикла;     

 

// Функция получает данные из файла Excel

//

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

//   пФайл - Имя файла

//   пЛист - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//

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

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_ADO(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0) Экспорт



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

    Состояние("Установка соединения с Excel");

    #КонецЕсли



    //ЗаголовкиВСтроке1 = "HDR=YES;"

    ЗаголовкиВСтроке1 = "HDR=NO;";



    СтрокаСоединения ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + СокрЛП(пФайл) +" ;Extended Properties=""Excel 8.0;" + ЗаголовкиВСтроке1 + "IMEX=1;""";



    Connection = Новый COMОбъект("ADODB.Connection");

    Connection.ConnectionString =  СтрокаСоединения;



    Попытка

        Connection.Open();

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

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



    RS = Новый COMОбъект("ADODB.Recordset");



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

    "S_elect

    |    Лист.*

    |FROM

    |    [" + пЛист + "$] as Лист";



    Попытка

        RS.Open(ТекстЗапроса, Connection);

    Исключение

        Сообщить ("Проблемы с выполнением запроса");

        Возврат Неопределено;

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



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



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По RS.Fields.Count Цикл

            Поле = RS.Fields.Item(Счетчик - 1);

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик, , Поле.Name);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НомерСтроки = 0;

    КолвоСтрок  = RS.RecordCount;



    Пока RS.EOF() = 0 Цикл



        НомерСтроки = НомерСтроки + 1;



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

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

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

        #КонецЕсли



        Если НомерСтроки < НачСтрока Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;



        Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда

            Прервать;

        КонецЕсли;



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



        Если СтруктураКолонок = Неопределено Тогда



            Для Счетчик = 1 По RS.Fields.Count Цикл



                Поле = RS.Fields.Item(Счетчик - 1);

                НоваяСтрока["К" + Счетчик] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = RS.Fields.Item(КлючИЗначение.Значение - 1);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



        // Обработка других полей

        RS.MoveNext();



    КонецЦикла;



    // Завершение работы



    RS.Close();

    Connection.Close();



    Возврат Таблица;



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



// Функция получает данные из файла Excel

//

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

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

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

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COM(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



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

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

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



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



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



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    Для НомерСтроки = НачСтрока По КонСтрока Цикл



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

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КонСтрока));

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

        #КонецЕсли



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



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, НомерКолонки);

                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, КлючИЗначение.Значение);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



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



// Функция получает данные из файла Excel

//

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

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

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

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COMArray(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



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

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

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



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



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



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        МаксимальныйНомерКолонки = 0;

        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

            МаксимальныйНомерКолонки = Макс(МаксимальныйНомерКолонки, КлючИЗначение.Значение);

        КонецЦикла;



        КолвоКолонок = Мин(КолвоКолонок, МаксимальныйНомерКолонки);



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    // Массив типа COMSafeArray

    Массив = Лист.Range(Лист.Cells(НачСтрока, 1), Лист.Cells(КонСтрока, КолвоКолонок)).Value;

    КолвоСтрок   = Массив.GetUpperBound(1);



    Для НомерСтроки = 1 По КолвоСтрок Цикл



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

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

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

        #КонецЕсли



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



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Массив.GetValue(НомерКолонки, НомерСтроки);



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                НоваяСтрока[КлючИЗначение.Ключ] = Массив.GetValue(КлючИЗначение.Значение, НомерСтроки);



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



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



// Функция получает список листов Excel

//

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

//   пФайл - Имя файла

//   XLSОбъект - COM объект типа "Excel.Application"

//

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

//   СписокЗначений

//

Функция Excel_ПолучитьСписокЛистов(пФайл, XLSОбъект = Неопределено) Экспорт



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Возврат Новый СписокЗначений;

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



    СписокЛистов = Новый СписокЗначений;

    Для каждого Лист Из XLSОбъект.Sheets Цикл

        СписокЛистов.Добавить(Лист.Name);

    КонецЦикла;



    XLSОбъект.Application.Quit();

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



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

 Попытка

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

 Исключение

  Сообщить(ОписаниеОшибки()+"; программа Excel не установлена на данном компьютере!");

     Возврат;

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

РабочиеКниги=Excel.WorkBooks;  // создаем рабочую книгу



 Попытка // открываем файл

  Отчет=РабочиеКниги.Open(Каталог+ИмяФайла); 

 Исключение 

  Сообщить(ОписаниеОшибки()+"; фаил с макросом не найден!");

  Возврат;

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



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



 Лист = Отчет.Worksheets(1);



 Для Ном=1 По 20 Цикл

      Ячейка = Лист .Cells(ном,1); Ячейка.Value;

      Сообщить(Ячейка );

 КонецЦикла; 



Excel.Visible=1;



Попытка

      Отчет.Save();

Исключение

     Сообщить(ОписаниеОшибки()+"; не могу сохранить отчет!");

  Возврат;

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