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,92 @@
+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 DivideVAT
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If Me.RegistryRowsFinancial IsNot Nothing Then
+            VAT = Me.RegistryRowsFinancial.VAT
+            DateVAT = Me.RegistryRowsFinancial.DateVAT
+        End If
+    End Sub
+
+    Private _RegistryRowsFinancial As RegistryRowsFinancial
+    Private _AmountPercent As Double
+    Private _BruttoAmount As Double
+    Private _VAT As VAT
+    Private _DateVAT As Date
+    Private _Note As String
+
+    <Browsable(False)> _
+    Property RegistryRowsFinancial As RegistryRowsFinancial
+        Get
+            Return _RegistryRowsFinancial
+        End Get
+        Set(value As RegistryRowsFinancial)
+            SetPropertyValue("RegistryRowsFinancial", _RegistryRowsFinancial, value)
+        End Set
+    End Property
+    <RuleRange("DivideVAT-AmountPercent", DefaultContexts.Save, 0, 99)> _
+    <ImmediatePostData()> _
+    Property AmountPercent As Double
+        Get
+            Return _AmountPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountPercent", _AmountPercent, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.BruttoAmount = RegistryRowsFinancial.BruttoAmount * (value / 100)
+            End If
+        End Set
+    End Property
+    Property BruttoAmount As Double
+        Get
+            Return _BruttoAmount
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BruttoAmount", _BruttoAmount, value)
+        End Set
+    End Property
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property DateVAT As Date
+        Get
+            Return _DateVAT
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateVAT", _DateVAT, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note As String
+        Get
+            Return _Note
+        End Get
+        Set(value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+
+End Class
@@ -0,0 +1,32 @@
+Partial Class DivideVAT_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class
@@ -0,0 +1,39 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Validation
+
+Public Class DivideVAT_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "DivideVAT_DetailView" Then
+            AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf DivideVAT_AcceptAction_Executing
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "DivideVAT_DetailView" Then
+            RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf DivideVAT_AcceptAction_Executing
+        End If
+    End Sub
+    Sub DivideVAT_AcceptAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs)
+        Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
+    End Sub
+End Class
@@ -0,0 +1,124 @@
+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
+Imports System.Data.SqlClient
+Imports System.Configuration
+Imports System.Linq
+Imports System.Linq.Expressions
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+Public Class GLBankDivide 'Popup a Banki csomag sorbontáshoz
+    Inherits BaseObject
+    Private _AmountPercent As Double = 0
+    Private _AmountDEV As Double
+    Private _AmountHUF As Double
+    Private _DatePayment As Date
+    Private _RegistryBankTransfer_AmountHUF As Double
+    Private _RegistryBankTransfer_AmountDEV As Double
+    Private _RegistryBankTransfer_RegistryHeader_CurrencyName As String
+    Private _Note As String ' -- Az utalási tétel közlemény rovata
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <NonPersistent()> _
+    Public Property AmountPercent As Double
+        Get
+            Return _AmountPercent
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountPercent", _AmountPercent, value)
+            'If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+            '    If Not Me.AmountHUF = Math.Round(((value / 100) * Me.RegistryBankTransfer.AmountHUF), 2, MidpointRounding.AwayFromZero) Then
+            '        Me.AmountHUF = Math.Round(((value / 100) * Me.RegistryBankTransfer.AmountHUF), 2, MidpointRounding.AwayFromZero)
+            '    End If
+            'End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    Public Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+            'If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+            '    If Not Me.AmountHUF = Math.Round((value * Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero) Then
+            '        Me.AmountHUF = Math.Round((value * Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero)
+            '    End If
+            'End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    Public Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+            'If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+            '    If Not Me.AmountDEV = Math.Round((value / Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero) Then
+            '        Me.AmountDEV = Math.Round((value / Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero)
+            '    End If
+            '    If Not Math.Round(Me.AmountPercent, 2, MidpointRounding.AwayFromZero) = (Me.AmountHUF / Me.RegistryBankTransfer.AmountHUF) * 100 Then
+            '        Me.AmountPercent = Math.Round(((Me.AmountHUF / Me.RegistryBankTransfer.AmountHUF) * 100), 2, MidpointRounding.AwayFromZero)
+            '    End If
+            'End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRequiredField("GLBankDivide.DatePayment", DefaultContexts.Save)> _
+    Public Property DatePayment As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property RegistryBankTransfer_AmountHUF As Double
+        Get
+            Return _RegistryBankTransfer_AmountHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("RegistryBankTransfer_AmountHUF", _RegistryBankTransfer_AmountHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property RegistryBankTransfer_AmountDEV As Double
+        Get
+            Return _RegistryBankTransfer_AmountDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("RegistryBankTransfer_AmountDEV", _RegistryBankTransfer_AmountDEV, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property RegistryBankTransfer_RegistryHeader_CurrencyName As String
+        Get
+            Return _RegistryBankTransfer_RegistryHeader_CurrencyName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RegistryBankTransfer_RegistryHeader_CurrencyName", _RegistryBankTransfer_RegistryHeader_CurrencyName, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property Note As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+End Class
+
@@ -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
+Imports DevExpress.Persistent.Base.General
+Imports System.Data.SqlClient
+Imports System.Configuration
+Imports System.Linq
+Imports System.Linq.Expressions
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+<RuleCriteria("RuleCriteria GLRowsCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki! (Controlling) ", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria GLRowsCheck-DebitChartOfAccounts", "*", "DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (DebitChartOfAccounts) ", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria GLRowsCheck-CreditChartOfAccounts", "*", "CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (CreditChartOfAccounts) ", SkipNullOrEmptyValues:=False)> _
+Public Class GLRowsCheck 'Popup a csoportos módosításhoz
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <NonPersistent()> Public Property ChartOfAccountsYear As ChartOfAccountsYear
+    <NonPersistent()> Public Property Controlling As Controlling
+    <NonPersistent()> Public Property JobNumberObjects As JobNumberObjects
+    <NonPersistent()> Public Property CostHolder As CostHolder
+    <NonPersistent()> Public Property CostPlace As CostPlace
+    <NonPersistent()> Public Property UniqueObjects As UniqueObjects
+    <NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.ChartOfAccountsYear.AccountYear'")> Public Property DebitChartOfAccounts As ChartOfAccounts
+    <NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.ChartOfAccountsYear.AccountYear'")> Public Property CreditChartOfAccounts As ChartOfAccounts
+    <NonPersistent()> Public Property IsDateExecution As Boolean = False
+    <NonPersistent()> Public Property DateExecution As Date
+    <NonPersistent()> Public Property GLRowsType As eGLRowsType = eGLRowsType.eNormal
+
+End Class
+
@@ -0,0 +1,28 @@
+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
+Imports System.Data.SqlClient
+Imports System.Configuration
+Imports System.Linq
+Imports System.Linq.Expressions
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+Public Class GLRowsDivide 'Popup a GLRows bontáshoz
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <NonPersistent()> Public Property AmountPercent As Double
+    <NonPersistent()> Public Property AmountDEV As Double
+    <NonPersistent()> Public Property AmountHUF As Double
+End Class
+