GANT csesztetése

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

@@ -17,7 +17,11 @@ Public Class ProductsGantRows
     Private _Customers As Customers
     Private _Products As Products
     Private _CalculatedRotation As Double 'Kalkulált forgási sebesség
+    Private _CalculatedRotationW52 As Double 'Kalkulált forgási sebesség 52hétre vonatkozó
     Private _ManualRotation As Double 'Manuális forgási sebesség
+    Private _QTT_Minimum As Double 'Minimális mennyiség az ügyfélnél
+    Private _QTT_Critical As Double 'Kritikus mennyiség az ügyfélnél
+
 
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
@@ -57,6 +61,14 @@ Public Class ProductsGantRows
             SetPropertyValue("CalculatedRotation", _CalculatedRotation, value)
         End Set
     End Property
+    Property CalculatedRotationW52 As Double
+        Get
+            Return _CalculatedRotationW52
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CalculatedRotationW52", _CalculatedRotationW52, value)
+        End Set
+    End Property
     Property ManualRotation As Double
         Get
             Return _ManualRotation
@@ -65,6 +77,22 @@ Public Class ProductsGantRows
             SetPropertyValue("ManualRotation", _ManualRotation, value)
         End Set
     End Property
+    Property QTT_Minimum As Double
+        Get
+            Return _QTT_Minimum
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Minimum", _QTT_Minimum, value)
+        End Set
+    End Property
+    Property QTT_Critical As Double
+        Get
+            Return _QTT_Critical
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Critical", _QTT_Critical, value)
+        End Set
+    End Property
 
     'ReadOnly
     <VisibleInListView(False)>