поделитесь ObjMC.vih

[evchic]

Все привет!
Может у кого есть ObjMC.vih старше 05,09,2006г.
вышлите пожалуйста на evchic@mail.ru

[Алексей]

У меня такой же. В ехе\frm тоже не нашел (после установки патчей).

Может в ТП запросить? И почему вы решили что он менялся, падает галка при использовании?

[evchic]

нет не падает говорит о не совпадении контрольной суммы

[edd]

А почему вы решили, что это сообщение касается именно ObjMC.vih?

[evchic]

да потому что использую его

[evchic]

---------------------------
Предупреждение
---------------------------
Возникло необработанное исключение
ExIfcBadCheckSum (ExRef)
несовпадение контрольной суммы ObjInterface L_MCU::oObjMC_Obj1

"Да" - Продолжить, "Нет" - Отлаживать в окне отладчика
"Отмена" - Не выдавать больше это сообщение
---------------------------
Да Нет Отмена
---------------------------

[evchic]

Из дока

ObjInterface L_MCU::oObjMC_Obj1
Объектный интерфейс описывает методы создания МЦ
Методы
Function KatMC_Default (var _wMC : TKatMC_p; isMessErr : Boolean) : Boolean;
Создает новый буфер KatMC
Function KatMC_Insert (var _wMC : TKatMC_p; isSetBarKod : Boolean; isMessErr : Boolean) : Comp;
Добавляет новую МЦ по заполненому буферу KatMC
Function KatMc_GetUchEd (_cMC : Comp) : Comp;
учетная единица
Function KatMc_GetGrNal (_cMC : Comp) : Comp;
группа налогов
Function KatOtpEd_ByKatEd (_cMC : Comp; _cKatEd : Comp) : Comp;
отпускная единица по МЦ и/или учетной единице
Function KatMC_isLink (_rMC : Comp; TipMessInfo : Word) : Boolean;
Проверка на наличие внешних ссылок на МЦ
Function KatMC_Delete (_rMC : Comp; TipFindLink : Word; TipMessInfoLink : Word; TipMessInfo : Word) : Boolean;
Удаление МЦ
Function KatMC_isNewRecord (TipMessInfo : Word) : Boolean;
Проверка на добавление новой записи
Function KatMC_DefaultFields (var _wMC : TKatMC; isMessErr : Boolean) : Boolean;
Заполняет буфер KatMC значениями по умолчанию
Function CopyMaskFields (var _wMC : TKatMC; _wMaskMC : TMaskMC; TipMessInfo : Word; _isVisual : Boolean) : Boolean;
Наследование полей Шаблона
Function KatMC_IsUpd (_wMC : TKatMC; TipMessInfo : Word) : Boolean;
Проверка буфера МЦ на возможность обновления
Function IsUniqMc (isMessErr : Boolean; isMess : Boolean; __Bar : String; __Name : String; __Obozn : String; __NRec : Comp) : Boolean;
проверка на уникальность полей по настройке
Реализован в объектах
L_MCU::oObjMC

Мой код

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

Interface Ev_test_MC 'Пример' (,,scr1Esc)
var MC_Func : oObjMC_Obj1;
Create view
as select * from KatMC;

browse br1;
show (,,,15);
table KatMc;
Fields
KatMc.Name 'Наименование маценности' :[15],protect;
end;

screen src1;
show (,16,,);
Buttons
cmOk;
<<
   <. Выполнить .>
>>
end;
HandleEvent
cmInit:{ GetVipRef(MC_Func, 'oObjMC');};
cmDone:{ FreeVipInterface(MC_Func);};
cmOk:{ Message(MC_Func.KatMc_GetUchEd(KatMC.Nrec));};
end; // handleEvent
end.

Ошибка

[KATZ]

Там много #ifdef и #ifndef встречается, м. б. из-за них какой-нибудь нужный кусок выпадает (или наоборот, ненужный компилируется). Особенно обратите внимание на #ifdef GAL7_1.

[evchic]

Там много #ifdef и #ifndef встречается, м. б. из-за них какой-нибудь нужный кусок выпадает (или наоборот, ненужный компилируется). Особенно обратите внимание на #ifdef GAL7_1.

Да с этим все понятно единственный кусок который там не компилирую это

#ifdef ComponentVersionInDict
#include iKatMC.vih
#include iMaskMC.vih
#end

Если проблемма из за нее то где взять iKatMC.vih и iMaskMC.vih

[KATZ]

Нет, у меня этот кусок выброшен, без него всё нормально работает. VIH от 2006 года, L_MCU может, не самый последний, но один из последних.

Дело, скорее всего, в директивах компиляции. Для поиска причины предлагаю поэтапно упрощать текст, выкидывать все #doc/#ifdef/#ifndef и оставлять только полезные строки. В какой-то момент решение отыщется, чудес не бывает.

[evchic]

Нет, у меня этот кусок выброшен, без него всё нормально работает. VIH от 2006 года, L_MCU может, не самый последний, но один из последних.

Дело, скорее всего, в директивах компиляции. Для поиска причины предлагаю поэтапно упрощать текст, выкидывать все #doc/#ifdef/#ifndef и оставлять только полезные строки. В какой-то момент решение отыщется, чудес не бывает.

Приведи пример своего MCU_Types.vpp пожалуйста

[KATZ]

После максимального упрощения останется 4 строки:

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

type TKatMC    = record as table KatMC;
type TKatMC_p  = record as table KatMC  with x$position;
type TMaskMC   = record as table MaskMC;
type TMaskMC_p = record as table MaskMC with x$position;