Лицензия на репозитарий для 8.1

[maikl]

Подскажите лицензию на репозитарий в саппорте для 8.0 дают бесплатно или как? У нас ее сначала дали, а теперь говорят надо платить, а как без нее подключать свои ресурсники?

[Seybukan]

Посредством XML.
В доке вроде все подробненько расписано.

[Galex]

Как ни странно, но репозитарии платный... А как без него?.. Есть две таблички с номерами 79 и 80 - COMPONENTS и COMPONENTUSERS, соотвественно... Вот в них и храниться все что нужно... Если сам не разберешься, пиши в личку подумаем как твоему горю помочь...

[evchic]

вот Max_Fin писал

Сборка выполняется в ресурсник, который Галка подхватывает без регистрации, например, в debug.res.
Запуск непосредственно выполняется из Галактики через ард-отчет.
Выполнено по запросу наших системщиков в том виде в котором они хотели, так что если нужно расширить функционал, дописывайте.


Цитата:

resreg.ard
Код:

.Form MF_ARDResReg
.ARD
.GROUP '[Тюмбит-АСУ]'
.NameInList 'Регистрация пользовательских компонентов - [Тюмбит-АСУ]'
.DEFO LANDSCAPE
.P 60
.begin
if visualizationactive StopVisual('', 0);
RunInterface('MF_ResReg');
StartNewVisual(vtRotateVisual, vfTimer + vfBreak + vfConfirm,
'Выполнено', 1);
MF_ARDResReg.fexit;
end.
.endform


Цитата:

resreg.vip
Код:

interface MF_ResReg 'Регистрация пользовательских компонентов - [Тюмбит-АСУ]' EscClose, Blue;
Show at (, , 80, 22);

const
StartUserPriority = 30000;
end;

create view
as select
Components.*
from
ComponentModules,
Components,
ComponentUsers,

Synonym Components SynComponents
where
((
'galnet' == ComponentModules.EXEName and

StartUserPriority <<= Components.Priority and
Components.Atl_nRec == ComponentUsers.ResCode and

StartUserPriority <<= SynComponents.Priority
));

Browse brComponents (,,sci1378Esc);
Table Components;
fields
Components.Name 'Компонент': [30], NoProtect;
Components.Resource 'Ресурс': [50], NoProtect, PickButton;
Components.Priority 'Приоритет': [10], NoProtect;
end;

function GetFreePriority: Word;
{
var P: Word;

P := StartUserPriority;
_loop SynComponents
{
if P < SynComponents.Priority break;
else P := SynComponents.Priority + 1;
}
GetFreePriority := P;
}

Panel pnlComponents
Table Components;

HandleEvent
cmInsertRecord:
{
insert current Components;

ClearBuffer(tnComponentUsers);
ComponentUsers.ResCode := Components.Atl_nRec;
ComponentUsers.GroupCode := 0;
ComponentUsers.UserCode := 0;
ComponentUsers.Flags := 0; //приоритет низкий
ComponentUsers.DenyFlag := false;
insert current ComponentUsers;
}
cmUpdateRecord:
{
update current Components;
}
cmDeleteRecord:
{
delete all ComponentUsers;

delete current Components;
}
cmCheckField:
{
case CurField of
#Components.Name:
{
if Components.Name = ''
{
Message('Не задано имя ресурса', Error);
Abort;
Exit;
}
else
{
set Components.Resource := '%startpath%tyumbit\'+ Components.Name + '.res';
}
}
#Components.Resource:
{
if Components.Resource = ''
{
Message('Не задан ресурс', Error);
Abort;
Exit;
}
}
#Components.Priority:
{
if Components.Priority < StartUserPriority
{
Message('Приоритет должен быть более 30000', Error);
Abort;
Exit;
}
}
end;
}
cmCheckRecord:
{
if Components.Name = ''
{
Message('Не задано имя ресурса', Error);
Abort;
Exit;
}
if Components.Resource = ''
{
Message('Не задан ресурс', Error);
Abort;
Exit;
}
if Components.Priority < StartUserPriority
{
Message('Приоритет должен быть выше 30000', Error);
Abort;
Exit;
}
}
cmSetDefault:
{
ClearBuffer(tnComponents);
Components.Priority := GetFreePriority;
Components.Flags := 10;
if GetFirst ComponentModules = tsOK
Components.ModuleCode := ComponentModules.Atl_nRec;
}
end;
end;

