Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
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.
В репозитарии можно настроить группы пользователей, а для групп - подключаемые ресурсы. Можно и отдельно для пользователей.san писал(а):а если мне например надо одной группе юзеров подключить ресурсы , а другим нет, что в этом случае делать
Приоритет ресурса не пустое число, а определяет порядок поиска объектов в ресурсе. Если я ничего не путаю, то в случае конфигурирования интерфейса, лежащего в ресурсе с приоритетом 30000, результат этого конфигурирования виден не будет, т.к. у рабочего ресурса конфигуратора приоритет ниже.Max_Fin писал(а):решили, что наши ресурники будут иметь приоритет не ниже 30000
То, что vip с некоторого момента стал распостраняться с Галактикой - ошибка и недосмотр. Vip не является частью Галактики или Support'а и по большому счёту не нужен для её функционирования. Изначально предполагалось, что vip получают те, кто купил Атлантис. Так что для тех, кто использовал vip в составе купленного Атлантиса, ничего не изменилось. А остальные, выходит, использовали его нелегально. Разве где-то сказано, что купив пару модулей Галактики можно разрабатывать свои интерфейсы?san писал(а):будут продавать лицензии на заполнение реестра ресурсов, как к примеру прошел опыт с лицензией на вип.
Т.е. если я раньше компилил фрм-ку и подключал в конфиге один ресурс где лежит прототип, то теперь мне надо целую систему надо указывать? А зачем? Ведь при компиляции кадый ресурс подключается, считывается целиком... а оно надо?Как быть с подключением ресурсов для компиляции? Полагаю, скоро будет возможность при компиляции указать систему, ресурсы которой надо подключать для данной компиляции. (Вот и ещё одно преимущество репозитария, кстати)
Разрешено все что не запрещено.cruger писал(а): Разве где-то сказано, что купив пару модулей Галактики можно разрабатывать свои интерфейсы?
Идея то неплоха, только реализация как всегда хромаетcruger писал(а):Основная идея репозитария - централизованное хранение информации о подключаемых ресурсах, возможность админу контролировать её.
Не обладаю достоверной статистикой, но рискну предположить: не менее чем на 90-95 процентах предприятий пользователи работают с единым набором ресурсных файлов (файлы от разработчиков плюс, при необходимости, собственные доработки USERx.RES и DEBUGx.RES), и для них проблема управления компонентами вообще не стоит. А вот наличие на одном предприятии нескольких БД - явление гораздо более частое, и то, что репозитарий является составной частью БД, нисколько не добавляет удобств в администрировании. По сути дела, одна разновидность "децентрализации" сменилась другой. К тому же, если и есть смысл манипулировать набором ресурсных файлов, то только в "Галактике", но никак не в Supportе или PatchManagerе.cruger писал(а):Основная идея репозитария - централизованное хранение информации о подключаемых ресурсах, возможность админу контролировать её. Скажете, с OpenResources это тоже было возможно? При условии одного единственного конфига - да. Но если представить, что у каждого пользователя свой, а ещё есть и командная строка, то становится очевидным, что предсказать, какие же именно ресурсы и в каком порядке будут подключаться, не так то просто. Контролировать, что пользователь подключает в командной строке было вообще нереально.
Могу ошибаться, но дело, скорее всего, не в недосмотре. Без VIPа БД не сконвертировать и, следовательно, версию не поменять. Полагаю, потому он и входил в дистрибутив. А уж коли он там присутствовал, то отчего ж было им не пользоваться? Если человек купил в магазине, к примеру, компьютер, а впридачу ему дали еще и принтер (сами дали, никто не просил), так теперь на этом принтере принципиально не печатать?cruger писал(а):То, что vip с некоторого момента стал распостраняться с Галактикой - ошибка и недосмотр. Vip не является частью Галактики или Support'а и по большому счёту не нужен для её функционирования. Изначально предполагалось, что vip получают те, кто купил Атлантис. Так что для тех, кто использовал vip в составе купленного Атлантиса, ничего не изменилось. А остальные, выходит, использовали его нелегально. Разве где-то сказано, что купив пару модулей Галактики можно разрабатывать свои интерфейсы?
Меня он тоже не вдохновил. Предлагаю попробовать скромную любительскую альтернативу профессиональной программе. Может быть, кому-то понравится.dp писал(а):сейчас мучаюсь с patchman - репозитарий по сравнению с этой поделкой - замечательная вестчь. по-крайней мере он хоть нормально работает... а тут...
Действительно, зачем? "Возможность" совершенно не означает безальтернативную "необходимость".Алексей писал(а): Т.е. если я раньше компилил фрм-ку и подключал в конфиге один ресурс где лежит прототип, то теперь мне надо целую систему надо указывать? А зачем?
Полагаю, такой же финт можно проделать и с репозитарием, отчего нет? Только зачем же заменять один ресурс на другой. Можно просто подключать дополнительный с более высоким приоритетом.Алексей писал(а): Далее в стартапе меняю имя подключаемого ресурса mto.res на mto1.res и никого не выгоняя из системы имею при каждом новом запуске Галактики подключенную нужную ФРМ-ку.
Потому что строчный компилятор входит в состав Атлантиса, а не в состав встроенного в Галактику и Саппорт компилятора форм.san писал(а): Почему сейчас купив лицензию на компилятор форм я не могу использовать строчный компилятор?
А ресурсы конфигуратора? И в любом случае - проконтролировать, что именно запускает пользователь, было невозможно. Кому-то это не нужно? Кто-то не использует доп. ресурсов? Тогда какая разница: репозитарий или конфиг?KATZ писал(а): Не обладаю достоверной статистикой, но рискну предположить: не менее чем на 90-95 процентах предприятий пользователи работают с единым набором ресурсных файлов (файлы от разработчиков плюс, при необходимости, собственные доработки USERx.RES и DEBUGx.RES), и для них проблема управления компонентами вообще не стоит.
Как раз в этом и состоит удобство, ибо имеется чёткое представление, что работает с конкретной БД. Ну а вообще работа на нескольких БД, как бы это сказать, не является учитываемом при разработке способом эксплуатации. Кроме того, для планируемых дальнейших доработок системы просто-таки жизненно важно наличие в БД ссылок на ресурсы, работающие с ней.KATZ писал(а): А вот наличие на одном предприятии нескольких БД - явление гораздо более частое, и то, что репозитарий является составной частью БД, нисколько не добавляет удобств в администрировании.
Дистрибутив конвертора - это конечно да. Но он почему то обнаруживается и в ехе каталоге самой Галактики. Полагаю, его пытаются использовать для компиляции именно оттуда. И ещё его новые версии почему-то включаются в патчи. Галактики, а не конвертора.KATZ писал(а): Без VIPа БД не сконвертировать и, следовательно, версию не поменять. Полагаю, потому он и входил в дистрибутив.
о! ты мой герой!Меня он тоже не вдохновил. Предлагаю попробовать скромную любительскую альтернативу профессиональной программе. Может быть, кому-то понравится.
