Вылет при использованиие OfficeTeplate

Программы на Clarion, шаблоны, библиотеки и пр.

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Гость

Сообщение Гость »

Hello ClaList,

Может кому интересно?
Модуль по формированию и выгрузке отчета в Excel с использованием
шаблонов для офиса от SoftMasters. Сделан недели три назад. Работал
не совсем устойчиво, но работал. Т.е. вылетал изредка. Теперь
постоянно. Фрагмент кода, на котором происходит вылет:

Message('Трассирование ошибки 1.')
!Вывод в отчет
if records(q1)
MSExcel2.Init(Window,?SMExcel,1,1,1)
Message('Трассирование ошибки 2.')

Первое сообщение еще выводится, затем "...fin.ехе вызвало ошибку и
будет закрыто..."
Проблема пока не решена. Лог Ватсона прилагаю.
Есть подозрение, что программа здесь не причем. Хотя вылеты
происходят на разных машинах, из под разных систем, при загрузке
локальной или с сети.

--
Best regards,
gorky mailto:gorky@sv3.net.ua

(Добавление)

Какая ОС, и какой MS Office?

--
Best regards,
Alexander mailto:aperepechay@aktour.com
Написал: ClaList(2)
Гость

Сообщение Гость »

ОС 2000 см. Ватсона
Офис тоже 2000
на другой соответственно W98 и Офис97

--
Best regards,
gorky
Написал: ClaList(2)
Гость

Сообщение Гость »

Вдогонку. ОС здесь не причем.
Если я включаю объект "как положено", как отдельный embed, до начала
выборки, то все ок. Это ж как-то неправильно. Вдруг выводить нечего, а
Excel уже пошел. (см *1)
Если тот же текст руками вставить ниже (см.*2), а *1 убрать - то вылет

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

*1  MSExcel2.Init(Window,?SMExcel,1,1,1)
      ! [Priority 4049]
          Message('Трассирование ошибки 0.')
          free(q1)
          PLA:date=Loc:dateEnd; set(PLA:d,PLA:d)
          loop until access:plat.next()
               ...
          .
          Message('Трассирование ошибки 1.')
          !Вывод в отчет
          if records(q1)
*2           MSExcel2.Init(Window,?SMExcel,1,1,1)
             Message('Трассирование ошибки 2.')

--
Best regards,
gorky
Написал: ClaList(2)
Гость

Сообщение Гость »

:kruto::up::down::gigi::laugh::lol::confused::eek::insane::o:mad::kruto::down::rotate::super::eyes::love::helloween::D:lamer:
Ответить