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

[Darikon]

Не получается вытащить наименование аналитики из проводок (Это книга бух.проводок) с помощью своей функции. ошибка выходит до применения GetAnyKau (Галактика 8.1):

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

Возникло необработанное исключение
ExObjIfcNoLoad(ExRef)
ошибка загрузки объекта из ресурсного файла(ContextList)

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

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

#ifdef ComponentVersion
#component "z_zar"
#endif
#include C:\Gal810\!Work\Include\contexts.vih  // Контексты
Interface KAUtoNKAU AlwaysReturn;
#include C:\Gal810\!Work\Include\ServKau.vih   // Регистрация контекста
Parameters wKau1, cKau1, sKau1; //Код аналитики, nrec аналитики, наименование аналитики

cmInit:
  {
  if GetAnyKau(0,wKAU1,CKAU1) then
    SKAU1:=GivenAnName(1);
  }
end; //HandleEvent
end.

[Masygreen]

а где корневая вюха .. ?

[edward_K]

1. Никогда не пишите с путями!. Для это есть опции в Cfg.
2. #include vih между interface - end. не допустимо.
3. а для этих функций вообще ничего не нужно! Ну разве что InitServTxo(0) и то если ничего если так не получиться(версия старая например).

[Darikon]

Masygreen

а где корневая вюха .. ?

вырезал, для лаконичности.
edward_K

1. Никогда не пишите с путями!. Для это есть опции в Cfg.
2. #include vih между interface - end. не допустимо.
3. а для этих функций вообще ничего не нужно! Ну разве что InitServTxo(0) и то если ничего если так не получиться(версия старая например).

1. пробовал и так и так, работает одинаково!!!
2. посмотрите использование servkau.vih в примере http://www.tyumbit.ru/gal_forum/viewtop ... 1e296a0d5e - там приведен сам vih, и в нем указан пример применения.
3. InitServTxo в 8.1 не используется, разве нет?

Кстати, указав

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

#define ComponentVersion

я решил проблему с валящимися ошибками, но наименование все равно не вытаскивается....

[Darikon]

edward_K

3. а для этих функций вообще ничего не нужно! Ну разве что InitServTxo(0) и то если ничего если так не получиться(версия старая например).

к тому же если бы ничего не нужно было, я б этот огород не городил...

[Darikon]

после указания дефайна, и кое каких мелочей, все нормально заработало, спасибо за подсказки.
и огромное спасибо Виталию Корзюку за помощь!

[Алексей]

Погодите... разве функция GetAnyKau не паскалевская? Для неё никаких вихов ненадо, она и так работает без всякой инициализации (в 8.10).

[Darikon]

Алексей

Погодите... разве функция GetAnyKau не паскалевская? Для неё никаких вихов ненадо, она и так работает без всякой инициализации (в 8.10).

ага, попробуй . читайте, плиз, внимательнее , об этом уже писалось выше ...

[Алексей]

Darikon ещё раз утверждаю, функция GetAnyKau - паскалевская и работает безовсяких фих файлов. Кроме того, в 810 даже не надо делать InitServKau.

[Darikon]

Алексей
во первых, оно не работало, во вторых, InitServKAU в 810 НЕ используется!

[Алексей]

Darikon
1. не работаЛО или не работаЕТ ? у меня РАБОТАЕТ уже лет 5 во всех конверторах касающихся аналитики по проводкам.
2. я и написал что в 810 НЕ НАДО делать инитсервкау.

З.Ы.: Мой пост был ответом на ваше "ага, попробуй....".

[Darikon]

Алексей
работает с ServKau.vih
без него getanykau данных не выводит

[Darikon]

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

[Алексей]

В конверторе. Попробуйте встать на любую проводку в галактике и по Ctrl+F4 вызвать следующую функцию:

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

if(GetAnyKau(0,oborot.TBLKS[1],oborot.KAUKS[1]),GivenAnName(1),'')

КАУ1 по кредиту должно быть заполнено.
На самом деле функция которая выводит значения - GivenAnName.

[Darikon]

Алексей
да, по Ctrl-F4 функция выводит значение.
а в отчете, с использованием функции, без servkau не работает, выдает пустое значение.