Создание настроек в Галактике 8.10

[PViP]

При создании настройки используя Tune API возникает ошибка ExIfcBadCheckSum, столько раз сколько просходит вызов функций интерфейса ObjCreateTune. Настройка не создается.

Требуется создать настройку.

Код подписчика на точку расширения.

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

#include CreateTune.vih

Handler with replace ETIK_KF_DateModifyTune on ExtensionPoint
  epDateModifyTune (TS : ObjStartCreateTune)
Action
{
  TS.SetLastDateModTune(01,12,2007);
  Result := true;
}

Handler with replace ETIK_KF_CreateTuneComponent on extensionPoint
  epCreateTuneComponent (TR: ObjCreateTune) [201]
  // Внимание, приоритеты вызова обработчиков см. в CreateTune.vih
Action
{
  Result := true;
  //----------------------------------------------------------------------------
  // Обязательно установить  имя компонента
  TR.SetComponent('#__COMPONENT__');
  //----------------------------------------------------------------------------
  // Добавь сюда создание настроек. Например:
  TR.AddPart(ttUserTune, 'ETIK', '', 'Дополнительная настройка ЭТиК+', 0) ;
    TR.AddPart(ttUSERTUNE, 'ETIK.REPORTS', 'ETIK', 'Данные для отчета', 0) ; 
      TR.AddTune (ttUSERTUNE, 'ETIK.REPORTS.PODRFILIAL', 'ETIK.REPORTS', 'Подразделение-филиал', ftComp, '0','', 0); 
        TR.AddIntrTune ('ETIK.REPORTS.PODRFILIAL', 'MY_GETPODR'); 
      
      TR.AddTune (ttUSERTUNE, 'ETIK.REPORTS.BOSSFILIAL', 'ETIK.REPORTS', 'Руководитель филиала', ftComp, '0','', 0); 
        TR.AddIntrTune ('ETIK.REPORTS.BOSSFILIAL', 'MY_GETPERS'); 
      TR.AddTune (ttUSERTUNE, 'ETIK.REPORTS.APPOINTBOSS', 'ETIK.REPORTS', 'Должность руководителя', ftString, '', '40', 0); 

    TR.AddPart(ttSYSTUNE, 'ETIK.FILIALS', 'ETIK', 'Филиалы', 0);
      TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.KOlVO', 'ETIK.FILIALS', 'Количество филиалов', ftWord, '0', '99', 0);        
//      TR.AddIntrTune ('ETIK.FILIALS.KOLVO', 'MY_KOlVOFILIALS');
      
    TR.AddPart(ttSYSTUNE,'ETIK.FILIALS.FILIAL1', 'ETIK.FILIALS', 'Филиал №1', 0);
      TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.FILIAL1PODR', 'ETIK.FILIALS.FILIAL1', 'Подразделение-филиал', ftComp, '0', '', 0);        
        TR.AddIntrTune ('ETIK.FILIALS.FILIAL1PODR', 'MY_GETPODR');
       TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.FILIAL1BOSS', 'ETIK.FILIALS.FILIAL1', 'Руководитель филиала', ftComp, '0', '', 0);        
        TR.AddIntrTune ('ETIK.FILIALS.FILIAL1BOSS', 'MY_GETPERS'); 
      TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.FILIAL1APPOINTBOSS', 'ETIK.FILIALS.FILIAL1','Должность руководителя', ftString, '', '40', 0);     
      TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.FILIAL1MAINBUH', 'ETIK.FILIALS.FILIAL1', 'Главный бухгалтер', ftComp, '0', '', 0);        
        TR.AddIntrTune ('ETIK.FILIALS.FILIAL1MAINBUH', 'MY_GETPERS'); 
      TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.FILIAL1GRPODR', 'ETIK.FILIALS.FILIAL1', 'Группа подразделений', ftComp, '0', '', 0);        
        TR.AddIntrTune ('ETIK.FILIALS.FILIAL1GRPODR', 'MY_GETGRPODR'); 
//TR.SetRghTune('ETIK.FILIALS.FILIAL1',ttInVISIBLE);
      TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.FILIAL1OKATO', 'ETIK.FILIALS.FILIAL1','ОКАТО филиала', ftString, '', '11', 0);     

      TR.AddTune (ttSYSTUNE, 'ETIK.FILIALS.FILIALFOKATO', 'ETIK.FILIALS.FILIALF','ОКАТО филиала', ftString, '', '11', 0);     

     TR.CallPostMetod('ETIK.FILIALS.KOlVO');
     TR.CallPostMetod('ETIK.REPORTS.PODRFILIAL');
}

[/size]

Все смахивает на то, что у меня старый vih-файл с описанием объектного интерфейса, а ТП говорит что не в этом дело...

Господа разработчики, объясниет в чем я ошибся?

[cruger]

Сходу в самом деле, смахивает на то, что vih не соответствует самому интерфейсу.

[PViP]

Предположения подтвердились. vih файл был старой версии!



Вопросы к Корпорации, техподдержке и разработчикам:

Почему раньше Высылали vih файлы? А теперь необходимо писать разработчикам напрямую! Зачем спрашивается тех поддержка создана, если есть разработчики?

Колосально, чтобы получить 1 файл, который кстати входит в поставку системы Галактика ERP, и следовательно тоже должен обновляться вместе с системой, приходится несколько раз запрашивать и потом получить отрицательный ответ от официальной службы поддержки пользователей?

Файл изменен явно не месяц назад, как минимум месяца 3-4 назад, на личном опыте проверено!

Кому надо CreateTune.vih , намылю.

[Gera]

От практики изменения общеиспользуемых .vih (то есть ObjInterface) стараемся отказываться.
Вопросы поставки в обновлениях модифицированных .vih, inc и прочих файлов в настоящее время прорабатываются.

[PViP]

Пожелание, пока вопрос не проработан, тех поддержка высылает vih по требования!