Помогите решить проблему в смете! Run-time err: 94

[PRODVi]

Приветствую всех! У меня возникла такая проблема - при экспорте сметы в ексель вылетает Run-Time err 94
Звонил в поддержку мне сказали проблема в офисе, переустановите. Офис переставил - ошибка осталась!
Скрин приложил.

1111111111111111111111111111111111111111.png (192.01 Кб) Просмотров: 10873

[Timur]

Здравствуйте "PRODVi".
1. Укажите версию программы Smeta.ru (все 4 цифры)
2. Прикрепите скриншот после нажатия на кнопочку Debug
3. Прикрепите в формате sob объект или экспортный файл сметы в формате Excel

[PRODVi]

Версия программы 7.0.0.0
Добавлю что все работало прекрасно. Данные проблемы возникли при переходе со статики на динамику (всмысле TCP/IP), хотя может это просто совпадение. Все файлы да и сама программа установлены на этом пк и на нем ничего не трогалось и не удалялось.
Вот вывод при нажатии на Дебаг:

Код: Выделить всё

Public Src As Excel.Worksheet

Private Sub CBPrintMat_Click()
  UpdateButtonRR
End Sub

Private Sub CBRR_Click()
  UpdateButtonRR
End Sub

Sub UpdateButtonRR()
  CBPrintTrud.Enabled = CBRR.Value
  CBPrintMash.Enabled = CBRR.Value
  CBPrintMat.Enabled = CBRR.Value

  On Error GoTo AutoCheck
    'Set src = ActiveWorkbook.Sheets("Source")
    CBPrintPriceInfo.Enabled = CBRR.Value And CBPrintMat.Value And Src.Cells(1, 7) = 0
    Exit Sub
AutoCheck:
  CBPrintPriceInfo.Enabled = CBRR.Value And CBPrintMat.Value

End Sub

Private Sub CommandButton1_Click()
   With Form_Ls_Mtsn

     Application.ScreenUpdating = False

       unit_ls_mtsn.SkipAssignedPopr = .CheckBox10.Value
       unit_ls_mtsn.Prm_IsPrnKodPopr = CheckBox12.Value
       unit_ls_mtsn.Prm_IsPrnPrimPopr = CheckBox11.Value
       unit_ls_mtsn.Prm_PrintPodoic = OBUtv.Value

       'MK 19.01.2007 --->
       unit_ls_mtsn.NewDoc = .OptionButton7.Value Or .OptionButton9.Value            <-- вот эта строчка выделена желтым цветом (вроде указывает что в ней что то не так)
       unit_ls_mtsn.Form1b = .OptionButton9.Value
       'NewDoc = .OptionButton7.Value
       'MK 19.01.2007 <---

       unit_ls_mtsn.Prm_Print_Comment = CheckBox14.Value
       unit_ls_mtsn.Prm_Print_On_LS = CheckBox4.Value
       unit_ls_mtsn.Prm_Print_Cenoobrazovanie = CheckBox16.Value
       unit_ls_mtsn.Prm_AltTab = OptionButton11.Value
       unit_ls_mtsn.Prm_PrintItogVidRab = OBVirRabPrint.Value
       unit_ls_mtsn.Prm_FullEdIzm = .CBFullEdIzm.Value

       unit_ls_mtsn.PrmPrintRR = CBRR.Value
       unit_ls_mtsn.PrmPrintTrud = CBPrintTrud.Value And CBRR.Enabled
       unit_ls_mtsn.PrmPrintMash = CBPrintMash.Value And CBRR.Enabled
       unit_ls_mtsn.PrmPrintMat = CBPrintMat.Value And CBRR.Enabled
       unit_ls_mtsn.PrmPrintPriceInfo = CBPrintPriceInfo.Value And CBRR.Enabled And CBPrintMat.Value

       unit_ls_mtsn.Prm_ColumnAddNumSmeta = CBPrintPosSmeta.Value

       Ls_MTSN DocType, _
              .CheckBox4.Value, _
              .CheckBox3.Value, _
              .OptionButton4.Value, _
              .CheckBox5.Value, _
              .CheckBox1.Value, _
              .CheckBox2.Value, _
              .CheckBox6.Value, _
              .OptionButton6.Value, _
              .CheckBox7.Value, _
              CheckBox8.Value, _
              CheckBox9.Value, _
              OBUtv.Value

     Application.ScreenUpdating = True

     .Hide
   End With
End Sub


Private Sub CommandButton2_Click()
  Form_Ls_Mtsn.Hide
End Sub

Private Sub UserForm_Activate()
Dim IsCompens As Boolean

  Set Src = ActiveWorkbook.Sheets("Source")

  IsCompens = Application.Run("Main.xls!IsCompens", Src)
  If IsCompens Then
    Form_Ls_Mtsn.CheckBox16.Enabled = True
    Form_Ls_Mtsn.CheckBox16.Value = False
  Else
    Form_Ls_Mtsn.CheckBox16.Enabled = False
    Form_Ls_Mtsn.CheckBox16.Value = False
  End If

  Form_Ls_Mtsn.TextBox1.Value = unit_ls_mtsn.NRSPZPM
End Sub

[Timur]

Для начала неплохо было бы установить последнее обновление для вашей версии(оно бесплатное и найти его можно на нашем сайте 7.0.0.10)
Попробуйте удалить файл C:\StroySoft\Smeta.ru\Client\ExcelShabl\FormStorage.xls

[PRODVi]

Я конечн попробую сейчас удалить файл который вы сказали. Ставить патч я не буду так как не хочу получить не работоспособную программу (а так бывает), у меня хватает проблем и с этой ошибкой (кою не могу исправить уже более недели). Но добавлю - программа не экспортирует совершенно любые сметы, даже которые до этого экспортировались совершенно свободно. Так же в окне где делаются настройки вывода (где кнопка сформировать) ранее все выбиралось только один раз и в дальнейшем указывалось автоматом. Сейчас все нужно ставить постоянно вручную.

[PRODVi]

Timur СПАСИБО ВАМ ОГРОМНОЕ!!! Все получилось когда удалил файл, и сразу все галки нужные на места встали, все заработало. Еще раз вам Спасибо!
пс. тему можно закрывать если есть оное)

[Kir]

А патч установите. Патчи, они понимаете ли, выпускаются для исправления ошибок.

[PRODVi]

А патч установите. Патчи, они понимаете ли, выпускаются для исправления ошибок.

Я не спорю, в них и справление ошибок, и добавление каких либо функций, и все такое-претакое. Только вот кто ручается кто он встанет как надо?? У меня просто нет времени да и желания переустанавливать смету. Плюс с патчем вдруг еще старые документы не будут открываться или еще какой трабл возникнет. Пока мне на него не жалуются - и слава Богу, а как будет че не так то можно и поставить.

Кстати вспомнил еще там один глюк - почему то язык вместо русского - кривой. Тоесть менюшки все написаны на русском а при наведении на них мышью выскакивает описание, и оно на кривом языке. Эсли это патч исправит я конечн его поставлю, так как тоже является большой проблемой. Или есть другой способ исправить это? Подскажите кто знает!

[Kir]

Посмотрите здесь.

[PRODVi]

Ко мне пришла девушка от вас, и перепробывала все - и языки меняла, и реестр правила, и визуализацию меняла - ничего не помогло. Потом прогу переставляли - аналогично безрезультатно. Звонили разработчикам - они без понятия в чем дело. КУДА КОПАТЬ ЕЩЕ МОЖНО?

[Kir]

Договаривайтесь с консультантами и визите компьютер к нам.