K3-Мебель

[jin1410]

Сообщение от Роман Тимашов

Подскажите плз, что это за ошибка и как с ней бороться.

А поподробней:версия, где и когда выскакивает...?


P.S. Роман. задавай вопросы более конкретнее и понятнее, тогда и ответ получишь равнозначный.

[Роман Тимашов]

Добрый всем день!
Прошу прощения за невнятность, думал если мой вопрос был изучен ранее, то все сразу поймут о чем я.
И так, проблема возникает как в версии 6.0 так и в версии 6.2
При попытке создать, к примеру, кухонную мебель, ошибка выскакивает то при установке окон, то при расстановке баз (дальше расстановки баз дело не доходило, программа вылетает). Когда слетает, выскакивают по очереди два окошка
В окне первом, надпись типа:
Фатальная внутренняя ошибка 1. Программа обнаружила неустранимую внутреннюю ошибку и будет закрыта. Обратитесь к разработчикам.
В окне втором, пишет:
память не может быть"read"( или иногда "written") - на этот вопрос ответ вроде бы найден и исправлен, но...
Далее окно Сохранить ДА/НЕТ.
Скриншоты выложу вечером.

[Роман Тимашов]

Скрин ошибки во время работы ОшибкаК3-мебель.gif и скрин ошибки, после нажатия "ДА"для сохранения ОшибкаК3-мебель_1.gif

Плз, помогите разобраться c проблемой, буду очень признателен!!!
Заранее благодарен!!!

[Роман Тимашов]

Люди!!! Неужели ни кто не знает ответ на мой вопрос!?

[jin1410]

Сообщение от Роман Тимашов

Неужели ни кто не знает ответ на мой вопрос!?

В первом случае может быть несколько причин: некорректная настройка, испорченные файлы......
Во втором-это не ошибка, а предупреждение системы.Перед выходом в базу передавать нужно....

[homka]

Люди помогите!!!
Выложите примеры вызова сценариев VBS, MDB, JS
с передачей и возвратом параметров
а то мне прога пишет что команды FMdbScript нету

[K3Dmitriy]

Сообщение от homka

Люди помогите!!!
Выложите примеры вызова сценариев VBS, MDB, JS
с передачей и возвратом параметров
а то мне прога пишет что команды FMdbScript нету

res=fmdbscript(GetProtoMac("Shkaf.ptl")+"PKMScrLib .mdb","FileSystem","FsoIsFileExist",ProtoPath+"Zak Par.txt");
if (res==1) { script MDB GetProtoMac("Shkaf.ptl")+"PKMScrLib.mdb" "FileSystem" "FsoDeleteFile" ProtoPath+"ZakPar.txt"; }

Функция инициирует исполнение функции FsoIsFileExist (проверка на существование объекта/файла) в сценарии FileSystem базы данных PKMScrLib.mdb, входной параметр файл ZakPar.txt Возвращаемое значение 1/0.
В случае возвратившего значения равному 1, выполняется функция FsoDeleteFile (удаление объекта/файла).

[homka]

Сообщение от K3Dmitriy

res=fmdbscript(GetProtoMac("Shkaf.ptl")+"PKMScrLib .mdb","FileSystem","FsoIsFileExist",ProtoPath+"Zak Par.txt");
if (res==1) { script MDB GetProtoMac("Shkaf.ptl")+"PKMScrLib.mdb" "FileSystem" "FsoDeleteFile" ProtoPath+"ZakPar.txt"; }

Функция инициирует исполнение функции FsoIsFileExist (проверка на существование объекта/файла) в сценарии FileSystem базы данных PKMScrLib.mdb, входной параметр файл ZakPar.txt Возвращаемое значение 1/0.
В случае возвратившего значения равному 1, выполняется функция FsoDeleteFile (удаление объекта/файла).

Спасибо, функция FileSystem встроена в МДБ и нормально отрабатывает без ошибок
добавляю свою через К3талк
Sub MyScript()
MsgBox("не работает")
End Sub
Вроде все просто и должно работать
но К3 выдает ошибку выполнения скрипта
Де моя ошибка подскажте плиз

[K3Aleksey]

Сообщение от homka

Спасибо, функция FileSystem встроена в МДБ и нормально отрабатывает без ошибок
добавляю свою через К3талк
Sub MyScript()
MsgBox("не работает")
End Sub
Вроде все просто и должно работать
но К3 выдает ошибку выполнения скрипта
Де моя ошибка подскажте плиз

Попробуйте вместо MsgBox использовать функцию K3F.Display

[homka]

Сообщение от K3Aleksey

Попробуйте вместо MsgBox использовать функцию K3F.Display

Тож самое
Пример из руководств
Sub MyScript()
Dim Val
Val = "Прювет"
K3F.Display(Val)
End Sub
Файл test.mac
res=FMDBScript(GetProtoMac("Shkaf.ptl")+"PKMScrLib .mdb","MyScripts","MyScript","");
if (res==1) { script JS GetProtoMac("Shkaf.ptl")+"PKMScrLib.mdb","MyScript s","MyScript",""; }

Вот скрин