Код

Процедура Сформировать()
	Перем cmd; // : oledbcommand
	Перем db; // : oledbdata
	Перем СтрокаПодключения; // : Строка
	Перем Рез; // : Число
	Перем ТЗ; // : ТаблицаЗначений

	db = СоздатьОбъект("oledbdata");

	СтрокаПодключения = "
	|Provider=VFPOLEDB.1;
	|Deleted=Yes;
	|Data Source=" + КаталогИБ() + ";
	|Mode=ReadWrite;
	|Mask Password=False;
	|Collating Sequence=MACHINE;
	|";

	Если db.Соединение(СтрокаПодключения) = 0 Тогда
		Возврат;
	КонецЕсли;

	cmd = db.СоздатьКоманду();

	// Выбрали все документы
	//
	ТЗ = cmd.ВыполнитьИнструкцию("SELECT iddoc, ismark FROM [1SJOURN]");

	// Теперь параметризированный запрос
	//
	cmd.ДобПараметр(1, 129, 1, 0); // DBPARAMIO_INPUT, DBTYPE_STR, ismark - char(1)
	cmd.ДобПараметр(1, 129, 9, 0); // DBPARAMIO_INPUT, DBTYPE_STR, iddoc - char(9)

	cmd.Prepare("UPDATE [1SJOURN] SET ismark = ? WHERE iddoc = ?");

	// А теперь тупо ставим/снимаем пометки удаления
	//
	ТЗ.ВыбратьСтроки();
	Пока ТЗ.ПолучитьСтроку() = 1 Цикл
		cmd.УстановитьПараметр(1, ?(ТЗ.ismark = "*", " ", "*"));
		cmd.УстановитьПараметр(2, ТЗ.iddoc);

		cmd.Выполнить();
	КонецЦикла;

	cmd.Unprepare();
	cmd.Закрыть();
КонецПроцедуры // Сформировать()