// Выбор файла Microsoft Excel

Procedure FileNameStartChoice(Element, StdProcessing)

	

	StdProcessing = False;

	DialogFile = New FileDialog(FileDialogMode.Open);

	DialogFile.Filter = "Файлы Microsoft Excel (*.xls)|*.xls";

	DialogFile.DefaultExt = "xls";

	If DialogFile.Choose() Then

		FileName = DialogFile.FullFileName;

	EndIf;

	

EndProcedure // FileNameStartChoice()

// Получить список листов текущей книги

Function GetSheets(ExcelApplication)

		

	ListS_electSheet = New ValueList;

	

	ListS_electSheet.Add(0, "Все листы");

	

	NumberSheet = 0;

	For FirstSheet = 1 To ExcelApplication.Worksheets.Count Do 

		

		NumberSheet = NumberSheet + 1;

		ListS_electSheet.Add(

							 NumberSheet, ExcelApplication.WorkSheets(NumberSheet).Name

							);

		

	EndDo;	

	

	Return ListS_electSheet; 

	

EndFunction // GetSheets()



// Преобразование XLS в MXL

Procedure ButtonExecuteClick()

	

	If IsBlankString(FileName) Then

		DoMessageBox("Не указано имя файла");

		Return;

	EndIf;	

	

		Try

		ExcelApplication = GetCOMObject(FileName); // Excel.Application

	Except

		DoMessageBox("Ошибка чтения файла: " + FileName + " возможно защищен паролем.");

		Return;

	EndTry;	

	

	S_electSheet = 0;

	S_electSheet = GetSheets(ExcelApplication).ChooseItem("Выберите лист", S_electSheet); 

	

	If S_electSheet = Undefined Then

		Return;

	EndIf;

	

	S_electNumberSheet1 = S_electSheet.Value; 

	S_electNumberSheet2 = S_electNumberSheet1;

	If S_electNumberSheet1 = 0 Then

		S_electNumberSheet1 = 1;

		S_electNumberSheet2 = ExcelApplication.Worksheets.Count	

	EndIf;

	

	frmProgressBar = GetForm("FormProgressBar");

	frmProgressBar.Caption = "Обрабатывается файл: " + FileName;

	frmProgressBar.Controls.ProgressBarAll.MaxValue = S_electNumberSheet2;

	frmProgressBar.Controls.ProgressBarAll.Value = 0; 

	

	For NumberSheet = S_electNumberSheet1 To S_electNumberSheet2 Do

		

		frmProgressBar.Open();

		

		SprDoc = New SpreadsheetDocument;

	

		Try

			WorkSheet = ExcelApplication.Sheets(NumberSheet).UsedRange;

		Except

			DoMessageBox(ErrorDescription());

			Return;

		EndTry;

		

		AllStrings 	= WorkSheet.Rows.Count; 	// Всего строк

		AllColumns 	= WorkSheet.Columns.Count; 	// Всего колонок

		AllCells	= AllStrings * AllColumns; 	// Все ячейки

		

		frmProgressBar.Controls.InfoProgressBarAll.Value = "Обрабатывается лист № " +

		                                                    NumberSheet + " из " +

															S_electNumberSheet2;

															   

		frmProgressBar.Controls.ProgressBarAll.Value = frmProgressBar.Controls.ProgressBarAll.Value + 1; 

		

		If AllCells < 2 Then

			Continue; // Пустой лист

		EndIf;

		

		frmProgressBar.Controls.ProgressBarCur.MaxValue = AllStrings;

		frmProgressBar.Controls.ProgressBarCur.Value = 0; 

		

		For CurrentString = 1 To AllStrings Do

			

			For CurrentColumn = 1  To AllColumns Do

				

				frmProgressBar.Controls.InfoProgressBarCur.Value = "Обрабатывается строка №: " +

				                                                   TrimAll(CurrentString) +

																   " из " + AllStrings +

																   ", колонка №: " +

																   TrimAll(CurrentColumn) +

																   " из " + AllColumns;

				

				Try

					CurrentCell = WorkSheet.Cells(

					                               CurrentString,

												   CurrentColumn

												  );

					SlcCell 	= SprDoc.Area(

					                           CurrentString,

					                           CurrentColumn,

											   CurrentString,

											   CurrentColumn

											  );

					

					SlcCell.RowHeight 	= CurrentCell.RowHeight; 

					SlcCell.ColumnWidth = CurrentCell.ColumnWidth; 

					

					// Горизонтальное положение

					SlcCell.HorizontalAlign = mListHorizontalAlign.Get(

					                                                    Format(CurrentCell.HorizontalAlignment, "NG=0")

																	   );

																	   

					// Вертикальное положение																	   

					SlcCell.VerticalAlign 	= mListVerticalAlign.Get(

					                                                  Format(CurrentCell.VerticalAlignment, "NG=0")

																	 );

																	 

					// Размещение текста																	 

					SlcCell.TextPlacement = ?(

					                           CurrentCell.WrapText = 0,

											   SpreadsheetDocumentTextPlacementType.Auto,

											   SpreadsheetDocumentTextPlacementType.Wrap

											  );

					

					FontCell = CurrentCell.Font;

					

					// Цвет фона

					SlcCell.BackColor 	= mColorRGB(

													 CurrentCell.Interior.Color

													);

					

					// Цвет текста

					SlcCell.TextColor 	= mColorRGB(

													 FontCell.Color

													);

					

					

					SlcCell.Font = New Font(

					                         FontCell.Name, 

					                         Number(FontCell.Size),

					                         ?(Number(FontCell.Bold) = 0,

											 False, True),

											 ?(Number(FontCell.Italic) = 0,

											 False, True),

											 ?(Format(Number(FontCell.Underline),"NG=0") = "-4142",

											 False, True),

											 ?(FontCell.Strikethrough, // Зачеркнутый шрифт

											 True, False)

											);

					

					SlcCell.Text = CurrentCell.Value;

					

					// Рамка

					Try

						SlcCell.LeftBorder 		= mStyleBorder(CurrentCell, 7);

						SlcCell.TopBorder 		= mStyleBorder(CurrentCell, 8);

						SlcCell.RightBorder 	= mStyleBorder(CurrentCell, 10);

						SlcCell.BottomBorder 	= mStyleBorder(CurrentCell, 9);

					Except

					EndTry;

					

					SlcCell.Details = CurrentCell.Formula;

					

					// Объединение ячеек

					If (CurrentCell.MergeCells <> 0) and

					   (Find(CurrentCell.MergeArea.Rows.Address(,, 2),

					    CurrentCell.Address(,, 2)) = 1) Then

						

						SlcCell = SprDoc.Area(

						                       CurrentString,

						                       CurrentColumn,

											   (CurrentString + CurrentCell.MergeArea.Rows.Count - 1),

											   (CurrentColumn + CurrentCell.MergeArea.Columns.Count - 1)

											  );

						SlcCell.Merge();

						

					EndIf;

						

				Except

					

					Message(ErrorDescription());

					

				EndTry;	

								

			EndDo;

			

			frmProgressBar.Controls.ProgressBarCur.Value = frmProgressBar.Controls.ProgressBarCur.Value + 1; 

			UserInterruptProcessing(); // Прерывание пользователя Ctrl+Break



		EndDo;

		

		SprDoc.Show("" + TrimAll(FileName) + ", лист " + NumberSheet,"");

		

	EndDo;	

	

	frmProgressBar.Close();

		

	ExcelApplication = "";

	

