Добавление новой настройки

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Gameus_
Местный житель
Сообщения: 209
Зарегистрирован: 18 окт 2006, 17:03
Откуда: Ростов на Дону Новочеркасск Новороссийск
Контактная информация:

Добавление новой настройки

Сообщение Gameus_ »

Добрый день, подскажите пожалуйста что не так делаю.
Суть такова:
к некоторым отчетам необходимо создавать настройки, причем вип с созданием настроек компилится вместе с отчетом в один рес файл.
При попытке добавить еще один ресурсник с созданием новых настроек, после модификации реестра настроек старые настройки пропадают.
Пример:
сначала создали настройки:

Код: Выделить всё

#include CreateTune.vih
Handler with replace Gal_DateModifyTune on ExtensionPoint
  epDateModifyTune (TS : ObjStartCreateTune)
Action
{
  TS.SetLastDateModTune(21,02,2010);
  Result := true;
}
Handler with replace Gal_CreateTuneComponent on extensionPoint
  epCreateTuneComponent (TR: ObjCreateTuneEx)
Action
{
  Result := true;
  TR.SetComponent('');
  TR.AddPart (ttSysUserTune,'exttunes','Tune','Доп настройки',0);
     TR.AddPart (ttSysUserTune,'exttunes.zakaz','exttunes','Загрузка',0);
        TR.AddTune (ttSysTune,'exttunes.zakaz.kodorg','exttunes.zakaz','Классификатор',ftComp,'0','',0);
           TR.AddIntrTune ('exttunes.zakaz.kodorg','zakaz_IntrTune');
        TR.AddTune (ttSysTune,'exttunes.zakaz.orgattrmc','exttunes.zakaz','Классификатор2',ftComp,'0','',0);
           TR.AddIntrTune ('exttunes.zakaz.orgattrmc','zakaz_IntrTune');

}
настройки появились, все хорошо,
создаем еще настройки:

Код: Выделить всё

#include CreateTune.vih
Handler with replace Gal_DateModifyTune on ExtensionPoint
  epDateModifyTune (TS : ObjStartCreateTune)
Action
{
  TS.SetLastDateModTune(21,02,2010);
  Result := true;
}
Handler with replace Gal_CreateTuneComponent on extensionPoint
  epCreateTuneComponent (TR: ObjCreateTuneEx)
Action
{
  Result := true;
  TR.SetComponent('');
  TR.AddPart (1,'exttunes','Tune','Доп настройки',0);
     TR.AddPart (1,'exttunes.ard_rep','exttunes','Отчеты ard',0);
        TR.AddTune (2,'exttunes.ard_rep.price_nrec','exttunes.ard_rep','Прайс лист',ftComp,'0','',0);
                   TR.AddIntrTune('exttunes.ard_rep.price_nrec','ard_tune_GETPAYMENT');
}
После подключения ресурсника с этим кодом старые настройки пропадают. (строчку TR.AddPart (1,'exttunes','Tune','Доп настройки',0); пробовал закоментить, результат не изменился).

Подскажите плиз, что не так делаю.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

1. Я бы вам очень советовал комплить все ваши добаления настроек в отдельный файл и закинуть его в exe как user1.res. А потом уже подключать как обычно, не забывая иногда обновлять user1.res - будет мучительно больно, если при подключении реса вы запятой ошибетесь.
2. мой код

Код: Выделить всё

#include CreateTune.vih
#ifdef ComponentVersion
#component "F_USERREPORT"
#end
//Настройки Галактики \ Логистика \ Документы \ Управление договорами \ Права доступа
//Подразделение-куратор
//'DOGOVOR.CCURRPODR'
Handler with replace M_All_DateModifyTune on ExtensionPoint
  epDateModifyTuneEx (TS : ObjStartCreateTuneEx)
Action
{
  TS.SetLastDateModTuneComp('#__COMPONENT__', 29, 03, 2008);
  Result := true;
}

Handler with replace M_All_CreateTune on extensionPoint
  epCreateTuneComponent (TR: ObjCreateTune) [221]
