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,53 @@
+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("DeliveryNoteInFromOffersInRowsHeader - Disable OfferInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OfferInHeader", Enabled:=False)> _
+Public Class DeliveryNoteInFromOffersInRowsHeader
+    Inherits BaseObject
+
+    Private _OfferInHeader As OfferInHeader
+    Private _DeliveryNoteInType As DeliveryNoteInType
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property OfferInHeader As OfferInHeader
+        Get
+            Return _OfferInHeader
+        End Get
+        Set(value As OfferInHeader)
+            SetPropertyValue("OfferInHeader", _OfferInHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInFromOffersInRowsHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+
+    <Association("DeliveryNoteInFromOffersInRowsHeader-DeliveryNoteInFromOffersInRowsRows", GetType(DeliveryNoteInFromOffersInRowsRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInFromOffersInRowsRows As XPCollection(Of DeliveryNoteInFromOffersInRowsRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInFromOffersInRowsRows)("DeliveryNoteInFromOffersInRowsRows")
+        End Get
+    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 System.Linq
+
+<DefaultClassOptions(), CreatableItem(False), NavigationItem(False)> _
+Public Class DeliveryNoteInFromOffersInRowsRows
+    Inherits BaseObject
+
+    Private _DeliveryNoteInFromOffersInRowsHeader As DeliveryNoteInFromOffersInRowsHeader
+    Private _OfferInRows As OfferInRows
+    Private _QTT_Process As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+    <Association("DeliveryNoteInFromOffersInRowsHeader-DeliveryNoteInFromOffersInRowsRows", GetType(DeliveryNoteInFromOffersInRowsHeader))> _
+    Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOffersInRowsHeader
+        Get
+            Return _DeliveryNoteInFromOffersInRowsHeader
+        End Get
+        Set(value As DeliveryNoteInFromOffersInRowsHeader)
+            SetPropertyValue("DeliveryNoteInFromOffersInRowsHeader", _DeliveryNoteInFromOffersInRowsHeader, value)
+        End Set
+    End Property
+    Property OfferInRows As OfferInRows
+        Get
+            Return _OfferInRows
+        End Get
+        Set(value As OfferInRows)
+            SetPropertyValue("OfferInRows", _OfferInRows, 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_DeliveryNoteIn As Double
+        Get
+            Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _DNIR In _DeliveryNoteInRows
+                    Where _DNIR.OfferInRows Is OfferInRows
+            Group _DNIR By _DNIR.OfferInRows 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
+End Class
@@ -0,0 +1,50 @@
+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 OrderOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OrderOutHeader", Enabled:=False)> _
+Public Class DeliveryNoteInFromOrderOutRowsHeader
+    Inherits BaseObject
+    Private _OrderOutHeader As OrderOutHeader ' Kimenő megrendelés fejléc
+    Private _DeliveryNoteInType As DeliveryNoteInType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("DeliveryNoteInFromOrderOutRowsHeader-DeliveryNoteInFromOrderOutRowsRows", GetType(DeliveryNoteInFromOrderOutRowsRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInFromOrderOutRowsRows As XPCollection(Of DeliveryNoteInFromOrderOutRowsRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInFromOrderOutRowsRows)("DeliveryNoteInFromOrderOutRowsRows")
+        End Get
+    End Property
+    Property OrderOutHeader As OrderOutHeader
+        Get
+            Return _OrderOutHeader
+        End Get
+        Set(value As OrderOutHeader)
+            SetPropertyValue("OrderOutHeader", _OrderOutHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInFromOrderOutRowsHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,68 @@
+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 DeliveryNoteInFromOrderOutRowsRows
+    Inherits BaseObject
+    Private _DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader
+    Private _OrderOutRows As OrderOutRows
+    Private _QTT_Process As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("DeliveryNoteInFromOrderOutRowsHeader-DeliveryNoteInFromOrderOutRowsRows", GetType(DeliveryNoteInFromOrderOutRowsHeader))> _
+    Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader
+        Get
+            Return _DeliveryNoteInFromOrderOutRowsHeader
+        End Get
+        Set(value As DeliveryNoteInFromOrderOutRowsHeader)
+            SetPropertyValue("DeliveryNoteInFromOrderOutRowsHeader", _DeliveryNoteInFromOrderOutRowsHeader, value)
+        End Set
+    End Property
+    Property OrderOutRows As OrderOutRows
+        Get
+            Return _OrderOutRows
+        End Get
+        Set(value As OrderOutRows)
+            SetPropertyValue("OrderOutRows", _OrderOutRows, 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_DeliveryNoteIn As Double
+        Get
+            Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _DNIR In _DeliveryNoteInRows
+                    Where _DNIR.OrderOutRows Is OrderOutRows
+            Group _DNIR By _DNIR.OrderOutRows 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
+End Class
@@ -0,0 +1,30 @@
+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 DeliveryNoteInRRFC_Popup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property BonusHUF As Double
+End Class
@@ -0,0 +1,57 @@
+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 DeliveryNoteInToRegistry
+    Inherits BaseObject
+
+    Private _RegistryType As RegistryType 'Iktatás típusa
+    Private _F_CustomerBankAccounts As CustomerBankAccounts
+    Private _RegistryNumber As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property RegistryType As RegistryType
+        Get
+            Return _RegistryType
+        End Get
+        Set(value As RegistryType)
+            SetPropertyValue("RegistryType", _RegistryType, value)
+        End Set
+    End Property
+    Property F_CustomerBankAccounts As CustomerBankAccounts
+        Get
+            Return _F_CustomerBankAccounts
+        End Get
+        Set(value As CustomerBankAccounts)
+            SetPropertyValue("F_CustomerBankAccounts", _F_CustomerBankAccounts, value)
+        End Set
+    End Property
+    Property RegistryNumber As String
+        Get
+            Return _RegistryNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("RegistryNumber", _RegistryNumber, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,52 @@
+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 DeliveryNoteInToStorageInHeader
+    Inherits BaseObject
+    Private _Storage As Storage
+    Private _StorageMoveType As StorageMoveType
+    Private _IsRegistry As Boolean
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsRegistry = False
+    End Sub
+    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 IsRegistry As Boolean
+        Get
+            Return _IsRegistry
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsRegistry", _IsRegistry, value)
+        End Set
+    End Property
+End Class