Код

	Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Exclusive=Yes;Mode=ReadWrite;Collating Sequence=MACHINE";
	ДБ = СоздатьОбъект("OLEDBData");
	Рез = ДБ.Соединение(Соединение);
	Запрос = ДБ.СоздатьКоманду();
	Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  
	Запрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");	Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");
	Запрос = ДБ.СоздатьКоманду();

	стр ="
	|update
	|   1sjourn
	|set
	|  ismark ='*'
	|  ,closed = 0
	|  ,actcnt = '     0'";

	Для к=1 По Метаданные.Регистр() Цикл
		стр=стр+"
		| ,$ФлагРегистра."+Метаданные.Регистр(к).Идентификатор+" = 0";
	КонецЦикла;
	Для к=1 По Метаданные.Последовательность() Цикл
		стр=стр+"
		| ,$Последовательность."+Метаданные.Последовательность(к).Идентификатор+" = 0";
	КонецЦикла;
	стр=стр+" where
	|--iddocdef not in ($Виддокумента.ВводВЭксплуатациюОС,$Виддокумента.МодернизацияОС)
	|
	|--and
		     |dtos(date)+time+iddoc between (dtos(:НачДата~~)+'	'+'	   ')  and  (dtos(:КонДата~~)+'ZZZZZZ' + 'ZZZZZZZZZ')";

	Запрос.УстановитьТекстовыйПараметр("НачДата", '01.01.80');
	Запрос.УстановитьТекстовыйПараметр("КонДата", ВыбДата);

	Если Запрос.ВыполнитьИнструкцию(стр) = 0 Тогда
		Сообщить("update 1SJOURN","!!!");
	КонецЕсли;