Action
{
  Result := true;
  TR.SetComponent('#__COMPONENT__');
  TR.SetNextNumberTune(31000); // 
  TR.SetParent('GALCOMMON')
  TR.AddTuneU('GALCOMMON.ORG_ROLE','Роль на ввод заявок на организации', ftList, '0', '', 'AvtoNastroikaPravaDostupa');
    TR.AddList(0, 'Ввод');
     TR.AddList(1, 'Администратор'); //USERRIGHTS


}
#ifdef ComponentVersion
#component "F_USERREPORT"
#endif
второй файл отличается
TR.SetNextNumberTune(30000); //
ну и наименованием точки расширения и фейса.
Screw
Слесарь-системщик
Сообщения: 304
Зарегистрирован: 29 мар 2005, 17:49
Откуда: р.Беларусь, Унитарное предприятие "ТОП СОФТ"
Контактная информация:

Сообщение Screw »

Название подписчика на точку расширения хорошо бы делать уникальным, иначе тот, что в новом ресурсе, перекроет того, что в старом ресурсе, и старый просто не будет "виден" системе.
Виталий
Gameus_
Местный житель
Сообщения: 209
Зарегистрирован: 18 окт 2006, 17:03
Откуда: Ростов на Дону Новочеркасск Новороссийск
Контактная информация:

Сообщение Gameus_ »

Спасибо, все дело в уникальности имени точки расширения
Gameus_
Местный житель
Сообщения: 209
Зарегистрирован: 18 окт 2006, 17:03
Откуда: Ростов на Дону Новочеркасск Новороссийск
Контактная информация:

Сообщение Gameus_ »

Еще проблемка появилась, не пойму в чем дело...

После пересчета реестра настроек галактика пишет, что удалена стандартная настройка из раздела управление персоналом... но при просмотре настроек её видно (видимо все-таки ничего не удалилось), кто-нить сталкивался с подобным? из-за чего такое может быть ?
Screw
Слесарь-системщик
Сообщения: 304
Зарегистрирован: 29 мар 2005, 17:49
Откуда: р.Беларусь, Унитарное предприятие "ТОП СОФТ"
Контактная информация:

Сообщение Screw »

Пользовательскую настройку заменили системной или наоборот.
Виталий
Gameus_
Местный житель
Сообщения: 209
Зарегистрирован: 18 окт 2006, 17:03
Откуда: Ростов на Дону Новочеркасск Новороссийск
Контактная информация:

Сообщение Gameus_ »

эту настройку (стандартную) вообще никак не трогали..
galover
Местный житель
Сообщения: 794
Зарегистрирован: 16 ноя 2007, 13:52

Сообщение galover »

Gameus_
возможно было задвоение настроек (такое бывает), проверка реестра удаляет такие некорректные записи
Gameus_
Местный житель
Сообщения: 209
Зарегистрирован: 18 окт 2006, 17:03
Откуда: Ростов на Дону Новочеркасск Новороссийск
Контактная информация:

Сообщение Gameus_ »

а из-за чего может быть задвоение настроек ? теоретически....
galover
Местный житель
Сообщения: 794
Зарегистрирован: 16 ноя 2007, 13:52

Сообщение galover »

Gameus_
у нас задвоение случалось, если запустить проверку реестра настроек для Галактики, в которой сидят пользователи
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

если одна удалилась это еще ничего, а вот когда много, значит настройки переехали в другой рес, а у вас он не подключен. Чего то там в кадрах выделяли недавно. И часть настроек скрыто и используются только в фейсах для своих нужд.
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

galover писал(а):Gameus_
у нас задвоение случалось, если запустить проверку реестра настроек для Галактики, в которой сидят пользователи
а вот это уже интересно, что нельзя так делать? я частенько запускал проверку реестра со всеми галками...
galover
Местный житель
Сообщения: 794
Зарегистрирован: 16 ноя 2007, 13:52

Сообщение galover »

Алексей
по поводу нельзя - не знаю, просто у нас такое случалось
Ответить