Перейти к основному содержимому
Версия: 6.x

How-to: FOR

Пример 1​

Условие​

Есть список книг с наименованиями.

CLASS Book 'Книга';
name 'Наименование' = DATA ISTRING[50] (Book);

FORM books 'Книги'
    OBJECTS b = Book
    PROPERTIES(b) name, NEW, DELETE
;

NAVIGATOR {
    NEW books;
}

Нужно найти все книги, содержащие определенную строк и выдать сообщение с именем и внутренним кодом.

Решение​

findNemo 'Найти книгу' ()  {
    FOR isSubstring(name(Book b), 'Nemo') DO {
        MESSAGE 'Найдена книга ' + name(b) + ' с внутренним кодом ' + b;
    }
}
EXTEND FORM books
    PROPERTIES() findNemo
;

Для определения содержит ли одна строка другую используется свойство isSubstring, определенное в системном модуле Utils.

Пример 2​

Условие​

Аналогично Примеру 1.

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

Решение​

add100Books 'Добавить 100 книг' ()  {
    // Вариант 1
    FOR iterate(INTEGER i, 1, 100) NEW b = Book DO {
        name(b) <- 'Книга ' + i;
    }

    // Вариант 2
    FOR iterate(INTEGER i, 1, 100) DO {
        NEW b = Book {
            name(b) <- 'Книга ' + i;
        }
    }
}

EXTEND FORM books
    PROPERTIES() add100Books
;

Оба варианта идентичны с точки зрения полученного результата.

Для решения задачи используется свойство iterate, определенное в системном модуле Utils, которое принимает значение TRUE для всех целых чисел в диапазоне.

Пример 3​

Условие​

Аналогично Примеру 1, но добавлена логика заказов. Для каждого заказа заданы строки с указанием книги, цен со скидками.

CLASS Order 'Заказ';

CLASS OrderDetail 'Строка заказа';
order 'Заказ' = DATA Order (OrderDetail) NONULL DELETE;
book 'Книга' = DATA Book (OrderDetail);
nameBook 'Книга' (OrderDetail d) = name(book(d));

price 'Цена' = DATA NUMERIC[14,2] (OrderDetail);

discount 'Скидка, %' = DATA NUMERIC[8,2] (OrderDetail);
discountPrice 'Цена со скидкой' = DATA NUMERIC[14,2] (OrderDetail);

Нужно создать действие, которое проставит скидку всем строкам, у которых цена больше 100.

Решение​

makeDiscount 'Сделать скидку' (Order o)  {
    // Вариант 1
    FOR order(OrderDetail d) == o AND price(d) > 100 DO {
        discount(d) <- 10;
        discountPrice(d) <- price(d) * (100.0 - discount(d)) / 100.0;
    }

    // Вариант 2
    discount(OrderDetail d) <- 10 WHERE order(d) == o AND price(d) > 100;
    discountPrice(OrderDetail d) <- price(d) * (100.0 - discount(d)) / 100.0 WHERE order(d) == o AND price(d) > 100;
}

Оба варианта идентичны с точки зрения полученного результата.

Пример 4​

Условие​

Аналогично Примеру 3, но для книги добавлена цена по умолчанию.

price 'Цена' = DATA NUMERIC[14,2] (Book);

Нужно создать действие, которое добавит в заказ все книги с ценой больше 100.

Решение​

addSelectedBooks 'Добавить отмеченные книги' (Order o)  {
    // Вариант 1
    FOR price(Book b) > 100 NEW d = OrderDetail DO {
        order(d) <- o;
        book(d) <- b;
        price(d) <- price(b);
    }

    // Вариант 2
    FOR price(Book b) == NUMERIC[14,2] p AND p > 100 NEW d = OrderDetail DO {
        order(d) <- o;
        book(d) <- b;
        price(d) <- p;
    }
}

Оба варианта идентичны с точки зрения полученного результата.