Объявление

Свернуть
Пока нет объявлений.

Неизвестная системная ошибка

Свернуть
X
  • Фильтр
  • Время
  • Показать
  • Сортировать
  • Упорядочить по
Очистить всё
новые сообщения

    Неизвестная системная ошибка

    При проверке пачек с адресами в протоколе после строчек

    "Успешно создан СОМ-объект an_adr2006

    Проверка 1-го документа ИС_СЗВ-4-1...

    №2 [ФИО]: <.....>"

    Выводится сообщение

    "Неизвестная системная ошибка."

    systempatch1_0.exe устанавливался
    ОС Win2003 Server SP2

    Есть какие-нибудь рекомендации?
    Заранее спасибо.

    #2
    Ответ: Неизвестная системная ошибка

    а сама то программа какой версии?

    Комментарий


      #3
      Ответ: Неизвестная системная ошибка

      Пробовали начиная с версии от 14.01.
      Сегодня пробовали версию от 25.01

      Комментарий


        #4
        Ответ: Неизвестная системная ошибка

        сначала ставите последнюю версию, потом патч
        с рекомендациями, изложенными здесь
        https://www.buhsoft.ru/forums/showthread.php?t=6935

        все так и сделали? абсолютно точно?

        Комментарий


          #5
          Ответ: Неизвестная системная ошибка

          Да, все так. Точно.


          !!!!! Сегодня попробовали еще одну вещь.
          Поставили VFP 8.0. Целиком.
          У нас стал работать интерактивный CheckXML.
          Но не работает вызов библиотеки cpsnxml.dll через программный интерфейс (вернее, работает, но при проверке ЗЛ с адресами все та же "неизвестная системная ошибка").
          В чем разница ?!!!
          А нас ведь интересует именно вызов библиотеки - для пакетного прогона файлов из наших программ.

          Комментарий


            #6
            Ответ: Неизвестная системная ошибка

            я запутался что-то
            что такое "интерактивный CheckXML" ?
            "Поставили VFP 8.0. Целиком" Откуда?

            в общем, ничего непонятно.
            Можете описать более подробно и более последовательно?

            Комментарий


              #7
              Ответ: Неизвестная системная ошибка

              Поскольку решили "шаманить" до последнего, то поставили Microsoft Visual FoxPro 8.0 из дистрибутива. Это позволило заставить-таки работать интерактивную версию CheckXML (это Ваш полноценный программный продукт "как есть"). Даже обрадовались. Но рано При вызове функций библиотеки cpsnxml.dll (той же самой, которая лежит в Вашем дистрибутиве), остается все та же системная ошибка. Непонятно, в чем разница. Может, изменился программный интерфейс dll-библиотеки? Хотя с другой стороны, все отлично работает на файлах без адресов. Куда дальше рыть? Очень надо использовать именно в "консольном", пакетном варианте

              Комментарий


                #8
                Ответ: Неизвестная системная ошибка

                ну это уже вам видней. Я ж не знаю, как она там у вас вызывается...

                Комментарий


                  #9
                  Ответ: Неизвестная системная ошибка

                  Вызывается в соответствии с приложенным документом (от Екжанова). Было бы понятно если бы не работало в принципе, но проверка не работает только на адресах. Кроме того имеется в наличии еще два сервера, на которых наш способ вызова работает замечательно. И с адресами. С такой же ОС.

                  Вот примера кода, написанного на VB, для тестирования вызова библиотеки:

                  Declare Function cpsnInitLib Lib "CPSNXML" (hParent As Long, ByVal sBaseDir As String) As Long
                  Declare Function cpsnInitLib2 Lib "CPSNXML" (hParent As Long, ByVal sBaseDir As String, ByVal sKladrDir As String) As Long
                  Declare Function cpsnValidate Lib "CPSNXML" (ByVal sXmlFileName As String, ByRef nError As Long, ByRef nWarning As Long) As Long
                  Declare Function cpsnValidateZ Lib "CPSNXML" (ByVal sXmlFileName As String) As Long
                  Declare Function cpsnGetLogFileName Lib "CPSNXML" (ByVal sXmlFileName As String, ByVal sLogFileName As String, ByVal nLogFileNameLen As Long, ByVal bFullPath As Long) As Long
                  Declare Function cpsnFreeLib Lib "CPSNXML" () As Long



                  Private Sub Command1_Click()

                  Dim file As String
                  Dim err As Long
                  Dim war As Long

                  res = cpsnValidate(txtFile.Text, err, war)
                  MsgBox "res = " + Str(res) + vbCrLf + "Err = " + Str(err) + vbCrLf + "War = " + Str(war)

                  End Sub


                  Private Sub Form_Load()
                  Dim sBaseDir As String
                  Dim sKladr As String
                  Dim res As Long


                  sBaseDir = "C:\\PF\\CheckXML\\"
                  sKladr = "C:\\PF\\CheckXML\\kladr\\"

                  res = cpsnInitLib2(Me.hWnd, sBaseDir, sKladr)

                  MsgBox "Res = " + Str(res)

                  End Sub

                  Private Sub Form_Unload(Cancel As Integer)
                  cpsnFreeLib
                  End Sub

                  Комментарий


                    #10
                    Ответ: Неизвестная системная ошибка

                    ВизуалБейсиком я не очень часто занимаюсь....

                    Комментарий


                      #11
                      Ответ: Неизвестная системная ошибка

                      А на C++ ?


                      Объявление функций:
                      HRESULT (__stdcall *dll_cpsnInitLib) (HWND hParent, LPCTSTR lpszBaseDir);
                      HRESULT (__stdcall *dll_cpsnInitLib2) (HWND hParent, LPCTSTR lpszBaseDir, LPCTSTR lpszKladrDir);
                      HRESULT (__stdcall *dll_cpsnValidate) (LPCTSTR lpszXmlFn, UINT *pnError, UINT *pnWarning);
                      HRESULT (__stdcall *dll_cpsnValidateZ) (LPCTSTR lpszXmlFn);
                      int (__stdcall *dll_cpsnGetLogFileName) (LPCTSTR lpszXmlFileName, LPTSTR lpszLogFileName, int nLogFileNameLen, BOOL bFullPath);
                      HRESULT (__stdcall *dll_cpsnFreeLib) (void);

                      HINSTANCE CPSNXMLdllp;

                      int loadCpsnInitLib()
                      {
                      CPSNXMLdllp = LoadLibrary("CPSNXML.dll");

                      if(CPSNXMLdllp) {
                      dll_cpsnInitLib = (HRESULT(__stdcall *)(HWND, LPCTSTR))GetProcAddress(CPSNXMLdllp, "cpsnInitLib");
                      if (!dll_cpsnInitLib) {
                      return 1;
                      }

                      dll_cpsnInitLib2 = (HRESULT(__stdcall *)(HWND, LPCTSTR, LPCTSTR))GetProcAddress(CPSNXMLdllp, "cpsnInitLib2");
                      if (!dll_cpsnInitLib2) {
                      return 1;
                      }

                      dll_cpsnValidate = (HRESULT(__stdcall *)(LPCTSTR, UINT*, UINT*))GetProcAddress(CPSNXMLdllp, "cpsnValidate");
                      if (!dll_cpsnValidate) {
                      return 1;
                      }

                      dll_cpsnValidateZ = (HRESULT(__stdcall *)(LPCTSTR))GetProcAddress(CPSNXMLdllp, "cpsnValidateZ");
                      if (!dll_cpsnValidateZ) {
                      return 1;
                      }

                      dll_cpsnGetLogFileName = (int(__stdcall *)(LPCTSTR, LPTSTR, int, BOOL))GetProcAddress(CPSNXMLdllp, "cpsnGetLogFileName");
                      if (!dll_cpsnGetLogFileName) {
                      return 1;
                      }

                      dll_cpsnFreeLib = (HRESULT(__stdcall *)(void))GetProcAddress(CPSNXMLdllp, "cpsnFreeLib");
                      if (!dll_cpsnFreeLib) {
                      return 1;
                      }

                      } else {
                      return 1;
                      }
                      return 0;
                      }


                      HRESULT cpsnInitLib(HWND hParent, LPCTSTR lpszBaseDir)
                      {
                      return (*dll_cpsnInitLib)(hParent, lpszBaseDir);
                      }

                      HRESULT cpsnInitLib2(HWND hParent, LPCTSTR lpszBaseDir, LPCTSTR lpszKladrDir)
                      {
                      return (*dll_cpsnInitLib2)(hParent, lpszBaseDir, lpszKladrDir);
                      }


                      HRESULT cpsnValidate(LPCTSTR lpszXmlFn, UINT *pnError, UINT *pnWarning)
                      {
                      return (*dll_cpsnValidate)(lpszXmlFn, pnError, pnWarning);
                      }

                      HRESULT cpsnValidateZ(LPCTSTR lpszXmlFn)
                      {
                      return (*dll_cpsnValidateZ)(lpszXmlFn);
                      }


                      int cpsnGetLogFileName(LPCTSTR lpszXmlFileName, LPTSTR lpszLogFileName, int nLogFileNameLen, BOOL bFullPath)
                      {
                      return (*dll_cpsnGetLogFileName) (lpszXmlFileName, lpszLogFileName, nLogFileNameLen, bFullPath);
                      }


                      HRESULT cpsnFreeLib(void)
                      {
                      HRESULT result;
                      result = (dll_cpsnFreeLib)();
                      FreeLibrary(CPSNXMLdllp);
                      return result;

                      }


                      Использование:




                      message("Load CheckXML base... ");
                      loadCpsnInitLib();
                      result = cpsnInitLib(0, base_dir);
                      if (result != 0) {
                      message("ERROR\n");
                      return 1;
                      }
                      message("OK\n");


                      .....

                      message("Cheking file ");
                      message(szFile);
                      message("... \n");
                      result = cpsnValidate(szFile, &error, &warning);

                      .....

                      cpsnFreeLib();


                      Комментарий


                        #12
                        Ответ: Неизвестная системная ошибка

                        Честно говоря, времени разбираться с вашим кодом катастрофически мало...

                        Комментарий


                          #13
                          Ответ: Неизвестная системная ошибка

                          Тогда, может, дадите свой? Только вызов?

                          Комментарий


                            #14
                            Ответ: Неизвестная системная ошибка

                            Таких полномочий у меня нет...

                            Комментарий


                              #15
                              Ответ: Неизвестная системная ошибка

                              А ошибка есть ((

                              Комментарий

                              реклама

                              Свернуть
                              Обработка...
                              X