Отправляет email-рассылки с помощью сервиса Sendsay

Navision - советы и секреты

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Идеи бизнеса" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Апрель 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Neubitiy

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

Еще быстрее! А также использование функций WinAPI на примере работы с Microsoft Excel.


Доброе утро!

Обратной связи с каждым выпуском становится все больше, и это радует :)

...по поводу подмены SourceTable – лучше использовать не CopyFilters, а Copy – так еще и ключик можно менять на  форме
(Александр Денискин).

Добавил :-) Замечание относится к статье в рассылке и на сайте «Как обмануть NAV (подменяем источник данных в форме)».

Юзеры Navision часто мучаются при вставке из NAV в Excel, удаляя пробелы между разрядами. Продвинутые даже используют Ctrl+H (Замена).
Это полумера! Чтобы они съедались при вставке, нужно в меню Windows «Пуск» – «Панель управления» – «Язык и региональные стандарты», закладка «Региональные параметры» – кнопка «Настройка», в поле «Разделитель групп разрядов» вместо пробела, который стоит по умолчанию (его видно, если выделить) поставить другой пробел (просто нажав клавишу «Пробел»). Видимо, по умолчанию в Windows стоит пробел с другим кодом символа, что-то вроде Chr(255)
(Данила Рожков).

Обратно добавил :-) Совет пошел в «СоветЪ».

А тема сегодняшнего выпуска родилась, как у нас водится, из предыдущих. Как-то я задавал вопрос о том, что делать с невидимыми экселями, которые остаются висеть в памяти из-за ошибок. Тимур Дадаханов (timur-dadakhanov@rambler.ru) прислал свое решение этого и сразу целого вороха других проблемсов. Ему слово :-)

К сожалению, с самого начала я не заметил в вашей статье ключевую фразу «При возникновении ошибки этот невидимый эксель...». Поэтому, когда запускать эту функцию по закрытию всех невидимых экселей, я не знаю. может и не нужно вовсе. Ну, например, при выгрузки данных в шаблон Excel, ее можно применить, если предыдущая выгрузка была отменена пользователем. тогда при повторном запуске отчета, функция определит «дохлый» excel и закроет его, и новый отчет выгрузится без ошибок. В ней используется техника WinAPI. С помощью этой техники можно с навиженом, да и с любым приложением делать что угодно. Единственный минус – должен сначала загрузиться Excel, а это на первую загрузку Excel в системе требует времени. 
    PROCEDURE CloseDeadExcel();
    VAR
      objScript : Automation :'Microsoft Script Control 1.0'.ScriptControl";
      objShell  : Automation :'Windows Script Host Object Model'.WshShell";
      xlApp : Automation :'Microsoft Excel 11.0 Object Library'.Application";
      txtRegistryKey : Text[100];
      txtRegistryType : Text[30];   
      txtRegistryValue : Text[1];   
      txtRegistryNewValue : Text[1];
   
    BEGIN
      CREATE(objScript);
      CREATE(objShell);
      IF NOT CREATE(xlApp) THEN
        ERROR('Microsoft Excel не установлен!');

      //Открываем доступ к Excel макросам
      txtRegistryKey := 'HKEY_CURRENT_USER\Software\Microsoft\Office\' + xlApp.Version + '\Excel\Security\AccessVBOM';
      CLEAR(xlApp);
      txtRegistryType := 'REG_DWORD';
      txtRegistryValue := objShell.RegRead(txtRegistryKey);
      txtRegistryNewValue :='1';
      objShell.RegWrite(txtRegistryKey,txtRegistryNewValue, txtRegistryType);

      //Добавляем макросы в Excel
      objScript.Language('VBScript');
      objScript.AddCode('on error resume next');
      objScript.AddCode('set Application=createobject("Excel.Application")');
      objScript.AddCode('set Workbook=Application.Workbooks.Add');
      objScript.AddCode('Set Module = Workbook.VBProject.VBComponents.Add(1)');
      objScript.AddCode('Module.CodeModule.AddFromString ("Private Declare Function EnumWindows ' +
                     'Lib ""user32"" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long")');
      objScript.AddCode('Module.CodeModule.AddFromString ("Private Declare Function GetClassNameA Lib ""user32"" ' +
                     '(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long")');
      objScript.AddCode('Module.CodeModule.AddFromString ("Private Declare Function IsWindowVisible Lib ' +
                     ' ""user32"" (ByVal hwnd As Long) As Boolean")');
      objScript.AddCode('Module.CodeModule.AddFromString ("Private Declare Function ' +
                     'ExitProcess Lib ""kernel32"" (ByVal ExitCode As Long) As Long")');
      objScript.AddCode('Module.CodeModule.AddFromString ("Private Declare Function TerminateProcess Lib ""kernel32"" ' +
                     ' (ByVal hProcess As Long, ByVal ExitCode As Long) As Long")');
      objScript.AddCode('Module.CodeModule.AddFromString ("Private Declare Function GetWindowThreadProcessId Lib ""user32"" ' +
                     '(ByVal hwnd As Long, lpdwProcessId As Long) As Long")');
      objScript.AddCode('Module.CodeModule.AddFromString ("Private Declare Function OpenProcess Lib ""kernel32"" ' +
                     '(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long")');
      objScript.AddCode('Module.CodeModule.AddFromString ("Function WindowProc(ByVal hwnds As Long, ByVal lP As Long) As Boolean' +
                     '" & chr(13) & "on error resume next" & chr(13) & ' +
                     '" Dim mystr As String" & chr(13) & "mystr = Space(7)" & chr(13) & ' +
                     '" GetClassNameA hwnds, mystr, 7" & chr(13) & "If Left(mystr, 6) = ""XLMAIN"" Then" & chr(13) & ' +
                     '" If IsWindowVisible(hwnds) <> 1 Then " & chr(13) & ' +
                     '" if hwnds<>Application.hwnd then " & chr(13) & ' +
                     '" GetWindowThreadProcessID hwnds,ddd" & chr(13) & ' +
                     '" terminateprocess openprocess(2035711,0,ddd),0" & chr(13) & ' +
                     '" end if" & chr(13) & " end if" &  chr(13) &' +
                     '" End If" & CHr(13) & "WindowProc = True" & chr(13) & "End Function")');
      objScript.AddCode('Module.CodeModule.AddFromString ("public sub ff" & Chr(13) & ' +
                     '" EnumWindows AddressOf WindowProc, 0" & Chr(13) & ' +
                     '"end sub")');

      //Выполняем макрос и выходим
      objScript.AddCode('Application.Run("ff")');
      objScript.AddCode('Workbook.saved=true');
      objScript.AddCode('Application.Quit');
      objScript.Reset;
      CLEAR(objScript);

      //Закрываем доступ к Excel макросам
      objShell.RegWrite(txtRegistryKey,txtRegistryValue, txtRegistryType);
      CLEAR(objShell);
    END;

