Заявка на ремонт, исходник

[Алексей]

Есть у кого-нибудь исходники свежие от заявки на ремонт L_REMDOC:: DOCZREM?
В частности интересует реализация функции Function ProcInsTip(pTipVed:comp):boolean;
Что-то поменяли.... версия L_REMDOC_RES_91220 нужна.

[Алексей]

отбой.

[Алексей]

внутри описания процедуры есть функция на которую ругается компилятор

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

ExtAttrClass_CopyAllEx(coTRabRem, TRabRem.NRec, coSpStep, SpStepRab.NRec);

возможно она описана в файле, который инклюдится, но которого у меня нет, но может у кого-нибудь другого есть? буду признателен

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

DOfuns.var

[Masygreen]

скорей уж
#include ExtClass.vih

[Алексей]

Раньше там использовался объектный интерфейс, сейчас переделали в функцию, которую, как мне думается, прописали в том файле, который я и попросил. Ну уж если не найду файл - переделаю на объект.

[edward_K]

ExtAttrClassInfo.vih

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

//------------------------------------------------------------------------------
//                                                      (c) корпорация Галактика
// Версия      : 9.10
// Назначение  : Статические функции для работы с внешними атрибутами и классификаторами документов
//------------------------------------------------------------------------------

#ifndef _ExtAttrClassInfo_vih
#define _ExtAttrClassInfo_vih

#ifdef ComponentVersion
#component "C_ExtClass"
#end

#doc
Функции для работы с внешними атрибутами и классификаторами документов
#end
VipInterface iExtAttrClassInfo licensed (FREE);
  Static:
    // ExtAttr.Vih
    Function  ExtAttr_Create(_wTable : word; _Name : string; _Type : word): comp;
    Function  ExtAttr_ID    (_wTable : word; _Name : string): comp;
    Function  ExtAttr_Type  (_wTable : word; _Name : string): word;
    Function  ExtAttr_Name(_cRec: comp): string;
    Function  ExtAttr_ValueExists  (_wTable : word; _cRec: comp; _Name: string): boolean;
    Function  ExtAttr_ValueExistsID(_wTable : word; _cRec: comp; _cAttrNam: comp): boolean;
    Function  ExtAttr_DeleteValue  (_wTable : word; _cRec: comp; _Name: string): integer;
    Function  ExtAttr_DeleteValueID(_wTable : word; _cRec: comp; _cAttrNam: comp): integer;
    Function  ExtAttr_SetNeedMessage (_NeedMessage : boolean) : boolean;
    Procedure ExtAttr_ShowError (_err : word);
    Function  ExtAttr_LastError : word;
    Function  ExtAttr_CreateComp   (_wTable : word; _Name : string; _Type, _SysNumKau, _KodKau : word) : comp;
    Function  ExtAttr_CompKodKau   (_cAttrNam: comp) : word;
    Function  ExtAttr_CompSysNumKau(_cAttrNam: comp) : word;
    Function  sGetAttr   (_wTable : word; _cRec : comp; _Name : string) : string;
    Function  doGetAttr  (_wTable : word; _cRec : comp; _Name : string) : double;
    Function  dGetAttr   (_wTable : word; _cRec : comp; _Name : string) : date;
    Function  tGetAttr   (_wTable : word; _cRec : comp; _Name : string) : time;
    Function  mGetAttr   (_wTable : word; _cRec : comp; _Name : string) : string;
    Function  coGetAttr  (_wTable : word; _cRec : comp; _Name : string) : comp;
    Function  sGetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp) : string;
    Function  doGetAttrID(_wTable : word; _cRec : comp; _cAttrNam : comp) : double;
    Function  dGetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp) : date;
    Function  tGetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp) : time;
    Function  mGetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp) : string;
    Function  coGetAttrID(_wTable : word; _cRec : comp; _cAttrNam : comp) : comp;
    Function  sSetAttr   (_wTable : word; _cRec : comp; _Name, _Val : string) : boolean;
    Function  doSetAttr  (_wTable : word; _cRec : comp; _Name : string; _Val : double) : boolean;
    Function  dSetAttr   (_wTable : word; _cRec : comp; _Name : string; _Val : date)   : boolean;
    Function  tSetAttr   (_wTable : word; _cRec : comp; _Name : string; _Val : time)   : boolean;
    Function  mSetAttr   (_wTable : word; _cRec : comp; _Name, _Val : string) : boolean;
    Function  coSetAttr  (_wTable : word; _cRec : comp; _Name : string; _Val : comp; _ValStr : string) : boolean;
    Function  sSetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp; _Val : string) : boolean;
    Function  doSetAttrID(_wTable : word; _cRec : comp; _cAttrNam : comp; _Val : double) : boolean;
    Function  dSetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp; _Val : date)   : boolean;
    Function  tSetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp; _Val : time)   : boolean;
    Function  mSetAttrID (_wTable : word; _cRec : comp; _cAttrNam : comp; _Val : string) : boolean;
    Function  coSetAttrID(_wTable : word; _cRec : comp; _cAttrNam : comp; _Val : comp; _ValStr : string) : boolean;
    Function  CopyAllAttr  (_wTableFrom: word; _cRecFrom: comp; _cRecTo: comp) : boolean;
    Function  CopyAllAttrEx(_wTableFrom: word; _cRecFrom: comp; _wTableTo: word; _cRecTo: comp) : boolean;
    Function  DeleteAllAttr(_wTable: word; _cRec: comp) : boolean;
    Function  MoveAllAttr  (_wTable: word; _cRecFrom: comp; _cRecTo : comp): boolean;
    Function  ExtAttr_Pick (_CanEdit: boolean; _wTable: word; _cRec: comp): boolean;
    Function  ReNameAttr   (_wTable: word; _Name : string; _Type, _SysNumKau, _KodKau : word; _NameNew : string; _isCreateAttr : boolean) : comp;
    Function  DeleteAttr   (_wTable: word; _Name : string; _Type : word) : boolean;
    Function  CopyAttrPick (_wTable: word; _cRecFrom: comp; _cRecTo: comp) : boolean;
    Function  CopyAttrName (_wTable: word; _cRecFrom: comp; _cRecTo: comp; _Name     : string) : boolean;
    Function  CopyAttrID   (_wTable: word; _cRecFrom: comp; _cRecTo: comp; _cAttrNam : comp  ) : boolean;
    Function  GetAttrValueStr  (_wTable : word; _cRec : comp; _Name     : string) : string;
    Function  GetAttrValueStrID(_wTable : word; _cRec : comp; _cAttrNam : comp  ) : string;
    // ExClass.Vih
    Function  GetClassCode (_wTable: word; _ClassName: string) : word;
    Function  CreateClass  (_wTable: word; _ClassName: string; _UniqFeat : word) : word;
    Function  AddSegClass(_ClassCode : word; _SegName: string; _SegCode: string; _cGroup: comp) : comp;
    Function  LinkSegClass (_wTable : word; _cRec : comp; _ClassName: string; _SegName: string) : boolean;
    Function  ExtClass_SetNeedMessage (_NeedMessage : boolean) : boolean;
    Procedure ExtClass_ShowError (_err : word);
    Function  ExtClass_LastError : word;
    Function  GetSegName (_ClassCode : word; _cRec : comp) : string;
    Function  GetSegCode (_ClassCode : word; _cRec : comp) : string;
    Function  CopyAllClassVal   (_wTable    : word; _cRecFrom: comp; _cRecTo: comp) : boolean;
    Function  CopyAllClassValEx (_wTableFrom: word; _cRecFrom: comp; _wTableTo: word; _cRecTo: comp) : boolean;
    Function  CopyClassEx (_CodeFrom: word; _wTableTo: word) : word;
    Function  DeleteAllClassVal   (_wTable: word; _cRec: comp) : boolean;
    Function  MoveAllClassVal     (_wTable: word; _cRecFrom: comp; _cRecTo: comp): boolean;
    Function  ExtClass_Pick(_CanEdit: boolean; _wTable: word; _cRec: comp): boolean;
    Function  CopyAllClassValUniq (_wTable: word; _cRecFrom: comp; _cRecTo: comp; _bZam : boolean) : boolean;
    Function  CopyClassValPick    (_wTable: word; _cRecFrom: comp; _cRecTo: comp) : boolean;
    // ExtAttrClass.vih
    Function  ExtAttrClass_CopyAll  (_wTableFrom: word; _cRecFrom: comp; _cRecTo: comp): boolean;
    Function  ExtAttrClass_CopyAllEx(_wTableFrom: word; _cRecFrom: comp; _wTableTo: word; _cRecTo: comp): boolean;
    Function  ExtAttrClass_DeleteAll(_wTable: word; _cRec    : comp): boolean;
    Function  ExtAttrClass_MoveAll  (_wTable: word; _cRecFrom: comp; _cRecTo: comp): boolean;
    Function  ExtAttrClass_SetNeedMessage(_NeedMessage : boolean) : boolean;
    Procedure ExtAttrClass_ShowError(_err : word);
    Function  ExtAttrClass_LastError : word;
