Создание хитрого отчёта

[bagyr]

Здраствуйте!

На приложеной картинке показана сруктура Query.

Нужно создать три секции:
1ая должна брать данные из InventLocation
2ая должна брать данные из Cust_Prime_Price и подчинённой InventTable
3яя должна брать данные из подчинённой Cust_Prime_Price и её подчинённой InventTable

С первыми двумя секциями нет промбем, с третьей есть проблемы.
Возможно ли это сделать без программируемой секции?

[bagyr]

Да, вот сама картинка.

[Zan]

Делал я когда-то похожий отчет.

В данной ситуации, когда используются датасурсы одинаковых таблиц,
без программируемой секции никак не обойтись.
Да и еще ваше Query надо будет немного подсократить.
Cust_Prime_Price_1 и InventTable_1 надо будет убрать для порядку.

[bagyr]

Удалил полностьб все датасорсы и сделал 3 программируемых секции. Вот как получилось:

PHP код:

    s1 = "";
    while
        select Name from il
            order by Name
        join Prime_Price, Deport, Id_Production, Quantity from cpp1
            where il.InventLocationId == cpp1.Deport
                && cpp1.Calc_Month == str2date("01/10/2004", 123)
                && cpp1.Id_stuff == 0
        join ItemName from it1
            order by ItemName
            where cpp1.Id_Production == it1.RGUID
                && it1.RxPack == 0
    {
        if (s1 != il.Name)
        {
            s1 = il.Name;
            mmDep = il.Name;
            element.execute(1);

            element.executeControlColumnHeadings(2);
        }
        mmPName = it1.ItemName;
        mmPrime = cpp1.Prime_price;
        element.execute(2);

        element.executeControlColumnHeadings(3);
        while
            select Cust_Price, Quantity from cpp2
                where cpp2.Calc_Month == str2date("01/10/2004", 123)
                    && cpp2.Id_Production == cpp1.Id_Production
                    && cpp2.Deport == cpp1.Deport
                    && cpp2.Id_stuff != 0
            join ItemName from it2
                order by ItemName
                where cpp2.Id_stuff == it2.RGUID
                    && it2.RxPack == 0
        {
            mmSName = it2.ItemName;
            mmQty = cpp2.Quantity / cpp1.Quantity;
            mmCPrice = cpp2.Cust_price;
            mmSumm = mmCPrice * mmQty;
            element.execute(3);
        }
    } 


Для каждой mm* свой датаметод.

[mazzy]

Цитата:

Изначально опубликовано bagyr
Удалил полностьб все датасорсы и сделал 3 программируемых секции.

Во-первых, пользователи вашего отчета потеряли возможность вводить критерии поиска.
Во-вторых, они потеряли возможность управлять сортировкой
В-третьих, они потеряли возможность выводить только итоги и пользоваться другими опциями (очень полезными кстати)

В-четвертых, вы используете неокругленное значение mmQty = cpp2.Quantity / cpp1.Quantity

В-пятых, вы очень странно выполняете группировку.
В-шестых, вы наверняка для строки s1 использовали тип str, что приведет к чудовищным последствиям при смене выравнивания в name (случай гипотетический, но последствия будут неприятными )

В-седьмых, не используйте функцию str2date("01/10/2004", 123), пишите литерал 01\10\2004;

В-восьмых, что это за магическая константа?

И т.п.

Самым главным недостатком приведенного кода считаю то, что пользователя лишили очень удобного инструмента для ввода критериев, сортировки и управления параметрами отчета. Не говоря уже о пакетной обработке и прочей внутренней хренотени.

Ребяты! Не программируйте.
А если уж программируете, то делайте это хорошо.
Пожалуйста.

[Zan]

Поддерживаю mazzy.

[bagyr]

> 1, 2, 3
Согласен, но пока этот отчёт предназначен только для меня (т.е. для проверки расчёта себестоимости при непрерывном производстве)
> 4
Не понял, чем это плохо? В отчёте стоит 4 знака после запятой.
> 5
Это про "if (s1 != il.Name)"? Сам только сейчас заметил, было смешно.
К тому же теоретически возможны абсолютно одинаковые названия у разных подразделений.
> 6
Я использую "str 100", вроде в этом случае выравнивание вправо не проблематично.
> 7, 8
Принято. Я сейчас всё испытываю на октябре прошлого года, вот и константа.

[bagyr]

Забыл добавить: спасибо за замечания, они очень важны для меня, т.к. я новичок в Axapta.

[mazzy]

Цитата:

Изначально опубликовано bagyr
> 4
Не понял, чем это плохо? В отчёте стоит 4 знака после запятой.

См. справочник единиц измерения. Поле "Десятичные знаки"
Главное меню \ Основное \ Настройки \ Единицы \ Единицы измерения
А также методы на таблице Unit (для начала)