EndProcedure // ButtonExecuteClick()

   

 "C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F D:\Конфигурации\Типовые\УпрТорг /N ИмяПользователя /P Пароль /DumpIB c:\имя.dt   

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

//Покажем открываемый документ

Wk.Visible = Истина; Wk.Documents.Open("D:\file.doc"); 

Документ = Wk.ActiveDocument();

// перебирая строки выводим текст 

Для н = 1 по Документ.Sentences.Count Цикл

	Текст=Документ.Sentences(н).Text;

	Сообщить(Текст);  	

КонецЦикла;	

Документ.Close(); 

Wk.Quit();	

   

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

СтрПодключения = "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);



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

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

 set v8exe="C:\Program Files\1cv8\bin\1cv8.exe"

set DataBaseName="\\Server1C\BasaBuh"

set DataBase=/F%DataBaseName%

set UserAdmin=/N"Администратор" /WA-

set PassAdmin=

set User=/N"Администратор" /WA-

set Pass=

set Param="" 



rem Обновляем конфигурацию базы данных

start "" /wait %v8exe% CONFIG     %DataBase% %UserAdmin% %PassAdmin% /UpdateDBCfg    



rem Запуск самой программы, чтобы отработала обработка обновления версии

start "" %v8exe% ENTERPRISE %DataBase% %User%  %Pass% /C%Param% /DisableStartupMessages   

 WshShell = Новый COMОбъект("WScript.Shell");

