[c83]

Здесь я расскажу как правильно формировать SQL запрос к EXEL дабы правильно подрубаться через разные методы подключения и создания ComОбьектов, так как в инете много разного пишут по этому поводу но конкретики что делать нет....

Приступим, создаем или открываем заполненную таблицу exel, далее заходим во вкладку данные выбираем "Из других источников и выбираем ИЗ Microsoft Quer" далее выбираете источник Базы Данных "Exel Files" далее будет выбор книги не стал делать скрин так как там просто нужно выбрать файл какой мы открываем("Пользователь /ПутьФайла/Файл"), далее появится форма создания запроса здесь выбираем нужный лист жмем стрелку переноса в столбцы запроса жмём далее, пропускаем все предложенные варианты, так как там будет предрлагатся задать правило отбора данных, порядок сортировки и тп. задача стояла в простом запросе так что пропускаем все условия, далее на заключительном шаге выбираем "Просмотр или изменение данных Microsoft Quer" жмём готово.

Откроется "Microsoft Query" представляет собой программу для переноса данных из внешних источников в программы Microsoft Office, в частности Microsoft Excel - это из справки о программе, а на деле это программа  дает возможность строить правильный запрос к exel как сложные так и простые, о построении сложных подробнее можно почитать в справке о программе, а чтобы увидеть как обратится к exel из 1с достаточно нажать кнопку SQL так называемый режим SQL и мы увидим запрос SQL который можно использовать при написании выгрузки и загрузки exel... в моём случае загрузка в бд через ADODB.Connection упиралась в SQLзапрос, так как я не мог его построить правильно, а здесь уже готовый запрос который подходит по синтаксису к 1с. 





Пример кода чтения EXEL.



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

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

     Если Файл.Существует() Тогда        Стр_Файл=Файл.ПолноеИмя;     

   // Отрезаем слеш если он есть в конце пути        Стр_Путь=Файл.Путь; 

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

      КонецЕсли;        // Строка корнекта        Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)}; 

       |DriverId=790;

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

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

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

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

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

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

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

            Возврат Ложь;        КонецПопытки;                

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

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

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

      Стр_SQL = "SELECT `Лист1$`.Город,`Лист1$`.Заправка FROM`C:\Users\User_scan\Desktop\файл.xls`.`Лист1$``Лист1$`";

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

        //если неудача тогда след. присвоение должно взлететь 

       //Стр_SQL = "SELECT "+Стр_КолонкиВыбора+" FROM [A"+Ч_Начало+":AZ100000] WHERE "+Стр_УсловиеКлючей;

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

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

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

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

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

       Номер = 1;      

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

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

           // ...            Номер = Номер +1;

            //Сообщить("ВСЕ ОК!!!"); 

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

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

            КонецЦикла;  

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

       КонецЦикла;  

      Сообщить(Номер); 

       Об_Конект.Close(); 

    // Закрываем конект  

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

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

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

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

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

    КонецЕсли;   

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



   

 Соединение = "DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;STMT=set character_set_results=cp1251;"; 

//Это если задаём кодировку соединения (лучше задать);

Соединение = "DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;";

//Это без задания кодировки.   

 Попытка

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

Connection.Open("DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;STMT=set character_set_results=cp1251;");





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

RS.CursorType=3;

// Запрос к базе на языке SQL запросов.

RS.ActiveConnection=Connection;

RS.Open("select * from market_users");

//Перемещаем указатель на первую запись.

RS.MoveFirst(); 

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

    // Обрабатываем значения полей выборки.

    NAM = RS.Fields("NAME").Value;

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

    // Перемещаем указатель.

    RS.MoveNext();    

КонецЦикла;    

//Закрываем соединения.

RS.Close();

Connection.Close();   

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

Connection.Open("DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;STMT=set character_set_results=cp1251;");





//Устанавливаем кодировку для нашего подключения (дополнительно)...

Command= new COMObject("ADODB.Command"); 

