MakAvr17
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору В общем задача такая - сформировать иерархический xml по приходным документам. При этом нежелательно менять исходный код конфигурации, поэтому начал делать через v81.ComConnector. Сделал объект, сформировал запрос, но ОбходРезультата не дает менять при работе с com, как сделать обход ПоГруппировкамСИерархией при работе не из 1С? вот код: Obj1c:=CreateOleObject('v81.ComConnector'); Obj1c:=Obj1c.connect('file='''+sDirectoryEdit.Text+''';usr='''+sEditUser.Text+''';pwd='''+sEditPassword.Text+''''); // _1cObj:=Obj1c.ОбходРезультатаЗапрса.ПоГруппировкамСИерархией; Qstr:='ВЫБРАТЬ ПриходнаяНакладнаяТовары.Ссылка.Номер,'; Qstr:= QStr+'ПриходнаяНакладнаяТовары.Ссылка.НомерВходящегоДокумента,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Ссылка.ДатаВходящегоДокумента,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Ссылка.Контрагент,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Ссылка.Контрагент.НаименованиеПолное как НаименованиеПолное,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Ссылка.Контрагент.Код как КодКонтрАгента,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Ссылка.Контрагент.ИНН как ИНН,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Ссылка.Контрагент.КПП как КПП,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Номенклатура.Код как КодНоменклатуры,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Номенклатура,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Номенклатура.Артикул АртикулНоменклатуры,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Количество,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Цена,'; Qstr:= Qstr+'ПриходнаяНакладнаяТовары.Сумма,'; Qstr:= Qstr+'Штрихкоды.Штрихкод'; Qstr:= Qstr+' ИЗ Документ.ПриходнаяНакладная.Товары КАК ПриходнаяНакладнаяТовары'; Qstr:= Qstr+' ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды'; Qstr:= Qstr+' ПО ПриходнаяНакладнаяТовары.Номенклатура = Штрихкоды.Владелец'; Qstr:= Qstr+' ГДЕ ПриходнаяНакладнаяТовары.Ссылка.ДатаВходящегоДокумента между ДатаВремя('+FormatDateTime('yyyy,m,d',start_date)+') и ДатаВремя('+FormatDateTime('yyyy,m,d',end_date)+')'; Qstr:= Qstr+' итоги максимум(количество),максимум(цена),максимум(сумма) по Ссылка,ПриходнаяНакладнаяТовары.Номенклатура'; //'Выбрать Рег.Штрихкод,Рег.Владелец.Артикул,Рег.Владелец.Наименование,Рег.Владелец.НаименованиеПолное Из РегистрСведений.ШтрихКоды как Рег'; _1cQuery:=Obj1c.NewObject('Запрос',QStr); _1cQueryRez:=_1cQuery.Выполнить; _1cQueryCh:=_1cQueryRez.Выбрать(); Добавлено: Как сделать обход результатов запроса ПоГруппировкамСИерархией через comConnector не из 1с? |