ObjMC.vih

[Evchic]

Добрый день!
Необходим файл ObjMC.vih для корректной работы с данными из каталога Мц в собственном интерфейсе!
в galFrm.rar старый! от 05/09/2006

возможно в L_MCU была поставка свежего но к сожаленью он не сохранился!
а при использовании старого возникает ошибка!
---------------------------
Предупреждение
---------------------------
Возникло необработанное исключение
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.

Ошибка

[ZYG]

Данный файл не менялся как раз с 5.9.2006


#ifdef ComponentVersion
#component "L_MCU"
#end

#include MCU_Types.vpp

#doc
Объектный интерфейс описывает методы создания МЦ
#end
ObjInterface oObjMC_Obj1;


#doc
Создает новый буфер KatMC
#end
function KatMC_Default (var _wMC : TKatMC_p; //Спозиционированный Буфер KatMC
isMessErr : boolean //Выдавать ли сообщения об ошибках
) : boolean;
//******************************************************************************
#doc
Добавляет новую МЦ по заполненому буферу KatMC
#end
function KatMC_Insert (var _wMC : TKatMC_p; //Спозиционированный Буфер KatMC
isSetBarKod : boolean; //Сформировать ли Бар-код по настройкам
isMessErr : boolean //Выдавать ли сообщения об ошибках
) : comp; //NRec новой записи, иначе 0
//******************************************************************************
#doc
учетная единица
#end
function KatMc_GetUchEd(_cMC: comp): comp;
//******************************************************************************
#doc
группа налогов
#end
function KatMc_GetGrNal(_cMC: comp): comp;
//******************************************************************************
#doc
отпускная единица по МЦ и/или учетной единице
#end
function KatOtpEd_ByKatEd(_cMC: comp; _cKatEd: comp): comp;
//******************************************************************************
#doc
Проверка на наличие внешних ссылок на МЦ
#end
function KatMC_isLink (_rMC : comp; //Ссылка на МЦ
TipMessInfo : word //Тип сообщения о наличии внешних ссылок
// 0 - не выдавать сообщения
// 1 - выдавать стандартное сообщение
) : boolean; //True - имеются ссылки / False - нет
//******************************************************************************
#doc
Удаление МЦ
#end
function KatMC_Delete (_rMC : comp; //Ссылка на МЦ
TipFindLink : word; //Тип проверки на наличие внешних ссылок
// 0 - не проверять
// 1 - при наличии: НЕ удалять
// 2 - при наличии: по запросу
TipMessInfoLink : word; //Тип сообщения о наличии внешних ссылок
// 0 - не выдавать сообщения
// 1 - выдавать стандартное сообщение
TipMessInfo : word //Тип сообщения о причинах неудачного удаления
// 0 - не выдавать сообщения
// 1 - выдавать стандартное сообщение
) : boolean; // True - удалили / False - нет
//******************************************************************************
#doc
Проверка на добавление новой записи
#end
function KatMC_isNewRecord (TipMessInfo : word //Тип сообщения о наличии внешних ссылок
// 0 - не выдавать сообщения
// 1 - выдавать стандартное сообщение
) : boolean;
//******************************************************************************
#doc
Заполняет буфер KatMC значениями по умолчанию
#end
function KatMC_DefaultFields (var _wMC : TKatMC; //Буфер KatMC
isMessErr : boolean //Выдавать ли сообщения об ошибках
) : boolean;
//******************************************************************************
#ifdef GAL7_1
#doc
Наследование полей Шаблона
#end
function CopyMaskFields (var _wMC : TKatMC; //Буфер KatMC
_wMaskMC : TMaskMC; //Буфер MaskMC
TipMessInfo : word; //Тип сообщений
// 0 - по настройке
_isVisual : boolean //Включить ли визуализацию
) : boolean; //True - изменения произошли/False - нет
#end
//******************************************************************************
#doc
Проверка буфера МЦ на возможность обновления
#end
function KatMC_IsUpd (_wMC : TKatMC; //Буфер KatMC
TipMessInfo : word //Тип сообщения о наличии внешних ссылок
// 0 - не выдавать сообщения
// 1 - выдавать стандартные сообщения
) : boolean; //NRec новой записи, иначе 0
//******************************************************************************
#doc
проверка на уникальность полей по настройке
#end
Function IsUniqMc ( isMessErr : boolean; //Выдавать ли сообщения об ошибках
isMess : boolean; //Выдавать ли предупреждающие сообщения
__Bar : string; __Name : string; __Obozn : string; __NRec : comp) : boolean;

end;
VipInterface oObjMC implements oObjMC_Obj1
#ifdef ATL51
licensed (FREE)
#end
;

[Evchic]

Вот ссылка на мой проэкт подскажите что тогда не так?
http://galug.ucoz.ru/_test_mc.rar

[Evchic]

Вопрос снят
забыл #ifdef GAL7_1