First create solution
This commit is contained in:
@@ -0,0 +1,435 @@
|
||||
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 eControllingDirection
|
||||
eIn = 0
|
||||
eOut = 1
|
||||
eNotSet = -1
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
Public Class Controlling
|
||||
Inherits HCategory
|
||||
Private _ChartOfAccounts As ChartOfAccounts '5 ötös
|
||||
Private _ChartOfAccounts2 As ChartOfAccounts '8 nyócas
|
||||
Private _IsCOCRequired As Boolean = True 'Teljesítési igazolást igényel az adott számra teljesítéshez kötelező az aláírt nyomtatvány
|
||||
Private _COCAboveAmount As Double 'A teljesítési igazolás nyomtatása nem szükséges ezen összeg alatt
|
||||
Private _IsParent As Boolean = False
|
||||
Private _Controllingdirection As eControllingDirection ' Kontrollszám pénzmozgás iránya
|
||||
Private _IsReInvoiceReason As Boolean = False ' Továbbszámlázási jogcímként is használható?
|
||||
Private _ReInvoiceDescription As String ' Ha továbbszámlázási jogcím is akkor mi a jogcím megnevezése
|
||||
Private _TechnicalContractLimit As Double 'Adott CM-re vonatkozó összeghatár ameddig technikai szerződést enged létrehozni
|
||||
Private _Controlling1 As Controlling
|
||||
Private _Controlling2 As Controlling
|
||||
Private _Controlling3 As Controlling
|
||||
Private _Controlling4 As Controlling
|
||||
Private _Controlling5 As Controlling
|
||||
Private _IsAdvancePayment As Boolean 'Előleg, vagy foglaló kontrollszám
|
||||
Private _IsEstateStatistics As Boolean 'Ingatlan értékesítési statisztikába szűrés
|
||||
' Nonpersistent --------------------------------------------
|
||||
Private _CollectionOfControlling As XPCollection(Of Controlling)
|
||||
Private _RequireCars As Boolean = False
|
||||
Private _RequireHRPerson As Boolean
|
||||
Private _RequirePhones As Boolean = False
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
If session.IsObjectsLoading = False And session.IsObjectsSaving = False Then
|
||||
Me.Controllingdirection = eControllingDirection.eNotSet
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeleting()
|
||||
MyBase.OnDeleting()
|
||||
If Me.Parent IsNot Nothing Then
|
||||
If Me.Parent.Children IsNot Nothing Then
|
||||
If Me.Parent.Children.Count = 1 Then
|
||||
TryCast(Me.Parent, Controlling).IsParent = False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
Dim _c As New XPCollection(Session, GetType(Controlling), CriteriaOperator.Parse("Children.Count=0 and IsParent=True"))
|
||||
Dim _Controlling As Controlling
|
||||
|
||||
For Each _Controlling In _c
|
||||
If _Controlling.Children.Count = 0 Then
|
||||
_Controlling.IsParent = False
|
||||
_Controlling.Save()
|
||||
End If
|
||||
Next
|
||||
Dim _c1 As New XPCollection(Session, GetType(Controlling), CriteriaOperator.Parse("Children.Count<>0 and IsParent=False"))
|
||||
Dim _Controlling1 As Controlling
|
||||
|
||||
For Each _Controlling1 In _c1
|
||||
If _Controlling1.Children.Count <> 0 Then
|
||||
_Controlling1.IsParent = True
|
||||
_Controlling1.Save()
|
||||
End If
|
||||
Next
|
||||
Me.ReconfigureGroup(Nothing, Me, False)
|
||||
End Sub
|
||||
|
||||
<ImmediatePostData(True), DataSourceProperty("CollectionOfControlling")>
|
||||
<NonPersistent>
|
||||
Property ParentObject As Controlling
|
||||
Get
|
||||
Return MyBase.Parent
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
MyBase.Parent = value
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
|
||||
<Browsable(False)>
|
||||
<NonPersistent()>
|
||||
Private ReadOnly Property CollectionOfControlling As XPCollection(Of Controlling)
|
||||
Get
|
||||
_CollectionOfControlling = New XPCollection(Of Controlling)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
|
||||
Return _CollectionOfControlling
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(False)>
|
||||
Property ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return (_ChartOfAccounts)
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
Property ChartOfAccounts2 As ChartOfAccounts
|
||||
Get
|
||||
Return (_ChartOfAccounts2)
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsCOCRequired As Boolean
|
||||
Get
|
||||
Return _IsCOCRequired
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsCOCRequired", _IsCOCRequired, value)
|
||||
End Set
|
||||
End Property
|
||||
Property COCAboveAmount As Double
|
||||
Get
|
||||
Return _COCAboveAmount
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("COCAboveAmount", _COCAboveAmount, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsParent As Boolean
|
||||
Get
|
||||
Return _IsParent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsParent", _IsParent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controllingdirection As eControllingDirection
|
||||
Get
|
||||
Return _Controllingdirection
|
||||
End Get
|
||||
Set(ByVal value As eControllingDirection)
|
||||
SetPropertyValue("Controllingdirection", _Controllingdirection, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsReInvoiceReason As Boolean
|
||||
Get
|
||||
Return _IsReInvoiceReason
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsReInvoiceReason", _IsReInvoiceReason, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReInvoiceDescription As String
|
||||
Get
|
||||
Return _ReInvoiceDescription
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ReInvoiceDescription", _ReInvoiceDescription, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TechnicalContractLimit As Double
|
||||
Get
|
||||
Return _TechnicalContractLimit
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("TechnicalContractLimit", _TechnicalContractLimit, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling1 As Controlling
|
||||
Get
|
||||
Return _Controlling1
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling1", _Controlling1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling2 As Controlling
|
||||
Get
|
||||
Return _Controlling2
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling2", _Controlling2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling3 As Controlling
|
||||
Get
|
||||
Return _Controlling3
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling3", _Controlling3, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling4 As Controlling
|
||||
Get
|
||||
Return _Controlling4
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling4", _Controlling4, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling5 As Controlling
|
||||
Get
|
||||
Return _Controlling5
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling5", _Controlling5, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsAdvancePayment As Boolean
|
||||
Get
|
||||
Return _IsAdvancePayment
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsAdvancePayment", _IsAdvancePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsEstateStatistics As Boolean
|
||||
Get
|
||||
Return _IsEstateStatistics
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsEstateStatistics", _IsEstateStatistics, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RequireCars As Boolean
|
||||
Get
|
||||
Return _RequireCars
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequireCars", _RequireCars, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RequireHRPerson As Boolean
|
||||
Get
|
||||
Return _RequireHRPerson
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequireHRPerson", _RequireHRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RequirePhones As Boolean
|
||||
Get
|
||||
Return _RequirePhones
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequirePhones", _RequirePhones, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Sub ReconfigureGroup(_ObjectSpace As Xpo.XPObjectSpace, _Controlling As Controlling, _WithCommit As Boolean)
|
||||
Dim _Controlling5 As Controlling = Nothing
|
||||
Dim _Controlling4 As Controlling = Nothing
|
||||
Dim _Controlling3 As Controlling = Nothing
|
||||
Dim _Controlling2 As Controlling = Nothing
|
||||
Dim _Controlling1 As Controlling = Nothing
|
||||
|
||||
_Controlling1 = _Controlling.Parent
|
||||
If _Controlling1 IsNot Nothing Then
|
||||
_Controlling2 = _Controlling1.Parent
|
||||
If _Controlling2 IsNot Nothing Then
|
||||
_Controlling3 = _Controlling2.Parent
|
||||
If _Controlling3 IsNot Nothing Then
|
||||
_Controlling4 = _Controlling3.Parent
|
||||
If _Controlling4 IsNot Nothing Then
|
||||
_Controlling5 = _Controlling4.Parent
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If _Controlling5 IsNot Nothing Then
|
||||
_Controlling._Controlling1 = _Controlling5
|
||||
_Controlling._Controlling2 = _Controlling4
|
||||
_Controlling._Controlling3 = _Controlling3
|
||||
_Controlling._Controlling4 = _Controlling2
|
||||
_Controlling._Controlling5 = _Controlling1
|
||||
ElseIf _Controlling4 IsNot Nothing Then
|
||||
_Controlling._Controlling1 = _Controlling4
|
||||
_Controlling._Controlling2 = _Controlling3
|
||||
_Controlling._Controlling3 = _Controlling2
|
||||
_Controlling._Controlling4 = _Controlling1
|
||||
_Controlling._Controlling5 = _Controlling
|
||||
ElseIf _Controlling3 IsNot Nothing Then
|
||||
_Controlling._Controlling1 = _Controlling3
|
||||
_Controlling._Controlling2 = _Controlling2
|
||||
_Controlling._Controlling3 = _Controlling1
|
||||
_Controlling._Controlling4 = _Controlling
|
||||
_Controlling._Controlling5 = Nothing
|
||||
ElseIf _Controlling2 IsNot Nothing Then
|
||||
_Controlling._Controlling1 = _Controlling2
|
||||
_Controlling._Controlling2 = _Controlling1
|
||||
_Controlling._Controlling3 = _Controlling
|
||||
_Controlling._Controlling4 = Nothing
|
||||
_Controlling._Controlling5 = Nothing
|
||||
ElseIf _Controlling1 IsNot Nothing Then
|
||||
_Controlling._Controlling1 = _Controlling1
|
||||
_Controlling._Controlling2 = _Controlling
|
||||
_Controlling._Controlling3 = Nothing
|
||||
_Controlling._Controlling4 = Nothing
|
||||
_Controlling._Controlling5 = Nothing
|
||||
ElseIf _Controlling1 Is Nothing Then
|
||||
_Controlling._Controlling1 = _Controlling
|
||||
_Controlling._Controlling2 = Nothing
|
||||
_Controlling._Controlling3 = Nothing
|
||||
_Controlling._Controlling4 = Nothing
|
||||
_Controlling._Controlling5 = Nothing
|
||||
End If
|
||||
_Controlling.Save()
|
||||
If _WithCommit Then _ObjectSpace.CommitChanges()
|
||||
End Sub
|
||||
Private Sub InContrlollingSet(ByVal _p_InControlling As Controlling)
|
||||
'----- Rekurzív gráf bejárás az összes gyerekelemnek a BEVÉTEL kontrollszám csoportban --------------
|
||||
_p_InControlling.Controllingdirection = eControllingDirection.eIn ' Gyökér elem beállítása
|
||||
If _p_InControlling.Children.Count = 0 Then ' Szülő elem beállítása
|
||||
_p_InControlling.Controllingdirection = eControllingDirection.eIn
|
||||
Else
|
||||
Dim _Controlling As Controlling
|
||||
|
||||
For Each _Controlling In _p_InControlling.Children
|
||||
_Controlling.Controllingdirection = eControllingDirection.eIn ' Levél elemek beállítása
|
||||
If _Controlling.Children.Count <> 0 Then ' A rekurzió megakasztása
|
||||
InContrlollingSet(_Controlling)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
_p_InControlling.Save()
|
||||
End Sub
|
||||
Private Sub OutContrlollingSet(ByVal _p_OutControlling As Controlling)
|
||||
'----- Rekurzív gráf bejárás az összes gyerekelemnek a KIADÁS kontrollszám csoportban --------------
|
||||
_p_OutControlling.Controllingdirection = eControllingDirection.eOut ' Gyökér elem beállítása
|
||||
If _p_OutControlling.Children.Count = 0 Then ' Szülő elem beállítása
|
||||
_p_OutControlling.Controllingdirection = eControllingDirection.eOut
|
||||
Else
|
||||
Dim _Controlling As Controlling
|
||||
|
||||
For Each _Controlling In _p_OutControlling.Children
|
||||
_Controlling.Controllingdirection = eControllingDirection.eOut ' Levél elemek beállítása
|
||||
If _Controlling.Children.Count <> 0 Then ' A rekurzió megakasztása
|
||||
OutContrlollingSet(_Controlling)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
_p_OutControlling.Save()
|
||||
End Sub
|
||||
|
||||
<Association("Controlling-ControllingYear", GetType(ControllingYear)), VisibleInListView(False), VisibleInLookupListView(False)>
|
||||
ReadOnly Property ControllingYear As XPCollection(Of ControllingYear)
|
||||
Get
|
||||
Return GetCollection(Of ControllingYear)("ControllingYear")
|
||||
End Get
|
||||
End Property
|
||||
Public Function GetChartOfAccounts(_AccountYear As Long, _IsReinvoice As Boolean) As ChartOfAccounts
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = Nothing
|
||||
Dim _ControllingYear As ControllingYear
|
||||
Select Case _IsReinvoice
|
||||
Case False
|
||||
_ChartOfAccounts = Me.ChartOfAccounts
|
||||
For Each _ControllingYear In Me.ControllingYear
|
||||
If _ControllingYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _ControllingYear.ChartOfAccounts
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Case True
|
||||
_ChartOfAccounts = Me.ChartOfAccounts2
|
||||
For Each _ControllingYear In Me.ControllingYear
|
||||
If _ControllingYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _ControllingYear.ChartOfAccounts2
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End Select
|
||||
Return _ChartOfAccounts
|
||||
End Function
|
||||
|
||||
End Class 'Kontroll számok
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
|
||||
<RuleCriteria("RuleCriteria ControllingYear-ChartOfAccounts", DefaultContexts.Save, "ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<RuleCriteria("RuleCriteria ControllingYear-ChartOfAccounts2", DefaultContexts.Save, "ChartOfAccounts2.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
Public Class ControllingYear
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Controlling As Controlling
|
||||
Private _AccountYear As Long
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _ChartOfAccounts2 As ChartOfAccounts
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
|
||||
<Association("Controlling-ControllingYear", GetType(Controlling))>
|
||||
Property Controlling As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccounts2 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts2
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
Generated
+64
@@ -0,0 +1,64 @@
|
||||
Partial Class ControllingVC
|
||||
|
||||
<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.aReCreateControlling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGenerateControllingfromChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aReCreateControlling
|
||||
'
|
||||
Me.aReCreateControlling.Caption = "aRe Create Controlling"
|
||||
Me.aReCreateControlling.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aReCreateControlling.Id = "aReCreateControlling"
|
||||
Me.aReCreateControlling.ImageName = Nothing
|
||||
Me.aReCreateControlling.Shortcut = Nothing
|
||||
Me.aReCreateControlling.Tag = Nothing
|
||||
Me.aReCreateControlling.TargetObjectsCriteria = Nothing
|
||||
Me.aReCreateControlling.TargetViewId = "Controlling_ListView"
|
||||
Me.aReCreateControlling.ToolTip = Nothing
|
||||
Me.aReCreateControlling.TypeOfView = Nothing
|
||||
'
|
||||
'aGenerateControllingfromChartOfAccounts
|
||||
'
|
||||
Me.aGenerateControllingfromChartOfAccounts.Caption = "aGenerate Controllingfrom Chart Of Accounts"
|
||||
Me.aGenerateControllingfromChartOfAccounts.ConfirmationMessage = "Do you want to execute ?"
|
||||
Me.aGenerateControllingfromChartOfAccounts.Id = "aGenerateControllingfromChartOfAccounts"
|
||||
Me.aGenerateControllingfromChartOfAccounts.ImageName = Nothing
|
||||
Me.aGenerateControllingfromChartOfAccounts.Shortcut = Nothing
|
||||
Me.aGenerateControllingfromChartOfAccounts.Tag = Nothing
|
||||
Me.aGenerateControllingfromChartOfAccounts.TargetObjectsCriteria = Nothing
|
||||
Me.aGenerateControllingfromChartOfAccounts.TargetObjectType = GetType(Nuvolar.[Module].Controlling)
|
||||
Me.aGenerateControllingfromChartOfAccounts.TargetViewId = Nothing
|
||||
Me.aGenerateControllingfromChartOfAccounts.ToolTip = Nothing
|
||||
Me.aGenerateControllingfromChartOfAccounts.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aReCreateControlling As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGenerateControllingfromChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+129
@@ -0,0 +1,129 @@
|
||||
<?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="aReCreateControlling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aGenerateControllingfromChartOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>185, 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,119 @@
|
||||
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.Data.Filtering
|
||||
|
||||
Public Class ControllingVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "HCategory_Children_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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Controlling_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "HCategory_Children_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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Controlling_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aReCreateControlling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateControlling.Execute
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Controlling_Collection As New XPCollection(Of Controlling)(_ocur.Session)
|
||||
Dim _Controlling As Controlling
|
||||
|
||||
RaiseEvent InitWork(1, 1, _Controlling_Collection.Count)
|
||||
For Each _Controlling In _Controlling_Collection
|
||||
RaiseEvent DoWork()
|
||||
_Controlling.ReconfigureGroup(_ocur, _Controlling, True)
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aGenerateControllingfromChartOfAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateControllingfromChartOfAccounts.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_onew.Session, CriteriaOperator.Parse("AccountYear=?", Now.Date.Year))
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
Dim _Controlling As Controlling
|
||||
Dim _Controlling_Parent As Controlling = Nothing
|
||||
Dim _ControllingYear As ControllingYear
|
||||
|
||||
_ChartOfAccounts_Collection.Sorting.Add(New SortProperty("AccountNumber", DB.SortingDirection.Ascending))
|
||||
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
|
||||
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
|
||||
RaiseEvent DoWork()
|
||||
_Controlling = _onew.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", _ChartOfAccounts.Name))
|
||||
If _Controlling Is Nothing Then
|
||||
_Controlling = _onew.CreateObject(Of Controlling)()
|
||||
End If
|
||||
_Controlling.Name = _ChartOfAccounts.Name
|
||||
_Controlling_Parent = Nothing
|
||||
If _ChartOfAccounts.Parent IsNot Nothing Then
|
||||
_Controlling_Parent = _onew.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", _ChartOfAccounts.Parent.Name))
|
||||
End If
|
||||
If _Controlling_Parent IsNot Nothing Then
|
||||
_Controlling.Parent = _Controlling_Parent
|
||||
End If
|
||||
_onew.CommitChanges()
|
||||
Dim _ControllingYear_Collection = New XPCollection(Of ControllingYear)(_onew.Session, CriteriaOperator.Parse("Controlling=?", _Controlling))
|
||||
If _ControllingYear_Collection.Count <= 0 Then
|
||||
_ControllingYear = _onew.CreateObject(Of ControllingYear)()
|
||||
_ControllingYear.Controlling = _Controlling
|
||||
_ControllingYear.AccountYear = Now.Date.Year
|
||||
_ControllingYear.ChartOfAccounts = _ChartOfAccounts
|
||||
_ControllingYear.ChartOfAccounts2 = _ChartOfAccounts
|
||||
End If
|
||||
|
||||
Select Case Mid(_ChartOfAccounts.AccountNumber, 1, 1)
|
||||
Case "5", "8"
|
||||
_Controlling.Controllingdirection = eControllingDirection.eOut
|
||||
Case "9"
|
||||
_Controlling.Controllingdirection = eControllingDirection.eIn
|
||||
Case Else
|
||||
_Controlling.Controllingdirection = eControllingDirection.eNotSet
|
||||
End Select
|
||||
_onew.CommitChanges()
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,48 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class CostHolder
|
||||
Inherits HCategory
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property HRPersonCostHolder As XPCollection(Of HRPersonCostHolder)
|
||||
Get
|
||||
Return New XPCollection(Of HRPersonCostHolder)(Session, CriteriaOperator.Parse("CostHolder=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<NonPersistent>
|
||||
<ImmediatePostData(True), DataSourceProperty("CollectionOfCostHolder")>
|
||||
Property ParentObject As CostHolder
|
||||
Get
|
||||
Return MyBase.Parent
|
||||
End Get
|
||||
Set(value As CostHolder)
|
||||
MyBase.Parent = value
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
|
||||
<Browsable(False)> _
|
||||
<NonPersistent()> _
|
||||
Private ReadOnly Property CollectionOfCostHolder As XPCollection(Of CostHolder)
|
||||
Get
|
||||
Dim _CollectionOfCostHolder As New XPCollection(Of CostHolder)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
|
||||
Return _CollectionOfCostHolder
|
||||
End Get
|
||||
End Property
|
||||
End Class ' Költségviselő
|
||||
|
||||
Generated
+52
@@ -0,0 +1,52 @@
|
||||
Partial Class CostHolderVC
|
||||
|
||||
<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.aSetCostHolderToHRPerson = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aSetCostHolderToHRPerson
|
||||
'
|
||||
Me.aSetCostHolderToHRPerson.AcceptButtonCaption = Nothing
|
||||
Me.aSetCostHolderToHRPerson.CancelButtonCaption = Nothing
|
||||
Me.aSetCostHolderToHRPerson.Caption = "aSet Cost Holder To HRPerson"
|
||||
Me.aSetCostHolderToHRPerson.ConfirmationMessage = Nothing
|
||||
Me.aSetCostHolderToHRPerson.Id = "aSetCostHolderToHRPerson"
|
||||
Me.aSetCostHolderToHRPerson.ImageName = Nothing
|
||||
Me.aSetCostHolderToHRPerson.Shortcut = Nothing
|
||||
Me.aSetCostHolderToHRPerson.Tag = Nothing
|
||||
Me.aSetCostHolderToHRPerson.TargetObjectsCriteria = Nothing
|
||||
Me.aSetCostHolderToHRPerson.TargetObjectType = GetType(Nuvolar.[Module].HRPersonCostHolder)
|
||||
Me.aSetCostHolderToHRPerson.TargetViewId = Nothing
|
||||
Me.aSetCostHolderToHRPerson.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aSetCostHolderToHRPerson.ToolTip = Nothing
|
||||
Me.aSetCostHolderToHRPerson.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aSetCostHolderToHRPerson As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?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="aSetCostHolderToHRPerson.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>220, 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,201 @@
|
||||
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.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
|
||||
Public Class CostHolderVC
|
||||
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()
|
||||
If View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aSetCostHolderToHRPerson_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSetCostHolderToHRPerson.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _SetHRPersonToCostHolder As SetHRPersonToCostHolder = _onew.CreateObject(Of SetHRPersonToCostHolder)()
|
||||
|
||||
Dim _CostHolder As CostHolder = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CostHolder)
|
||||
Dim _HRPerson As HRPerson = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, HRPerson)
|
||||
|
||||
If _HRPerson IsNot Nothing Then
|
||||
_SetHRPersonToCostHolder.Mode = 1
|
||||
_SetHRPersonToCostHolder.HRPerson = _onew.GetObject(_HRPerson)
|
||||
If View.CurrentObject Is Nothing Then
|
||||
_SetHRPersonToCostHolder.DateFrom = FirstDayOfYear(GetSQLTime(_onew.Session))
|
||||
_SetHRPersonToCostHolder.DateTo = LastDayOfYear(GetSQLTime(_onew.Session))
|
||||
|
||||
Else
|
||||
_SetHRPersonToCostHolder.DateFrom = TryCast(View.CurrentObject, HRPersonCostHolder).DateFrom
|
||||
_SetHRPersonToCostHolder.DateTo = TryCast(View.CurrentObject, HRPersonCostHolder).DateTo
|
||||
End If
|
||||
e.View = Application.CreateDetailView(_onew, "SetHRPersonToCostHolder_DetailView", False, _SetHRPersonToCostHolder)
|
||||
ElseIf _CostHolder IsNot Nothing Then
|
||||
_SetHRPersonToCostHolder.Mode = 0
|
||||
_SetHRPersonToCostHolder.CostHolder = _onew.GetObject(_CostHolder)
|
||||
If View.CurrentObject Is Nothing Then
|
||||
_SetHRPersonToCostHolder.DateFrom = FirstDayOfYear(GetSQLTime(_onew.Session))
|
||||
_SetHRPersonToCostHolder.DateTo = LastDayOfYear(GetSQLTime(_onew.Session))
|
||||
|
||||
Else
|
||||
_SetHRPersonToCostHolder.DateFrom = TryCast(View.CurrentObject, HRPersonCostHolder).DateFrom
|
||||
_SetHRPersonToCostHolder.DateTo = TryCast(View.CurrentObject, HRPersonCostHolder).DateTo
|
||||
End If
|
||||
e.View = Application.CreateDetailView(_onew, "SetHRPersonToCostHolder_DetailView", False, _SetHRPersonToCostHolder)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aSetCostHolderToHRPerson_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSetCostHolderToHRPerson.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _SetHRPersonToCostHolder As SetHRPersonToCostHolder = TryCast(e.PopupWindow.View.SelectedObjects(0), SetHRPersonToCostHolder)
|
||||
Dim _HRPersonCostHolder As HRPersonCostHolder
|
||||
Dim _HRPersonCostHolder_Collection As XPCollection(Of HRPersonCostHolder)
|
||||
Dim _SumWorkPercent As Double = 0
|
||||
Dim IsValid As Boolean = False
|
||||
Dim LastItemDate As Date
|
||||
|
||||
Dim _HRPersonCostHolder_Query As New XPQuery(Of HRPersonCostHolder)(_ocur.Session)
|
||||
Dim query = From s In _HRPersonCostHolder_Query
|
||||
Where s.HRPerson.Oid = _SetHRPersonToCostHolder.HRPerson.Oid And
|
||||
s.WorkPercent > 0
|
||||
Group s By s.DateFrom, s.DateTo Into g = Group
|
||||
Order By DateFrom, DateTo
|
||||
Select New With {.DateFrom = DateFrom, .DateTo = DateTo}
|
||||
|
||||
For Each item In query
|
||||
If item.DateFrom = _SetHRPersonToCostHolder.DateFrom And item.DateTo = _SetHRPersonToCostHolder.DateTo Then
|
||||
IsValid = True
|
||||
Exit For
|
||||
End If
|
||||
LastItemDate = item.DateTo
|
||||
Next
|
||||
If query.Count = 0 Then
|
||||
IsValid = True
|
||||
End If
|
||||
|
||||
If IsValid = False Then
|
||||
If DateDiff(DateInterval.Day, LastItemDate.Date, _SetHRPersonToCostHolder.DateFrom.Date) <> 1 Then
|
||||
Throw New UserFriendlyException("A beállított dátumoknak meg kell egyezniük egy már létezõ idõszak dátumaival, vagy folytonosan kell követniük az utolsó idõszakot!")
|
||||
End If
|
||||
End If
|
||||
|
||||
If _SetHRPersonToCostHolder.Mode = 1 Then
|
||||
Dim _ListPropertyEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("SetHRPersonToCostHolderCostHolder")
|
||||
|
||||
For Each _SetHRPersonToCostHolderCostHolder In _ListPropertyEditor.ListView.CollectionSource.Collection
|
||||
If _SetHRPersonToCostHolderCostHolder.WorkPercent < 0 Or _SetHRPersonToCostHolderCostHolder.WorkPercent > 100 Then
|
||||
Throw New UserFriendlyException("Az beállított százalékos érték nem lehet nagyobb 100-nál és nem lehet negatív!")
|
||||
End If
|
||||
|
||||
_SumWorkPercent = _SumWorkPercent + _SetHRPersonToCostHolderCostHolder.WorkPercent
|
||||
Next
|
||||
|
||||
If _SumWorkPercent <> 100 Then
|
||||
Throw New UserFriendlyException("A beállított százalékos értékek összege csak 100 lehet!")
|
||||
Else
|
||||
For Each _SetHRPersonToCostHolderCostHolder In _ListPropertyEditor.ListView.CollectionSource.Collection
|
||||
|
||||
_HRPersonCostHolder = _ocur.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder.Oid=? And HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolderCostHolder.CostHolder.Oid, _SetHRPersonToCostHolder.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo))
|
||||
|
||||
If _HRPersonCostHolder Is Nothing Then
|
||||
If _SetHRPersonToCostHolderCostHolder.WorkPercent > 0 Then
|
||||
_HRPersonCostHolder = _ocur.CreateObject(Of HRPersonCostHolder)()
|
||||
|
||||
_HRPersonCostHolder.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_SetHRPersonToCostHolderCostHolder.CostHolder.Oid)
|
||||
_HRPersonCostHolder.HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_SetHRPersonToCostHolder.HRPerson.Oid)
|
||||
_HRPersonCostHolder.DateFrom = _SetHRPersonToCostHolder.DateFrom
|
||||
_HRPersonCostHolder.DateTo = _SetHRPersonToCostHolder.DateTo
|
||||
_HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderCostHolder.WorkPercent
|
||||
End If
|
||||
Else
|
||||
If _SetHRPersonToCostHolderCostHolder.WorkPercent >= 0 Then
|
||||
_HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderCostHolder.WorkPercent
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If _SetHRPersonToCostHolder.Mode = 0 Then
|
||||
Dim _ListPropertyEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("SetHRPersonToCostHolderHRPerson")
|
||||
|
||||
For Each _SetHRPersonToCostHolderHRPerson In _ListPropertyEditor.ListView.CollectionSource.Collection
|
||||
_SumWorkPercent = 0
|
||||
|
||||
If _SetHRPersonToCostHolderHRPerson.WorkPercent < 0 Or _SetHRPersonToCostHolderHRPerson.WorkPercent > 100 Then
|
||||
Throw New UserFriendlyException("Az beállított százalékos érték nem lehet nagyobb 100-nál és nem lehet negatív!")
|
||||
End If
|
||||
|
||||
_HRPersonCostHolder_Collection = New XPCollection(Of HRPersonCostHolder)(_ocur.Session, CriteriaOperator.Parse("HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolderHRPerson.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo))
|
||||
|
||||
For Each _HRPersonCostHolder_Member In _HRPersonCostHolder_Collection
|
||||
If _HRPersonCostHolder_Member.CostHolder.Oid = _SetHRPersonToCostHolder.CostHolder.Oid Then
|
||||
_SumWorkPercent = _SumWorkPercent + _SetHRPersonToCostHolderHRPerson.WorkPercent
|
||||
Else
|
||||
_SumWorkPercent = _SumWorkPercent + _HRPersonCostHolder_Member.WorkPercent
|
||||
End If
|
||||
Next
|
||||
|
||||
If _SumWorkPercent <> 100 And _SumWorkPercent <> 0 Then
|
||||
Dim _WrongUserName As String = _SetHRPersonToCostHolderHRPerson.HRPerson.displayname
|
||||
Throw New UserFriendlyException("A következõ munkavállaló foglaltsága nagyobb 100 százaléknál: " & _WrongUserName)
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _SetHRPersonToCostHolderHRPerson In _ListPropertyEditor.ListView.CollectionSource.Collection
|
||||
|
||||
_HRPersonCostHolder = _ocur.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder.Oid=? And HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolder.CostHolder.Oid, _SetHRPersonToCostHolderHRPerson.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo))
|
||||
|
||||
If _HRPersonCostHolder Is Nothing Then
|
||||
If _SetHRPersonToCostHolderHRPerson.WorkPercent > 0 Then
|
||||
_HRPersonCostHolder = _ocur.CreateObject(Of HRPersonCostHolder)()
|
||||
|
||||
_HRPersonCostHolder.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_SetHRPersonToCostHolder.CostHolder.Oid)
|
||||
_HRPersonCostHolder.HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_SetHRPersonToCostHolderHRPerson.HRPerson.Oid)
|
||||
_HRPersonCostHolder.DateFrom = _SetHRPersonToCostHolder.DateFrom
|
||||
_HRPersonCostHolder.DateTo = _SetHRPersonToCostHolder.DateTo
|
||||
_HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderHRPerson.WorkPercent
|
||||
End If
|
||||
Else
|
||||
If _SetHRPersonToCostHolderHRPerson.WorkPercent > 0 Then
|
||||
_HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderHRPerson.WorkPercent
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,39 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class CostPlace
|
||||
Inherits HCategory
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<NonPersistent>
|
||||
<ImmediatePostData(True), DataSourceProperty("CollectionOfCostPlace")>
|
||||
Property ParentObject As CostPlace
|
||||
Get
|
||||
Return MyBase.Parent
|
||||
End Get
|
||||
Set(value As CostPlace)
|
||||
MyBase.Parent = value
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
|
||||
<Browsable(False)> _
|
||||
<NonPersistent()> _
|
||||
Private ReadOnly Property CollectionOfCostPlace As XPCollection(Of CostPlace)
|
||||
Get
|
||||
Dim _CollectionOfCostPlace As New XPCollection(Of CostPlace)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
|
||||
Return _CollectionOfCostPlace
|
||||
End Get
|
||||
End Property
|
||||
End Class 'Költséghely
|
||||
|
||||
+40
@@ -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()> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
Public Class JobNumberObjects
|
||||
Inherits HCategory
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
|
||||
<NonPersistent>
|
||||
<ImmediatePostData(True), DataSourceProperty("CollectionOfJobNumberObjects")>
|
||||
Property ParentObject As JobNumberObjects
|
||||
Get
|
||||
Return MyBase.Parent
|
||||
End Get
|
||||
Set(value As JobNumberObjects)
|
||||
MyBase.Parent = value
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
|
||||
<Browsable(False)> _
|
||||
<NonPersistent()> _
|
||||
Private ReadOnly Property CollectionOfJobNumberObjects As XPCollection(Of JobNumberObjects)
|
||||
Get
|
||||
Dim _CollectionOfJobNumberObjects As New XPCollection(Of JobNumberObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
|
||||
Return _CollectionOfJobNumberObjects
|
||||
End Get
|
||||
End Property
|
||||
End Class 'Munkaszámok, projectek
|
||||
|
||||
+132
@@ -0,0 +1,132 @@
|
||||
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
|
||||
|
||||
'<Appearance("Disable DateTo - SetHRPersonToCostHolder", AppearanceItemType:="ViewItem", Criteria:="1=1", TargetItems:="DateTo", Enabled:=False)> _
|
||||
'<Appearance("Disable DateFrom - SetHRPersonToCostHolder", AppearanceItemType:="ViewItem", Criteria:="1=1", TargetItems:="DateFrom", Enabled:=False)> _
|
||||
|
||||
<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Hide SetHRPersonToCostHolderHRPerson when Mode=1", AppearanceItemType:="ViewItem", Criteria:="Mode=1", targetitems:="SetHRPersonToCostHolderHRPerson", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide SetHRPersonToCostHolderCostHolder when Mode=0", AppearanceItemType:="ViewItem", Criteria:="Mode=0", targetitems:="SetHRPersonToCostHolderCostHolder", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class SetHRPersonToCostHolder
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Mode As Long
|
||||
Private _HRPerson As HRPerson
|
||||
Private _CostHolder As CostHolder
|
||||
Private _DateFrom As Date
|
||||
Private _DateTo As Date
|
||||
Private _MasterKey As Guid
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<Browsable(False)> Property Mode As Long
|
||||
Get
|
||||
Return _Mode
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("Mode", _Mode, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> Property CostHolder As CostHolder
|
||||
Get
|
||||
Return _CostHolder
|
||||
End Get
|
||||
Set(value As CostHolder)
|
||||
SetPropertyValue("CostHolder", _CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateFrom As Date
|
||||
Get
|
||||
Return _DateFrom
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateFrom", _DateFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTo As Date
|
||||
Get
|
||||
Return _DateTo
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTo", _DateTo, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
<Appearance("Disable OpeneObject - SetHRPersonToCostHolder", AppearanceItemType.Action, "1=1", TargetItems:="OpenObject", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
ReadOnly Property SetHRPersonToCostHolderHRPerson As XPCollection(Of SetHRPersonToCostHolderHRPerson)
|
||||
Get
|
||||
Dim _SetHRPersonToCostHolderHRPerson_Collection As New XPCollection(Of SetHRPersonToCostHolderHRPerson)(Session, CriteriaOperator.Parse("1=2"))
|
||||
Dim _HRPerson_Collection = New XPCollection(Of HRPerson)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("1=1"))
|
||||
Dim _HRPerson As HRPerson
|
||||
Dim _HRPersonCostHolder As HRPersonCostHolder
|
||||
Dim _SetHRPersonToCostHolderHRPerson As SetHRPersonToCostHolderHRPerson
|
||||
For Each _HRPerson In _HRPerson_Collection
|
||||
_SetHRPersonToCostHolderHRPerson = New SetHRPersonToCostHolderHRPerson(Session)
|
||||
_SetHRPersonToCostHolderHRPerson.MasterKey = Me._MasterKey
|
||||
_SetHRPersonToCostHolderHRPerson.HRPerson = _HRPerson
|
||||
|
||||
_HRPersonCostHolder = Session.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder=? And HRPerson=? And DateFrom=? And DateTo=?", Me.CostHolder, _HRPerson, Me.DateFrom, Me.DateTo))
|
||||
If _HRPersonCostHolder IsNot Nothing Then
|
||||
_SetHRPersonToCostHolderHRPerson.WorkPercent = _HRPersonCostHolder.WorkPercent
|
||||
End If
|
||||
|
||||
_SetHRPersonToCostHolderHRPerson_Collection.Add(_SetHRPersonToCostHolderHRPerson)
|
||||
Next
|
||||
Return _SetHRPersonToCostHolderHRPerson_Collection
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property SetHRPersonToCostHolderCostHolder As XPCollection(Of SetHRPersonToCostHolderCostHolder)
|
||||
Get
|
||||
Dim _SetHRPersonToCostHolderCostHolder_Collection As New XPCollection(Of SetHRPersonToCostHolderCostHolder)(Session, CriteriaOperator.Parse("1=2"))
|
||||
Dim _CostHolder_Collection = New XPCollection(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("1=1"))
|
||||
Dim _CostHolder As CostHolder
|
||||
Dim _HRPersonCostHolder As HRPersonCostHolder
|
||||
Dim _SetHRPersonToCostHolderCostHolder As SetHRPersonToCostHolderCostHolder
|
||||
For Each _CostHolder In _CostHolder_Collection
|
||||
_SetHRPersonToCostHolderCostHolder = New SetHRPersonToCostHolderCostHolder(Session)
|
||||
_SetHRPersonToCostHolderCostHolder.MasterKey = Me._MasterKey
|
||||
_SetHRPersonToCostHolderCostHolder.CostHolder = _CostHolder
|
||||
|
||||
_HRPersonCostHolder = Session.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder=? And HRPerson=? And DateFrom=? And DateTo=?", _CostHolder, Me.HRPerson, Me.DateFrom, Me.DateTo))
|
||||
If _HRPersonCostHolder IsNot Nothing Then
|
||||
_SetHRPersonToCostHolderCostHolder.WorkPercent = _HRPersonCostHolder.WorkPercent
|
||||
End If
|
||||
|
||||
_SetHRPersonToCostHolderCostHolder_Collection.Add(_SetHRPersonToCostHolderCostHolder)
|
||||
Next
|
||||
Return _SetHRPersonToCostHolderCostHolder_Collection
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+53
@@ -0,0 +1,53 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Disable OpeneObject - SetHRPersonToCostHolderCostHolder", AppearanceItemType.Action, "1=1", TargetItems:="OpenObject", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class SetHRPersonToCostHolderCostHolder
|
||||
Inherits BaseObject
|
||||
|
||||
Private _MasterKey As Guid
|
||||
Private _CostHolder As CostHolder
|
||||
Private _WorkPercent As Double
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, 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 WorkPercent As Double
|
||||
Get
|
||||
Return _WorkPercent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("WorkPercent", _WorkPercent, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+53
@@ -0,0 +1,53 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Disable OpeneObject - SetHRPersonToCostHolderHRPerson", AppearanceItemType.Action, "1=1", TargetItems:="OpenObject", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class SetHRPersonToCostHolderHRPerson
|
||||
Inherits BaseObject
|
||||
|
||||
Private _MasterKey As Guid
|
||||
Private _HRPerson As HRPerson
|
||||
Private _WorkPercent As Double
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WorkPercent As Double
|
||||
Get
|
||||
Return _WorkPercent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("WorkPercent", _WorkPercent, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,192 @@
|
||||
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("FinancialStock")> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class Rule5DMatrix
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _RequireUniqueObjects As Boolean
|
||||
Private _RequireJobNumberObjects As Boolean
|
||||
Private _RequireControlling As Boolean
|
||||
Private _RequireCostHolder As Boolean
|
||||
Private _RequireCostPlace As Boolean
|
||||
|
||||
Private _VisibleUniqueObjects As Boolean
|
||||
Private _VisibleJobNumberObjects As Boolean
|
||||
Private _VisibleControlling As Boolean
|
||||
Private _VisibleCostHolder As Boolean
|
||||
Private _VisibleCostPlace As Boolean
|
||||
|
||||
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.
|
||||
If Session.IsNewObject(Me) Then
|
||||
VisibleControlling = True
|
||||
VisibleCostHolder = True
|
||||
VisibleCostPlace = True
|
||||
VisibleJobNumberObjects = True
|
||||
VisibleUniqueObjects = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property RequireUniqueObjects As Boolean
|
||||
Get
|
||||
Return _RequireUniqueObjects
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequireUniqueObjects", _RequireUniqueObjects, value)
|
||||
If value = True Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
VisibleUniqueObjects = True
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property RequireJobNumberObjects As Boolean
|
||||
Get
|
||||
Return _RequireJobNumberObjects
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequireJobNumberObjects", _RequireJobNumberObjects, value)
|
||||
If value = True Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
VisibleJobNumberObjects = True
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property RequireControlling As Boolean
|
||||
Get
|
||||
Return _RequireControlling
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequireControlling", _RequireControlling, value)
|
||||
If value = True Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
VisibleControlling = True
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property RequireCostHolder As Boolean
|
||||
Get
|
||||
Return _RequireCostHolder
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequireCostHolder", _RequireCostHolder, value)
|
||||
If value = True Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
VisibleCostHolder = True
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property RequireCostPlace As Boolean
|
||||
Get
|
||||
Return _RequireCostPlace
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("RequireCostPlace", _RequireCostPlace, value)
|
||||
If value = True Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
VisibleCostPlace = True
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property VisibleUniqueObjects As Boolean
|
||||
Get
|
||||
Return _VisibleUniqueObjects
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("VisibleUniqueObjects", _VisibleUniqueObjects, value)
|
||||
If value = False Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RequireUniqueObjects = False
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property VisibleJobNumberObjects As Boolean
|
||||
Get
|
||||
Return _VisibleJobNumberObjects
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("VisibleJobNumberObjects", _VisibleJobNumberObjects, value)
|
||||
If value = False Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RequireJobNumberObjects = False
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property VisibleControlling As Boolean
|
||||
Get
|
||||
Return _VisibleControlling
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("VisibleControlling", _VisibleControlling, value)
|
||||
If value = False Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RequireControlling = False
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property VisibleCostHolder As Boolean
|
||||
Get
|
||||
Return _VisibleCostHolder
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("VisibleCostHolder", _VisibleCostHolder, value)
|
||||
If value = False Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RequireCostHolder = False
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property VisibleCostPlace As Boolean
|
||||
Get
|
||||
Return _VisibleCostPlace
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("VisibleCostPlace", _VisibleCostPlace, value)
|
||||
If value = False Then
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RequireCostPlace = False
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,48 @@
|
||||
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("FinancialStock")> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class Rule5DforGL
|
||||
Inherits BaseObject
|
||||
Private _GLDocumentType As eGLDocumentType
|
||||
Private _Rule5DMatrix As Rule5DMatrix
|
||||
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 Rule5DMatrix As Rule5DMatrix
|
||||
Get
|
||||
Return _Rule5DMatrix
|
||||
End Get
|
||||
Set(value As Rule5DMatrix)
|
||||
SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLDocumentType As eGLDocumentType
|
||||
Get
|
||||
Return _GLDocumentType
|
||||
End Get
|
||||
Set(value As eGLDocumentType)
|
||||
SetPropertyValue("GLDocumentType", _GLDocumentType, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,73 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class UniqueObjects
|
||||
Inherits HCategory
|
||||
|
||||
Private _Cars As Cars
|
||||
Private _Phones As Phones
|
||||
Private _HRPerson As HRPerson
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
|
||||
<Browsable(False)> _
|
||||
Property Cars As Cars
|
||||
Get
|
||||
Return _Cars
|
||||
End Get
|
||||
Set(value As Cars)
|
||||
SetPropertyValue("Cars", _Cars, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Property Phones As Phones
|
||||
Get
|
||||
Return _Phones
|
||||
End Get
|
||||
Set(value As Phones)
|
||||
SetPropertyValue("Phones", _Phones, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<NonPersistent>
|
||||
<ImmediatePostData(True), DataSourceProperty("CollectionOfUniqueObjects")>
|
||||
Property ParentObject As UniqueObjects
|
||||
Get
|
||||
Return MyBase.Parent
|
||||
End Get
|
||||
Set(value As UniqueObjects)
|
||||
MyBase.Parent = value
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
|
||||
<Browsable(False)> _
|
||||
<NonPersistent()> _
|
||||
Private ReadOnly Property CollectionOfUniqueObjects As XPCollection(Of UniqueObjects)
|
||||
Get
|
||||
Dim _CollectionOfUniqueObjects As New XPCollection(Of UniqueObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
|
||||
Return _CollectionOfUniqueObjects
|
||||
End Get
|
||||
End Property
|
||||
End Class 'Egyedi azonosítók
|
||||
|
||||
Generated
+51
@@ -0,0 +1,51 @@
|
||||
Partial Class UniqueObjects_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()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aMergeUniqueObjects = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aMergeUniqueObjects
|
||||
'
|
||||
Me.aMergeUniqueObjects.Caption = "aMergeUniqueObjects"
|
||||
Me.aMergeUniqueObjects.Category = "ObjectsCreation"
|
||||
Me.aMergeUniqueObjects.ConfirmationMessage = "Do you want to execute?"
|
||||
Me.aMergeUniqueObjects.Id = "aMergeUniqueObjects"
|
||||
Me.aMergeUniqueObjects.ImageName = Nothing
|
||||
Me.aMergeUniqueObjects.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aMergeUniqueObjects.Shortcut = Nothing
|
||||
Me.aMergeUniqueObjects.Tag = Nothing
|
||||
Me.aMergeUniqueObjects.TargetObjectsCriteria = Nothing
|
||||
Me.aMergeUniqueObjects.TargetViewId = "UniqueObjects_ListView_Deleted"
|
||||
Me.aMergeUniqueObjects.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aMergeUniqueObjects.ToolTip = Nothing
|
||||
Me.aMergeUniqueObjects.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aMergeUniqueObjects As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?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="aMergeUniqueObjects.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 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>
|
||||
+75
@@ -0,0 +1,75 @@
|
||||
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.Data.Filtering
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class UniqueObjects_VC
|
||||
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()
|
||||
If View.Id = "UniqueObjects_ListView_Deleted" Then
|
||||
If TryCast(View, ListView) IsNot Nothing Then
|
||||
If TryCast(View, ListView).CollectionSource IsNot Nothing Then
|
||||
If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
|
||||
If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then
|
||||
If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then
|
||||
If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, DevExpress.Xpo.XPCollection) IsNot Nothing Then
|
||||
TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, DevExpress.Xpo.XPCollection).SelectDeleted = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aMergeUniqueObjects_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUniqueObjects.Execute
|
||||
Try
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Object As Object
|
||||
Dim _UniqueObjects As UniqueObjects
|
||||
Dim _UniqueObjectsActive As UniqueObjects
|
||||
|
||||
For Each _UniqueObjects In View.SelectedObjects
|
||||
|
||||
_UniqueObjectsActive = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjects.Name))
|
||||
If _UniqueObjectsActive IsNot Nothing Then
|
||||
For Each _Object In _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of UniqueObjects)(_UniqueObjects.Oid))
|
||||
Try
|
||||
For Each _PropertyInfo As PropertyInfo In _Object.GetType.GetProperties
|
||||
If _PropertyInfo.PropertyType.Name = "UniqueObjects" Then
|
||||
_PropertyInfo.SetValue(_Object, _onew.GetObjectByKey(Of UniqueObjects)(_UniqueObjectsActive.Oid), Nothing)
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
Throw New Exception(ex.Message)
|
||||
End Try
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,221 @@
|
||||
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("FinancialStock")> _
|
||||
<Appearance("ChartOfAccounts 1", AppearanceItemType:="ViewItem", criteria:="AccountNumber in ('1','2','3','4','5','8','9')", Fontstyle:=Drawing.FontStyle.Bold, targetitems:="*", context:="*")> _
|
||||
Public Class ChartOfAccounts
|
||||
Inherits HCategory
|
||||
Private _AccountYear As Long
|
||||
Private _AccountNumber As String
|
||||
Private _IsParent As Boolean = False
|
||||
Private _ChartOfAccounts1 As ChartOfAccounts
|
||||
Private _ChartOfAccounts2 As ChartOfAccounts
|
||||
Private _ChartOfAccounts3 As ChartOfAccounts
|
||||
Private _ChartOfAccounts4 As ChartOfAccounts
|
||||
Private _ChartOfAccounts5 As ChartOfAccounts
|
||||
Private _ChartOfAccounts6 As ChartOfAccounts
|
||||
Private _ChartOfAccounts7 As ChartOfAccounts
|
||||
Private _ChartOfAccounts8 As ChartOfAccounts
|
||||
|
||||
Private _ChartOfAccounts_Parent As ChartOfAccounts
|
||||
Private _RecordCount As Long = 0 'Az erre a számlára könyvelt tételek száma
|
||||
|
||||
Private _DebitAmountHUF As Double
|
||||
Private _CreditAmountHUF As Double
|
||||
|
||||
Protected Overrides Sub OnDeleting()
|
||||
MyBase.OnDeleting()
|
||||
If Me.Parent IsNot Nothing Then
|
||||
If Me.Parent.Children.Count = 1 Then
|
||||
TryCast(Me.Parent, ChartOfAccounts).IsParent = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If IsDeleted = False Then
|
||||
|
||||
Dim _c As New XPCollection(PersistentCriteriaEvaluationBehavior.InTransaction, Session, GetType(ChartOfAccounts), CriteriaOperator.Parse("Children.Count=0 and IsParent=True"))
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
|
||||
For Each _ChartOfAccounts In _c
|
||||
If _ChartOfAccounts.Children.Count = 0 Then
|
||||
_ChartOfAccounts.IsParent = False
|
||||
_ChartOfAccounts.Save()
|
||||
End If
|
||||
Next
|
||||
Dim _c1 As New XPCollection(PersistentCriteriaEvaluationBehavior.InTransaction, Session, GetType(ChartOfAccounts), CriteriaOperator.Parse("Children.Count<>0 and IsParent=False"))
|
||||
Dim _ChartOfAccountsX As ChartOfAccounts
|
||||
|
||||
For Each _ChartOfAccountsX In _c1
|
||||
If _ChartOfAccountsX.Children.Count <> 0 Then
|
||||
_ChartOfAccountsX.IsParent = True
|
||||
_ChartOfAccountsX.Save()
|
||||
End If
|
||||
Next
|
||||
|
||||
' -- A szülő számlák begyűjtése a gyökérig
|
||||
Me.ChartOfAccounts1 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 1), Me.AccountYear))
|
||||
Me.ChartOfAccounts2 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 2), Me.AccountYear))
|
||||
Me.ChartOfAccounts3 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 3), Me.AccountYear))
|
||||
Me.ChartOfAccounts4 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 4), Me.AccountYear))
|
||||
Me.ChartOfAccounts5 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 5), Me.AccountYear))
|
||||
Me.ChartOfAccounts6 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 6), Me.AccountYear))
|
||||
Me.ChartOfAccounts7 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 7), Me.AccountYear))
|
||||
Me.ChartOfAccounts8 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 8), Me.AccountYear))
|
||||
End If
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
AccountYear = Year(Now)
|
||||
End Sub
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
|
||||
<RuleRequiredField("ChartOfAccounts-AccountYear", DefaultContexts.Save)> _
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountNumber() As String
|
||||
Get
|
||||
'If Session.IsNewObject(Me) And Not Session.IsObjectsSaving And Me.Name IsNot Nothing Then
|
||||
If Not Session.IsObjectsSaving Then
|
||||
If Name IsNot Nothing Then
|
||||
_AccountNumber = Me.Name.Split(" ")(0)
|
||||
End If
|
||||
End If
|
||||
Return _AccountNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("AccountNumber", _AccountNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsParent() As Boolean
|
||||
Get
|
||||
Return _IsParent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsParent", _IsParent, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccounts_Parent As ChartOfAccounts
|
||||
Get
|
||||
Return TryCast(Me.Parent, ChartOfAccounts)
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_Parent", _ChartOfAccounts_Parent, value)
|
||||
Me.Parent = TryCast(value, HCategory)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ChartOfAccounts1 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts1
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts1", _ChartOfAccounts1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ChartOfAccounts2 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts2
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ChartOfAccounts3 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts3
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts3", _ChartOfAccounts3, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ChartOfAccounts4 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts4
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts4", _ChartOfAccounts4, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ChartOfAccounts5 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts5
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts5", _ChartOfAccounts5, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ChartOfAccounts6 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts6
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts6", _ChartOfAccounts6, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ChartOfAccounts7 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts7
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts7", _ChartOfAccounts7, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ChartOfAccounts8 As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts8
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts8", _ChartOfAccounts8, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property RecordCount As Long
|
||||
Get
|
||||
Return _RecordCount
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("RecordCount", _RecordCount, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub Reconfigure_ChartOfAccounts(ByVal _ObjectSpace As Xpo.XPObjectSpace) 'Az eljárás beállítja a szülő paramétereket
|
||||
Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ObjectSpace.Session, CriteriaOperator.Parse(""))
|
||||
Dim _COA As ChartOfAccounts
|
||||
|
||||
For Each _COA In _ChartOfAccounts_Collection
|
||||
_COA.ChartOfAccounts1 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 1), _COA.AccountYear))
|
||||
_COA.ChartOfAccounts2 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 2), _COA.AccountYear))
|
||||
_COA.ChartOfAccounts3 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 3), _COA.AccountYear))
|
||||
_COA.ChartOfAccounts4 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 4), _COA.AccountYear))
|
||||
_COA.ChartOfAccounts5 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 5), _COA.AccountYear))
|
||||
_COA.ChartOfAccounts6 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 6), _COA.AccountYear))
|
||||
_COA.ChartOfAccounts7 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 7), _COA.AccountYear))
|
||||
_COA.ChartOfAccounts8 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 8), _COA.AccountYear))
|
||||
_COA.Save()
|
||||
Next
|
||||
_ObjectSpace.CommitChanges()
|
||||
End Sub
|
||||
|
||||
End Class 'Főkönyvi számlaszámok
|
||||
|
||||
+113
@@ -0,0 +1,113 @@
|
||||
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)> _
|
||||
Public Class ChartOfAccountsBallance ' 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).
|
||||
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _AccountYear As Long
|
||||
Private _AccountNumber As String
|
||||
Private _ShortName As String
|
||||
Private _DebitAmountHUF As Double
|
||||
Private _CreditAmountHUF As Double
|
||||
Private _BallanceHUF As Double
|
||||
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 CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountNumber As String
|
||||
Get
|
||||
Return _AccountNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("AccountNumber", _AccountNumber, 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
|
||||
Property DebitAmountHUF As Double
|
||||
Get
|
||||
Return _DebitAmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditAmountHUF As Double
|
||||
Get
|
||||
Return _CreditAmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceHUF As Double
|
||||
Get
|
||||
Return _BallanceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
'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
|
||||
+49
@@ -0,0 +1,49 @@
|
||||
Partial Class ChartOfAccountsBallance_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()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aCreateChartOfAccountsBallance = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aCreateChartOfAccountsBallance
|
||||
'
|
||||
Me.aCreateChartOfAccountsBallance.Caption = "aCreate Chart Of Accounts Ballance"
|
||||
Me.aCreateChartOfAccountsBallance.ConfirmationMessage = Nothing
|
||||
Me.aCreateChartOfAccountsBallance.Id = "aCreateChartOfAccountsBallance"
|
||||
Me.aCreateChartOfAccountsBallance.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccountsBallance)
|
||||
Me.aCreateChartOfAccountsBallance.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aCreateChartOfAccountsBallance.ToolTip = Nothing
|
||||
Me.aCreateChartOfAccountsBallance.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'ChartOfAccountsBallance_VC
|
||||
'
|
||||
Me.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aCreateChartOfAccountsBallance As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?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="aCreateChartOfAccountsBallance.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 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>
|
||||
+42
@@ -0,0 +1,42 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.ExpressApp.Layout
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Templates
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Model.NodeGenerators
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
|
||||
Partial Public Class ChartOfAccountsBallance_VC
|
||||
Inherits ViewController
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
' Target required Views (via the TargetXXX properties) and create their Actions.
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
' Perform various tasks depending on the target View.
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
' Access and customize the target View control.
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
' Unsubscribe from previously subscribed events and release other references and resources.
|
||||
MyBase.OnDeactivated()
|
||||
End Sub
|
||||
|
||||
Private Sub aCreateChartOfAccountsBallance_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCreateChartOfAccountsBallance.Execute
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+178
@@ -0,0 +1,178 @@
|
||||
Partial Class ChartOfAccountsVC
|
||||
|
||||
<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.aReCreateChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateChartOfAccountsYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aReCreateChartOfAccountsParent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aReCreateChartOfAccountsCount = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewGLRowsfromChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCloseChartOfAccountsYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateCartOfAccountsYearAny = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCloseChartOfAccountsYearBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aReCreateChartOfAccounts
|
||||
'
|
||||
Me.aReCreateChartOfAccounts.Caption = "aRe Create Chart Of Accounts"
|
||||
Me.aReCreateChartOfAccounts.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aReCreateChartOfAccounts.Id = "aReCreateChartOfAccounts"
|
||||
Me.aReCreateChartOfAccounts.ImageName = Nothing
|
||||
Me.aReCreateChartOfAccounts.Shortcut = Nothing
|
||||
Me.aReCreateChartOfAccounts.Tag = Nothing
|
||||
Me.aReCreateChartOfAccounts.TargetObjectsCriteria = Nothing
|
||||
Me.aReCreateChartOfAccounts.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccounts)
|
||||
Me.aReCreateChartOfAccounts.TargetViewId = ""
|
||||
Me.aReCreateChartOfAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aReCreateChartOfAccounts.ToolTip = Nothing
|
||||
Me.aReCreateChartOfAccounts.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aCreateChartOfAccountsYear
|
||||
'
|
||||
Me.aCreateChartOfAccountsYear.Caption = "aCreate Chart Of Accounts Year"
|
||||
Me.aCreateChartOfAccountsYear.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateChartOfAccountsYear.Id = "aCreateChartOfAccountsYear"
|
||||
Me.aCreateChartOfAccountsYear.ImageName = Nothing
|
||||
Me.aCreateChartOfAccountsYear.Shortcut = Nothing
|
||||
Me.aCreateChartOfAccountsYear.Tag = Nothing
|
||||
Me.aCreateChartOfAccountsYear.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateChartOfAccountsYear.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccountsYear)
|
||||
Me.aCreateChartOfAccountsYear.TargetViewId = Nothing
|
||||
Me.aCreateChartOfAccountsYear.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aCreateChartOfAccountsYear.ToolTip = Nothing
|
||||
Me.aCreateChartOfAccountsYear.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aReCreateChartOfAccountsParent
|
||||
'
|
||||
Me.aReCreateChartOfAccountsParent.Caption = "aRe Create Chart Of Accounts Parent"
|
||||
Me.aReCreateChartOfAccountsParent.ConfirmationMessage = Nothing
|
||||
Me.aReCreateChartOfAccountsParent.Id = "aReCreateChartOfAccountsParent"
|
||||
Me.aReCreateChartOfAccountsParent.ImageName = Nothing
|
||||
Me.aReCreateChartOfAccountsParent.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aReCreateChartOfAccountsParent.Shortcut = Nothing
|
||||
Me.aReCreateChartOfAccountsParent.Tag = Nothing
|
||||
Me.aReCreateChartOfAccountsParent.TargetObjectsCriteria = Nothing
|
||||
Me.aReCreateChartOfAccountsParent.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccounts)
|
||||
Me.aReCreateChartOfAccountsParent.TargetViewId = Nothing
|
||||
Me.aReCreateChartOfAccountsParent.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aReCreateChartOfAccountsParent.ToolTip = Nothing
|
||||
Me.aReCreateChartOfAccountsParent.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aReCreateChartOfAccountsCount
|
||||
'
|
||||
Me.aReCreateChartOfAccountsCount.Caption = "aRe Create Chart Of Accounts Count"
|
||||
Me.aReCreateChartOfAccountsCount.ConfirmationMessage = Nothing
|
||||
Me.aReCreateChartOfAccountsCount.Id = "aReCreateChartOfAccountsCount"
|
||||
Me.aReCreateChartOfAccountsCount.ImageName = Nothing
|
||||
Me.aReCreateChartOfAccountsCount.Shortcut = Nothing
|
||||
Me.aReCreateChartOfAccountsCount.Tag = Nothing
|
||||
Me.aReCreateChartOfAccountsCount.TargetObjectsCriteria = Nothing
|
||||
Me.aReCreateChartOfAccountsCount.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccounts)
|
||||
Me.aReCreateChartOfAccountsCount.TargetViewId = Nothing
|
||||
Me.aReCreateChartOfAccountsCount.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aReCreateChartOfAccountsCount.ToolTip = Nothing
|
||||
Me.aReCreateChartOfAccountsCount.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aViewGLRowsfromChartOfAccounts
|
||||
'
|
||||
Me.aViewGLRowsfromChartOfAccounts.Caption = "aView GLRowsfrom Chart Of Accounts"
|
||||
Me.aViewGLRowsfromChartOfAccounts.ConfirmationMessage = Nothing
|
||||
Me.aViewGLRowsfromChartOfAccounts.Id = "aViewGLRowsfromChartOfAccounts"
|
||||
Me.aViewGLRowsfromChartOfAccounts.ImageName = Nothing
|
||||
Me.aViewGLRowsfromChartOfAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewGLRowsfromChartOfAccounts.Shortcut = Nothing
|
||||
Me.aViewGLRowsfromChartOfAccounts.Tag = Nothing
|
||||
Me.aViewGLRowsfromChartOfAccounts.TargetObjectsCriteria = Nothing
|
||||
Me.aViewGLRowsfromChartOfAccounts.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccounts)
|
||||
Me.aViewGLRowsfromChartOfAccounts.TargetViewId = Nothing
|
||||
Me.aViewGLRowsfromChartOfAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aViewGLRowsfromChartOfAccounts.ToolTip = Nothing
|
||||
Me.aViewGLRowsfromChartOfAccounts.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aCloseChartOfAccountsYear
|
||||
'
|
||||
Me.aCloseChartOfAccountsYear.Caption = "aClose Chart Of Accounts Year"
|
||||
Me.aCloseChartOfAccountsYear.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aCloseChartOfAccountsYear.Id = "aCloseChartOfAccountsYear"
|
||||
Me.aCloseChartOfAccountsYear.ImageName = Nothing
|
||||
Me.aCloseChartOfAccountsYear.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCloseChartOfAccountsYear.Shortcut = Nothing
|
||||
Me.aCloseChartOfAccountsYear.Tag = Nothing
|
||||
Me.aCloseChartOfAccountsYear.TargetObjectsCriteria = Nothing
|
||||
Me.aCloseChartOfAccountsYear.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccountsYear)
|
||||
Me.aCloseChartOfAccountsYear.TargetViewId = Nothing
|
||||
Me.aCloseChartOfAccountsYear.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aCloseChartOfAccountsYear.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aCloseChartOfAccountsYear.ToolTip = Nothing
|
||||
Me.aCloseChartOfAccountsYear.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aCreateCartOfAccountsYearAny
|
||||
'
|
||||
Me.aCreateCartOfAccountsYearAny.AcceptButtonCaption = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.CancelButtonCaption = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.Caption = "aCreate Cart Of Accounts Year Any"
|
||||
Me.aCreateCartOfAccountsYearAny.ConfirmationMessage = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.Id = "aCreateCartOfAccountsYearAny"
|
||||
Me.aCreateCartOfAccountsYearAny.ImageName = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.Shortcut = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.Tag = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccountsYear)
|
||||
Me.aCreateCartOfAccountsYearAny.TargetViewId = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aCreateCartOfAccountsYearAny.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aCreateCartOfAccountsYearAny.ToolTip = Nothing
|
||||
Me.aCreateCartOfAccountsYearAny.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aCloseChartOfAccountsYearBack
|
||||
'
|
||||
Me.aCloseChartOfAccountsYearBack.Caption = "aClose Chart Of Accounts Year Back"
|
||||
Me.aCloseChartOfAccountsYearBack.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aCloseChartOfAccountsYearBack.Id = "aCloseChartOfAccountsYearBack"
|
||||
Me.aCloseChartOfAccountsYearBack.ImageName = Nothing
|
||||
Me.aCloseChartOfAccountsYearBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCloseChartOfAccountsYearBack.Shortcut = Nothing
|
||||
Me.aCloseChartOfAccountsYearBack.Tag = Nothing
|
||||
Me.aCloseChartOfAccountsYearBack.TargetObjectsCriteria = Nothing
|
||||
Me.aCloseChartOfAccountsYearBack.TargetObjectType = GetType(Nuvolar.[Module].ChartOfAccountsYear)
|
||||
Me.aCloseChartOfAccountsYearBack.TargetViewId = Nothing
|
||||
Me.aCloseChartOfAccountsYearBack.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aCloseChartOfAccountsYearBack.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aCloseChartOfAccountsYearBack.ToolTip = Nothing
|
||||
Me.aCloseChartOfAccountsYearBack.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aReCreateChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateChartOfAccountsYear As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aReCreateChartOfAccountsParent As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aReCreateChartOfAccountsCount As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewGLRowsfromChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCloseChartOfAccountsYear As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateCartOfAccountsYearAny As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCloseChartOfAccountsYearBack As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+147
@@ -0,0 +1,147 @@
|
||||
<?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="aReCreateChartOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 276</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateChartOfAccountsYear.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 128</value>
|
||||
</metadata>
|
||||
<metadata name="aReCreateChartOfAccountsParent.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 239</value>
|
||||
</metadata>
|
||||
<metadata name="aReCreateChartOfAccountsCount.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 202</value>
|
||||
</metadata>
|
||||
<metadata name="aViewGLRowsfromChartOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 165</value>
|
||||
</metadata>
|
||||
<metadata name="aCloseChartOfAccountsYear.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateCartOfAccountsYearAny.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</metadata>
|
||||
<metadata name="aCloseChartOfAccountsYearBack.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>462, 54</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+747
@@ -0,0 +1,747 @@
|
||||
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.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
|
||||
Public Class ChartOfAccountsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "ChartOfAccountsYear_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ChartOfAccountsYear_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf ChartOfAccountsYear_ChartOfAccounts_ListView_DeleteAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aReCreateChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccounts.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_uow)
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
|
||||
Dim _AccountNumber As String = ""
|
||||
Dim _AccountNumber_Parent As String = ""
|
||||
|
||||
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
|
||||
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
|
||||
RaiseEvent DoWork()
|
||||
|
||||
RecursiveSetParent(_uow, _ChartOfAccounts.AccountYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts)
|
||||
|
||||
_ChartOfAccounts.ChartOfAccounts1 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 1), _ChartOfAccounts.AccountYear))
|
||||
_ChartOfAccounts.ChartOfAccounts2 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 2), _ChartOfAccounts.AccountYear))
|
||||
_ChartOfAccounts.ChartOfAccounts3 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 3), _ChartOfAccounts.AccountYear))
|
||||
_ChartOfAccounts.ChartOfAccounts4 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 4), _ChartOfAccounts.AccountYear))
|
||||
_ChartOfAccounts.ChartOfAccounts5 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 5), _ChartOfAccounts.AccountYear))
|
||||
_ChartOfAccounts.ChartOfAccounts6 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 6), _ChartOfAccounts.AccountYear))
|
||||
_ChartOfAccounts.ChartOfAccounts7 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 7), _ChartOfAccounts.AccountYear))
|
||||
_ChartOfAccounts.ChartOfAccounts8 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 8), _ChartOfAccounts.AccountYear))
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
Sub RecursiveSetParent(_uow As UnitOfWork, _Year As Long, _AccountNumber As String, _ChartOfAccount_Set As ChartOfAccounts)
|
||||
|
||||
Dim _AccountNumber_Parent As String = LTrim(RTrim(Mid(_AccountNumber, 1, Len(_AccountNumber) - 1)))
|
||||
Dim _ChartOfAccounts_Parent As ChartOfAccounts
|
||||
|
||||
If _AccountNumber_Parent = "" Then
|
||||
Else
|
||||
_ChartOfAccounts_Parent = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _Year, _AccountNumber_Parent))
|
||||
If _ChartOfAccounts_Parent Is Nothing Then
|
||||
RecursiveSetParent(_uow, _Year, _AccountNumber_Parent, _ChartOfAccount_Set)
|
||||
Else
|
||||
_ChartOfAccount_Set.Parent = _ChartOfAccounts_Parent
|
||||
_uow.CommitChanges()
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aCreateChartOfAccountsYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateChartOfAccountsYear.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _ChartOfAccountsYear As ChartOfAccountsYear
|
||||
Dim _ChartOfAccounts_New As ChartOfAccounts
|
||||
|
||||
Dim _CurrentYear As Long = GetSQLTime(_ocur.Session).Year
|
||||
Dim _PrevYear As Long = GetSQLTime(_ocur.Session).Year - 1
|
||||
Dim _FirstDayOfYear = GeneralFunction.FirstDayOfYear(GetSQLTime(_ocur.Session))
|
||||
Dim _LastDayOfYear = GeneralFunction.LastDayOfYear(GetSQLTime(_ocur.Session))
|
||||
|
||||
_ChartOfAccountsYear = _ocur.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_ocur.Session).Year))
|
||||
|
||||
If _ChartOfAccountsYear Is Nothing Then
|
||||
_ChartOfAccountsYear = _ocur.CreateObject(Of ChartOfAccountsYear)()
|
||||
_ChartOfAccountsYear.AccountYear = GetSQLTime(_ocur.Session).Year
|
||||
|
||||
Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
|
||||
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
|
||||
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
|
||||
RaiseEvent DoWork()
|
||||
_ChartOfAccounts_New = _ocur.CreateObject(Of ChartOfAccounts)()
|
||||
_ChartOfAccounts_New.Name = _ChartOfAccounts.Name
|
||||
_ChartOfAccounts_New.Parent = Nothing
|
||||
_ChartOfAccounts_New.AccountNumber = _ChartOfAccounts.AccountNumber
|
||||
_ChartOfAccounts_New.AccountYear = _ChartOfAccountsYear.AccountYear
|
||||
_ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
_ChartOfAccounts_Collection = New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
|
||||
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
|
||||
RaiseEvent DoWork()
|
||||
Me.RecursiveSetParent(_ocur.Session, _CurrentYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts)
|
||||
_ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
End If
|
||||
'// VAT -> ÁFA megnyitása, paraméterek átmásolása
|
||||
Dim _VATYear_Collection_CurrentYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _VATYear_Collection_PrevYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _VATYear_PrevYear As VATYear
|
||||
Dim _VATYear_CurrentYear As VATYear
|
||||
If _VATYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _VATYear_Collection_PrevYear.Count)
|
||||
For Each _VATYear_PrevYear In _VATYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_VATYear_CurrentYear = _ocur.FindObject(Of VATYear)(CriteriaOperator.Parse("AccountYear=? and VAT=?", _CurrentYear, _VATYear_PrevYear.VAT))
|
||||
If _VATYear_CurrentYear Is Nothing Then
|
||||
_VATYear_CurrentYear = _ocur.CreateObject(Of VATYear)()
|
||||
_VATYear_CurrentYear.VAT = _VATYear_PrevYear.VAT
|
||||
_VATYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _VATYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
|
||||
_VATYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _VATYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
|
||||
_VATYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// Controlling -> Kontrollszámok megnyitása, paraméterek átmásolása
|
||||
Dim _ControllingYear_Collection_CurrentYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _ControllingYear_Collection_PrevYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _ControllingYear_PrevYear As ControllingYear
|
||||
Dim _ControllingYear_CurrentYear As ControllingYear
|
||||
If _ControllingYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _ControllingYear_Collection_PrevYear.Count)
|
||||
For Each _ControllingYear_PrevYear In _ControllingYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_ControllingYear_CurrentYear = _ocur.FindObject(Of ControllingYear)(CriteriaOperator.Parse("AccountYear=? and Controlling=?", _CurrentYear, _ControllingYear_PrevYear.Controlling))
|
||||
If _ControllingYear_CurrentYear Is Nothing Then
|
||||
_ControllingYear_CurrentYear = _ocur.CreateObject(Of ControllingYear)()
|
||||
_ControllingYear_CurrentYear.Controlling = _ControllingYear_PrevYear.Controlling
|
||||
_ControllingYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _ControllingYear_PrevYear.ChartOfAccounts IsNot Nothing Then
|
||||
_ControllingYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _ControllingYear_PrevYear.ChartOfAccounts2 IsNot Nothing Then
|
||||
_ControllingYear_CurrentYear.ChartOfAccounts2 = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts2.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
'// CustomersGLParameters -> Ügyfél fõkönyvi kategória megnyitása
|
||||
Dim _CustomersGLParametersYear_Collection_CurrentYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _CustomersGLParametersYear_Collection_PrevYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _CustomersGLParametersYear_PrevYear As CustomersGLParametersYear
|
||||
Dim _CustomersGLParametersYear_CurrentYear As CustomersGLParametersYear
|
||||
If _CustomersGLParametersYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _CustomersGLParametersYear_Collection_PrevYear.Count)
|
||||
For Each _CustomersGLParametersYear_PrevYear In _CustomersGLParametersYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_CustomersGLParametersYear_CurrentYear = _ocur.FindObject(Of CustomersGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and CustomersGLParameters=?", _CurrentYear, _CustomersGLParametersYear_PrevYear.CustomersGLParameters))
|
||||
If _CustomersGLParametersYear_CurrentYear Is Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear = _ocur.CreateObject(Of CustomersGLParametersYear)()
|
||||
_CustomersGLParametersYear_CurrentYear.CustomersGLParameters = _CustomersGLParametersYear_PrevYear.CustomersGLParameters
|
||||
_CustomersGLParametersYear_CurrentYear.AccountYear = _CurrentYear
|
||||
|
||||
If _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
|
||||
_CustomersGLParametersYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
|
||||
_CustomersGLParametersYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo IsNot Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear.ChartOfAccountsNo = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
|
||||
_CustomersGLParametersYear_PrevYear.ChartOfAccountsNo.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// GLHeader_RateDiffParameter -> Árfolyamelszámolás, kerekítés
|
||||
Dim _GLHeader_RateDiffParameterYear_Collection_CurrentYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _GLHeader_RateDiffParameterYear_Collection_PrevYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _GLHeader_RateDiffParameterYear_PrevYear As GLHeader_RateDiffParameterYear
|
||||
Dim _GLHeader_RateDiffParameterYear_CurrentYear As GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _GLHeader_RateDiffParameterYear_Collection_PrevYear.Count)
|
||||
For Each _GLHeader_RateDiffParameterYear_PrevYear In _GLHeader_RateDiffParameterYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear = _ocur.FindObject(Of GLHeader_RateDiffParameterYear)(CriteriaOperator.Parse("AccountYear=? and GLHeader_RateDiffParameter=?", _CurrentYear, _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter))
|
||||
If _GLHeader_RateDiffParameterYear_CurrentYear Is Nothing Then
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear = _ocur.CreateObject(Of GLHeader_RateDiffParameterYear)()
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.GLHeader_RateDiffParameter = _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.AccountYear = _CurrentYear
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Loss.AccountNumber, _CurrentYear))
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Win.AccountNumber, _CurrentYear))
|
||||
If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss IsNot Nothing Then
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win IsNot Nothing Then
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// LiquidAssets -> Pénzeszközök megnyitása
|
||||
Dim _LiquidAssetsYear_Collection_CurrentYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _LiquidAssetsYear_Collection_PrevYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _LiquidAssetsYear_PrevYear As LiquidAssetsYear
|
||||
Dim _LiquidAssetsYear_CurrentYear As LiquidAssetsYear
|
||||
If _LiquidAssetsYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _LiquidAssetsYear_Collection_PrevYear.Count)
|
||||
For Each _LiquidAssetsYear_PrevYear In _LiquidAssetsYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_LiquidAssetsYear_CurrentYear = _ocur.FindObject(Of LiquidAssetsYear)(CriteriaOperator.Parse("AccountYear=? and LiquidAssets=?", _CurrentYear, _LiquidAssetsYear_PrevYear.LiquidAssets))
|
||||
If _LiquidAssetsYear_CurrentYear Is Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear = _ocur.CreateObject(Of LiquidAssetsYear)()
|
||||
_LiquidAssetsYear_CurrentYear.LiquidAssets = _LiquidAssetsYear_PrevYear.LiquidAssets
|
||||
_LiquidAssetsYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _LiquidAssetsYear_PrevYear.ChartOfAccounts IsNot Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus IsNot Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear.ChartOfAccountsPlus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus IsNot Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear.ChartOfAccountsMinus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// Tárgyiesköz paraméterek beállítása
|
||||
'// LiquidAssets -> Pénzeszközök megnyitása
|
||||
Dim _FixedAssetsGLParametersYear_Collection_CurrentYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _FixedAssetsGLParametersYear_Collection_PrevYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _FixedAssetsGLParametersYear_PrevYear As FixedAssetsGLParametersYear
|
||||
Dim _FixedAssetsGLParametersYear_CurrentYear As FixedAssetsGLParametersYear
|
||||
If _FixedAssetsGLParametersYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _FixedAssetsGLParametersYear_Collection_PrevYear.Count)
|
||||
For Each _FixedAssetsGLParametersYear_PrevYear In _FixedAssetsGLParametersYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_FixedAssetsGLParametersYear_CurrentYear = _ocur.FindObject(Of FixedAssetsGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and FixedAssetsGLParameters=?", _CurrentYear, _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters))
|
||||
If _FixedAssetsGLParametersYear_CurrentYear Is Nothing Then
|
||||
_FixedAssetsGLParametersYear_CurrentYear = _ocur.CreateObject(Of FixedAssetsGLParametersYear)()
|
||||
_FixedAssetsGLParametersYear_CurrentYear.FixedAssetsGLParameters = _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters
|
||||
_FixedAssetsGLParametersYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts IsNot Nothing Then
|
||||
_FixedAssetsGLParametersYear_CurrentYear.CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts IsNot Nothing Then
|
||||
_FixedAssetsGLParametersYear_CurrentYear.DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'//GLRows-ban átkönyvelni a tételeket az új év fõkönyvi számláira
|
||||
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
Dim _GLRows As GLRows
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
If _GLRows.DebitChartOfAccounts IsNot Nothing Then
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.DebitChartOfAccounts.AccountNumber))
|
||||
If _ChartOfAccounts IsNot Nothing Then
|
||||
_GLRows.DebitChartOfAccounts = _ChartOfAccounts
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
|
||||
_GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
If _GLRows.DebitChartOfAccounts IsNot Nothing Then
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.CreditChartOfAccounts.AccountNumber))
|
||||
If _ChartOfAccounts IsNot Nothing Then
|
||||
_GLRows.CreditChartOfAccounts = _ChartOfAccounts
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
|
||||
End Sub
|
||||
Private Sub aReCreateChartOfAccountsParent_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccountsParent.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
|
||||
For Each _ChartOfAccounts In View.SelectedObjects
|
||||
Me.RecursiveSetParent(_uow, _ChartOfAccounts.AccountYear, _ChartOfAccounts.AccountNumber, _uow.GetObjectByKey(Of ChartOfAccounts)(_ChartOfAccounts.Oid))
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ChartOfAccountsYear_ChartOfAccounts_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs)
|
||||
'// Fk. számlaszám törlése !
|
||||
'// Nem lehet paraméter, és nem lehet könyvelve rá !
|
||||
'// Paraméterek:
|
||||
'// LiquidAssetsYear
|
||||
'// CustomersGLParametersYear
|
||||
'// GLHeader_ratediffparametersYear
|
||||
'// ControllingYear
|
||||
'// VATYear
|
||||
'// Nem lehet szülõ
|
||||
End Sub
|
||||
|
||||
Private Sub aReCreateChartOfAccountsCount_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccountsCount.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
|
||||
If _ListView IsNot Nothing Then
|
||||
If _ListView.SelectedObjects.Count > 0 Then
|
||||
RaiseEvent InitWork(1, 1, _ListView.SelectedObjects.Count)
|
||||
For Each _ChartOfAccounts In _ListView.SelectedObjects
|
||||
Dim _GLRows_xpquery As New XPQuery(Of GLRows)(_uow)
|
||||
Dim _Count = Aggregate _GLRows In _GLRows_xpquery
|
||||
Where _GLRows.GLHeader.IsEditable = False And
|
||||
(_GLRows.DebitChartOfAccounts.Oid = _ChartOfAccounts.Oid Or
|
||||
_GLRows.CreditChartOfAccounts.Oid = _ChartOfAccounts.Oid)
|
||||
Into Count()
|
||||
_ChartOfAccounts.RecordCount = _Count
|
||||
RaiseEvent DoWork()
|
||||
Next
|
||||
Else
|
||||
RaiseEvent InitWork(1, 1, _ListView.CollectionSource.List.Count)
|
||||
For Each _ChartOfAccounts In _ListView.CollectionSource.List
|
||||
Dim _GLRows_xpquery As New XPQuery(Of GLRows)(_uow)
|
||||
Dim _Count = Aggregate _GLRows In _GLRows_xpquery
|
||||
Where _GLRows.GLHeader.IsEditable = False And
|
||||
(_GLRows.DebitChartOfAccounts.Oid = _ChartOfAccounts.Oid Or
|
||||
_GLRows.CreditChartOfAccounts.Oid = _ChartOfAccounts.Oid)
|
||||
Into Count()
|
||||
_ChartOfAccounts.RecordCount = _Count
|
||||
RaiseEvent DoWork()
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub aViewGLRowsfromChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewGLRowsfromChartOfAccounts.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLRows))
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = TryCast(View.SelectedObjects(0), ChartOfAccounts)
|
||||
Dim _Criteria As String = "(DebitChartOfAccounts.Oid=? or CreditChartOfAccounts.Oid=?) and GLHeader.IsEditable=False"
|
||||
|
||||
If _ChartOfAccounts Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria, _ChartOfAccounts.Oid, _ChartOfAccounts.Oid)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLRows_ListView_All", _CS, True)
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aCloseChartOfAccountsYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseChartOfAccountsYear.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ChartOfAccountsYear As ChartOfAccountsYear = TryCast(View.SelectedObjects(0), ChartOfAccountsYear)
|
||||
|
||||
If _ChartOfAccountsYear IsNot Nothing Then
|
||||
_ChartOfAccountsYear.IsClosed = True
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aCloseChartOfAccountsYearBack_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseChartOfAccountsYearBack.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ChartOfAccountsYear As ChartOfAccountsYear = TryCast(View.SelectedObjects(0), ChartOfAccountsYear)
|
||||
|
||||
If _ChartOfAccountsYear IsNot Nothing Then
|
||||
_ChartOfAccountsYear.IsClosed = False
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aCreateCartOfAccountsYearAny_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateCartOfAccountsYearAny.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ChartOfAccountsYearPopup As ChartOfAccountsYearPopup = _onew.CreateObject(Of ChartOfAccountsYearPopup)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "ChartOfAccountsYearPopup_DetailView", False, _ChartOfAccountsYearPopup)
|
||||
End Sub
|
||||
|
||||
Private Sub aCreateCartOfAccountsYearAny_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateCartOfAccountsYearAny.Execute
|
||||
Try
|
||||
|
||||
GLOBAL_HAS_Audit = False
|
||||
Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace 'TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
Dim i As Long = 0
|
||||
Dim _ChartOfAccountsYear As ChartOfAccountsYear
|
||||
Dim _ChartOfAccounts_New As ChartOfAccounts
|
||||
|
||||
Dim _CurrentYear As Long = TryCast(e.PopupWindow.View.SelectedObjects(0), ChartOfAccountsYearPopup).AccountYear
|
||||
Dim _CurrentYearDate As Date = CDate(_CurrentYear.ToString & "/01/01")
|
||||
Dim _PrevYear As Long = TryCast(e.PopupWindow.View.SelectedObjects(0), ChartOfAccountsYearPopup).AccountYearPrev
|
||||
Dim _FirstDayOfYear = GeneralFunction.FirstDayOfYear(_CurrentYearDate)
|
||||
Dim _LastDayOfYear = GeneralFunction.LastDayOfYear(_CurrentYearDate)
|
||||
|
||||
_ChartOfAccountsYear = _ocur.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _CurrentYearDate.Year))
|
||||
|
||||
If _ChartOfAccountsYear Is Nothing Then
|
||||
_ChartOfAccountsYear = _ocur.CreateObject(Of ChartOfAccountsYear)()
|
||||
_ChartOfAccountsYear.AccountYear = _CurrentYearDate.Year
|
||||
|
||||
Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
|
||||
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
|
||||
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
|
||||
RaiseEvent DoWork()
|
||||
_ChartOfAccounts_New = _ocur.CreateObject(Of ChartOfAccounts)()
|
||||
_ChartOfAccounts_New.Name = _ChartOfAccounts.Name
|
||||
_ChartOfAccounts_New.Parent = Nothing
|
||||
_ChartOfAccounts_New.AccountNumber = _ChartOfAccounts.AccountNumber
|
||||
_ChartOfAccounts_New.AccountYear = _ChartOfAccountsYear.AccountYear
|
||||
i += 1
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
'_ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
_ChartOfAccounts_Collection = New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
|
||||
i = 0
|
||||
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
|
||||
RaiseEvent DoWork()
|
||||
Me.RecursiveSetParent(_ocur.Session, _CurrentYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts)
|
||||
i += 1
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
End If
|
||||
'// VAT -> ÁFA megnyitása, paraméterek átmásolása
|
||||
Dim _VATYear_Collection_CurrentYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _VATYear_Collection_PrevYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _VATYear_PrevYear As VATYear
|
||||
Dim _VATYear_CurrentYear As VATYear
|
||||
If _VATYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _VATYear_Collection_PrevYear.Count)
|
||||
i = 0
|
||||
For Each _VATYear_PrevYear In _VATYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_VATYear_CurrentYear = _ocur.FindObject(Of VATYear)(CriteriaOperator.Parse("AccountYear=? and VAT=?", _CurrentYear, _VATYear_PrevYear.VAT))
|
||||
If _VATYear_CurrentYear Is Nothing Then
|
||||
_VATYear_CurrentYear = _ocur.CreateObject(Of VATYear)()
|
||||
_VATYear_CurrentYear.VAT = _VATYear_PrevYear.VAT
|
||||
_VATYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _VATYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
|
||||
_VATYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _VATYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
|
||||
_VATYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// Controlling -> Kontrollszámok megnyitása, paraméterek átmásolása
|
||||
Dim _ControllingYear_Collection_CurrentYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _ControllingYear_Collection_PrevYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _ControllingYear_PrevYear As ControllingYear
|
||||
Dim _ControllingYear_CurrentYear As ControllingYear
|
||||
If _ControllingYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _ControllingYear_Collection_PrevYear.Count)
|
||||
i = 0
|
||||
For Each _ControllingYear_PrevYear In _ControllingYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_ControllingYear_CurrentYear = _ocur.FindObject(Of ControllingYear)(CriteriaOperator.Parse("AccountYear=? and Controlling=?", _CurrentYear, _ControllingYear_PrevYear.Controlling))
|
||||
If _ControllingYear_CurrentYear Is Nothing Then
|
||||
_ControllingYear_CurrentYear = _ocur.CreateObject(Of ControllingYear)()
|
||||
_ControllingYear_CurrentYear.Controlling = _ControllingYear_PrevYear.Controlling
|
||||
_ControllingYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _ControllingYear_PrevYear.ChartOfAccounts IsNot Nothing Then
|
||||
_ControllingYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _ControllingYear_PrevYear.ChartOfAccounts2 IsNot Nothing Then
|
||||
_ControllingYear_CurrentYear.ChartOfAccounts2 = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts2.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
i += 1
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
'// CustomersGLParameters -> Ügyfél fõkönyvi kategória megnyitása
|
||||
Dim _CustomersGLParametersYear_Collection_CurrentYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _CustomersGLParametersYear_Collection_PrevYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _CustomersGLParametersYear_PrevYear As CustomersGLParametersYear
|
||||
Dim _CustomersGLParametersYear_CurrentYear As CustomersGLParametersYear
|
||||
If _CustomersGLParametersYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _CustomersGLParametersYear_Collection_PrevYear.Count)
|
||||
i = 0
|
||||
For Each _CustomersGLParametersYear_PrevYear In _CustomersGLParametersYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_CustomersGLParametersYear_CurrentYear = _ocur.FindObject(Of CustomersGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and CustomersGLParameters=?", _CurrentYear, _CustomersGLParametersYear_PrevYear.CustomersGLParameters))
|
||||
If _CustomersGLParametersYear_CurrentYear Is Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear = _ocur.CreateObject(Of CustomersGLParametersYear)()
|
||||
_CustomersGLParametersYear_CurrentYear.CustomersGLParameters = _CustomersGLParametersYear_PrevYear.CustomersGLParameters
|
||||
_CustomersGLParametersYear_CurrentYear.AccountYear = _CurrentYear
|
||||
|
||||
If _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
|
||||
_CustomersGLParametersYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
|
||||
_CustomersGLParametersYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo IsNot Nothing Then
|
||||
_CustomersGLParametersYear_CurrentYear.ChartOfAccountsNo = _ocur.FindObject(Of ChartOfAccounts) _
|
||||
(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
|
||||
_CustomersGLParametersYear_PrevYear.ChartOfAccountsNo.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
|
||||
End If
|
||||
i += 1
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// GLHeader_RateDiffParameter -> Árfolyamelszámolás, kerekítés
|
||||
Dim _GLHeader_RateDiffParameterYear_Collection_CurrentYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _GLHeader_RateDiffParameterYear_Collection_PrevYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _GLHeader_RateDiffParameterYear_PrevYear As GLHeader_RateDiffParameterYear
|
||||
Dim _GLHeader_RateDiffParameterYear_CurrentYear As GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _GLHeader_RateDiffParameterYear_Collection_PrevYear.Count)
|
||||
For Each _GLHeader_RateDiffParameterYear_PrevYear In _GLHeader_RateDiffParameterYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear = _ocur.FindObject(Of GLHeader_RateDiffParameterYear)(CriteriaOperator.Parse("AccountYear=? and GLHeader_RateDiffParameter=?", _CurrentYear, _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter))
|
||||
If _GLHeader_RateDiffParameterYear_CurrentYear Is Nothing Then
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear = _ocur.CreateObject(Of GLHeader_RateDiffParameterYear)()
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.GLHeader_RateDiffParameter = _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.AccountYear = _CurrentYear
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Loss.AccountNumber, _CurrentYear))
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Win.AccountNumber, _CurrentYear))
|
||||
If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss IsNot Nothing Then
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win IsNot Nothing Then
|
||||
_GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// LiquidAssets -> Pénzeszközök megnyitása
|
||||
Dim _LiquidAssetsYear_Collection_CurrentYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _LiquidAssetsYear_Collection_PrevYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _LiquidAssetsYear_PrevYear As LiquidAssetsYear
|
||||
Dim _LiquidAssetsYear_CurrentYear As LiquidAssetsYear
|
||||
If _LiquidAssetsYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _LiquidAssetsYear_Collection_PrevYear.Count)
|
||||
For Each _LiquidAssetsYear_PrevYear In _LiquidAssetsYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_LiquidAssetsYear_CurrentYear = _ocur.FindObject(Of LiquidAssetsYear)(CriteriaOperator.Parse("AccountYear=? and LiquidAssets=?", _CurrentYear, _LiquidAssetsYear_PrevYear.LiquidAssets))
|
||||
If _LiquidAssetsYear_CurrentYear Is Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear = _ocur.CreateObject(Of LiquidAssetsYear)()
|
||||
_LiquidAssetsYear_CurrentYear.LiquidAssets = _LiquidAssetsYear_PrevYear.LiquidAssets
|
||||
_LiquidAssetsYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _LiquidAssetsYear_PrevYear.ChartOfAccounts IsNot Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus IsNot Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear.ChartOfAccountsPlus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus IsNot Nothing Then
|
||||
_LiquidAssetsYear_CurrentYear.ChartOfAccountsMinus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'// Tárgyiesköz paraméterek beállítása
|
||||
'// LiquidAssets -> Pénzeszközök megnyitása
|
||||
Dim _FixedAssetsGLParametersYear_Collection_CurrentYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
|
||||
Dim _FixedAssetsGLParametersYear_Collection_PrevYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
|
||||
Dim _FixedAssetsGLParametersYear_PrevYear As FixedAssetsGLParametersYear
|
||||
Dim _FixedAssetsGLParametersYear_CurrentYear As FixedAssetsGLParametersYear
|
||||
If _FixedAssetsGLParametersYear_Collection_CurrentYear.Count <= 0 Then
|
||||
RaiseEvent InitWork(1, 1, _FixedAssetsGLParametersYear_Collection_PrevYear.Count)
|
||||
For Each _FixedAssetsGLParametersYear_PrevYear In _FixedAssetsGLParametersYear_Collection_PrevYear
|
||||
RaiseEvent DoWork()
|
||||
_FixedAssetsGLParametersYear_CurrentYear = _ocur.FindObject(Of FixedAssetsGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and FixedAssetsGLParameters=?", _CurrentYear, _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters))
|
||||
If _FixedAssetsGLParametersYear_CurrentYear Is Nothing Then
|
||||
_FixedAssetsGLParametersYear_CurrentYear = _ocur.CreateObject(Of FixedAssetsGLParametersYear)()
|
||||
_FixedAssetsGLParametersYear_CurrentYear.FixedAssetsGLParameters = _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters
|
||||
_FixedAssetsGLParametersYear_CurrentYear.AccountYear = _CurrentYear
|
||||
If _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts IsNot Nothing Then
|
||||
_FixedAssetsGLParametersYear_CurrentYear.CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
If _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts IsNot Nothing Then
|
||||
_FixedAssetsGLParametersYear_CurrentYear.DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts.AccountNumber, _CurrentYear))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End If
|
||||
|
||||
'//GLRows-ban átkönyvelni a tételeket az új év fõkönyvi számláira
|
||||
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
Dim _GLRows As GLRows
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
i = 0
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
If _GLRows.DebitChartOfAccounts IsNot Nothing Then
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.DebitChartOfAccounts.AccountNumber))
|
||||
If _ChartOfAccounts IsNot Nothing Then
|
||||
_GLRows.DebitChartOfAccounts = _ChartOfAccounts
|
||||
End If
|
||||
End If
|
||||
i += 1
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
|
||||
_GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
i = 0
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
If _GLRows.DebitChartOfAccounts IsNot Nothing Then
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.CreditChartOfAccounts.AccountNumber))
|
||||
If _ChartOfAccounts IsNot Nothing Then
|
||||
_GLRows.CreditChartOfAccounts = _ChartOfAccounts
|
||||
End If
|
||||
End If
|
||||
i += 1
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
RaiseEvent FinalWork
|
||||
GLOBAL_HAS_Audit = True
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
+51
@@ -0,0 +1,51 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DefaultProperty("AccountYear")> _
|
||||
Public Class ChartOfAccountsYear
|
||||
Inherits BaseObject
|
||||
Private _AccountYear As Long
|
||||
Private _IsClosed As Boolean = False
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<RuleValueComparison("RuleValueComparison ChartOfAccountsYear-AccountYear", DefaultContexts.Save, ValueComparisonType.GreaterThan, "2000")> _
|
||||
<RuleUniqueValue("RuleUniqueValue ChartOfAccountsYear-AccountYear", PersistentCriteriaEvaluationBehavior.InTransaction)> _
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsClosed As Boolean
|
||||
Get
|
||||
Return _IsClosed
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsClosed", _IsClosed, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)>
|
||||
ReadOnly Property ChartOfAccounts As XPCollection(Of ChartOfAccounts)
|
||||
Get
|
||||
Return New XPCollection(Of ChartOfAccounts)(Session, CriteriaOperator.Parse("AccountYear=?", AccountYear))
|
||||
End Get
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+51
@@ -0,0 +1,51 @@
|
||||
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 ChartOfAccountsYearPopup
|
||||
Inherits BaseObject
|
||||
|
||||
Private _AccountYear As Long
|
||||
Private _AccountYearPrev As Long
|
||||
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.
|
||||
AccountYear = Year(Now)
|
||||
End Sub
|
||||
|
||||
<RuleRange("ChartOfAccountYearPopup-AccountYear", DefaultContexts.Save, 2001, 2020)> _
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("ChartOfAccountYearPopup-AccountYearPrev", DefaultContexts.Save, 2001, 2020)> _
|
||||
Property AccountYearPrev As Long
|
||||
Get
|
||||
Return _AccountYearPrev
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYearPrev", _AccountYearPrev, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,52 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
|
||||
Public Enum ePayMode
|
||||
NotSet = -1 'Nincs beállítva
|
||||
InCash = 0 'Készpénz
|
||||
InTransfer = 1 'Átutalás
|
||||
InOther = 2 'Egyéb
|
||||
InBarter = 3 'Barter
|
||||
InContinuous = 4 'Folyamatos teljesítés esetén
|
||||
End Enum
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
<DefaultProperty("ShortName")> _
|
||||
Public Class CurrencyName
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property MNBCurrencyRate As XPCollection(Of CurrencyRate)
|
||||
Get
|
||||
If Me IsNot Nothing Then
|
||||
Return New XPCollection(Of CurrencyRate)(Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True", Me))
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
End Class 'Devizanem
|
||||
|
||||
@@ -0,0 +1,99 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports System.Xml
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<ListViewFilter("Összes", "", True)> _
|
||||
<ListViewFilter("Mai", "[DateValid] = '@CurrentDate'")> _
|
||||
<ListViewFilter("Elmúlt hét", "[DateValid] >= '@LastWorkWeekStart' AND [DateValid] < '@LastWorkWeekEnd'")> _
|
||||
<ListViewFilter("Elmúlt hónap", " IsOutlookIntervalEarlierThisMonth(DateValid)=True")> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
Public Class CurrencyRate
|
||||
Inherits BaseObject
|
||||
Private _CurrencyName As CurrencyName
|
||||
Private _LiquidAssets As LiquidAssets
|
||||
Private _DateValid As Date
|
||||
Private _RateAverage As Double
|
||||
Private _RatePurchase As Double
|
||||
Private _RateSelling As Double
|
||||
Private _Active As Boolean
|
||||
Private _IsMNB As Boolean = False
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property CurrencyName() As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LiquidAssets() As LiquidAssets
|
||||
Get
|
||||
Return _LiquidAssets
|
||||
End Get
|
||||
Set(ByVal value As LiquidAssets)
|
||||
SetPropertyValue("LiquidAssets", _LiquidAssets, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateValid() As Date
|
||||
Get
|
||||
Return _DateValid
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateValid", _DateValid, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RateAverage() As Double
|
||||
Get
|
||||
Return _RateAverage
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("RateAverage", _RateAverage, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RatePurchase() As Double
|
||||
Get
|
||||
Return _RatePurchase
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("RatePurchase", _RatePurchase, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RateSelling() As Double
|
||||
Get
|
||||
Return _RateSelling
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("RateSelling", _RateSelling, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Active() As Boolean
|
||||
Get
|
||||
Return _Active
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("Active", _Active, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsMNB As Boolean
|
||||
Get
|
||||
Return _IsMNB
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsMNB", _IsMNB, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class ' Devizaárfolyam
|
||||
|
||||
Generated
+50
@@ -0,0 +1,50 @@
|
||||
Partial Class CurrencyRateVC
|
||||
|
||||
<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.aSyncroniseMNBCurrencyRate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aSyncroniseMNBCurrencyRate
|
||||
'
|
||||
Me.aSyncroniseMNBCurrencyRate.Caption = "aSyncronise MNBCurrency Rate"
|
||||
Me.aSyncroniseMNBCurrencyRate.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aSyncroniseMNBCurrencyRate.Id = "aSyncroniseMNBCurrencyRate"
|
||||
Me.aSyncroniseMNBCurrencyRate.ImageName = Nothing
|
||||
Me.aSyncroniseMNBCurrencyRate.Shortcut = Nothing
|
||||
Me.aSyncroniseMNBCurrencyRate.Tag = Nothing
|
||||
Me.aSyncroniseMNBCurrencyRate.TargetObjectsCriteria = Nothing
|
||||
Me.aSyncroniseMNBCurrencyRate.TargetObjectType = GetType(Nuvolar.[Module].CurrencyRate)
|
||||
Me.aSyncroniseMNBCurrencyRate.TargetViewId = Nothing
|
||||
Me.aSyncroniseMNBCurrencyRate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aSyncroniseMNBCurrencyRate.ToolTip = Nothing
|
||||
Me.aSyncroniseMNBCurrencyRate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aSyncroniseMNBCurrencyRate As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,126 @@
|
||||
<?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="aSyncroniseMNBCurrencyRate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 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,145 @@
|
||||
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.Data.Filtering
|
||||
Imports System.Xml
|
||||
|
||||
Public Class CurrencyRateVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aSyncroniseMNBCurrencyRate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSyncroniseMNBCurrencyRate.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
SyncroniseMNBCurrencyRate(_uow)
|
||||
|
||||
End Sub
|
||||
Sub SyncroniseMNBCurrencyRate(_uow As UnitOfWork)
|
||||
Dim _XML As String
|
||||
Dim _MNBArfolyamService As New MNBArfolyamService.MNBArfolyamServiceSoapClient
|
||||
Dim _CurrencyName_Collection As XPCollection(Of CurrencyName) = New XPCollection(Of CurrencyName)(_uow, CriteriaOperator.Parse("1=1"))
|
||||
Dim _CurrencyRate_Collection As XPCollection(Of CurrencyRate) = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("Active=True"))
|
||||
Dim _CurrencyRate As CurrencyRate
|
||||
|
||||
Dim _BeginDate As Date = "2011-01-01"
|
||||
Dim _StartDate As Date
|
||||
Dim _EndDate As Date = String.Format("{0}-{1}-{2}", Now.Year, Now.Month, Now.Day)
|
||||
|
||||
Dim _XMLDocument As New XmlDocument
|
||||
Dim _XmlNode1 As Xml.XmlNode
|
||||
Dim _XmlNode2 As Xml.XmlNode
|
||||
|
||||
Dim _DateValid As Date
|
||||
Dim _RateAverage As Double
|
||||
|
||||
|
||||
If _MNBArfolyamService IsNot Nothing Then
|
||||
|
||||
If _CurrencyRate_Collection.Count > 0 Then 'Kitöröljük az Active beállítást
|
||||
For Each _CurrencyRate In _CurrencyRate_Collection
|
||||
_CurrencyRate.Active = False
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
End If
|
||||
|
||||
For Each _CurrencyName In _CurrencyName_Collection
|
||||
|
||||
If _CurrencyName.ShortName = "HUF" Then 'A HUF árfolyam nem értelmezett
|
||||
Continue For
|
||||
End If
|
||||
|
||||
_CurrencyRate_Collection = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=?", _CurrencyName.ShortName))
|
||||
If _CurrencyRate_Collection.Count > 0 Then
|
||||
_CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
|
||||
_StartDate = DateAdd(DateInterval.Day, 1, _CurrencyRate_Collection(0).DateValid)
|
||||
Else
|
||||
_StartDate = _BeginDate
|
||||
End If
|
||||
|
||||
_EndDate = DateAdd(DateInterval.Day, 30, _StartDate)
|
||||
If _EndDate > Now.Date Then
|
||||
_EndDate = Now.Date
|
||||
End If
|
||||
|
||||
Do While _StartDate <= Now.Date
|
||||
|
||||
'_XML = _MNBArfolyamService.GetExchangeRates(_StartDate, _EndDate, _CurrencyName.ToString)
|
||||
Dim _GetExchangeRatesRequestBody As New MNBArfolyamService.GetExchangeRatesRequestBody
|
||||
Dim _GetExchangeRatesResponseBody As MNBArfolyamService.GetExchangeRatesResponseBody
|
||||
|
||||
_GetExchangeRatesRequestBody.startDate = _StartDate
|
||||
_GetExchangeRatesRequestBody.endDate = _EndDate
|
||||
_GetExchangeRatesRequestBody.currencyNames = _CurrencyName.ToString
|
||||
|
||||
_GetExchangeRatesResponseBody = _MNBArfolyamService.GetExchangeRates(_GetExchangeRatesRequestBody)
|
||||
|
||||
_XML = _GetExchangeRatesResponseBody.GetExchangeRatesResult
|
||||
|
||||
_XMLDocument.LoadXml(_XML.ToString)
|
||||
|
||||
For Each _XmlNode1 In _XMLDocument.SelectNodes("MNBExchangeRates")
|
||||
|
||||
For Each _XmlNode2 In _XmlNode1.SelectNodes("Day")
|
||||
|
||||
_RateAverage = _XmlNode2.InnerText
|
||||
_DateValid = _XmlNode2.Attributes("date").Value
|
||||
|
||||
_CurrencyRate = _uow.FindObject(Of CurrencyRate)(CriteriaOperator.Parse("CurrencyName.ShortName=? And DateValid=?", _CurrencyName.ShortName, _DateValid))
|
||||
|
||||
If _CurrencyRate Is Nothing Then
|
||||
_CurrencyRate = New CurrencyRate(_uow)
|
||||
_CurrencyRate.CurrencyName = _CurrencyName
|
||||
_CurrencyRate.DateValid = _DateValid
|
||||
_CurrencyRate.RateAverage = _RateAverage
|
||||
_CurrencyRate.IsMNB = True
|
||||
|
||||
_CurrencyRate.Save()
|
||||
End If
|
||||
|
||||
Next
|
||||
Next
|
||||
|
||||
_StartDate = DateAdd(DateInterval.Day, 1, _EndDate.Date)
|
||||
_EndDate = DateAdd(DateInterval.Day, 30, _StartDate)
|
||||
If _EndDate > Now.Date Then
|
||||
_EndDate = Now.Date
|
||||
End If
|
||||
Loop
|
||||
|
||||
_CurrencyRate_Collection = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=?", _CurrencyName.ShortName))
|
||||
If _CurrencyRate_Collection.Count > 0 Then
|
||||
_CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
|
||||
_StartDate = DateAdd(DateInterval.Day, 1, _CurrencyRate_Collection(0).DateValid)
|
||||
_CurrencyRate_Collection(0).Active = True
|
||||
_CurrencyRate_Collection(0).Save()
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
_uow.CommitChanges()
|
||||
End Sub
|
||||
|
||||
''// Az összes CurrencyName XPCollection-ra ! (aktuális évet megelõzõ év -> mai napig
|
||||
'_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "EUR")
|
||||
'_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "USD")
|
||||
'_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "CHF")
|
||||
'_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "GBP")
|
||||
End Class
|
||||
@@ -0,0 +1,39 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class GLRegister '-- Főkönyvi napló
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class ' Főkönyvi napló
|
||||
|
||||
@@ -0,0 +1,76 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class MoneyRate
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _KeyValue As Double
|
||||
Private _DateFrom As Date
|
||||
Private _DateTo As Date
|
||||
Private _Active As Boolean
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property KeyValue() As Double
|
||||
Get
|
||||
Return _KeyValue
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("KeyValue", _KeyValue, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateFrom() As Date
|
||||
Get
|
||||
Return _DateFrom
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateFrom", _DateFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTo() As Date
|
||||
Get
|
||||
Return _DateTo
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateTo", _DateTo, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Active() As Boolean
|
||||
Get
|
||||
Return _Active
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("Active", _Active, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class ' Kamatláb
|
||||
|
||||
@@ -0,0 +1,118 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class PaymentOption
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _ShortName_GB As String 'Angol megnevezés
|
||||
Private _Description As String
|
||||
Private _Description_GB As String 'Angol leírás
|
||||
Private _PayMode As ePayMode
|
||||
Private _PayDay As Long
|
||||
Private _DefaultForBusinnes As Boolean = False 'Üzleti alapértelmezés
|
||||
Private _DatePaymentMode As eDatePaymentMode 'Fiz hat. nap számítás módja
|
||||
Private _IsControlling_InCash As Boolean 'Készpénzes rögzítés esetén csináljon-e
|
||||
Private _Controlling_InCash As Controlling 'Készpénz esetén GLAccounts rögzítéskor a kifizetés mire menjen (automatikus sor beszúrás) !
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
DatePaymentMode = eDatePaymentMode.eDateCreated
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, 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
|
||||
Property PayMode() As ePayMode
|
||||
Get
|
||||
Return _PayMode
|
||||
End Get
|
||||
Set(ByVal value As ePayMode)
|
||||
SetPropertyValue("PayMode", _PayMode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PayDay() As Long
|
||||
Get
|
||||
Return _PayDay
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("PayDay", _PayDay, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DefaultForBusinnes As Boolean
|
||||
Get
|
||||
Return _DefaultForBusinnes
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName_GB As String
|
||||
Get
|
||||
Return _ShortName_GB
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName_GB", _ShortName_GB, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description_GB() As String
|
||||
Get
|
||||
Return _Description_GB
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description_GB", _Description_GB, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DatePaymentMode As eDatePaymentMode
|
||||
Get
|
||||
Return _DatePaymentMode
|
||||
End Get
|
||||
Set(value As eDatePaymentMode)
|
||||
SetPropertyValue("DatePaymentMode", _DatePaymentMode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsControlling_InCash As Boolean
|
||||
Get
|
||||
Return _IsControlling_InCash
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsControlling_InCash", _IsControlling_InCash, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Controlling_InCash As Controlling
|
||||
Get
|
||||
Return _Controlling_InCash
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_InCash", _Controlling_InCash, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class 'Fizetési mód
|
||||
|
||||
@@ -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("FinancialStock")> _
|
||||
Public Class QualityOption
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _ShortName_GB As String
|
||||
Private _Description_GB As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName_GB As String
|
||||
Get
|
||||
Return _ShortName_GB
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName_GB", _ShortName_GB, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description_GB() As String
|
||||
Get
|
||||
Return _Description_GB
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description_GB", _Description_GB, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class 'Minőségbiztosítási mód
|
||||
|
||||
@@ -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("FinancialStock")> _
|
||||
Public Class ShipmentOption
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _ShortName_GB As String
|
||||
Private _Description_GB As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, 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
|
||||
Property ShortName_GB As String
|
||||
Get
|
||||
Return _ShortName_GB
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName_GB", _ShortName_GB, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description_GB() As String
|
||||
Get
|
||||
Return _Description_GB
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description_GB", _Description_GB, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class 'Szállítási mód
|
||||
|
||||
@@ -0,0 +1,37 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class UrgentOption
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class 'Sürgősségi mód
|
||||
|
||||
@@ -0,0 +1,326 @@
|
||||
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
|
||||
Public Enum eVATMode
|
||||
eIn = 1
|
||||
eOut = 0
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
<Appearance("Hide KeyValue if InverState=True", AppearanceItemType:="ViewItem", criteria:="InversState=True", targetitems:="KeyValue", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide InversKeyValue if InverState=False", AppearanceItemType:="ViewItem", criteria:="InversState=False", targetitems:="InversKeyValue", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class VAT
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _KeyValue As Double
|
||||
Private _ChartOfAccountsOut As ChartOfAccounts
|
||||
Private _ChartOfAccountsIn As ChartOfAccounts
|
||||
Private _ClaimState As Boolean 'Levonható ?
|
||||
Private _Active As Boolean 'Aktív ?
|
||||
Private _InversState As Boolean = False 'Fordított ÁFA ?
|
||||
Private _InverskeyValue As Double 'Fordított kulcs
|
||||
Private _DefaultForBusinnes As Boolean = False 'Alapértelmezett az üzleti tranzakciók miatt
|
||||
Private _DefaultForExternalEUNoVAT As Boolean = False 'EU-n belüli ÁFA kód (erre gyűjt majd !)
|
||||
Private _DefaultForExternalOther As Boolean = False 'EU-n kívüli ÁFA kód ? (erre gyűjt majd !)
|
||||
Private _DefaultForInversVAT As Boolean = False 'Fordított adózás alapértelmezett kódja
|
||||
|
||||
'65A bevalláshoz mező azonosítás
|
||||
Private _XML65AFieldIDBaseValueIn As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét levonható!
|
||||
Private _XML65AFieldIDValueIn As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét levonható!
|
||||
Private _XML65AFieldIDBaseValueOut As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét fizetendő!
|
||||
Private _XML65AFieldIDValueOut As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét fizetendő!
|
||||
|
||||
Private _XML65AFieldIDBaseValueInSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét levonható!
|
||||
Private _XML65AFieldIDValueInSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét levonható!
|
||||
Private _XML65AFieldIDBaseValueOutSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét fizetendő!
|
||||
Private _XML65AFieldIDValueOutSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét fizetendő!
|
||||
|
||||
Private _VATBag As String 'Áfa csomag, például pénztárgéphez
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
ReadOnly Property KeyValuePercent() As Double
|
||||
Get
|
||||
Return _KeyValue * 100
|
||||
End Get
|
||||
End Property
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property KeyValue() As Double
|
||||
Get
|
||||
Return _KeyValue
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("KeyValue", _KeyValue, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
Property ChartOfAccountsOut() As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccountsOut
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccountsOut", _ChartOfAccountsOut, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
Property ChartOfAccountsIn() As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccountsIn
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccountsIn", _ChartOfAccountsIn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ClaimState() As Boolean
|
||||
Get
|
||||
Return _ClaimState
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("ClaimState", _ClaimState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Active() As Boolean
|
||||
Get
|
||||
Return _Active
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("Active", _Active, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property InversState() As Boolean
|
||||
Get
|
||||
Return _InversState
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("InversState", _InversState, value)
|
||||
If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then
|
||||
If value = True Then
|
||||
KeyValue = 0
|
||||
Else
|
||||
InversKeyValue = 0
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property InversKeyValue() As Double
|
||||
Get
|
||||
Return _InverskeyValue
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("InversKeyValue", _InverskeyValue, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DefaultForBusinnes As Boolean
|
||||
Get
|
||||
Return _DefaultForBusinnes
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DefaultForExternalEUNoVAT As Boolean
|
||||
Get
|
||||
Return _DefaultForExternalEUNoVAT
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("DefaultForExternalEUNoVAT", _DefaultForExternalEUNoVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DefaultForExternalOther As Boolean
|
||||
Get
|
||||
Return _DefaultForExternalOther
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("DefaultForExternalOther", _DefaultForExternalOther, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DefaultForInversVAT As Boolean
|
||||
Get
|
||||
Return _DefaultForInversVAT
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("DefaultForInversVAT", _DefaultForInversVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDBaseValueIn As String
|
||||
Get
|
||||
Return _XML65AFieldIDBaseValueIn
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDBaseValueIn", _XML65AFieldIDBaseValueIn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDValueIn As String
|
||||
Get
|
||||
Return _XML65AFieldIDValueIn
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDValueIn", _XML65AFieldIDValueIn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDBaseValueOut As String
|
||||
Get
|
||||
Return _XML65AFieldIDBaseValueOut
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDBaseValueOut", _XML65AFieldIDBaseValueOut, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDValueOut As String
|
||||
Get
|
||||
Return _XML65AFieldIDValueOut
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDValueOut", _XML65AFieldIDValueOut, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDBaseValueInSum As String
|
||||
Get
|
||||
Return _XML65AFieldIDBaseValueInSum
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDBaseValueInSum", _XML65AFieldIDBaseValueInSum, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDValueInSum As String
|
||||
Get
|
||||
Return _XML65AFieldIDValueInSum
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDValueInSum", _XML65AFieldIDValueInSum, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDBaseValueOutSum As String
|
||||
Get
|
||||
Return _XML65AFieldIDBaseValueOutSum
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDBaseValueOutSum", _XML65AFieldIDBaseValueOutSum, value)
|
||||
End Set
|
||||
End Property
|
||||
Property XML65AFieldIDValueOutSum As String
|
||||
Get
|
||||
Return _XML65AFieldIDValueOutSum
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML65AFieldIDValueOutSum", _XML65AFieldIDValueOutSum, value)
|
||||
End Set
|
||||
End Property
|
||||
Property VATBag As String
|
||||
Get
|
||||
Return _VATBag
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("VATBag", _VATBag, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<Association("VAT-VATYear", GetType(VATYear)), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property VATYear As XPCollection(Of VATYear)
|
||||
Get
|
||||
Return GetCollection(Of VATYear)("VATYear")
|
||||
End Get
|
||||
End Property
|
||||
Public Function GetChartOfAccounts(_AccountYear As Long, _VATMode As eVATMode) As ChartOfAccounts
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = Nothing
|
||||
Dim _VATYear As VATYear
|
||||
Select Case _VATMode
|
||||
Case eVATMode.eIn
|
||||
_ChartOfAccounts = Me.ChartOfAccountsIn
|
||||
For Each _VATYear In Me.VATYear
|
||||
If _VATYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _VATYear.ChartOfAccountsIn
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Case eVATMode.eOut
|
||||
_ChartOfAccounts = Me.ChartOfAccountsOut
|
||||
For Each _VATYear In Me.VATYear
|
||||
If _VATYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _VATYear.ChartOfAccountsOut
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End Select
|
||||
Return _ChartOfAccounts
|
||||
End Function
|
||||
End Class 'ÁFA kódok
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
<RuleCriteria("RuleCriteria VATYear-ChartOfAccountsOut", DefaultContexts.Save, "ChartOfAccountsOut.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
<RuleCriteria("RuleCriteria VATYear-ChartOfAccountsIn", DefaultContexts.Save, "ChartOfAccountsIn.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
Public Class VATYear
|
||||
Inherits BaseObject
|
||||
|
||||
Private _VAT As VAT
|
||||
Private _AccountYear As Long
|
||||
Private _ChartOfAccountsOut As ChartOfAccounts
|
||||
Private _ChartOfAccountsIn As ChartOfAccounts
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
|
||||
<Association("VAT-VATYear", GetType(VAT))> _
|
||||
Property VAT As VAT
|
||||
Get
|
||||
Return _VAT
|
||||
End Get
|
||||
Set(value As VAT)
|
||||
SetPropertyValue("VAT", _VAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccountsOut As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccountsOut
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccountsOut", _ChartOfAccountsOut, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccountsIn As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccountsIn
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccountsIn", _ChartOfAccountsIn, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
Reference in New Issue
Block a user