Как через .NET коннектор удалить записи?

[Jab Straight]

Наш софт общается с Акзаптой через .NET коннектор.
Не совсем напрямую - то есть есть библиотека, предоставляющая доступ почти ко всем методам интерфейса AxaptaRecord, а я уже зову эти методы. Если мне нужно что-то чего нет в библиотеке, эти вызовы добавят.

Нужно по номеру найти SO, затем удалить все его детали.

Спасибо!

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

Если имеется в виду, что все это "добро" работает через Axapta ComConnector (Business Connector), то есть несколько вариантов.

1) У объектов интрефейса Axapta ComConnector есть метод Call() который вызывает методы соответствующих объектов. Раз есть ссылка на объект интерфейса IAxaptaRecord, то в его методе Call() надо просто вызвать метод Delete.

Правда, предварительно придется организовать перебор записей через метод ExecuteStmt(). Либо объекта IAxaptaRecord, либо объекта IAxapta

2) В методе IAxapta::ExecuteStmt() можно указывать не только команды select, но и команды delete_from. Т.е. вполне можно одной командой удалить все записи, удовлетворяющие определенному условию.

3) Наконец, можно в самой Axapta сделать статический метод, который будет выполнять нужные действия и вызывать этот метод через IAxapta::CallStaticClassMethod() или IAxapta::CallStaticRecordMethod() в зависимости от того, к чему "прицеплен" статический метод.

[Jab Straight]

.NET и COM коннекторы почти идентичны в плане API, мы ходим через .нет.
Ваш 2) мне нравится больше всего, спасибо!

3) не пройдет потому что это должно работать в любой инсталляции, мы не владеем Акзаптой а пристраиваемся к ней сбоку.

А вот как организовать 1) я не совсем представляю, что, просто найти нужные записи и удалять в цикле пока не вылезет исключение? Вроде метод Found не отражает удаление, хотя я могу и ошибаться?

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

Цитата:

Сообщение от Jab Straight

А вот как организовать 1) я не совсем представляю, что, просто найти нужные записи и удалять в цикле пока не вылезет исключение? Вроде метод Found не отражает удаление, хотя я могу и ошибаться?

Да это просто аналог такой конструкции

select salesLine where salesLine.SalesId == salesId;
while (salesLine)
{
	salesLine.delete();
	next salesLine;
}

В терминах коннекторов: через метод IAxapta::ExecuteStmt() получаем объект IAxaptaRecord(). Метод IAxaptaRecord::Found() определяет условие выхода из цикла, а переход к следующей записи выборки осуществляется через метод IAxaptaRecord::next().

Собственно в Help это все подробно описано. Вот несколько подправленный пример из Help

Example (Visual Basic)

PHP код:

Dim Axapta As Object

Dim MyRecord As Object

Set Axapta = CreateObject("AxaptaCOMConnector.Axapta")
Axapta.Logon

‘ create an Axapta record

Set MyRecord = Axapta.CreateRecord("MyTable")

‘ select a record

MyRecord.ExecuteStmt "select * from %1 where %1.Name == ‘MyName’"

While MyRecord.Found

  MyRecord.Call("Delete")

  ‘ get the next record
  MyRecord.Next

Wend 


[Jab Straight]

Еще вопрос: чтобы обновить существующий SO, я нахожу его вызовом метода Find со вторым параметром "истина". А вот сохранять изменения нужно вызовом Save или Update?

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

Я не знаю, что такое метод save(). Видимо, это какой-то специфический метод NET-коннектора. Поэтому могу только дать совет общего плана.

Идея коннекторов заключается в том, что Вы работаете в собственной среде программирования, но так, как будто Вы работаетет в среде Axapta. Можно сказать, что это некий аналог подключения по ADO или ODBC к внешней базе.

Поэтому, если у Вас стоит задача выполнить некую модификацию в Axapta, то и решать эту задачу надо средствами самой Axapta. А потом просто "перевести" этот код в синтаксис коннекторов.

Как бы Вы решали задачу модификации в среде Axapta? Ну, очевидно, как-то так:

myTab = MyTab::find(myTabId, true);
if (myTab)
{
	myTab.field1 = "Новое значение";
	myTab.update();
}

Значит, именно так и надо решать эту же задачу через коннектор. С поправкой на соответствующие команды и функции.

Example (Visual Basic)

PHP код:

Dim Axapta As Object 

Dim MyRecord As Object 

Set Axapta = CreateObject("AxaptaCOMConnector.Axapta") 
Axapta.Logon 

‘ create an Axapta record 

Set MyRecord = Axapta.CallStaticRecordMethod("MyTable","Find",MyTabId,TRUE) 

If MyRecord.Found Then

‘ set fields of record
  MyRecord.Field("Field1") = "Новое значение"

‘ update the record
  MyRecord.Update

End If 


[Jab Straight]

Как бы я решал это в среде Акзапты - представления не имею и не хочу, я не X++ разработчик, среды у меня нет и не надо.

А за VB код спасибо! Теперь все ясно.