Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportOrderInRowsPopUp.vb

@@ -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
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class ImportOrderInRowsPopUp
+    Inherits BaseObject
+    Private _CRM_Opportunities As CRM_Opportunities
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <Browsable(False)> _
+    <ImmediatePostData()> _
+    Property CRM_Opportunities As CRM_Opportunities
+        Get
+            Return _CRM_Opportunities
+        End Get
+        Set(value As CRM_Opportunities)
+            SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
+        End Set
+    End Property
+
+    '--------------ReadOnly------------------------
+    <ImmediatePostData()> _
+    ReadOnly Property OrderInHeader As XPCollection(Of OrderInHeader)
+        Get
+            Return New XPCollection(Of OrderInHeader)(Session, Session.ParseCriteria("CRM_Opportunities=?", Me.CRM_Opportunities))
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportRecipePopUp.vb

@@ -0,0 +1,24 @@
+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 ImportRecipePopUp
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Property Recipe As Recipe
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/InsertDiscountRowPopup.vb

@@ -0,0 +1,140 @@
+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
+
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultClassOptions()> _
+<Appearance("Disable QTT, Units", AppearanceItemType.ViewItem, "1=1", TargetItems:="QTT;Units", Enabled:=False)> _
+<Appearance("Disable SUMFinalPrice", AppearanceItemType.ViewItem, "1=1", TargetItems:="SUMFinalPrice", Enabled:=False)> _
+<Appearance("Disable DiscountPriceHUF and DiscountPriceDEV", AppearanceItemType.ViewItem, "DiscountPercent>0", TargetItems:="DiscountPriceHUF;DiscountPriceDEV", Enabled:=False)> _
+<Appearance("Disable DiscountPercent", AppearanceItemType.ViewItem, "DiscountPriceHUF > 0 Or DiscountPriceDEV > 0", TargetItems:="DiscountPercent", Enabled:=False)> _
+<Appearance("Hide DiscountPriceHUF if CurrencyName is HUF", AppearanceItemType.ViewItem, "OfferOutHeader.CurrencyName.ShortName='HUF'", TargetItems:="DiscountPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide DiscountPriceDEV if CurrencyName is not HUF", AppearanceItemType.ViewItem, "OfferOutHeader.CurrencyName.ShortName<>'HUF'", TargetItems:="DiscountPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide OfferOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OfferOutHeader", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class InsertDiscountRowPopup
+    Inherits BaseObject
+    Private _Row_Group1 As String
+    Private _Row_Group2 As String
+    Private _ShortName As String = "Kedvezmény"
+    Private _Description As String
+    Private _DiscountPriceHUF As Double
+    Private _DiscountPriceDEV As Double
+    Private _Units As Units
+    Private _DiscountPercent As Double
+    Private _QTT As Double
+    Private _OfferOutHeader As OfferOutHeader
+    Private _SUMFinalPrice As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.QTT = 1
+        Me.Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'"))
+    End Sub
+    Property Row_Group1 As String
+        Get
+            Return _Row_Group1
+        End Get
+        Set(value As String)
+            SetPropertyValue("Row_Group1", _Row_Group1, value)
+        End Set
+    End Property
+    Property Row_Group2 As String
+        Get
+            Return _Row_Group2
+        End Get
+        Set(value As String)
+            SetPropertyValue("Row_Group2", _Row_Group2, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DiscountPriceHUF As Double
+        Get
+            Return _DiscountPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DiscountPriceDEV As Double
+        Get
+            Return _DiscountPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property Units As Units
+        Get
+            Return _Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DiscountPercent As Double
+        Get
+            Return _DiscountPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DiscountPercent", _DiscountPercent, value)
+        End Set
+    End Property
+    Property OfferOutHeader As OfferOutHeader
+        Get
+            Return _OfferOutHeader
+        End Get
+        Set(value As OfferOutHeader)
+            SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property SUMFinalPrice As Double
+        Get
+            Return _SUMFinalPrice
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SUMFinalPrice", _SUMFinalPrice, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferInRows_ChangeGroup.vb

@@ -0,0 +1,40 @@
+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 OfferInRows_ChangeGroup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property ShortName As String
+    Property Change_ShortName As Boolean = False
+    Property Description As String
+    Property Change_Description As Boolean = False
+    Property DescriptionPrivate As String
+    Property Change_DescriptionPrivate As Boolean = False
+    Property QualityOption As QualityOption
+    Property Change_QualityOption As Boolean = False
+    Property Units As Units
+    Property Change_Units As Boolean = False
+    Property VAT As VAT
+    Property Change_VAT As Boolean = False
+    Property RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Property Change_RowGroup1 As Boolean = False
+    Property RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Property Change_RowGroup2 As Boolean = False
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_ChangeState_PopUp.vb

@@ -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
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide OfferLOSTReason if OfferInState<>2", AppearanceItemType.ViewItem, "OfferInState<>2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide OfferLOSTReasonDescription if OfferLOSTReason<>7", AppearanceItemType.ViewItem, "OfferLOSTReason<>7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class OfferIn_ChangeState_PopUp
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _OfferInState As eOfferInState
+    Private _OfferLOSTReasonDescription As String
+    Private _OfferLOSTReason As eOfferInLOSTReason
+
+    <ImmediatePostData()> _
+    Property OfferInState As eOfferInState
+        Get
+            Return _OfferInState
+        End Get
+        Set(value As eOfferInState)
+            SetPropertyValue("OfferInState", _OfferInState, value)
+        End Set
+    End Property
+    Property OfferLOSTReasonDescription As String
+        Get
+            Return _OfferLOSTReasonDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property OfferLOSTReason As eOfferInLOSTReason
+        Get
+            Return _OfferLOSTReason
+        End Get
+        Set(value As eOfferInLOSTReason)
+            SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_RegenerateDEV_Popup.vb

@@ -0,0 +1,33 @@
+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), NonPersistent(), CreatableItem(False)> _
+Public Class OfferIn_RegenerateDEV_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 CurrencyName As CurrencyName
+    Property CurrencyRate As Double
+    Property DateExecution As Date
+    Property PriceMode As ePriceMode
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOutRows_ChangeGroup.vb

@@ -0,0 +1,49 @@
+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 OfferOutRows_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
+    <DataSourceCriteria("OfferInHeader.IsEditable='False'")> _
+    Property OfferInRows As OfferInRows
+    Property Change_OfferInRows As Boolean = False
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOut_ChangeState_PopUp.vb

@@ -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
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide OfferLOSTReason if OfferOutState<>2", AppearanceItemType.ViewItem, "OfferOutState<>2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide OfferLOSTReasonDescription if OfferLOSTReason<>7 OfferOut", AppearanceItemType.ViewItem, "OfferLOSTReason<>7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class OfferOut_ChangeState_PopUp
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _OfferOutState As eOfferOutState
+    Private _OfferLOSTReason As eOfferOutLOSTReason
+    Private _OfferLOSTReasonDescription As String
+
+    <ImmediatePostData()> _
+    Property OfferOutState As eOfferOutState
+        Get
+            Return _OfferOutState
+        End Get
+        Set(value As eOfferOutState)
+            SetPropertyValue("OfferOutState", _OfferOutState, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property OfferLOSTReason As eOfferOutLOSTReason
+        Get
+            Return _OfferLOSTReason
+        End Get
+        Set(value As eOfferOutLOSTReason)
+            SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value)
+        End Set
+    End Property
+    Property OfferLOSTReasonDescription As String
+        Get
+            Return _OfferLOSTReasonDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OffersOutCloneForCRM.vb

@@ -0,0 +1,44 @@
+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
+
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultClassOptions()> _
+<Appearance("Hide OfferOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OfferOutHeader", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class OffersOutCloneForCRM
+    Inherits BaseObject
+    Private _OfferOutHeader As OfferOutHeader
+    Private _CRM_Opportunities As CRM_Opportunities
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <RuleRequiredField("OffersOutCloneForCRM-CRM_Opportunities", DefaultContexts.Save)> _
+    Property CRM_Opportunities As CRM_Opportunities
+        Get
+            Return _CRM_Opportunities
+        End Get
+        Set(value As CRM_Opportunities)
+            SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
+        End Set
+    End Property
+    Property OfferOutHeader As OfferOutHeader
+        Get
+            Return _OfferOutHeader
+        End Get
+        Set(value As OfferOutHeader)
+            SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/RecalcDEV.vb

@@ -0,0 +1,93 @@
+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 RecalcDEV
+    Inherits BaseObject
+    Private _PriceMode As ePriceMode
+    Private _CurrencyRate As Double
+    Private _CurrencyName As CurrencyName
+    Private _DateExecution As Date
+    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
+    <ImmediatePostData()> _
+    Property PriceMode As ePriceMode
+        Get
+            Return _PriceMode
+        End Get
+        Set(value As ePriceMode)
+            SetPropertyValue("PriceMode", _PriceMode, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                DateExecution = DateExecution
+            End If
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                DateExecution = DateExecution
+            End If
+        End Set
+    End Property
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                '// MNB árfolyam lekérése
+                If CurrencyName IsNot Nothing Then
+                    Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _
+                    (Session, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _
+                    CurrencyName.ShortName, DateExecution.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 = value.Date Then 'Now
+                                CurrencyRate = _CurrencyRate_MNB.RateAverage
+                                Exit For
+                            Else
+                                CurrencyRate = 0
+                            End If
+                            Exit For
+                        Next
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+End Class