Command.CommandText = "set names cp1251";

Command.ActiveConnection = Connection;

Command.CommandType = 1;

Command.Execute();





//Теперь выполняем скрипт

Command= new COMObject("ADODB.Command"); 

Command.CommandText = "update market_cards set name='Хлебушек бородинский' where articul='123'";

Command.ActiveConnection = Connection;

Command.CommandType = 1;

Command.Execute();





//Закрываем соединение.

Connection.Close();   

 Файл = "C:\files\demo.mdb" ;

   //СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + "; Extended Properties=""Excel 8.0;HDR=NO;""";

    СтрокаПодключения  =   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + ";""";

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

    Попытка

        Connection.Open(СтрокаПодключения);

    Исключение

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

        Возврат;

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

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



    Command.ActiveConnection = Connection;

    Command.CommandText = "S_elect * FROM Table1";

    Command.CommandType = 1;

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

    RecordSet = Command.Execute();

    стр ="";

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

            для н=0 по  Recordset.Fields.Count -1 цикл

            стр = стр + " " + Recordset.Fields(н).Value;

         КонецЦикла;

      Сообщить(стр);

             стр ="";

        RecordSet.MoveNext(); 

      КонецЦикла;

   RecordSet.Close();

    Connection.Close();   

 Акцесс = СоздатьОбъект("ADODB.CONNECTION");

Попытка

     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

     Акцесс.Open(СтрокаПодключения);

Исключение

     Сообщить("Все плохо:"+ОписаниеОшибки());

     Возврат;

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

Команда = СоздатьОбъект("ADODB.Command");

Команда.ActiveConnection=Акцесс;

ТекстСелект = "S_elect * FROM tblCustoms";

НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");

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

Попытка

     НаборЗаписей=Команда.Execute;

Исключение

     Сообщить("Обломись:"+ОписаниеОшибки());

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

Попытка

     НаборЗаписей.MoveFirst();

Исключение //нет записей в рекордсете

     НаборЗаписей.Close();

     Возврат;

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

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

     ИНН = НаборЗаписей.Fields("INN").Value;

     //ну и т.д.

     НаборЗаписей.MoveNext();

КонецЦикла;

НаборЗаписей.Close();



// Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая: 

СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

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

//фасВладелец = СтрЗаменить(фасВладелец," ","_"); 

   Спр = СоздатьОбъект("Справочник.ТоварыВПрайсе"); 

   Спр.ИспользоватьВладельца(ФасВладелец); 

   dbe = СоздатьОбъект("dao.DBEngine.36"); 

   wksp = dbe.Workspaces(0); 

   db = 0; 

   Если ФС.СуществуетФайл(КаталогИБ()+"Pric_list.mdb")=0 Тогда               // 

       db = wksp.CreateDataBase(КаталогИБ()+"Pric_list.mdb",";LANGID=0x0419;Cp=1251;Country=0");             //   

       db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

       |(Rec_ind integer, 

       |Код text,                                                                                                           

       |Артикул text, 

       |Цена integer, 

       |Товар text, 

       |Единица text, 

       |Val text);" 

       ); 

       db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

   Иначе 

       db= wksp.OpenDataBase(КаталогИБ()+"Pric_list.mdb"); 

       Попытка 

           rs = db.OpenRecordset(Строка(фасВладелец)); 

       Исключение 

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

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

       Если ПустоеЗначение(rs)= 1 Тогда 

           db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

           |(Rec_ind integer, 

           |Код text, 

           |Артикул text, 

           |Цена integer, 

           |Товар text, 

           |Единица text, 

           |Val text);" 

           ); 

           db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

       КонецЕсли;     

       db.Execute("Delete * From ["+Строка(фасВладелец)+"];");                                                         

   КонецЕсли;   

   rs = db.OpenRecordset(Строка(фасВладелец)); 

   Y = 1; 

   Спр.ВыбратьЭлементы(); 

   Пока Спр.ПолучитьЭлемент() = 1 Цикл 

       лсЕдиницы = ""; 

       Если Спр.асТовар.апТип=Перечисление.ТипТовара.Услуга Тогда 

           лсЕдиницы = ""; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Весовой Тогда 

           лсЕдиницы = "г"; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Штучный Тогда 

           лсЕдиницы = "шт."; 

       КонецЕсли; 

       Если Спр.ЭтоГруппа() = 0 Тогда 

           rs.AddNew(); 

           rs.Rec_ind = Y; 

           rs.Код= Спр.асТовар.ПолныйКод(); 

           rs.Артикул =  Спр.асТовар.сАртикул; 

           rs.Цена = Спр.чЦена; 

           rs.Товар=Спр.асТовар.сПолнНаименование; 

           rs.Единица =  лсЕдиницы; 

           rs.Val = Спр.асВалюта.Код; 

           rs.Update(); 

           Y=Y+1; 

       КонецЕсли; 

   КонецЦикла; 

   db.Close();   

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

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

 

