Ошибка при запуске
03.07.2017 07:38
#
Инфо-Бухгалтер 8.824, сетевая.
Обновление установлено последнее.
При запуске программы на всех компьютерах сети выдает ошибку
"Невозможно выполнить строку ["app.ibl"].Init".
После сброса сообщения программа работает нормально.
- 214 просмотров
Т.е.,как я понял, база находится в L:\DATA? Функция формирует значение ТекДирDBF в предположении, что база находится по пути ...\ПапкаБазы\DATA, где ПапкаБазы не должна совпадать с корневой папкой диска. Таким образом можно было просто создать папку в корне диска L,скопировать туда папку DATA и установить к ней путь.Ошибка также бы исчезла
При чем тут вообще функция проверки на ОКОФ?!
//уст окоф сетевая версия - Дьяченко 22.06.2017
ФУНКЦИЯ ТИП_ЛОГИКА : ОС_ПроверкаНаличияОКОФ
ОС_ПроверкаНаличияОКОФ = НЕТ
файл = "OS\okof_17.DBF"
фИсх = ТЕК_ДИР + "\DATA\" + файл
фКон = ДИР_DBF + "\" + файл
ЕСЛИ СУЩ_ФАЙЛ(фИсх) ТО
ЕСЛИ НЕ СУЩ_ФАЙЛ(фКон) ТО
ЕСЛИ ФАЙЛ_КОПИРОВАТЬ(фИсх, фКон) ТО
ОС_ПроверкаНаличияОКОФ = ДА
ИНАЧЕ
СООБЩЕНИЕ("Не удалось скопировать файл" + СИМВ(13) + фИсх + " в " + СИМВ(13) + фКон)
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
файл = "OS\okof_lnk.DBF"
фИсх = ТЕК_ДИР + "\DATA\" + файл
фКон = ДИР_DBF + "\" + файл
ЕСЛИ СУЩ_ФАЙЛ(фИсх) ТО
ЕСЛИ НЕ СУЩ_ФАЙЛ(фКон) ТО
ЕСЛИ ФАЙЛ_КОПИРОВАТЬ(фИсх, фКон) ТО
ОС_ПроверкаНаличияОКОФ = ДА
ИНАЧЕ
СООБЩЕНИЕ("Не удалось скопировать файл" + СИМВ(13) + фИсх + " в " + СИМВ(13) + фКон)
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_ЕСЛИ
КОНЕЦ_ФУНКЦИИ
Вот ее код, ничего криминального в нему нету.