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,51 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Linq
+Imports System.Text
+Imports DevExpress.Xpo
+Imports DevExpress.ExpressApp
+Imports System.ComponentModel
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.Base
+Imports System.Collections.Generic
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+'<ImageName("BO_Contact")> _
+'<DefaultProperty("DisplayMemberNameForLookupEditorsOfThisType")> _
+'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
+'<Persistent("DatabaseTableName")> _
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
+Public Class GLBaseMainCheck ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
+    Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
+    End Sub
+
+    Property AlertString As String
+    Property AlartCount As Long = 0
+    'Private _PersistentProperty As String
+    '<XafDisplayName("My display name"), ToolTip("My hint message")> _
+    '<ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(False)> _
+    '<Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)> _
+    'Public Property PersistentProperty() As String
+    '    Get
+    '        Return _PersistentProperty
+    '    End Get
+    '    Set(ByVal value As String)
+    '        SetPropertyValue("PersistentProperty", _PersistentProperty, value)
+    '    End Set
+    'End Property
+
+    '<Action(Caption:="My UI Action", ConfirmationMessage:="Are you sure?", ImageName:="Attention", AutoCommit:=True)> _
+    'Public Sub ActionMethod()
+    '    ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619).
+    '    Me.PersistentProperty = "Paid"
+    'End Sub
+End Class
@@ -0,0 +1,363 @@
+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("GLRowsDivideH-row_AmountDEV disable", targetitems:="row_AmountDEV;AmountDiffDEV", criteria:="GLRowsBase.GLHeader.CurrencyName.ShortName='HUF'", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("GLRowsDivideH-row_CashType disable", targetitems:="row_ChartOfAccounts", criteria:="row_CashType=0", visibility:=Editors.ViewItemVisibility.Hide)> _
+<RuleCriteria("RuleCriteria GLRowsDivideH-row_Controlling.IsParent=False", "aToTable_GLRowsDivide", "row_Controlling.IsParent=False", _
+              "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False, targetcriteria:="row_PartnerType=-1")> _
+<Appearance("GLRowsDivideH-hide if not GLMixed", "ViewItem", targetitems:="row_DebitChartOfAccounts;row_CreditChartOfAccounts", _
+            criteria:="GLRowsBase.GLHeader.GLDocumentType != 0", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("GLRowsDivideH-hide if GLMixed", "ViewItem", targetitems:="row_ChartOfAccounts", criteria:="GLRowsBase.GLHeader.GLDocumentType = 0", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("GLRowsDivideH-hide if not Partner ViewItem", "ViewItem", targetitems:="row_Customers;row_ConnectInfo", criteria:="row_PartnerType=-1", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<Appearance("GLRowsDivideH-hide if not Partner Action", AppearanceItemType:="Action", targetitems:="aFindPCI", criteria:="row_PartnerType=-1", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<RuleCriteria("RuleCriteria GLRowsDivideH-row_ChartOfAccounts", "aToTable_GLRowsDivide", "row_ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria GLRowsDivideH-row_DebitChartOfAccounts", "aToTable_GLRowsDivide", "row_DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria GLRowsDivideH-row_CreditChartOfAccounts", "aToTable_GLRowsDivide", "row_CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class GLRowsDivideH
+    Inherits BaseObject
+    Private _GLRows_Oid As Guid
+    Private _row_CashType As eCashType
+    Private _row_PartnerType As ePartnerType
+    Private _row_Customers As Customers
+    Private _row_ConnectInfo As String
+    Private _row_ChartOfAccounts As ChartOfAccounts
+    Private _row_DebitChartOfAccounts As ChartOfAccounts
+    Private _row_CreditChartOfAccounts As ChartOfAccounts
+
+    Private _row_Controlling As Controlling
+    Private _row_CostHolder As CostHolder
+    Private _row_CostPlace As CostPlace
+    Private _row_JobNumberObjects As JobNumberObjects
+    Private _row_UniqueObjects As UniqueObjects
+    Private _row_Cars As Cars 'Jármû
+    Private _row_HRPerson As HRPerson 'Ember
+    Private _row_Phones As Phones 'Telefon
+
+    Private _row_AmountHUF As Double
+    Private _row_AmountDEV As Double
+    Private _row_NoteRow 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()
+
+    End Sub
+
+    ReadOnly Property GLRowsBase As GLRows
+        Get
+            Dim _GLRows As GLRows
+            _GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", Me.GLRows_Oid))
+            Return _GLRows
+        End Get
+    End Property
+    <RuleRange("GLRowsDivideH-AmountDiffHUF", "DialogOk_Contexts", 0, 0)> _
+    ReadOnly Property AmountDiffHUF As Double
+        Get
+            Dim _AmountHUF As Double = 0
+            Dim _GLRows As GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", GLRows_Oid))
+            Dim _GLRowsDivideR As GLRowsDivideR
+            For Each _GLRowsDivideR In Me.GLRowsDivideR
+                _AmountHUF += _GLRowsDivideR.AmountHUF
+            Next
+            If _GLRows IsNot Nothing Then
+                Return _GLRows.AmountHUF - _AmountHUF
+            Else
+                Return -_AmountHUF
+            End If
+        End Get
+    End Property
+    <RuleRange("GLRowsDivideH-AmountDiffDEV", "DialogOk_Contexts", 0, 0)> _
+    ReadOnly Property AmountDiffDEV As Double
+        Get
+            Dim _AmountDEV As Double = 0
+            Dim _GLRows As GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", GLRows_Oid))
+            Dim _GLRowsDivideR As GLRowsDivideR
+            For Each _GLRowsDivideR In Me.GLRowsDivideR
+                _AmountDEV += _GLRowsDivideR.AmountDEV
+            Next
+            If _GLRows IsNot Nothing Then
+                Return _GLRows.AmountDEV - _AmountDEV
+            Else
+                Return -_AmountDEV
+            End If
+            GLRowsBase.GLHeader.CurrencyName.ShortName = "HUF"
+        End Get
+    End Property
+    Property GLRows_Oid As Guid
+        Get
+            Return _GLRows_Oid
+        End Get
+        Set(ByVal value As Guid)
+            SetPropertyValue("GLRows_Oid", _GLRows_Oid, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If GLRowsBase IsNot Nothing Then
+                    row_Controlling = GLRowsBase.Controlling
+                    row_CostHolder = GLRowsBase.CostHolder
+                    row_CostPlace = GLRowsBase.CostPlace
+                    row_UniqueObjects = GLRowsBase.UniqueObjects
+                    row_JobNumberObjects = GLRowsBase.JobNumberObjects
+                    row_NoteRow = GLRowsBase.NoteRows
+                    row_AmountDEV = GLRowsBase.AmountDEV
+                    row_AmountHUF = GLRowsBase.AmountHUF
+
+                    If GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then
+                        row_DebitChartOfAccounts = GLRowsBase.DebitChartOfAccounts
+                        row_CreditChartOfAccounts = GLRowsBase.CreditChartOfAccounts
+                        If GLRowsBase.PartnerType = ePartnerType.eNotSet Then
+                            row_CashType = eCashType.eNormal
+                            row_PartnerType = ePartnerType.eNotSet
+                        Else
+                            row_CashType = eCashType.ePartner
+                            row_PartnerType = GLRowsBase.PartnerType
+                        End If
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    '--Nonpersistent propertyk
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_CashType As eCashType
+        Get
+            Return _row_CashType
+        End Get
+        Set(ByVal value As eCashType)
+            SetPropertyValue("row_CashType", _row_CashType, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_PartnerType As ePartnerType
+        Get
+            Return _row_PartnerType
+        End Get
+        Set(ByVal value As ePartnerType)
+            SetPropertyValue("row_PartnerType", _row_PartnerType, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <RuleRequiredField("GLRowsDivideH-row_Customers", "aToTable_GLRowsDivide", targetcriteria:="row_CashType=0")> _
+    <VisibleInListView(False)> _
+    Property row_Customers As Customers
+        Get
+            Return _row_Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("row_Customers", _row_Customers, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <RuleRequiredField("GLRowsDivideH-row_ConnectInfo", "aToTable_GLRowsDivide", targetcriteria:="row_CashType=0 and GLRowsBase.GLHeader.GLDocumentType != 0")> _
+    <VisibleInListView(False)> _
+    Property row_ConnectInfo As String
+        Get
+            Return _row_ConnectInfo
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("row_ConnectInfo", _row_ConnectInfo, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <RuleRequiredField("GLRowsDivideH-row_CashType", "aToTable_GLRowsDivide", TargetCriteria:="row_CashType=1 and GLRowsBase.GLHeader.GLDocumentType != 0")>
+    <ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.GLRowsBase.GLHeader.DateExecution')")>
+    Property row_ChartOfAccounts As ChartOfAccounts
+        Get
+            Return _row_ChartOfAccounts
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("row_ChartOfAccounts", _row_ChartOfAccounts, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <RuleRequiredField("GLRowsDivideH-row_DebitChartOfAccounts", "aToTable_GLRowsDivide", TargetCriteria:="GLRowsBase.GLHeader.GLDocumentType = 0")>
+    <ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.GLRowsBase.GLHeader.DateExecution')")>
+    Property row_DebitChartOfAccounts As ChartOfAccounts
+        Get
+            Return _row_DebitChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("row_DebitChartOfAccounts", _row_DebitChartOfAccounts, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <RuleRequiredField("GLRowsDivideH-row_CreditChartOfAccounts", "aToTable_GLRowsDivide", TargetCriteria:="GLRowsBase.GLHeader.GLDocumentType = 0")>
+    <ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.GLRowsBase.GLHeader.DateExecution')")>
+    Property row_CreditChartOfAccounts As ChartOfAccounts
+        Get
+            Return _row_CreditChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("row_CreditChartOfAccounts", _row_CreditChartOfAccounts, value)
+        End Set
+    End Property
+
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_Controlling As Controlling
+        Get
+            Return _row_Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("row_Controlling", _row_Controlling, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_CostHolder As CostHolder
+        Get
+            Return _row_CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("row_CostHolder", _row_CostHolder, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_CostPlace As CostPlace
+        Get
+            Return _row_CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("row_CostPlace", _row_CostPlace, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_JobNumberObjects As JobNumberObjects
+        Get
+            Return _row_JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_UniqueObjects As UniqueObjects
+        Get
+            Return _row_UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_Cars As Cars
+        Get
+            Return _row_Cars
+        End Get
+        Set(value As Cars)
+            SetPropertyValue("row_Cars", _row_Cars, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_HRPerson As HRPerson
+        Get
+            Return _row_HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("row_HRPerson", _row_HRPerson, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <VisibleInListView(False)> _
+    Property row_Phones As Phones
+        Get
+            Return _row_Phones
+        End Get
+        Set(value As Phones)
+            SetPropertyValue("row_Phones", _row_Phones, value)
+        End Set
+    End Property
+
+
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <RuleRange("GLRowsDivideH-row_AmountHUF", "aToTable_GLRowsDivide", 0, 999999999)> _
+    <VisibleInListView(False)> _
+    Property row_AmountHUF As Double
+        Get
+            Return _row_AmountHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_AmountHUF", _row_AmountHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData(True)> _
+    <RuleRange("GLRowsDivideH-row_AmountDEV", "aToTable_GLRowsDivide", 0, 999999999, targetcriteria:="GLRowsBase.GLHeader.CurrencyName.ShortName<>'HUF'")> _
+    <VisibleInListView(False)> _
+    Property row_AmountDEV As Double
+        Get
+            Return _row_AmountDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_AmountDEV", _row_AmountDEV, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                If Me.GLRowsBase.CurrencyRate <> 0 And GLRowsBase.GLHeader.CurrencyName.ShortName <> "HUF" Then
+                    row_AmountHUF = value * Me.GLRowsBase.CurrencyRate
+                End If
+            End If
+        End Set
+    End Property
+    <Size(255)> _
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_NoteRow As String
+        Get
+            Return _row_NoteRow
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("row_NoteRow", _row_NoteRow, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False)> _
+  <Association("GLRowsDivideH-GLRowsDivideR", GetType(GLRowsDivideR))> _
+    ReadOnly Property GLRowsDivideR As XPCollection(Of GLRowsDivideR)
+        Get
+            Return GetCollection(Of GLRowsDivideR)("GLRowsDivideR")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property GLRows As XPCollection(Of GLRows)
+        Get
+            Return New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("Oid=?", Me.GLRows_Oid))
+        End Get
+    End Property
+End Class
@@ -0,0 +1,176 @@
+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)> _
+Public Class GLRowsDivideR
+    Inherits BaseObject
+
+    Private _GLRowsDivideH As GLRowsDivideH
+    Private _ChartOfAccounts As ChartOfAccounts
+    Private _CreditChartOfAccounts As ChartOfAccounts
+    Private _DebitChartOfAccounts As ChartOfAccounts
+    Private _CashType As eCashType
+    Private _PartnerType As ePartnerType
+    Private _Customers As Customers
+    Private _ConnectInfo As String
+
+    'Jelölõ adatok ...
+    Private _Controlling As Controlling
+    Private _CostHolder As CostHolder
+    Private _CostPlace As CostPlace
+    Private _UniqueObjects As UniqueObjects
+    Private _JobNumberObjects As JobNumberObjects
+
+    Private _NoteRows As String
+    Private _AmountHUF As Double
+    Private _AmountDEV As Double
+
+    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
+    <Association("GLRowsDivideH-GLRowsDivideR", GetType(GLRowsDivideH))> _
+    Property GLRowsDivideH As GLRowsDivideH
+        Get
+            Return _GLRowsDivideH
+        End Get
+        Set(value As GLRowsDivideH)
+            SetPropertyValue("GLRowsDivideH", _GLRowsDivideH, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
+    Property ChartOfAccounts As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
+        End Set
+    End Property
+    Property CreditChartOfAccounts As ChartOfAccounts
+        Get
+            Return _CreditChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value)
+        End Set
+    End Property
+    Property DebitChartOfAccounts As ChartOfAccounts
+        Get
+            Return _DebitChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value)
+        End Set
+    End Property
+    Property CashType As eCashType
+        Get
+            Return _CashType
+        End Get
+        Set(value As eCashType)
+            SetPropertyValue("CashType", _CashType, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property ConnectInfo As String
+        Get
+            Return _ConnectInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("ConnectInfo", _ConnectInfo, value)
+        End Set
+    End Property
+
+    <ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+
+    <Size(255)> _
+    Property NoteRows As String
+        Get
+            Return _NoteRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("NoteRows", _NoteRows, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,82 @@
+Partial Class GLRowsDivideVC
+
+	<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()
+        Me.components = New System.ComponentModel.Container()
+        Me.aToTable_GLRowsDivide = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_GLRowsDivide = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFindPCI = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aToTable_GLRowsDivide
+        '
+        Me.aToTable_GLRowsDivide.Caption = "Add row"
+        Me.aToTable_GLRowsDivide.Category = "aToTable_GLRowsDivide"
+        Me.aToTable_GLRowsDivide.ConfirmationMessage = Nothing
+        Me.aToTable_GLRowsDivide.Id = "aToTable_GLRowsDivide"
+        Me.aToTable_GLRowsDivide.ImageName = "table_add"
+        Me.aToTable_GLRowsDivide.Shortcut = Nothing
+        Me.aToTable_GLRowsDivide.Tag = Nothing
+        Me.aToTable_GLRowsDivide.TargetObjectsCriteria = Nothing
+        Me.aToTable_GLRowsDivide.TargetViewId = ""
+        Me.aToTable_GLRowsDivide.ToolTip = Nothing
+        Me.aToTable_GLRowsDivide.TypeOfView = Nothing
+        '
+        'aToTableD_GLRowsDivide
+        '
+        Me.aToTableD_GLRowsDivide.Caption = "Delete row"
+        Me.aToTableD_GLRowsDivide.Category = "aToTableD_GLRowsDivide"
+        Me.aToTableD_GLRowsDivide.ConfirmationMessage = Nothing
+        Me.aToTableD_GLRowsDivide.Id = "aToTableD_GLRowsDivide"
+        Me.aToTableD_GLRowsDivide.ImageName = "table_delete"
+        Me.aToTableD_GLRowsDivide.Shortcut = Nothing
+        Me.aToTableD_GLRowsDivide.Tag = Nothing
+        Me.aToTableD_GLRowsDivide.TargetObjectsCriteria = Nothing
+        Me.aToTableD_GLRowsDivide.TargetViewId = ""
+        Me.aToTableD_GLRowsDivide.ToolTip = Nothing
+        Me.aToTableD_GLRowsDivide.TypeOfView = Nothing
+        '
+        'aFindPCI
+        '
+        Me.aFindPCI.AcceptButtonCaption = Nothing
+        Me.aFindPCI.CancelButtonCaption = Nothing
+        Me.aFindPCI.Caption = "aFind PCI"
+        Me.aFindPCI.ConfirmationMessage = Nothing
+        Me.aFindPCI.Id = "aFindPCI"
+        Me.aFindPCI.ImageName = Nothing
+        Me.aFindPCI.Shortcut = Nothing
+        Me.aFindPCI.Tag = Nothing
+        Me.aFindPCI.TargetObjectsCriteria = Nothing
+        Me.aFindPCI.TargetViewId = ""
+        Me.aFindPCI.ToolTip = Nothing
+        Me.aFindPCI.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aToTable_GLRowsDivide As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_GLRowsDivide As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFindPCI As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aToTable_GLRowsDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aToTableD_GLRowsDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aFindPCI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>393, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>
@@ -0,0 +1,227 @@
+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.Xpo
+Imports DevExpress.ExpressApp.Filtering
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Public Class GLRowsDivideVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False)
+        Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False)
+        Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", False)
+        If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id Like "GLRowsDivideH_DetailView*" Then
+            Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", True)
+            Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", True)
+            Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", True)
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing
+        End If
+        If View.Id = "GLRowsDivideH_GLRows_ListView_ConnectionDivide" Then
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+        End If
+    End Sub
+    Sub GLRowsDivideH_DetailView_AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
+        Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DialogOk_Contexts")
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id Like "GLRowsDivideH_DetailView*" Then
+            Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False)
+            Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False)
+            Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", True)
+            RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing
+        End If
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        MyBase.OnViewControlsCreated()
+        If View.Id = "GLRowsDivideH_DetailView" Then
+            Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
+            If _GLRowsDivideH.GLRowsBase IsNot Nothing Then
+                If _GLRowsDivideH.GLRowsBase.Customer IsNot Nothing Then
+                    _GLRowsDivideH.row_Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("Oid=?", _GLRowsDivideH.GLRowsBase.Customer.Oid))
+                    _GLRowsDivideH.row_CashType = _GLRowsDivideH.GLRowsBase.CashType
+                    _GLRowsDivideH.row_PartnerType = _GLRowsDivideH.GLRowsBase.PartnerType
+                    _GLRowsDivideH.row_ConnectInfo = _GLRowsDivideH.GLRowsBase.ConnectInfo
+                    _GLRowsDivideH.row_Controlling = _GLRowsDivideH.GLRowsBase.Controlling
+                    _GLRowsDivideH.row_CostHolder = _GLRowsDivideH.GLRowsBase.CostHolder
+                    _GLRowsDivideH.row_CostPlace = _GLRowsDivideH.GLRowsBase.CostPlace
+                    _GLRowsDivideH.row_UniqueObjects = _GLRowsDivideH.GLRowsBase.UniqueObjects
+                    _GLRowsDivideH.row_JobNumberObjects = _GLRowsDivideH.GLRowsBase.JobNumberObjects
+                    _GLRowsDivideH.row_NoteRow = _GLRowsDivideH.GLRowsBase.NoteRows
+
+                End If
+            End If
+
+        End If
+    End Sub
+    Private Sub aFindPCI_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFindPCI.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
+        Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup))
+
+
+
+        If _GLRowsDivideH IsNot Nothing Then
+            If _GLRowsDivideH.row_Customers IsNot Nothing Then
+                _CollectionSource.Criteria.Clear()
+                _CollectionSource.BeginUpdateCriteria()
+                _CollectionSource.Criteria("1") = CriteriaOperator.Parse("Customers.Oid=?", _GLRowsDivideH.row_Customers.Oid)
+                _CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLRowsDivideH.row_PartnerType)
+                _CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLRowsDivideH.GLRowsBase.GLHeader.CustomersFrom.Oid)
+                _CollectionSource.Criteria("4") = CriteriaOperator.Parse("(BallanceHUF<>0 or BallanceDEV<>0)")
+                _CollectionSource.Criteria("5") = CriteriaOperator.Parse("(CurrencyName_Account.ShortName=? or CurrencyName_Account.ShortName='HUF')", _GLRowsDivideH.GLRowsBase.LiquidAssets.CurrencyName.ShortName)
+                _CollectionSource.EndUpdateCriteria()
+
+                e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True)
+            Else
+                _CollectionSource.Criteria.Clear()
+                _CollectionSource.BeginUpdateCriteria()
+                _CollectionSource.Criteria("1") = CriteriaOperator.Parse("PartnerType=?", _GLRowsDivideH.row_PartnerType)
+                _CollectionSource.Criteria("2") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLRowsDivideH.GLRowsBase.GLHeader.CustomersFrom.Oid)
+                _CollectionSource.EndUpdateCriteria()
+
+                e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True)
+            End If
+        Else
+            'Ez - elméletileg - nem fordulhat elõ.
+        End If
+    End Sub
+
+    Private Sub aFindPCI_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFindPCI.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _PCIGroup As PCIGroup
+        Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
+        Dim _GLRowsDivideR As GLRowsDivideR
+        For Each _PCIGroup In e.PopupWindow.View.SelectedObjects
+            _GLRowsDivideR = _ocur.CreateObject(Of GLRowsDivideR)()
+            _GLRowsDivideR.GLRowsDivideH = _GLRowsDivideH
+            _GLRowsDivideR.CashType = eCashType.ePartner
+            _GLRowsDivideR.ChartOfAccounts = Nothing
+            _GLRowsDivideR.Customers = _ocur.GetObject(_PCIGroup.Customers)
+            _GLRowsDivideR.ConnectInfo = _PCIGroup.ConnectInfo
+            _GLRowsDivideR.AmountDEV = Math.Abs(_PCIGroup.BallanceDEV)
+            _GLRowsDivideR.AmountHUF = Math.Abs(_PCIGroup.BallanceHUF)
+            _GLRowsDivideR.Save()
+
+        Next
+        _ocur.CommitChanges()
+        View.Refresh()
+    End Sub
+
+    Private Sub aToTable_GLRowsDivide_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLRowsDivide.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
+        Dim _GLRowsDivideR As GLRowsDivideR
+        If _GLRowsDivideH IsNot Nothing Then
+
+            If _GLRowsDivideH.GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then
+                If _GLRowsDivideH.row_CreditChartOfAccounts Is _GLRowsDivideH.row_DebitChartOfAccounts Then
+                    Throw New Exception("*Nem lehet ugyan az a tartozik és a követel fõkönyvi szám !")
+                End If
+            End If
+
+
+            _GLRowsDivideR = _ocur.CreateObject(Of GLRowsDivideR)()
+            _GLRowsDivideR.GLRowsDivideH = _GLRowsDivideH
+            _GLRowsDivideR.CashType = _GLRowsDivideH.row_CashType
+            If _GLRowsDivideH.row_CashType = eCashType.eNormal Then
+                _GLRowsDivideR.ChartOfAccounts = _GLRowsDivideH.row_ChartOfAccounts
+            Else
+                _GLRowsDivideR.ChartOfAccounts = Nothing
+            End If
+            If _GLRowsDivideH.GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then
+                _GLRowsDivideR.DebitChartOfAccounts = _GLRowsDivideH.row_DebitChartOfAccounts
+                _GLRowsDivideR.CreditChartOfAccounts = _GLRowsDivideH.row_CreditChartOfAccounts
+            End If
+
+            _GLRowsDivideR.AmountHUF = _GLRowsDivideH.row_AmountHUF
+            _GLRowsDivideR.AmountDEV = _GLRowsDivideH.row_AmountDEV
+            _GLRowsDivideR.ConnectInfo = _GLRowsDivideH.row_ConnectInfo
+            _GLRowsDivideR.Customers = _GLRowsDivideH.row_Customers
+            _GLRowsDivideR.NoteRows = _GLRowsDivideH.row_NoteRow
+
+            '-- Jelölõ adatok
+            _GLRowsDivideR.Controlling = _GLRowsDivideH.row_Controlling
+            _GLRowsDivideR.CostHolder = _GLRowsDivideH.row_CostHolder
+            _GLRowsDivideR.CostPlace = _GLRowsDivideH.row_CostPlace
+            _GLRowsDivideR.JobNumberObjects = _GLRowsDivideH.row_JobNumberObjects
+            _GLRowsDivideR.UniqueObjects = _GLRowsDivideH.row_UniqueObjects
+
+            '--
+            _GLRowsDivideR.Save()
+
+            View.Refresh()
+
+            _GLRowsDivideH.row_AmountDEV = _GLRowsDivideH.AmountDiffDEV
+            _GLRowsDivideH.row_AmountHUF = _GLRowsDivideH.AmountDiffHUF
+        End If
+
+    End Sub
+
+    Private Sub aToTableD_GLRowsDivide_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLRowsDivide.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
+        'Törli a táblázatban lévõ sort
+        Dim _GLRowsDivideR_ListEditor As ListPropertyEditor
+        Dim _GLRowsDivideR As GLRowsDivideR
+        Dim i As Long
+        _GLRowsDivideR_ListEditor = TryCast(View, DetailView).FindItem("GLRowsDivideR")
+
+        _GLRowsDivideR = TryCast(_GLRowsDivideR_ListEditor.ListView.CurrentObject, GLRowsDivideR)
+        If _GLRowsDivideR IsNot Nothing Then
+            _GLRowsDivideR.Delete()
+            View.Refresh()
+        End If
+
+
+    End Sub
+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 GLRowsNormalToPartnerPopup
+    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 PartnerType As ePartnerType
+    Property Customers As Customers
+    Property ConnectInfo As String
+    Property TransactionType As eTransactionType
+
+
+End Class