Добрый день,помогите разобраться с такой проблемой при открытии базы Акцент зарплата-идеал,ругается на файл Workarea.avb,пишет ошибка в строке 9 столбец 2,а далее пишет что переменная msg не определена.Как с этим бороться?
Добрый день,помогите разобраться с такой проблемой при открытии базы Акцент зарплата-идеал,ругается на файл Workarea.avb,пишет ошибка в строке 9 столбец 2,а далее пишет что переменная msg не определена.Как с этим бороться?
Проблема в различных объектных моделях программ. Обычно программы размещены в отдельных папках и такое событие - случайность.
У Вас Workarea.avb общий для обоих программ ? Тогда нужно проверять какое приложение запустило модуль (App. AppName) и, соответственно, пропускать код, который не может быть выполнен.
Добрый день,помогите разобраться с такой проблемой при открытии базы Акцент зарплата-идеал,ругается на файл Workarea.avb,пишет ошибка в строке 9 столбец 2,а далее пишет что переменная msg не определена.Как с этим бороться?
Проблема в различных объектных моделях программ. Обычно программы размещены в отдельных папках и такое событие - случайность.
У Вас Workarea.avb общий для обоих программ ? Тогда нужно проверять какое приложение запустило модуль (App. AppName) и, соответственно, пропускать код, который не может быть выполнен.
Туплю... В ответе ничего не понял...
Просто у меня та же ошибка при открытии баз даных "Чистая база Идеал.adb" или "Тестовая база Идеал.adb"
Код из модуля workarea.avb
--------------------------------
Option Explicit
With msgb
.visible = True
.write "Акцент-заработная плата версия " & app.Version, vbInformation
.write "Типовое решение Идеал версия " & workarea.userparam("CONFIG_VERSION1"), vbInformation
If TestExtensions() Then
.write "В пути доступа к файлам были внесены изменения." & _
"Для дальнейшей нормальной работы программы необходимо ее перезапустить.", vbCritical
MsgBox "В пути доступа к файлам были внесены изменения." & vbCrLf & _
"Для дальнейшей нормальной работы программы необходимо ее перезапустить.", vbInformation, "Внимание !"
End If
End With
End Sub
--------------------------------
И в девятой строке :
Set msgb = msg
дает ошибку:
Переменная не определена: 'msg'
И еще вопрос :
- на этих базах в КОРЕСПОНДЕНТАХ нет "МОЕЙ ФИРМЫ"
Как последствие этого при запуске любой из форм ругается :
"Не выбрано предприятие "МОЯ ФОРМА" от имени которого ведется учет".
Просветите пожалуста как запустить зарплату "Идеал"
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
