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,78 @@
+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("ORI_ChangeQTT_PopUp - Disable QTT_Storaged_Will;QTT_Storaged all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="QTT_Storaged_Will;QTT_Storaged", Enabled:=False)> _
+<Appearance("ORI_ChangeQTT_PopUp - Hide OrderInRows all time", TargetItems:="OrderInRows", Criteria:="1=1", Enabled:=False, Context:="DetailView")> _
+Public Class ORI_ChangeQTT_PopUp
+    Inherits BaseObject
+
+    Private _QTT As Double
+    Private _QTT_Storaged_Will As Double '-- Kitárolásra foglalt mennyiség
+    Private _QTT_Storaged As Double '-- Kiadott mennyiség
+    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 QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_Storaged_Will As Double
+        Get
+            Return _QTT_Storaged_Will
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT_Storaged_Will", _QTT_Storaged_Will, value)
+        End Set
+    End Property
+    Property OrderInRows As OrderInRows
+        Get
+            Return _OrderInRows
+        End Get
+        Set(value As OrderInRows)
+            SetPropertyValue("OrderInRows", _OrderInRows, value)
+        End Set
+    End Property
+    Property QTT_Storaged() As Double
+        Get
+            Return _QTT_Storaged
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT_Storaged", _QTT_Storaged, value)
+        End Set
+    End Property
+    ReadOnly Property AuditDataItemPersistent_Collection As XPCollection(Of AuditDataItemPersistent)
+        Get
+            If OrderInRows IsNot Nothing Then
+                Dim _AuditDataItemPersistent_Return_Collection As XPCollection(Of AuditDataItemPersistent)
+                _AuditDataItemPersistent_Return_Collection = AuditedObjectWeakReference.GetAuditTrail(Session, OrderInRows)
+
+                Return _AuditDataItemPersistent_Return_Collection
+            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 ORI_Invoice_Description_PopUp
+    Inherits BaseObject
+
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,452 @@
+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
+Imports DevExpress.ExpressApp.Editors
+
+Public Enum eInvoiceStrategy
+    eInvoiceAdvanceAsk = 0 'Elõleg bekérõ
+    eInvoiceAdvance = 2 'Elõlegszámla
+    eInvoice = 3 'Próbaszámla vagy számla
+    eDeliveryNoteOutAndInvoice = 4 'Kiszállítás + számla
+    eStorageOutAndDeliveryNoteOutAndInvoice = 5 'Kitárolás + kiszállítás + számla
+    eDeliveryNoteOut = 6 'Kiszállítás
+    eStorageOutAndDeliveryNoteOut = 7 'Kitárolás + kiszállítás
+    eInvoiceFinal = 8 'Csak végszámla készítése
+End Enum
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("ORI_Invoice_Popup - AlertMessage",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="AlertMessage=''",
+                  context:="DetailView",
+                  targetitems:="AlertMessage",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - InvoiceStrategy in ('eInvoice','eInvoiceAdvanceAsk','eInvoiceAdvance')",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="InvoiceStrategy in ('eInvoice','eInvoiceAdvanceAsk','eInvoiceAdvance','eInvoiceFinal')",
+                  context:="DetailView",
+                  targetitems:="TransportAddress;Storage;StorageMoveType;DeliveryNoteOutType;IsAPCSheet;InvoiceStrategy;ShipmentOption",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - InvoiceStrategy='eInvoiceAdvanceAsk'",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="InvoiceStrategy in ('eInvoiceAdvanceAsk')",
+                  context:="DetailView",
+                  targetitems:="IsLiquidAssets;LiquidAssets;IsFinalInvoice",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - InvoiceStrategy='eInvoiceAdvance'",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="InvoiceStrategy in ('eInvoiceAdvance')",
+                  context:="DetailView",
+                  targetitems:="InvoiceStrategy;ShipmentOption;Storage;StorageMoveType;DeliveryNoteOutType;QualityOption;" + _
+                               "TransportAddress;LiquidAssets;IsLiquidAssets;IsFinalInvoice;PriceMode;IsAPCSheet",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - InvoiceStrategy='eInvoiceAdvance' - Enable",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="InvoiceStrategy in ('eInvoiceAdvance')",
+                  context:="DetailView",
+                  targetitems:="DateExecution,PaymentOption;BankInformation;DatePayment;DateCreated",
+                  enabled:=False)> _
+<Appearance("ORI_Invoice_Popup - CurrencyName='HUF'",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="CurrencyName.ShortName='HUF'",
+                  context:="DetailView",
+                  targetitems:="CurrencyRate;PriceMode",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - PaymentOption.PayMode != 'InCash'",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="PaymentOption.PayMode != 'InCash'",
+                  context:="DetailView",
+                  targetitems:="IsLiquidAssets;LiquidAssets",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - PaymentOption.PayMode != 'InTransfer'",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="PaymentOption.PayMode != 'InTransfer'",
+                  context:="DetailView",
+                  targetitems:="BankInformation",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - IsLiquidAssets",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="IsLiquidAssets != True",
+                  context:="DetailView",
+                  targetitems:="LiquidAssets",
+                  visibility:=ViewItemVisibility.Hide)> _
+<Appearance("ORI_Invoice_Popup - IsAPCSheet",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="IsAPCSheet = True",
+                  context:="DetailView",
+                  targetitems:="DatePayment;PaymentOption",
+                  enabled:=False)> _
+<Appearance("ORI_Invoice_Popup - InvoiceAdvance",
+                  appearanceitemtype:="ViewItem",
+                  criteria:="InvoiceStrategy <> 8",
+                  context:="DetailView",
+                  targetitems:="InvoiceAdvance",
+                  visibility:=ViewItemVisibility.Hide)> _
+Public Class ORI_Invoice_Popup
+    Inherits BaseObject
+
+    Private _InvoiceStrategy As eInvoiceStrategy
+    Private _InvoiceType As InvoiceType
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Ügyfél
+    Private _DateCreated As Date 'Kiállítás dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _DatePayment As Date 'Fizetési határidõ
+    Private _Description As String 'Számlán, szállítólevelen szereplõ megjegyzés
+    Private _Description_Header As String 'Számlán, szállítólevelen szereplõ fejléc megjegyzés
+    Private _PaymentOption As PaymentOption 'Fizetési opció (ebbõl automatikusan DatePayment és Date Execution)
+    Private _ShipmentOption As ShipmentOption 'Szállítási kondíció
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _CurrencyRate As Double = 0 'Árfolyam, ha a deviza nem HUF egyébként 1
+    Private _BankInformation As BankInformation ' A fejlécben megjelenõ számlaszám
+    Private _Storage As Storage 'Raktár a Kitárolás+szállítólevél action-hoz
+    Private _StorageMoveType As StorageMoveType
+    Private _DeliveryNoteOutType As DeliveryNoteOutType
+    Private _QualityOption As QualityOption ' Minõségi opció
+    Private _TransportAddress As Address ' -- Szállítási cím
+    Private _LiquidAssets As LiquidAssets 'Ha kp, akkor ebbe a pénztárba generálja le abevételi pénztárbizonylatot.
+    Private _IsLiquidAssets As Boolean 'Készûl-e pénztárbizonylat?
+    Private _IsFinalInvoice As Boolean 'Egybõl végszámla legyen-e? ha igen akkor lehet csak pénztárbizonylatot csinálni és ekkor kell GLCassa is!
+    Private _PriceMode As ePriceMode 'DEV HUF regenerálás módja
+    Private _IsAPCSheet As Boolean 'Termeltetési szerzõdéssel kapcsolatos-e
+    Private _AlertMessage As String 'Figyelmeztetõ szöveg, ha valami nem jó
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsFinalInvoice = False
+        IsLiquidAssets = False
+        IsAPCSheet = False
+        CurrencyRate = 1
+        AlertMessage = ""
+    End Sub
+
+    Property InvoiceStrategy As eInvoiceStrategy
+        Get
+            Return _InvoiceStrategy
+        End Get
+        Set(value As eInvoiceStrategy)
+            SetPropertyValue("InvoiceStrategy", _InvoiceStrategy, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and InvoiceTypeBase in (2,3)")>
+    <RuleRequiredField("ORI_Invoice_Popup - InvoiceType", DefaultContexts.Save)>
+    Property InvoiceType() As InvoiceType
+        Get
+            Return _InvoiceType
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceType", _InvoiceType, value)
+        End Set
+    End Property
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    <ImmediatePostData()>
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.PaymentOption IsNot Nothing Then
+                If Me.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateExecution Then
+                    Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay)
+                End If
+            End If
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.DateExecution = Nothing Then
+                Me.DatePayment = Nothing
+            End If
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If CurrencyName IsNot Nothing Then
+                    If CurrencyName.ShortName <> "HUF" Then
+                        Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True and GetDate(DateValid)<=?",
+                             CurrencyName, value.Date))
+                        _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
+                        If _CurrencyRate_MNB_Collection.Count > 0 Then
+                            For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection
+                                If _CurrencyRate_MNB.DateValid.Date = _DateExecution.Date Then
+                                    CurrencyRate = _CurrencyRate_MNB.RateAverage
+                                    Exit For
+                                End If
+                                Exit For
+                            Next
+                        End If
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ORI_Invoice_Popup - DatePayment", DefaultContexts.Save)>
+    Property DatePayment() As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property Description_Header As String
+        Get
+            Return _Description_Header
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description_Header", _Description_Header, value)
+        End Set
+    End Property
+    <ImmediatePostData()>
+    <RuleRequiredField("ORI_Invoice_Popup - PaymentOption", DefaultContexts.Save)>
+    Property PaymentOption() As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If Me.DateExecution > #1/1/1900# And Me.PaymentOption IsNot Nothing Then
+                    If IsAPCSheet = False Then
+                        If value.DatePaymentMode = eDatePaymentMode.eDateCreated Then
+                            Me.DatePayment = Me.DateCreated.AddDays(Me.PaymentOption.PayDay)
+                        Else
+                            Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay)
+                        End If
+                    End If
+                End If
+                If value IsNot Nothing Then
+                    If value.PayMode = ePayMode.InCash Then
+                        Me.DateExecution = GetSQLTime(Session)
+                        Me.DatePayment = GetSQLTime(Session)
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ORI_Invoice_Popup - ShipmentOption", DefaultContexts.Save,
+                        TargetCriteria:="InvoiceStrategy in ('eDeliveryNoteOutAndInvoice','eStorageOutAndDeliveryNoteOutAndInvoice','eDeliveryNoteOut')")>
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)>
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <RuleRange("ORI_Invoice_Popup - CurrencyRate", DefaultContexts.Save, 1.01, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName <> 'HUF'")>
+    Property CurrencyRate() As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.CustomersFrom'")>
+    <RuleRequiredField("ORI_Invoice_Popup - BankInformation", DefaultContexts.Save,
+                        TargetCriteria:="PaymentOption.PayMode in ('InTransfer') and InvoiceStrategy !='eInvoiceAdvance'")>
+    Property BankInformation As BankInformation
+        Get
+            Return _BankInformation
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+
+    <ImmediatePostData(True), DataSourceCriteria("MoveType = 0 and MoveDirection=1")>
+    <RuleRequiredField("ORI_Invoice_Popup - StorageMoveType", DefaultContexts.Save,
+                         TargetCriteria:="InvoiceStrategy in ('eStorageOutAndDeliveryNoteOut','eStorageOutAndDeliveryNoteOutAndInvoice')")>
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If value IsNot Nothing Then
+                    Storage = value.Storage 'MoveType
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ORI_Invoice_Popup - DeliveryNoteOutType", DefaultContexts.Save,
+                        TargetCriteria:="InvoiceStrategy in ('eStorageOutAndDeliveryNoteOut','eStorageOutAndDeliveryNoteOutAndInvoice','eDeliveryNoteOut')")>
+    Property DeliveryNoteOutType As DeliveryNoteOutType
+        Get
+            Return _DeliveryNoteOutType
+        End Get
+        Set(value As DeliveryNoteOutType)
+            SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    <RuleRequiredField("ORI_Invoice_Popup.TransportAddress", DefaultContexts.Save,
+                        TargetCriteria:="InvoiceStrategy in ('eStorageOutAndDeliveryNoteOut','eStorageOutAndDeliveryNoteOutAndInvoice','eDeliveryNoteOut')")>
+    Property TransportAddress As Address
+        Get
+            Return _TransportAddress
+        End Get
+        Set(value As Address)
+            SetPropertyValue("TransportAddress", _TransportAddress, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CurrencyName='@This.CurrencyName' and LiquidAssetsType in ('NormalCheckout','CurrencyCheckout') and CustomerFrom = '@This.CustomersFrom'")>
+    Property LiquidAssets As LiquidAssets
+        Get
+            Return _LiquidAssets
+        End Get
+        Set(value As LiquidAssets)
+            SetPropertyValue("LiquidAssets", _LiquidAssets, value)
+        End Set
+    End Property
+    <ImmediatePostData()>
+    Property IsLiquidAssets As Boolean
+        Get
+            Return _IsLiquidAssets
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsLiquidAssets", _IsLiquidAssets, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property IsFinalInvoice As Boolean
+        Get
+            Return _IsFinalInvoice
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsFinalInvoice", _IsFinalInvoice, value)
+        End Set
+    End Property
+    Property PriceMode As ePriceMode
+        Get
+            Return _PriceMode
+        End Get
+        Set(value As ePriceMode)
+            SetPropertyValue("PriceMode", _PriceMode, value)
+        End Set
+    End Property
+    Property IsAPCSheet As Boolean
+        Get
+            Return _IsAPCSheet
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAPCSheet", _IsAPCSheet, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property AlertMessage As String
+        Get
+            Return _AlertMessage
+        End Get
+        Set(value As String)
+            SetPropertyValue("AlertMessage", _AlertMessage, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property InvoiceAdvance As XPCollection(Of InvoiceHeader)
+        Get
+            'Dim _InvoiceHeader_Collection_Return As New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("1=2"))
+            'Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("IsEditable=False and DocumentNumber !='' and InvoiceType.InvoiceTypeBase in ('eEarnestofTender','eAdvancePayment') and Customers=? and CustomersFrom=?", Customers, Me.CustomersFrom))
+            'Dim _InvoiceHeader As InvoiceHeader
+            'Dim _InvoiceRows_Advance As InvoiceRows
+            'Dim _InvoiceRows As InvoiceRows
+            'Dim _Need As Boolean = False
+            'For Each _InvoiceHeader In _InvoiceHeader_Collection
+            '    _Need = True
+
+            '    For Each _InvoiceRows In _InvoiceHeader.InvoiceRows
+            '        _InvoiceRows_Advance = Session.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceHeader.IsStorno=False and InvoiceRowsAdvance.Oid=? and isnull(InvoiceHeader.GCRecord)=True and IsNull(GCRecord)=True and InvoiceHeader.DocumentNumber !='' and InvoiceHeader.IsEditable=False", _InvoiceRows.Oid))
+            '        If _InvoiceRows_Advance IsNot Nothing Then
+            '            If _InvoiceRows_Advance.IsDeleted = False Then
+            '                _Need = False
+            '                Exit For
+            '            End If
+
+            '        End If
+            '    Next
+
+            '    If _Need Then
+            '        _InvoiceHeader_Collection_Return.Add(_InvoiceHeader)
+            '    End If
+            'Next
+
+            'Return _InvoiceHeader_Collection_Return
+            Dim _Criteria As String = ""
+            _Criteria = " IsEditable=False and DocumentNumber !='' and "
+            _Criteria += " InvoiceType.InvoiceTypeBase In ('eEarnestofTender','eAdvancePayment') and "
+            _Criteria += " Customers=? and CustomersFrom=? and IsNull(GCRecord)=True and "
+            _Criteria += " TotalBruttoHUF > TotalAdvancedBruttoHUF "
+
+            Dim _InvoiceHeader_Collection_Return = New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse(_Criteria, Customers, Me.CustomersFrom))
+            For Each _i In _InvoiceHeader_Collection_Return
+                _i.TotalAdvancedWill = _i.TotalBruttoHUF - _i.TotalAdvancedBruttoHUF
+            Next
+
+            Return _InvoiceHeader_Collection_Return
+        End Get
+    End Property
+End Class
@@ -0,0 +1,41 @@
+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
+
+Public Enum eORIStornoDeliveryNoteOutType
+    eStornoDeliveryNoteOut = 0
+    eStornoDeliveryNoteOutStorageOut = 1
+End Enum
+
+<DefaultClassOptions()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+<NonPersistent()> _
+Public Class ORI_Storno_DeliveryNoteOut_PopUp
+    Inherits BaseObject
+
+    Private _ORIStornoDeliveryNoteOutType As eORIStornoDeliveryNoteOutType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property ORIStornoDeliveryNoteOutType As eORIStornoDeliveryNoteOutType
+        Get
+            Return _ORIStornoDeliveryNoteOutType
+        End Get
+        Set(value As eORIStornoDeliveryNoteOutType)
+            SetPropertyValue("ORIStornoDeliveryNoteOutType", _ORIStornoDeliveryNoteOutType, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,42 @@
+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
+
+Public Enum eORIStornoInvoiceType
+    eStornoInvoice = 0
+    eStornoInvoiceDelivery = 1
+    eStornoInvoiceDeliveryStorageOut = 2
+End Enum
+
+<DefaultClassOptions()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+<NonPersistent()> _
+Public Class ORI_Storno_Invoice_PopUp
+    Inherits BaseObject
+
+    Private _ORIStornoInvoiceType As eORIStornoInvoiceType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property ORIStornoInvoiceType As eORIStornoInvoiceType
+        Get
+            Return _ORIStornoInvoiceType
+        End Get
+        Set(value As eORIStornoInvoiceType)
+            SetPropertyValue("ORIStornoInvoiceType", _ORIStornoInvoiceType, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,64 @@
+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
+
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide CurrencyName and CustomersFrom", AppearanceItemType.LayoutItem, "1=1", TargetItems:="CurrencyName;CustomersFrom", visibility:=Editors.ViewItemVisibility.Hide)> _
+<DefaultClassOptions()> _
+Public Class OrderInHeaderFromOfferOutRowsHeader
+    Inherits BaseObject
+    Private _OrderInParameters As OrderInParameters ' Bejövő megrendelési paraméter
+    Private _CurrencyName As CurrencyName ' Deviza (a popup-on nem látszik, háttérben kell)
+    Private _CustomersFrom As CustomersFrom ' Saját cég (a popup-on nem látszik, háttérben kell)
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <RuleRequiredField("OrderInHeaderFromOfferOutRowsHeader-OrderInParameters", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' AND CurrencyName='@This.CurrencyName'")>
+    Property OrderInParameters As OrderInParameters
+        Get
+            Return _OrderInParameters
+        End Get
+        Set(value As OrderInParameters)
+            SetPropertyValue("OrderInParameters", _OrderInParameters, value)
+        End Set
+    End Property
+    <RuleRequiredField("OrderInHeaderFromOfferOutRowsHeader-CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("OrderInHeaderFromOfferOutRowsHeader-OrderInHeaderFromOfferOutRowsRows", GetType(OrderInHeaderFromOfferOutRowsRows))> _
+    ReadOnly Property OrderInHeaderFromOfferOutRowsRows As XPCollection(Of OrderInHeaderFromOfferOutRowsRows)
+        Get
+            Return GetCollection(Of OrderInHeaderFromOfferOutRowsRows)("OrderInHeaderFromOfferOutRowsRows")
+
+        End Get
+    End Property
+
+End Class
@@ -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
+
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultClassOptions()> _
+Public Class OrderInHeaderFromOfferOutRowsRows
+    Inherits BaseObject
+
+    Private _QTT_Process As Double '-- Kézzel beírható mennyiség a végrehajtáshoz (pld. mennyi legyen kitárolva ...)
+    Private _OfferOutRows As OfferOutRows ' Kimenő ajánlati sor
+    Private _OrderInHeaderFromOfferOutRowsHeader As OrderInHeaderFromOfferOutRowsHeader ' Átmeneti objektum a bejövő megrendelés létrehozásához
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <RuleRange("OrderInHeaderFromOfferOutRowsRows-QTT_Process", DefaultContexts.Save, 0.0001, Double.MaxValue)> _
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+        End Set
+    End Property
+    Property OfferOutRows As OfferOutRows
+        Get
+            Return _OfferOutRows
+        End Get
+        Set(value As OfferOutRows)
+            SetPropertyValue("OfferOutRows", _OfferOutRows, value)
+        End Set
+    End Property
+    <Association("OrderInHeaderFromOfferOutRowsHeader-OrderInHeaderFromOfferOutRowsRows", GetType(OrderInHeaderFromOfferOutRowsHeader))> _
+    Property OrderInHeaderFromOfferOutRowsHeader As OrderInHeaderFromOfferOutRowsHeader
+        Get
+            Return _OrderInHeaderFromOfferOutRowsHeader
+        End Get
+        Set(value As OrderInHeaderFromOfferOutRowsHeader)
+            SetPropertyValue("OrderInHeaderFromOfferOutRowsHeader", _OrderInHeaderFromOfferOutRowsHeader, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,63 @@
+
+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
+
+Public Enum eRegeneratorErrorType
+    eNotSet = 0
+    eInvoiceError = 1
+    eDeliveryError = 2
+    eStorageError = 3
+End Enum
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class OrderInRegenerator_PopUp
+    Inherits BaseObject
+
+    Private _ResultString As String
+    Private _RowIndex As Long
+    Private _RegeneratorErrorType As eRegeneratorErrorType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        RegeneratorErrorType = 0
+    End Sub
+
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ResultString As String
+        Get
+            Return _ResultString
+        End Get
+        Set(value As String)
+            SetPropertyValue("ResultString", _ResultString, value)
+        End Set
+    End Property
+    Property RegeneratorErrorType As eRegeneratorErrorType
+        Get
+            Return _RegeneratorErrorType
+        End Get
+        Set(value As eRegeneratorErrorType)
+            SetPropertyValue("RegeneratorErrorType", _RegeneratorErrorType, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,56 @@
+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.Persistent.Base.General
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<NonPersistent()> _
+Public Class OrderInRowsOther_ChangeGroup
+    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 VAT As VAT
+    Property Change_VAT As Boolean = False
+    Property Units As Units
+    Property Change_Units As Boolean = False
+    Property RowGroup1 As String
+    Property Change_RowGroup1 As Boolean = False
+    Property RowGroup2 As String
+    Property Change_RowGroup2 As Boolean = False
+    Property QualityOption As QualityOption
+    Property Change_QualityOption As Boolean = False
+    Property FinalPricePercent As Double '%-osan a meglévõ értéket növeli (+ és - lehet !!!)
+    Property Change_FinalPricePercent As Boolean = False
+    Property ShortName As String
+    Property Change_ShortName As Boolean = False
+    Property Description As String
+    Property Change_Description As Boolean = False
+
+    Property WorkState As WorkState
+    Property Change_WorkState As Boolean = False
+    Property WorkStateGroup As String
+    Property Change_WorkStateGroup As Boolean = False
+    Property WorkStateExpiration As Date
+    Property Change_WorkStateExpiration As Boolean = False
+    Property WorkStateStatus As TaskStatus
+    Property Change_WorkStateStatus As Boolean = False
+End Class
@@ -0,0 +1,35 @@
+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 OrderInRows_ChangeGroup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Property RowGroup1 As String
+    Property Change_RowGroup1 As Boolean = False
+    Property RowGroup2 As String
+    Property Change_RowGroup2 As Boolean = False
+    Property QualityOption As QualityOption
+    Property Change_QualityOption As Boolean = False
+    Property FinalPricePercent As Double '%-osan a meglévõ értéket növeli (+ és - lehet !!!)
+    Property Change_FinalPricePercent As Boolean = False
+    Property Description As String
+    Property Change_Description As Boolean = False
+    Property DiscountPercent As Double
+    Property Change_DiscountPercent As Boolean = False
+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 StorageOutFromOrderInFIFO_PopUp
+    Inherits BaseObject
+
+    Private _Products As Products
+    Private _QTT_Full As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <ImmediatePostData()> _
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property QTT_Full As Double
+        Get
+            Return _QTT_Full
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Full", _QTT_Full, value)
+        End Set
+    End Property
+
+    '--------Readonly--------------
+    ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
+        Get
+            If Products IsNot Nothing Then
+                Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("Products=?", Products))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+End Class