Страница 1 из 2

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

Добавлено: 26 сен 2008, 16:40
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.

Добавлено: 26 сен 2008, 20:56
Masygreen
а где корневая вюха .. ?

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

Добавлено: 27 сен 2008, 10:33
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
я решил проблему с валящимися ошибками, но наименование все равно не вытаскивается....
:-(

Добавлено: 27 сен 2008, 10:34
Darikon
edward_K
3. а для этих функций вообще ничего не нужно! Ну разве что InitServTxo(0) и то если ничего если так не получиться(версия старая например).
к тому же если бы ничего не нужно было, я б этот огород не городил...

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

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

Добавлено: 01 окт 2008, 11:29
Darikon
Алексей
Погодите... разве функция GetAnyKau не паскалевская? Для неё никаких вихов ненадо, она и так работает без всякой инициализации (в 8.10).
ага, попробуй :D . читайте, плиз, внимательнее , об этом уже писалось выше ...

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

Добавлено: 01 окт 2008, 12:10
Darikon
Алексей
во первых, оно не работало, во вторых, InitServKAU в 810 НЕ используется!

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

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

Добавлено: 01 окт 2008, 16:42
Darikon
Алексей
работает с ServKau.vih
без него getanykau данных не выводит

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

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

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

if(GetAnyKau(0,oborot.TBLKS[1],oborot.KAUKS[1]),GivenAnName(1),'')
КАУ1 по кредиту должно быть заполнено.
На самом деле функция которая выводит значения - GivenAnName.

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