obj1 = Createobject("V81.COMConnector")   
obj =  obj1.Connect([Srvr="ERP";Ref="Enterprise02";Usr="ххххх";pwd="ххх"])  
...
    cfirma=obj.Справочники.Организации.НайтиПоКоду('000000001')
    Файл=obj.NewObject('XBase')  
      Файл.Поля.Добавить("in","S",8,0)  
...
      Файл.Поля.Добавить("gv","n",4,0)
     NameBase = "c:\robor\b_obort.dbf"  
      Файл.СоздатьФайл(NameBase)  
oQue=obj.NewObject('Запрос') 

TEXT TO текст46 NOSHOW 
    SELECT
        МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство.НаименованиеПолное AS Наименование,
        ВложенныйЗапрос.ИнвентарныйНомерРегл AS ИнвентарныйНомер,
        МЕСЯЦ(ВложенныйЗапрос.ДатаВводаВЭксплуатациюРегл) AS МесяцВводаВЭксплуатацию,
        ГОД(ВложенныйЗапрос.ДатаВводаВЭксплуатациюРегл) AS ГодВводаВЭксплуатацию,
        ВложенныйЗапрос.ПервоначальнаяСтоимостьБУ AS ПервоначальнаяСтоимость,
        ВложенныйЗапрос.ПервоначальнаяСтоимостьБУ - CASE
            WHEN СтоимостьОСБухгалтерскийУчетОстатки.АмортизацияОстаток IS NULL 
                THEN 0
            ELSE СтоимостьОСБухгалтерскийУчетОстатки.АмортизацияОстаток
        END AS ОстаточнаяСтоимость,
        ВложенныйЗапрос.СрокПолезногоИспользованияБУ AS СрокПолезногоИспользования,
        МестонахождениеОСБухгалтерскийУчетСрезПоследних.МОЛ AS МОЛ,
        МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство.АмортизационнаяГруппа AS АмортизационнаяГруппа
    FROM
        РегистрСведений.МестонахождениеОСБухгалтерскийУчет.СрезПоследних(&Период, ) AS МестонахождениеОСБухгалтерскийУчетСрезПоследних
            LEFT JOIN (SELECT
                ВводНачальныхОстатковОСОС.ИнвентарныйНомерРегл AS ИнвентарныйНомерРегл,
                ВводНачальныхОстатковОСОС.ДатаВводаВЭксплуатациюРегл AS ДатаВводаВЭксплуатациюРегл,
                ВводНачальныхОстатковОСОС.СрокПолезногоИспользованияБУ AS СрокПолезногоИспользованияБУ,
                ВводНачальныхОстатковОСОС.ПервоначальнаяСтоимостьБУ AS ПервоначальнаяСтоимостьБУ,
                ВводНачальныхОстатковОСОС.ОсновноеСредство.Ссылка AS ОсновноеСредствоСсылка
            FROM
                Документ.ВводНачальныхОстатковОС.ОС AS ВводНачальныхОстатковОСОС
            
            UNION ALL
            
            SELECT
                ПринятиеКУчетуОСОсновныеСредства.ИнвентарныйНомер,
                ПринятиеКУчетуОСОсновныеСредства.Ссылка.Дата,
                ПринятиеКУчетуОСОсновныеСредства.Ссылка.СрокПолезногоИспользованияБУ,
                ПринятиеКУчетуОСОсновныеСредства.Ссылка.СтоимостьБУ,
                ПринятиеКУчетуОСОсновныеСредства.ОсновноеСредство
            FROM
                Документ.ПринятиеКУчетуОС.ОсновныеСредства AS ПринятиеКУчетуОСОсновныеСредства) AS ВложенныйЗапрос
            ON МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство.Ссылка = ВложенныйЗапрос.ОсновноеСредствоСсылка
            LEFT JOIN РегистрНакопления.СтоимостьОСБухгалтерскийУчет.Остатки(&Период, ) AS СтоимостьОСБухгалтерскийУчетОстатки
            ON МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство = СтоимостьОСБухгалтерскийУчетОстатки.ОсновноеСредство
                AND МестонахождениеОСБухгалтерскийУчетСрезПоследних.Организация = СтоимостьОСБухгалтерскийУчетОстатки.Организация
    WHERE
        МестонахождениеОСБухгалтерскийУчетСрезПоследних.Организация = &Организация
    
    ORDER BY
        ИнвентарныйНомер
 ENDTEXT
 
  oQue.Текст=Текст46
  oQue.УстановитьПараметр("Организация", cfirma)  
  oQue.УстановитьПараметр("Период", tekdt)  
  oRes = oQue.Выполнить().Выгрузить()  
    FOR EACH oRow IN oRes   
        Файл.Добавить()  
          Файл.in=oRow.ИнвентарныйНомер  
          Файл.no=oRow.Наименование  
          Файл.fio=oRow.МОЛ  
          Файл.st=oRow.ПервоначальнаяСтоимость
          Файл.nap=oRow.СрокПолезногоИспользования
          Файл.ost=oRow.ОстаточнаяСтоимость 
          Файл.kn=oRow.АмортизационнаяГруппа
          Файл.mv=oRow.МесяцВводаВЭксплуатацию
          Файл.gv=oRow.ГодВводаВЭксплуатацию 
        Файл.Записать()  
     ENDFOR     
  Файл.ЗакрытьФайл()  
RELEASE obj1
RELEASE obj

com1.mymetod1(ggg,hhh,...)