SELECT UPPER(u_kart.in) as in,CHRTRAN(UPPER(u_kart.no),'H','Н') as no,CHRTRAN(UPPER(u_kml.fio),'H','Н') as fio,u_kart.st,u_kart.nap,u_kart.ost,u_kart.kn,SubsTR(u_kart.dw,1,2) as mv,SUBSTR(u_kart.dw,3,2) as gv ;
    from u_kart,u_kml;
    WHERE u_kart.kml=u_kml.kml;
    order BY 1 INTO TABLE c:\robor\b_obort

tekdt=DATE()
*cfirma='НПО "ЭЛСИБ" ОАО'    
    
obj = CreateObject("V81.Application")  
obj.Connect([Srvr="ERP";Ref="Enterprise-02";Usr="ЖевелевАГ";pwd=""])   
  
USE IN SELECT('b_obort')
    cfirma=obj.Справочники.Организации.НайтиПоКоду('000000001')
    Файл=obj.NewObject('XBase')  
      Файл.Поля.Добавить("in","S",8,0)  
      Файл.Поля.Добавить("no","S",70,0)  
      Файл.Поля.Добавить("fio","S",31)  
      Файл.Поля.Добавить("st","N",18,2)
      Файл.Поля.Добавить("nap","N",6,0)
      Файл.Поля.Добавить("ost","N",15,2)
      Файл.Поля.Добавить("kn","s",13,0)
      Файл.Поля.Добавить("mv","n",2,0)
      Файл.Поля.Добавить("gv","n",4,0)
     NameBase = "c:\robor\b_obort.dbf"  
      Файл.СоздатьФайл(NameBase)  
    
oQue=obj.NewObject('Запрос') 
    TEXT TO текст46 NOSHOW 
        ВЫБРАТЬ
            МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство.НаименованиеПолное КАК Наименование,
            ВложенныйЗапрос.ИнвентарныйНомерРегл КАК ИнвентарныйНомер,
            МЕСЯЦ(ВложенныйЗапрос.ДатаВводаВЭксплуатациюРегл) КАК МесяцВводаВЭксплуатацию,
            ГОД(ВложенныйЗапрос.ДатаВводаВЭксплуатациюРегл) КАК ГодВводаВЭксплуатацию,
            ВложенныйЗапрос.ПервоначальнаяСтоимостьБУ КАК ПервоначальнаяСтоимость,
            ВложенныйЗапрос.ПервоначальнаяСтоимостьБУ - ВЫБОР
                КОГДА СтоимостьОСБухгалтерскийУчетОстатки.АмортизацияОстаток ЕСТЬ NULL 
                    ТОГДА 0
                ИНАЧЕ СтоимостьОСБухгалтерскийУчетОстатки.АмортизацияОстаток
            КОНЕЦ КАК ОстаточнаяСтоимость,
            ВложенныйЗапрос.СрокПолезногоИспользованияБУ КАК СрокПолезногоИспользования,
            МестонахождениеОСБухгалтерскийУчетСрезПоследних.МОЛ КАК МОЛ,
            МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство.АмортизационнаяГруппа КАК АмортизационнаяГруппа
        ИЗ
            РегистрСведений.МестонахождениеОСБухгалтерскийУчет.СрезПоследних(&Период, ) КАК МестонахождениеОСБухгалтерскийУчетСрезПоследних
                ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
                    ВводНачальныхОстатковОСОС.ИнвентарныйНомерРегл КАК ИнвентарныйНомерРегл,
                    ВводНачальныхОстатковОСОС.ДатаВводаВЭксплуатациюРегл КАК ДатаВводаВЭксплуатациюРегл,
                    ВводНачальныхОстатковОСОС.СрокПолезногоИспользованияБУ КАК СрокПолезногоИспользованияБУ,
                    ВводНачальныхОстатковОСОС.ПервоначальнаяСтоимостьБУ КАК ПервоначальнаяСтоимостьБУ,
                    ВводНачальныхОстатковОСОС.ОсновноеСредство.Ссылка КАК ОсновноеСредствоСсылка
                ИЗ
                    Документ.ВводНачальныхОстатковОС.ОС КАК ВводНачальныхОстатковОСОС
                
                ОБЪЕДИНИТЬ ВСЕ
                
                ВЫБРАТЬ
                    ПринятиеКУчетуОСОсновныеСредства.ИнвентарныйНомер,
                    ПринятиеКУчетуОСОсновныеСредства.Ссылка.Дата,
                    ПринятиеКУчетуОСОсновныеСредства.Ссылка.СрокПолезногоИспользованияБУ,
                    ПринятиеКУчетуОСОсновныеСредства.Ссылка.СтоимостьБУ,
                    ПринятиеКУчетуОСОсновныеСредства.ОсновноеСредство
                ИЗ
                    Документ.ПринятиеКУчетуОС.ОсновныеСредства КАК ПринятиеКУчетуОСОсновныеСредства) КАК ВложенныйЗапрос
                ПО МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство.Ссылка = ВложенныйЗапрос.ОсновноеСредствоСсылка
                ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьОСБухгалтерскийУчет.Остатки(&Период, ) КАК СтоимостьОСБухгалтерскийУчетОстатки
                ПО МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство = СтоимостьОСБухгалтерскийУчетОстатки.ОсновноеСредство
                    И МестонахождениеОСБухгалтерскийУчетСрезПоследних.Организация = СтоимостьОСБухгалтерскийУчетОстатки.Организация
        ГДЕ
            МестонахождениеОСБухгалтерскийУчетСрезПоследних.Организация = &Организация
        
        УПОРЯДОЧИТЬ ПО
            ИнвентарныйНомер
     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 obj
  obj.ЗавершитьРаботуСистемы(.F.)    
  obj=.null.

МестонахождениеОСБухгалтерскийУчетСрезПоследних.Организация.Наименование = &Организация  
...
oQue.УстановитьПараметр("Организация", cfirma)    

obj1 = Createobject("V8.COMConnector")
obj =  obj1.Connect([Srvr="ERP";Ref="Enterprise-02";Usr="ЖевелевАГ";pwd=""])
oQue =obj.Newobject("Запрос")

  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       
    Файл.ЗакрытьФайл()   

oRes = oQue.Выполнить().Выгрузить()

        For Each oRow In oRes
            uid= This.obj.String(oRow.Ссылка.УникальныйИдентификатор())

        endfor