end; 

#end // _ExtAttrClassInfo_vih

По идее он должен быть в Frm\C_ExtClass.src.zip - чего там не ищите то? Лучше распаковывать после установки и если что там искать.

[Алексей]

Нашел я этот vih, но не совсем понимаю как с ним работать. Там указано, что это статические функции, в документации написано, что вызываются они через имя объекта :: название функции, типа str := vGetName::GetName;

У меня исходник от разработчиков и там эта функция вызывается просто одной строкой, без каких либо обращений к объекту:

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

            ExtAttrClass_CopyAllEx(coTRabRem, TRabRem.NRec, coSpStep, SpStepRab.NRec);

А в предыдущей версии компонента как раз-таки вызов был через объект:

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

            oAttrClass.CopyAllEx(coTRabRem, TRabRem.NRec, coSpStep, SpStepRab.NRec);

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

[Алексей]

ПИР: 102.138534 - сделали функции статик. C_EXTCLASS_RES_91130.txt
Нашел так же что можно зарегистрировать статик функции функцией RegisterGlobalIfc и они будут доступны по Ctrl+F4.
Пробую в Галактике вызвать ExtAttrClass_CopyAllEx - пишет функция не найдена, видимо по этой же самой причине ругается и компилятор.

Я правильно понимаю, что разработчики должны были их зарегистрировать, раз используют у себя в коде прямой вызов? И почему тогда у меня не отрабатывает эта функция по Ctrl+F4 ?

[edward_K]

1. Эта виха должна быть подключена в проект.
2. Регить для вызова по ctrl+F4 не обязательно.

[Алексей]

Первым делом я попробовал сделать #include ExtAttrClassInfo.vih - но ошибка так и осталась - "нет такой функции...."
Хотя при компиляции випером, в логах я вижу что этот файл подключается...

[Алексей]

В общем, видимо я что то напутал с галочками в настройках проектов. Поставил параметр в проект

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

#param /Compilers.LoadIds=on

всё собралось. Потом убрал, проверил все эти галки настройках проектов в випере - собралось.

Для того чтобы в Галактике эти функции работали по Ctrl+F4 в конфиг надо прописать

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

[Compilers]
  LoadConst=on
  LoadIds=on