Показать сообщение отдельно
Старый 23.12.2007, 14:52   #1  
Dolter is offline
Dolter
1C
1C
 
83 / 18 (1) ++
Регистрация: 18.11.2005
Получение структуры таблиц... через 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"));
		КонецЦикла;
		
		Прервать;
	КонецЦикла;
ругается на DicFld = Axapta.CreateObject("DictField", FldID);
подскажите, плз, какие там параметры...