Следующий кусочек, файл-скрипт VBS, который устанавливает у первого найденного Excel свойство Visible=TRUE. Таким образом, можно отобразить все невидимые эксели, вручную запуская этот скрипт. Вдруг там что-то нужное :) 

ShowFirstExcel.vbs

Set Ex = GetObject(, "Excel.Application")
Ex.Visible = True

И, наконец, самый сладкий кусочек, присланный Тимуром - это действительно ТУРБО-СТИЛЬ!!! Приведу только кусочек кода, а полный вариант отчета с использованием технологии, можно взять здесь. 

OnAfterGetRecord=
BEGIN
  //Индикация
  intIndicatorCounter += 1;
  dlgIndicator.UPDATE(1, ROUND((intIndicatorCounter * 9999) / intIndicatorTotal, 1));

  xlApp.Range('A'+ FORMAT(intIndicatorCounter)).Value:= FORMAT("G/L Entry"."Entry No.")       + tab +
                                                        FORMAT("G/L Entry"."G/L Account No.") + tab +
                                                        FORMAT("G/L Entry"."Posting Date")    + tab +
                                                        "G/L Entry"."Document No."            + tab +
                                                        "G/L Entry".Description               + tab +
                                                        "G/L Entry"."User ID";
   //!!! Внимание, МАГИЯ!!!
   xlApp.Range('A' + FORMAT(intIndicatorCounter)).TextToColumns(xlApp.Range('A' + FORMAT(intIndicatorCounter)), 1, 1, FALSE, TRUE);
END;
Navision взлетает до небес, со скоростью примерно 1000 строк/сек :-)

На сегодня все. До свидания :-)


P.S. Вам нравится наша рассылка? Тогда порекомендуйте ее своим коллегам, знакомым и друзьям, занятым в сфере NAV :-) Признание – самая лучшая благодарность :-)

С наилучшими пожеланиями,
Андрей Стрельников.

Группа «Технологии как Искусство».
Разработки в сфере Navision. Скоростные и суперскоростные оптимизации, системная интеграция.

www: http://naviart.ru
e-mail: likeart@mail.ru.

-------
Что такое главное?
В избранное