Еще вопрос по AxaptaCOMConnector

[Dolter]

Вот рабочий кусок кода:

AxaptaQuery = Axapta.CreateObject("Query");
	AxaptaDataSource = AxaptaQuery.Call("AddDataSource", 77);
	AxaptaQueryRun = Axapta.CreateObject("QueryRun", AxaptaQuery);
	
	Пока AxaptaQueryRun.Call("Next") Цикл
		Buffer = AxaptaQueryRun.Call("GetNo", 1);
		Сообщить("1 -- " + Buffer.field("RecID") + "::" + Buffer.field("Name"));
	КонецЦикла;

т.е. записи в таблице есть

а вот этот:

	axaptaCustTable = Axapta.CreateRecord("CustTable");
    axaptaCustTable.ExecuteStmt("select * CustTable");
 
    Пока axaptaCustTable.found() Цикл
		Сообщить("0 -- " + axaptaCustTable.field("RecID") + "::" + axaptaCustTable.field("Name"));
	КонецЦикла;

нифига не выводит... а я вообще хотел туда запросы с джоинами "засовывать"...
почему так есть и как это решить?

[Dolter]

в таком варианте:

    axaptaCustTable.ExecuteStmt("select * from %1 where %1.Name == 'CustTable'");

тоже не выдает ничего...

[glibs]

А есть клиент, у которого название "CustTable"?

[Dolter]

Цитата:

Сообщение от glibs

А есть клиент, у которого название "CustTable"?

упс... а я так понял, что мы передаем именно имя таблицы... я вообще все записи хочу перебрать...

вообще по идее хочу типа как SQL запросами пользоваться для получения данных через КОМ-коннектор, а не вызовом методов таблиц

[Dolter]

вот, посматриваю в сторону SQLBuilderSelectExpression - только никак понять не могу, как он работает :-)

[Dolter]

да, glibs, я ступил с параметрами
а как из нескольких таблиц выбрать?

и еще, метод Found не переводит на следующую запись выборки... а примеров как сделать не нашел...

[Dolter]

О!

	axaptaCustTable = Axapta.CreateRecord("CustTable");
    axaptaCustTable.ExecuteStmt("select * from %1");
    //axaptaCustTable.ExecuteStmt("select *");
	
	 axaptaCustTable.found() 
		();
		
		("0 -- " + axaptaCustTable.field("RecID") + "::" + axaptaCustTable.field("Name"));
		axaptaCustTable.next();
	;

сработало...

только вот теперь разобраться как из нескольких таблиц вытянуть данные, соединив их...

[glibs]

У меня не получилось . Я пробовал рыть примерно в таком направлении. Дальше рыть нет времени...

axaptaCustTable = Axapta.CreateRecord("CustTable");
axaptaCustTrans = Axapta.CreateRecord("CustTrans");
axaptaCustTable.ExecuteStmt("select * from %1 join %2 where %1.SalesId == %2.SalesId"), axaptaCustTable, axaptaCustTrans;

Если хочешь — можешь поискать информацию в google. Авось повезет.

[Dolter]

Цитата:

Сообщение от glibs

У меня не получилось . Я пробовал рыть примерно в таком направлении. Дальше рыть нет времени...

axaptaCustTable = Axapta.CreateRecord("CustTable");
axaptaCustTrans = Axapta.CreateRecord("CustTrans");
axaptaCustTable.ExecuteStmt("select * from %1 join %2 where %1.SalesId == %2.SalesId"), axaptaCustTable, axaptaCustTrans;

Если хочешь — можешь поискать информацию в google. Авось повезет.

в этом направлении и я попытался... и тоже не получилось...
в гугле, как и в прочих поисковиках, пусто

[glibs]

Вот еще взгляни. Может поможет.

The statement must be an Axapta X++ statement. A valid a statement could be: select * from %1 where %2.Name == ‘Axapta’. This statement requires two Axapta records, one for %1 (record1) and one for %2 (record2). The %-signs are automatically substituted with the corresponding record names.

На сегодня я точно пасс.

