Укажите отработанное время

Отработанное время:
Продуктивное время:
Bug 1877 - Не работает проверка версии релиза 1с в самописной конфигурации   Make a simular bug
Summary: Не работает проверка версии релиза 1с в самописной конфигурации
Status: CLOSED FIXED
Alias: None
Product: WINE@Etersoft
Classification: Продукты (Products)
Component: Дистрибутив (show other bugs)
Version: unspecified
Hardware: PC Linux
: P5 major
Target Milestone: ---
Assignee: Денис Баранов
QA Contact:
URL:
Whiteboard:
Keywords:
Depends on: 2469
Blocks: 777 3163
  Show dependency tree / graph
 
In work:
Reported: 2008-05-30 17:21 MSD by Alexeev Alexey
Modified: 2008-12-31 17:18 MSK (History)
3 users (show)

See Also:
Заявки RT:
Связано с:
Дата напоминания:

Attachments
код проверки версии релиза (839 bytes, text/plain)
2010-11-18 03:58 MSK, Alexeev Alexey 		Details
wine.log (10.08 KB, text/plain)
2010-11-18 03:58 MSK, Alexeev Alexey 		Details
View All Add an attachment (proposed patch, testcase, etc.)

Note You need to log in before you can comment on or make changes to this bug.
Description Alexeev Alexey 2008-05-30 17:21:02 MSD 
При запуске 1С:Предприятие 7.7 (ядро 7.70.025) происходит проверка версии релиза.

При запуске 1С в ОС ASPLinux 12 через Wine@Etersoft, проверка выполняется некорректно и работа 1с завершается.

Кусок конфигурации с проверкой релиза:

Процедура ПриНачалеРаботыСистемы()
	//защита от старых версий ядра>>
	Если пустоеЗначение(Константа.ВерсияЯдра)=0 Тогда
		допустимоеЯдро=сокрлп(Константа.ВерсияЯдра);
		попытка  
			ф=СоздатьОбъект("Scripting.FileSystemObject");
			ЯдроПользователя=ф.GetFileVersion(КаталогПрограммы()+"\1cv7s.exe");
			сообщить(КаталогПрограммы()); // +"1cv7s.exe"
			Если не(сокрлп(ЯдроПользователя)>=допустимоеЯдро) Тогда
				предупреждение("Версия ядра ("+ЯдроПользователя+") отличается от допустимой ("+ допустимоеЯдро+")! Работа запрещена!",15);
				статусВозврата(0);
				возврат;
			КонецЕсли;
		исключение
			предупреждение("Версия ядра отличается от допустимой! Сообщите администратору!",15);
			//статусВозврата(0);
			//возврат;
		конецпопытки;
		сообщить(КаталогПрограммы());   //+"1cv7s.exe"
	КонецЕсли;

wine.log в аттаче.
Заява 6685.
Comment 1 Alexeev Alexey 2008-05-30 17:22:58 MSD 
Поместил листинг кода проверки релиза в аттач, а то форматирование убилось.
Comment 2 Alexeev Alexey 2008-05-30 17:23:26 MSD 
Created attachment 470 [details]
код проверки версии релиза
Comment 3 Alexeev Alexey 2008-05-30 17:23:50 MSD 
Created attachment 471 [details]
wine.log
Comment 4 Денис Баранов 2008-08-19 10:52:18 MSD 
При попытке вставить этот кусок в конфигурацию, после запуска выдается сообщение:
Если пустоеЗначение(Константа <<?>>ВерсияЯдра)=0 Тогда 
{Глобальный модуль(5107)}: Переменная не определена (ВерсияЯдра)
Comment 5 Александр Пликус 2008-08-19 10:55:03 MSD 
ну так добавь эту константу...
Comment 6 Денис Баранов 2008-08-19 12:54:36 MSD 
Видимо ошибка заключалась в том, что не стоял Scripting Host и по этому не выполнялось > ф=СоздатьОбъект("Scripting.FileSystemObject");
После установки все заработало.
Comment 7 Vitaly Lipatov 2008-09-03 20:31:10 MSD 
Не понимаю, в чём заключается исправление ошибки.
Если для работы нужно что-то доставить, это что-то должно быть добавлено
в поставку WINE@Etersoft. Вариант поставить вручную - не решение.
Comment 8 Vitaly Lipatov 2008-09-04 18:06:48 MSD 
Решили добавить WHS 5.6 в закрытую часть.
Comment 9 Vitaly Lipatov 2008-09-04 18:13:19 MSD 
Он уже поставляется в виде отдельных файлов, надо проверить, что надо регистрировать и какой командой.
Comment 10 Денис Баранов 2008-09-11 21:37:22 MSD 
В результате исследования было решено устанавливать MS Windows Scripting Host 5.6 в процессе установки wine, а не просто копировать библиотеки.
Comment 11 Vitaly Lipatov 2008-09-17 19:44:58 MSD 
Установка WSH добавлена в сборку закрытой части 1.0.9-alt7
Comment 12 Vitaly Lipatov 2008-09-17 19:45:40 MSD 
Переоткрываю, чтобы можно было переназначить на тестера.
Comment 13 Vitaly Lipatov 2008-09-17 19:52:13 MSD 
Проверяем на сборке из
/var/ftp/pvt/Etersoft/WINE@Etersoft/current/WINE-SQL
Comment 14 Денис Баранов 2008-09-17 21:48:57 MSD 
(In reply to comment #13)
> Проверяем на сборке из
> /var/ftp/pvt/Etersoft/WINE@Etersoft/current/WINE-SQL
> 

Проверил, все работает.