Bug 1877

Summary: Не работает проверка версии релиза 1с в самописной конфигурации
Product: WINE@Etersoft Reporter: Alexeev Alexey <alexeev>
Component: ДистрибутивAssignee: Денис Баранов <baraka>
Status: CLOSED FIXED QA Contact:
Severity: major    
Priority: P5 CC: baraka, lav, pav
Version: unspecified   
Target Milestone: ---   
Hardware: PC   
OS: Linux   
Whiteboard:
Заявки RT: Связано с:
Дата напоминания:
Bug Depends on: 2469    
Bug Blocks: 777, 3163    
Attachments: код проверки версии релиза
wine.log

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
> 

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