А написать класс, который будет возвращать необходимые данные, нет никакой возможности?

[Dolter]

Цитата:

Сообщение от glibs

The statement must be an Axapta X++ statement. A valid a statement could be: select * from %1 where %2.Name == ‘Axapta’. This statement requires two Axapta records, one for %1 (record1) and one for %2 (record2). The %-signs are automatically substituted with the corresponding record names.

попробую... хотя это именно то, что выше...

Цитата:

Сообщение от glibs

А написать класс, который будет возвращать необходимые данные, нет никакой возможности?

можно попробовать...

СПАСИБО

[glibs]

Вот так сработало. Вроде.

Sub testBatch()
On Error GoTo testBatch_error
Dim axapta As AxaptaCOMConnector.axapta
Dim cac As COMAdminCatalog
Dim axR1 As IAxaptaRecord
Dim axR2 As IAxaptaRecord
Dim res As Object
Dim i As Integer

Set axapta = New AxaptaCOMConnector.axapta
axapta.Logon "glibs", "", "", "AxGleb-30-ru"

Set axR1 = axapta.CreateRecord("CustTable")
Set axR2 = axapta.CreateRecord("CustGroup")
axapta.ExecuteStmt "SELECT * FROM %1 JOIN %2 WHERE %1.CustGroup == %2.CustGroup && %2.CustGroup == 'ХХХ'", axR1, axR2
While axR1.Found
MsgBox CStr(axR1.Field("Name"))
axR1.Next
Wend

Set cac = New COMAdminCatalog
cac.ShutdownApplication ("Navision Axapta Business Connector")

Set cac = Nothing
Set axapta = Nothing

testBatch_exit:
Exit Sub
testBatch_error:
MsgBox Err.Description
GoTo testBatch_exit
End Sub

[propeller]

Пробую

  axaptaCustInvoiceJour.ExecuteStmt("select firstonly %1 where %1.InvoiceDate == %2",axaptaCustInvoiceJour,transdate);

Компилируется, но при запуске выдает ошибку:
Ошибка времени выполнения: Метод был вызван с недопустимым числом параметров.
Как в аксапте работать с такой конструкцией?

[Russland]

Попробуйте так:

recId = "38182";
CustInvoiceJour = ax.CreateRecord("CustInvoiceJour");
	CustInvoiceJour.ExecuteStmt(
				"select firstonly %1 where %1.RecId == "+recId);

т.е. не используя параметры вообще
все параметры внесите в строку

[propeller]

Цитата:

Сообщение от Russland

Попробуйте так:
все параметры внесите в строку

Для строковых типов все понятно это сработает, но у меня тип данных - дата. Мне приходится его переделывать в строковый но тогда мой запрос ничего не возвращает из за того что параметр должен быть типом дата а не строка.
Как можно передать дату в запрос через коннектор?

[kashperuk]

Цитата:

Сообщение от propeller

Для строковых типов все понятно это сработает, но у меня тип данных - дата. Мне приходится его переделывать в строковый но тогда мой запрос ничего не возвращает из за того что параметр должен быть типом дата а не строка.
Как можно передать дату в запрос через коннектор?

Надо использовать специфический формат просто для даты:
dd\mm\yyyy

[Владимир Максимов]

В справке по методу ExecuteStmt() сказано, что параметром может быть только и исключительно Record (до 6 штук). Константы (значения) параметрами быть не могут. Они должны явно прописываться в выполняемой строке как и предложил Russland

[kashperuk]

Альтернативно, можно включить в выражение функцию, аля:

string.Format("%1.MyDate == str2date('{0}/{1}/{2}', 123) ", dateTime.Day, dateTime.Month, dateTime.Year);

[Russland]

Странно

CustInvoiceJour.ExecuteStmt(
"select firstonly %1 where %1.DueDate == 24\10\2005");

сработало. Возможно в вашем случае надо было Found"ом установиться на первую запись.

Ну да ладно
можно воспользоваться date2StrXpp() класса Global которая проконвертит дату в string

	ax.CallStaticClassMethod("Global", "date2StrXpp", myDate );