USING Mock;

SELECT
  bc2.BoolAttr AS ba,
  bc2.BizClass1Link.IntAttr AS ia,
  sq.Identity.BoolAttr,
  jbc2l.BizClass1Link.IntAttr AS lia,
  jbc2r.BizClass1Link.IntAttr AS ria,
  sq.Identity.BizClass1Link.IntAttr AS tjia
FROM
  BizClass2 bc2,
  (SELECT Identity FROM BizClass2) AS sq,
  BizClass2 AS jbc2l JOIN BizClass2 AS jbc2r ON jbc2l.BizClass1Link = jbc2r.BizClass1Link;

SELECT 
 [bc2].BoolAttr AS ba,
 [__join_0].IntAttr AS ia,
 [__join_1].BoolAttr AS BoolAttr,
 [__join_2].IntAttr AS lia,
 [__join_3].IntAttr AS ria,
 [__join_4].IntAttr AS tjia
FROM
 [MockSchema].[Tbl-Mock.BizClass2] AS [bc2]
  /*implicit*/LEFT OUTER JOIN [MockSchema].[Tbl-Mock.BizClass1] AS [__join_0] ON (([__join_0].id = [bc2].LinkTo_BizClass1Link_id) AND ([__join_0].tid = [bc2].LinkTo_BizClass1Link_tid)),
 (
  SELECT 
   [MockSchema].[Tbl-Mock.BizClass2].id AS Identity,
   [MockSchema].[Tbl-Mock.BizClass2].tid AS Identity_Type
  FROM
   [MockSchema].[Tbl-Mock.BizClass2]
 ) AS [sq]
  /*implicit*/LEFT OUTER JOIN [MockSchema].[Tbl-Mock.BizClass2] AS [__join_1] ON (([__join_1].id = [sq].Identity) AND ([__join_1].tid = [sq].Identity_Type))
  /*implicit*/LEFT OUTER JOIN [MockSchema].[Tbl-Mock.BizClass1] AS [__join_4] ON (([__join_4].id = [__join_1].LinkTo_BizClass1Link_id) AND ([__join_4].tid = [__join_1].LinkTo_BizClass1Link_tid)),
 [MockSchema].[Tbl-Mock.BizClass2] AS [jbc2l]
  /*implicit*/LEFT OUTER JOIN [MockSchema].[Tbl-Mock.BizClass1] AS [__join_2] ON (([__join_2].id = [jbc2l].LinkTo_BizClass1Link_id) AND ([__join_2].tid = [jbc2l].LinkTo_BizClass1Link_tid))
  INNER JOIN [MockSchema].[Tbl-Mock.BizClass2] AS [jbc2r]
   /*implicit*/LEFT OUTER JOIN [MockSchema].[Tbl-Mock.BizClass1] AS [__join_3] ON (([__join_3].id = [jbc2r].LinkTo_BizClass1Link_id) AND ([__join_3].tid = [jbc2r].LinkTo_BizClass1Link_tid)) ON (([jbc2l].LinkTo_BizClass1Link_id = [jbc2r].LinkTo_BizClass1Link_id) AND ([jbc2l].LinkTo_BizClass1Link_tid = [jbc2r].LinkTo_BizClass1Link_tid))

ARK> Чего? "Сразу понятно", угу. Может я тупой, но лично мне вся DSL-строка кажется полностью контр-интуитивной. Чего она делает, я до сих пор не понимаю.

f(x, y, z) = g(x, z) IF h(x, y, z);

ARK>> Чего? "Сразу понятно", угу. Может я тупой, но лично мне вся DSL-строка кажется полностью контр-интуитивной. Чего она делает, я до сих пор не понимаю.

_DA>f(x, y, z) = g(x, z) IF h(x, y, z);
_DA>

f = function(x, y, z)
{
  return (h(x, y, z) != null) ? g(x, z) : null;
}

function f(x, y, z) is
  when h(x, y, z) is not null => g(x, z)
  else null;

REQUIRE System, I18n, Currency;

CLASS Сountry 'Страна' : Named, MultiLanguageNamed;

TABLE countryDate(Country, DATE);
TABLE country(Country);

nameOriginCountry 'Наименование (ориг.)' = DATA ISTRING[50] (Country) IN baseGroup; 
sidCountry 'Код страны' = DATA INTEGER (Country) IN baseGroup; 
countrySID 'Страна' (sid) =  GROUP UNIQUE country BY sidCountry(country);