Процедура ACCESS()

     dbe=CreateObject("DAO.DBEngine.36");

     wksp=dbe.Workspaces(0);

     db=0;

     // в ковычках имя фаила с расширением MDB

     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда

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

          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");

          // DDL - запрос на создание таблицы

          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access

          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB

          //Создадим еще таблицу

          db.Execute("CREATE TABLE   BANKS

          |(REC_IND INTEGER,

          |BANKCODE INTEGER,

          |BANKNAME  TEXT  ,

          |ModifiedFlg BIT,

          |ChangeSeqFlg BIT);"

          );

          // индекс на нужные поля

          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");

     Иначе

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

          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");

          // и очищаем имеющиеся данные

          db.Execute("DELETE * FROM BANKS;");

    КонецЕсли;

    // rs-это как раз сама таблица, куда мы будем добавлять записи

    rs=db.OpenRecordset("BANKS");

    // добавление записи

    rs.AddNew();

    // присвоение значений полям

    rs.REC_IND            =     "1";

    rs.BANKCODE       =     "34";

    rs.BANKNAME       =    "Инвест";

    rs.ModifiedFlg        =     "1";

    // запомним запись

    rs.Update();

    // и так далее ...

    db.Close();  // закрытие базы данных

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

 	ПутьПодключения = "c:\";

	СтрокаПодключения 	= "Driver={Microsoft Text Driver (*.txt; *.csv)};"; 

	СтрокаПодключения 	= СтрокаПодключения + "Dbq=" + ПутьПодключения + ";"; 

	СтрокаПодключения 	= СтрокаПодключения + "Uid=" + "Extensions=txt" + ";"; 

	

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

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

	Conn.Open();

	

	

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

	

	Попытка

		rst.Open("S_elect * from file#txt", Conn); 

		

				

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

			

			textstr="";



			Для iCount = 0 По rst.Fields.Count-1 Цикл

				

				textstr =  textstr   + "|" + rst.Fields(iCount).Value;

							

			КонецЦикла;

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

             rst.MoveNext();	

		КонецЦикла;

	Исключение

		rst.Close();

		Conn.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();

                        КонецЦикла;

           КонецЦикла;

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

