Код

АДО = CreateObject("ADODB.Connection");
СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="""+ КаталогИБ() +""";Extended Properties=DBASE IV;;;";
Попытка
	АДО.Open(СтрокаСоединения);
Исключение
	 Сообщить("Ошибка открытия 1SUPDTS.DBF из-за "+ОписаниеОшибки());
	Возврат;
КонецПопытки;

МетаИмена	= СоздатьОбъект("MetaDataWork");

  // Для всех переферийных баз
Базы =  АДО.Execute("SELECT * FROM 1SDBSET");
Пока Базы.EOF = 0 Цикл
	ИдБазы	= Базы.Fields("DBSIGN").Value;
	Длина	= СтрДлина(ИдБазы);
	Для Сч = Длина+1 По 3 Цикл
		ИдБазы	= ИдБазы + " ";
	КонецЦикла;

	Если ИдБазы = ТекущаяИбКод() Тогда
		Базы.MoveNext();
		Продолжить;	// сами себе не выгружаем
	КонецЕсли;

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

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

	Выборка	=  АДО.Execute(ТекстЗапроса);
	Если Выборка.EOF()<>0 Тогда
		АДО.Execute("
			|INSERT INTO 1SUPDTS (DBSIGN, TYPEID, OBJID, DWNLDID)
			|VALUES("""+ИдБазы+""","""+ИдТипа+""","""+ИдОбъекта+""",""     0""
			|)");
		КонецЕсли;

	Базы.MoveNext();
КонецЦикла;

АДО.Close();
 

Код

	глОлеДБ = СоздатьОбъект("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"", "" ""
			|)");
		КонецЕсли;
	КонецЦикла;