Урок 12. Дерево в таблице | WT. Практика (Desktop)

В этом уроке мы рассмотрим второй вариант работы с иерархической структурой данных в виде дерева, отображаемого в таблице DatabaseTable.

Если хотите начать практику с этого урока, то вам необходимо развернуть учебный проект по инструкции в статье Разворачивание проекта.

При разворачивании проекта используйте backup базы данных, который можете найти в архиве из раздела Ответы прошлого урока. Скопируйте папки Forms, Workflow и Patterns в папку с развернутым проектом, например, в папку D:\WT\Projects\Template\Projects\1. Template.

Инструкция по подключению шаблонов находится по ссылке.

Список назначений платежей

Добавим в приложение список назначений платежей, который будет являться иерархической структурой с категориями и подкатегориями. Этот список на форме будет отображаться в виде дерева в таблице DatabaseTable. Пользователь будет иметь возможность сворачивать и разворачивать ветви дерева.

По завершению раздела у нас получатся формы:

База данных

Таблица для назначений платежей

Выполним скрипт на создание таблицы в базе данных:

CREATE SEQUENCE template.operation_id_seq;
CREATE TABLE template.operation
(
  operation_id integer NOT NULL DEFAULT nextval('template.operation_id_seq'::regclass),
  operation_category_id bigint,
  id_title character varying,
  title character varying NOT NULL,
  income boolean NOT NULL,
  archive boolean NOT NULL DEFAULT false,
  CONSTRAINT pk_operation_id PRIMARY KEY (operation_id),
  CONSTRAINT fk_operation_category_id FOREIGN KEY (operation_category_id)
      REFERENCES template.operation (operation_id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE SET NULL,
  CONSTRAINT uniq_operation_id_title UNIQUE (id_title)
);

Обратите внимание на строчку:

CONSTRAINT uniq_operation_id_title UNIQUE (id_title)

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

А в поле income будем отмечать, является ли назначение платежей доходом (true) или расходом (false).

Давайте сразу добавим системное назначение платежей "Оплата заказа", которое нам понадобится в этом уроке:

INSERT INTO template.operation(id_title, title, income)
VALUES ('OrderPaymentOperation', 'Оплата заказа', true);

Функция удаления записи

Создадим функцию для удаления назначения платежей:

CREATE OR REPLACE FUNCTION template.operation_try_delete(in_operation_id bigint)
  RETURNS character varying AS
$BODY$
DECLARE
BEGIN
  IF (SELECT NOT EXISTS(SELECT * FROM template.operation WHERE operation_id = in_operation_id)) THEN
    RETURN NULL;
  END IF;

  IF (SELECT EXISTS(SELECT * FROM template.operation WHERE operation_category_id = in_operation_id)) THEN
    RETURN 'parent';
  END IF;

  IF (SELECT used from template.is_used('operation', 'operation_id', ARRAY['operation'], ARRAY[]::text[], in_operation_id)) THEN
    UPDATE template.operation
    SET archive = TRUE
    WHERE operation_id = in_operation_id AND NOT archive;

    RETURN 'used';
  ELSE
    DELETE FROM template.operation
    WHERE operation_id = in_operation_id;
 
    RETURN NULL;
  END IF;
END;
$BODY$
  LANGUAGE plpgsql;

При удалении записи необходимо учитывать, что назначение может быть родительским для других назначений платежей, и использовать другую логику для обработки таких ситуаций. Поэтому функция возвращает тип character varying, в котором может быть одно из значений:

parent - запись является родительской;
used - запись используется в программе и перемещена в архив;
NULL - запись удалена, либо ее нет в базе данных.

Вспомогательная таблица

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

Выполним скрипт:

CREATE SEQUENCE template.cash_id_seq;
CREATE TABLE template.cash
(
  cash_id bigint NOT NULL DEFAULT nextval('template.cash_id_seq'::regclass),
  cash_date timestamp without time zone NOT NULL,
  account_id smallint NOT NULL,
  operation_id integer NOT NULL,
  summ numeric NOT NULL,
  date_created timestamp without time zone NOT NULL DEFAULT now(),
  deleted boolean NOT NULL DEFAULT false,
  date_deleted timestamp without time zone,
  CONSTRAINT pk_cash_id PRIMARY KEY (cash_id),
  CONSTRAINT fk_account_id FOREIGN KEY (account_id)
      REFERENCES template.account (account_id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION,
  CONSTRAINT fk_operation_id FOREIGN KEY (operation_id)
      REFERENCES template.operation (operation_id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION
);

Отлично! Теперь можем заняться формой для редактирования списка операций.

Форма списка

На главной форме (TemplateStart.xml) в меню добавим пункт Списки -> Назначения платежей..., по которому будет открываться новая форма (TemplateOperationList.xml).

Создадим необходимые формы для списка назначений платежей с помощью шаблона ArchiveList:

Перейдем в файл описания работы серверной части приложения (Template.xml) и скорректируем запрос OperationSelectSqlQuery:

Template.xml

<SqlQuery Name="OperationSelectSqlQuery">
  <Text>  
    SELECT
      true AS "Expand",
      -2::bigint AS "OperationId",
      NULL::bigint AS "OperationCategoryId",
      'ДОХОД' AS "Title",
      false AS "System",
      false AS "Archive"
    
    UNION ALL
    
    SELECT
      true AS "Expand",
      -1::bigint,
      NULL::bigint,
      'РАСХОД',
      false,
      false
    
    UNION ALL
    
    SELECT
      true AS "Expand",
      O.operation_id AS "OperationId",
      COALESCE(O.operation_category_id, CASE WHEN income THEN -2 ELSE -1 END) AS "OperationCategoryId",
      O.title AS "Title",
      O.id_title NOTNULL AS "System",
      O.archive AS "Archive"
    FROM template.operation O;
  </Text>
</SqlQuery>

Назначения платежей на форме будут представлены в виде дерева и разбиты на два блока, в которых записи "ДОХОД" и "РАСХОД" будут корневыми категориями.

Поле Expand будет отвечать за разворачивание/сворачивание узлов дерева.

Список назначений платежей

Перейдем в файл TemplateOperationList.xml. В описание тэга <Appearance> добавим шрифт для корневых категорий:

TemplateOperationList.xml

<FontStyle Name="TitleBoldFont" Font="Segoe UI" Size="9" Bold="True" />

Также добавим пару цветов для закраски в таблице строк корневых категорий и родительских назначений платежей:

TemplateOperationList.xml

<Color Name="Yellow" Red="249" Green="242" Blue="165" Alpha="255" />
<Color Name="LightYellow" Red="255" Green="255" Blue="213" Alpha="255" />

Заменим в OperationPrimaryGetDataConnection список полей:

TemplateOperationList.xml

<DataConnection Name="OperationPrimaryGetDataConnection" Type="PrimaryGetDataConnection" Assembly="DataConnections">
  <SqlQuery Name="OperationSelectSqlQuery" Type="Select">
    <Workflow Name="Template" />
    <Fields>
      <Field Name="Expand" />
      <Field Name="OperationId" />
      <Field Name="OperationCategoryId" />
      <Field Name="Title" />
      <Field Name="System" />
      <Field Name="Archive" />
    </Fields>
  </SqlQuery>
</DataConnection>

Для создания дерева записей в таблице DatabaseTable будем использовать TreeGetDataConnection, который на основе данных из OperationPrimaryGetDataConnection будет строить дерево.

TemplateOperationList.xml

<DataConnection Name="OperationTreeGetDataConnection" Type="TreeGetDataConnection" Assembly="DataConnections">
  <SourceDataConnection Name="OperationPrimaryGetDataConnection">
    <Fields>
      <Field Name="OperationId" />
      <Field Name="Title" />
      <Field Name="Expand" />
      <Field Name="OperationCategoryId" />
      <Field Name="System" />
      <Field Name="Archive" />
    </Fields>
  </SourceDataConnection>
  <RelationshipDataConnection Name="OperationPrimaryGetDataConnection">
    <Fields>
      <Field Name="OperationId" />
      <Field Name="OperationCategoryId" />
    </Fields>
  </RelationshipDataConnection>
  <AdditionalColumns>
    <HasChildrenColumn Name="HasChildren" />
    <StateColumn Name="State" CloseState="+" OpenState="-" />
  </AdditionalColumns>
  <Filter FilterByNullValue="False">
    <Field NativeName="Archive" />
    <Value>
      <Object Name="ArchiveFilterComboBox" />
    </Value>
    <DataType Type="BooleanDataType" />
  </Filter>
</DataConnection>

В тэге <SourceDataConnection> указываем источник данных для дерева. Первых три поля являются обязательными и их порядок строго определен. Первое поле должно соответствовать идентификатору элемента, второе - его отображаемому значению, третье - его состоянию (свернут/развернут узел дерева, если он имеет дочерние элементы).

Помимо обязательных полей можно указывать любое количество дополнительных полей.

В тэге <RelationshipDataConnection> указываем таблицу с двумя колонками: в первой колонке должен быть идентификатор элемента, а во второй - идентификатор родительского элемента. На основе этой таблицы TreeGetDataConnection построит дерево.

В тэге <AdditionalColumns> задаем имена для дополнительных колонок: одно для колонки с признаком наличия дочерних элементов (HasChildren), другое для колонки отображения значения состояния узла (State).

Укажем OperationTreeGetDataConnection в качестве источника данных для таблицы OperationDatabaseTable.

Заменим тэг <Columns> в описании таблицы кодом, в котором описаны все колонки из OperationPrimaryGetDataConnection и дополнительные колонки из OperationTreeGetDataConnection:

<Columns>
  <Column Name="OperationId" Type="DatabaseTableColumnTextBox" Assembly="DatabaseTableColumnControls">
    <Visible>False</Visible>
  </Column>
  <Column Name="OperationCategoryId" Type="DatabaseTableColumnTextBox" Assembly="DatabaseTableColumnControls">
    <Visible>False</Visible>
  </Column>
  <Column Name="State" Type="DatabaseTableColumnTextBox" Assembly="DatabaseTableColumnControls">
    <Title />
    <Width>30</Width>
    <AutoSizeMode Value="None" />
    <ManagementMode>NotAllowed</ManagementMode>
    <Alignment Value="MiddleCenter" />
    <AllowSort Value="False" />
  </Column>
  <Column Name="Title" Type="DatabaseTableColumnTextBox" Assembly="DatabaseTableColumnControls">
    <Title>Наименование</Title>
    <MinimumWidth>100</MinimumWidth>
    <AutoSizeMode Value="Fill" />
    <AllowSort Value="False" />
  </Column>
  <Column Name="System" Type="DatabaseTableColumnTextBox" Assembly="DatabaseTableColumnControls">
    <Visible>False</Visible>
  </Column>
  <Column Name="Archive" Type="DatabaseTableColumnCheckBox" Assembly="DatabaseTableColumnControls">
    <Visible>False</Visible>
    <DataType Type="BooleanDataType" />
  </Column>
  <Column Name="Expand" Type="DatabaseTableColumnTextBox" Assembly="DatabaseTableColumnControls">
    <Visible>False</Visible>
  </Column>
  <Column Name="HasChildren" Type="DatabaseTableColumnTextBox" Assembly="DatabaseTableColumnControls">
    <Visible>False</Visible>
  </Column>
</Columns>

Добавим в тэг <Formatting> таблицы OperationDatabaseTable условия форматирования строк:

<BackColor Name="LightYellow">
  <Expression>HasChildren AND OperationId <![CDATA[>]]> 0</Expression>
</BackColor>
<BackColor Name="Yellow">
  <Expression>OperationId <![CDATA[<]]> 0</Expression>
</BackColor>
<FontStyle Name="TitleBoldFont">
  <Expression>OperationId <![CDATA[<]]> 0</Expression>
</FontStyle>

Запустим приложение и проверим загрузку формы списка и отображение дерева назначений платежей.

Отлично! Переключимся на форму редактирования назначения платежей, а затем вернемся на форму списка и доделаем дерево.

Карточка сущности

В файле TemplateOperationEdit.xml создайте необходимые объекты, чтобы у вас получилась форма вида:

Добавьте на форму параметр OperationCategoryId.

Переделайте OperationPrimaryGetDataConnection, добавив в SQL-запрос поля:

OperationCategoryId - для получения значений используйте то же выражение, которое используем в построении дерева на форме списка назначений платежей (OperationSelectSqlQuery);
IsIncome и IsSystem - они нам понадобятся для проверки в случае изменения типа (доход или расход) на противоположный у системных назначений и у назначений, которые используются в программе.

Список категорий

Перейдем в серверный xml-файл и создадим запрос для получения списка доступных категорий:

Template.xml

<SqlQuery Name="OperationCategorySelectSqlQuery">
  <Text>
    WITH RECURSIVE tree (operation_id, operation_category_id, title, id_title, income, path, archive) AS (
      SELECT -2::bigint, NULL::bigint, 'ДОХОД', NULL, true, ARRAY[-2]::bigint[], false
    
      UNION
    
      SELECT -1::bigint, NULL::bigint, 'РАСХОД', NULL, false, ARRAY[-1]::bigint[], false
    
      UNION
    
      SELECT operation_id  AS operation_id, operation_category_id, title, id_title, income, ARRAY[CASE WHEN income THEN -2 ELSE -1 END, operation_id]::bigint[] AS path, archive
      FROM _t
    
      UNION
    
      SELECT o2.operation_id  AS operation_id, o2.operation_category_id, o2.title, o2.id_title, o2.income, tree.path || ARRAY[o2.operation_id]::bigint[] AS path, o2.archive
      FROM 
        _t, _o o2
        INNER JOIN tree ON tree.operation_id = o2.operation_category_id
    ), _t AS (
      SELECT  *
      FROM _o
      WHERE operation_category_id IS NULL 
    ), _o AS(
      SELECT  *
      FROM template.operation o
      WHERE operation_id IS DISTINCT FROM {OperationId} AND id_title IS NULL
    )
    SELECT
      T.operation_id AS "OperationId",
      CASE WHEN array_length(T.path, 1) > 1 THEN COALESCE(repeat('  ', (array_length(T.path, 1)-1)*2) || ' ', '') ELSE '' END || T.title AS "Title",
      income AS "IsIncome"
    FROM tree T
    LEFT JOIN
    (
      WITH RECURSIVE current_tree (operation_id, operation_category_id) AS(
        SELECT
          operation_id,
          operation_category_id
        FROM
          template.operation O
        WHERE
          {OperationCategoryId} IS NOT NULL AND operation_id = {OperationCategoryId}
    
        UNION
    
        SELECT
          O.operation_id,
          COALESCE(O.operation_category_id, CASE WHEN income THEN -2 ELSE -1 END)::bigint
        FROM
          template.operation O
          JOIN current_tree T ON (O.operation_id = T.operation_category_id)
      ), t AS (
        SELECT * FROM current_tree
    
        UNION
    
        SELECT -2, NULL WHERE EXISTS (SELECT * FROM current_tree WHERE operation_category_id = -2)
    
        UNION
    
        SELECT -1, NULL  WHERE EXISTS (SELECT * FROM current_tree WHERE operation_category_id = -1)
      ) SELECT * FROM t) T2 ON (T.operation_id = T2.operation_id)
    WHERE
      (NOT archive OR T2.operation_id IS NOT NULL)
    ORDER BY T.path;
  </Text>
</SqlQuery>

Вернемся в файл формы редактирования назначения платежей (TemplateOperationEdit.xml).

Создадим соединение с данными для списка доступных категорий:

TemplateOperationEdit.xml

<DataConnection Name="OperationCategoryPrimaryGetDataConnection" Type="PrimaryGetDataConnection" Assembly="DataConnections">
  <SqlQuery Name="OperationCategorySelectSqlQuery" Type="Select">
    <Workflow Name="Template" />
    <Fields>
      <Field Name="OperationId" />
      <Field Name="Title" />
      <Field Name="IsIncome" />
    </Fields>
    <Parameters>
      <Parameter NativeName="OperationId" RefreshQuery="False">
        <Value>
          <Parameter Name="OperationId" />
        </Value>
      </Parameter>
      <Parameter NativeName="OperationCategoryId" RefreshQuery="False">
        <Value>
          <DataConnection SourceDataConnection="OperationPrimaryGetDataConnection">
            <Fields>
              <Field Name="OperationCategoryId" />
            </Fields>
          </DataConnection>
        </Value>
      </Parameter>
    </Parameters>
  </SqlQuery>
</DataConnection>

Укажем новый OperationCategoryPrimaryGetDataConnection в тэге <ValueList> выпадающего списка поля "Категория", а в качестве значения тэга <Value> того же объекта напишем конструкцию:

<Switch>
  <Case>
    <When>
      <Parameter Name="Edit" />
    </When>
    <Then>
      <DataConnection SourceDataConnection="OperationPrimaryGetDataConnection">
        <Fields>
          <Field Name="OperationCategoryId" />
        </Fields>
      </DataConnection>
    </Then>
  </Case>
  <Case>
    <Parameter Name="OperationCategoryId" />
  </Case>
</Switch>

Изменение категории назначения платежей

При редактировании системных назначений платежей или назначений, на которые есть кассовые операции, мы должны запрещать пользователю изменять категорию назначения, если это приведет к смене типа назначения платежей (приход/расход).

Для начала нам понадобятся данные о выбранной категории, для этого создадим SecondaryGetDataConnection:

TemplateOperationEdit.xml

<DataConnection Name="OperationCategorySecondaryGetDataConnection" Type="SecondaryGetDataConnection" Assembly="DataConnections">
  <SourceDataConnection Name="OperationCategoryPrimaryGetDataConnection" />
  <Filter>
    <Field NativeName="OperationId" />
    <Value>
      <Object Name="CategoryComboBox" />
    </Value>
    <DataType Type="IntegerDataType" />
  </Filter>
</DataConnection>

Создадим условие проверки идентификатора выбранной категории, чтобы отсекать служебные записи "ДОХОД" (OperationId = -2) и "РАСХОД" (OperationId = -1):

TemplateOperationEdit.xml

<Condition Name="CategoryIdGreater0Condition" Type="GreaterCondition" Assembly="Conditions">
  <Items>
    <Item>
      <Object Name="CategoryComboBox" />
    </Item>
    <Item>0</Item>
  </Items>
  <DataType Type="IntegerDataType" />
</Condition>

Создадим условие проверки, что редактируемое назначение платежей является системным:

TemplateOperationEdit.xml

<Condition Name="OperationIsSystemEqualCondition" Type="EqualCondition" Assembly="Conditions">
  <Items>
    <Item>
      <DataConnection SourceDataConnection="OperationPrimaryGetDataConnection">
        <Fields>
          <Field Name="IsSystem" />
        </Fields>
      </DataConnection>
    </Item>
    <Item>True</Item>
  </Items>
  <DataType Type="BooleanDataType" />
</Condition>

И условие проверки, что тип редактируемого назначения не совпадает с типом выбранной категории:

TemplateOperationEdit.xml

<Condition Name="OperationTypeAndCategoryTypeNotEqualCondition" Type="NotEqualCondition" Assembly="Conditions">
  <Items>
    <Item>
      <DataConnection SourceDataConnection="OperationPrimaryGetDataConnection">
        <Fields>
          <Field Name="IsIncome" />
        </Fields>
      </DataConnection>
    </Item>
    <Item>
      <DataConnection SourceDataConnection="OperationCategorySecondaryGetDataConnection">
        <Fields>
          <Field Name="IsIncome" />
        </Fields>
      </DataConnection>
    </Item>
  </Items>
  <DataType Type="BooleanDataType" />
</Condition>

Создадим PrimaryGetDataConnection, чтобы всегда иметь свежую информацию об использовании редактируемого назначения платежей в программе:

TemplateOperationEdit.xml

<DataConnection Name="OperationIsUsedPrimaryGetDataConnection" Type="PrimaryGetDataConnection" Assembly="DataConnections">
  <ManualLoad>True</ManualLoad>
  <SqlQuery Name="OperationIsUsedSelectSqlQuery" Type="Select">
    <Workflow Name="Template" />
    <Fields>
      <Field Name="IsUsed" />
    </Fields>
    <Parameters>
      <Parameter NativeName="OperationId" RefreshQuery="False">
        <Value>
          <Parameter Name="OperationId" />
        </Value>
      </Parameter>
    </Parameters>
  </SqlQuery>
</DataConnection>

OperationIsUsedSelectSqlQuery

Template.xml

<SqlQuery Name="OperationIsUsedSelectSqlQuery">
  <Text>
    SELECT template.operation_is_used_in_view_of_child({OperationId}::bigint) AS "IsUsed";
  </Text>
</SqlQuery>

Где функция template.operation_is_used_in_view_of_child(bigint) имеет вид:

CREATE OR REPLACE FUNCTION template.operation_is_used_in_view_of_child(in_operation_id bigint)
  RETURNS boolean AS
$BODY$
DECLARE
  _operation_id_array bigint[];
  _is_system boolean;
BEGIN
  WITH RECURSIVE operation_tree(operation_id, id_title) AS(
    SELECT
      operation_id,
      id_title
    FROM template.operation
    WHERE operation_id = in_operation_id

    UNION ALL

    SELECT
      O.operation_id,
      O.id_title
    FROM
      template.operation O
      JOIN operation_tree T ON (O.operation_category_id = T.operation_id)
  )
  SELECT
    array_agg(operation_id),
    bool_or(id_title IS NOT NULL)
  INTO _operation_id_array, _is_system
  FROM operation_tree;

  RETURN (_is_system OR EXISTS(SELECT * FROM template.cash C WHERE C.operation_id = ANY(_operation_id_array) AND NOT C.deleted));
END;
$BODY$
  LANGUAGE plpgsql;

Создайте самостоятельно команду OperationIsUsedDataConnectionRefreshCommand для обновления OperationIsUsedPrimaryGetDataConnection.

Добавим условие EqualCondition для проверки поля IsUsed:

TemplateOperationEdit.xml

<Condition Name="OperationIsUsedEqualCondition" Type="EqualCondition" Assembly="Conditions">
  <Items>
    <Item>
      <DataConnection SourceDataConnection="OperationIsUsedPrimaryGetDataConnection">
        <Fields>
          <Field Name="IsUsed" />
        </Fields>
      </DataConnection>
    </Item>
    <Item>True</Item>
  </Items>
  <DataType Type="BooleanDataType" />
</Condition>

Создадим PrimaryGetDataConnection для проверки, является ли выбранное в качестве категории назначение платежей листом, т.е. не имеет дочерних назначений:

TemplateOperationEdit.xml

<DataConnection Name="OperationIsLeafPrimaryGetDataConnection" Type="PrimaryGetDataConnection" Assembly="DataConnections">
  <ManualLoad>True</ManualLoad>
  <SqlQuery Name="OperationIsLeafSelectSqlQuery" Type="Select">
    <Workflow Name="Template" />
    <Fields>
      <Field Name="Title" />
      <Field Name="IsLeaf" />
      <Field Name="IsUsed" />
    </Fields>
    <Parameters>
      <Parameter NativeName="OperationId" RefreshQuery="False">
        <Value>
          <Object Name="CategoryComboBox" />
        </Value>
      </Parameter>
    </Parameters>
  </SqlQuery>
</DataConnection>

OperationIsLeafSelectSqlQuery

Template.xml

<SqlQuery Name="OperationIsLeafSelectSqlQuery">
  <Text>
    SELECT
      operation_id  AS "OperationId",
      title AS "Title",
      income AS "IsIncome",
      NOT EXISTS(SELECT * FROM template.operation WHERE operation_category_id = O.operation_id) AS "IsLeaf",
      EXISTS(SELECT * FROM template.cash C WHERE C.operation_id = O.operation_id) AS "IsUsed"
    FROM template.operation O
    WHERE operation_id = {OperationId};
  </Text>
</SqlQuery>

Создайте самостоятельно команду OperationIsLeafDataConnectionRefreshCommand для обновления OperationIsLeafPrimaryGetDataConnection.

Добавим условия EqualCondition для проверки полей IsLeaf и IsUsed выбранной категории:

TemplateOperationEdit.xml

<Condition Name="OperationCategoryIsLeafEqualCondition" Type="EqualCondition" Assembly="Conditions">
  <Items>
    <Item>
      <DataConnection SourceDataConnection="OperationIsLeafPrimaryGetDataConnection">
        <Fields>
          <Field Name="IsLeaf" />
        </Fields>
      </DataConnection>
    </Item>
    <Item>True</Item>
  </Items>
  <DataType Type="BooleanDataType" />
</Condition>

<Condition Name="OperationCategoryIsUsedEqualCondition" Type="EqualCondition" Assembly="Conditions">
  <Items>
    <Item>
      <DataConnection SourceDataConnection="OperationIsLeafPrimaryGetDataConnection">
        <Fields>
          <Field Name="IsUsed" />
        </Fields>
      </DataConnection>
    </Item>
    <Item>True</Item>
  </Items>
  <DataType Type="BooleanDataType" />
</Condition>

Создадим команду MessageBoxCommand для уведомления пользователя о невозможности изменения типа редактируемого назначения платежей:

TemplateOperationEdit.xml

<Command Name="OperationChangedIsIncomeMessageBoxCommand" Type="MessageBoxCommand" Assembly="Commands">
  <Caption>Сохранение</Caption>
  <Text>
    <String>
      <Format>При изменении категории будет изменен тип назначения «{0}» с «{1}»  на «{2}», что недопустимо, т.к. назначение «{0}» {3}</Format>
      <Items>
        <Item>
          <Object Name="TitleTextBox" />
        </Item>
        <Item>
          <Switch>
            <Case>
              <When>
                <DataConnection SourceDataConnection="OperationPrimaryGetDataConnection">
                  <Fields>
                    <Field Name="IsIncome" />
                  </Fields>
                </DataConnection>
              </When>
              <Then>Дохода</Then>
            </Case>
            <Case>Расхода</Case>
          </Switch>
        </Item>
        <Item>
          <Switch>
            <Case>
              <When>
                <DataConnection SourceDataConnection="OperationPrimaryGetDataConnection">
                  <Fields>
                    <Field Name="IsIncome" />
                  </Fields>
                </DataConnection>
              </When>
              <Then>Расход</Then>
            </Case>
            <Case>Доход</Case>
          </Switch>
        </Item>
        <Item>
          <Switch>
            <Case>
              <When>
                <Condition Name="OperationIsSystemEqualCondition" />
              </When>
              <Then>является системным.</Then>
            </Case>
            <Case>
              <When>
                <Condition Name="OperationIsUsedEqualCondition" />
              </When>
              <Then>используется в программе.</Then>
            </Case>
          </Switch>
        </Item>
      </Items>
    </String>
  </Text>
  <Icon Type="Warning" />
  <Buttons Type="Ok" />
</Command>

Создадим команду MessageBoxCommand для уведомления пользователя, что кассовые операции на выбранное назначение платежа будут привязаны к редактируемому назначению:

TemplateOperationEdit.xml

<Command Name="OperationIsLeafMessageBoxCommand" Type="MessageBoxCommand" Assembly="Commands">
  <Caption>Сохранение</Caption>
  <Text>
    <String>
      <Format>При добавлении назначения платежа «{0}» в категорию «{1}» все операции, привязанные к назначению «{1}», будут привязаны к назначению «{0}». Продолжить?</Format>
      <Items>
        <Item>
          <Object Name="TitleTextBox" />
        </Item>
        <Item>
          <DataConnection SourceDataConnection="OperationIsLeafPrimaryGetDataConnection">
            <Fields>
              <Field Name="Title" />
            </Fields>
          </DataConnection>
        </Item>
      </Items>
    </String>
  </Text>
  <Icon Type="Question" />
  <Buttons Type="YesNo" />
</Command>

Теперь у нас есть все необходимые условия и команды и мы можем заменить синтаксис команды SaveSequentialCommand на:

TemplateOperationEdit.xml

<Command Name="SaveSequentialCommand" Type="SequentialCommand" Assembly="Commands">
  <Commands Lock="True">
    <If>
      <When>
        <And>
          <Parameter Name="Edit" />
          <Not>
            <Condition Name="OperationIsSystemEqualCondition" />
          </Not>
          <Condition Name="OperationTypeAndCategoryTypeNotEqualCondition" />
        </And>
      </When>
      <Then>
        <Command Name="OperationIsUsedDataConnectionRefreshCommand" />
      </Then>
    </If>
    <If>
      <When>
        <And>
          <Parameter Name="Edit" />
          <Or>
            <Condition Name="OperationIsSystemEqualCondition" />
            <Condition Name="OperationIsUsedEqualCondition" />
          </Or>
          <Condition Name="OperationTypeAndCategoryTypeNotEqualCondition" />
        </And>
      </When>
      <Then>
        <Command Name="OperationChangedIsIncomeMessageBoxCommand" />
      </Then>
      <Else>
        <If>
          <When>
            <Condition Name="CategoryIdGreater0Condition" />
          </When>
          <Then>
            <Command Name="OperationIsLeafDataConnectionRefreshCommand" />
            <If>
              <When>
                <And>
                  <Condition Name="OperationCategoryIsLeafEqualCondition" />
                  <Condition Name="OperationCategoryIsUsedEqualCondition" />
                </And>
              </When>
              <Then>
                <Command Name="OperationIsLeafMessageBoxCommand" />
              </Then>
            </If>
          </Then>
        </If>
        <If>
          <When>
            <Or>
              <Not>
                <Condition Name="CategoryIdGreater0Condition" />
              </Not>
              <Not>
                <And>
                  <Condition Name="OperationCategoryIsLeafEqualCondition" />
                  <Condition Name="OperationCategoryIsUsedEqualCondition" />
                </And>
              </Not>
              <Command Name="OperationIsLeafMessageBoxCommand" Parameter="Yes" />
            </Or>
          </When>
          <Then>
            <If>
              <When>
                <Parameter Name="Edit" />
              </When>
              <Then>
                <Command Name="OperationUpdateSaveCommand" />
              </Then>
              <Else>
                <Command Name="OperationInsertSaveCommand" />
                <Command Name="OperationIdValueSetCommand" />
              </Else>
            </If>
            <Command Name="UpdatedTrueValueSetCommand" />
            <Command Name="FormCloseCommand" />
          </Then>
        </If>
      </Else>
    </If>
  </Commands>
</Command>

В команде в первым блоке <If> проверяем, не является ли редактируемое назначение платежей системным, и совпадает ли его тип с типом выбранной категории. Если тип не совпадает и назначение не системное, то отправляем запрос на сервер для проверки использования назначения платежа.

Во втором блоке <If> проверяем, является ли редактируемое назначение платежей системным или оно используется в программе и его тип не совпадает с типом выбранной категории. Если условие выполняется, то предупреждаем пользователя о смене типа назначения платежей при изменении его категории. Иначе выполняется большой вложенный блок проверок, в котором сначала проверяется, является ли редактируемое назначение платежей листом и выводится соответствующий вопрос пользователю. Затем идет завершающая проверка на возможность сохранения изменений.

Сохранение назначения платежей

Добавим параметры в OperationInsertSetDataConnection:

TemplateOperationEdit.xml

<DataConnection Name="OperationInsertSetDataConnection" Type="SetDataConnection" Assembly="DataConnections">
  <Workflow Name="Template" />
  <SqlQueries>
    <SqlQuery Name="OperationInsertSqlQuery" Type="Insert" />
  </SqlQueries>
  <Parameters>
    <Parameter NativeName="OperationCategoryId">
      <Value>
        <Switch>
          <Case>
            <When>
              <Condition Name="CategoryIdGreater0Condition" />
            </When>
            <Then>
              <Object Name="CategoryComboBox" />
            </Then>
          </Case>
        </Switch>
      </Value>
    </Parameter>
    <Parameter NativeName="Title">
      <Value>
        <Object Name="TitleTextBox" />
      </Value>
    </Parameter>
    <Parameter NativeName="IsIncome">
      <Value>
        <DataConnection SourceDataConnection="OperationCategorySecondaryGetDataConnection">
          <Fields>
            <Field Name="IsIncome" />
          </Fields>
        </DataConnection>
      </Value>
    </Parameter>
    <Parameter NativeName="OperationCategoryIsLeaf">
      <Value>
        <And>
          <Condition Name="CategoryIdGreater0Condition" />
          <Condition Name="OperationCategoryIsLeafEqualCondition" />