Вывод в Excel через Array - DAX: Программирование

Roman N. Krivov · 04.05.2010, 17:23

Доброго времени суток.

Задача: Создать отчет в Excel с табличной частью из шаблона
Решение: Есть в отчете табличная область, например, A19:CG35 (N столбцов и M строк). Я заполняю массив Array N x M раз.

X++:

protected boolean fillData()
{
    . . .
    ;
    reportRows = 0;

    . . .

        while select returnLine
            where returnLine.JournalId                  == returnTable.JournalId
        {
             inventTable = InventTable::find(returnLine.ItemId);
             custInvoiceJour = CustInvoiceJour::findFrominvoiceId(returnLine.InvoiceId);
             custInvoiceTrans = CustInvoiceTrans::findRecId(returnLine.CustInvoiceTransRecId);

            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", returnLine.ItemId));
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", inventTable.ItemName));
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", inventTable.ItemArticle));
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", custInvoiceJour.InvoiceExternalId));
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", custInvoiceJour.InvoiceDate));

            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", custInvoiceTrans.Qty));
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", custInvoiceTrans.SalesPrice));
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", custInvoiceTrans.amountDiscAmountInclTax()));
            tableRows.value(tableRows.lastIndex() + 1, "");
            tableRows.value(tableRows.lastIndex() + 1, "");
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", returnLine.QtyDocument));
            tableRows.value(tableRows.lastIndex() + 1, strfmt("%1", returnLine.SummDoc));
            tableRows.value(tableRows.lastIndex() + 1, "");
            tableRows.value(tableRows.lastIndex() + 1, "");
            tableRows.value(tableRows.lastIndex() + 1, "");
            reportRows++;
        }

        return (reportRows > 0) ? true : false;
    }
    return false;
}

Далее вывожу данные массив в указанную область:

X++:

protected void fillTable()
{
    Bookmark    bookmark;
    ;

    bookmark = strfmt("%1%2:%3%4",
                    #FirstTableCol,
                    this.firstTableRow(),
                    #LastTableCol,
                    this.firstTableRow() + this.numOfRows() - 1);

    this.insertValue(bookmark, ExcelReportFromTemplate::array2variant(tableRows), 1);

}

В результате у меня первая строка дублируется M раз. ЧЯДНТ? Массив сформирован правильно. В нём строки не дублируются.

Microsoft Business Solution Axapta 3.0 Build #1951.3730/514-193 SP3/OP023071

**Gustav** · 04.05.2010, 18:14

Код статики ExcelReportFromTemplate::array2variant - в студию!

Хотя я более, чем уверен, что это из-за того, что нельзя передавать двумерные вариантные массивы. Это ограничение Аксапты. Вероятно, придётся в методе fillTable вводить цикл и вставлять букмарками, адреса которых лежат в пределах одной строки Excel, а не сразу всем прямоугольным диапазоном как сейчас.

gl00mie · 04.05.2010, 23:26

Помнится, вот здесь был пример импорта из двумерного массива (SafeArray), возможно, по аналогии можно реализовать и экспорт, хотя мне лично больше нравится экспорт в Excel табличных частей отчетов через ADO

Roman N. Krivov · 05.05.2010, 08:43

ExcelReportFromTemplate::array2variant

X++:

static ComVariant array2variant(Array _array)
{
    Integer    idx;
    array arr = new array (types::class);
    ;

    if (_array)
    {
        for (idx=1; idx <= _array.lastIndex(); idx++)
        {
            arr.value(idx, ExcelReportFromTemplate::createVariantFromValue(_array.value(idx)));
        }
        return ComVariant::createFromArray(arr);
    }

    return ComVariant::createNoValue();
}

ExcelReportFromTemplate::createVariantFromValue

X++:

private static ComVariant createVariantFromValue(anytype _value)
{
    str     value;
    ;
    switch (typeof(_value))
    {
        case Types::String      :
        case Types::RString     :
        case Types::VarString   :
            return ComVariant::createFromStr(_value);

        case Types::Enum        :
            return ComVariant::createFromStr(enum2Value(_value));

        case Types::Integer     :
            return ComVariant::createFromInt(_value);

        case Types::Real        :
            return ComVariant::createFromReal(_value);

        case Types::Date        :
        case Types::DateTime    :
            return ComVariant::createFromDate(_value);

        case Types::Real     :
            return ComVariant::createFromReal(_value);

    }
    return ComVariant::createNoValue();
}

Roman N. Krivov · 05.05.2010, 08:45

Цитата:

Сообщение от gl00mie

Помнится, вот здесь был пример импорта из двумерного массива (SafeArray), возможно, по аналогии можно реализовать и экспорт, хотя мне лично больше нравится экспорт в Excel табличных частей отчетов через ADO

Конечно, вариант ADO хорош, но на небольших данных массив лучше. А данный вариант точно работает, так как видел несколько отчетов по такому же принципу. Вот только пример не сохранился

Roman N. Krivov · 05.05.2010, 08:49

Есть еще вариант сохранить Excel'евский шаблон как XML файл, его редактировать и открывать как уже готовый. Вот только как выделить оттуда табличную часть и добавить нужное количество строк с разбивкой по страницам - данная задача без конкретного решения.

Владимир Максимов · 05.05.2010, 10:36

Цитата: