Выполнено= 0 ;
	Пока СтрокаРез.Следующий() Цикл
		
			ОбработкаПрерыванияПользователя();
			
			Выполнено=Выполнено+ 1 ;
			Состояние("Осталось " + Формат(( 1 -(Выполнено/ВсегоСтрок))* 100 , "ЧЦ=10; ЧДЦ=1") + "%");
			
	    Попытка
			
			АДОДБКоннект.Execute("Insert INTO " + ТаблицаSQL + " values ("
										+ "'" + СтрокаРез.ВидДокумента + "',"
										+ "'" + СтрокаРез.ДатаПроводки + "',"
										+ "" + Формат(СтрокаРез.Сумма,"ЧГ=0; ЧРД='.'; ЦДЧ=2; ЧН=0") + ","
										+ "" + Формат(СтрокаРез.СуммаУпр,"ЧГ=0; ЧРД='.'; ЦДЧ=2; ЧН=0") + ","
										+ "'" + СтрокаРез.Номер + "',"
										+ "'" + СтрокаРез.КонтрагентКод + "',"
										+ "'" + СтрокаРез.ОрганизацияКод + "',"
										+ "'" + СтрокаРез.ВидОперации + "',"
										+ "'" + СтрокаРез.СтатьяДвиженияКод + "',"
										+ "'" + СокрП(СтрЗаменить(СтрЗаменить(СтрокаРез.Назначение,"'","`"),Символы.ПС," ")) + "')"
			);
			
			
		Исключение 
			Сообщить("Ошибка вставки данных в SQL: " + ОписаниеОшибки());
			АДОДБКоннект.Execute("Commit");
			АДОДБКоннект.Execute("set implicit_transactions on");
			АДОДБКоннект.Close();
			ОшибкаSQL=ТаблицаSQL;
			ВызватьИсключение;
		КонецПопытки; 
		
	КонецЦикла;

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	ПодключитьОбработчикОповещения("ОбработчикОповещения");
КонецПроцедуры

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
       Если ИмяСобытия = "Выгрузить" Тогда Выгрузить();
КонецПроцедуры

Процедура ПриОткрытии()
	   Оповестить("Выгрузить", ,ЭтаФорма.Объект.Ссылка);
КонецПроцедуры

 	Форма = ПолучитьФорму("ПутьКнужнойФорме");
	Форма.Открыть();
        Оповестить("Выгрузить");

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	Отказ = Истина;
	Форма = ПолучитьФорму("Форма");
	Форма = ЭтаФорма;
	Форма.Открыть();
	Оповестить("Выгрузить");


	//ПодключитьОбработчикОжидания("Выгрузить", 5 ,Истина); 
	//ПодключитьОбработчикОповещения("ОбработкаОповещения");

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

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
       Если ИмяСобытия = "Выгрузить" Тогда Выгрузить() конецесли;
КонецПроцедуры

Процедура ПриОткрытии()
	ПодключитьОбработчикОжидания("Выгрузить", 10 , Истина);
КонецПроцедуры




Процедура Выгрузить()
Если ВводДоступен() Тогда

	i= 0 ;
	ii= 250000 ;
	пока i<ii цикл
		обработкапрерыванияпользователя();
		i=i+ 1 ;
		состояние("всего " + i + " из " + ii);
	конеццикла;
конецесли;	
конецпроцедуры;	

Процедура ПриОткрытии()
	Shell = Новый COMОбъект("WScript.Shell");
	Shell.SendKeys("^{ENTER}");
КонецПроцедуры


Процедура Выгрузить()

	i= 0 ;
	ii= 250000 ;
	пока i<ii цикл
		обработкапрерыванияпользователя();
		i=i+ 1 ;
		состояние("всего " + i + " из " + ii);
	конеццикла;
конецпроцедуры;	





//Shell.SendKeys("^(A)");
//BACKSPACE {BACKSPACE}, {BS} или {BKSP}
//BREAK {BREAK}
//CAPS LOCK {CAPSLOCK}
//DEL или DELETE {DELETE} или {DEL}
//СТРЕЛКА ВНИЗ {DOWN}
//END {END}
//ENTER {ENTER}или ~
//ESC {ESC}
//HELP {HELP}
//HOME {HOME}
//INS или INSERT {INSERT} или {INS}
//СТРЕЛКА ВЛЕВО {LEFT}
//NUM LOCK {NUMLOCK}
//PAGE DOWN {PGDN}
//PAGE UP {PGUP}
//PRINT SCREEN {PRTSC}
//СТРЕЛКА ВПРАВО {RIGHT}
//SCROLL LOCK {SCROLLLOCK}
//TAB {TAB}
//СТРЕЛКА ВВЕРХ {UP}
//F1 {F1}
//F2 {F2}
//F3 {F3}
//F4 {F4}
//F5 {F5}
//F6 {F6}
//F7 {F7}
//F8 {F8}
//F9 {F9}
//F10 {F10}
//F11 {F11}
//F12 {F12}
//F13 {F13}
//F14 {F14}
//F15 {F15}
//F16 {F16}

//Для описания сочетания клавиши с клавишами SHIFT, CTRL или ALT следует указать один из перечисленных ниже кодов перед кодом обычной клавиши:

//SHIFT +
//CTRL ^
//ALT %