ИмяСервера = "nasa";
	ИмяБазы = "infanalit";
	ИмяПользователя = "sa";
	Пароль = "";
	
	
	стрПодключения    = "Provider=SQLOLEDB.1;
	|Pwd="+Пароль+";
	|User ID="+ИмяПользователя+";
	|Data Source=" + ИмяСервера + ";
	|Initial Catalog=" + ИмяБазы + "";
	
	АДОДБКоннект = Новый COMОбъект("ADODB.Connection");
	АДОДБКоннект.ConnectionTimeOut = 300 ; 
	//АДОДБКоннект.CursorLocation =  3 ;    //adUseClient
	АДОДБКоннект.CursorLocation =  2 ;    //adUseServer


    Попытка
		АДОДБКоннект.Open(стрПодключения);
		Сообщить("Соединение с SQL-сервером " + ИмяСервера + " осуществлено в "+ТекущаяДата());
	Исключение 
		Предупреждение("Невозможно установить соединение с SQL-сервером " + ИмяСервера); 
		АДОДБКоннект.Close();
		Возврат;
	КонецПопытки; 

	Сообщить("Выполняем запрос 1С");

	ЗапросВ = Новый Запрос;
	ЗапросВ.УстановитьПараметр("ТекДата",КонецДня(ТекущаяДата()));
	ЗапросВ.Текст = "ВЫБРАТЬ
	                |	ЦеныНоменклатурыСрезПоследних.Период КАК ДатаЦены,
	                |	ЦеныНоменклатурыСрезПоследних.Номенклатура.Код как Код,
	                |	ЦеныНоменклатурыСрезПоследних.Номенклатура.Наименование как Наименование,
	                |	ЦеныНоменклатурыСрезПоследних.Цена как Цена
	                |ИЗ
	                |	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&ТекДата, ) КАК ЦеныНоменклатурыСрезПоследних";
	
	Результат = ЗапросВ.Выполнить().Выгрузить();
	Сообщить("Запрос 1С выполнен");
	
	
    Попытка
		АДОДБКоннект.Execute("IF OBJECT_ID(N'Goods1C','U') IS not NULL drop table Goods1C");
		АДОДБКоннект.Execute("CREATE TABLE Goods1C (" 
											+ "Date_Price datetime, "
											+ "COODS_CODE varchar(20), "
											+ "GOODS_NAME varchar(255), "
											+ "Price money)"
							);
	Исключение 
		Сообщить("Ошибка создания табл. в SQL: " + ОписаниеОшибки());
		АДОДБКоннект.Close();
		Возврат;
	КонецПопытки; 
	
	АДОДБКоннект.Execute("BEGIN TRANSACTION");
	АДОДБКоннект.Execute("set implicit_transactions off");

	Сообщить("Запрос 1С выгружаем в табл. SQL");
	Для Каждого СтрокаРез из Результат Цикл
		
		GOODS_NAME = СтрЗаменить(СтрокаРез.Наименование,"'","''");
		
	    Попытка
			АДОДБКоннект.Execute("Insert INTO Goods1C values ('"
										+ СтрокаРез.ДатаЦены + "','"
										+ СтрокаРез.Код + "','"
										+ GOODS_NAME + "','"
										+ СтрокаРез.Цена + "')"
								);
		Исключение 
			Сообщить("Ошибка вставки данных в SQL: " + ОписаниеОшибки());
			АДОДБКоннект.Execute("Commit");
			АДОДБКоннект.Execute("set implicit_transactions on");
			АДОДБКоннект.Close();
			Возврат;
		КонецПопытки; 
		
                                    
		
		ОбработкаПрерыванияПользователя();
	КонецЦикла;
	
	АДОДБКоннект.Execute("Commit");
	АДОДБКоннект.Execute("set implicit_transactions on");
	АДОДБКоннект.Close();
	Сообщить("Запрос 1С выгружен в табл. SQL в " +ТекущаяДата());