Программное завершение работы Navision

[luc]

Можно ли программно завершить работу MS Navision изнутри?
Если кто сталкивался с этим, подскажите.

[Kirvisniemi]

4-ку можно. Может быть можно и более ранние версии - не пробовал.
Механизм очень простой - неконтролируемое переполнение стека. Если использовать правильно - вещь вполне безопасная.

Код прилагаю

[Control]

Цитата:

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

4-ку можно. Может быть можно и более ранние версии - не пробовал.
Механизм очень простой - неконтролируемое переполнение стека. Если использовать правильно - вещь вполне безопасная.

Код прилагаю

А в 5-рке не работает, я правильно понимаю ?

[Fordewind]

Только что придумал и протестировал (как грамотно убить себя или Мюнхаузен навегда):

1. Создаем батник и кладем его например в корень диска С (например, С:\test.bat)
2. В батнике пишем TASKKILL /IM finsql.exe
3. В нужном месте в Nav создаем переменную BATnik типа Automation 'Microsoft Shell Controls And Automation'.Shell
4. Пишем код:
CREATE(BATnik);
BATnik.Open('c:\test.bat');

Вышибает на раз. Если, конечно, у вас не открыто окно из-за которого "...приложение не может быть закрыто". Хотя для этого можно попробовать форсированный метод.
Остается вопрос сколько finsql убьет этот батник. (полагаю, что все, которые найдет)

А вобще, можно не извращаться а написать так :

SHELL('TASKKILL /IM finsql.exe');

Собственно все. Делает точно то же что и вышеуказанные махинации

[Hed]

Только возникает проблема, когда открыто несколько клиентов Navision и надо закрыть тот, в котором этот код вызван.

При помощи глюка, закрыть Navision всегда можно. И для каждой версии есть свой набор глюков

[Kirvisniemi]

Придумал еще один способ:

//wndHost :'Windows Script Host Object Model'.WshShell
CREATE(wndHost);
wndHost.SendKeys('%{F4}');

[Lrundom]

Цитата:

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

Придумал еще один способ:

//wndHost :'Windows Script Host Object Model'.WshShell
CREATE(wndHost);
wndHost.SendKeys('%{F4}');

А каким образом использую данный метод заблокировать компьютер? Ну например, программно вызвать нажатие Wid+L?

[Dadakhan]

Пожалуй найден еще один способ закрытия Navision.

Создаете новую форму с названием closenav. Ставите свойство MaximizedOnOpen = Да, и код на
Form - OnOpenForm()
SHELL (text1,'/F /FI "WINDOWTITLE eq ' + COMPANYNAME + ' - Microsoft Dynamics NAV - [closenav]"');

, где text1 путь к папке system32\, чтобы нав не задавал лишних вопросов.

[Dadakhan]

Цитата:

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

Пожалуй найден еще один способ закрытия Navision.

Создаете новую форму с названием closenav. Ставите свойство MaximizedOnOpen = Да, и код на
Form - OnOpenForm()
SHELL (text1,'/F /FI "WINDOWTITLE eq ' + COMPANYNAME + ' - Microsoft Dynamics NAV - [closenav]"');

, где text1 путь к папке system32\, чтобы нав не задавал лишних вопросов.

поправка
, где text1 путь к папке system32\taskkill.exe

[DA_NEAL]

tyrex в очередной раз меня удивил .

Тока по F4 закрывается если нет модальных окон а вот с переполнением в любом случае .

[Kirvisniemi]

Ну хорошо, хотите с модальными окнами - пожалуйста :-)

CREATE(wndHost);
FOR i:=1 to 100 DO
   wndHost.SendKeys('{ESC}');
wndHost.SendKeys('%{F4}');

[DA_NEAL]

ну ето по любому респект... хотя и сам уже эксперементирую с этой штукой. В том числе запускаю менюшки программно .

[bird_imported]

Всем привет, Лорду одназначно респект.
Хочу предложить еще один вариант - писал его года два назад для той же цели.
Это маленькая библиотечка с одним единственным методом "CloseApp"
У метода два параметра:

1. Текст, отображаемый пользователю при завершении приложения
2. Выводить пользователю сообщение или нет

Чтобы использовать его в Nav нужно:

1. зарегистрировать библиотеку в системе
2. добавить переменную типа Automation 'NewLineOCXs'.Class1
3. добавить в нужное место стандартный код -

CREATE(имя_переменной);
имя_переменной.CloseApp(Хватит работать!',TRUE);

[e-statik]

Немного не в тему, но зачем переменная №2 ?
Ведь достаточно в библиотеке чиркануть что-то вроде IF MessageStr <> '' Then ...

[bird_imported]

Цитата:

Сообщение от e-statik

Немного не в тему, но зачем переменная №2 ?
Ведь достаточно в библиотеке чиркануть что-то вроде IF MessageStr <> '' Then ...

Да случаи разные бывают
Например, чтобы вывести пустое сообщение
А еще текст сообщения можно зашить в константе, с ML и делать:

имя_переменной.CloseApp(Text50000, выражение_boolean);

Надеюсь, что синтаксис функции не слишком напрягает и замечание не принципиальное?

[Kirvisniemi]

Все прекрасно работает

[Control]

Вы знаете, всё же не работает. Ошибку выдаёт о переполнении стека, но NAV не закрывает.

PS 5.0 SP1

[DA_NEAL]

Цитата:

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

Вы знаете, всё же не работает. Ошибку выдаёт о переполнении стека, но NAV не закрывает.

PS 5.0 SP1

Подтверждаю для 5.0 SP1 - 1 способ

[Kirvisniemi]

У меня нет под рукой 5.0 SP1.
Будем думать как решить вопрос

[DA_NEAL]

Выход из Nav 5.0


Form - OnModifyRecord() : Boolean
CurrForm.UPDATE;

При модификации записи в форме - вылет.