Код

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

	ТекстЗапроса ="
	|Select
    |$Рег.Счет as [Счет $Документ.Счет],
    |$Рег.СуммаОплатыВал as СуммаОплатыВал,
    |Рег.IDDocDef +Рег.IDDOC as [Док $Документ]
    |From Регистр.ВзаиморасчетыПоставщиковВал Рег
    |Where $Рег.Счет = :ВыбСчет
	|";
	гЗапрос.УстановитьТекстовыйПараметр("ВыбСчет", ВыбСчет);
	ТЗ = гЗапрос.ВыполнитьИнструкцию(ТекстЗапроса);
	ТЗ.ВыбратьСьроку();