Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,48 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class MoveLocationOtherLocation_PopUp
+    Inherits BaseObject
+    Private _StorageLocation As StorageLocation
+    Private _NewStorageLocation As StorageLocation
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+
+    <Browsable(False)> _
+    Property StorageLocation As StorageLocation
+        Get
+            Return _StorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("StorageLocation", _StorageLocation, value)
+
+        End Set
+    End Property
+    <DataSourceCriteria("Storage='@This.StorageLocation.Storage'")> _
+    Property NewStorageLocation As StorageLocation
+        Get
+            Return _NewStorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("NewStorageLocation", _NewStorageLocation, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,67 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class MoveProductsOtherLocation_PopUp
+    Inherits BaseObject
+
+    Private _StorageLocation As StorageLocation
+    Private _NewStorageLocation As StorageLocation
+    Private _Criteria As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Criteria = "1=2"
+    End Sub
+
+    <Browsable(False)> _
+    Property StorageLocation As StorageLocation
+        Get
+            Return _StorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("StorageLocation", _StorageLocation, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Storage='@This.StorageLocation.Storage'")> _
+    Property NewStorageLocation As StorageLocation
+        Get
+            Return _NewStorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("NewStorageLocation", _NewStorageLocation, value)
+        End Set
+    End Property
+    Property Criteria As String
+        Get
+            Return _Criteria
+        End Get
+        Set(value As String)
+            SetPropertyValue("Criteria", _Criteria, value)
+        End Set
+    End Property
+    '------------------Readonly--------------
+    ReadOnly Property StorageComputedLocations As XPCollection(Of StorageComputedLocations)
+        Get
+            If Criteria <> "1=2" Then
+                Return New XPCollection(Of StorageComputedLocations)(Session, CriteriaOperator.Parse(Criteria))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+End Class
@@ -0,0 +1,36 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+Public Class SetSIRPrice_PopUp
+    Inherits BaseObject
+
+    Private _AveragePriceInHUF As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property AveragePriceInHUF As Double
+        Get
+            Return _AveragePriceInHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AveragePriceInHUF", _AveragePriceInHUF, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,54 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("ShowStorageOutDeliveryOutRows_PopUp - HIde OrderInRows all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="OrderInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class ShowStorageOutDeliveryOutRows_PopUp
+    Inherits BaseObject
+
+    Private _OrderInRows As OrderInRows
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property OrderInRows As OrderInRows
+        Get
+            Return _OrderInRows
+        End Get
+        Set(value As OrderInRows)
+            SetPropertyValue("OrderInRows", _OrderInRows, value)
+        End Set
+    End Property
+
+    ReadOnly Property StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows.Oid=?", OrderInRows))
+        End Get
+    End Property
+    ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows)
+        Get
+            Return New XPCollection(Of DeliveryNoteOutRows)(Session, CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows=?", OrderInRows))
+        End Get
+    End Property
+    ReadOnly Property DeliveryNoteInRows As XPCollection(Of DeliveryNoteInRows)
+        Get
+            Return New XPCollection(Of DeliveryNoteInRows)(Session, CriteriaOperator.Parse("Products=? AND QTT <> QTT_Controlled", OrderInRows.Products))
+        End Get
+    End Property
+End Class
@@ -0,0 +1,45 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class StorageDateClearingPrice_GeneterateDate2Date_PopUp
+    Inherits BaseObject
+
+    Dim _StartDate As Date
+    Dim _EndDate As Date
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StartDate As Date
+        Get
+            Return _StartDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("StartDate", _StartDate, value)
+        End Set
+    End Property
+    Property EndDate As Date
+        Get
+            Return _EndDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("EndDate", _EndDate, value)
+        End Set
+    End Property
+End Class