Галактика в вопросах и ответах

Нужны Vih для применения iObjNDTunes.wGetBuhTune
Грешу на старые версии или неверный набор вихов.
выдает сообщение:

Возникло необработанное исключение 
ExIfcBadCheckSum (ExRef)
Несовпадение контрольной суммы ObjInterface F_DISTPL::iObjNDTunes

я использовал:

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

#include NalTunes.vih     // от 24,08,2006
#include RaznSopHoz.vih         // от 03,11,2004 

                    cxRasp := iObjNDTunes.wGetBuhTune(cgBuh_DistrScheme, SoprHoz.TiDkGal, tError);
                    RaznInt.Init(SoprHoz.Nrec,cxRasp);
                    RaznInt._DoDistrSoprHoz(SoprHoz.Nrec,cxRasp);

Галактика 8.10

\\server\gal810\exe\Frm\F_DistPl.rar

Алексей
в этом архиве нет NalTunes, а в RaznSopHoz.vih нет
описания wGetBuhTune и оно для распределения документа.
сообщение об ошибке конкретно появляется на строке

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

cxRasp := iObjNDTunes.wGetBuhTune(cgBuh_DistrScheme, SoprHoz.TiDkGal, tError);

далее все отрабатывает как надо....

З.Ы. это место хранения я знаю

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

#ifndef __ObjNalDistrTunes__
#define __ObjNalDistrTunes__

#ifdef ComponentVersion
#Component "F_DistPl"
#end

#doc
  Объект описания, получения и хранения настроек связанных с режимами привязки
к платежу ДО, накладных, договоров. Настроек пост обработки платежей.
#end

ObjInterface ObjNalDistrTunes;
// tTune - константа настройки из NalTunes.inc
// если tError = 1, возникла ошибка

#doc
 функция получения значения настройки типа word
#end
  Function wGetBuhTune(tTune : longint; tTiDkGal : word; var tError : word) : word;
#doc
 Функция получения значение настройки типа comp
#end
  Function coGetBuhTune(tTune : longint; tTiDkGal : word; var tError : word) : comp;

// ==== этими функциями пользоваться только в случае КРАЙНЕЙ НЕОБXОДИМОСТИ ====
#doc
 Функция установки настройки типа word
#end
  Function wSetBuhTune(tTune : longint; tTiDkGal : word; tValue : word) : boolean;
#doc
 Функция установки настройки типа comp
#end
  Function coSetBuhTune(tTune : longint; tTiDkGal : word; tValue : comp) : boolean;

#doc
  Функция возвращает описание последней возникшей ошибки
#end
  Function GetLastError : string;

#doc
  Функция для копирования настроек между пользователями
#end
#ifdef GAL8_1
  Function CopyTunesUsers(fromUser, toUser : comp) : boolean;
#else
  Function CopyTunesUsers(fromUser, toUser : string) : boolean;
#end
end;

VipInterface iNalDistrTunes
  Implements ObjNalDistrTunes
  #ifdef Atl51
  Licensed (Free)
  #end
;

#end

спасибо
был еще один вариант naltunes, но не помогло. видимо вопрос еще в чем то..

Несовпадение контрольной суммы - это либо VIH не тот, либо при компиляции не заданы / неправильно заданы директивы #define.

Вы новую разработку делаете, или она уже работала раньше с другим набором патчей? Какую версию F_DISTPL используете?

делаю новую.
перед interface:

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

#define ComponentVersion
#ifdef ComponentVersion
#component "F_DISTPL"
#end

Версия:

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

• RES   F_DISTPL              8.10.41.0            1 350 386   .\F_DISTPL.RES

Для версии 8.10.41.0 подходит файл от galover. Есть более свежий вариант, его пока не трогайте. И еще надо

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

#define GAL8_1
#define Atl51

Хотя, насчет последнего не уверен. Может, если Licensed (Free) явно не указать, оно по умолчанию встанет. А GAL8_1 обязательно должно определяться, без него совсем другая строка скомпилируется, пробегитесь по тексту - увидите.

KATZ
спасибо!