HandleEvent
cmPick:
{
case CurField of
#Components.Resource:
{
var sTmp: String;
sTmp := GetFileName('*.RES', 'Выберите ресурс...');
if sTmp <> '' set Components.Resource := sTmp;
}
end;
}
cmClose:
{
UpdateTable;
}
end;

end.

[PViP]

В консоли управления Отдельно лицензируется репозитарий и визуальные средства дороботки системы.

[Andrey]

Вообще-то не понятна политика корпорации. Купили ФУНКЦИОНАЛ системы, которы позволял без проблем добавлятьсвои res-файлы, оплачиваем тех.поддержку и вот тебе еще за что-то доплатить, они там что-то тасуют внутри галактики. Если люди покупают только сейчас, тогда понятно. То же самое касается и других модулей системы (вспомните, как менялся функционал от версии к версии)

[Den]

Вообще-то не понятна политика корпорации. Купили ФУНКЦИОНАЛ системы, которы позволял без проблем добавлятьсвои res-файлы, оплачиваем тех.поддержку и вот тебе еще за что-то доплатить, они там что-то тасуют внутри галактики. Если люди покупают только сейчас, тогда понятно. То же самое касается и других модулей системы (вспомните, как менялся функционал от версии к версии)

Согласен..они скоро за каждый "чих" будут деньги брать. Хотя не столько в этом вопрос, сколько в стоимости приобремаемых наворотов. Вот возьмем консоль администратора. Что там такого - посмотреть кто где сидит, отключить юзеров от БД, настройка захвата лицензий....а стоит почти 20 деревянных. Не многовато ли ? Интересно конечно очень бы было узнать как они рассчитывают конечную стоимость доработок,по которой они потом их реализуют.
Хотя вообщем каждый сам для себя выбирает в силу потребностей и возможностей )

[Seybukan]

а стоит почти 20 деревянных

я выкуривую и выпиваю пива в год больше ))
А пользы от этого вообще ни какой!

Разве это дорого?

А без настройки захвата лицензий вам вообще толком доступ не разрулить будет.
Если раньше закрыли видимость меню ФРО и пользователь просто не мог захватить лицензию, тепереча же при входе в договор, ДО или там исчо куда мона легко захватать лицензию ФРО!

[Oweo]

Разве это дорого?

За такой, почти нулевый функционал, это дорого.

... тепереча же при входе в договор, ДО или там исчо куда мона легко захватать лицензию ФРО!

И где, скажите, здравый смысл в этом?

[Алексей]

Seybukan
Погодите, как зайдя в договор можно захватить лицензию ФРО? Захватится либо модуль договоров либо контур целиком!
Или я не так понимаю работу системы лицензирования?

[Oweo]

Погодите, как зайдя в договор можно захватить лицензию ФРО? Захватится либо модуль договоров либо контур целиком!
Или я не так понимаю работу системы лицензирования?

Зрите дальше - вы же там документ оплаты можете открыть и, соответственно, опа, брюки превращаются...

[Алексей]

Oweo
ну если док-т оплаты откроываете то да. В 8.1 я так понял систему лицензирования поменяли и теперь лицензия вешается не на открытие модуля или ещё чего, а при открытии интерфейса из любого места идет захват лицензии.

[Seybukan]

За такой, почти нулевый функционал, это дорого.

Мои кросовки стоят чутка поболе, чем у сынишки.
А от последнего зимнего костюмчика я вааще чуть в обморок не упал.
Поверьте там цена/себестоимость абсолютно не пропорциональные вещи. А все почему, а потому что у мамани Глаза так горят, что ни куда не спрятаться.

Ну чего из этого следуют?

Все стоит столько сколько стоит, кому надо консоль админа тот покупает, кому не надо тот не покупает.

[sim]

В 8.1 я так понял систему лицензирования поменяли и теперь лицензия вешается не на открытие модуля или ещё чего, а при открытии интерфейса из любого места идет захват лицензии.

А мне кажется, что это не так.
Например, зашли в Хозоперации, а оттуда - в договоры, в платежки, в накладные и т.п. - при этом захваченной всегда остается лицензия Хозоперации.

[Алексей]

sim
тогда можно купив лицензию на хоз.операции, больше ни на что лицензии не прокупать. Можно попасть и в договора и в платежи и в сбыт и в снабжение и т.д.