ProductsGant vol2

Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant.vb

@@ -9,20 +9,27 @@ Imports DevExpress.Persistent.Base
 Imports DevExpress.Persistent.BaseImpl
 Imports DevExpress.Persistent.Validation
 Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Editors
 
-<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
-<Appearance("ProductsGant - CustomersFrom all time", TargetItems:="CustomersFrom", Criteria:="1=1", Enabled:=False, Context:="Any")> _
+''' <summary>
+''' Termék GANTT !!!
+''' </summary>
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
+<Appearance("ProductsGant - CustomersFrom all time", TargetItems:="CustomersFrom", Criteria:="IsNull(CustomersFrom)=False", Enabled:=False, Context:="Any")>
 Public Class ProductsGant
     Inherits BaseObject
 
     Private _CustomersFrom As CustomersFrom
     Private _G2antt As String
-
+    Private _Criteria As String
+    Private _PGR As ProductsGantRows
+    Private _DateExecution As DateTime
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
     End Sub
     Public Overrides Sub AfterConstruction()
         MyBase.AfterConstruction()
+        DateExecution = GetSQLTime(Session)
     End Sub
 
     Property CustomersFrom As CustomersFrom
@@ -33,7 +40,34 @@ Public Class ProductsGant
             SetPropertyValue("CustomersFrom", _CustomersFrom, value)
         End Set
     End Property
-    <Size(-1)> _
+    <CriteriaOptionsAttribute("ObjectType"), Size(-1), ImmediatePostData(True)>
+    Property Criteria As String
+        Get
+            Return _Criteria
+        End Get
+        Set(value As String)
+            SetPropertyValue("Criteria", _Criteria, value)
+        End Set
+    End Property
+    <NonPersistent(), MemberDesignTimeVisibility(False)>
+    Public Property ObjectType() As Type
+        Get
+            Return GetType(ProductsGantRows)
+        End Get
+        Set(ByVal value As Type)
+
+        End Set
+    End Property
+    <NonPersistent>
+    Public Property DateExecution As DateTime
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As DateTime)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <Size(-1)>
     Property G2antt As String
         Get
             Return _G2antt
@@ -44,12 +78,17 @@ Public Class ProductsGant
     End Property
 
     'ReadOnly
-    <VisibleInListView(False)> _
-    <VisibleInLookupListView(False)> _
-    <Association("ProductsGant - ProductsGantRows", GetType(ProductsGantRows))> _
+    <VisibleInListView(False)>
+    <VisibleInLookupListView(False)>
     ReadOnly Property ProductsGantRows As XPCollection(Of ProductsGantRows)
         Get
-            Return GetCollection(Of ProductsGantRows)("ProductsGantRows")
+            Dim _CC As String = " ProductsGant.Oid = '" & Me.Oid.ToString() & "'"
+
+            If String.IsNullOrEmpty(Criteria) = False Then
+                _CC += " AND " & CriteriaOperator.Parse(Criteria).ToString()
+            End If
+            Return New XPCollection(Of ProductsGantRows)(Session, CriteriaOperator.Parse(_CC))
+
         End Get
     End Property
 End Class