Программирование на Атлантисе (VIP, FCOM, ARD), FastReport
Модераторы: m0p3e , edward_K , Модераторы
Diman
Постоянный гость
Сообщения: 56 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сообщение
Diman » 23 дек 2009, 15:48
m0p3e спасибо большое, кажется заработало, правда пока склоняет неверно, но это уже мелочи))))
Diman
Постоянный гость
Сообщения: 56 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сообщение
Diman » 23 дек 2009, 18:01
Ребята, опять проблема, отчет компилился нормально, но при запуске из самой галактики выдается предупреждение ExObjIfcNoInit
Вставил функцию GetVipRef(iOdecl,’odeclension’);, при компиляции support стал выдавать ошибку и сам закрываться.Может как-то по другому нужно?
m0p3e
Местный житель
Сообщения: 1386 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Сообщение
m0p3e » 23 дек 2009, 18:39
У меня даже без GetVipRef - это чудо научнотехнической мысли под названием FCOM валится с рантаймом при компиляции.
Diman
Постоянный гость
Сообщения: 56 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сообщение
Diman » 23 дек 2009, 18:40
Это значит, что выхода нет?
m0p3e
Местный житель
Сообщения: 1386 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Сообщение
m0p3e » 23 дек 2009, 18:42
Работать обязано. Просто с бубном не под тем углом стоим.
m0p3e
Местный житель
Сообщения: 1386 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Сообщение
m0p3e » 23 дек 2009, 19:22
Вот такой отчет собирается/запускается?
Код: Выделить всё
.form 'DeclTest'
.NameInList 'Проверка склонения'
.ard
.declare
#define ComponentVersion
#include odecl.vih
.enddeclare
.var
iDecl : Declension;
.endvar
.create View P var PersNrec : comp as select nrec, FIO from Persons where (( PersNrec == Persons.nrec ));
.begin
RunInterface('F_Podot::GetPers',P.PersNrec);
end.
.{table 'P:MAIN'
.fields
iDecl.FIOdeclension(P.Persons.nrec,P.Persons.FIO,1)
iDecl.FIOdeclension(P.Persons.nrec,P.Persons.FIO,2)
iDecl.FIOdeclension(P.Persons.nrec,P.Persons.FIO,3)
iDecl.FIOdeclension(P.Persons.nrec,P.Persons.FIO,4)
iDecl.FIOdeclension(P.Persons.nrec,P.Persons.FIO,5)
iDecl.FIOdeclension(P.Persons.nrec,P.Persons.FIO,6)
.endfields
^
^
^
^
^
^
.}
.endform
Diman
Постоянный гость
Сообщения: 56 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сообщение
Diman » 23 дек 2009, 19:42
Нет, не компилируется, пишет , что ожидается конец строчки .Form 'DeclTest' и тд.
m0p3e
Местный житель
Сообщения: 1386 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Сообщение
m0p3e » 23 дек 2009, 19:51
Смотрим внимательно, что скопировано. Должен он работать.
В своей же форме нужно добавить строчку
.declare
#define ComponentVersion
#include odecl.vih
.enddeclare
Diman
Постоянный гость
Сообщения: 56 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сообщение
Diman » 24 дек 2009, 11:34
Текущая ситуация такая: вставил #define ComponentVersion в свою форму, компилятор опять ругаеццо: Синтаксическая ошибка в директиве макропроцессора
m0p3e
Местный житель
Сообщения: 1386 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Сообщение
m0p3e » 24 дек 2009, 12:04
Либо синтаксическия ошибка, либо инструментарий совсем старый. Какая версия саппорта?
Diman
Постоянный гость
Сообщения: 56 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сообщение
Diman » 24 дек 2009, 13:17
Support 5.4.14
m0p3e
Местный житель
Сообщения: 1386 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Сообщение
m0p3e » 24 дек 2009, 13:24
Можно вашу форму мне на m0p3e(at)mail.ru
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188 Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb
Сообщение
edward_K » 24 дек 2009, 13:40
#define ComponentVersion
надо наверное перед формой ставить.
я когда то писал для fcom #include predefs.inc - большиству форм это хватало - давно только то было - на 810 не покатит наверное.
m0p3e
Местный житель
Сообщения: 1386 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Сообщение
m0p3e » 24 дек 2009, 14:18
edward_K писал(а): #define ComponentVersion
надо наверное перед формой ставить.
Ага. Именно так. Хотя при компиляции ВИП-ом и из блока .define .enddefine скушала. Стойкая аллергия у меня на FCOM еще с до-VIP времен.
Diman
Постоянный гость
Сообщения: 56 Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сообщение
Diman » 24 дек 2009, 14:45
Всем большое спасибо,особенно m0p3e! Сейчас все четко работает!