WshShell.Run(СтрокаЗапуска, 0, Истина)   

 Set WshShell=CreateObject("WScript.Shell")

WshShell.Run """C:\Program Files\1cv81\bin\1cv8.exe"" ENTERPRISE /Sserver\base",0,0    

 On Error Resume Next 

Set objClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2:Win32_Process")

'WScript.Echo "Запускаем"

Res = objClass.Create("C:\Program Files\1CV8PDA\1Cv8pSRV.exe ""Параметры""", Null, Null, PID)

If Res <> 0 Then

  WScript.Echo "Код ошибки: " & Res

  WScript.Quit

End If   

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

        

RegExp.IgnoreCase = Ложь; //Игнорировать регистр

RegExp.Global = Истина; //Поиск всех вхождений шаблона

RegExp.MultiLine = Истина; //Многострочный режим

          

RegExp.Pattern = "Windows[\w\s\d]*([A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5}-[A-Z1-9]{5})"; //Ищем ключ Windows



Matches=RegExp.Execute("строка поиска");

ЧислоВхождений=Matches.Count();

Если ЧислоВхождений>0 Тогда

  Для к = 0 По ЧислоВхождений-1 Цикл

       Match = Matches.Item(к);

       SubMatches = Match.SubMatches;

               Ключ=SubMatches.Item(0);

  КонецЦикла;

КонецЕсли;   

  // Пример Defender aka LINN

ВремяНачала = ТекущаяДата(); 

Сообщить("Обработка начата: " + ВремяНачала); 



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

Текст = ПолучитьМакет("Макет").ПолучитьТекст(); 



RE = New COMObject("VBScript.RegExp"); 

RE.Global        = Истина; 

RE.IgnoreCase    = Истина; 

RE.Multiline    = Истина; 



RE.Pattern = "^.*$"; 



Строки = RE.Execute(Текст); 



RE.Pattern = "([^\|]+?|\|)(?=\|)"; 



ДобавитьКолонки = Истина; 



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

   СтрокаДляРазбора = СтрокаТекста.Value; 

    

   Результат = RE.Execute(СтрокаДляРазбора); 

    

   Если ДобавитьКолонки Тогда 

       НомерКолонки = 0; 

       Для Каждого Совпадение Из Результат Цикл 

           НомерКолонки = НомерКолонки + 1; 

           ТЗ.Колонки.Добавить("Колонка" + НомерКолонки); 

       КонецЦикла; 

       ДобавитьКолонки = Ложь; 

   КонецЕсли; 

    

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

    

   НомерКолонки = 0; 

   Для Каждого Совпадение Из Результат Цикл 

        

       Значение = Совпадение.Value; 

        

       НоваяСтрока[НомерКолонки] = ?(Значение = "|", "", Значение); 

       НомерКолонки = НомерКолонки + 1; 

   КонецЦикла; 

КонецЦикла; 



ВремяОкончания = ТекущаяДата(); 



Сообщить("Обработка завершена: " + ВремяОкончания + ", время обработки: " + Формат('00010101' + (ВремяОкончания-ВремяНачала), "ДФ=мм:сс")); 

Сообщить("Количество строк: " + ТЗ.Количество());   

 // Пример  aleks-id

