Axapta 3.0 SP3
Возможно для большинства поситителей этого форума такой проблемы уже давно не существует, но поиск ( может плохо искал ? ) ответов на этот вопрос не дал. Так что излагаю то что удалось найти.
Суть топика скорее сводится к медленной работе метода ComWordDocument_RU.InsertFieldValue(). Небольшие манипуляции с профайлером кода показывают что основное время тратится на вызов ComWordDocument_RU.FindField.
Посмотрим на код этого метода:
PHP код:
protected COM FindField(MSOfficeBookMark_RU _bookMark)
{
COM fields, Field, FieldTmp;
int i;
;
try
{
if (m_comDocument)
{
Fields = m_comDocument.FormFields();
if (substr(m_comApplication.version(), 1 ,1) >= '9') // Word 2000 and later
{
field = fields.item(_bookMark);
}
else
{
for (i=1 ; i<= fields.count() ; i+=1)
{
fieldTmp = fields.item(i);
if (fieldTmp.name() == _bookMark)
{
field = fieldTmp;
break;
}
}
if (! field)
{
info(StrFmt("@DIS12564", _bookMark));
}
}
}
else
{
info(StrFmt("@DIS6408", this.GetApplicationName()));
}
}
catch(exception::error)
{
info(StrFmt("@DIS12564", _bookMark));
}
return field;
}
а вот это уже интересно:
PHP код:
if (substr(m_comApplication.version(), 1 ,1) >= '9') // Word 2000 and later
{
field = fields.item(_bookMark);
}
else
{
for (i=1 ; i<= fields.count() ; i+=1)
{
fieldTmp = fields.item(i);
if (fieldTmp.name() == _bookMark)
{
field = fieldTmp;
break;
}
}
if (! field)
{
info(StrFmt("@DIS12564", _bookMark));
}
}
Судя по комментарию ( DIS-слой ) для Word2000 и более поздних выбор поля должен происходить с использованием быстрой конструкции fields.item(_bookMark). На деле же из-за коряво написанного условия определения версии приложения
PHP код:
if (substr(m_comApplication.version(), 1 ,1) >= '9') // Word 2000 and later
поиск поля заваливается в цикл с последовательным перебором полей документа.
Кому не лень, может загрузить Word и посмотреть major номер версии приложения - для Word2002 это будет что-то типа "
10.2627.2625", соответсвенно проверка
if( substr( '10.2627.2625', 1, 1 ) >= '9' ) еще долго не вернет TRUE
и будет обрекать счастливых обладателей последних версий продуктов от Microsoft на длительное ожидание
Небольшая модификация условия: ( в потомке или непосредственно в ComWordDocument_RU - кому как нравится )
PHP код:
if( str2int( m_comApplication.version() ) >= 9 ) // Word 2000 and later
приводит к заметному оживлению вывода в Word при условии что он не древнее Word2000.
Ну вот пожалуй и все что удалось накопать.