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)
Вылет при использованиие OfficeTeplate
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Вдогонку. ОС здесь не причем.
Если я включаю объект "как положено", как отдельный embed, до начала
выборки, то все ок. Это ж как-то неправильно. Вдруг выводить нечего, а
Excel уже пошел. (см *1)
Если тот же текст руками вставить ниже (см.*2), а *1 убрать - то вылет
--
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)