Automation и EVENT

[Predatore]

Доброго времени суток товарищи!
Задался я вопросом возможностей своих Automation, попробовал сделать что-то простое, получилось. А теперь есть желание углубиться в вопрос. Вроде как я где-то читал, что NAV может получать события от Automation. Так же, если экспортировать в текст какой-нибудь кодеюнит, в котором есть Automation, скажем 'Microsoft Excel 12.0 Object Library'.Application, то мы увидим там много различных EVENT'ов. А так же, если попытаться удалить эту переменную, то выдастся предупреждение, что с этой переменной связанны триггеры событий и они тоже будут удалены.
Так вот собственно вопрос: как работать с событиями от Automation?
И ещё сопутствующий вопрос: как эти события создавать? Видимо они создаются в самом Automation, в таком случае вопрос скорее всего уже выходит за пределы обсуждения Нава и его нужно задавать на других форумах, но всё же, если кто может поделиться рецептом здесь, то почему бы и нет?

[Fly]

В C/Al Globals/Locas создаете Automation, потом заходите в свойства этой переменной и меняете значение свойства WithEvents. Смотри на появившиеся триггеры. Это и есть события

[Predatore]

Цитата:

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

В C/Al Globals/Locas создаете Automation, потом заходите в свойства этой переменной и меняете значение свойства WithEvents. Смотри на появившиеся триггеры. Это и есть события

Как всё просто оказалось. А посмотреть свойства переменной я не догадался. Спасибо большое!

[smoyk]

Подскажите ламеру, как этими событиями пользоваться?
К примеру надо дождаться закрытия книги и вернуть управление в нав (что то сделать).
Нашел событие excel::WorkbookBeforeClose(Wb : Automation "'Microsoft Excel 14.0 Object Library'.Workbook";VAR Cancel : Boolean) у переменной апликэйшн excel. Что с ним дальше делать?)

[InTacto]

По идее у аутомейшена есть св-во withevents и оно ,при выставлении в true, позволяет увидеть события (появяться новые тригеры), которые доступны в библиотеке.
У меня в 12 версии библиотеки (excel 2007) такого св-ва нет. Предположу, что нужна библиотека (возможно самописная) со своим событиями, которая будет ловить события excel и они будут видны в Наве.

[smoyk]

Цитата:

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

По идее у аутомейшена есть св-во withevents и оно ,при выставлении в true, позволяет увидеть события (появяться новые тригеры), которые доступны в библиотеке.
У меня в 12 версии библиотеки (excel 2007) такого св-ва нет. Предположу, что нужна библиотека (возможно самописная) со своим событиями, которая будет ловить события excel и они будут видны в Наве.

У меня такое свойство есть, и полсе выставления в истину появились тригеры, в том числе и тот, что я привел.
Что дальше с ними делать? Мессаж, записанный в excel::WorkbookBeforeClose(Wb : Automation "'Microsoft Excel 14.0 Object Library'.Workbook";VAR Cancel : Boolean) не появляется после закрытия книги. Что то надо еще сделать?

[InTacto]

а как вы книгу открывали?

[smoyk]

excel.Workbooks._Open(FileName);

[InTacto]

Может вы не тот экземпляр приложения закрываете.
У меня тоже появились эвенты перенес переменый из локальных в глобальные />/>/>

Name	DataType	Subtype	Length
xlApp2	Automation	'Microsoft Excel 12.0 Object Library'.Application	
xlWrkbook2	Automation	'Microsoft Excel 12.0 Object Library'.Workbook	
a	Automation	'Microsoft Excel 12.0 Object Library'.Range	


// код кнопки открытия файла
CLEAR(xlApp2);
CREATE(xlApp2,TRUE);
xlApp2.Visible := TRUE;

//xlWrkbook2 := xlApp2.Workbooks.Add;
xlWrkbook2 := xlApp2.Workbooks.Open('Путь до файла');
a := xlApp2.ActiveCell;


//код эвента
xlApp2::WorkbookBeforeClose(Wb : Automation "'Microsoft Excel 12.0 Object Library'.Workbook";VAR Cancel : Boolean)
MESSAGE('1');

Когда закрываю книгу или приложения, то выводится "1"
Пробовал создавать книгу и на эвенте создания выводил название книги - тоже робит.

[InTacto]

Ах да.
Эвенты включены только для переменной xlApp2

[smoyk]

Вот как... работает так просто значит... У меня один экземпляр, и один ексель открыт. И сообщения не появляется. Может потому, что весь код в отдельном кодюните... Ну ладно, буду думать)

[smoyk]

Точно, все дело в том, что работа с екселем была вынесена в кодюнит. Перенес открытие екселя и события в форму, все заработало. Спасибо InTacto, натолкнул на мысль)

[smoyk]

Есть еще такая проблема, при отлове события excel::WorkbookBeforeClose(Wb : Automation "'Microsoft Excel 14.0 Object Library'.Workbook";VAR Cancel : Boolean) я после нужных мне манипуляций закрываю книгу нормально Wb.Close(FALSE), но как закрыть саму программу екселя, которая остается висеть? excel.Quit не помогает.

Все работает, если закрывать ексель не по крестику в окне, а через alt+F4, тогда и событие отрабатывает, и ексель закрывается... Но это не очень хорошо)

[InTacto]

я бы еще предложил делать clear для excel и wb, т.к. создание объектов происходит по команде create, а не при открытии книги.

[smoyk]

Цитата:

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

я бы еще предложил делать clear для excel и wb, т.к. создание объектов происходит по команде create, а не при открытии книги.

Ну Wb локальная, очиститься после выхода из процедуры я думаю... а для excel я делаю очистку. Не помогает.

[InTacto]

UserControl(TRUE) - а эту инструкцию делаете?

[smoyk]

Нет, не делал... Сейчас попробовал поставить ее после открытия екселя, не помогло. Что она вобще делает?) Разницы не заметил что с ней, что без нее)

[zuzka]

На сколько помню usercontrol передает управление приложением пользователю. Т.е. не NAV будет дальше работать с книгой Excell а пользователь, и закрывать тоже))

[smoyk]

Нифига этот usercontrol не работает) Делал так

  IF NOT CREATE(excel,TRUE) THEN
    ERROR(Text100);
  excel.Workbooks.Open(TempName);
  book := excel.ActiveWorkbook;
  sheet := book.Worksheets.Item(1);
  sheet.Activate;
  excel.Visible(TRUE);
  excel.UserControl(TRUE);
  CLEAR(book);
  CLEAR(sheet);

Excel как не закрывался по крестику, так и не закрывается.... более того, после отработки кода и ексель не появляется на переднем плане, что должно происходить при вызове usercontrol как я понял... По сути же свойство на работу екселя никак не повлияло, без него так же все работало.

[zuzka]

XlApp	Automation	'Microsoft Excel 14.0 Object Library'.Application	
...
...
XlApp.Visible(TRUE);
XlApp.UserControl(TRUE);
CLEAR(XlApp);

и все отлично отрабатывает.