d2aura 26.0.7 → 26.0.9

package/d2configuration/edaManager/E.EM_NAVIGATOR_SQL.xml

@@ -0,0 +1,272 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ROOT>
+  <REFERENCES>
+    <HOBJ_REF>
+      <uid>DC4771AFABE21F479810F277A878CC95</uid>
+      <name>DB.EM_EDA_Scenario</name>
+      <objType>DB_TABLE</objType>
+      <valType>NAN</valType>
+    </HOBJ_REF>
+    <HOBJ_REF>
+      <uid>AFC7C0F3EEC4744288BB210641AB1109</uid>
+      <name>SD.EM_EDA_Scenario</name>
+      <objType>STRUCTDEF</objType>
+      <valType>NAN</valType>
+    </HOBJ_REF>
+    <COL_REF>
+      <col_idx>14</col_idx>
+      <col_name>FILTER</col_name>
+      <col_valType>Text</col_valType>
+    </COL_REF>
+    <HOBJ_REF>
+      <uid>1AAA46C113C8E147889E3266B626D911</uid>
+      <name>SELF.EVH</name>
+      <objType>PROCES</objType>
+      <valType>Pr</valType>
+    </HOBJ_REF>
+  </REFERENCES>
+  <CFGRECORDS>
+    <TObjItemData>
+      <Id>2578119</Id>
+      <Name>E.EM_NAVIGATOR_SQL</Name>
+      <Descript/>
+      <Typ>EVENT</Typ>
+      <ParentId>SELF.EVH</ParentId>
+      <Value_Type>Int</Value_Type>
+      <CreateTime>13.03.2026 14:45:11.232</CreateTime>
+      <ModifyTime>26.03.2026 09:59:18.045</ModifyTime>
+      <Text_Palette/>
+      <Read_Only>False</Read_Only>
+      <TECH_UNIT/>
+      <UseLimits>False</UseLimits>
+      <VHL>1.00000000000000E+38</VHL>
+      <HL>1.00000000000000E+38</HL>
+      <LL>-1.00000000000000E+38</LL>
+      <VLL>-1.00000000000000E+38</VLL>
+      <VHL_ID/>
+      <HL_ID/>
+      <LL_ID/>
+      <VLL_ID/>
+      <Hysterezia>0.00000000000000E+00</Hysterezia>
+      <TransPalIdx>0</TransPalIdx>
+      <Hidden>False</Hidden>
+      <uuid>A29EF060120E4E47AF01278AD1528641</uuid>
+      <memberOfModule/>
+      <moduleRelation>AM_None</moduleRelation>
+      <memberOfDevice/>
+      <version>6</version>
+      <metadata/>
+      <EXP_SubDir/>
+    </TObjItemData>
+    <tEventData_Full>
+      <tEventData>
+        <TRIGGER/>
+        <PRIORITY>3</PRIORITY>
+        <ERROR_ID>0</ERROR_ID>
+        <TRIG_COND>TValue</TRIG_COND>
+        <Invert_Trig>False</Invert_Trig>
+        <bQueueStartRq>False</bQueueStartRq>
+        <bEventHaveValue>True</bEventHaveValue>
+        <bCrumbleChange>False</bCrumbleChange>
+        <EventType>ServerEvent</EventType>
+      </tEventData>
+      <script><![CDATA[;*********************************************************
+;  DESCRIPTION: 
+;               
+;               
+;  AUTHOR:      JLAL
+;  LAST CHANGE: 
+;*********************************************************
+
+RPC PROCEDURE GetGroupCountSql(IN INT _id, IN BOOL _showOmitted, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  _sql := "SELECT Count(*) FROM EDA_SkVektor WHERE "
+
+  IF _showOmitted THEN
+    _sql := _sql + "EDA_ID_SkVektor = ID_SkVektor"
+  ELSIF !_id\VLD THEN
+    _sql := _sql + "EDA_ID_SkVektor IS NULL"
+  ELSE
+    _sql := _sql + "EDA_ID_SkVektor = " + %IToStr(_id) + " AND EDA_ID_SkVektor != ID_SkVektor"
+  ENDIF
+
+  _isOk := @TRUE
+END GetGroupCountSql
+
+RPC PROCEDURE GetGroupItemsSql(IN INT _id, IN BOOL _showOmitted, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  _sql := "SELECT ID_SkVektor, EDA_ID_SkVektor, Meno, Cesta, Zobraz_Meno, 0 FROM EDA_SkVektor WHERE "
+
+  IF _showOmitted THEN
+    _sql := _sql + "EDA_ID_SkVektor = ID_SkVektor"
+  ELSIF !_id\VLD THEN
+    _sql := _sql + "EDA_ID_SkVektor IS NULL"
+  ELSE
+    _sql := _sql + "EDA_ID_SkVektor = " + %IToStr(_id) + " AND EDA_ID_SkVektor != ID_SkVektor"
+  ENDIF
+
+  _sql := _sql + " ORDER BY Zobraz_Meno"
+
+  _isOk := @TRUE
+END GetGroupItemsSql
+
+RPC PROCEDURE GetGroupVectorsCountSql(IN INT _id, IN BOOL _showOmitted, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  _sql := "SELECT Count(*) FROM EDA_Vektor WHERE "
+
+  IF _showOmitted THEN
+    _sql := _sql + "ID_SkVektor IS NULL"
+  ELSE
+    _sql := _sql + "ID_SkVektor = " + %IToStr(_id)
+  ENDIF
+
+  _isOk := @TRUE
+END GetGroupVectorsCountSql
+
+RPC PROCEDURE GetGroupVectorItemsSql(IN INT _id, IN BOOL _showOmitted, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  _sql := "SELECT ID_Vektor, ID_SkVektor, Meno, '', Zobraz_Meno, Typ FROM EDA_Vektor WHERE "
+
+  IF _showOmitted THEN
+    _sql := _sql + "ID_SkVektor IS NULL"
+  ELSE
+    _sql := _sql + "ID_SkVektor = " + %IToStr(_id)
+  ENDIF
+
+  _sql := _sql + " ORDER BY Zobraz_meno"
+
+  _isOk := @TRUE
+END GetGroupVectorItemsSql
+
+RPC PROCEDURE GetScenarioCountSql(IN INT _id, IN BOOL _showOmitted, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  _sql := "SELECT Count(*) FROM EDA_Scenar WHERE "
+
+  IF _showOmitted THEN
+    _sql := _sql + "EDA_ID_Scenar = ID_Scenar"
+  ELSIF !_id\VLD THEN
+    _sql := _sql + "EDA_ID_Scenar IS NULL"
+  ELSE
+    _sql := _sql + "EDA_ID_Scenar = " + %IToStr(_id) + " AND EDA_ID_Scenar != ID_Scenar"
+  ENDIF
+
+  _isOk := @TRUE
+END GetScenarioCountSql
+
+RPC PROCEDURE GetScenarioItemsSql(IN INT _id, IN BOOL _showOmitted, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  TEXT _sql1
+  TEXT _sql2
+  TEXT _where
+
+  _sql1 := "SELECT ID_Scenar, EDA_ID_Scenar, Meno, Cesta, Zobraz_Meno, 0 FROM EDA_Scenar WHERE "
+  _where := "FILTER IS NULL AND "
+
+  IF _showOmitted THEN
+    _where := _where + "EDA_ID_Scenar = ID_Scenar"
+  ELSIF !_id\VLD THEN
+    _where := _where + "EDA_ID_Scenar IS NULL"
+  ELSE
+    _where := _where + "EDA_ID_Scenar = " + %IToStr(_id) + " AND EDA_ID_Scenar != ID_Scenar"
+  ENDIF
+
+  _sql1 := _sql1 + _where
+
+  _sql2 := "SELECT ID_Scenar, EDA_ID_Scenar, Meno, Cesta, Zobraz_Meno, 0 FROM EDA_Scenar WHERE "
+  _where := "FILTER IS NOT NULL AND "
+  
+  IF _showOmitted THEN
+    _where := _where + "EDA_ID_Scenar = ID_Scenar"
+  ELSIF !_id\VLD THEN
+    _where := _where + "EDA_ID_Scenar IS NULL"
+  ELSE
+    _where := _where + "EDA_ID_Scenar = " + %IToStr(_id) + " AND EDA_ID_Scenar != ID_Scenar"
+  ENDIF
+
+  _sql2 := _sql2 + _where
+
+  _sql := _sql1 + " UNION " + _sql2
+  _sql := _sql + " ORDER BY Zobraz_Meno"
+
+  _isOk := @TRUE
+END GetScenarioItemsSql
+
+RPC PROCEDURE GetScenarioVectorsCountSql(IN INT _id, IN BOOL _showOmitted, IN BOOL _showDynamic, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  _sql := "SELECT Count(*) AS amount FROM EDA_VEKTOR v, EDA_VEKTOR_SCENAR vs WHERE v.ID_Vektor = vs.ID_Vektor AND "
+
+  IF !_id\VLD | _showOmitted THEN
+    _sql := _sql + "1 = 0"
+  ELSE
+    _sql := _sql + "vs.ID_Scenar = " + %IToStr(_id)
+  ENDIF
+
+  IF _showDynamic THEN
+    RECORD NOALIAS (SD.EM_EDA_Scenario) _EDA_Scenar
+    INT _retCode
+    TEXT _sqlPom
+
+    DBS_READ DB.EM_EDA_Scenario, _EDA_Scenar[1], _retCode WHERE "ID_Scenar = " + %IToStr(_id)
+
+    IF _retCode # _ERR_NO_ERROR THEN  
+      _retCode := %GetLastExtErrorCode()
+      _errorMsg := "Error DBS_READ [" + %IToStr(_retCode) + "]"
+      _isOk := @FALSE
+      RETURN
+    ENDIF
+
+    IF _EDA_Scenar[1]^FILTER\VLD THEN
+      _sqlPom := "SELECT Count(*) AS amount FROM EDA_VEKTOR v, (" + _EDA_Scenar[1]^FILTER + ") filter  WHERE filter.id_vektor = v.ID_Vektor"
+      _sql := "SELECT Sum(amount) AS celkovy_pocet FROM (" + _sql + " UNION ALL " + _sqlPom + ") subquery"
+      
+      _sql := %ReplaceStr(_sql, "OD_VW_Filter_Zmluva z  WHERE (z.dat_do_zmluvy >= :1 and z.dat_od_zmluvy <= :2) AND ", "OD_VW_Filter_Zmluva z  WHERE ", @TRUE)
+      _sql := %ReplaceStr(_sql, "OD_VW_Filter_Zmluva_Short z WHERE (z.dat_do_zmluvy >= :1 and z.dat_od_zmluvy <= :2) AND ", "OD_VW_Filter_Zmluva_Short z  WHERE ", @TRUE)
+    ENDIF
+  ENDIF
+
+  _isOk := @TRUE
+END GetScenarioVectorsCountSql
+
+RPC PROCEDURE GetScenarioVectorItemsSql(IN INT _id, IN BOOL _showOmitted, IN BOOL _showDynamic, TEXT _sql, BOOL _isOk, TEXT _errorMsg)
+  _sql := "SELECT v.ID_Vektor, vs.ID, v.Meno, '', CASE WHEN vs.zobraz_Meno is NULL THEN (v.zobraz_meno) ELSE (vs.Zobraz_Meno || ' (' || v.Zobraz_meno || ')') END zobraz_meno,"
+  _sql := _sql + " v.Typ, vs.idx IDX FROM EDA_VEKTOR v, EDA_VEKTOR_SCENAR vs WHERE v.ID_Vektor = vs.ID_Vektor AND "
+  
+  IF !_id\VLD | _showOmitted THEN
+    _sql := _sql + "1 = 0"
+  ELSE
+    _sql := _sql + "vs.ID_Scenar = " + %IToStr(_id)
+  ENDIF
+
+  IF _showDynamic THEN
+    RECORD NOALIAS (SD.EM_EDA_Scenario) _EDA_Scenar
+    INT _retCode
+    TEXT _sqlPom
+
+    DBS_READ DB.EM_EDA_Scenario, _EDA_Scenar[1], _retCode WHERE "ID_Scenar = " + %IToStr(_id)
+
+    IF _retCode # _ERR_NO_ERROR THEN  
+      _retCode := %GetLastExtErrorCode()
+      _errorMsg := "Error DBS_READ [" + %IToStr(_retCode) + "]"
+      _isOk := @FALSE
+      RETURN
+    ENDIF
+
+    IF _EDA_Scenar[1]^FILTER\VLD THEN
+      _sqlPom := "SELECT v.ID_Vektor, v.ID_SkVektor, v.Meno, '', v.Zobraz_meno, v.Typ, null FROM EDA_VEKTOR v, (" + _EDA_Scenar[1]^FILTER + ") filter WHERE filter.id_vektor = v.ID_Vektor"
+      _sql := _sql + " UNION " + _sqlPom
+      _sql := _sql + " ORDER BY 7, 5"
+      
+      _sql := %ReplaceStr(_sql, "OD_VW_Filter_Zmluva z  WHERE (z.dat_do_zmluvy >= :1 and z.dat_od_zmluvy <= :2) AND ", "OD_VW_Filter_Zmluva z  WHERE ", @TRUE)
+      _sql := %ReplaceStr(_sql, "OD_VW_Filter_Zmluva_Short z WHERE (z.dat_do_zmluvy >= :1 and z.dat_od_zmluvy <= :2) AND ", "OD_VW_Filter_Zmluva_Short z  WHERE ", @TRUE)
+    ENDIF
+  ELSE
+    _sql := _sql + " ORDER BY Idx, Zobraz_Meno"
+  ENDIF
+
+  _isOk := @TRUE
+END GetScenarioVectorItemsSql
+
+BEGIN
+  PRAGMA "ENABLE_INOUT_BY_REF"
+END
+
+]]></script>
+      <scriptRemote/>
+    </tEventData_Full>
+  </CFGRECORDS>
+  <MEMBEROFRESGROUP>
+  </MEMBEROFRESGROUP>
+</ROOT>

package/d2configuration/edaManager/E.EM_NAVIGATOR_UNIT.xml

@@ -0,0 +1,346 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ROOT>
+  <REFERENCES>
+    <HOBJ_REF>
+      <uid>A29EF060120E4E47AF01278AD1528641</uid>
+      <name>E.EM_NAVIGATOR_SQL</name>
+      <objType>EVENT</objType>
+      <valType>Int</valType>
+    </HOBJ_REF>
+    <HOBJ_REF>
+      <uid>3E9CFD9A52DF1A43913EBCD3FFE3871E</uid>
+      <name>SD.EM_Tree_Item</name>
+      <objType>STRUCTDEF</objType>
+      <valType>NAN</valType>
+    </HOBJ_REF>
+    <HOBJ_REF>
+      <uid>1AAA46C113C8E147889E3266B626D911</uid>
+      <name>SELF.EVH</name>
+      <objType>PROCES</objType>
+      <valType>Pr</valType>
+    </HOBJ_REF>
+  </REFERENCES>
+  <CFGRECORDS>
+    <TObjItemData>
+      <Id>2578116</Id>
+      <Name>E.EM_NAVIGATOR_UNIT</Name>
+      <Descript/>
+      <Typ>EVENT</Typ>
+      <ParentId>SELF.EVH</ParentId>
+      <Value_Type>Int</Value_Type>
+      <CreateTime>11.03.2026 12:20:57.326</CreateTime>
+      <ModifyTime>26.03.2026 09:57:37.748</ModifyTime>
+      <Text_Palette/>
+      <Read_Only>False</Read_Only>
+      <TECH_UNIT/>
+      <UseLimits>False</UseLimits>
+      <VHL>1.00000000000000E+38</VHL>
+      <HL>1.00000000000000E+38</HL>
+      <LL>-1.00000000000000E+38</LL>
+      <VLL>-1.00000000000000E+38</VLL>
+      <VHL_ID/>
+      <HL_ID/>
+      <LL_ID/>
+      <VLL_ID/>
+      <Hysterezia>0.00000000000000E+00</Hysterezia>
+      <TransPalIdx>0</TransPalIdx>
+      <Hidden>False</Hidden>
+      <uuid>0742E37DB9546C44BE6C398C22292C61</uuid>
+      <memberOfModule/>
+      <moduleRelation>AM_None</moduleRelation>
+      <memberOfDevice/>
+      <version>11</version>
+      <metadata/>
+      <EXP_SubDir/>
+    </TObjItemData>
+    <tEventData_Full>
+      <tEventData>
+        <TRIGGER/>
+        <PRIORITY>3</PRIORITY>
+        <ERROR_ID>0</ERROR_ID>
+        <TRIG_COND>TValue</TRIG_COND>
+        <Invert_Trig>False</Invert_Trig>
+        <bQueueStartRq>False</bQueueStartRq>
+        <bEventHaveValue>True</bEventHaveValue>
+        <bCrumbleChange>False</bCrumbleChange>
+        <EventType>UnitEvent</EventType>
+      </tEventData>
+      <script><![CDATA[;*********************************************************
+;  DESCRIPTION: 
+;               
+;               
+;  AUTHOR:      JLAL
+;  LAST CHANGE: 
+;*********************************************************
+
+BOOL _LOG_SQL = @TRUE
+
+;*********************************************************
+; GetGroupChildren
+;*********************************************************
+
+PUBLIC PROCEDURE GetGroupChildren(IN DB_HANDLE _hndl, IN INT _id, IN BOOL _showOmitted, IN INT _count, IN INT _offset, RECORD NOALIAS (SD.EM_Tree_Item) _items, INT _leftCount, BOOL _isOk, TEXT _errorMsg)
+  INT _totalCount
+  TEXT _sql
+
+  CALL [E.EM_NAVIGATOR_SQL] GetGroupCountSql(_id, _showOmitted, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+
+  CALL GetCount(_hndl, _sql, _totalCount, _isOk, _errorMsg)
+
+  IF !_isOk | _totalCount <= _offset THEN
+    _leftCount := 0
+    RETURN
+  ENDIF
+
+  IF _id\VLD THEN
+    IF _count + _offset < _totalCount THEN
+      _leftCount := _totalCount - _count - _offset
+    ELSE
+      _count := _totalCount - _offset
+      _leftCount := 0
+    ENDIF
+  ELSE
+    _count := _totalCount
+    _offset := 0
+    _leftCount := 0
+  ENDIF
+
+  CALL [E.EM_NAVIGATOR_SQL] GetGroupItemsSql(_id, _showOmitted, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+  
+  CALL GetItems(_hndl, _sql, _count, _offset, _items, _isOk, _errorMsg)
+END GetGroupChildren
+
+;*********************************************************
+; GetGroupVectors
+;*********************************************************
+
+PUBLIC PROCEDURE GetGroupVectors(IN DB_HANDLE _hndl, IN INT _id, IN BOOL _showOmitted, IN INT _count, IN INT _offset, RECORD NOALIAS (SD.EM_Tree_Item) _items, INT _leftCount, BOOL _isOk, TEXT _errorMsg)
+  INT _totalCount
+  TEXT _sql
+
+  IF !_id\VLD THEN
+    RETURN
+  ENDIF
+
+  CALL [E.EM_NAVIGATOR_SQL] GetGroupVectorsCountSql(_id, _showOmitted, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+
+  CALL GetCount(_hndl, _sql, _totalCount, _isOk, _errorMsg)
+
+  IF !_isOk | _totalCount <= _offset THEN
+    _leftCount := 0
+    RETURN
+  ENDIF
+
+  IF _id\VLD THEN
+    IF _count + _offset < _totalCount THEN
+      _leftCount := _totalCount - _count - _offset
+    ELSE
+      _count := _totalCount - _offset
+      _leftCount := 0
+    ENDIF
+  ELSE
+    _count := _totalCount
+    _offset := 0
+    _leftCount := 0
+  ENDIF
+
+  CALL [E.EM_NAVIGATOR_SQL] GetGroupVectorItemsSql(_id, _showOmitted, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+  
+  CALL GetItems(_hndl, _sql, _count, _offset, _items, _isOk, _errorMsg)
+END GetGroupVectors
+
+;*********************************************************
+; GetScenarioChildren
+;*********************************************************
+
+PUBLIC PROCEDURE GetScenarioChildren(IN DB_HANDLE _hndl, IN INT _id, IN BOOL _showOmitted, IN INT _count, IN INT _offset, RECORD NOALIAS (SD.EM_Tree_Item) _items, INT _leftCount, BOOL _isOk, TEXT _errorMsg)
+  INT _totalCount
+  TEXT _sql
+
+  CALL [E.EM_NAVIGATOR_SQL] GetScenarioCountSql(_id, _showOmitted, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+  
+  CALL GetCount(_hndl, _sql, _totalCount, _isOk, _errorMsg)
+
+  IF !_isOk | _totalCount <= _offset THEN
+    _leftCount := 0
+    RETURN
+  ENDIF
+
+  IF _id\VLD THEN
+    IF _count + _offset < _totalCount THEN
+      _leftCount := _totalCount - _count - _offset
+    ELSE
+      _count := _totalCount - _offset
+      _leftCount := 0
+    ENDIF
+  ELSE
+    _count := _totalCount
+    _offset := 0
+    _leftCount := 0
+  ENDIF
+
+  CALL [E.EM_NAVIGATOR_SQL] GetScenarioItemsSql(_id, _showOmitted, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+  
+  CALL GetItems(_hndl, _sql, _count, _offset, _items, _isOk, _errorMsg)
+END GetScenarioChildren
+
+;*********************************************************
+; GetScenarioVectors
+;*********************************************************
+
+PUBLIC PROCEDURE GetScenarioVectors(IN DB_HANDLE _hndl, IN INT _id, IN BOOL _showOmitted, IN BOOL _showDynamic, IN INT _count, IN INT _offset, RECORD NOALIAS (SD.EM_Tree_Item) _items, INT _leftCount, BOOL _isOk, TEXT _errorMsg)
+  INT _totalCount
+  TEXT _sql
+
+  IF !_id\VLD THEN
+    RETURN
+  ENDIF
+
+  CALL [E.EM_NAVIGATOR_SQL] GetScenarioVectorsCountSql(_id, _showOmitted, _showDynamic, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+  
+  CALL GetCount(_hndl, _sql, _totalCount, _isOk, _errorMsg)
+
+  IF !_isOk | _totalCount <= _offset THEN
+    _leftCount := 0
+    RETURN
+  ENDIF
+
+  IF _id\VLD THEN
+    IF _count + _offset < _totalCount THEN
+      _leftCount := _totalCount - _count - _offset
+    ELSE
+      _count := _totalCount - _offset
+      _leftCount := 0
+    ENDIF
+  ELSE
+    _count := _totalCount
+    _offset := 0
+    _leftCount := 0
+  ENDIF
+
+  CALL [E.EM_NAVIGATOR_SQL] GetScenarioVectorItemsSql(_id, _showOmitted, _showDynamic, _sql, _isOk, _errorMsg) ON (%GetParentProcessHBJ())
+
+  IF !_isOk THEN
+    RETURN
+  ENDIF
+  
+  CALL GetItems(_hndl, _sql, _count, _offset, _items, _isOk, _errorMsg)
+END GetScenarioVectors
+
+;*********************************************************
+; GetGroupCount
+;*********************************************************
+
+PROCEDURE GetCount(IN DB_HANDLE _hndl, IN TEXT _sql, INT _count, BOOL _isOk, TEXT _errorMsg)
+  INT _retCode
+
+  IF _LOG_SQL THEN
+    LOG _sql PRIORITY _LOG_PRTY_INFO
+  ENDIF
+
+  SQL_PREPARE _hndl, _retCode, _sql BIND _count
+
+  IF _retCode # _ERR_NO_ERROR THEN
+    _isOk := @FALSE
+    _errorMsg := "Error SQL_PREPARE [" + %IToStr(_retCode) + "] " + _sql
+    LOG _errorMsg PRIORITY _LOG_PRTY_ERROR
+    RETURN
+  ENDIF
+
+  SQL_FETCH _hndl, _retCode
+
+  IF _retCode # _ERR_NO_ERROR THEN
+    _isOk := @FALSE
+    _errorMsg := "Error SQL_FETCH [" + %IToStr(_retCode) + "] " + _sql
+    LOG _errorMsg PRIORITY _LOG_PRTY_ERROR
+    RETURN
+  ENDIF
+
+  _isOk := @TRUE
+END GetCount
+
+;*********************************************************
+; GetGroupItems
+;*********************************************************
+
+PROCEDURE GetItems(IN DB_HANDLE _hndl, IN TEXT _sql, IN INT _count, IN INT _offset, RECORD NOALIAS (SD.EM_Tree_Item) _items, BOOL _isOk, TEXT _errorMsg)
+  INT _retCode
+  INT _maxRows = _count + _offset
+  INT _fromRow = _offset + 1
+  RECORD NOALIAS (SD.EM_Tree_Item) _tmp
+
+  IF _count = 0 | !_count\VLD THEN
+    REDIM _items[0]
+    RETURN
+  ENDIF
+
+  IF _LOG_SQL THEN
+    LOG _sql PRIORITY _LOG_PRTY_INFO
+  ENDIF
+
+  SQL_PREPARE _hndl, _retCode, _sql BIND _tmp
+
+  IF _retCode # _ERR_NO_ERROR THEN
+    _isOk := @FALSE
+    _errorMsg := "Error SQL_PREPARE [" + %IToStr(_retCode) + "] " + _sql
+    LOG _errorMsg PRIORITY _LOG_PRTY_ERROR
+    RETURN
+  ENDIF
+
+  SQL_FETCH _hndl, _retCode, _maxRows
+
+  IF _retCode # _ERR_NO_ERROR THEN
+    _isOk := @FALSE
+    _errorMsg := "Error SQL_FETCH [" + %IToStr(_retCode) + "] " + _sql
+    LOG _errorMsg PRIORITY _LOG_PRTY_ERROR
+    RETURN
+  ENDIF
+
+  REDIM _items[_count]
+  COPYSTRUCT _items, 1, _tmp[_fromRow], _tmp[_offset + _count]
+
+  _isOk := @TRUE
+END GetItems
+
+;*********************************************************
+;*********************************************************
+;*********************************************************
+
+BEGIN
+  PRAGMA "ENABLE_INOUT_BY_REF"
+END
+]]></script>
+      <scriptRemote/>
+    </tEventData_Full>
+  </CFGRECORDS>
+  <MEMBEROFRESGROUP>
+  </MEMBEROFRESGROUP>
+</ROOT>

package/d2configuration/edaManager/E.EM_VECTOR_IMPL.xml

@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ROOT>
+  <REFERENCES>
+    <HOBJ_REF>
+      <uid>71AB41D83114A043BB4BC378A9FDEDF7</uid>
+      <name>E.EM_VECTOR_UNIT</name>
+      <objType>EVENT</objType>
+      <valType>Int</valType>
+    </HOBJ_REF>
+    <HOBJ_REF>
+      <uid>0C36D083CCA9034B8DF4A98D4D824202</uid>
+      <name>SD.EM_EDA_VectorValues</name>
+      <objType>STRUCTDEF</objType>
+      <valType>NAN</valType>
+    </HOBJ_REF>
+    <HOBJ_REF>
+      <uid>1AAA46C113C8E147889E3266B626D911</uid>
+      <name>SELF.EVH</name>
+      <objType>PROCES</objType>
+      <valType>Pr</valType>
+    </HOBJ_REF>
+  </REFERENCES>
+  <CFGRECORDS>
+    <TObjItemData>
+      <Id>2578155</Id>
+      <Name>E.EM_VECTOR_IMPL</Name>
+      <Descript/>
+      <Typ>EVENT</Typ>
+      <ParentId>SELF.EVH</ParentId>
+      <Value_Type>Int</Value_Type>
+      <CreateTime>08.04.2026 07:43:45.523</CreateTime>
+      <ModifyTime>09.04.2026 12:48:51.594</ModifyTime>
+      <Text_Palette/>
+      <Read_Only>False</Read_Only>
+      <TECH_UNIT/>
+      <UseLimits>False</UseLimits>
+      <VHL>1.00000000000000E+38</VHL>
+      <HL>1.00000000000000E+38</HL>
+      <LL>-1.00000000000000E+38</LL>
+      <VLL>-1.00000000000000E+38</VLL>
+      <VHL_ID/>
+      <HL_ID/>
+      <LL_ID/>
+      <VLL_ID/>
+      <Hysterezia>0.00000000000000E+00</Hysterezia>
+      <TransPalIdx>0</TransPalIdx>
+      <Hidden>False</Hidden>
+      <uuid>51C0E21C3838184FB92F9532A04175F1</uuid>
+      <memberOfModule/>
+      <moduleRelation>AM_None</moduleRelation>
+      <memberOfDevice/>
+      <version>2</version>
+      <metadata/>
+      <EXP_SubDir/>
+    </TObjItemData>
+    <tEventData_Full>
+      <tEventData>
+        <TRIGGER/>
+        <PRIORITY>3</PRIORITY>
+        <ERROR_ID>0</ERROR_ID>
+        <TRIG_COND>TValue</TRIG_COND>
+        <Invert_Trig>False</Invert_Trig>
+        <bQueueStartRq>False</bQueueStartRq>
+        <bEventHaveValue>True</bEventHaveValue>
+        <bCrumbleChange>False</bCrumbleChange>
+        <EventType>ServerEvent</EventType>
+      </tEventData>
+      <script><![CDATA[;*********************************************************
+;  DESCRIPTION: 
+;               
+;               
+;  AUTHOR:      
+;  LAST CHANGE: 
+;*********************************************************
+
+UNIT (E.EM_VECTOR_UNIT) _unit
+
+RPC PROCEDURE ReadValuesFromVector(IN INT _id, IN TIME _from, IN TIME _to, IN INT _step, RECORD NOALIAS(SD.EM_EDA_VectorValues) _data, BOOL _isOk, TEXT _errorMsg)
+  CALL [_unit] ReadValuesFromVector(_id, _from, _to, _step, _data, _isOk, _errorMsg)
+END ReadValuesFromVector
+
+BEGIN
+  PRAGMA "ENABLE_INOUT_BY_REF"
+END
+
+]]></script>
+      <scriptRemote/>
+    </tEventData_Full>
+  </CFGRECORDS>
+  <MEMBEROFRESGROUP>
+  </MEMBEROFRESGROUP>
+</ROOT>