First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,34 @@
+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 GenerateStorageInPDALocationCollection
+    Inherits BaseObject
+
+    Private _StoragePDAParameters As StoragePDAParameters
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StoragePDAParameters As StoragePDAParameters
+        Get
+            Return _StoragePDAParameters
+        End Get
+        Set(value As StoragePDAParameters)
+            SetPropertyValue("StoragePDAParameters", _StoragePDAParameters, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,43 @@
+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 StorageInRowsFromPDACollectionPopup
+    Inherits BaseObject
+
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StoragePDACollectionHeader As StoragePDACollectionHeader
+        Get
+            Return _StoragePDACollectionHeader
+        End Get
+        Set(value As StoragePDACollectionHeader)
+            SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
+        End Set
+    End Property
+    '____________________ReadOnly______________________________________
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Public ReadOnly Property StoragePDACollectionRows As XPCollection(Of StoragePDACollectionRows)
+        Get
+            Return New XPCollection(Of StoragePDACollectionRows)(Session, CriteriaOperator.Parse("StoragePDACollectionHeader.Oid=?", Me.StoragePDACollectionHeader.Oid))
+        End Get
+    End Property
+End Class
@@ -0,0 +1,47 @@
+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("StorageInRows_Split_PopUp - HIde StorageInRows all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class StorageInRows_Split_PopUp
+    Inherits BaseObject
+
+    Private _QTT_Max As Double
+    Private _StorageInRows As StorageInRows
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property QTT_Max As Double
+        Get
+            Return _QTT_Max
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Max", _QTT_Max, value)
+        End Set
+    End Property
+    Property StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,69 @@
+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)> _
+<Appearance("Disable DeliveryNoteInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="DeliveryNoteInHeader", Enabled:=False)> _
+Public Class StorageInfromDeliveryNoteInRowsHeader
+    Inherits BaseObject
+    Private _DeliveryNoteInHeader As DeliveryNoteInHeader
+    Private _Storage As Storage
+    Private _StorageMoveType As StorageMoveType
+    Private _DateCreation As Date
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <VisibleInListView(False)> _
+    <Association("StorageInfromDeliveryNoteInRowsHeader-StorageInfromDeliveryNoteInRowsRows", GetType(StorageInfromDeliveryNoteInRowsRows))> _
+    ReadOnly Property StorageInfromDeliveryNoteInRowsRows As XPCollection(Of StorageInfromDeliveryNoteInRowsRows)
+        Get
+            Return GetCollection(Of StorageInfromDeliveryNoteInRowsRows)("StorageInfromDeliveryNoteInRowsRows")
+        End Get
+    End Property
+    Property DeliveryNoteInHeader As DeliveryNoteInHeader
+        Get
+            Return _DeliveryNoteInHeader
+        End Get
+        Set(value As DeliveryNoteInHeader)
+            SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("StorageInfromDeliveryNoteInRowsHeader.Storage", DefaultContexts.Save)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("Storage='@This.Storage' and MoveDirection=0 and MoveType=7")>
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+        End Set
+    End Property
+    Property DateCreation As Date
+        Get
+            Return _DateCreation
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreation", _DateCreation, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,76 @@
+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 System.Linq
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class StorageInfromDeliveryNoteInRowsRows
+    Inherits BaseObject
+    Private _StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader
+    Private _DeliveryNoteInRows As DeliveryNoteInRows
+    Private _QTT_Process As Double ' a betárolni kívánt mennyiség a sorról
+    Private _QTT_Max As Double ' Maximum mennyit lehet még betárolni a sorról
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("StorageInfromDeliveryNoteInRowsHeader-StorageInfromDeliveryNoteInRowsRows", GetType(StorageInfromDeliveryNoteInRowsHeader))> _
+    Property StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader
+        Get
+            Return _StorageInfromDeliveryNoteInRowsHeader
+        End Get
+        Set(value As StorageInfromDeliveryNoteInRowsHeader)
+            SetPropertyValue("StorageInfromDeliveryNoteInRowsHeader", _StorageInfromDeliveryNoteInRowsHeader, value)
+        End Set
+    End Property
+    Property DeliveryNoteInRows As DeliveryNoteInRows
+        Get
+            Return _DeliveryNoteInRows
+        End Get
+        Set(value As DeliveryNoteInRows)
+            SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+        End Set
+    End Property
+    ReadOnly Property QTT_StorageIn As Double
+        Get
+            Dim _StorageInRows As New XPQuery(Of StorageInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _SIR In _StorageInRows
+                    Where _SIR.DeliveryNoteInRows Is DeliveryNoteInRows
+            Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _
+            Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each item In query
+                _QTT_Sum = item.QTT_Sum
+            Next
+
+            Return _QTT_Sum
+        End Get
+    End Property
+    <NonPersistent()> _
+    Property QTT_Max As Double
+        Get
+            Return _QTT_Max
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Max", _QTT_Max, value)
+        End Set
+    End Property
+End Class