23.12.2007, 14:52 | #1 |
1C
|
Получение структуры таблиц... через AxaptaCOMConnector
Код: Axapta = Новый COMОбъект("AxaptaCOMConnector.Axapta"); Axapta.Logon("Admin"); Rec = Axapta.CreateRecord("CustTable"); Rec.ExecuteStmt("select CustTable"); Пока Rec.found() Цикл Сообщить("" + Rec.Field("RecID") + "::" + Rec.Field("Name")); КонецЦикла; AxaptaDic = Axapta.CreateObject("Dictionary"); TblCnt = AxaptaDic.Call("TableCnt"); Для i = 1 По TblCnt Цикл TblID = AxaptaDic.Call("tableCnt2Id", i); DicTbl = Axapta.CreateObject("DictTable", TblID); Сообщить("" + TblID + Символы.Таб + "::" + DicTbl.Call("Name")); FldCnt = DicTbl.Call("fieldCnt"); Для ii = 1 По FldCnt Цикл FldID = DicTbl.Call("fieldCnt2Id", ii); DicFld = Axapta.CreateObject("DictField", FldID); Сообщить("" + Символы.Таб + FldID + Символы.Таб + "::" + DicFld.Call("Name")); КонецЦикла; Прервать; КонецЦикла; подскажите, плз, какие там параметры... |
|