КонецФункции // ЗагрузитьДанныеИзtxt() Gmix 04.05.2006 12:22:21   

 Параметры = ВнешниеИсточникиДанных.DAX.ПолучитьОбщиеПараметрыСоединения();

 Параметры.АутентификацияСтандартная = Истина;

 Параметры.ИмяПользователя = "sa";

 Параметры.Пароль = "pas";

 Параметры.СтрокаСоединения = "DRIVER={SQL Server};SERVER=servet;UID=sa;PWD=;DATABASE=database";

 Параметры.СУБД = "MSSQLServer";

 

 ВнешниеИсточникиДанных.DAX.УстановитьОбщиеПараметрыСоединения(Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияПользователя(ИмяПользователя(), Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияСеанса(Параметры);



 ВнешниеИсточникиДанных.DAX.УстановитьСоединение();   

 Функция ИнициализироватьИсточникДанных()



ДатаНач = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[5].Значение;

 ДатаКон = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[4].Значение;

 Если ДатаКон > '20100101' Тогда

  ДатаКон = '20100101'; 

 КонецЕсли;

 

 КЧ = Новый КвалификаторыЧисла(15,2);

 КС = Новый КвалификаторыСтроки(255);

 

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

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

 

 МассивСтрока = Новый Массив();

 МассивСтрока.Добавить(Тип("Строка"));

 

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

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



 //В таблицу будем заполнять бухгалтерскую себестоимость

 ТипЧисло = Новый ОписаниеТипов(МассивЧисло,,КЧ);

    ТипСтрока = Новый ОписаниеТипов(МассивСтрока,,КС);

 ТипДата = Новый ОписаниеТипов(МассивДата);

 

 //таблица для загрузки данных из SQL

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

 ТЗ.Колонки.Добавить("НоменклатураКод", ТипСтрока);

 ТЗ.Колонки.Добавить("Qnty", ТипЧисло);

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

 

 ТЗ.Индексы.Добавить("Период");

 

 //Подключаемся к SQL

 СтрокаПодключения = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Pwd=;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Reports";

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

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

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

 Дата = "";

 Попытка

  Connection.Open(СокрЛП(СтрокаПодключения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = "S_elect * from PH where period >= '" + Строка(Формат(ДатаНач, "ДФ=ггггММдд")) + "' and period <= '" + Строка(Формат(ДатаКон, "ДФ=ггггММдд")) + "'";

  RecordSet = Command.Execute();

  RecordSet.MoveFirst();  

 Исключение

  Возврат ТЗ; 

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



 Пока RecordSet.EOF = Ложь Цикл

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

  Строка.НоменклатураКод = RecordSet.Fields(RecordSet.Fields.Item(1).Name).Value;

  Строка.Qnty = RecordSet.Fields(RecordSet.Fields.Item(12).Name).Value;

  Строка.Период = RecordSet.Fields(RecordSet.Fields.Item(13).Name).Value;

  RecordSet.MoveNext();

 КонецЦикла;

 

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

 ВрТаблица = Новый МенеджерВременныхТаблиц();

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.УстановитьПараметр("врТаблицаДанных",  ТЗ);

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

 Запрос.УстановитьПараметр("ДатаКон", ДатаКон);

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

                | врТаблицаДанных.НоменклатураКод,

                | врТаблицаДанных.Qnty,

                | врТаблицаДанных.Период

                |ПОМЕСТИТЬ ТаблицаДанных

                |ИЗ

                | &врТаблицаДанных КАК врТаблицаДанных

                |ГДЕ

                | врТаблицаДанных.Период >= &ДатаНач

                | И врТаблицаДанных.Период <= &ДатаКон";

 Запрос.Выполнить();

 ТЗ = Неопределено;

 

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

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.Текст = "Здесь запрос с участием верменной таблицы";



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

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



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





  Внешнийнабор = ИнициализироватьИсточникДанных();

  НаборДанных = Новый Структура();

  НаборДанных.Вставить("ТаблицаSQL", Внешнийнабор);

  ТиповыеОтчеты.СформироватьТиповойОтчет(ЭтотОбъект, Результат, ДанныеРасшифровки, ВыводВФормуОтчета, НаборДанных);   

 Процедура СнятиеФлагаПустыхГрупп(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=хххххххх;";



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

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



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

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

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

Command.ActiveConnection = Connection;





Сообщить (Строка (ТекущаяДата()) + " обновляем флаг пустых групп");



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

ЗАпрос.Текст ="ВЫБРАТЬ РАЗЛИЧНЫЕ

| Номенклатура.ЭтоГруппа,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Код КАК Код,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И (Номенклатура.ПустойОстаток = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьWeb = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьНикогда = ИСТИНА)";

Выборка = Запрос.Выполнить().Выбрать();

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

Если Выборка.ПустойОстаток ИЛИ Выборка.НеОтображатьНикогда ИЛИ Выборка.НеОтображатьWEB Тогда

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='N' WHERE category_description='"+Выборка.Код+"'" ;

Иначе

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='Y' WHERE category_description='"+Выборка.Код+"'" ;

КонецЕсли;

Command.CommandText = АпдейтГрупп;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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







КонецЦикла;



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



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

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

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



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

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

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

Command.ActiveConnection = Connection;

// выберем запросом все группы товаров

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

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

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И Номенклатура.Родитель = &Родитель";

// Запрос.УстановитьПараметр("Родитель",Справочники.Номенклатура.ПустаяСсылка());



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

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

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

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0;



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



н=н+1;

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT category_id

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RSIDProduct.CursorType = 3;

RSIDProduct.Open(query, Connection);



Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда

СтрН = СтрЗаменить(Строка(н)," ","");

//пишем группы верхнего уровня

// если группа имеет признак того что-бы ее не выгружать на web то отменим публикацию // необходимо для оптимизации добавить рекурсию по родительскому каталогу

Если Выборка.НеОтображатьWeb или Выборка.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьWeb или Выборка.ПустойОстаток

Тогда

query = "ins ert into jos_vm_category (vendor_id , category_name ,category_description, category_publish , category_browsepage , products_per_row , category_flypage, list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'N', 'managed' , '1' , 'flypage.tpl', '1')";

// иначе публикуем

Иначе

query = "ins ert into jos_vm_category (

|vendor_id ,

|category_name ,

|category_description,

|category_publish ,

|category_browsepage ,

|products_per_row ,

|category_flypage,

|list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'Y', 'managed' , '1' , 'flypage.tpl', '1')";



КонецЕсли;



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

Сообщить (Выборка.Код);

Сообщить (Формат (н,"ЧГ=0"));



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



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

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

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "ins ert into jos_vm_category_xref ( `category_parent_id` , `category_child_id` )

|values ( '"+0+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

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

// Состояние("Обновляем группу товаров " + Выборка.Наименование);



КонецЕсли;



Индикатор1=н;

RSIDProduct.Close();





КонецЦикла;

Сообщить ("обновлено " + н+ " групп");

// обновим статус публикацию групп







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

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

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель.Код КАК КодРодителя,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА

| И (НЕ Номенклатура.Родитель = &Родитель)";





Запрос.УстановитьПараметр("Родитель",Справочники.Номенклатура.ПустаяСсылка());



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

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

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

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

Сообщить ("Строим структуру...");



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

н=н+1;

// Если не Выборка.Ссылка.Уровень=0 тогда



//1 найдем айди родителя и категории в виртуамарте

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.КодРодителя+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

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

ИДРодителя = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);

Попытка

RS.MoveFirst();

Исключение

Сообщить (Выборка.Код);

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

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

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

//найдем и завалим запись в категории

query = "delete fr om jos_vm_category_xref where category_child_id='"+Формат(ИДгруппы,"ЧГ=0")+"'";





Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

// добавим запись в категорию



query = "ins ert into jos_vm_category_xref ( category_parent_id , category_child_id)

|values ( '"+Формат(ИДРодителя,"ЧГ=0")+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

Индикатор1=н;

// КонецЕсли;



КонецЦикла;



Сообщить ("обновлена структура " + н+ " групп");









// RS.Close();

Connection.Close();

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



Процедура ОсновныеДействияФормыОчистьТАблицыSQL(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

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



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

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

Command.ActiveConnection = Connection;

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

Command.ActiveConnection = Connection;



query ="

|DELETE FR OM jos_vm_category";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_product";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

query ="

|DELETE FR OM jos_vm_product_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();





query ="

|DELETE FR OM jos_vm_product_price";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

// RS.Close();

Connection.Close();



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



Процедура ОсновныеДействияФормыОбновитьТовары(Кнопка)

Сообщить (Строка (ТекущаяДата()) + " обновляем группы товаров...");

КнопкаВыполнитьНажатие(1);



СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

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



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

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

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

Command.ActiveConnection = Connection;

Склад = Константы.СкладРозница.Получить();

Сообщить (Строка (ТекущаяДата()) + " распубликовываем отсутсвующие товары");

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

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

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) > 0

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";



Запрос.УстановитьПараметр("ПустойЗаказ", Документы.ЗаказПокупателя.ПустаяСсылка());



Запрос.УстановитьПараметр("Склад",Склад );

Запрос.УстановитьПараметр("КонецДня",КонецДня (ТекущаяДата()));

// Запрос.УстановитьПараметр("Артикул",Артикул);



ТЗостатоков = Запрос.Выполнить().Выгрузить();

// ТЗостатоков.ВыбратьСтроку();

query = "

|SEL ECT product_sku, product_id

|FR OM jos_vm_product";

RS.Open(query, Connection);



Если (НЕ RS.EOF()) И (НЕ RS.BOF()) Тогда

RS.MoveFirst();

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

Артикул = RS.Fields("product_sku").Value;

ПродуктИД = RS.Fields("product_id").Value;

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

Если ТЗостатоков.Найти(Артикул,"Артикул")= Неопределено Тогда

АпдейтВиртмарта = "UPD ATE jos_vm_product SET product_in_stock= '0',product_publish='N' WHERE product_sku='"+Артикул+"'" ;



Command.CommandText = АпдейтВиртмарта;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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

КонецЕсли;

RS.MoveNext();

КонецЦикла;

КонецЕсли;

RS.Close();



//** модуль обновление цен

Сообщить (Строка (ТекущаяДата()) + " начинаем обновление цен на сайте...");



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

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

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура КАК Номенклатура,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Код КАК Код,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Наименование КАК Наименование,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.Код КАК РодительКОД,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.Артикул КАК РодительАртикул,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр КАК WEbЦЕнаУПР,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 КАК WEbЦЕнаУПР2,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.НеВыводитьНаСайт КАК НеВыводитьНаСайт,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьWeb КАК НеОтображатьWeb,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьНикогда КАК НеОтображатьНикогда,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток > 0

| И ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";

Запрос.УстановитьПараметр("ПустойЗаказ", Документы.ЗаказПокупателя.ПустаяСсылка());

Запрос.УстановитьПараметр("Склад", Справочники.СкладыКомпании.НайтиПоКоду("00002"));

Запрос.УстановитьПараметр("КонецДня",КонецДня(ТекущаяДата()));

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

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

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

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

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

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

| КурсыВалютСрезПоследних.Курс

|ИЗ

| РегистрСведений.КурсыВалют.СрезПоследних(&ТекущаяДата, ) КАК КурсыВалютСрезПоследних

|ГДЕ

| КурсыВалютСрезПоследних.Валюта = &Валюта";

ЗапросКурса.УстановитьПараметр("Валюта", Константы.ВалютаУправленческогоУчетаКомпании.Получить());

ЗапросКурса.УстановитьПараметр("ТекущаяДата",КонецДня(ТекущаяДата()));

ВыборкаКурса = ЗапросКурса.Выполнить().Выбрать();



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

Курс = ВыборкаКурса.Курс;



КонецЦикла;



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

н=н+1;



// Если Выборка.ДоступноеКоличество < 0 Тогда ДОступноеКоличество=0; Иначе ДОступноеКоличество=Выборка.ДоступноеКоличество; КонецЕсли;



ДОступноеКоличество=Выборка.ДоступноеКоличество;

// Сообщить (Выборка.Номенклатура.Наименование + " " + ДОступноеКоличество);

флагсуществования=Ложь;

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

Наименование = СтрЗаменить(Выборка.Наименование,"'"," "); //уберем символ '

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";



RSIDProduct.Open(query, Connection);





Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



// флаги отображения на сайте

//Если Выборка.НеВыводитьНаСайт или Выборка.НеОтображатьНикогда или Выборка.НеОтображатьWeb Тогда

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales,product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'N', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

Иначе

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales, product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'Y', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

КонецЕсли;

// запишем номенклатуру

// Сообщить (query);

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

флагсуществования =Ложь;

Иначе



флагсуществования=Истина;



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

//RSIDProduct.MoveFirst();

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

// ИД = RSIDProduct.Fields("product_id").Value;

// RSIDProduct.MoveNext();

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



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='N' WHERE product_sku='"+Выборка.Артикул+"'" ;

Иначе

query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='Y' WHERE product_sku='"+Выборка.Артикул+"'" ;

КонецЕсли;

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

КонецЕсли;

// Попытка записать Данные о товаре

Попытка

// запрос ID родителя товара

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.РодительКод+"' limit 1";

RS.Open(query, Connection);

RS.MoveFirst();

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

ИДгрупы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

//Обновление группы

// запрос айди товара в мускуле виртуемарта

// Сообщить (Выборка.Номенклатура.Артикул);

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

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

ИД = RS.Fields("product_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

Если НЕ флагсуществования Тогда



query = "ins ert into jos_vm_product_category_xref (category_id , product_id ) values ( '"+Формат(ИДгрупы,"ЧГ=0")+"' , '"+Формат(ИД,"ЧГ=0")+"' )";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

Иначе

query = "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"'";





// "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"', product_id='"+Формат(ИД,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

// Сообщить (query);

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

КонецЕсли;





// прибьем ценник товара

query = "delete fr om jos_vm_product_price WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();







// все поля важны !



query = "I_nsert into jos_vm_product_price (

|product_id,

|product_price,

|product_currency,

|product_price_vdate,

|product_price_edate,

|cdate,

|mdate,

|shopper_group_id,

|price_quantity_start,

|price_quantity_end )

|values ( '"+Формат(ИД,"ЧГ=0")+"' , '"+Формат (Цена*Курс,"ЧГ=0")+"','RUB',0,0,1222792314,1222792314,'5',0,0 )";

// Сообщить(Формат(ИД,"ЧГ=0"));

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

Исключение

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

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

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









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

// Состояние("Обновляем товары " + Выборка.Номенклатура.Наименование);

Индикатор1 = н;

КонецЦикла;

Сообщить ("Выгружено " + н + " объектов");

Сообщить(Строка (ТекущаяДата()) + " обновление завершено");

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



Процедура Автомат ()

ОсновныеДействияФормыОбновитьТовары(1);

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



Процедура ПустыеГруппы()

СнятиеФлагаПустыхГрупп(1);

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



Процедура ОсновныеДействияФормыАвтомат(Кнопка)

ЭтаФорма.ПодключитьОбработчикОжидания("автомат", 3600);

ЭтаФорма.ПодключитьОбработчикОжидания("ПустыеГруппы", 5400);



ЭтаФорма.ЭлементыФормы.ОсновныеДействияФормы.Кнопки.Автомат.Доступность = Ложь;

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

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

SSource = "S_elect * FROM nomen.dbf WHERE cost>100";

SConnect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=nomen.dbf;Initial Catalog=D:\";

RS.Open(SSource,SConnect);

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

//Сообщить (RS.Fields("Code").Value+" "+RS.Fields("Name").Value+" "+Строка(RS.Fields("Cost").Value)+" "+RS.Fields("Ed").Value);



Сообщить (RS.Fields("Code").Value+" "+Строка(RS.Fields("Cost").Value));

RS.MoveNext();

КонецЦикла;

RS.Close();   

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

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

	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();     // Закрываем конект

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

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

                    

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

            Иначе

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

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

            КонецЕсли;

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