Функция InitRegExp(Разделитель = "|")

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

    

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

    RegExp.MultiLine = Истина;  // истина — текст многострочный, ложь — одна строка 

    RegExp.Global = Истина;   // истина — поиск по всей строке, ложь — до первого совпадения 

    RegExp.IgnoreCase = Ложь; // истина — игнорировать регистр строки при поиске 

    

    RegExp.Pattern = "[^\" + Разделитель + "]+";

    Возврат RegExp;

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



Функция РазложитьСтрокуВМассив(RegExp, Строка)

    

    Matches = RegExp.Execute (Строка);

    

    Массив = Новый Массив;

    

    Для Сч = 0 По Matches.Count - 1 Цикл

        Массив.Добавить(Matches.Item(Сч).Value);

    КонецЦикла;

    

    

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

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



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

    Текст = Новый ЧтениеТекста("C:\aktivy.txt", КодировкаТекста.ANSI);

    RegExp = InitRegExp();

    Стр = Текст.ПрочитатьСтроку();

    Пока Стр <> Неопределено Цикл

        масс = РазложитьСтрокуВМассив(RegExp, Стр);

        Стр = Текст.ПрочитатьСтроку();

    КонецЦикла;

    RegExp = Неопределено;

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

   

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

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

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр  

    RegExp.Global = Истина; //Поиск всех вхождений шаблона  

    RegExp.MultiLine = Ложь; //Многострочный режим  

    

    RegExp.Pattern = "(?:^|;)(\""(?:[^\""]+|\""\"")*\""|[^;]*)"; //вот наш супер шаблон  

    //RegExp.Pattern = ";|;|;|;|;;|;|;|;|;|;|;|;|;;|;|;"; //вот наш супер шаблон  

    Matches=RegExp.Execute(Стр);

    ЧислоВхождений=Matches.Count();

    //Сообщить(Стр,СтатусСообщения.Важное); 

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            

            SubMatches = Match.SubMatches;

            ЧислоПодвыражений=SubMatches.Count();

            Для н = 0 По ЧислоПодвыражений-1 Цикл

                SubMatch=SubMatches.Item(н);

                Если SubMatch="" Тогда

                    //Продолжить; 

                КонецЕсли;    

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

                //Сообщить("Подстрока: "+SubMatch); 

            КонецЦикла;    

        КонецЦикла;

    Иначе

        //Сообщить("Вхождений шаблона не найдено"); 

    КонецЕсли;

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

   

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

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

//Поиск вхождений подстроки

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

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML

    Matches=RegExp.Execute("Это <hr> строка <br> с тегами HTML");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            Сообщить("Найден тег:"+ Match.Value);

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

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

    //Найден тег:<hr>

    //Найден тег:<br>    

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

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

//Поиск вхождений подстроки с использованием подвыражений

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

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "([^<]*)(<[^>]*>)([^<]*)"; //Ищем теги HTML, а также текст до и после тега

    Matches=RegExp.Execute("  <tr><td id=aaa>Дятел <td> долбит <td> сосну </tr>");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            

            SubMatches = Match.SubMatches;

            ЧислоПодвыражений=SubMatches.Count();

            Для н = 0 По ЧислоПодвыражений-1 Цикл

                SubMatch=SubMatches.Item(н);

                Если SubMatch="" Тогда

                    Продолжить;

                КонецЕсли;    

                

                Сообщить("Подстрока: "+SubMatch);

            КонецЦикла;    

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

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



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

//Подстрока:   

//Подстрока: <tr>

//Подстрока: <td id=aaa>

//Подстрока: Дятел 

//Подстрока: <td>

//Подстрока:  долбит 

//Подстрока: <td>

//Подстрока:  сосну 

//Подстрока: </tr>

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

//Проверка подстроки

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

    RegExp = CreateObject("VBScript.RegExp");

    RegExp.Pattern =  "^\d+$"; //Шаблон, который соответствует целому числу

    стр="12345";//Строка, которую тестируем

    Если RegExp.Test(стр)=0 Тогда

        Сообщить("Это не целое число");

    Иначе

        Сообщить("Это целое число");

    КонецЕсли;

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

    //"Это целое число"

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

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

