Код

	глОлеДБ = СоздатьОбъект("OLEDBData");
	Рез		= глОлеДБ.Соединение("
		|Provider=VFPOLEDB.1;
		|Null = Yes;
		|Exclusive = No;
		|SourceType = DBF;
		|Data Source=" + КаталогИБ() + ";
		|Mode=ReadWrite;
		|Extended Properties="""";
		|User ID="""";
		|Password="""";
		|Mask Password=False;
		|Collating Sequence=MACHINE;
		|DSN=""""");

	Запрос = глОлеДБ.СоздатьКоманду();
	Выборка		= СоздатьОбъект("ТаблицаЗначений");
	Записи		= СоздатьОбъект("ТаблицаЗначений");
	МетаИмена	= СоздатьОбъект("MetaDataWork");

	Запрос.ВыполнитьИнструкцию("SELECT * FROM 1SDBSET WHERE DBSTATUS = ""C""", Выборка);
	Выборка.ВыбратьСтроки();
	Пока Выборка.ПолучитьСтроку() = 1 Цикл
		ИдБазы	= Выборка.DBSIGN;
		ИдБазы	= глДополнитьСтрокуП(ИдБазы," ", 3);

		// С начала проверим наличие текущего документа в выгрузке
		Стр			= МетаИмена.ЗначениеВДлиннуюСтрокуБД(ТекущийДокумент());
		ИдТипа		= Лев(Стр,4);
		ИдОбъекта	= Прав(Стр,9);

		ТекстЗапроса="SELECT *
			|FROM 1SUPDTS
			|WHERE (
			|((DBSIGN)  ="""+ИдБазы+""") AND
			|((TYPEID)  ="""+ИдТипа+""") AND
			|((OBJID)   ="""+ИдОбъекта+""") AND
			|((DWNLDID) =""     0"")
			|)
			|";

		Запрос.ВыполнитьИнструкцию(ТекстЗапроса, Записи);

		Если Записи.КоличествоСтрок() = 0 Тогда
			Запрос.ВыполнитьИнструкцию("
			|INSERT INTO 1SUPDTS (DBSIGN, TYPEID, OBJID, DWNLDID, DELETED)
			|VALUES("""+ИдБазы+""","""+ИдТипа+""","""+ИдОбъекта+""",""     0"", "" ""
			|)");
		КонецЕсли;
	КонецЦикла;