sidOrigin2Country 'Код 2 знака (ориг.)' = DATA STRING[2] (Country) IN baseGroup MINCHARWIDTH 15; 
sidOrigin3Country 'Код 3 знака (ориг.)' = DATA STRING[3] (Country) IN baseGroup MINCHARWIDTH 15; 

currencyCountry 'Валюта' = DATA currency (Country); 
nameCurrencyCountry 'Валюта' (country) = name(currencyCountry(country)) IN baseGroup PREFCHARWIDTH 10;

isDayOffCountryDate 'Выходной' = DATA BOOLEAN (Country, DATE) IN baseGroup; 
defaultCountry 'Страна по умолчанию' = DATA Country (); 
nameDefaultCountry 'Страна по умолчанию' () = name(defaultCountry()) PREFCHARWIDTH 30; 

FORM daysOffForm 'Выходные дни' 
OBJECTS Country 'Страна' INIT PANEL, day=DATE 'День', newDate=DATE 'Дата' FIXED PANEL
PROPERTIES(country) nameOriginCountry, sidCountry, sidOrigin2Country, sidOrigin3Country, nameCurrencyCountry
PROPERTIES OBJVALUE(day), isDayOffCountryDate(country, day), OBJVALUE(newDate), isDayOffCountryDate(country, newDate)
FILTERS isDayOffCountryDate(country, day)
;

NAVIGATOR {
    catalogs {
        ADD daysOffForm;
    }
}

private ConcreteCustomClass Сountry;
private LP isDayOffCountryDate;
  
public initClasses() {
    Сountry = addConcreteClass("Сountry", "Страна", baseClass.Named, BL.getModule("I18n").getClassByName("MultiLanguageNamed"));
}

public initTables() {
        addTable("countryDate", Country, DateClass.instance);
        addTable("country", Country);
}

public initProperties() {
        LP nameOriginCountry = addDProp(baseLM.baseGroup, "nameOriginCountry", getString("Наименование (ориг.)"), InsensitiveStringClass.get(50), Country);        
        LP sidCountry = addDProp(baseLM.baseGroup, "sidCountry", "Код страны", IntegerClass.instance, Country);
        LP countrySID = addAGProp("CountrySID", "Страна", sidCountry);

        sidOrigin2Country = addDProp(baseLM.baseGroup, "sidOrigin2Country", "Код 2 знака (ориг.)", StringClass.get(2), Country);
        sidOrigin2Country.setMinimumCharWidth(15);
        sidOrigin3Country = addDProp(baseLM.baseGroup, "sidOrigin3Country", "Код 3 знака (ориг.)", StringClass.get(3), Country);
        sidOrigin3Country.setMinimumCharWidth(15);

        currencyCountry = addDProp(baseLM.privateGroup, "currencyCountry", "Валюта", BL.getModule("Currency").getClassByName("Сurrency"), Сountry);
        nameCurrencyCountry = addJProp(baseLM.baseGroup, "nameCurrencyCountry", "Валюта", baseLM.name, currencyCountry, 1);
        nameCurrencyCountry.setPreferredCharWidth(10);

        isDayOffCountryDate = addDProp(baseLM.baseGroup, "isDayOffCountryDate", "Выходной", LogicalClass.instance, Country, DateClass.instance);
        defaultCountry = addDProp("defaultCountry", "Страна по умолчанию", Сountry);
        nameDefaultCountry = addJProp("nameDefaultCountry", "Страна по умолчанию", baseLM.name, defaultCountry);
}

public initNavigators()
{
        addFormEntity(new DaysOffFormEntity(catalogElement, "daysOffForm"));
}

private class DaysOffFormEntity extends FormEntity {
        public DaysOffFormEntity(NavigatorElement parent, String sID) {
            super(parent, sID, "Выходные дни");

            ObjectEntity objCountry = addSingleGroupObject(country, "Страна");
            objCountry.groupTo.initClassView = ClassViewType.PANEL;

            ObjectEntity objDays = addSingleGroupObject(DateClass.instance, "День");

            ObjectEntity objNewDate = addSingleGroupObject(DateClass.instance, "Дата");
            objNewDate.groupTo.setSingleClassView(ClassViewType.PANEL);

            addPropertyDraw(objCountry, baseLM.baseGroup);
            addPropertyDraw(objDays, baseLM.objectValue);
            addPropertyDraw(isDayOffCountryDate, objCountry, objDays);
            addPropertyDraw(objNewDate, baseLM.objectValue);
            addPropertyDraw(isDayOffCountryDate, objCountry, objNewDate);

            addFixedFilter(new NotNullFilterEntity(addPropertyObject(isDayOffCountryDate, objCountry, objDays)));
        }
}