//Замена текста в подстроке

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

    

    //Строка, где мы будем производить замены

    стр="Дятел долбил сосну";

    

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Истина; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Истина; //Многострочный режим

    

    

    RegExp.Pattern = "(долбил)"; 

    

    стр=RegExp.Replace(стр, "про$1"); 

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

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

    //"Дятел продолбил сосну"

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

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

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

	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;

       Исключение

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

  КонецЕсли;

КонецЕсли;

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

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

 C:\Program Files\1cv81\bin\1cv8.exe» /out»C:\1c_work\Log.txt   

 C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\DemoTrd2" /N"Федоров (администратор)" /P"" /OutD:\my\log.txt /ReduceEventLogSize 2004-12-26 -saveAsC:\OldLog.elf    

 ПоказатьОповещениеПользователя("Документ не записан!", 

                                                      "http://doc.ru", 

                                                       "О правилах заполнения документа, читайте здесь!", 

                                                       БиблиотекаКартинок.Важно);   

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

			Форма = Источник.ПолучитьФорму();

			Если Форма.Открыта() Тогда

				ПоказатьОповещениеПользователя("Ошибка", ПолучитьНавигационнуюСсылку(Источник.Ссылка), "Не указана организация. Невозможно распределить платежи по документам расчетов с контрагентом", БиблиотекаКартинок.Ошибка32);

			КонецЕсли;

		#КонецЕсли

   

 WshShell=СоздатьОбъект("WScript.Shell");

WshShell.Popup("Текст сообщения",,"Текст заголовка",20);

  //Процедура выводит или убирает сообщение мессенджера и иконку, в зависимости от бПарам

Процедура ВывестиСообщениеМессенджера(бПарам = Истина) Экспорт

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

 

    сКаталог = СокрЛП(Константы.КаталогПолногоДоступа.Получить())+"БП\MessageService";

    ИмяФайла    = сКаталог + "\autohotkey.exe";

    Файл        = Новый Файл(ИмяФайла);

    

    ИмяФайлаИНИ = сКаталог + "\autohotkey.ini";

    

    Если бПарам Тогда

        ИмяФайлаИНИ_Задачи = сКаталог + "\autohotkey_Yes.ini";

    Иначе

        ИмяФайлаИНИ_Задачи = сКаталог + "\autohotkey_No.ini";

    КонецЕсли;

    

    ФайлИНИ_Задачи = Новый Файл(ИмяФайлаИНИ_Задачи);

    

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

        

        Попытка                                                                      

            КопироватьФайл(ИмяФайлаИНИ_Задачи,ИмяФайлаИНИ);

            ЗапуститьПриложение(ИмяФайла, сКаталог);

            Если бПарам Тогда 

                ПараметрыСеанса.бСостояниеМессенджера = Истина;

            Иначе

                ПараметрыСеанса.бСостояниеМессенджера = Ложь;

            КонецЕсли;

        Исключение

            

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

        

    КонецЕсли;

#КонецЕсли 

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

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

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

Батник = Новый ТекстовыйДокумент;

Батник.ДобавитьСтроку("echo off");

Батник.ДобавитьСтроку("w32tm /config /syncfromflags:manual /manualpeerlist:ntp.time.in.ua");

Батник.ДобавитьСтроку("w32tm /config /update");

Батник.ДобавитьСтроку("w32tm /resync > c:\res_set_time.txt");

Батник.Записать("c:\settime.bat",КодировкаТекста.OEM);



WshShell = Новый COMОбъект("WScript.Shell");

//WshExec = WshShell.Exec("c:\settime.bat");

СтрокаЗапуска = "c:\settime.bat";

WshShell.Run(СтрокаЗапуска,0,Истина);



Результат = Новый ТекстовыйДокумент;

Попытка

Результат.Прочитать("c:\res_set_time.txt",КодировкаТекста.OEM);

Исключение

Сообщить("Ошибка открытия файла!");

Возврат;

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

Рез = Результат.ПолучитьСтроку(2);

Сообщить(?(Найти(Рез,"успешно") > 0,"ОК!","Не удалось"));

Попытка

УдалитьФайлы("c:\settime.bat");

УдалитьФайлы("c:\res_set_time.txt");

Исключение

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

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

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