<?xml version="1.0" encoding="utf-8"?>
<list title="Мебель-Сам: Сотрудники">

   <setting name="default-cud">mebelsam/dict/worker</setting>
   <setting name="simplified">true</setting>

   <sql>select w.Id,
               w.Name         as "ФИО",
               w.Place        as "Место",
               u.User_Login   as "Пользователь",
               w.Disabled='Y' as "Закрыт"
        from Worker w left join User_ u on (u.Id = w.User_Id)
        order by w.Id
   </sql>

</list>

<?xml version="1.0"?>
<form title="Сотрудник" access="SETTINGS">
   <behaviour>
      <action role="insert"  db-object="worker" sequence="sq_worker" />
      <action role="update"  db-object="worker" />
      <action role="delete"  db-object="worker" />
      <action role="display" db-object="worker" />
   </behaviour>

   <content>
      <xml>
         <input label="ФИО"          macro="STRING" param="name"     width="300"/>
         <input label="Место"        macro="STRING" param="place"    width="300"/>
         <input label="Пользователь" macro="USER"   param="user_id"  width="300"/>
         <checkbox caption="Закрыт" param="disabled" value-checked="Y" value-unchecked="N"/>
      </xml>
   </content>
</form>

<?xml version="1.0" encoding="utf-8"?>
<list title="Мебель-Сам: Контрагенты" access="SETTINGS">

   <setting name="default-cud">mebelsam/dict/contractor</setting>
   <setting name="simplified">true</setting>

   <sql>
        select c.Id,
               c.Name as "Название",
               c.Full_Name as "Полное название",
               c.Inn as "ИНН",
               c.Address "Адрес",
               c.Comment "Примечания",
               (select u.Name from contractor_group u where u.Id = C.Id) as "Группа",
               (select u.Name from User_ u where u.Id = C.User_Id) as "Пользователь",
               (select count(*) from document where contractor_id = c.id) as "Док-тов"
        from Contractor c
        where Lower(c.name) like '%' || Lower(:name) || '%'
          or Lower(c.full_name) like '%' || Lower(:name) || '%'
          or c.inn like '%' || :inn || '%'
        order by c.Name
   </sql>
</list>