ivanszabo/SISBusiness
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reconfigure for GIT

Browse Source
This commit is contained in:
ivanszabo
2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceHeader.vb
+140
View File
@@ -0,0 +1,140 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
Public Class BallanceHeader
Inherits BaseObject
Private _CustomersFrom As CustomersFrom
Private _TrialBalanceHeaderBefore As TrialBalanceHeader 'Megelõzõ idõszak fk. kivonata
Private _TrialBalanceHeader As TrialBalanceHeader 'Aktuális idõszak fk. kivonata
Private _DateClose As Date
Private _ShortName As String
Private _ObjectCreated As Date
Private _UserCreated As User
Private _SpreadXML As String ' A mérleg - beszámolót tartalmazó excel
Private _SpreadFileData As FileData
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()
DateClose = GetSQLTime(Session)
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
<RuleRequiredField("BallanceHeader-CustomersFrom", DefaultContexts.Save)> _
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property TrialBalanceHeaderBefore As TrialBalanceHeader
Get
Return _TrialBalanceHeaderBefore
End Get
Set(value As TrialBalanceHeader)
SetPropertyValue("TrialBalanceHeaderBefore", _TrialBalanceHeaderBefore, value)
End Set
End Property
Property TrialBalanceHeader As TrialBalanceHeader
Get
Return _TrialBalanceHeader
End Get
Set(value As TrialBalanceHeader)
SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value)
End Set
End Property
<RuleRequiredField("BallanceHeader-DateClose", DefaultContexts.Save)> _
Property DateClose As Date
Get
Return _DateClose
End Get
Set(value As Date)
SetPropertyValue("DateClose", _DateClose, value)
End Set
End Property
<Size(255)> _
<RuleRequiredField("BallanceHeader-ShortName", DefaultContexts.Save)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<Size(-1)> _
Property SpreadXML As String
Get
Return _SpreadXML
End Get
Set(value As String)
SetPropertyValue("SpreadXML", _SpreadXML, value)
End Set
End Property
Property SpreadFileData As FileData
Get
Return _SpreadFileData
End Get
Set(value As FileData)
SetPropertyValue("SpreadFileData", _SpreadFileData, value)
End Set
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
<Association("BallanceHeader-BallanceRows", GetType(BallanceRows))> _
ReadOnly Property BallanceRows As XPCollection(Of BallanceRows)
Get
Return GetCollection(Of BallanceRows)("BallanceRows")
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceRows.vb
+100
View File
@@ -0,0 +1,100 @@
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 eBallanceRowType
eCalcRows = 0
eSumRow = 1
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
Public Class BallanceRows
Inherits BaseObject
Private _BallanceHeader As BallanceHeader
Private _RowIndex As Long
Private _BallanceRowType As eBallanceRowType
Private _ShortName As String
Private _CalcField As String
Private _AmountHUF As Double
Private _AmountDEV As Double
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("BallanceHeader-BallanceRows", GetType(BallanceHeader))> _
Property BallanceHeader As BallanceHeader
Get
Return _BallanceHeader
End Get
Set(value As BallanceHeader)
SetPropertyValue("BallanceHeader", _BallanceHeader, value)
End Set
End Property
Property RowIndex As Long
Get
Return _RowIndex
End Get
Set(value As Long)
SetPropertyValue("RowIndex", _RowIndex, value)
End Set
End Property
Property BallanceRowType As eBallanceRowType
Get
Return _BallanceRowType
End Get
Set(value As eBallanceRowType)
SetPropertyValue("BallanceRowType", _BallanceRowType, value)
End Set
End Property
<Size(255)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<Size(900)> _
Property CalcField As String
Get
Return _CalcField
End Get
Set(value As String)
SetPropertyValue("CalcField", _CalcField, value)
End Set
End Property
Property AmountHUF As Double
Get
Return _AmountHUF
End Get
Set(value As Double)
SetPropertyValue("AmountHUF", _AmountHUF, value)
End Set
End Property
Property AmountDEV As Double
Get
Return _AmountDEV
End Get
Set(value As Double)
SetPropertyValue("AmountDEV", _AmountDEV, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb
Generated
+45
View File
@@ -0,0 +1,45 @@
Partial Class BallanceVC
<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.aGenerateBallanceReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aGenerateBallanceReport
'
Me.aGenerateBallanceReport.Caption = "aGenerate Ballance Report"
Me.aGenerateBallanceReport.ConfirmationMessage = Nothing
Me.aGenerateBallanceReport.Id = "aGenerateBallanceReport"
Me.aGenerateBallanceReport.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader)
Me.aGenerateBallanceReport.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aGenerateBallanceReport.ToolTip = Nothing
Me.aGenerateBallanceReport.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
End Sub
Friend WithEvents aGenerateBallanceReport As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx
+126
View File
@@ -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="aGenerateBallanceReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>182, 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>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb
+86
View File
@@ -0,0 +1,86 @@
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 DevExpress.ExpressApp.SystemModule
Imports DevExpress.ExpressApp.CloneObject
Imports DevExpress.Persistent.BaseImpl
Public Class BallanceVC
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()
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _User As User
If _ocur IsNot Nothing Then
_User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
End If
If View.Id = "BallanceHeader_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'"
End If
If View.Id = "BallanceHeader_DetailView" Then
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'"
Frame.GetController(Of BallanceVC).aGenerateBallanceReport.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'"
End If
If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Current" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
If _BallanceHeader IsNot Nothing Then
View.CurrentObject = _ocur.GetObject(_BallanceHeader.TrialBalanceHeader)
End If
End If
If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Previous" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
If _BallanceHeader IsNot Nothing Then
View.CurrentObject = _ocur.GetObject(_BallanceHeader.TrialBalanceHeaderBefore)
End If
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "BallanceHeader_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
End If
End Sub
Private Sub aGenerateBallanceReport_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateBallanceReport.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _BallanceHeader As BallanceHeader = TryCast(View.SelectedObjects(0), BallanceHeader)
If _BallanceHeader IsNot Nothing Then
If _BallanceHeader.TrialBalanceHeader IsNot Nothing Then Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_ocur, _BallanceHeader.TrialBalanceHeader)
If _BallanceHeader.TrialBalanceHeaderBefore IsNot Nothing Then Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_ocur, _BallanceHeader.TrialBalanceHeaderBefore)
End If
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb
Generated
+255
View File
@@ -0,0 +1,255 @@
Partial Class GLCardVC
<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.aGLCardsQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGLCardsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistry_Cards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachments_Cards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGLCardsChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aGLCardsMakeConnection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aGLCardsOpenDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGLCardsDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aViewPCIDetail_GLCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCICheckDetail_GLCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGLCardsQueryPCI = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDGroup_GLCrads = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDGroup_GLDetails_GLCards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachments_GLCards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCICheckDetail_GLCardsRowsPCI = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGLCardsQueryABRQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGenerateOpenClosePCIRecord_GLCards = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aGenerateOpenClosePCIRecord_Storno_GLCards = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
'
'aGLCardsQuery
'
Me.aGLCardsQuery.Caption = "aGLCards Query"
Me.aGLCardsQuery.ConfirmationMessage = Nothing
Me.aGLCardsQuery.Id = "aGLCardsQuery"
Me.aGLCardsQuery.ImageName = "stopwatch_run"
Me.aGLCardsQuery.TargetViewId = "GLCardsHeader_DetailView"
Me.aGLCardsQuery.ToolTip = Nothing
'
'aGLCardsPrint
'
Me.aGLCardsPrint.Caption = "Print document"
Me.aGLCardsPrint.Category = "View"
Me.aGLCardsPrint.ConfirmationMessage = Nothing
Me.aGLCardsPrint.Id = "aGLCardsPrint"
Me.aGLCardsPrint.ImageName = "Action_Printing_Print"
Me.aGLCardsPrint.TargetViewId = "GLCardsHeader_DetailView"
Me.aGLCardsPrint.ToolTip = Nothing
'
'aViewRegistry_Cards
'
Me.aViewRegistry_Cards.Caption = "View registry"
Me.aViewRegistry_Cards.ConfirmationMessage = Nothing
Me.aViewRegistry_Cards.Id = "aViewRegistry_Cards"
Me.aViewRegistry_Cards.ImageName = "document_pinned"
Me.aViewRegistry_Cards.TargetViewId = "GLCardsHeader_GLCardsRows_ListView"
Me.aViewRegistry_Cards.ToolTip = Nothing
'
'aViewAttachments_Cards
'
Me.aViewAttachments_Cards.Caption = "View attachments"
Me.aViewAttachments_Cards.ConfirmationMessage = Nothing
Me.aViewAttachments_Cards.Id = "aViewAttachments_Cards"
Me.aViewAttachments_Cards.ImageName = "printer_view"
Me.aViewAttachments_Cards.TargetViewId = "GLCardsHeader_GLCardsRows_ListView"
Me.aViewAttachments_Cards.ToolTip = Nothing
'
'aGLCardsChangeParam
'
Me.aGLCardsChangeParam.AcceptButtonCaption = Nothing
Me.aGLCardsChangeParam.CancelButtonCaption = Nothing
Me.aGLCardsChangeParam.Caption = "Change parameters"
Me.aGLCardsChangeParam.ConfirmationMessage = Nothing
Me.aGLCardsChangeParam.Id = "aGLCardsChangeParam"
Me.aGLCardsChangeParam.ImageName = "index_preferences"
Me.aGLCardsChangeParam.TargetViewId = "GLCardsHeader_GLCardsRows_ListView"
Me.aGLCardsChangeParam.ToolTip = Nothing
'
'aGLCardsMakeConnection
'
Me.aGLCardsMakeConnection.AcceptButtonCaption = Nothing
Me.aGLCardsMakeConnection.CancelButtonCaption = Nothing
Me.aGLCardsMakeConnection.Caption = "Change parameters"
Me.aGLCardsMakeConnection.ConfirmationMessage = Nothing
Me.aGLCardsMakeConnection.Id = "aGLCardsMakeConnection"
Me.aGLCardsMakeConnection.ImageName = "document_connection"
Me.aGLCardsMakeConnection.TargetViewId = "GLCardsHeader_GLCardsRows_ListView"
Me.aGLCardsMakeConnection.ToolTip = Nothing
'
'aGLCardsOpenDocument
'
Me.aGLCardsOpenDocument.Caption = "View document"
Me.aGLCardsOpenDocument.ConfirmationMessage = Nothing
Me.aGLCardsOpenDocument.Id = "aGLCardsOpenDocument"
Me.aGLCardsOpenDocument.ImageName = "Action_Open"
Me.aGLCardsOpenDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aGLCardsOpenDocument.TargetViewId = "GLCardsHeader_GLCardsRows_ListView"
Me.aGLCardsOpenDocument.ToolTip = Nothing
'
'aGLCardsDivideRows
'
Me.aGLCardsDivideRows.AcceptButtonCaption = Nothing
Me.aGLCardsDivideRows.CancelButtonCaption = Nothing
Me.aGLCardsDivideRows.Caption = "Divide rows"
Me.aGLCardsDivideRows.ConfirmationMessage = Nothing
Me.aGLCardsDivideRows.Id = "aGLCardsDivideRows"
Me.aGLCardsDivideRows.ImageName = "index_preferences"
Me.aGLCardsDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aGLCardsDivideRows.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRows)
Me.aGLCardsDivideRows.TargetViewId = "GLCardsHeader_GLCardsRows_ListView"
Me.aGLCardsDivideRows.ToolTip = Nothing
'
'aViewPCIDetail_GLCard
'
Me.aViewPCIDetail_GLCard.Caption = "aViewPCIDGroup"
Me.aViewPCIDetail_GLCard.ConfirmationMessage = Nothing
Me.aViewPCIDetail_GLCard.Id = "aViewPCIDetail_GLCard"
Me.aViewPCIDetail_GLCard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDetail_GLCard.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRows)
Me.aViewPCIDetail_GLCard.TargetViewId = ""
Me.aViewPCIDetail_GLCard.ToolTip = Nothing
'
'aPCICheckDetail_GLCard
'
Me.aPCICheckDetail_GLCard.Caption = "aPCICheckDetail_GLCard"
Me.aPCICheckDetail_GLCard.Category = "RecordEdit"
Me.aPCICheckDetail_GLCard.ConfirmationMessage = Nothing
Me.aPCICheckDetail_GLCard.Id = "aPCICheckDetail_GLCard"
Me.aPCICheckDetail_GLCard.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRows)
Me.aPCICheckDetail_GLCard.ToolTip = Nothing
'
'aGLCardsQueryPCI
'
Me.aGLCardsQueryPCI.Caption = "aGLCardsQueryPCI"
Me.aGLCardsQueryPCI.Category = "aGLCardsQueryPCI"
Me.aGLCardsQueryPCI.ConfirmationMessage = Nothing
Me.aGLCardsQueryPCI.Id = "aGLCardsQueryPCI"
Me.aGLCardsQueryPCI.TargetObjectType = GetType(SISBusiness.[Module].GLCardsHeader)
Me.aGLCardsQueryPCI.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aGLCardsQueryPCI.ToolTip = Nothing
Me.aGLCardsQueryPCI.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
'
'aViewPCIDGroup_GLCrads
'
Me.aViewPCIDGroup_GLCrads.Caption = "aViewPCIDGroup_GLCrads"
Me.aViewPCIDGroup_GLCrads.ConfirmationMessage = Nothing
Me.aViewPCIDGroup_GLCrads.Id = "aViewPCIDGroup_GLCrads"
Me.aViewPCIDGroup_GLCrads.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDGroup_GLCrads.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI)
Me.aViewPCIDGroup_GLCrads.TargetViewId = ""
Me.aViewPCIDGroup_GLCrads.ToolTip = Nothing
'
'aViewPCIDGroup_GLDetails_GLCards
'
Me.aViewPCIDGroup_GLDetails_GLCards.Caption = "aViewPCIDGroup_GLDetails_GLCards"
Me.aViewPCIDGroup_GLDetails_GLCards.ConfirmationMessage = Nothing
Me.aViewPCIDGroup_GLDetails_GLCards.Id = "aViewPCIDGroup_GLDetails_GLCards"
Me.aViewPCIDGroup_GLDetails_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDGroup_GLDetails_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI)
Me.aViewPCIDGroup_GLDetails_GLCards.TargetViewId = ""
Me.aViewPCIDGroup_GLDetails_GLCards.ToolTip = Nothing
'
'aViewAttachments_GLCards
'
Me.aViewAttachments_GLCards.Caption = "aViewAttachments_GLCards"
Me.aViewAttachments_GLCards.ConfirmationMessage = Nothing
Me.aViewAttachments_GLCards.Id = "aViewAttachments_GLCards"
Me.aViewAttachments_GLCards.ImageName = "printer_view"
Me.aViewAttachments_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachments_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI)
Me.aViewAttachments_GLCards.TargetViewId = ""
Me.aViewAttachments_GLCards.ToolTip = Nothing
'
'aPCICheckDetail_GLCardsRowsPCI
'
Me.aPCICheckDetail_GLCardsRowsPCI.Caption = "aPCICheckDetail_GLCardsRowsPCI"
Me.aPCICheckDetail_GLCardsRowsPCI.Category = "RecordEdit"
Me.aPCICheckDetail_GLCardsRowsPCI.ConfirmationMessage = Nothing
Me.aPCICheckDetail_GLCardsRowsPCI.Id = "aPCICheckDetail_GLCardsRowsPCI"
Me.aPCICheckDetail_GLCardsRowsPCI.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCICheckDetail_GLCardsRowsPCI.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI)
Me.aPCICheckDetail_GLCardsRowsPCI.ToolTip = Nothing
'
'aGLCardsQueryABRQuery
'
Me.aGLCardsQueryABRQuery.Caption = "aGLCardsQueryABRQuery"
Me.aGLCardsQueryABRQuery.Category = "aGLCardsQueryABRQuery"
Me.aGLCardsQueryABRQuery.ConfirmationMessage = Nothing
Me.aGLCardsQueryABRQuery.Id = "aGLCardsQueryABRQuery"
Me.aGLCardsQueryABRQuery.TargetObjectType = GetType(SISBusiness.[Module].GLCardsHeader)
Me.aGLCardsQueryABRQuery.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aGLCardsQueryABRQuery.ToolTip = Nothing
Me.aGLCardsQueryABRQuery.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
'
'aGenerateOpenClosePCIRecord_GLCards
'
Me.aGenerateOpenClosePCIRecord_GLCards.AcceptButtonCaption = Nothing
Me.aGenerateOpenClosePCIRecord_GLCards.CancelButtonCaption = Nothing
Me.aGenerateOpenClosePCIRecord_GLCards.Caption = "aGenerateOpenClosePCIRecord_GLCards"
Me.aGenerateOpenClosePCIRecord_GLCards.ConfirmationMessage = Nothing
Me.aGenerateOpenClosePCIRecord_GLCards.Id = "aGenerateOpenClosePCIRecord_GLCards"
Me.aGenerateOpenClosePCIRecord_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aGenerateOpenClosePCIRecord_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI)
Me.aGenerateOpenClosePCIRecord_GLCards.ToolTip = Nothing
'
'aGenerateOpenClosePCIRecord_Storno_GLCards
'
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.AcceptButtonCaption = Nothing
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.CancelButtonCaption = Nothing
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.Caption = "aGenerateOpenClosePCIRecord_Storno_GLCards"
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.ConfirmationMessage = Nothing
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.Id = "aGenerateOpenClosePCIRecord_Storno_GLCards"
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI)
Me.aGenerateOpenClosePCIRecord_Storno_GLCards.ToolTip = Nothing
End Sub
Friend WithEvents aGLCardsQuery As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGLCardsPrint As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistry_Cards As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachments_Cards As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGLCardsChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aGLCardsDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aGLCardsMakeConnection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aGLCardsOpenDocument As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDetail_GLCard As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCICheckDetail_GLCard As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGLCardsQueryPCI As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDGroup_GLCrads As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDGroup_GLDetails_GLCards As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachments_GLCards As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCICheckDetail_GLCardsRowsPCI As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGLCardsQueryABRQuery As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGenerateOpenClosePCIRecord_GLCards As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aGenerateOpenClosePCIRecord_Storno_GLCards As DevExpress.ExpressApp.Actions.PopupWindowShowAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.resx
+177
View File
@@ -0,0 +1,177 @@
<?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="aGLCardsQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aGLCardsPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="aViewRegistry_Cards.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
</metadata>
<metadata name="aViewAttachments_Cards.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 329</value>
</metadata>
<metadata name="aGLCardsChangeParam.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 368</value>
</metadata>
<metadata name="aGLCardsMakeConnection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 407</value>
</metadata>
<metadata name="aGLCardsOpenDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 485</value>
</metadata>
<metadata name="aGLCardsDivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 524</value>
</metadata>
<metadata name="aViewPCIDetail_GLCard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 680</value>
</metadata>
<metadata name="aPCICheckDetail_GLCard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 563</value>
</metadata>
<metadata name="aGLCardsQueryPCI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aViewPCIDGroup_GLCrads.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 446</value>
</metadata>
<metadata name="aViewPCIDGroup_GLDetails_GLCards.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
</metadata>
<metadata name="aViewAttachments_GLCards.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="aPCICheckDetail_GLCardsRowsPCI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aGLCardsQueryABRQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 602</value>
</metadata>
<metadata name="aGenerateOpenClosePCIRecord_GLCards.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 641</value>
</metadata>
<metadata name="aGenerateOpenClosePCIRecord_Storno_GLCards.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>406, 602</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
+899
View File
@@ -0,0 +1,899 @@
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 DevExpress.Xpo
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.ExpressApp.CloneObject
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.ExpressApp.ConditionalAppearance
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.Xpo.DB
Public Class GLCardVC
Inherits DevExpress.ExpressApp.ViewController
Protected selection As ArrayList
Protected noselect As Boolean = False
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
Public Event DoWork()
Public Event FinalWork
Private appearanceController As AppearanceController
Public Sub New()
MyBase.New()
selection = New ArrayList
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _User As User
If _ocur IsNot Nothing Then
_User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
End If
'appearanceController = Frame.GetController(Of AppearanceController)()
'If appearanceController IsNot Nothing Then
' AddHandler appearanceController.CustomApplyAppearance, AddressOf appearanceController_CustomApplyAppearance
' AddHandler appearanceController.AppearanceApplied, AddressOf appearanceController_AppearanceApplied
'End If
MyBase.OnActivated()
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
If View.Id Like "GLCardsHeader_GLCardsRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
End If
If View.Id = "GLCardsHeader_DetailView" Then
Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader)
If _GLCardsHeader.UserCreated IsNot Nothing Then
If Not _GLCardsHeader.UserCreated.Equals(_User) Then
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", False)
End If
End If
End If
If View.Id = "GLCardsHeader_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'"
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If appearanceController IsNot Nothing Then
RemoveHandler appearanceController.CustomApplyAppearance, AddressOf appearanceController_CustomApplyAppearance
RemoveHandler appearanceController.AppearanceApplied, AddressOf appearanceController_AppearanceApplied
End If
If View.Id = "GLCardsHeader_DetailView" Then
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader)
Dim _User As User
If _ocur IsNot Nothing Then
_User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
End If
If _GLCardsHeader.UserCreated IsNot Nothing Then
If Not _GLCardsHeader.UserCreated.Equals(_User) Then
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", True)
End If
End If
End If
End Sub
Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim _GLCardsRows As GLCardsRows
If View Is Nothing Then Exit Sub
If View.Id Like "GLCardsHeader_GLCardsRows_ListView" And noselect = False Then
selection.Clear()
For Each _GLCardsRows In View.SelectedObjects
selection.Add(_GLCardsRows)
Next
End If
End Sub
Private Sub aGLCardsQuery_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCardsQuery.Execute
'Frame.GetController(Of ModificationsController).SaveAction.DoExecute()
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
Dim _COP As String
Dim _GLCardsHeader As GLCardsHeader = _uow.GetObjectByKey(Of GLCardsHeader)(TryCast(View.SelectedObjects(0), GLCardsHeader).Oid)
Dim I As Long = 0
Dim _DebitAmountHUF As Double
Dim _CreditAmountHUF As Double
Dim _DebitAmountDEV As Double
Dim _CreditAmountDEV As Double
Dim _DateFromCurrentYear As Date
Dim _GLCardsRows_Collection As New XPCollection(_uow, GetType(GLCardsRows), _
CriteriaOperator.Parse("GLCardsHeader=?", _GLCardsHeader))
_uow.Delete(_GLCardsRows_Collection)
Dim _GLCardsRows As GLCardsRows
_COP = "GLHeader.CustomersFrom=? and (GLHeader.DateExecution >=? and GLHeader.DateExecution<=?) "
_COP += " and (AmountHUF<>0) and GLHeader.IsEditable=False"
If _GLCardsHeader.IsClose = False Then
_COP += " and (DebitChartOfAccounts.AccountNumber !='492' and CreditChartOfAccounts.AccountNumber != '492')"
End If
If _GLCardsHeader.IsOpen = False Then
_COP += " and (DebitChartOfAccounts.AccountNumber !='491' and CreditChartOfAccounts.AccountNumber != '491')"
End If
_COP += " and (DebitChartOfAccounts.AccountNumber = ? or CreditChartOfAccounts.AccountNumber = ?)"
Dim _GLRows_Collection As New XPCollection(_uow, GetType(GLRows), _
CriteriaOperator.Parse(_COP, _GLCardsHeader.CustomersFrom, _GLCardsHeader.DateFrom, DateAdd(DateInterval.Minute, 1439, _GLCardsHeader.DateTo.Date), _GLCardsHeader.ChartOfAccount.AccountNumber, _GLCardsHeader.ChartOfAccount.AccountNumber))
Dim _GLRows As GLRows
_GLRows_Collection.Sorting.Clear()
_GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending))
_GLRows_Collection.Sorting.Add(New SortProperty("InAmountHUF", DB.SortingDirection.Descending))
_GLRows_Collection.Sorting.Add(New SortProperty("OutAmountHUF", DB.SortingDirection.Ascending))
_GLRows_Collection.Sorting.Add(New SortProperty("GLHeader.DocumentNumber", DB.SortingDirection.Ascending))
Dim _BallanceRulliringHUF As Double = 0
Dim _BallanceRulliringDEV As Double = 0
Dim _RowIndex As Long = 0
'-- Ide kény egy nyitó sor ..............................................................................
_DateFromCurrentYear = CDate(Year(_GLCardsHeader.DateFrom) & "/01/01")
Dim _GLRows_xpquery = New XPQuery(Of GLRows)(_ocur.Session)
_DebitAmountHUF = 0
_DebitAmountDEV = 0
Dim query = From _glr In _GLRows_xpquery
Where _glr.DebitChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber And _
_glr.GLHeader.IsEditable = False And _
_glr.GLHeader.DateExecution.Date >= _DateFromCurrentYear And
_glr.GLHeader.DateExecution.Date < _GLCardsHeader.DateFrom.Date And
_glr.GLHeader IsNot Nothing And _
_glr.GLHeader.CustomersFrom.Oid = _GLCardsHeader.CustomersFrom.Oid _
Group _glr By _glr.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), _
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
For Each item In query
_DebitAmountHUF += item.AmountHUF
_DebitAmountDEV += item.AmountDEV
Next
'2.
_CreditAmountHUF = 0
_CreditAmountDEV = 0
query = From _glr In _GLRows_xpquery
Where _glr.CreditChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber And _
_glr.GLHeader.IsEditable = False And _
_glr.GLHeader.DateExecution.Date >= _DateFromCurrentYear.Date And
_glr.GLHeader.DateExecution.Date < _GLCardsHeader.DateFrom.Date And
_glr.GLHeader.CustomersFrom.Oid = _GLCardsHeader.CustomersFrom.Oid _
Group _glr By _glr.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), _
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
For Each item In query
_CreditAmountHUF += item.AmountHUF
_CreditAmountDEV += item.AmountDEV
Next
_GLCardsRows = New GLCardsRows(_uow)
_GLCardsRows.GLCardsHeader = _GLCardsHeader
_GLCardsRows.CustomersForm = _GLCardsHeader.CustomersFrom
_GLCardsRows.ShortNameFrom = _GLCardsHeader.ChartOfAccount.Name
_GLCardsRows.ShortNameTo = "NYITÓ"
_BallanceRulliringHUF += _DebitAmountHUF - _CreditAmountHUF
_BallanceRulliringDEV += _DebitAmountDEV - _CreditAmountDEV
If _DebitAmountHUF > _CreditAmountHUF Then
_GLCardsRows.DebitAmountHUF = _DebitAmountHUF - _CreditAmountHUF
Else
_GLCardsRows.CreditAmountHUF = _CreditAmountHUF - _DebitAmountHUF
End If
If _DebitAmountDEV > _CreditAmountDEV Then
_GLCardsRows.DebitAmountDEV = _DebitAmountDEV - _CreditAmountDEV
Else
_GLCardsRows.CreditAmountDEV = _CreditAmountDEV - _DebitAmountDEV
End If
_GLCardsRows.BallanceRulliringHUF = _BallanceRulliringHUF
_GLCardsRows.BallanceRulliringDEV = _BallanceRulliringDEV
_RowIndex += 1
_GLCardsRows.RowIndex = _RowIndex
_GLCardsRows.Note_Rows = "Nyitó : " & _DateFromCurrentYear.ToString & " - " & _GLCardsHeader.DateFrom.ToString
_GLCardsRows.Save()
'// Ha van erre a nyitó dátumra adott pénzeszköt fk. számlára LiquidAssetsrate akkor az lesz anyitó DEV !
'........................................................................................................
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
For Each _GLRows In _GLRows_Collection
I += 1
RaiseEvent DoWork()
If _GLRows.DebitChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber Then
_GLCardsRows = New GLCardsRows(_uow)
_GLCardsRows.GLCardsHeader = _GLCardsHeader
_GLCardsRows.CustomersForm = _GLCardsHeader.CustomersFrom
_GLCardsRows.ShortNameFrom = _GLCardsHeader.ChartOfAccount.Name
_GLCardsRows.ShortNameTo = _GLRows.CreditChartOfAccounts.Name
_GLCardsRows.DebitAmountHUF = _GLRows.AmountHUF
_GLCardsRows.DebitAmountDEV = _GLRows.AmountDEV
If _GLRows.AmountDEV = 0 Then
_GLCardsRows.CurrencyRate = 1.0
Else
_GLCardsRows.CurrencyRate = Math.Round(_GLRows.AmountHUF / _GLRows.AmountDEV, 4, MidpointRounding.AwayFromZero)
End If
_GLCardsRows.Customers = _GLRows.Customer
_GLCardsRows.ConnectionInfo = _GLRows.ConnectInfo
_GLCardsRows.DateExecution = _GLRows.GLHeader.DateExecution
_BallanceRulliringHUF += _GLRows.AmountHUF
_BallanceRulliringDEV += _GLRows.AmountDEV
_GLCardsRows.BallanceRulliringHUF = _BallanceRulliringHUF
_GLCardsRows.BallanceRulliringDEV = _BallanceRulliringDEV
_GLCardsRows.DocumentNumber = _GLRows.GLHeader.DocumentNumber
_GLCardsRows.Controlling = _GLRows.Controlling
_GLCardsRows.UniqueObjects = _GLRows.UniqueObjects
_GLCardsRows.JobNumberObjects = _GLRows.JobNumberObjects
_GLCardsRows.CostHolder = _GLRows.CostHolder
_GLCardsRows.CostPlace = _GLRows.CostPlace
_RowIndex += 1
_GLCardsRows.RowIndex = _RowIndex
_GLCardsRows.Note_Rows = _GLRows.NoteRows
_GLCardsRows.GLRows = _GLRows
_GLCardsRows.Save()
ElseIf _GLRows.CreditChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber Then
_GLCardsRows = New GLCardsRows(_uow)
_GLCardsRows.GLCardsHeader = _GLCardsHeader
_GLCardsRows.CustomersForm = _GLCardsHeader.CustomersFrom
_GLCardsRows.ShortNameFrom = _GLCardsHeader.ChartOfAccount.Name
_GLCardsRows.ShortNameTo = _GLRows.DebitChartOfAccounts.Name
_GLCardsRows.CreditAmountHUF = _GLRows.AmountHUF
_GLCardsRows.CreditAmountDEV = _GLRows.AmountDEV
If _GLRows.AmountDEV = 0 Then
_GLCardsRows.CurrencyRate = 1.0
Else
_GLCardsRows.CurrencyRate = Math.Round(_GLRows.AmountHUF / _GLRows.AmountDEV, 4, MidpointRounding.AwayFromZero)
End If
_GLCardsRows.Customers = _GLRows.Customer
_GLCardsRows.ConnectionInfo = _GLRows.ConnectInfo
_GLCardsRows.DateExecution = _GLRows.GLHeader.DateExecution
_BallanceRulliringHUF -= _GLRows.AmountHUF
_BallanceRulliringDEV -= _GLRows.AmountDEV
_GLCardsRows.BallanceRulliringHUF = _BallanceRulliringHUF
_GLCardsRows.BallanceRulliringDEV = _BallanceRulliringDEV
_GLCardsRows.DocumentNumber = _GLRows.GLHeader.DocumentNumber
_GLCardsRows.Controlling = _GLRows.Controlling
_GLCardsRows.UniqueObjects = _GLRows.UniqueObjects
_GLCardsRows.JobNumberObjects = _GLRows.JobNumberObjects
_GLCardsRows.CostHolder = _GLRows.CostHolder
_GLCardsRows.CostPlace = _GLRows.CostPlace
_RowIndex += 1
_GLCardsRows.RowIndex = _RowIndex
_GLCardsRows.Note_Rows = _GLRows.NoteRows
_GLCardsRows.GLRows = _GLRows
_GLCardsRows.Save()
If I Mod 100 = 0 Then _uow.CommitChanges()
End If
Next
_uow.CommitTransaction()
_GLCardsHeader.CreateGLRowsStatictics(_uow, _GLCardsHeader.DateFrom, _GLCardsHeader.DateTo, _GLCardsHeader.CustomersFrom, _GLCardsHeader.Oid)
RaiseEvent FinalWork
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Private Sub aGLCardsPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCardsPrint.Execute
'-- Ez egy beégetés !!
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ReportData As ReportData
Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader)
If _GLCardsHeader IsNot Nothing Then
_ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Főkönyvi karton"))
If _ReportData IsNot Nothing Then
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("GLCardsHeader=?", _GLCardsHeader), True)
Else
Throw New UserFriendlyException("Nincs beállítva a Főkönyvi karton nyomtatvány !")
End If
End If
End Sub
Private Sub aViewAttachments_Cards_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_Cards.Execute
Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
Dim _CustomersFrom As CustomersFrom = _GLCardsRows.CustomersForm
Dim _Customers As Customers = _GLCardsRows.Customers
Dim _DocumentNumber As String = _GLCardsRows.ConnectionInfo
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
End Sub
Private Sub aViewRegistry_Cards_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_Cards.Execute
Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
Dim _CustomersFrom As CustomersFrom = _GLCardsRows.CustomersForm
Dim _Customers As Customers = _GLCardsRows.Customers
Dim _DocumentNumber As String = _GLCardsRows.ConnectionInfo
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
End Sub
Private Sub aGLCardsChangeParam_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCardsChangeParam.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)()
Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
If _GLCardsRows IsNot Nothing Then
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLCardsRows.GLRows.GLHeader.DateExecution.Year))
Else
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year))
End If
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
End Sub
Private Sub aGLCardsChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCardsChangeParam.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
Dim _GLRows As GLRows
Dim _GLCardsRows As GLCardsRows
Dim I As Long = 0
Dim _Controlling As Controlling
Dim _JobNumberObjects As JobNumberObjects
Dim _CostHolder As CostHolder
Dim _CostPlace As CostPlace
Dim _UniqueObjects As UniqueObjects
Dim _DebitChartOfAccounts As ChartOfAccounts
Dim _CreditChartOfAccounts As ChartOfAccounts
If _GLRowsCheck.Controlling IsNot Nothing Then
_Controlling = _ocur.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.Controlling.Oid), True)
If _Controlling.Children.Count > 0 Then
Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _Controlling.Name))
Exit Sub
End If
Else
_Controlling = Nothing
End If
If _GLRowsCheck.JobNumberObjects IsNot Nothing Then
_JobNumberObjects = _ocur.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.JobNumberObjects.Oid), True)
Else
_JobNumberObjects = Nothing
End If
If _GLRowsCheck.CostHolder IsNot Nothing Then
_CostHolder = _ocur.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostHolder.Oid), True)
Else
_CostHolder = Nothing
End If
If _GLRowsCheck.CostPlace IsNot Nothing Then
_CostPlace = _ocur.FindObject(Of CostPlace)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostPlace.Oid), True)
Else
_CostPlace = Nothing
End If
If _GLRowsCheck.UniqueObjects IsNot Nothing Then
_UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.UniqueObjects.Oid), True)
Else
_UniqueObjects = Nothing
End If
If _GLRowsCheck.DebitChartOfAccounts IsNot Nothing Then
_DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.DebitChartOfAccounts.Oid), True)
Else
_DebitChartOfAccounts = Nothing
End If
If _GLRowsCheck.CreditChartOfAccounts IsNot Nothing Then
_CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CreditChartOfAccounts.Oid), True)
Else
_CreditChartOfAccounts = Nothing
End If
If _DebitChartOfAccounts IsNot Nothing And _CreditChartOfAccounts IsNot Nothing Then
If _DebitChartOfAccounts.Oid = _CreditChartOfAccounts.Oid Then
Throw New Exception("*A tartozik és a követel számlaszám NEM lehet azonos !")
Exit Sub
End If
End If
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _GLCardsRows In View.SelectedObjects
I += 1
RaiseEvent DoWork()
_GLRows = _GLCardsRows.GLRows
If _GLRows IsNot Nothing Then
If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling
If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects
If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder
If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace
If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects
If _DebitChartOfAccounts IsNot Nothing Then _GLRows.DebitChartOfAccounts = _DebitChartOfAccounts
If _CreditChartOfAccounts IsNot Nothing Then _GLRows.CreditChartOfAccounts = _CreditChartOfAccounts
_GLRows.Save()
End If
If I Mod 100 = 0 Then _ocur.CommitChanges()
Next
_ocur.CommitChanges()
RaiseEvent FinalWork
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
If nestedFrame IsNot Nothing Then
Dim parentView As View = nestedFrame.View
parentView.ObjectSpace.Refresh()
End If
End Sub
Private Sub aGLCardsDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCardsDivideRows.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
If _GLCardsRows.GLRows IsNot Nothing Then
If _GLCardsRows.GLRows.PartnerType = ePartnerType.ePayabels Or _GLCardsRows.GLRows.PartnerType = ePartnerType.eReceivables Then
_GLRowsDivideH.GLRows_Oid = _GLCardsRows.GLRows.Oid
_GLRowsDivideH.row_Customers = _onew.GetObject(_GLCardsRows.GLRows.Customer)
_GLRowsDivideH.row_PartnerType = _GLCardsRows.GLRows.PartnerType
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH)
Else
_GLRowsDivideH.GLRows_Oid = _GLCardsRows.GLRows.Oid
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
End If
End If
End Sub
Private Sub aGLCardsDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCardsDivideRows.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
Dim _GLRows As GLRows = _GLCardsRows.GLRows
If _GLRows IsNot Nothing Then
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
_GLCardsRows.IsDivided = True
_GLCardsRows.Save()
_ocur.CommitChanges()
End If
End Sub
Private Sub aGLCardsMakeConnection_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCardsMakeConnection.CustomizePopupWindowParams
'-- POPUP ----------------------------------------------------------------------------------------------------------------
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow
Dim _GLCardRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
_PartnerConnectionInfoCleanUp_PopupWindow = _onew.FindObject(Of PartnerConnectionInfoCleanUp_PopupWindow)(CriteriaOperator.Parse("Oid=Oid"), True)
If _PartnerConnectionInfoCleanUp_PopupWindow Is Nothing Then
_PartnerConnectionInfoCleanUp_PopupWindow = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow)()
End If
_PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo = _GLCardRows.ConnectionInfo
_PartnerConnectionInfoCleanUp_PopupWindow.Save()
_onew.CommitChanges()
noselect = True
e.View = Application.CreateDetailView(_onew, _PartnerConnectionInfoCleanUp_PopupWindow, True)
End Sub
Private Sub aGLCardsMakeConnection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCardsMakeConnection.Execute
'-- Ez a kijelölt sorokat összepontozza ---------------------------------------------------------------------------------
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLCardsRows As GLCardsRows
Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow = TryCast(e.PopupWindow.View.SelectedObjects(0), PartnerConnectionInfoCleanUp_PopupWindow)
For Each _GLCardsRows In selection
Select Case _GLCardsRows.GLRows.GLHeader.GLDocumentType
Case eGLDocumentType.eGLBank, eGLDocumentType.eGLCassa, eGLDocumentType.eGLCompensation, eGLDocumentType.eGLMixed
If _GLCardsRows.GLRows IsNot Nothing Then
_GLCardsRows.GLRows.ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo
_GLCardsRows.GLRows.Save()
_GLCardsRows.ConnectionInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo
_GLCardsRows.Save()
End If
End Select
Next
_ocur.CommitChanges()
View.Refresh()
noselect = False
End Sub
Private Sub aGLCardsOpenDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCardsOpenDocument.Execute
'-- Karton sorához tartozó eredeti dokumentum megnyitása
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
If _GLCardsRows IsNot Nothing Then
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _onew.GetObject(_GLCardsRows.GLRows.GLHeader))
End If
End Sub
Protected Overridable Sub CustomizeDisabledEditorsAppearance(ByVal e As ApplyAppearanceEventArgs)
End Sub
Private Sub appearanceController_AppearanceApplied(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs)
If e.AppearanceObject.Enabled = False Then
CustomizeDisabledEditorsAppearance(e)
End If
End Sub
Private Sub appearanceController_CustomApplyAppearance(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs)
Dim _GLCardsRows As GLCardsRows = TryCast(e.ContextObjects(0), GLCardsRows)
If e.ItemType = "Action" Then Exit Sub
'If _GLCardsRows IsNot Nothing Then
' If _GLCardsRows.IsDivided = True Then
' CType(e.Item, IAppearanceFormat).FontStyle = Drawing.FontStyle.Bold
' CType(e.Item, IAppearanceFormat).FontColor = Drawing.Color.Red
' e.Handled = True
' End If
'End If
End Sub
Private Sub aViewPCIDetail_GLCard_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDetail_GLCard.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows)
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLCardsRows.GLRows.GLHeader.CustomersFrom, _
_GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _
_GLCardsRows.GLRows.ConnectInfo)
End Sub
Private Sub aPCICheckDetail_GLCard_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckDetail_GLCard.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _GLCardsRows As GLCardsRows
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _GLCardsRows In View.SelectedObjects
RaiseEvent DoWork()
GLFunctions.ReconfigurePCI(_uow, _GLCardsRows.GLRows.GLHeader.CustomersFrom, _GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _GLCardsRows.GLRows.ConnectInfo)
Next
RaiseEvent FinalWork
End Sub
Private Sub aGLCardsQueryPCI_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLCardsQueryPCI.Execute
Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
Dim _uow_2 As New UnitOfWork(_onew.Session.DataLayer)
Dim _GLCardsRowsPCI As GLCardsRowsPCI
If _GLCardsHeader Is Nothing Then Exit Sub
_GLCardsHeader = _uow.GetObjectByKey(Of GLCardsHeader)(_GLCardsHeader.Oid)
_uow.Delete(_GLCardsHeader.GLCardsRowsPCI)
_uow.CommitChanges()
Dim _GLCardsRows_xpquery = New XPQuery(Of GLCardsRows)(_uow)
Dim query = From _GLCardsRows In _GLCardsRows_xpquery
Where _GLCardsRows.GLCardsHeader.Oid = _GLCardsHeader.Oid
Group _GLCardsRows By _GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _GLCardsRows.GLRows.ConnectInfo Into g = Group _
Select New With {Key .Customers = Customer,
Key .PartnerType = PartnerType,
Key .ConnectInfo = ConnectInfo,
Key .DebitAmountHUF = g.Sum(Function(inv) (inv.DebitAmountHUF)), _
Key .CreditAmountHUF = g.Sum(Function(inv) (inv.CreditAmountHUF))}
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
_GLCardsRowsPCI = New GLCardsRowsPCI(_uow)
_GLCardsRowsPCI.GLCardsHeader = _GLCardsHeader
_GLCardsRowsPCI.Customers = item.Customers
_GLCardsRowsPCI.PartnerType = item.PartnerType
_GLCardsRowsPCI.ConnectInfo = item.ConnectInfo
_GLCardsRowsPCI.BallanceHUF_Card_Debit = Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero)
_GLCardsRowsPCI.BallanceHUF_Card_Credit = Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero)
If item.PartnerType = ePartnerType.ePayabels Then
_GLCardsRowsPCI.BallanceHUF_Card = Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero)
Else
_GLCardsRowsPCI.BallanceHUF_Card = Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero)
End If
'// Folyószámlában rákeresés !!!
_GLCardsRowsPCI.BallanceHUF_PCI = Me.GetPCIBallance(_uow_2, _GLCardsHeader.CustomersFrom, item.Customers, item.PartnerType, item.ConnectInfo, _GLCardsHeader.DateTo)
_GLCardsRowsPCI.DifferentHUF = Math.Round(_GLCardsRowsPCI.BallanceHUF_Card - _GLCardsRowsPCI.BallanceHUF_PCI, 0, MidpointRounding.AwayFromZero)
_uow.CommitChanges()
Next
RaiseEvent FinalWork
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Private Function GetPCIBallance(_uow As UnitOfWork, _CustomersFrom As CustomersFrom, _Customers As Customers, _PartnerType As ePartnerType, _ConnectInfo As String, _DateClose As Date) As Double
Dim _SQL As String = ""
Dim _SelectStatementResultRow As SelectStatementResultRow
Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
Dim _GetPCIBallance As Double = 0
If _Customers Is Nothing Then Exit Function
If _CustomersFrom Is Nothing Then Exit Function
Select Case GLOBAL_SQLType
Case eSQLType.MySQL, eSQLType.MSSQL
_SQL = " SELECT SUM(t1.BallanceHUF)"
_SQL += " FROM PCIDetail t1"
_SQL += " WHERE t1.PartnerType=" & _PartnerType
_SQL += String.Format(" AND t1.CustomersFrom='{0}'", _CustomersFrom.Oid)
_SQL += String.Format(" AND t1.Customers='{0}'", _Customers.Oid)
_SQL += String.Format(" AND t1.ConnectInfo='{0}'", _ConnectInfo)
_SQL += String.Format(" AND t1.DateExecution<'{0}-{1}-{2}'", _DateClose.AddDays(1).Year, _DateClose.AddDays(1).Month, _DateClose.AddDays(1).Day)
Case eSQLType.PostgreSQL
End Select
_SelectedData = _uow.ExecuteQuery(_SQL)
If _SelectedData.ResultSet.Length > 0 Then
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
_GetPCIBallance = _SelectStatementResultRow.Values(0)
Next
End If
Return Math.Round(_GetPCIBallance, 0, MidpointRounding.AwayFromZero)
End Function
Private Sub aViewPCIDGroup_GLCrads_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLCrads.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI)
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _
_GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _
_GLCardsRowsPCI.ConnectInfo)
End Sub
Private Sub aViewPCIDGroup_GLDetails_GLCards_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails_GLCards.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI)
ViewPDCI.ViewGLDetails(_onew, Application, e, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _
_GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _
_GLCardsRowsPCI.ConnectInfo)
End Sub
Private Sub aViewAttachments_GLCards_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewAttachments_GLCards.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI)
ViewAttachments.ViewAttachments(_ocur, Frame, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _
_GLCardsRowsPCI.Customers, _GLCardsRowsPCI.ConnectInfo, _
"")
End Sub
Private Sub aPCICheckDetail_GLCardsRowsPCI_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheckDetail_GLCardsRowsPCI.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI)
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _GLCardsRowsPCI In View.SelectedObjects
RaiseEvent DoWork()
GLFunctions.ReconfigurePCI(_uow, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _GLCardsRowsPCI.ConnectInfo)
Next
RaiseEvent FinalWork
End Sub
Private Sub aGLCardsQueryABRQuery_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLCardsQueryABRQuery.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
Dim _GLCardsHeader As GLCardsHeader = _uow.GetObjectByKey(Of GLCardsHeader)(TryCast(View.SelectedObjects(0), GLCardsHeader).Oid)
Dim _GLAccounts As GLAccounts = Nothing
Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = Nothing
Dim _ABRQueryRows As ABRQueryRows = Nothing
Dim _BallanceHUF As Double = 0
Dim _DiffDay As Long = 0
Dim i As Long = 0
_uow.Delete(_GLCardsHeader.ABRQueryRowsDetail)
_uow.Delete(_GLCardsHeader.ABRQueryRows)
Dim _GLCardsRows_xpquery = New XPQuery(Of GLCardsRows)(_uow)
Dim query = From _GLCardsRows In _GLCardsRows_xpquery
Where _GLCardsRows.GLCardsHeader.Oid = _GLCardsHeader.Oid
Group _GLCardsRows By _GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _GLCardsRows.GLRows.ConnectInfo Into g = Group _
Select New With {Key .Customers = Customer,
Key .PartnerType = PartnerType,
Key .ConnectInfo = ConnectInfo,
Key .DebitAmountHUF = g.Sum(Function(inv) (inv.DebitAmountHUF)), _
Key .CreditAmountHUF = g.Sum(Function(inv) (inv.CreditAmountHUF))}
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
If item.PartnerType = ePartnerType.ePayabels Then
_BallanceHUF = Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero)
Else
_BallanceHUF = Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero)
End If
If _BallanceHUF <> 0 Then
_ABRQueryRowsDetail = New ABRQueryRowsDetail(_uow)
_ABRQueryRowsDetail.GLCardsHeader = _GLCardsHeader
_ABRQueryRowsDetail.BallanceHUF = _BallanceHUF
_ABRQueryRowsDetail.CustomersFrom = _GLCardsHeader.CustomersFrom
_ABRQueryRowsDetail.Customers = item.Customers
_ABRQueryRowsDetail.PartnerType = item.PartnerType
_ABRQueryRowsDetail.ConnectInfo = item.ConnectInfo
_GLAccounts = _uow.FindObject(Of GLAccounts)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=?", _GLCardsHeader.CustomersFrom, item.Customers, item.PartnerType, item.ConnectInfo))
If _GLAccounts Is Nothing Then
'// Nyitott P.Ü. teljesítés !!!
_ABRQueryRowsDetail.D00_OpenLiquidHUF = _BallanceHUF
Else
_ABRQueryRowsDetail.AmountHUF = _GLAccounts.AmountHUFBrutto
_ABRQueryRowsDetail.DateExecution = _GLAccounts.DateExecution
_ABRQueryRowsDetail.DatePayment = _GLAccounts.DatePayment
If _GLCardsHeader.DateTo.Date <= GetSQLTime(_onew.Session).Date Then
_DiffDay = DateDiff(DateInterval.Day, _GLAccounts.DatePayment.Date, _GLCardsHeader.DateTo.Date)
Else
_DiffDay = DateDiff(DateInterval.Day, _GLAccounts.DatePayment.Date, GetSQLTime(_uow).Date)
End If
_ABRQueryRowsDetail.DelayedDay = _DiffDay
Select Case _DiffDay
Case Is <= 0
_ABRQueryRowsDetail.D01_NotExpiredHUF = _BallanceHUF
Case 1 To 15
_ABRQueryRowsDetail.D02_001_015HUF = _BallanceHUF
Case 16 To 30
_ABRQueryRowsDetail.D03_016_030HUF = _BallanceHUF
Case 31 To 60
_ABRQueryRowsDetail.D04_031_060HUF = _BallanceHUF
Case 61 To 90
_ABRQueryRowsDetail.D05_061_090HUF = _BallanceHUF
Case 91 To 150
_ABRQueryRowsDetail.D06_091_150HUF = _BallanceHUF
Case 151 To 365
_ABRQueryRowsDetail.D07_151_365HUF = _BallanceHUF
Case Is > 365
_ABRQueryRowsDetail.D08_OverOneYearHUF = _BallanceHUF
End Select
End If
End If
Next
_uow.CommitChanges()
RaiseEvent FinalWork
i = 0
Dim PCI2 As New XPQuery(Of ABRQueryRowsDetail)(_uow)
Dim query2 = From _PCI2 In PCI2
Where _PCI2.GLCardsHeader Is _GLCardsHeader
Group _PCI2 By
_PCI2.CustomersFrom, _
_PCI2.Customers, _
_PCI2.PartnerType, _
_PCI2.CurrencyName_Account Into g = Group
Order By CustomersFrom, Customers, PartnerType, CurrencyName_Account
Select New With {Key .CustomersFrom = CustomersFrom, _
Key .Customers = Customers, _
Key .PartnerType = PartnerType,
Key .CurrencyName_Account = CurrencyName_Account,
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV),
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF),
Key .D00_OpenLiquidDEV = g.Sum(Function(inv) inv.D00_OpenLiquidDEV),
Key .D00_OpenLiquidHUF = g.Sum(Function(inv) inv.D00_OpenLiquidHUF),
Key .D02_001_015DEV = g.Sum(Function(inv) inv.D02_001_015DEV),
Key .D02_001_015HUF = g.Sum(Function(inv) inv.D02_001_015HUF),
Key .D03_016_030DEV = g.Sum(Function(inv) inv.D03_016_030DEV),
Key .D03_016_030HUF = g.Sum(Function(inv) inv.D03_016_030HUF),
Key .D04_031_060DEV = g.Sum(Function(inv) inv.D04_031_060DEV),
Key .D04_031_060HUF = g.Sum(Function(inv) inv.D04_031_060HUF),
Key .D05_061_090DEV = g.Sum(Function(inv) inv.D05_061_090DEV),
Key .D05_061_090HUF = g.Sum(Function(inv) inv.D05_061_090HUF),
Key .D06_091_150DEV = g.Sum(Function(inv) inv.D06_091_150DEV),
Key .D06_091_150HUF = g.Sum(Function(inv) inv.D06_091_150HUF),
Key .D07_151_365DEV = g.Sum(Function(inv) inv.D07_151_365DEV),
Key .D07_151_365HUF = g.Sum(Function(inv) inv.D07_151_365HUF),
Key .D01_NotExpiredHUF = g.Sum(Function(inv) inv.D01_NotExpiredHUF),
Key .D01_NotExpiredDEV = g.Sum(Function(inv) inv.D01_NotExpiredDEV),
Key .D08_OverOneYearHUF = g.Sum(Function(inv) inv.D08_OverOneYearHUF),
Key .D08_OverOneYearDEV = g.Sum(Function(inv) inv.D08_OverOneYearDEV)}
RaiseEvent InitWork(1, 1, query2.Count)
For Each item In query2
i += 1
RaiseEvent DoWork()
_ABRQueryRows = New ABRQueryRows(_uow)
_ABRQueryRows.GLCardsHeader = _GLCardsHeader
_ABRQueryRows.BallanceHUF = item.BallanceHUF
_ABRQueryRows.CurrencyName_Account = item.CurrencyName_Account
_ABRQueryRows.Customers = item.Customers
_ABRQueryRows.CustomersFrom = item.CustomersFrom
_ABRQueryRows.PartnerType = item.PartnerType
_ABRQueryRows.D00_OpenLiquidHUF = item.D00_OpenLiquidHUF
_ABRQueryRows.D01_NotExpiredHUF = item.D01_NotExpiredHUF
_ABRQueryRows.D02_001_015HUF = item.D02_001_015HUF
_ABRQueryRows.D03_016_030HUF = item.D03_016_030HUF
_ABRQueryRows.D04_031_060HUF = item.D04_031_060HUF
_ABRQueryRows.D05_061_090HUF = item.D05_061_090HUF
_ABRQueryRows.D06_091_150HUF = item.D06_091_150HUF
_ABRQueryRows.D07_151_365HUF = item.D07_151_365HUF
_ABRQueryRows.D08_OverOneYearHUF = item.D08_OverOneYearHUF
Next
_uow.CommitChanges()
RaiseEvent FinalWork
End Sub
Private Sub aGenerateOpenClosePCIRecord_GLCards_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateOpenClosePCIRecord_GLCards.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = _onew.CreateObject(Of GLAccountsOpenClosePCIPopup)()
e.View = Application.CreateDetailView(_onew, "GLAccountsOpenClosePCIPopup_DetailView", True, _GLAccountsOpenClosePCIPopup)
End Sub
Private Sub aGenerateOpenClosePCIRecord_GLCards_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateOpenClosePCIRecord_GLCards.Execute
Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLAccountsOpenClosePCIPopup)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _GLCardsRowsPCI As GLCardsRowsPCI
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _GLCardsRowsPCI In View.SelectedObjects
RaiseEvent DoWork()
Frame.GetController(Of GLAccountsVC).MakeOpenClosePCI(_uow, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _GLCardsRowsPCI.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose, _GLAccountsOpenClosePCIPopup.GLRowsTypeSelect)
Next
RaiseEvent FinalWork
End Sub
Private Sub aGenerateOpenClosePCIRecord_Storno_GLCards_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateOpenClosePCIRecord_Storno_GLCards.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = _onew.CreateObject(Of GLAccountsOpenClosePCIPopup)()
e.View = Application.CreateDetailView(_onew, "GLAccountsOpenClosePCIPopup_DetailView", True, _GLAccountsOpenClosePCIPopup)
End Sub
Private Sub aGenerateOpenClosePCIRecord_Storno_GLCards_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateOpenClosePCIRecord_Storno_GLCards.Execute
Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLAccountsOpenClosePCIPopup)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _GLCardsRowsPCI As GLCardsRowsPCI
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _GLCardsRowsPCI In View.SelectedObjects
RaiseEvent DoWork()
Frame.GetController(Of GLAccountsVC).RemoveOpenClosePCI(_uow, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _GLCardsRowsPCI.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose)
Next
RaiseEvent FinalWork
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsHeader.vb
+238
View File
@@ -0,0 +1,238 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem("FinancialTransactions")> _
<DeferredDeletion(False)> _
<Appearance("Disable UserCreated,ObjectCreated-GLCardsHeader", AppearanceItemType:="ViewItem", Enabled:=False, TargetItems:="ObjectCreated,UserCreated", Criteria:="1=1")> _
<RuleCriteria("RuleCriteria GLCardsHeader-ChartOfAccounts", DevExpress.Persistent.Validation.DefaultContexts.Save, "ChartOfAccount.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
Public Class GLCardsHeader
Inherits BaseObject
Private _ShortName As String 'Lekérdezés rövid megnevezése
Private _DateFrom As Date
Private _DateTo As Date
Private _CustomersFrom As CustomersFrom
Private _ChartOfAccounts As ChartOfAccounts
Private _IsOpen As Boolean = True
Private _IsClose As Boolean = False
Private _ObjectCreated As Date
Private _UserCreated As User
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Protected Overrides Sub OnDeleting()
MyBase.OnDeleting()
Session.Delete(Me.GLCardsRows)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
DateFrom = CDate(Year(Now) & "/01/01")
DateTo = Now
End Sub
<RuleRequiredField("GLCardsHeader-ShortName", DefaultContexts.Save)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<RuleRequiredField("GLCardsHeader-DateFrom", DefaultContexts.Save)> _
Property DateFrom() As Date
Get
Return _DateFrom
End Get
Set(ByVal value As Date)
SetPropertyValue("DateFrom", _DateFrom, value)
End Set
End Property
<RuleRequiredField("GLCardsHeader-DateTo", DefaultContexts.Save)> _
Property DateTo() As Date
Get
Return _DateTo
End Get
Set(ByVal value As Date)
SetPropertyValue("DateTo", _DateTo, value)
End Set
End Property
<RuleRequiredField("GLCardsHeader-CustomersFrom", DefaultContexts.Save)> _
Property CustomersFrom() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<RuleRequiredField("GLCardsHeader-ChartOfAccount", DefaultContexts.Save)> _
<DataSourceCriteria("AccountYear=GetYear('@This.DateFrom')")> _
Property ChartOfAccount() As ChartOfAccounts
Get
Return _ChartOfAccounts
End Get
Set(ByVal value As ChartOfAccounts)
SetPropertyValue("ChartOfAccount", _ChartOfAccounts, value)
End Set
End Property
Property IsOpen As Boolean
Get
Return _IsOpen
End Get
Set(value As Boolean)
SetPropertyValue("IsOpen", _IsOpen, value)
End Set
End Property
Property IsClose As Boolean
Get
Return _IsClose
End Get
Set(value As Boolean)
SetPropertyValue("IsClose", _IsClose, value)
End Set
End Property
'-- XP collections
<Association("GLCardsHeader-GLCardsRows", GetType(GLCardsRows)), VisibleInListView(False)> _
ReadOnly Property GLCardsRows() As XPCollection(Of GLCardsRows)
Get
Return GetCollection(Of GLCardsRows)("GLCardsRows")
End Get
End Property
<Association("GLCardsHeader-GLCardsRowsPCI", GetType(GLCardsRowsPCI)), VisibleInListView(False)> _
ReadOnly Property GLCardsRowsPCI() As XPCollection(Of GLCardsRowsPCI)
Get
Return GetCollection(Of GLCardsRowsPCI)("GLCardsRowsPCI")
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLRowsStatictics As XPCollection(Of GLRowsStatistics)
Get
If Session.IsNewObject(Me) Then
Return Nothing
Else
Return New XPCollection(Of GLRowsStatistics)(Session, CriteriaOperator.Parse("MasterKey=?", Me.Oid))
End If
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLCardsRowsPivot As XPCollection(Of GLCardsRows)
Get
Return New XPCollection(Of GLCardsRows)(Session, CriteriaOperator.Parse("GLCardsHeader=?", Me))
End Get
End Property
ReadOnly Property ABRQueryRows As XPCollection(Of ABRQueryRows)
Get
Return New XPCollection(Of ABRQueryRows)(Session, CriteriaOperator.Parse("GLCardsHeader=?", Me))
End Get
End Property
ReadOnly Property ABRQueryRowsDetail As XPCollection(Of ABRQueryRowsDetail)
Get
Return New XPCollection(Of ABRQueryRowsDetail)(Session, CriteriaOperator.Parse("GLCardsHeader=?", Me))
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property IsCustomersGLParameters As Boolean
Get
If Me.ChartOfAccount Is Nothing Then
Return False
Exit Property
Else
Dim _IsC As Boolean = False
Dim _CustomersGLParametersYear_Collection As New XPCollection(Of CustomersGLParametersYear)(Session)
Dim _CustomersGLParametersYear As CustomersGLParametersYear
For Each _CustomersGLParametersYear In _CustomersGLParametersYear_Collection
If _CustomersGLParametersYear.ChartOfAccountsIn IsNot Nothing Then
If _CustomersGLParametersYear.ChartOfAccountsIn.Oid = Me.ChartOfAccount.Oid Then
Return True
Exit Property
End If
End If
If _CustomersGLParametersYear.ChartOfAccountsOut IsNot Nothing Then
If _CustomersGLParametersYear.ChartOfAccountsOut.Oid = Me.ChartOfAccount.Oid Then
Return True
Exit Property
End If
End If
If _CustomersGLParametersYear.ChartOfAccountsNo IsNot Nothing Then
If _CustomersGLParametersYear.ChartOfAccountsNo.Oid = Me.ChartOfAccount.Oid Then
Return True
Exit Property
End If
End If
Next
End If
End Get
End Property
'-- Szűrők
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
Public Sub CreateGLRowsStatictics(_uow As UnitOfWork, _DateFrom As Date, _DateTo As Date, _CustomersFrom As CustomersFrom, _MasterKey As Guid)
'// Előkészít egy GLRowsStatictics XPCollection azokra a tételekre, amelyek nincsenek feladva ezen időszakra !
Dim _GLRowsStatistics As GLRowsStatistics
Dim _GLRowsStatistics_Collection As New XPCollection(Of GLRowsStatistics)(_uow, CriteriaOperator.Parse("MasterKey=?", _MasterKey))
_uow.Delete(_GLRowsStatistics_Collection)
Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_uow, CriteriaOperator.Parse("CustomersFrom.Oid = ? And GetDate(F_DateExecution) Between(?, ?) And RegistryType.RegistryMainType = 'eAccount' And F_GLAccounts Is Null And IsStorno = False", _CustomersFrom.Oid, _DateFrom.Date, _DateTo.Date))
Dim _RegistryHeader As RegistryHeader
For Each _RegistryHeader In _RegistryHeader_Collection
_GLRowsStatistics = New GLRowsStatistics(_uow)
_GLRowsStatistics.MasterKey = _MasterKey
_GLRowsStatistics.RegistryHeader = _RegistryHeader
Next
Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_uow, CriteriaOperator.Parse("InvoiceType.InvoiceTypeBase <> 'eCustomRate' And getdate(DateExecution) Between(?, ?) And CustomersFrom.Oid = ? And GLAccounts Is Null", _DateFrom.Date, _DateTo.Date, _CustomersFrom.Oid))
Dim _InvoiceHeader As InvoiceHeader
For Each _InvoiceHeader In _InvoiceHeader_Collection
_GLRowsStatistics = New GLRowsStatistics(_uow)
_GLRowsStatistics.MasterKey = _MasterKey
_GLRowsStatistics.InvoiceHeader = _InvoiceHeader
Next
_uow.CommitChanges()
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRows.vb
+340
View File
@@ -0,0 +1,340 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
<AllowSort(False)> _
<Appearance("GLCardsRows -> MainAppearance", Criteria:="1=1", AppearanceItemType:="ViewItem", Context:="ListView", TargetItems:="*")> _
Public Class GLCardsRows
Inherits BaseObject
Private _GLCardsHeader
Private _CustomersFrom As CustomersFrom
Private _RowIndex As Long
Private _Customers As Customers
Private _ConnectInfo As String
Private _DocumentNumber As String
Private _DateExecution As Date
Private _Note_Rows As String
Private _DebitAmountHUF As Double
Private _CreditAmountHUF As Double
Private _DebitAmountDEV As Double 'KI kell dolgozni !!!
Private _CreditAmountDEV As Double
Private _DebitAmountDEV2 As Double
Private _CreditAmountDEV2 As Double
Private _CurrencyRate As Double
Private _CurrencyRate2 As Double
Private _DebitRAmountHUF As Double
Private _CreditRAmountHUF As Double
Private _BallanceRulliringHUF As Double 'Göngyölt egyenleg
Private _BallanceRulliringDEV As Double 'Göngyölt egyenleg (DEV)
Private _AccountNumberFrom As String
Private _ShortNameFrom As String
Private _AccountNumberTo As String
Private _ShortNameTo As String
Private _UniqueObjects As UniqueObjects
Private _Controlling As Controlling
Private _JobNumberObjects As JobNumberObjects
Private _CostPlace As CostPlace
Private _CostHolder As CostHolder
Private _GLRows As GLRows
Private _IsDivided As Boolean = False
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
<Association("GLCardsHeader-GLCardsRows", GetType(GLCardsHeader))> _
Property GLCardsHeader() As GLCardsHeader
Get
Return _GLCardsHeader
End Get
Set(ByVal value As GLCardsHeader)
SetPropertyValue("GLCardsHeader", _GLCardsHeader, value)
End Set
End Property
Property CustomersForm() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersForm", _CustomersFrom, value)
End Set
End Property
Property RowIndex As Long
Get
Return _RowIndex
End Get
Set(value As Long)
SetPropertyValue("RowIndex", _RowIndex, value)
End Set
End Property
Property Customers() As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property ConnectionInfo() As String
Get
Return _ConnectInfo
End Get
Set(ByVal value As String)
SetPropertyValue("ConnectionInfo", _ConnectInfo, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property DateExecution() As Date
Get
Return _DateExecution
End Get
Set(ByVal value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
<Size(4000)> _
Property Note_Rows() As String
Get
Return _Note_Rows
End Get
Set(ByVal value As String)
SetPropertyValue("Note_Rows", _Note_Rows, value)
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
If GLRows IsNot Nothing Then
If _GLRows.NoteRows <> value Then
_GLRows.NoteRows = value
End If
End If
End If
End Set
End Property
Property DebitAmountHUF() As Double
Get
Return _DebitAmountHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value)
End Set
End Property
Property CreditAmountHUF() As Double
Get
Return _CreditAmountHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value)
End Set
End Property
Property DebitRAmountHUF() As Double
Get
Return _DebitRAmountHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("DebitRAmountHUF", _DebitRAmountHUF, value)
End Set
End Property
Property CreditRAmountHUF() As Double
Get
Return _CreditRAmountHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("CreditRAmountHUF", _CreditRAmountHUF, value)
End Set
End Property
Property BallanceRulliringHUF As Double
Get
Return _BallanceRulliringHUF
End Get
Set(value As Double)
SetPropertyValue("BallanceRulliringHUF", _BallanceRulliringHUF, value)
End Set
End Property
Property BallanceRulliringDEV As Double
Get
Return _BallanceRulliringDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceRulliringDEV", _BallanceRulliringDEV, value)
End Set
End Property
Property AccountNumberFrom() As String
Get
Return _AccountNumberFrom
End Get
Set(ByVal value As String)
SetPropertyValue("AccountNumberFrom", _AccountNumberFrom, value)
End Set
End Property
<Size(255)> _
Property ShortNameFrom() As String
Get
Return _ShortNameFrom
End Get
Set(ByVal value As String)
SetPropertyValue("ShortNameFrom", _ShortNameFrom, value)
End Set
End Property
Property AccountNumberTo() As String
Get
Return _AccountNumberTo
End Get
Set(ByVal value As String)
SetPropertyValue("AccountNumberTo", _AccountNumberTo, value)
End Set
End Property
<Size(255)> _
Property ShortNameTo() As String
Get
Return _ShortNameTo
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortNameTo, value)
End Set
End Property
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
End Get
Set(value As UniqueObjects)
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
<DataSourceCriteria("IsParent=False")> _
Property Controlling As Controlling
Get
Return _Controlling
End Get
Set(value As Controlling)
SetPropertyValue("controlling", _Controlling, value)
End Set
End Property
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
End Get
Set(value As JobNumberObjects)
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
Property CostPlace As CostPlace
Get
Return _CostPlace
End Get
Set(value As CostPlace)
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
Property CostHolder As CostHolder
Get
Return _CostHolder
End Get
Set(value As CostHolder)
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
Property GLRows As GLRows
Get
Return _GLRows
End Get
Set(value As GLRows)
SetPropertyValue("GLRows", _GLRows, value)
End Set
End Property
<Browsable(False)> _
Property IsDivided As Boolean
Get
Return _IsDivided
End Get
Set(value As Boolean)
SetPropertyValue("IsDivided", _IsDivided, value)
End Set
End Property
Property DebitAmountDEV As Double
Get
Return _DebitAmountDEV
End Get
Set(value As Double)
SetPropertyValue("DebitAmountDEV", _DebitAmountDEV, value)
End Set
End Property
Property CreditAmountDEV As Double
Get
Return _CreditAmountDEV
End Get
Set(value As Double)
SetPropertyValue("CreditAmountDEV", _CreditAmountDEV, value)
End Set
End Property
Property DebitAmountDEV2 As Double
Get
Return _DebitAmountDEV2
End Get
Set(value As Double)
SetPropertyValue("DebitAmountDEV2", _DebitAmountDEV2, value)
End Set
End Property
Property CreditAmountDEV2 As Double
Get
Return _CreditAmountDEV2
End Get
Set(value As Double)
SetPropertyValue("CreditAmountDEV2", _CreditAmountDEV2, value)
End Set
End Property
Property CurrencyRate As Double
Get
Return _CurrencyRate
End Get
Set(value As Double)
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
End Set
End Property
Property CurrencyRate2 As Double
Get
Return _CurrencyRate2
End Get
Set(value As Double)
SetPropertyValue("CurrencyRate2", _CurrencyRate2, value)
End Set
End Property
ReadOnly Property BallanceHUF As Double
Get
Return DebitAmountHUF - CreditAmountHUF
End Get
End Property
ReadOnly Property BallanceDEV As Double
Get
Return DebitAmountDEV - CreditAmountDEV
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRowsPCI.vb
+132
View File
@@ -0,0 +1,132 @@
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), DeferredDeletion(False)> _
Public Class GLCardsRowsPCI ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
End Sub
Private _GLCardsHeader As GLCardsHeader
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _ConnectInfo As String
Private _BallanceHUF_Card_Debit As Double
Private _BallanceHUF_Card_Credit As Double
Private _BallanceHUF_Card As Double
Private _BallanceHUF_PCI As Double
Private _DifferentHUF As Double
<Association("GLCardsHeader-GLCardsRowsPCI", GetType(GLCardsHeader))> _
Property GLCardsHeader() As GLCardsHeader
Get
Return _GLCardsHeader
End Get
Set(ByVal value As GLCardsHeader)
SetPropertyValue("GLCardsHeader", _GLCardsHeader, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property BallanceHUF_Card_Debit As Double
Get
Return _BallanceHUF_Card_Debit
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_Card_Debit", _BallanceHUF_Card_Debit, value)
End Set
End Property
Property BallanceHUF_Card_Credit As Double
Get
Return _BallanceHUF_Card_Credit
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_Card_Credit", _BallanceHUF_Card_Credit, value)
End Set
End Property
Property BallanceHUF_Card As Double
Get
Return _BallanceHUF_Card
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_Card", _BallanceHUF_Card, value)
End Set
End Property
Property BallanceHUF_PCI As Double
Get
Return _BallanceHUF_PCI
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_PCI", _BallanceHUF_PCI, value)
End Set
End Property
Property DifferentHUF As Double
Get
Return _DifferentHUF
End Get
Set(value As Double)
SetPropertyValue("DifferentHUF", _DifferentHUF, 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
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReport.vb
+416
View File
@@ -0,0 +1,416 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
Imports DevExpress.ExpressApp.Editors
'-- Fõkönyvi kivonat
'-- Fõkönyvi kimutatás részletes 2 féle nézettel (Grid, PivotGrid)
Public Enum eGLReportType
GeneralLedger = 0
Controlling = 1
End Enum
Public Enum eGLReportDashboardType
eNoDashboard = 0
eDashboard1 = 1
eDashboard2 = 2
eDashboard3 = 3
eDashboard4 = 4
End Enum
Public Enum eGLReportOwner
ePublic = 0
ePrivate = 1
End Enum
Public Enum eGLReportState
eInProgress
eReady
End Enum
Public Enum eDateExecutionMode
eHeader = 0
eRows = 1
End Enum
Public Enum eGLReportCustomViewNumber
eNotSet = 0
e01 = 1
e02 = 2
e03 = 3
e04 = 4
e05 = 5
e06 = 6
e07 = 7
e08 = 8
e09 = 9
e10 = 10
e11 = 11
e12 = 12
e13 = 13
e14 = 14
e15 = 15
e16 = 16
e17 = 17
e18 = 18
e19 = 19
e20 = 20
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<ImageName("BO_Report")> _
<DeferredDeletion(False)> _
<Appearance("Disable UserCreated,ObjectCreated-GLReport",
AppearanceItemType:="ViewItem",
Enabled:=False,
TargetItems:="ObjectCreated;UserCreated;QueryStatistics",
Criteria:="1=1")> _
<Appearance("Hide properties when ReportType=0",
AppearanceItemType:="ViewItem",
TargetItems:="IsInvoice;IsRegistry;IsContract",
Criteria:="ReportType=0",
visibility:=Editors.ViewItemVisibility.Hide,
context:="DetailView")> _
<Appearance("Hide GLReportRowsCostHolder",
AppearanceItemType:="ViewItem",
targetitems:="GLReportRowsCostHolder",
criteria:="ReportType='GeneralLedger'",
visibility:=Editors.ViewItemVisibility.Hide,
context:="DetailView")> _
<Appearance("Hide Criteria",
AppearanceItemType:="ViewItem",
targetitems:="Criteria",
criteria:="ReportType != 'GeneralLedger'",
visibility:=Editors.ViewItemVisibility.Hide,
context:="DetailView")> _
<Appearance("Hide GLReport CustomersFrom",
AppearanceItemType:="ViewItem",
targetitems:="CustomersFrom",
criteria:="IsCustomersFrom=True",
visibility:=Editors.ViewItemVisibility.Hide,
context:="DetailView")> _
<Appearance("Hide TabFilter",
AppearanceItemType:="AppearanceItemType.LayoutItem",
targetitems:="@TabFilter",
criteria:="IsPublic=True",
visibility:=Editors.ViewItemVisibility.Hide,
context:="DetailView")> _
<Appearance("Hide parameters when InPublic",
AppearanceItemType:="ViewItem",
targetitems:="GLReportCustomersFrom;GLReportChartOfAccounts;GLReportUsers;GLReportDateExecutionMode;CustomersFrom;" +
"GLReportDashboardType;ReportType;GroupName1;GroupName2;ShortName;ObjectCreated;UserCreated;IsInvoice;" +
"IsRegistry;IsContract;IsCustomersFrom;GLReportState;GLReportOwner", _
criteria:="InPublic=True",
visibility:=Editors.ViewItemVisibility.Hide,
context:="DetailView")> _
<Appearance("Disable dates when InPublic",
AppearanceItemType:="ViewItem",
Enabled:=False,
TargetItems:="GLReportCustomersFrom;GLReportChartOfAccounts",
Criteria:="InPublic=True")> _
Public Class GLReport
Inherits BaseObject
Private _GLReportDashboardType As eGLReportDashboardType 'Report milyen mûszerfalra menjen fel
Private _ReportType As eGLReportType 'Report tipusa
Private _CustomersFrom As CustomersFrom 'Saját cég
Private _GroupName1 As String 'I. csoportosítás
Private _GroupName2 As String ' II. Csoportosítás
Private _ShortName As String 'Report megnevezése
Private _FromDate As Date 'Dátumtól
Private _ToDate As Date 'Dátumig
Private _ObjectCreated As Date 'Létrehozva
Private _UserCreated As User 'Létrehozta
Private _IsInvoice As Boolean = True
Private _IsRegistry As Boolean = True
Private _IsContract As Boolean = True
Private _IsCustomersFrom As Boolean = False 'True akkor cégfüggetlen lekérdezés
Private _GLReportState As eGLReportState = eGLReportState.eInProgress
Private _GLReportOwner As eGLReportOwner = eGLReportOwner.ePrivate
Private _GLReportDateExecutionMode As eDateExecutionMode = eDateExecutionMode.eHeader
Private _VariantSelectedItemID As String
Private _Criteria As String 'További kritéria
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
Me.IsContract = True
Me.IsInvoice = True
Me.IsRegistry = True
Me.FromDate = FirstDayOfYear(GetSQLTime(Session))
Me.ToDate = LastDayOfYear(GetSQLTime(Session))
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Protected Overrides Sub OnDeleting()
MyBase.OnDeleting()
Select Case GLOBAL_SQLType
Case eSQLType.PostgreSQL
Session.ExecuteNonQuery("delete from ""GLReportRowsCostHolder"" where ""GLReport""='" & Me.Oid.ToString & "'")
Session.ExecuteNonQuery("delete from ""GLReportRows"" where ""GLReport""='" & Me.Oid.ToString & "'")
Session.ExecuteNonQuery("delete from ""GLReportCustomersFrom"" where ""GLReport""='" & Me.Oid.ToString & "'")
Session.ExecuteNonQuery("delete from ""GLReportChartOfAccounts"" where ""GLReport""='" & Me.Oid.ToString & "'")
Case Else
Session.ExecuteNonQuery("delete from GLReportRowsCostHolder where GLReport='" & Me.Oid.ToString & "'")
Session.ExecuteNonQuery("delete from GLReportRows where GLReport='" & Me.Oid.ToString & "'")
Session.ExecuteNonQuery("delete from GLReportCustomersFrom where GLReport='" & Me.Oid.ToString & "'")
Session.ExecuteNonQuery("delete from GLReportChartOfAccounts where GLReport='" & Me.Oid.ToString & "'")
End Select
End Sub
Property GLReportDashboardType As eGLReportDashboardType
Get
Return _GLReportDashboardType
End Get
Set(value As eGLReportDashboardType)
SetPropertyValue("GLReportDashboardType", _GLReportDashboardType, value)
End Set
End Property
<ImmediatePostData()> _
Property ReportType As eGLReportType
Get
Return _ReportType
End Get
Set(value As eGLReportType)
SetPropertyValue("ReportType", _ReportType, value)
End Set
End Property
Property GroupName1 As String
Get
Return _GroupName1
End Get
Set(value As String)
SetPropertyValue("GroupName1", _GroupName1, value)
End Set
End Property
Property GroupName2 As String
Get
Return _GroupName2
End Get
Set(value As String)
SetPropertyValue("GroupName2", _GroupName2, value)
End Set
End Property
<RuleRequiredField("GLReport-ShortName", DefaultContexts.Save)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
Property FromDate As Date
Get
Return _FromDate
End Get
Set(value As Date)
SetPropertyValue("FromDate", _FromDate, value)
End Set
End Property
Property ToDate As Date
Get
Return _ToDate
End Get
Set(value As Date)
SetPropertyValue("ToDate", _ToDate, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<NonCloneable()> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable()> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
Property IsInvoice As Boolean
Get
Return _IsInvoice
End Get
Set(value As Boolean)
SetPropertyValue("IsInvoice", _IsInvoice, value)
End Set
End Property
Property IsRegistry As Boolean
Get
Return _IsRegistry
End Get
Set(value As Boolean)
SetPropertyValue("IsRegistry", _IsRegistry, value)
End Set
End Property
Property IsContract As Boolean
Get
Return _IsContract
End Get
Set(value As Boolean)
SetPropertyValue("IsContract", _IsContract, value)
End Set
End Property
<ImmediatePostData(True)> _
Property IsCustomersFrom As Boolean
Get
Return _IsCustomersFrom
End Get
Set(value As Boolean)
SetPropertyValue("IsCustomersFrom", _IsCustomersFrom, value)
End Set
End Property
<Browsable(False)> _
Property VariantSelectedItemID As String
Get
Return _VariantSelectedItemID
End Get
Set(value As String)
SetPropertyValue("VariantSelectedItemID", _VariantSelectedItemID, value)
End Set
End Property
Property GLReportState As eGLReportState
Get
Return _GLReportState
End Get
Set(value As eGLReportState)
SetPropertyValue("GLReportState", _GLReportState, value)
End Set
End Property
Property GLReportOwner As eGLReportOwner
Get
Return _GLReportOwner
End Get
Set(value As eGLReportOwner)
SetPropertyValue("GLReportOwner", _GLReportOwner, value)
End Set
End Property
Property GLReportDateExecutionMode As eDateExecutionMode
Get
Return _GLReportDateExecutionMode
End Get
Set(value As eDateExecutionMode)
SetPropertyValue("GLReportDateExecutionMode", _GLReportDateExecutionMode, value)
End Set
End Property
<CriteriaOptionsAttribute("ObjectType"), Size(-1)> _
Property Criteria As String
Get
Return _Criteria
End Get
Set(value As String)
SetPropertyValue("Criteria", _Criteria, value)
End Set
End Property
<NonPersistent(), MemberDesignTimeVisibility(False)> _
Public Property ObjectType() As Type
Get
Return GetType(GLRows)
End Get
Set(ByVal value As Type)
End Set
End Property
<Browsable(False)> _
ReadOnly Property InPublic As Boolean
Get
If Session.IsNewObject(Me) Then
Return False
Else
Dim _User As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
Dim _GLReportUsers As GLReportUsers
Dim _InPublic As Boolean = True
For Each _GLReportUsers In Me.GLReportUsers
If _GLReportUsers.User.Oid = _User.Oid Then
_InPublic = False
End If
Next
If _UserCreated.Oid = _User.Oid Then
_InPublic = False
End If
Return _InPublic
End If
End Get
End Property
'//XPCollections
<Association("GLReport-GLReportRows", GetType(GLReportRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLReportRows As XPCollection(Of GLReportRows)
Get
Return GetCollection(Of GLReportRows)("GLReportRows")
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLReportRowsCostHolder As XPCollection(Of GLReportRowsCostHolder)
Get
Dim _GLReportRowsCostHolder_Collection As New XPCollection(Of GLReportRowsCostHolder)(Session, CriteriaOperator.Parse("GLReport=?", Me))
Return _GLReportRowsCostHolder_Collection
End Get
End Property
'//Szűrőfeltételek
<Association("GLReport-GLReportCustomersFrom", GetType(GLReportCustomersFrom)), VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLReportCustomersFrom As XPCollection(Of GLReportCustomersFrom)
Get
Return GetCollection(Of GLReportCustomersFrom)("GLReportCustomersFrom")
End Get
End Property
<Association("GLReport-GLReportChartOfAccounts", GetType(GLReportChartOfAccounts))> _
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLReportChartOfAccounts As XPCollection(Of GLReportChartOfAccounts)
Get
Return GetCollection(Of GLReportChartOfAccounts)("GLReportChartOfAccounts")
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property QueryStatistics As XPCollection(Of QueryStatistics)
Get
Return New XPCollection(Of QueryStatistics)(Session, CriteriaOperator.Parse("ObjectName=? and ObjectKey=?", "GLReport", Me.Oid))
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
<Association("GLReport-GLReportUsers", GetType(GLReportUsers))> _
ReadOnly Property GLReportUsers As XPCollection(Of GLReportUsers)
Get
Return GetCollection(Of GLReportUsers)("GLReportUsers")
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowHeader.vb
+133
View File
@@ -0,0 +1,133 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
Imports DevExpress.ExpressApp.Editors
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
<Appearance("Hide CustomersFrom if IsCustomersFrom=True", AppearanceItemType:="ViewItem", criteria:="IsCustomersFrom=True", targetitems:="CustomersFrom", visibility:=ViewItemVisibility.Hide)> _
Public Class GLReportCashflowHeader
Inherits BaseObject
Private _GLReportDashboardType As eGLReportDashboardType
Private _CustomersFrom As CustomersFrom
Private _ShortName As String
Private _FromDate As Date
Private _ToDate As Date
Private _ObjectCreated As Date
Private _UserCreated As User
Private _IsCustomersFrom As Boolean = False 'True akkor cégfüggetlen lekérdezés
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
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
Me.FromDate = FirstDayOfYear(GetSQLTime(Session))
Me.ToDate = LastDayOfYear(GetSQLTime(Session))
End Sub
Property GLReportDashboardType As eGLReportDashboardType
Get
Return _GLReportDashboardType
End Get
Set(value As eGLReportDashboardType)
SetPropertyValue("GLReportDashboardType", _GLReportDashboardType, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<RuleRequiredField("GLReportCashflowHeader-ShortName", DefaultContexts.Save)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
Property FromDate As Date
Get
Return _FromDate
End Get
Set(value As Date)
SetPropertyValue("FromDate", _FromDate, value)
End Set
End Property
Property ToDate As Date
Get
Return _ToDate
End Get
Set(value As Date)
SetPropertyValue("ToDate", _ToDate, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<ImmediatePostData(True)> _
Property IsCustomersFrom As Boolean
Get
Return _IsCustomersFrom
End Get
Set(value As Boolean)
SetPropertyValue("IsCustomersFrom", _IsCustomersFrom, value)
End Set
End Property
<Association("GLReportCashflowHeader-GLReportCashflowRows", GetType(GLReportCashflowRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLReportCashflowRows As XPCollection(Of GLReportCashflowRows)
Get
Return GetCollection(Of GLReportCashflowRows)("GLReportCashflowRows")
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property QueryStatistics As XPCollection(Of QueryStatistics)
Get
Return New XPCollection(Of QueryStatistics)(Session, CriteriaOperator.Parse("ObjectName=? and ObjectKey=?", "GLReportCashflowHeader", Me.Oid))
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowRows.vb
+242
View File
@@ -0,0 +1,242 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
<Appearance("Color Blue when not from GLRows II", AppearanceItemType:="ViewItem", Fontcolor:="Blue", targetitems:="*", Criteria:="GLReportRowsState in ('eRegistry','eInvoice')")> _
Public Class GLReportCashflowRows
Inherits BaseObject
Private _GLReportRowsState As eGLReportRowsState
Private _GLReportCashflowHeader As GLReportCashflowHeader
Private _ChartOfAccounts As ChartOfAccounts
Private _Controlling As Controlling
Private _CostHolder As CostHolder
Private _CostPlace As CostPlace
Private _UniqueObjects As UniqueObjects
Private _JobNumberObjects As JobNumberObjects
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _ConnectInfo As String
Private _DateExecution_Y As String
Private _DateExecution_Q As String
Private _DateExecution_M As String
Private _DateExecution_W As String
Private _DateExecution As Date
Private _LiquidAssets As LiquidAssets
Private _AmountHUF_Open As Double
Private _AmountDEV_Open As Double
Private _InAmountHUF As Double = 0 'Pénztár miatt befizetés
Private _OutAmountHUF As Double = 0 'Pénztár miatt kifizetés
Private _InAmountDEV As Double = 0 'Pénztár miatt befizetés
Private _OutAmountDEV As Double = 0 'Pénztár miatt kifizetés
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 GLReportRowsState As eGLReportRowsState
Get
Return _GLReportRowsState
End Get
Set(value As eGLReportRowsState)
SetPropertyValue("GLReportRowsState", _GLReportRowsState, value)
End Set
End Property
<Association("GLReportCashflowHeader-GLReportCashflowRows", GetType(GLReportCashflowHeader))> _
Property GLReportCashflowHeader As GLReportCashflowHeader
Get
Return _GLReportCashflowHeader
End Get
Set(value As GLReportCashflowHeader)
SetPropertyValue("GLReportCashflowHeader", _GLReportCashflowHeader, value)
End Set
End Property
Property ChartOfAccounts As ChartOfAccounts
Get
Return _ChartOfAccounts
End Get
Set(value As ChartOfAccounts)
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
End Set
End Property
<DataSourceCriteria("IsParent=False")> _
Property Controlling As Controlling
Get
Return _Controlling
End Get
Set(ByVal value As Controlling)
SetPropertyValue("Controlling", _Controlling, value)
End Set
End Property
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
End Get
Set(ByVal value As UniqueObjects)
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
Property CostHolder As CostHolder
Get
Return _CostHolder
End Get
Set(ByVal value As CostHolder)
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
Property CostPlace As CostPlace
Get
Return _CostPlace
End Get
Set(ByVal value As CostPlace)
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
End Get
Set(ByVal value As JobNumberObjects)
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property DateExecution_Y As String
Get
Return _DateExecution_Y
End Get
Set(value As String)
SetPropertyValue("DateExecution_Y", _DateExecution_Y, value)
End Set
End Property
Property DateExecution_Q As String
Get
Return _DateExecution_Q
End Get
Set(value As String)
SetPropertyValue("DateExecution_Q", _DateExecution_Q, value)
End Set
End Property
Property DateExecution_M As String
Get
Return _DateExecution_M
End Get
Set(value As String)
SetPropertyValue("DateExecution_M", _DateExecution_M, value)
End Set
End Property
Property DateExecution_W As String
Get
Return _DateExecution_W
End Get
Set(value As String)
SetPropertyValue("DateExecution_W", _DateExecution_W, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property LiquidAssets As LiquidAssets
Get
Return _LiquidAssets
End Get
Set(value As LiquidAssets)
SetPropertyValue("LiquidAssets", _LiquidAssets, value)
End Set
End Property
Property AmountHUF_Open As Double
Get
Return _AmountHUF_Open
End Get
Set(value As Double)
SetPropertyValue("AmountHUF_Open", _AmountHUF_Open, value)
End Set
End Property
Property AmountDEV_Open As Double
Get
Return _AmountDEV_Open
End Get
Set(value As Double)
SetPropertyValue("AmountDEV_Open", _AmountDEV_Open, value)
End Set
End Property
Property InAmountHUF As Double
Get
Return _InAmountHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("InAmountHUF", _InAmountHUF, value)
End Set
End Property
Property OutAmountHUF As Double
Get
Return _OutAmountHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("OutAmountHUF", _OutAmountHUF, value)
End Set
End Property
Property InAmountDEV As Double
Get
Return _InAmountDEV
End Get
Set(ByVal value As Double)
SetPropertyValue("InAmountDEV", _InAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero))
End Set
End Property
Property OutAmountDEV As Double
Get
Return _OutAmountDEV
End Get
Set(ByVal value As Double)
SetPropertyValue("OutAmountDEV", _OutAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero))
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb
Generated
+65
View File
@@ -0,0 +1,65 @@
Partial Class GLReportCashflowVC
<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.aGenerateGLReportCashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachments_Cashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aGenerateGLReportCashflow
'
Me.aGenerateGLReportCashflow.Caption = "aGenerateGLReportCashflow"
Me.aGenerateGLReportCashflow.Category = "View"
Me.aGenerateGLReportCashflow.ConfirmationMessage = "Do you want to execute command ?"
Me.aGenerateGLReportCashflow.Id = "aGenerateGLReportCashflow"
Me.aGenerateGLReportCashflow.ImageName = "stopwatch_run"
Me.aGenerateGLReportCashflow.Shortcut = Nothing
Me.aGenerateGLReportCashflow.Tag = Nothing
Me.aGenerateGLReportCashflow.TargetObjectsCriteria = Nothing
Me.aGenerateGLReportCashflow.TargetViewId = ""
Me.aGenerateGLReportCashflow.ToolTip = Nothing
Me.aGenerateGLReportCashflow.TypeOfView = Nothing
'
'aViewAttachments_Cashflow
'
Me.aViewAttachments_Cashflow.Caption = "View attachments"
Me.aViewAttachments_Cashflow.ConfirmationMessage = Nothing
Me.aViewAttachments_Cashflow.Id = "aViewAttachments_Cashflow"
Me.aViewAttachments_Cashflow.ImageName = "printer_view"
Me.aViewAttachments_Cashflow.Shortcut = Nothing
Me.aViewAttachments_Cashflow.Tag = Nothing
Me.aViewAttachments_Cashflow.TargetObjectsCriteria = Nothing
Me.aViewAttachments_Cashflow.TargetObjectType = GetType(SISBusiness.[Module].GLReportCashflowRows)
Me.aViewAttachments_Cashflow.TargetViewId = ""
Me.aViewAttachments_Cashflow.ToolTip = Nothing
Me.aViewAttachments_Cashflow.TypeOfView = Nothing
End Sub
Friend WithEvents aGenerateGLReportCashflow As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachments_Cashflow As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx
+129
View File
@@ -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="aGenerateGLReportCashflow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aViewAttachments_Cashflow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb
+355
View File
@@ -0,0 +1,355 @@
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
Public Class GLReportCashflowVC
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()
Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", False)
If View.Id = "GLReportCashflowHeader_DetailView" Then
Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", True)
End If
If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Table" Or _
View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then
Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", True)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "GLReportCashflowHeader_DetailView" Then
Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", False)
End If
If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Table" Or _
View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then
Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", False)
End If
End Sub
Private Sub aGenerateGLReportCashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLReportCashflow.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
Dim _uow_stat As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
Dim _GLReportCashflowHeader As GLReportCashflowHeader = Nothing
Dim _GLReportCashflowRows As GLReportCashflowRows = Nothing
Dim _PCIDetailCollection As XPCollection(Of PCIDetail)
If TryCast(View, ListView) IsNot Nothing Then
Dim _ListView As ListView = TryCast(View, ListView)
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
If _PropertyCollectionSource IsNot Nothing Then
_GLReportCashflowHeader = _uow.GetObjectByKey(Of GLReportCashflowHeader)(TryCast(_PropertyCollectionSource.MasterObject, GLReportCashflowHeader).Oid)
Else
_GLReportCashflowRows = TryCast(_ListView.CollectionSource.List(0), GLReportCashflowRows)
If _GLReportCashflowRows IsNot Nothing Then
_GLReportCashflowHeader = _uow.GetObjectByKey(Of GLReportCashflowHeader)(_GLReportCashflowRows.GLReportCashflowHeader.Oid)
End If
End If
ElseIf TryCast(View, DetailView) IsNot Nothing Then
_GLReportCashflowHeader = _uow.GetObjectByKey(Of GLReportCashflowHeader)(TryCast(View.SelectedObjects(0), GLReportCashflowHeader).Oid)
End If
If _GLReportCashflowHeader Is Nothing Then Exit Sub
Dim _QueryStatistics As QueryStatistics = New QueryStatistics(_uow_stat)
_QueryStatistics.TimeStart = GetSQLTime(_uow_stat)
_QueryStatistics.ObjectKey = _GLReportCashflowHeader.Oid
_QueryStatistics.ObjectName = "GLReportCashflowHeader"
Dim _GLReportCashflowRows_Collection As New XPCollection(Of GLReportCashflowRows)(_uow, CriteriaOperator.Parse("GLReportCashflowHeader.Oid=?", _GLReportCashflowHeader))
_uow.Delete(_GLReportCashflowRows_Collection)
'//Pénzeszközönként fel kell vinni a nyitót ami a FromDate-t megelõzõ idõszak
'// --------------------------------- Most a beérkezett p.ü. teljesítések --------------------------------------------------
If _GLReportCashflowHeader.IsCustomersFrom Then
_PCIDetailCollection = New XPCollection(Of PCIDetail)(_uow, CriteriaOperator.Parse("GetDate(DateExecution) between (?,?) and GLRows.GLHeader.GLDocumentType in ('eGLBank','eGLCassa','eGLCompensation')", _
_GLReportCashflowHeader.FromDate.Date, _GLReportCashflowHeader.ToDate.Date))
Else
_PCIDetailCollection = New XPCollection(Of PCIDetail)(_uow, CriteriaOperator.Parse("CustomersFrom.Oid=? and GetDate(DateExecution) between (?,?) and GLRows.GLHeader.GLDocumentType in ('eGLBank','eGLCassa','eGLCompensation')", _
_GLReportCashflowHeader.CustomersFrom.Oid, _GLReportCashflowHeader.FromDate.Date, _GLReportCashflowHeader.ToDate.Date))
End If
Dim _PCIDetail As PCIDetail
RaiseEvent InitWork(1, 1, _PCIDetailCollection.Count)
_QueryStatistics.RecordNumber = _PCIDetailCollection.Count
For Each _PCIDetail In _PCIDetailCollection
RaiseEvent DoWork()
If _PCIDetail.GLRows.PartnerType = ePartnerType.eNotSet Then
'// Normál tétel
_GLReportCashflowRows = New GLReportCashflowRows(_uow)
_GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eGLFinal
_GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader
_GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom
_GLReportCashflowRows.Customers = _PCIDetail.Customers
_GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo
_GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets
_GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution
_GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4)
_GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.InAmountHUF = _PCIDetail.GLRows.InAmountHUF
_GLReportCashflowRows.InAmountDEV = _PCIDetail.GLRows.InAmountDEV
_GLReportCashflowRows.OutAmountHUF = _PCIDetail.GLRows.OutAmountHUF
_GLReportCashflowRows.OutAmountDEV = _PCIDetail.GLRows.OutAmountDEV
If _PCIDetail.GLRows.DebitChartOfAccounts Is _PCIDetail.GLRows.LiquidAssets.GetChartOfAccounts(_PCIDetail.DateExecution.Year, 0) Then
_GLReportCashflowRows.ChartOfAccounts = _PCIDetail.GLRows.CreditChartOfAccounts
Else
_GLReportCashflowRows.ChartOfAccounts = _PCIDetail.GLRows.DebitChartOfAccounts
End If
_GLReportCashflowRows.Controlling = _PCIDetail.GLRows.Controlling
_GLReportCashflowRows.CostHolder = _PCIDetail.GLRows.CostHolder
_GLReportCashflowRows.CostPlace = _PCIDetail.GLRows.CostPlace
_GLReportCashflowRows.UniqueObjects = _PCIDetail.GLRows.UniqueObjects
_GLReportCashflowRows.JobNumberObjects = _PCIDetail.GLRows.JobNumberObjects
Else
'//GLAccountban keresés
Dim _GLAccounts As GLAccounts = _uow.FindObject(Of GLAccounts)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=?", _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _PCIDetail.ConnectInfo))
If _GLAccounts IsNot Nothing Then
Dim _GLRows As GLRows
Dim _AmountHUFVAT As Double = 0
Dim _AmountDEVVAT As Double = 0
For Each _GLRows In _GLAccounts.GLRows
If _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow Then
_AmountHUFVAT += _GLRows.AmountHUF
_AmountDEVVAT += _GLRows.AmountDEV
End If
Next
Dim _AmountHUFNetto As Double = _GLAccounts.AmountHUFBrutto - _AmountHUFVAT
Dim _AmountDEVNetto As Double = _GLAccounts.AmountDEVBrutto - _AmountDEVVAT
For Each _GLRows In _GLAccounts.GLRows
If _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow Then
_GLReportCashflowRows = New GLReportCashflowRows(_uow)
_GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eGLFinal
_GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader
_GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom
_GLReportCashflowRows.Customers = _PCIDetail.Customers
_GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo
_GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets
_GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution
_GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4)
_GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
If _AmountHUFNetto <> 0 Then
If (_GLRows.AmountHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.InAmountHUF = Math.Round(_PCIDetail.GLRows.InAmountHUF * (_GLRows.AmountHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero)
If (_GLRows.AmountHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.OutAmountHUF = Math.Round(_PCIDetail.GLRows.OutAmountHUF * (_GLRows.AmountHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero)
End If
If _AmountDEVNetto <> 0 Then
If (_GLRows.AmountDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.InAmountDEV = Math.Round(_PCIDetail.GLRows.InAmountDEV * (_GLRows.AmountDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero)
If (_GLRows.AmountDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.OutAmountDEV = Math.Round(_PCIDetail.GLRows.OutAmountDEV * (_GLRows.AmountDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero)
End If
_GLReportCashflowRows.Controlling = _GLRows.Controlling
_GLReportCashflowRows.CostHolder = _GLRows.CostHolder
_GLReportCashflowRows.CostPlace = _GLRows.CostPlace
_GLReportCashflowRows.UniqueObjects = _GLRows.UniqueObjects
_GLReportCashflowRows.JobNumberObjects = _GLRows.JobNumberObjects
End If
Next
Else
'//InvoiceHeaderben kersesés
Dim _InvoiceHeader As InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and ConnectInfo=? and isnull(GLAccounts)=True", _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.ConnectInfo))
If _InvoiceHeader IsNot Nothing AndAlso _PCIDetail.PartnerType = ePartnerType.eReceivables Then
Dim _InvoiceRows As InvoiceRows
Dim _AmountHUFNetto As Double = 0
Dim _AmountDEVNetto As Double = 0
Dim _InvoiceVATRows As InvoiceVATRows
For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows
_AmountDEVNetto += _InvoiceVATRows.AmountNettoDEV
_AmountHUFNetto += _InvoiceVATRows.AmountNettoHUF
Next
For Each _InvoiceRows In _InvoiceHeader.InvoiceRows
Dim _FinalPriceHUF As Double = Math.Round((_InvoiceRows.ListPriceHUF - _InvoiceRows.DiscountPriceHUF) * _InvoiceRows.QTT, 0, MidpointRounding.AwayFromZero)
Dim _FinalPriceDEV As Double = Math.Round((_InvoiceRows.ListPriceHUF - _InvoiceRows.DiscountPriceHUF) * _InvoiceRows.QTT, 2, MidpointRounding.AwayFromZero)
_GLReportCashflowRows = New GLReportCashflowRows(_uow)
_GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eInvoice
_GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader
_GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom
_GLReportCashflowRows.Customers = _PCIDetail.Customers
_GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo
_GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets
_GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution
_GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4)
_GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
If _AmountHUFNetto <> 0 Then
If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.InAmountHUF = Math.Round(_PCIDetail.GLRows.InAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero)
If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.OutAmountHUF = Math.Round(_PCIDetail.GLRows.OutAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero)
End If
If _AmountDEVNetto <> 0 Then
If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.InAmountDEV = Math.Round(_PCIDetail.GLRows.InAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero)
If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.OutAmountDEV = Math.Round(_PCIDetail.GLRows.OutAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero)
End If
_GLReportCashflowRows.Controlling = _InvoiceRows.Controlling
_GLReportCashflowRows.CostHolder = _InvoiceRows.CostHolder
_GLReportCashflowRows.CostPlace = _InvoiceRows.CostPlace
_GLReportCashflowRows.UniqueObjects = _InvoiceRows.UniqueObjects
_GLReportCashflowRows.JobNumberObjects = _InvoiceRows.JobNumberObjects
Next
Else
'//RegistryHeaderben keresés
Dim _RegistryHeader As RegistryHeader = _uow.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and ConnectInfo=? and isnull(F_GLAccounts)=True and RegistryType.RegistryMainType in (0,2,3,4)"))
If _RegistryHeader IsNot Nothing AndAlso _PCIDetail.PartnerType = ePartnerType.ePayabels Then
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
Dim _RegistryRowsFinancial As RegistryRowsFinancial
Dim _AmountHUFNetto As Double = 0
Dim _AmountDEVNetto As Double = 0
Dim _AmountHUFVAT As Double = 0
Dim _AmountDEVVAT As Double = 0
For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial
_AmountHUFVAT += _RegistryRowsFinancial.NettoAmount
If _RegistryHeader.F_CurrencyRate <> 0 Then
_AmountDEVVAT += Math.Round(_RegistryRowsFinancial.NettoAmount / _RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero)
End If
Next
_AmountHUFNetto = _RegistryHeader.F_AmountBruttoHUF - _AmountHUFVAT
If _RegistryHeader.F_CurrencyRate <> 0 Then
_AmountDEVNetto = _AmountHUFNetto / _RegistryHeader.F_CurrencyRate
End If
For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling
Dim _FinalPriceHUF As Double = _RegistryRowsFinancialControlling.Amount
Dim _FinalPriceDEV As Double = 0
If _RegistryHeader.F_CurrencyRate <> 0 Then
_FinalPriceDEV = _FinalPriceHUF / _RegistryHeader.F_CurrencyRate
End If
_GLReportCashflowRows = New GLReportCashflowRows(_uow)
_GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eRegistry
_GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader
_GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom
_GLReportCashflowRows.Customers = _PCIDetail.Customers
_GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo
_GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets
_GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution
_GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4)
_GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
If _AmountHUFNetto <> 0 Then
If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.InAmountHUF = Math.Round(_PCIDetail.GLRows.InAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero)
If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.OutAmountHUF = Math.Round(_PCIDetail.GLRows.OutAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero)
End If
If _AmountDEVNetto <> 0 Then
If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.InAmountDEV = Math.Round(_PCIDetail.GLRows.InAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero)
If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.OutAmountDEV = Math.Round(_PCIDetail.GLRows.OutAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero)
End If
_GLReportCashflowRows.Controlling = _RegistryRowsFinancialControlling.Controlling
_GLReportCashflowRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder
_GLReportCashflowRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace
_GLReportCashflowRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects
_GLReportCashflowRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects
Next
Else
_GLReportCashflowRows = New GLReportCashflowRows(_uow)
_GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eGLFinal
_GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader
_GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom
_GLReportCashflowRows.Customers = _PCIDetail.Customers
_GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo
_GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets
_GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution
_GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4)
_GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2)
_GLReportCashflowRows.InAmountHUF = _PCIDetail.GLRows.InAmountHUF
_GLReportCashflowRows.InAmountDEV = _PCIDetail.GLRows.InAmountDEV
_GLReportCashflowRows.OutAmountHUF = _PCIDetail.GLRows.OutAmountHUF
_GLReportCashflowRows.OutAmountDEV = _PCIDetail.GLRows.OutAmountDEV
End If
End If
End If
End If
_uow.CommitChanges()
Next
_uow.CommitChanges()
_QueryStatistics.TimeStop = GetSQLTime(_uow_stat)
_QueryStatistics.TimeEllapsed = _QueryStatistics.TimeStop - _QueryStatistics.TimeStart
_uow_stat.CommitChanges()
RaiseEvent FinalWork
If TryCast(View, DetailView) IsNot Nothing Then
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
ElseIf TryCast(View, ListView) IsNot Nothing Then
TryCast(View, ListView).CollectionSource.Reload()
End If
End Sub
Private Sub aViewAttachments_Cashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_Cashflow.Execute
Dim _GLReportCashflowRows As GLReportCashflowRows = TryCast(View.SelectedObjects(0), GLReportCashflowRows)
Dim _CustomersFrom As CustomersFrom = _GLReportCashflowRows.CustomersFrom
Dim _Customers As Customers = _GLReportCashflowRows.Customers
Dim _DocumentNumber As String = _GLReportCashflowRows.ConnectInfo
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportChartOfAccounts.vb
+59
View File
@@ -0,0 +1,59 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
<Appearance("Hide GLReportChartOfAccounts Actions when InPublic", AppearanceItemType:="Action", targetitems:="aSelectChartOfAccounts_DTR", criteria:="GLReport.InPublic=True", visibility:=Editors.ViewItemVisibility.Hide)> _
Public Class GLReportChartOfAccounts
Inherits BaseObject
Private _GLReport As GLReport
Private _AccountNumber As String
Private _ShortName As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("GLReport-GLReportChartOfAccounts", GetType(GLReport))> _
Property GLReport As GLReport
Get
Return _GLReport
End Get
Set(value As GLReport)
SetPropertyValue("GLReport", _GLReport, 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
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCustomersFrom.vb
+52
View File
@@ -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.ConditionalAppearance
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
<Appearance("Hide GLReportCustomersFrom Actions when InPublic", AppearanceItemType:="Action", targetitems:="aSelectCustomersFrom_DTR", criteria:="GLReport.InPublic=True", visibility:=Editors.ViewItemVisibility.Hide)> _
Public Class GLReportCustomersFrom
Inherits BaseObject
Private _GLReport As GLReport
Private _CustomersFrom As CustomersFrom
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("GLReport-GLReportCustomersFrom", GetType(GLReport))> _
Property GLReport As GLReport
Get
Return _GLReport
End Get
Set(value As GLReport)
SetPropertyValue("GLReport", _GLReport, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRows.vb
+306
View File
@@ -0,0 +1,306 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
Public Enum eGLReportRowsType
eBallance = 0 'Eredmény
eIncoming = 1 'Mérleg
End Enum
Public Enum eGLReportRowsState
eGLFinal = 0 'Végleges fõkönyvbõl
eGLEditable = 3 'Szerkeszthetõ fõkönyvbõl
eRegistry = 1 'Nem feladott iktatás
eInvoice = 2 'Nem feladott számla
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<ImageName("BO_Report")> _
<DeferredDeletion(False)> _
<Appearance("Color Blue when not from GLRows", AppearanceItemType:="ViewItem", Fontcolor:="Blue", targetitems:="*", Criteria:="isnull(GLRows)=True")> _
<Appearance("Hide GLReportRows-ChangeVariant Actions when InPublic", AppearanceItemType:="Action", targetitems:="ChangeVariant", criteria:="GLReport.InPublic=True", visibility:=Editors.ViewItemVisibility.Hide)> _
Public Class GLReportRows
Inherits BaseObject
Private _GLReport As GLReport
Private _GLReportRowsType As eGLReportRowsType
Private _GLReportRowsState As eGLReportRowsState
Private _GLRows As GLRows
Private _DebitAmount As Double
Private _CreditAmount As Double
Private _BallanceAmount As Double
Private _ChartOfAccounts As ChartOfAccounts
Private _Controlling As Controlling
Private _CostHolder As CostHolder
Private _CostPlace As CostPlace
Private _UniqueObjects As UniqueObjects
Private _JobNumberObjects As JobNumberObjects
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _ConnectInfo As String
Private _DateExecution_Y As String
Private _DateExecution_Q As String
Private _DateExecution_M As String
Private _DateExecution_W As String
Private _DateExecution As Date
Private _RegistryHeader As RegistryHeader
Private _InvoiceHeader As InvoiceHeader
Private _InvoiceRows As InvoiceRows
Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
Private _CurrencyName As CurrencyName
Private _DebitAmountDEV As Double = 0
Private _CreditAmountDEV As Double = 0
Private _BallanceAmountDEV As Double = 0
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("GLReport-GLReportRows", GetType(GLReport))> _
Property GLReport As GLReport
Get
Return _GLReport
End Get
Set(value As GLReport)
SetPropertyValue("GLReport", _GLReport, value)
End Set
End Property
Property GLReportRowsType As eGLReportRowsType
Get
Return _GLReportRowsType
End Get
Set(value As eGLReportRowsType)
SetPropertyValue("GLReportRowsType", _GLReportRowsType, value)
End Set
End Property
Property GLReportRowsState As eGLReportRowsState
Get
Return _GLReportRowsState
End Get
Set(value As eGLReportRowsState)
SetPropertyValue("GLReportRowsState", _GLReportRowsState, value)
End Set
End Property
Property GLRows As GLRows
Get
Return _GLRows
End Get
Set(value As GLRows)
SetPropertyValue("GLRows", _GLRows, value)
End Set
End Property
Property DebitAmount As Double
Get
Return _DebitAmount
End Get
Set(value As Double)
SetPropertyValue("DebitAmount", _DebitAmount, value)
End Set
End Property
Property CreditAmount As Double
Get
Return _CreditAmount
End Get
Set(value As Double)
SetPropertyValue("CreditAmount", _CreditAmount, value)
End Set
End Property
Property BallanceAmount As Double
Get
Return _BallanceAmount
End Get
Set(value As Double)
SetPropertyValue("BallanceAmount", _BallanceAmount, value)
End Set
End Property
<DataSourceCriteria("IsParent=False")> _
Property ChartOfAccounts As ChartOfAccounts
Get
Return _ChartOfAccounts
End Get
Set(value As ChartOfAccounts)
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
End Set
End Property
<DataSourceCriteria("IsParent=False")> _
Property Controlling As Controlling
Get
Return _Controlling
End Get
Set(ByVal value As Controlling)
SetPropertyValue("Controlling", _Controlling, value)
End Set
End Property
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
End Get
Set(ByVal value As UniqueObjects)
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
Property CostHolder As CostHolder
Get
Return _CostHolder
End Get
Set(ByVal value As CostHolder)
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
Property CostPlace As CostPlace
Get
Return _CostPlace
End Get
Set(ByVal value As CostPlace)
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
End Get
Set(ByVal value As JobNumberObjects)
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property DateExecution_Y As String
Get
Return _DateExecution_Y
End Get
Set(value As String)
SetPropertyValue("DateExecution_Y", _DateExecution_Y, value)
End Set
End Property
Property DateExecution_Q As String
Get
Return _DateExecution_Q
End Get
Set(value As String)
SetPropertyValue("DateExecution_Q", _DateExecution_Q, value)
End Set
End Property
Property DateExecution_M As String
Get
Return _DateExecution_M
End Get
Set(value As String)
SetPropertyValue("DateExecution_M", _DateExecution_M, value)
End Set
End Property
Property DateExecution_W As String
Get
Return _DateExecution_W
End Get
Set(value As String)
SetPropertyValue("DateExecution_W", _DateExecution_W, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property RegistryHeader As RegistryHeader
Get
Return _RegistryHeader
End Get
Set(value As RegistryHeader)
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
End Set
End Property
Property InvoiceHeader As InvoiceHeader
Get
Return _InvoiceHeader
End Get
Set(value As InvoiceHeader)
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
End Set
End Property
Property InvoiceRows As InvoiceRows
Get
Return _InvoiceRows
End Get
Set(value As InvoiceRows)
SetPropertyValue("InvoiceRows", _InvoiceRows, value)
End Set
End Property
Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
Get
Return _RegistryRowsFinancialControlling
End Get
Set(value As RegistryRowsFinancialControlling)
SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value)
End Set
End Property
Property CurrencyName As CurrencyName
Get
Return _CurrencyName
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName", _CurrencyName, value)
End Set
End Property
Property DebitAmountDEV As Double
Get
Return _DebitAmountDEV
End Get
Set(value As Double)
SetPropertyValue("DebitAmountDEV", _DebitAmountDEV, value)
End Set
End Property
Property CreditAmountDEV As Double
Get
Return _CreditAmountDEV
End Get
Set(value As Double)
SetPropertyValue("CreditAmountDEV", _CreditAmountDEV, value)
End Set
End Property
Property BallanceAmountDEV As Double
Get
Return _BallanceAmountDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceAmountDEV", _BallanceAmountDEV, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsCostHolder.vb
+80
View File
@@ -0,0 +1,80 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
Public Class GLReportRowsCostHolder
Inherits BaseObject
Private _GLReport As GLReport
Private _GLReportRows As GLReportRows
Private _CostHolder As CostHolder
Private _HRPerson As HRPerson
Private _FixedAssets As FixedAssets
Private _BallanceAmount As Double
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
Property GLReport As GLReport
Get
Return _GLReport
End Get
Set(value As GLReport)
SetPropertyValue("GLReport", _GLReport, value)
End Set
End Property
Property GLReportRows As GLReportRows
Get
Return _GLReportRows
End Get
Set(value As GLReportRows)
SetPropertyValue("GLReportRows", _GLReportRows, 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 HRPerson As HRPerson
Get
Return _HRPerson
End Get
Set(value As HRPerson)
SetPropertyValue("HRPerson", _HRPerson, value)
End Set
End Property
Property FixedAssets As FixedAssets
Get
Return _FixedAssets
End Get
Set(value As FixedAssets)
SetPropertyValue("FixedAssets", _FixedAssets, value)
End Set
End Property
Property BallanceAmount As Double
Get
Return _BallanceAmount
End Get
Set(value As Double)
SetPropertyValue("BallanceAmount", _BallanceAmount, value)
End Set
End Property
'---------------------Subs----------------------
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportUsers.vb
+48
View File
@@ -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(False), CreatableItem(False)> _
Public Class GLReportUsers
Inherits BaseObject
Private _GLReport As GLReport
Private _User As User
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("GLReport-GLReportUsers", GetType(GLReport))> _
Property GLReport As GLReport
Get
Return _GLReport
End Get
Set(value As GLReport)
SetPropertyValue("GLReport", _GLReport, value)
End Set
End Property
Property User As User
Get
Return _User
End Get
Set(value As User)
SetPropertyValue("User", _User, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportXML.vb
+60
View File
@@ -0,0 +1,60 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
Public Class GLReportXML
Inherits BaseObject
Private _GLReport As GLReport
Private _ViewID As String
Private _XMLInfo As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
Property GLReport As GLReport
Get
Return _GLReport
End Get
Set(value As GLReport)
SetPropertyValue("GLReport", _GLReport, value)
End Set
End Property
<Size(-1)> _
Property ViewID As String
Get
Return _ViewID
End Get
Set(value As String)
SetPropertyValue("ViewID", _ViewID, value)
End Set
End Property
<Size(-1)> _
Property XMLInfo As String
Get
Return _XMLInfo
End Get
Set(value As String)
SetPropertyValue("XMLInfo", _XMLInfo, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.Designer.vb
Generated
+131
View File
@@ -0,0 +1,131 @@
Partial Class GLRowsVC
<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.aGenerateGLReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachments_DTR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistry_DTR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGLDTRChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aSelectCustomersFrom_DTR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aSelectChartOfAccounts_DTR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
'
'aGenerateGLReport
'
Me.aGenerateGLReport.Caption = "Generate GL report"
Me.aGenerateGLReport.ConfirmationMessage = "Do you want to execute command ?"
Me.aGenerateGLReport.Id = "aGenerateGLReport"
Me.aGenerateGLReport.ImageName = "stopwatch_run"
Me.aGenerateGLReport.Shortcut = Nothing
Me.aGenerateGLReport.Tag = Nothing
Me.aGenerateGLReport.TargetObjectsCriteria = Nothing
Me.aGenerateGLReport.TargetViewId = ""
Me.aGenerateGLReport.ToolTip = Nothing
Me.aGenerateGLReport.TypeOfView = Nothing
'
'aViewAttachments_DTR
'
Me.aViewAttachments_DTR.Caption = "View attachments"
Me.aViewAttachments_DTR.ConfirmationMessage = Nothing
Me.aViewAttachments_DTR.Id = "aViewAttachments_DTR"
Me.aViewAttachments_DTR.ImageName = "printer_view"
Me.aViewAttachments_DTR.Shortcut = Nothing
Me.aViewAttachments_DTR.Tag = Nothing
Me.aViewAttachments_DTR.TargetObjectsCriteria = Nothing
Me.aViewAttachments_DTR.TargetViewId = "GLReport_GLReportRows_ListView"
Me.aViewAttachments_DTR.ToolTip = Nothing
Me.aViewAttachments_DTR.TypeOfView = Nothing
'
'aViewRegistry_DTR
'
Me.aViewRegistry_DTR.Caption = "View registry"
Me.aViewRegistry_DTR.ConfirmationMessage = Nothing
Me.aViewRegistry_DTR.Id = "aViewRegistry_DTR"
Me.aViewRegistry_DTR.ImageName = "document_pinned"
Me.aViewRegistry_DTR.Shortcut = Nothing
Me.aViewRegistry_DTR.Tag = Nothing
Me.aViewRegistry_DTR.TargetObjectsCriteria = Nothing
Me.aViewRegistry_DTR.TargetViewId = "GLReport_GLReportRows_ListView"
Me.aViewRegistry_DTR.ToolTip = Nothing
Me.aViewRegistry_DTR.TypeOfView = Nothing
'
'aGLDTRChangeParam
'
Me.aGLDTRChangeParam.AcceptButtonCaption = Nothing
Me.aGLDTRChangeParam.CancelButtonCaption = Nothing
Me.aGLDTRChangeParam.Caption = "Change parameters"
Me.aGLDTRChangeParam.ConfirmationMessage = Nothing
Me.aGLDTRChangeParam.Id = "aGLDTRChangeParam"
Me.aGLDTRChangeParam.ImageName = "index_preferences"
Me.aGLDTRChangeParam.Shortcut = Nothing
Me.aGLDTRChangeParam.Tag = Nothing
Me.aGLDTRChangeParam.TargetObjectsCriteria = Nothing
Me.aGLDTRChangeParam.TargetViewId = "GLReport_GLReportRows_ListView"
Me.aGLDTRChangeParam.ToolTip = Nothing
Me.aGLDTRChangeParam.TypeOfView = Nothing
'
'aSelectCustomersFrom_DTR
'
Me.aSelectCustomersFrom_DTR.AcceptButtonCaption = Nothing
Me.aSelectCustomersFrom_DTR.CancelButtonCaption = Nothing
Me.aSelectCustomersFrom_DTR.Caption = "aSelectCustomersFrom_DTR"
Me.aSelectCustomersFrom_DTR.ConfirmationMessage = Nothing
Me.aSelectCustomersFrom_DTR.Id = "aSelectCustomersFrom_DTR"
Me.aSelectCustomersFrom_DTR.ImageName = Nothing
Me.aSelectCustomersFrom_DTR.Shortcut = Nothing
Me.aSelectCustomersFrom_DTR.Tag = Nothing
Me.aSelectCustomersFrom_DTR.TargetObjectsCriteria = Nothing
Me.aSelectCustomersFrom_DTR.TargetObjectType = GetType(SISBusiness.[Module].GLReportCustomersFrom)
Me.aSelectCustomersFrom_DTR.TargetViewId = Nothing
Me.aSelectCustomersFrom_DTR.ToolTip = Nothing
Me.aSelectCustomersFrom_DTR.TypeOfView = Nothing
'
'aSelectChartOfAccounts_DTR
'
Me.aSelectChartOfAccounts_DTR.AcceptButtonCaption = Nothing
Me.aSelectChartOfAccounts_DTR.CancelButtonCaption = Nothing
Me.aSelectChartOfAccounts_DTR.Caption = "aSelectChartOfAccounts_DTR"
Me.aSelectChartOfAccounts_DTR.ConfirmationMessage = Nothing
Me.aSelectChartOfAccounts_DTR.Id = "aSelectChartOfAccounts_DTR"
Me.aSelectChartOfAccounts_DTR.ImageName = Nothing
Me.aSelectChartOfAccounts_DTR.Shortcut = Nothing
Me.aSelectChartOfAccounts_DTR.Tag = Nothing
Me.aSelectChartOfAccounts_DTR.TargetObjectsCriteria = Nothing
Me.aSelectChartOfAccounts_DTR.TargetObjectType = GetType(SISBusiness.[Module].GLReportChartOfAccounts)
Me.aSelectChartOfAccounts_DTR.TargetViewId = Nothing
Me.aSelectChartOfAccounts_DTR.ToolTip = Nothing
Me.aSelectChartOfAccounts_DTR.TypeOfView = Nothing
End Sub
Friend WithEvents aGenerateGLReport As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachments_DTR As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistry_DTR As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGLDTRChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aSelectCustomersFrom_DTR As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aSelectChartOfAccounts_DTR As DevExpress.ExpressApp.Actions.PopupWindowShowAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.resx
+141
View File
@@ -0,0 +1,141 @@
<?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="aGenerateGLReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aViewAttachments_DTR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aViewRegistry_DTR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="aGLDTRChangeParam.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aSelectCustomersFrom_DTR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="aSelectChartOfAccounts_DTR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>401, 134</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb
+1444
View File
File diff suppressed because it is too large Load Diff
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryCustomersFrom.vb
+49
View File
@@ -0,0 +1,49 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class ABRQueryCustomersFrom
Inherits BaseObject
Private _ABRQueryHeader As ABRQueryHeader
Private _CustomersFrom As CustomersFrom
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("ABRQueryHeader-ABRQueryCustomersFrom", GetType(ABRQueryHeader))> _
Property ABRQueryHeader As ABRQueryHeader
Get
Return _ABRQueryHeader
End Get
Set(value As ABRQueryHeader)
SetPropertyValue("ABRQueryHeader", _ABRQueryHeader, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryHeader.vb
+129
View File
@@ -0,0 +1,129 @@
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.Editors
Public Enum eABRQueryDateType
eFromDateExecution = 0
eFromDateRegistry = 1
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class ABRQueryHeader 'Aging Balance Report (korosított követelésekrõl szóló kimutatás)
Inherits BaseObject
Private _DateClose As Date 'Záródátum
Private _ShortName As String 'A lekérdezés megnevezése
Private _PartnerType As ePartnerType
Private _UserCreated As User
Private _ObjectCreated As Date
Private _ABRQueryDateType As eABRQueryDateType = eABRQueryDateType.eFromDateExecution
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.
Dim _ABRQueryCustomersFrom As ABRQueryCustomersFrom
Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(Session)
Dim _CustomersFrom As CustomersFrom
For Each _CustomersFrom In _CustomersFrom_Collection
_ABRQueryCustomersFrom = New ABRQueryCustomersFrom(Session)
_ABRQueryCustomersFrom.ABRQueryHeader = Me
_ABRQueryCustomersFrom.CustomersFrom = _CustomersFrom
Next
DateClose = Now
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Property DateClose As Date
Get
Return _DateClose
End Get
Set(value As Date)
SetPropertyValue("DateClose", _DateClose, 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 PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
Property ABRQueryDateType As eABRQueryDateType
Get
Return _ABRQueryDateType
End Get
Set(value As eABRQueryDateType)
SetPropertyValue("ABRQueryDateType", _ABRQueryDateType, value)
End Set
End Property
<Association("ABRQueryHeader-ABRQueryRows", GetType(ABRQueryRows)), VisibleInListView(False)> _
ReadOnly Property ABRQueryRows As XPCollection(Of ABRQueryRows)
Get
Return GetCollection(Of ABRQueryRows)("ABRQueryRows")
End Get
End Property
<Association("ABRQueryHeader-ABRQueryRowsDetail", GetType(ABRQueryRowsDetail)), VisibleInListView(False)> _
ReadOnly Property ABRQueryRowsDetail As XPCollection(Of ABRQueryRowsDetail)
Get
Return GetCollection(Of ABRQueryRowsDetail)("ABRQueryRowsDetail")
End Get
End Property
<Association("ABRQueryHeader-ABRQueryCustomersFrom", GetType(ABRQueryCustomersFrom)), VisibleInListView(False)> _
ReadOnly Property ABRQueryCustomersFrom As XPCollection(Of ABRQueryCustomersFrom)
Get
Return GetCollection(Of ABRQueryCustomersFrom)("ABRQueryCustomersFrom")
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRows.vb
+270
View File
@@ -0,0 +1,270 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class ABRQueryRows
Inherits BaseObject
Private _ABRQueryHeader As ABRQueryHeader
Private _GLCardsHeader As GLCardsHeader
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _CurrencyName_Account As CurrencyName
Private _BallanceHUF As Double
Private _BallanceDEV As Double
Private _D00_OpenLiquidHUF As Double = 0
Private _D00_OpenLiquidDEV As Double = 0
Private _D01_NotExpiredHUF As Double
Private _D01_NotExpiredDEV As Double
Private _D02_001_015HUF As Double
Private _D02_001_015DEV As Double
Private _D03_016_030HUF As Double
Private _D03_016_030DEV As Double
Private _D04_031_060HUF As Double
Private _D04_031_060DEV As Double
Private _D05_061_090HUF As Double
Private _D05_061_090DEV As Double
Private _D06_091_150HUF As Double
Private _D06_091_150DEV As Double
Private _D07_151_365HUF As Double
Private _D07_151_365DEV As Double
Private _D08_OverOneYearHUF As Double
Private _D08_OverOneYearDEV As Double
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("ABRQueryHeader-ABRQueryRows", GetType(ABRQueryHeader))> _
Property ABRQueryHeader As ABRQueryHeader
Get
Return _ABRQueryHeader
End Get
Set(value As ABRQueryHeader)
SetPropertyValue("ABRQueryHeader", _ABRQueryHeader, value)
End Set
End Property
<Browsable(False)> _
Property GLCardsHeader As GLCardsHeader
Get
Return _GLCardsHeader
End Get
Set(value As GLCardsHeader)
SetPropertyValue("GLCardsHeader", _GLCardsHeader, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property CurrencyName_Account As CurrencyName
Get
Return _CurrencyName_Account
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value)
End Set
End Property
Property BallanceHUF As Double
Get
Return _BallanceHUF
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF", _BallanceHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV", _BallanceDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D00_OpenLiquidHUF As Double
Get
Return _D00_OpenLiquidHUF
End Get
Set(value As Double)
SetPropertyValue("D00_OpenLiquidHUF", _D00_OpenLiquidHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D00_OpenLiquidDEV As Double
Get
Return _D00_OpenLiquidDEV
End Get
Set(value As Double)
SetPropertyValue("D00_OpenLiquidDEV", _D00_OpenLiquidDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D01_NotExpiredHUF As Double
Get
Return _D01_NotExpiredHUF
End Get
Set(value As Double)
SetPropertyValue("D01_NotExpiredHUF", _D01_NotExpiredHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D01_NotExpiredDEV As Double
Get
Return _D01_NotExpiredDEV
End Get
Set(value As Double)
SetPropertyValue("D01_NotExpiredDEV", _D01_NotExpiredDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D02_001_015HUF As Double
Get
Return _D02_001_015HUF
End Get
Set(value As Double)
SetPropertyValue("D02_001_015HUF", _D02_001_015HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D02_001_015DEV As Double
Get
Return _D02_001_015DEV
End Get
Set(value As Double)
SetPropertyValue("D02_001_015DEV", _D02_001_015DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D03_016_030HUF As Double
Get
Return _D03_016_030HUF
End Get
Set(value As Double)
SetPropertyValue("D03_016_030HUF", _D03_016_030HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D03_016_030DEV As Double
Get
Return _D03_016_030DEV
End Get
Set(value As Double)
SetPropertyValue("D03_016_030DEV", _D03_016_030DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D04_031_060HUF As Double
Get
Return _D04_031_060HUF
End Get
Set(value As Double)
SetPropertyValue("D04_031_060HUF", _D04_031_060HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D04_031_060DEV As Double
Get
Return _D04_031_060DEV
End Get
Set(value As Double)
SetPropertyValue("D04_031_060DEV", _D04_031_060DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D05_061_090HUF As Double
Get
Return _D05_061_090HUF
End Get
Set(value As Double)
SetPropertyValue("D05_061_090HUF", _D05_061_090HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D05_061_090DEV As Double
Get
Return _D05_061_090DEV
End Get
Set(value As Double)
SetPropertyValue("D05_061_090DEV", _D05_061_090DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D06_091_150HUF As Double
Get
Return _D06_091_150HUF
End Get
Set(value As Double)
SetPropertyValue("D06_091_150HUF", _D06_091_150HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D06_091_150DEV As Double
Get
Return _D06_091_150DEV
End Get
Set(value As Double)
SetPropertyValue("D06_091_150DEV", _D06_091_150DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D07_151_365HUF As Double
Get
Return _D07_151_365HUF
End Get
Set(value As Double)
SetPropertyValue("D07_151_365HUF", _D07_151_365HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D07_151_365DEV As Double
Get
Return _D07_151_365DEV
End Get
Set(value As Double)
SetPropertyValue("D07_151_365DEV", _D07_151_365DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D08_OverOneYearHUF As Double
Get
Return _D08_OverOneYearHUF
End Get
Set(value As Double)
SetPropertyValue("D08_OverOneYearHUF", _D08_OverOneYearHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D08_OverOneYearDEV As Double
Get
Return _D08_OverOneYearDEV
End Get
Set(value As Double)
SetPropertyValue("D08_OverOneYearDEV", _D08_OverOneYearDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRowsDetail.vb
+344
View File
@@ -0,0 +1,344 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class ABRQueryRowsDetail
Inherits BaseObject
Private _ABRQueryHeader As ABRQueryHeader
Private _GLCardsHeader As GLCardsHeader
Private _CustomersFrom As CustomersFrom 'Saját cég
Private _Customers As Customers 'Partner
Private _PartnerType As ePartnerType 'Partner tipusa
Private _ConnectInfo As String 'Pontozási azonosító
Private _DocumentNumber As String 'A számla száma
Private _RegistryNumber As String 'A számla iktatószáma (ha vevõ akkor megegyezik a számla számával)
Private _DateExecution As Date 'A számla teljeítési dátuma
Private _DatePayment As Date 'A számla fizetési határideje
Private _CurrencyName_Account As CurrencyName 'A számla devizaneme
Private _AmountHUF As Double = 0 'A számla összege HUF
Private _AmountDEV As Double = 0 'Aszámla összege DEV
Private _BallanceHUF As Double = 0 'A számla egyenlege HUF
Private _BallanceDEV As Double = 0 'A számla devizanemében lévõ egyenlege
Private _D00_OpenLiquidHUF As Double = 0
Private _D00_OpenLiquidDEV As Double = 0
Private _D01_NotExpiredHUF As Double = 0 'Nem lejárt
Private _D01_NotExpiredDEV As Double = 0
Private _D02_001_015HUF As Double = 0 '1-15 napon belül
Private _D02_001_015DEV As Double = 0
Private _D03_016_030HUF As Double = 0
Private _D03_016_030DEV As Double = 0
Private _D04_031_060HUF As Double = 0
Private _D04_031_060DEV As Double = 0
Private _D05_061_090HUF As Double = 0
Private _D05_061_090DEV As Double = 0
Private _D06_091_150HUF As Double = 0
Private _D06_091_150DEV As Double = 0
Private _D07_151_365HUF As Double = 0
Private _D07_151_365DEV As Double = 0
Private _D08_OverOneYearHUF As Double = 0
Private _D08_OverOneYearDEV As Double = 0
Private _DelayedDay 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.
End Sub
<Association("ABRQueryHeader-ABRQueryRowsDetail", GetType(ABRQueryHeader))> _
Property ABRQueryHeader As ABRQueryHeader
Get
Return _ABRQueryHeader
End Get
Set(value As ABRQueryHeader)
SetPropertyValue("ABRQueryHeader", _ABRQueryHeader, value)
End Set
End Property
<Browsable(False)> _
Property GLCardsHeader As GLCardsHeader
Get
Return _GLCardsHeader
End Get
Set(value As GLCardsHeader)
SetPropertyValue("GLCardsHeader", _GLCardsHeader, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property RegistryNumber As String
Get
Return _RegistryNumber
End Get
Set(value As String)
SetPropertyValue("RegistryNumber", _RegistryNumber, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property DatePayment As Date
Get
Return _DatePayment
End Get
Set(value As Date)
SetPropertyValue("DatePayment", _DatePayment, value)
End Set
End Property
Property CurrencyName_Account As CurrencyName
Get
Return _CurrencyName_Account
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value)
End Set
End Property
Property AmountHUF As Double
Get
Return _AmountHUF
End Get
Set(value As Double)
SetPropertyValue("AmountHUF", _AmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property AmountDEV As Double
Get
Return _AmountDEV
End Get
Set(value As Double)
SetPropertyValue("AmountDEV", _AmountDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property BallanceHUF As Double
Get
Return _BallanceHUF
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF", _BallanceHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV", _BallanceDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D00_OpenLiquidHUF As Double
Get
Return _D00_OpenLiquidHUF
End Get
Set(value As Double)
SetPropertyValue("D00_OpenLiquidHUF", _D00_OpenLiquidHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D00_OpenLiquidDEV As Double
Get
Return _D00_OpenLiquidDEV
End Get
Set(value As Double)
SetPropertyValue("D00_OpenLiquidDEV", _D00_OpenLiquidDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D01_NotExpiredHUF As Double
Get
Return _D01_NotExpiredHUF
End Get
Set(value As Double)
SetPropertyValue("D01_NotExpiredHUF", _D01_NotExpiredHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D01_NotExpiredDEV As Double
Get
Return _D01_NotExpiredDEV
End Get
Set(value As Double)
SetPropertyValue("D01_NotExpiredDEV", _D01_NotExpiredDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D02_001_015HUF As Double
Get
Return _D02_001_015HUF
End Get
Set(value As Double)
SetPropertyValue("D02_001_015HUF", _D02_001_015HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D02_001_015DEV As Double
Get
Return _D02_001_015DEV
End Get
Set(value As Double)
SetPropertyValue("D02_001_015DEV", _D02_001_015DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D03_016_030HUF As Double
Get
Return _D03_016_030HUF
End Get
Set(value As Double)
SetPropertyValue("D03_016_030HUF", _D03_016_030HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D03_016_030DEV As Double
Get
Return _D03_016_030DEV
End Get
Set(value As Double)
SetPropertyValue("D03_016_030DEV", _D03_016_030DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D04_031_060HUF As Double
Get
Return _D04_031_060HUF
End Get
Set(value As Double)
SetPropertyValue("D04_031_060HUF", _D04_031_060HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D04_031_060DEV As Double
Get
Return _D04_031_060DEV
End Get
Set(value As Double)
SetPropertyValue("D04_031_060DEV", _D04_031_060DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D05_061_090HUF As Double
Get
Return _D05_061_090HUF
End Get
Set(value As Double)
SetPropertyValue("D05_061_090HUF", _D05_061_090HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D05_061_090DEV As Double
Get
Return _D05_061_090DEV
End Get
Set(value As Double)
SetPropertyValue("D05_061_090DEV", _D05_061_090DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D06_091_150HUF As Double
Get
Return _D06_091_150HUF
End Get
Set(value As Double)
SetPropertyValue("D06_091_150HUF", _D06_091_150HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D06_091_150DEV As Double
Get
Return _D06_091_150DEV
End Get
Set(value As Double)
SetPropertyValue("D06_091_150DEV", _D06_091_150DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D07_151_365HUF As Double
Get
Return _D07_151_365HUF
End Get
Set(value As Double)
SetPropertyValue("D07_151_365HUF", _D07_151_365HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D07_151_365DEV As Double
Get
Return _D07_151_365DEV
End Get
Set(value As Double)
SetPropertyValue("D07_151_365DEV", _D07_151_365DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D08_OverOneYearHUF As Double
Get
Return _D08_OverOneYearHUF
End Get
Set(value As Double)
SetPropertyValue("D08_OverOneYearHUF", _D08_OverOneYearHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property D08_OverOneYearDEV As Double
Get
Return _D08_OverOneYearDEV
End Get
Set(value As Double)
SetPropertyValue("D08_OverOneYearDEV", _D08_OverOneYearDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property DelayedDay As Long
Get
Return _DelayedDay
End Get
Set(ByVal value As Long)
SetPropertyValue("DelayedDay", _DelayedDay, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.Designer.vb
Generated
+121
View File
@@ -0,0 +1,121 @@
Partial Class ABRQueryVC
<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.aGenerateABRQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aSelectCustomersFromABR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aViewAttachmentsABR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistryABR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDABR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPrintABRReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCICheck_ABRReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDABR_GLDetails = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aGenerateABRQuery
'
Me.aGenerateABRQuery.Caption = "Generate ABRQuery"
Me.aGenerateABRQuery.ConfirmationMessage = "Do You want to execute ?"
Me.aGenerateABRQuery.Id = "aGenerateABRQuery"
Me.aGenerateABRQuery.ToolTip = Nothing
'
'aSelectCustomersFromABR
'
Me.aSelectCustomersFromABR.AcceptButtonCaption = Nothing
Me.aSelectCustomersFromABR.CancelButtonCaption = Nothing
Me.aSelectCustomersFromABR.Caption = "Select CustomersFrom"
Me.aSelectCustomersFromABR.ConfirmationMessage = Nothing
Me.aSelectCustomersFromABR.Id = "aSelectCustomersFromABR"
Me.aSelectCustomersFromABR.ToolTip = Nothing
'
'aViewAttachmentsABR
'
Me.aViewAttachmentsABR.Caption = "aViewAttachmentsABR"
Me.aViewAttachmentsABR.ConfirmationMessage = Nothing
Me.aViewAttachmentsABR.Id = "aViewAttachmentsABR"
Me.aViewAttachmentsABR.ImageName = "printer_view"
Me.aViewAttachmentsABR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachmentsABR.TargetViewId = ""
Me.aViewAttachmentsABR.ToolTip = Nothing
'
'aViewRegistryABR
'
Me.aViewRegistryABR.Caption = "aViewRegistryABR"
Me.aViewRegistryABR.ConfirmationMessage = Nothing
Me.aViewRegistryABR.Id = "aViewRegistryABR"
Me.aViewRegistryABR.ImageName = "document_pinned"
Me.aViewRegistryABR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistryABR.TargetViewId = ""
Me.aViewRegistryABR.ToolTip = Nothing
'
'aViewPCIDABR
'
Me.aViewPCIDABR.Caption = "aViewPCIDABR"
Me.aViewPCIDABR.ConfirmationMessage = Nothing
Me.aViewPCIDABR.Id = "aViewPCIDABR"
Me.aViewPCIDABR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDABR.TargetObjectType = GetType(SISBusiness.[Module].ABRQueryRowsDetail)
Me.aViewPCIDABR.TargetViewId = ""
Me.aViewPCIDABR.ToolTip = Nothing
'
'aPrintABRReport
'
Me.aPrintABRReport.Caption = "aPrint ABRReport"
Me.aPrintABRReport.ConfirmationMessage = Nothing
Me.aPrintABRReport.Id = "aPrintABRReport"
Me.aPrintABRReport.ToolTip = Nothing
'
'aPCICheck_ABRReport
'
Me.aPCICheck_ABRReport.Caption = "aPCICheck_ABRReport"
Me.aPCICheck_ABRReport.ConfirmationMessage = Nothing
Me.aPCICheck_ABRReport.Id = "aPCICheck_ABRReport"
Me.aPCICheck_ABRReport.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCICheck_ABRReport.TargetObjectType = GetType(SISBusiness.[Module].ABRQueryRowsDetail)
Me.aPCICheck_ABRReport.ToolTip = Nothing
'
'aViewPCIDABR_GLDetails
'
Me.aViewPCIDABR_GLDetails.Caption = "aViewPCIDABR"
Me.aViewPCIDABR_GLDetails.ConfirmationMessage = Nothing
Me.aViewPCIDABR_GLDetails.Id = "aViewPCIDABR_GLDetails"
Me.aViewPCIDABR_GLDetails.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDABR_GLDetails.TargetObjectType = GetType(SISBusiness.[Module].ABRQueryRowsDetail)
Me.aViewPCIDABR_GLDetails.TargetViewId = ""
Me.aViewPCIDABR_GLDetails.ToolTip = Nothing
End Sub
Friend WithEvents aGenerateABRQuery As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aSelectCustomersFromABR As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aViewAttachmentsABR As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistryABR As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDABR As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPrintABRReport As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCICheck_ABRReport As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDABR_GLDetails As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.resx
+147
View File
@@ -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="aGenerateABRQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aSelectCustomersFromABR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aViewAttachmentsABR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="aViewRegistryABR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="aViewPCIDABR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
</metadata>
<metadata name="aPrintABRReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aPCICheck_ABRReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>21, 291</value>
</metadata>
<metadata name="aViewPCIDABR_GLDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>194, 291</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb
+457
View File
@@ -0,0 +1,457 @@
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.Linq
Imports DevExpress.ExpressApp.SystemModule
Imports SISBusiness.Module.SIS.Linq.Dynamic
Imports DevExpress.Persistent.BaseImpl
Public Class ABRQueryVC
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()
Frame.GetController(Of ABRQueryVC).aGenerateABRQuery.Active.SetItemValue("", False)
Frame.GetController(Of ABRQueryVC).aSelectCustomersFromABR.Active.SetItemValue("", False)
Frame.GetController(Of ABRQueryVC).aViewAttachmentsABR.Active.SetItemValue("", False)
Frame.GetController(Of ABRQueryVC).aViewRegistryABR.Active.SetItemValue("", False)
Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", False)
If View.Id = "ABRQueryHeader_DetailView" Then
Frame.GetController(Of ABRQueryVC).aGenerateABRQuery.Active.SetItemValue("", True)
Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", True)
End If
If View.Id = "ABRQueryHeader_ListView" Then
Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", True)
End If
If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
Frame.GetController(Of ABRQueryVC).aSelectCustomersFromABR.Active.SetItemValue("", True)
End If
If View.Id = "ABRQueryHeader_ABRQueryRowsDetail_ListView_HUF" Then
Frame.GetController(Of ABRQueryVC).aViewAttachmentsABR.Active.SetItemValue("", True)
Frame.GetController(Of ABRQueryVC).aViewRegistryABR.Active.SetItemValue("", True)
End If
If View.Id = "ABRQueryHeader_ABRQueryRowsDetail_ListView_DEV" Then
Frame.GetController(Of ABRQueryVC).aViewAttachmentsABR.Active.SetItemValue("", True)
Frame.GetController(Of ABRQueryVC).aViewRegistryABR.Active.SetItemValue("", True)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
End If
End Sub
Private Sub aGenerateABRQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateABRQuery.Execute
'-- Az adott záródátumra vonatkozó partner connection infot adja meg
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
Dim i As Long = 0
Dim _DifDay As Long
Dim _ABRQueryRows As ABRQueryRows
Dim _ABRQueryRowsDetail As ABRQueryRowsDetail
'// Mielőtt bármi van, le kell futtatni:
'UPDATE GLHeader
'DateCreated = DateExecution
'Where(DateCreated Is NULL)
Dim _SQL As String = ""
Select Case GLOBAL_SQLType
Case eSQLType.MSSQL
_SQL = "UPDATE GLHeader Set DateCreated = DateExecution WHERE DateCreated Is NULL"
Case eSQLType.MySQL
_SQL = "UPDATE GLHeader Set DateCreated = DateExecution WHERE DateCreated Is NULL"
Case eSQLType.PostgreSQL
_SQL = "UPDATE ""GLHeader"" Set ""DateCreated"" = ""DateExecution"" WHERE ""DateCreated"" Is NULL"
End Select
_uow.ExecuteNonQuery(_SQL)
_uow.CommitChanges()
Dim _ABRQueryHeader As ABRQueryHeader = _uow.GetObjectByKey(Of ABRQueryHeader) _
(TryCast(View.SelectedObjects(0), ABRQueryHeader).Oid)
If _ABRQueryHeader Is Nothing Then Exit Sub
_ABRQueryHeader.Save()
Dim _ABRQueryRows_Collection As New XPCollection(Of ABRQueryRows) _
(_uow, CriteriaOperator.Parse("ABRQueryHeader=?", _ABRQueryHeader))
_uow.Delete(_ABRQueryRows_Collection)
Dim _ABRQueryRowsDetail_Collection As New XPCollection(Of ABRQueryRowsDetail) _
(_uow, CriteriaOperator.Parse("ABRQueryHeader=?", _ABRQueryHeader))
_uow.Delete(_ABRQueryRowsDetail_Collection)
'-- Lekérdezés, adott teljesítési dátumig történõ lekérdezés LINQ paranccsal
Dim CFC As New XPQuery(Of ABRQueryCustomersFrom)(_uow)
Dim cquery = From _CFC In CFC
Where _CFC.ABRQueryHeader.Oid = _ABRQueryHeader.Oid
Select _CFC.CustomersFrom.Oid
Dim PCI As New XPQuery(Of PCIDetail)(_uow)
Dim query As System.Linq.IQueryable(Of Object)
If _ABRQueryHeader.ABRQueryDateType = eABRQueryDateType.eFromDateExecution Then
query = From _PCI In PCI
Where _PCI.DateExecution.Date <= _ABRQueryHeader.DateClose.Date And
_PCI.Customers IsNot Nothing And
_PCI.ConnectInfo IsNot Nothing And
cquery.Contains(_PCI.CustomersFrom.Oid) And
_PCI.PartnerType = _ABRQueryHeader.PartnerType
Group _PCI By _PCI.CustomersFrom, _
_PCI.Customers, _
_PCI.PartnerType, _
_PCI.CurrencyName_Account, _
_PCI.ConnectInfo Into g = Group
Order By PartnerType, CurrencyName_Account, CustomersFrom, Customers, ConnectInfo
Select New With {Key .CustomersFrom = CustomersFrom, _
Key .Customers = Customers, _
Key .PartnerType = PartnerType, _
Key .ConnectInfo = ConnectInfo, _
Key .CurrencyName_Account = CurrencyName_Account, _
Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _
Key .RegistryNumber = g.Max(Function(inv) inv.RegistryNumber), _
Key .AmountHUF = g.Sum(Function(inv) inv.AmountHUF_Account), _
Key .AmountDEV = g.Sum(Function(inv) inv.AmountDEV_Account), _
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), _
Key .DatePayment = g.Max(Function(inv) inv.DatePayment_Account), _
Key .DateExecution = g.Max(Function(inv) inv.DateExecution_Account) _
}
Else
query = From _PCI In PCI
Where If(String.IsNullOrEmpty(_PCI.DateCreated.Date), _PCI.DateExecution.Date, _PCI.DateCreated.Date) <= _ABRQueryHeader.DateClose.Date And
_PCI.Customers IsNot Nothing And
_PCI.ConnectInfo IsNot Nothing And
cquery.Contains(_PCI.CustomersFrom.Oid) And
_PCI.PartnerType = _ABRQueryHeader.PartnerType
Group _PCI By _PCI.CustomersFrom, _
_PCI.Customers, _
_PCI.PartnerType, _
_PCI.CurrencyName_Account, _
_PCI.ConnectInfo Into g = Group
Order By PartnerType, CurrencyName_Account, CustomersFrom, Customers, ConnectInfo
Select New With {Key .CustomersFrom = CustomersFrom, _
Key .Customers = Customers, _
Key .PartnerType = PartnerType, _
Key .ConnectInfo = ConnectInfo, _
Key .CurrencyName_Account = CurrencyName_Account, _
Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _
Key .RegistryNumber = g.Max(Function(inv) inv.RegistryNumber), _
Key .AmountHUF = g.Sum(Function(inv) inv.AmountHUF_Account), _
Key .AmountDEV = g.Sum(Function(inv) inv.AmountDEV_Account), _
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), _
Key .DatePayment = g.Max(Function(inv) inv.DatePayment_Account), _
Key .DateExecution = g.Max(Function(inv) inv.DateExecution_Account) _
}
End If
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
Dim _CurrencyName_Account As String = ""
If item.CurrencyName_Account Is Nothing Then
_CurrencyName_Account = ""
Else
_CurrencyName_Account = item.CurrencyName_Account.ShortName
End If
i += 1
If _CurrencyName_Account = "" Then
_ABRQueryRowsDetail = New ABRQueryRowsDetail(_uow)
_ABRQueryRowsDetail.ABRQueryHeader = _ABRQueryHeader
_ABRQueryRowsDetail.BallanceDEV = Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero)
_ABRQueryRowsDetail.BallanceHUF = Math.Round(item.BallanceHUF, 2, MidpointRounding.AwayFromZero)
_ABRQueryRowsDetail.CustomersFrom = item.CustomersFrom
_ABRQueryRowsDetail.Customers = item.Customers
_ABRQueryRowsDetail.PartnerType = item.PartnerType
_ABRQueryRowsDetail.ConnectInfo = item.ConnectInfo
_ABRQueryRowsDetail.DocumentNumber = item.DocumentNumber
_ABRQueryRowsDetail.RegistryNumber = item.RegistryNumber
_ABRQueryRowsDetail.DateExecution = item.DateExecution.Date
_ABRQueryRowsDetail.DatePayment = item.DatePayment.Date
_ABRQueryRowsDetail.AmountHUF = Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
_ABRQueryRowsDetail.AmountDEV = item.AmountDEV
_ABRQueryRowsDetail.D00_OpenLiquidHUF = item.BallanceHUF
_ABRQueryRowsDetail.D00_OpenLiquidDEV = item.BallanceDEV
ElseIf (_CurrencyName_Account = "HUF" And Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) <> 0) Or _
_CurrencyName_Account <> "HUF" And Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then
_ABRQueryRowsDetail = New ABRQueryRowsDetail(_uow)
_ABRQueryRowsDetail.ABRQueryHeader = _ABRQueryHeader
_ABRQueryRowsDetail.BallanceDEV = item.BallanceDEV
_ABRQueryRowsDetail.BallanceHUF = item.BallanceHUF
_ABRQueryRowsDetail.CustomersFrom = item.CustomersFrom
_ABRQueryRowsDetail.Customers = item.Customers
_ABRQueryRowsDetail.PartnerType = item.PartnerType
_ABRQueryRowsDetail.ConnectInfo = item.ConnectInfo
_ABRQueryRowsDetail.DocumentNumber = item.DocumentNumber
_ABRQueryRowsDetail.RegistryNumber = item.RegistryNumber
_ABRQueryRowsDetail.DateExecution = item.DateExecution.Date
_ABRQueryRowsDetail.DatePayment = item.DatePayment.Date
_ABRQueryRowsDetail.CurrencyName_Account = item.CurrencyName_Account
_ABRQueryRowsDetail.AmountHUF = item.AmountHUF
_ABRQueryRowsDetail.AmountDEV = item.AmountDEV
If _ABRQueryHeader.DateClose.Date <= GetSQLTime(_ocur.Session).Date Then
_DifDay = DateDiff(DateInterval.Day, item.DatePayment.Date, _ABRQueryHeader.DateClose.Date)
Else
_DifDay = DateDiff(DateInterval.Day, item.DatePayment.Date, GetSQLTime(_ocur.Session).Date)
End If
_ABRQueryRowsDetail.DelayedDay = _DifDay
Select Case _DifDay
Case Is <= 0
_ABRQueryRowsDetail.D01_NotExpiredHUF = item.BallanceHUF
_ABRQueryRowsDetail.D01_NotExpiredDEV = item.BallanceDEV
Case 1 To 15
_ABRQueryRowsDetail.D02_001_015DEV = item.BallanceDEV
_ABRQueryRowsDetail.D02_001_015HUF = item.BallanceHUF
Case 16 To 30
_ABRQueryRowsDetail.D03_016_030DEV = item.BallanceDEV
_ABRQueryRowsDetail.D03_016_030HUF = item.BallanceHUF
Case 31 To 60
_ABRQueryRowsDetail.D04_031_060DEV = item.BallanceDEV
_ABRQueryRowsDetail.D04_031_060HUF = item.BallanceHUF
Case 61 To 90
_ABRQueryRowsDetail.D05_061_090DEV = item.BallanceDEV
_ABRQueryRowsDetail.D05_061_090HUF = item.BallanceHUF
Case 91 To 150
_ABRQueryRowsDetail.D06_091_150DEV = item.BallanceDEV
_ABRQueryRowsDetail.D06_091_150HUF = item.BallanceHUF
Case 151 To 365
_ABRQueryRowsDetail.D07_151_365DEV = item.BallanceDEV
_ABRQueryRowsDetail.D07_151_365HUF = item.BallanceHUF
Case Is > 365
_ABRQueryRowsDetail.D08_OverOneYearDEV = item.BallanceDEV
_ABRQueryRowsDetail.D08_OverOneYearHUF = item.BallanceHUF
End Select
End If
If i Mod 1000 Then _uow.CommitChanges()
RaiseEvent DoWork()
Next
_uow.CommitChanges()
RaiseEvent FinalWork
i = 0
Dim PCI2 As New XPQuery(Of ABRQueryRowsDetail)(_uow)
Dim query2 = From _PCI2 In PCI2
Where _PCI2.ABRQueryHeader Is _ABRQueryHeader
Group _PCI2 By
_PCI2.CustomersFrom, _
_PCI2.Customers, _
_PCI2.PartnerType, _
_PCI2.CurrencyName_Account Into g = Group
Order By CustomersFrom, Customers, PartnerType, CurrencyName_Account
Select New With {Key .CustomersFrom = CustomersFrom, _
Key .Customers = Customers, _
Key .PartnerType = PartnerType,
Key .CurrencyName_Account = CurrencyName_Account,
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV),
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF),
Key .D00_OpenLiquidDEV = g.Sum(Function(inv) inv.D00_OpenLiquidDEV),
Key .D00_OpenLiquidHUF = g.Sum(Function(inv) inv.D00_OpenLiquidHUF),
Key .D02_001_015DEV = g.Sum(Function(inv) inv.D02_001_015DEV),
Key .D02_001_015HUF = g.Sum(Function(inv) inv.D02_001_015HUF),
Key .D03_016_030DEV = g.Sum(Function(inv) inv.D03_016_030DEV),
Key .D03_016_030HUF = g.Sum(Function(inv) inv.D03_016_030HUF),
Key .D04_031_060DEV = g.Sum(Function(inv) inv.D04_031_060DEV),
Key .D04_031_060HUF = g.Sum(Function(inv) inv.D04_031_060HUF),
Key .D05_061_090DEV = g.Sum(Function(inv) inv.D05_061_090DEV),
Key .D05_061_090HUF = g.Sum(Function(inv) inv.D05_061_090HUF),
Key .D06_091_150DEV = g.Sum(Function(inv) inv.D06_091_150DEV),
Key .D06_091_150HUF = g.Sum(Function(inv) inv.D06_091_150HUF),
Key .D07_151_365DEV = g.Sum(Function(inv) inv.D07_151_365DEV),
Key .D07_151_365HUF = g.Sum(Function(inv) inv.D07_151_365HUF),
Key .D01_NotExpiredHUF = g.Sum(Function(inv) inv.D01_NotExpiredHUF),
Key .D01_NotExpiredDEV = g.Sum(Function(inv) inv.D01_NotExpiredDEV),
Key .D08_OverOneYearHUF = g.Sum(Function(inv) inv.D08_OverOneYearHUF),
Key .D08_OverOneYearDEV = g.Sum(Function(inv) inv.D08_OverOneYearDEV)}
RaiseEvent InitWork(1, 1, query2.Count)
For Each item In query2
i += 1
RaiseEvent DoWork()
_ABRQueryRows = New ABRQueryRows(_uow)
_ABRQueryRows.ABRQueryHeader = _ABRQueryHeader
_ABRQueryRows.BallanceDEV = item.BallanceDEV
_ABRQueryRows.BallanceHUF = item.BallanceHUF
_ABRQueryRows.CurrencyName_Account = item.CurrencyName_Account
_ABRQueryRows.Customers = item.Customers
_ABRQueryRows.CustomersFrom = item.CustomersFrom
_ABRQueryRows.PartnerType = item.PartnerType
_ABRQueryRows.D00_OpenLiquidDEV = item.D00_OpenLiquidDEV
_ABRQueryRows.D00_OpenLiquidHUF = item.D00_OpenLiquidHUF
_ABRQueryRows.D01_NotExpiredDEV = item.D01_NotExpiredDEV
_ABRQueryRows.D01_NotExpiredHUF = item.D01_NotExpiredHUF
_ABRQueryRows.D02_001_015DEV = item.D02_001_015DEV
_ABRQueryRows.D02_001_015HUF = item.D02_001_015HUF
_ABRQueryRows.D03_016_030DEV = item.D03_016_030DEV
_ABRQueryRows.D03_016_030HUF = item.D03_016_030HUF
_ABRQueryRows.D04_031_060DEV = item.D04_031_060DEV
_ABRQueryRows.D04_031_060HUF = item.D04_031_060HUF
_ABRQueryRows.D05_061_090DEV = item.D05_061_090DEV
_ABRQueryRows.D05_061_090HUF = item.D05_061_090HUF
_ABRQueryRows.D06_091_150DEV = item.D06_091_150DEV
_ABRQueryRows.D06_091_150HUF = item.D06_091_150HUF
_ABRQueryRows.D07_151_365DEV = item.D07_151_365DEV
_ABRQueryRows.D07_151_365HUF = item.D07_151_365HUF
_ABRQueryRows.D08_OverOneYearDEV = item.D08_OverOneYearDEV
_ABRQueryRows.D08_OverOneYearHUF = item.D08_OverOneYearHUF
If i Mod 1000 Then _uow.CommitChanges()
Next
_uow.CommitChanges()
RaiseEvent FinalWork
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Private Sub aSelectCustomersFromABR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFromABR.CustomizePopupWindowParams
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _CS As New CollectionSource(_onew, GetType(CustomersFrom))
'_CS.BeginUpdateCriteria()
'_CS.Criteria.Clear()
'_CS.Criteria("First") = ""
'_CS.EndUpdateCriteria()
e.View = Application.CreateListView("CustomersFrom_ListView_Select", _CS, False)
End Sub
Private Sub aSelectCustomersFromABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomersFromABR.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _Customersfrom As CustomersFrom
Dim _ABRQueryHeader As ABRQueryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
Dim _ABRQueryCustomersFrom As ABRQueryCustomersFrom
If _ABRQueryHeader Is Nothing Then Exit Sub
If e.PopupWindow.View.SelectedObjects.Count > 0 Then
For Each _Customersfrom In e.PopupWindow.View.SelectedObjects
_ABRQueryCustomersFrom = New ABRQueryCustomersFrom(_uow)
_ABRQueryCustomersFrom.ABRQueryHeader = _uow.GetObjectByKey(Of ABRQueryHeader)(_ABRQueryHeader.Oid)
_ABRQueryCustomersFrom.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_Customersfrom.Oid)
Next
_uow.CommitChanges()
End If
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
If nestedFrame IsNot Nothing Then
Dim parentView As View = nestedFrame.View
parentView.ObjectSpace.Refresh()
End If
End Sub
Private Sub aViewAttachmentsABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachmentsABR.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail)
If _ABRQueryRowsDetail IsNot Nothing Then
ViewAttachments.ViewAttachments(_ocur, Frame, _ABRQueryRowsDetail.CustomersFrom, _
_ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.ConnectInfo, _
"")
End If
End Sub
Private Sub aViewRegistryABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistryABR.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail)
If _ABRQueryRowsDetail IsNot Nothing Then
ViewRegistry.ViewRegistry(_ocur, Application, e, _ABRQueryRowsDetail.CustomersFrom, _
_ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.ConnectInfo)
End If
End Sub
Private Sub aViewPCIDABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDABR.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail)
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _ABRQueryRowsDetail.CustomersFrom, _
_ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.PartnerType, _
_ABRQueryRowsDetail.ConnectInfo)
End Sub
Private Sub aPrintABRReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintABRReport.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ReportData As ReportData
Dim _ABRQueryHeader As ABRQueryHeader = TryCast(View.SelectedObjects(0), ABRQueryHeader)
If _ABRQueryHeader IsNot Nothing Then
_ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Korosított kinnlévőség Riport"))
If _ReportData IsNot Nothing Then
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("ABRQueryHeader=?", _ABRQueryHeader), True)
Else
Throw New UserFriendlyException("Nincs beállítva a Korosított kinnlévőség Riport nyomtatvány !")
End If
End If
End Sub
Private Sub aPCICheck_ABRReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck_ABRReport.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _ABRQueryRowsDetail As ABRQueryRowsDetail
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _ABRQueryRowsDetail In View.SelectedObjects
RaiseEvent DoWork()
GLFunctions.ReconfigurePCI(_uow, _ABRQueryRowsDetail.CustomersFrom, _ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.PartnerType, _ABRQueryRowsDetail.ConnectInfo)
Next
RaiseEvent FinalWork
End Sub
Private Sub aViewPCIDABR_GLDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDABR_GLDetails.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail)
ViewPDCI.ViewGLDetails(_onew, Application, e, _ABRQueryRowsDetail.CustomersFrom, _
_ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.PartnerType, _
_ABRQueryRowsDetail.ConnectInfo)
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.Designer.vb
Generated
+81
View File
@@ -0,0 +1,81 @@
Partial Class PCICheckerVC
<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.aGeneratePCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDGroup_PCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDGroup_GLDetails_PCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCICheck_PCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aGeneratePCIChecker
'
Me.aGeneratePCIChecker.Caption = "aGenerate PCIChecker"
Me.aGeneratePCIChecker.ConfirmationMessage = Nothing
Me.aGeneratePCIChecker.Id = "aGeneratePCIChecker"
Me.aGeneratePCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aGeneratePCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLChecker)
Me.aGeneratePCIChecker.ToolTip = Nothing
'
'aViewPCIDGroup_PCIChecker
'
Me.aViewPCIDGroup_PCIChecker.Caption = "aViewPCIDGroup_PCIChecker"
Me.aViewPCIDGroup_PCIChecker.ConfirmationMessage = Nothing
Me.aViewPCIDGroup_PCIChecker.Id = "aViewPCIDGroup_PCIChecker"
Me.aViewPCIDGroup_PCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDGroup_PCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLCheckerRows)
Me.aViewPCIDGroup_PCIChecker.TargetViewId = ""
Me.aViewPCIDGroup_PCIChecker.ToolTip = Nothing
'
'aViewPCIDGroup_GLDetails_PCIChecker
'
Me.aViewPCIDGroup_GLDetails_PCIChecker.Caption = "aViewPCIDGroup_GLDetails_PCIChecker"
Me.aViewPCIDGroup_GLDetails_PCIChecker.ConfirmationMessage = Nothing
Me.aViewPCIDGroup_GLDetails_PCIChecker.Id = "aViewPCIDGroup_GLDetails_PCIChecker"
Me.aViewPCIDGroup_GLDetails_PCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDGroup_GLDetails_PCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLCheckerRows)
Me.aViewPCIDGroup_GLDetails_PCIChecker.TargetViewId = ""
Me.aViewPCIDGroup_GLDetails_PCIChecker.ToolTip = Nothing
'
'aPCICheck_PCIChecker
'
Me.aPCICheck_PCIChecker.Caption = "aPCICheck_PCIChecker"
Me.aPCICheck_PCIChecker.ConfirmationMessage = Nothing
Me.aPCICheck_PCIChecker.Id = "aPCICheck_PCIChecker"
Me.aPCICheck_PCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCICheck_PCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLCheckerRows)
Me.aPCICheck_PCIChecker.TargetViewId = ""
Me.aPCICheck_PCIChecker.ToolTip = Nothing
Me.aPCICheck_PCIChecker.TypeOfView = GetType(DevExpress.ExpressApp.View)
End Sub
Friend WithEvents aGeneratePCIChecker As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDGroup_PCIChecker As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDGroup_GLDetails_PCIChecker As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCICheck_PCIChecker As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.resx
+135
View File
@@ -0,0 +1,135 @@
<?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="aGeneratePCIChecker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aViewPCIDGroup_PCIChecker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aViewPCIDGroup_GLDetails_PCIChecker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aPCICheck_PCIChecker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>665, 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>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.vb
+209
View File
@@ -0,0 +1,209 @@
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
Imports DevExpress.Xpo
Imports DevExpress.Xpo.DB
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
Partial Public Class PCICheckerVC
Inherits 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()
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 aGeneratePCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGeneratePCIChecker.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
Dim _PCIGLChecker As PCIGLChecker = _uow.GetObjectByKey(Of PCIGLChecker)(TryCast(View.SelectedObjects(0), PCIGLChecker).Oid)
Dim _PCIGLCheckerRows As PCIGLCheckerRows
Dim _SQL As String = ""
Dim _IN As String = ""
Dim _SelectStatementResultRow As SelectStatementResultRow
Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
Dim _AccountNumber As String = ""
'// elõször a nem nulla egyenlegû Fõkönyvbõl
_uow.Delete(_PCIGLChecker.PCIGLCheckerRows)
_uow.CommitChanges()
Dim _CustomersGLParametersYear_Collection As New XPCollection(Of CustomersGLParametersYear)(_uow, CriteriaOperator.Parse("IsNull(GCRecord)=True and IsNull(CustomersGLParameters.GCRecord)=True"))
Dim _CustomersGLParametersYear As CustomersGLParametersYear
For Each _CustomersGLParametersYear In _CustomersGLParametersYear_Collection
If _IN = "" Then
Select Case _PCIGLChecker.PartnerType
Case ePartnerType.eReceivables
_IN = "'" & _CustomersGLParametersYear.ChartOfAccountsOut.AccountNumber & "'"
Case ePartnerType.ePayabels
_IN = "'" & _CustomersGLParametersYear.ChartOfAccountsIn.AccountNumber & "'"
End Select
Else
Select Case _PCIGLChecker.PartnerType
Case ePartnerType.eReceivables
_IN += ",'" & _CustomersGLParametersYear.ChartOfAccountsOut.AccountNumber & "'"
Case ePartnerType.ePayabels
_IN += ",'" & _CustomersGLParametersYear.ChartOfAccountsIn.AccountNumber & "'"
End Select
End If
Next
_IN = " IN (" & _IN & ")"
Select Case GLOBAL_SQLType
Case eSQLType.MySQL
_SQL = " SELECT MAX(t4.Oid) AS Customers,t2.ConnectInfo,"
If _PCIGLChecker.PartnerType = ePartnerType.eReceivables Then
_SQL += " SUM((CASE t1.Side WHEN 'T' THEN t1.AmountHUF ELSE 0 END)-(CASE t1.Side WHEN 'K' THEN t1.AmountHUF ELSE 0 END)) AS BallanceHUF"
Else
_SQL += " SUM((CASE t1.Side WHEN 'K' THEN t1.AmountHUF ELSE 0 END)-(CASE t1.Side WHEN 'T' THEN t1.AmountHUF ELSE 0 END)) AS BallanceHUF"
End If
_SQL += " FROM GLDetails t1 JOIN GLRows t2 ON"
_SQL += " t1.GLRows=t2.Oid LEFT JOIN Customers t3 ON"
_SQL += " t2.Customer=t3.Oid LEFT JOIN Organization t4 ON"
_SQL += " t3.Oid=t4.Oid LEFT JOIN GLHeader t5 ON"
_SQL += " t2.GLHeader=t5.Oid LEFT JOIN ChartOfAccounts t6 ON"
_SQL += " t1.ChartOfAccounts = t6.Oid"
_SQL += " WHERE t2.PartnerType=" & _PCIGLChecker.PartnerType
_SQL += " AND t5.IsEditable=0 AND t6.AccountNumber " & _IN
_SQL += " and t5.GCRecord is null"
_SQL += " and t5.CustomersFrom='" & _PCIGLChecker.CustomersFrom.Oid.ToString & "'"
_SQL += " AND t5.DateExecution<'" & _PCIGLChecker.DateClose.AddDays(1).Year.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Month.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Day.ToString & "'"
_SQL += " GROUP BY t4.FullName,t2.ConnectInfo"
_SQL += " HAVING ROUND(SUM((CASE t1.Side WHEN 'T' THEN t1.AmountHUF ELSE 0 END)-(CASE t1.Side WHEN 'K' THEN t1.AmountHUF ELSE 0 END)),0)<>0 "
Case eSQLType.PostgreSQL
End Select
_SelectedData = _uow.ExecuteQuery(_SQL)
If _SelectedData.ResultSet.Length > 0 Then
RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count)
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
RaiseEvent DoWork()
_PCIGLCheckerRows = _uow.FindObject(Of PCIGLCheckerRows)(CriteriaOperator.Parse("Customers.Oid=? and PartnerType=? and ConnectInfo=? and PCIGLChecker.Oid=?", _SelectStatementResultRow.Values(0), _PCIGLChecker.PartnerType, _SelectStatementResultRow.Values(1), _PCIGLChecker.Oid))
If _PCIGLCheckerRows IsNot Nothing Then
_PCIGLCheckerRows.BallanceHUF_GL = _SelectStatementResultRow.Values(2)
Else
_PCIGLCheckerRows = New PCIGLCheckerRows(_uow)
_PCIGLCheckerRows.PCIGLChecker = _PCIGLChecker
_PCIGLCheckerRows.PartnerType = _PCIGLChecker.PartnerType
_PCIGLCheckerRows.Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0).ToString))
_PCIGLCheckerRows.ConnectInfo = _SelectStatementResultRow.Values(1)
_PCIGLCheckerRows.BallanceHUF_GL = _SelectStatementResultRow.Values(2)
End If
_uow.CommitChanges()
Next
RaiseEvent FinalWork
End If
'// másodszor a nem nulla egyenlegû a Folyószámlából
Select Case GLOBAL_SQLType
Case eSQLType.MySQL
_SQL = " SELECT t2.Oid,t1.Connectinfo,SUM(t1.BallanceHUF)"
_SQL += " FROM PCIDetail t1 JOIN Organization t2 ON"
_SQL += " t1.Customers = t2.Oid"
_SQL += " WHERE t1.PartnerType=" & _PCIGLChecker.PartnerType
_SQL += " AND t1.DateExecution<'" & _PCIGLChecker.DateClose.AddDays(1).Year.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Month.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Day.ToString & "'"
_SQL += " GROUP BY t2.Oid,t1.ConnectInfo"
_SQL += " HAVING ROUND(SUM(t1.BallanceHUF),0) <> 0"
Case eSQLType.PostgreSQL
End Select
_SelectedData = _uow.ExecuteQuery(_SQL)
If _SelectedData.ResultSet.Length > 0 Then
RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count)
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
RaiseEvent DoWork()
_PCIGLCheckerRows = _uow.FindObject(Of PCIGLCheckerRows)(CriteriaOperator.Parse("Customers.Oid=? and PartnerType=? and ConnectInfo=? and PCIGLChecker.Oid=?", _SelectStatementResultRow.Values(0), _PCIGLChecker.PartnerType, _SelectStatementResultRow.Values(1), _PCIGLChecker.Oid))
If _PCIGLCheckerRows IsNot Nothing Then
_PCIGLCheckerRows.BallanceHUF_PCI = _SelectStatementResultRow.Values(2)
Else
_PCIGLCheckerRows = New PCIGLCheckerRows(_uow)
_PCIGLCheckerRows.PCIGLChecker = _PCIGLChecker
_PCIGLCheckerRows.PartnerType = _PCIGLChecker.PartnerType
_PCIGLCheckerRows.Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0).ToString))
_PCIGLCheckerRows.ConnectInfo = _SelectStatementResultRow.Values(1)
_PCIGLCheckerRows.BallanceHUF_PCI = _SelectStatementResultRow.Values(2)
End If
_uow.CommitChanges()
Next
RaiseEvent FinalWork
End If
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aPCICheck_PCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheck_PCIChecker.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _PCIGLCheckerRows As PCIGLCheckerRows = TryCast(View.SelectedObjects(0), PCIGLCheckerRows)
For Each _PCIGLCheckerRows In View.SelectedObjects
If _PCIGLCheckerRows IsNot Nothing Then
GLFunctions.ReconfigurePCI(_uow, _PCIGLCheckerRows.PCIGLChecker.CustomersFrom, _PCIGLCheckerRows.Customers, _PCIGLCheckerRows.PartnerType, _PCIGLCheckerRows.ConnectInfo)
End If
Next
_uow.CommitChanges()
End Sub
Private Sub aViewPCIDGroup_GLDetails_PCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails_PCIChecker.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCIGLCheckerRows As PCIGLCheckerRows = TryCast(View.SelectedObjects(0), PCIGLCheckerRows)
ViewPDCI.ViewGLDetails(_onew, Application, e, _PCIGLCheckerRows.PCIGLChecker.CustomersFrom, _
_PCIGLCheckerRows.Customers, _PCIGLCheckerRows.PartnerType, _
_PCIGLCheckerRows.ConnectInfo)
End Sub
Private Sub aViewPCIDGroup_PCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_PCIChecker.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCIGLCheckerRows As PCIGLCheckerRows = TryCast(View.SelectedObjects(0), PCIGLCheckerRows)
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCIGLCheckerRows.PCIGLChecker.CustomersFrom, _
_PCIGLCheckerRows.Customers, _PCIGLCheckerRows.PartnerType, _
_PCIGLCheckerRows.ConnectInfo)
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLChecker.vb
+120
View File
@@ -0,0 +1,120 @@
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), DeferredDeletion(False)> _
Public Class PCIGLChecker ' 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 _DateClose As Date
Private _ShortName As String
Private _PartnerType As ePartnerType
Private _UserCreated As User
Private _ObjectCreated As Date
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
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property DateClose As Date
Get
Return _DateClose
End Get
Set(value As Date)
SetPropertyValue("DateClose", _DateClose, 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 PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
<ModelDefault("AllowEdit", "False")> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<ModelDefault("AllowEdit", "False")> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<Association("PCIGLChecker-PCIGLCheckerRows", GetType(PCIGLCheckerRows))> _
ReadOnly Property PCIGLCheckerRows As XPCollection(Of PCIGLCheckerRows)
Get
Return GetCollection(Of PCIGLCheckerRows)("PCIGLCheckerRows")
End Get
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
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLCheckerRows.vb
+112
View File
@@ -0,0 +1,112 @@
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), DeferredDeletion(False)> _
Public Class PCIGLCheckerRows ' 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 _PCIGLChecker As PCIGLChecker
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _ConnectInfo As String
Private _BallanceHUF_GL As Double
Private _BallanceHUF_PCI 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
<Association("PCIGLChecker-PCIGLCheckerRows", GetType(PCIGLChecker))> _
Property PCIGLChecker As PCIGLChecker
Get
Return _PCIGLChecker
End Get
Set(value As PCIGLChecker)
SetPropertyValue("PCIGLChecker", _PCIGLChecker, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property BallanceHUF_GL As Double
Get
Return _BallanceHUF_GL
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_GL", _BallanceHUF_GL, value)
End Set
End Property
Property BallanceHUF_PCI As Double
Get
Return _BallanceHUF_PCI
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_PCI", _BallanceHUF_PCI, value)
End Set
End Property
ReadOnly Property DifferenceHUF As Double
Get
Return BallanceHUF_GL - BallanceHUF_PCI
End Get
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
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQHeader.vb
+159
View File
@@ -0,0 +1,159 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
Public Enum eInfoType
eOpen = 0 'Nyitott tételek a számla devizanemére vonatkozósan
eClose = 1 'Kifutott tételek a számla devizanemére vonatkozóan
eAll = 2 'Összes
End Enum
Public Enum ePACIQType
eFull = 0 'Összes
ePeriodicWithOpen = 1 'Adott idõszakra vonatkozó nyitóval
ePeriodicNoOpen = 2 'Adott idõszakra vonatkozó nyitó nélkül, de az
'idõszakon lelüli pü teljesítések amelyek az idõszakon kívüli számlákkal kapcsolatosak azokat NE
End Enum
<DefaultClassOptions()> _
<NavigationItem("FinancialTransactions")> _
<DeferredDeletion(False)> _
Public Class PartnerAccountConnectionInfoQueryHeader
Inherits BaseObject
Private _DateOpen As Date 'Nyitó dátum
Private _DateClose As Date 'Záró dátum
Private _ShortName As String 'A lekérdezés megnevezése
Private _InfoType As eInfoType 'A lekérdezés tipusa (nyitott tételek, lezárt tételek összes tétel)
Private _PartnerType As ePartnerType 'Partner tipusa
Private _PACIQType As ePACIQType 'Lekérdezés típusa
Private _UserCreated As User
Private _ObjectCreated As Date
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
If Session.IsNewObject(Me) Then
Me.DateClose = Now
Me.DateOpen = CDate(Year(Now).ToString & "/01/01")
Dim _PartnerAccountConnectionInfoQuerySelectedCustomersFrom As PartnerAccountConnectionInfoQuerySelectedCustomersFrom
Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(Session)
Dim _CustomersFrom As CustomersFrom
For Each _CustomersFrom In _CustomersFrom_Collection
_PartnerAccountConnectionInfoQuerySelectedCustomersFrom = New PartnerAccountConnectionInfoQuerySelectedCustomersFrom(Session)
_PartnerAccountConnectionInfoQuerySelectedCustomersFrom.PartnerAccountConnectionInfoQueryHeader = Me
_PartnerAccountConnectionInfoQuerySelectedCustomersFrom.CustomersFrom = _CustomersFrom
Next
End If
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Property DateOpen As Date
Get
Return _DateOpen
End Get
Set(value As Date)
SetPropertyValue("DateOpen", _DateOpen, value)
End Set
End Property
Property DateClose As Date
Get
Return _DateClose
End Get
Set(ByVal value As Date)
SetPropertyValue("DateClose", _DateClose, 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 InfoType As eInfoType
Get
Return _InfoType
End Get
Set(value As eInfoType)
SetPropertyValue("InfoType", _InfoType, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property PACIQType As ePACIQType
Get
Return _PACIQType
End Get
Set(value As ePACIQType)
SetPropertyValue("PACIQType", _PACIQType, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQueryRows", GetType(PartnerAccountConnectionInfoQueryRows)), VisibleInListView(False)> _
ReadOnly Property PartnerAccountConnectionInfoQueryRows As XPCollection(Of PartnerAccountConnectionInfoQueryRows)
Get
Return GetCollection(Of PartnerAccountConnectionInfoQueryRows)("PartnerAccountConnectionInfoQueryRows")
End Get
End Property
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQueryPartner", GetType(PartnerAccountConnectionInfoQueryPartner)), VisibleInListView(False)> _
ReadOnly Property PartnerAccountConnectionInfoQueryPartner As XPCollection(Of PartnerAccountConnectionInfoQueryPartner)
Get
Return GetCollection(Of PartnerAccountConnectionInfoQueryPartner)("PartnerAccountConnectionInfoQueryPartner")
End Get
End Property
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQuerySelectedCustomers", GetType(PartnerAccountConnectionInfoQuerySelectedCustomers)), VisibleInListView(False)> _
ReadOnly Property PartnerAccountConnectionInfoQuerySelectedCustomers As XPCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomers)
Get
Return GetCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomers)("PartnerAccountConnectionInfoQuerySelectedCustomers")
End Get
End Property
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQuerySelectedCustomersFrom", GetType(PartnerAccountConnectionInfoQuerySelectedCustomersFrom)), VisibleInListView(False)> _
ReadOnly Property PartnerAccountConnectionInfoQuerySelectedCustomersFrom As XPCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomersFrom)
Get
Return GetCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomersFrom)("PartnerAccountConnectionInfoQuerySelectedCustomersFrom")
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQPartner.vb
+89
View File
@@ -0,0 +1,89 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class PartnerAccountConnectionInfoQueryPartner
Inherits BaseObject
Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Private _CustomersFrom As CustomersFrom 'Saját cég
Private _Customers As Customers 'Partner
Private _CurrencyName_Account As CurrencyName 'Számla devizaneme
Private _PartnerType As ePartnerType 'Folyószámla oldal
Private _BallanceHUF As Double 'Egyenleg HUF
Private _BallanceDEV As Double 'Egyenleg DEV
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQueryPartner", GetType(PartnerAccountConnectionInfoQueryHeader))> _
Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Get
Return _PartnerAccountConnectionInfoQueryHeader
End Get
Set(ByVal value As PartnerAccountConnectionInfoQueryHeader)
SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value)
End Set
End Property
Property CustomersFrom() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers() As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property CurrencyName_Account As CurrencyName
Get
Return _CurrencyName_Account
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value)
End Set
End Property
Property PartnerType() As ePartnerType
Get
Return _PartnerType
End Get
Set(ByVal value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property BallanceHUF As Double
Get
Return _BallanceHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(ByVal value As Double)
SetPropertyValue("BallanceTotal", _BallanceDEV, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQRows.vb
+208
View File
@@ -0,0 +1,208 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
Public Enum ePACIQRows
eOpen = 0
eAccounts = 1
eFinancialBefore = 2
eFinancialNoConnect = 3
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class PartnerAccountConnectionInfoQueryRows
Inherits BaseObject
Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Private _RowType As ePACIQRows
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _ConnectInfo As String
Private _DocumentNumber As String 'Számla száma
Private _CurrencyName As CurrencyName
Private _DateExecution As Date
Private _DatePayment As Date 'Fizetési határidõ
Private _AmountHUF As Double 'Számla összege HUF bruttó
Private _AmountDEV As Double 'Számla összege DEV bruttó
Private _AmountNettoHUF As Double 'Számla összege HUF netto
Private _AmountNettoDEV As Double 'Számla összege DEV netto
Private _AmountVATHUF As Double 'Számla összege HUF ÁFA
Private _AmountVATDEV As Double 'Számla összege DEV ÁFA
Private _BallanceHUF As Double 'Egyenleg HUF (Számla vagy p.ü telj i s! elõjel helyesen !!!)
Private _BallanceDEV As Double 'Egyenleg DEV
Private _ForDelete As Boolean = False
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
ForDelete = False
End Sub
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQueryRows", GetType(PartnerAccountConnectionInfoQueryHeader))> _
Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Get
Return _PartnerAccountConnectionInfoQueryHeader
End Get
Set(ByVal value As PartnerAccountConnectionInfoQueryHeader)
SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value)
End Set
End Property
Property RowType As ePACIQRows
Get
Return _RowType
End Get
Set(value As ePACIQRows)
SetPropertyValue("RowType", _RowType, value)
End Set
End Property
Property CustomersFrom() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers() As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType() As ePartnerType
Get
Return _PartnerType
End Get
Set(ByVal value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo() As String
Get
Return _ConnectInfo
End Get
Set(ByVal value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property CurrencyName() As CurrencyName
Get
Return _CurrencyName
End Get
Set(ByVal value As CurrencyName)
SetPropertyValue("CurrencyName", _CurrencyName, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(ByVal value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property DatePayment As Date
Get
Return _DatePayment
End Get
Set(ByVal value As Date)
SetPropertyValue("DatePayment", _DatePayment, value)
End Set
End Property
Property AmountHUF As Double
Get
Return _AmountHUF
End Get
Set(value As Double)
SetPropertyValue("AmountHUF", _AmountHUF, value)
End Set
End Property
Property AmountDEV As Double
Get
Return _AmountDEV
End Get
Set(value As Double)
SetPropertyValue("AmountDEV", _AmountDEV, value)
End Set
End Property
Property AmountNettoHUF As Double
Get
Return _AmountNettoHUF
End Get
Set(value As Double)
SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value)
End Set
End Property
Property AmountNettoDEV As Double
Get
Return _AmountNettoDEV
End Get
Set(value As Double)
SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value)
End Set
End Property
Property AmountVATHUF As Double
Get
Return _AmountVATHUF
End Get
Set(value As Double)
SetPropertyValue("AmountVATHUF", _AmountVATHUF, value)
End Set
End Property
Property AmountVATDEV As Double
Get
Return _AmountVATDEV
End Get
Set(value As Double)
SetPropertyValue("AmountVATDEV", _AmountVATDEV, value)
End Set
End Property
Property BallanceHUF As Double
Get
Return _BallanceHUF
End Get
Set(ByVal value As Double)
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(ByVal value As Double)
SetPropertyValue("BallanceTotal", _BallanceDEV, value)
End Set
End Property
<Browsable(False)> _
Property ForDelete As Boolean
Get
Return _ForDelete
End Get
Set(value As Boolean)
SetPropertyValue("ForDelete", _ForDelete, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomers.vb
+44
View File
@@ -0,0 +1,44 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class PartnerAccountConnectionInfoQuerySelectedCustomers
Inherits BaseObject
Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Private _Customers As Customers 'Partner
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQuerySelectedCustomers", GetType(PartnerAccountConnectionInfoQueryHeader))> _
Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Get
Return _PartnerAccountConnectionInfoQueryHeader
End Get
Set(ByVal value As PartnerAccountConnectionInfoQueryHeader)
SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value)
End Set
End Property
Property Customers() As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomersFrom.vb
+44
View File
@@ -0,0 +1,44 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class PartnerAccountConnectionInfoQuerySelectedCustomersFrom
Inherits BaseObject
Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Private _CustomersFrom As CustomersFrom 'Partner
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("PartnerAccountConnectionInfoQueryHeader-PartnerAccountConnectionInfoQuerySelectedCustomersFrom", GetType(PartnerAccountConnectionInfoQueryHeader))> _
Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader
Get
Return _PartnerAccountConnectionInfoQueryHeader
End Get
Set(ByVal value As PartnerAccountConnectionInfoQueryHeader)
SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value)
End Set
End Property
Property CustomersFrom() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.Designer.vb
Generated
+135
View File
@@ -0,0 +1,135 @@
Partial Class PartnerAccountConnectionInfoQueryVC
<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.aGenerateReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aSelectCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aSelectCustomersFrom = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aViewPCID_PACIQ = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCICheck_PACIQ = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aCreateRounding_PACIQ = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
'
'aGenerateReport
'
Me.aGenerateReport.Caption = "Generate report"
Me.aGenerateReport.ConfirmationMessage = "Do you want to execute command ?"
Me.aGenerateReport.Id = "aGenerateReport"
Me.aGenerateReport.ImageName = "stopwatch_run"
Me.aGenerateReport.Shortcut = Nothing
Me.aGenerateReport.Tag = Nothing
Me.aGenerateReport.TargetObjectsCriteria = Nothing
Me.aGenerateReport.TargetViewId = "PartnerAccountConnectionInfoQueryHeader_DetailView"
Me.aGenerateReport.ToolTip = Nothing
Me.aGenerateReport.TypeOfView = Nothing
'
'aSelectCustomers
'
Me.aSelectCustomers.AcceptButtonCaption = Nothing
Me.aSelectCustomers.CancelButtonCaption = Nothing
Me.aSelectCustomers.Caption = "Select Customers"
Me.aSelectCustomers.ConfirmationMessage = Nothing
Me.aSelectCustomers.Id = "aSelectCustomers"
Me.aSelectCustomers.ImageName = Nothing
Me.aSelectCustomers.Shortcut = Nothing
Me.aSelectCustomers.Tag = Nothing
Me.aSelectCustomers.TargetObjectsCriteria = Nothing
Me.aSelectCustomers.TargetViewId = Nothing
Me.aSelectCustomers.ToolTip = Nothing
Me.aSelectCustomers.TypeOfView = Nothing
'
'aSelectCustomersFrom
'
Me.aSelectCustomersFrom.AcceptButtonCaption = Nothing
Me.aSelectCustomersFrom.CancelButtonCaption = Nothing
Me.aSelectCustomersFrom.Caption = "Select CustomersFrom"
Me.aSelectCustomersFrom.ConfirmationMessage = Nothing
Me.aSelectCustomersFrom.Id = "aSelectCustomersFrom"
Me.aSelectCustomersFrom.ImageName = Nothing
Me.aSelectCustomersFrom.Shortcut = Nothing
Me.aSelectCustomersFrom.Tag = Nothing
Me.aSelectCustomersFrom.TargetObjectsCriteria = Nothing
Me.aSelectCustomersFrom.TargetViewId = Nothing
Me.aSelectCustomersFrom.ToolTip = Nothing
Me.aSelectCustomersFrom.TypeOfView = Nothing
'
'aViewPCID_PACIQ
'
Me.aViewPCID_PACIQ.Caption = "aViewPCID_PACIQ"
Me.aViewPCID_PACIQ.ConfirmationMessage = Nothing
Me.aViewPCID_PACIQ.Id = "aViewPCID_PACIQ"
Me.aViewPCID_PACIQ.ImageName = Nothing
Me.aViewPCID_PACIQ.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCID_PACIQ.Shortcut = Nothing
Me.aViewPCID_PACIQ.Tag = Nothing
Me.aViewPCID_PACIQ.TargetObjectsCriteria = Nothing
Me.aViewPCID_PACIQ.TargetObjectType = GetType(SISBusiness.[Module].PartnerAccountConnectionInfoQueryRows)
Me.aViewPCID_PACIQ.TargetViewId = ""
Me.aViewPCID_PACIQ.ToolTip = Nothing
Me.aViewPCID_PACIQ.TypeOfView = Nothing
'
'aPCICheck_PACIQ
'
Me.aPCICheck_PACIQ.Caption = "aPCICheck_PACIQ"
Me.aPCICheck_PACIQ.ConfirmationMessage = Nothing
Me.aPCICheck_PACIQ.Id = "aPCICheck_PACIQ"
Me.aPCICheck_PACIQ.ImageName = Nothing
Me.aPCICheck_PACIQ.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCICheck_PACIQ.Shortcut = Nothing
Me.aPCICheck_PACIQ.Tag = Nothing
Me.aPCICheck_PACIQ.TargetObjectsCriteria = Nothing
Me.aPCICheck_PACIQ.TargetObjectType = GetType(SISBusiness.[Module].PartnerAccountConnectionInfoQueryRows)
Me.aPCICheck_PACIQ.TargetViewId = Nothing
Me.aPCICheck_PACIQ.ToolTip = Nothing
Me.aPCICheck_PACIQ.TypeOfView = Nothing
'
'aCreateRounding_PACIQ
'
Me.aCreateRounding_PACIQ.AcceptButtonCaption = Nothing
Me.aCreateRounding_PACIQ.CancelButtonCaption = Nothing
Me.aCreateRounding_PACIQ.Caption = "aCreateRateDiffPCIGroup"
Me.aCreateRounding_PACIQ.ConfirmationMessage = Nothing
Me.aCreateRounding_PACIQ.Id = "aCreateRounding_PACIQ"
Me.aCreateRounding_PACIQ.ImageName = Nothing
Me.aCreateRounding_PACIQ.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateRounding_PACIQ.Shortcut = Nothing
Me.aCreateRounding_PACIQ.Tag = Nothing
Me.aCreateRounding_PACIQ.TargetObjectsCriteria = Nothing
Me.aCreateRounding_PACIQ.TargetObjectType = GetType(SISBusiness.[Module].PartnerAccountConnectionInfoQueryRows)
Me.aCreateRounding_PACIQ.TargetViewId = Nothing
Me.aCreateRounding_PACIQ.ToolTip = Nothing
Me.aCreateRounding_PACIQ.TypeOfView = Nothing
End Sub
Friend WithEvents aGenerateReport As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aSelectCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aSelectCustomersFrom As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aViewPCID_PACIQ As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCICheck_PACIQ As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aCreateRounding_PACIQ As DevExpress.ExpressApp.Actions.PopupWindowShowAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.resx
+141
View File
@@ -0,0 +1,141 @@
<?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="aGenerateReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="aSelectCustomers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>153, 17</value>
</metadata>
<metadata name="aSelectCustomersFrom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>293, 17</value>
</metadata>
<metadata name="aViewPCID_PACIQ.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>458, 17</value>
</metadata>
<metadata name="aPCICheck_PACIQ.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>602, 17</value>
</metadata>
<metadata name="aCreateRounding_PACIQ.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>745, 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>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb
+700
View File
@@ -0,0 +1,700 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports System.Linq
Imports DevExpress.ExpressApp.Editors
Public Class PartnerAccountConnectionInfoQueryVC
Inherits DevExpress.ExpressApp.ViewController
Protected selection As ArrayList
Protected noselect As Boolean = False
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()
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", False)
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", False)
If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomers_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", True)
End If
If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomersFrom_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", True)
End If
If View.Id = "Customers_ListView_Select" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
End If
If View.Id = "CustomersFrom_ListView_Select" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
End If
End Sub
Private Sub aGenerateReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateReport.Execute
'-- Az adott záródátumra vonatkozó partner connection infot adja meg
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
Dim i As Long = 0
Dim _Need As Boolean = False
Dim _Crs As String = ""
Dim _Crs1 As String = ""
Dim _Cri As Long = 0
Dim _PartnerAccountConnectionInfoQuerySelectedCustomers As PartnerAccountConnectionInfoQuerySelectedCustomers
Dim _PartnerAccountConnectionInfoQuerySelectedCustomersFrom As PartnerAccountConnectionInfoQuerySelectedCustomersFrom
Dim _PCIDetail As PCIDetail
Dim _PCIDetail_Collection As XPCollection(Of PCIDetail)
Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows
Dim _PartnerAccountConnectionInfoQueryPartner As PartnerAccountConnectionInfoQueryPartner
Dim _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader = _uow.GetObjectByKey(Of PartnerAccountConnectionInfoQueryHeader) _
(TryCast(View.SelectedObjects(0), PartnerAccountConnectionInfoQueryHeader).Oid)
If _PartnerAccountConnectionInfoQueryHeader Is Nothing Then Exit Sub
If _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomersFrom.Count <= 0 Then
Throw New Exception("*Legalább egy saját céget ki kell választani !")
Exit Sub
End If
_PartnerAccountConnectionInfoQueryHeader.Save()
Dim _PartnerAccountConnectionInfoQueryRows_Collection As New XPCollection(Of PartnerAccountConnectionInfoQueryRows) _
(_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=?", _PartnerAccountConnectionInfoQueryHeader))
_uow.Delete(_PartnerAccountConnectionInfoQueryRows_Collection)
Dim _PartnerAccountConnectionInfoQueryPartner_Collection As New XPCollection(Of PartnerAccountConnectionInfoQueryPartner) _
(_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=?", _PartnerAccountConnectionInfoQueryHeader))
_uow.Delete(_PartnerAccountConnectionInfoQueryPartner_Collection)
'-- Lekérdezés, adott teljesítési dátumig történõ lekérdezés
If _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomers.Count > 0 Then
_Crs += " (Customers.Oid in ("
For Each _PartnerAccountConnectionInfoQuerySelectedCustomers In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomers
If _Cri = 0 Then
_Crs += "'" & _PartnerAccountConnectionInfoQuerySelectedCustomers.Customers.Oid.ToString & "'"
_Cri += 1
Else
_Crs += ",'" & _PartnerAccountConnectionInfoQuerySelectedCustomers.Customers.Oid.ToString & "'"
End If
Next
_Crs += ")) "
End If
_Cri = 0
_Crs1 += " (CustomersFrom.Oid in ("
For Each _PartnerAccountConnectionInfoQuerySelectedCustomersFrom In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomersFrom
If _Cri = 0 Then
_Crs1 += "'" & _PartnerAccountConnectionInfoQuerySelectedCustomersFrom.CustomersFrom.Oid.ToString & "'"
_Cri += 1
Else
_Crs1 += ",'" & _PartnerAccountConnectionInfoQuerySelectedCustomersFrom.CustomersFrom.Oid.ToString & "'"
End If
Next
_Crs1 += ")) "
If _Crs <> "" Then
_PCIDetail_Collection = New XPCollection(Of PCIDetail) _
(_uow, CriteriaOperator.Parse(_Crs1 & " and GetDate(DateExecution) <=? and PartnerType=? and " & _Crs, _PartnerAccountConnectionInfoQueryHeader.DateClose.Date, _
_PartnerAccountConnectionInfoQueryHeader.PartnerType))
Else
_PCIDetail_Collection = New XPCollection(Of PCIDetail) _
(_uow, CriteriaOperator.Parse(_Crs1 & " and GetDate(DateExecution) <=? and PartnerType=?", _PartnerAccountConnectionInfoQueryHeader.DateClose.Date, _
_PartnerAccountConnectionInfoQueryHeader.PartnerType))
End If
RaiseEvent InitWork(1, 1, _PCIDetail_Collection.Count)
For Each _PCIDetail In _PCIDetail_Collection
RaiseEvent DoWork()
i += 1
_PartnerAccountConnectionInfoQueryRows = New PartnerAccountConnectionInfoQueryRows(_uow)
_PartnerAccountConnectionInfoQueryRows.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader
If _PCIDetail.DateExecution.Date < _PartnerAccountConnectionInfoQueryHeader.DateOpen.Date Then
_PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eOpen
_PartnerAccountConnectionInfoQueryRows.ForDelete = True
If _PCIDetail.CurrencyName_Account Is Nothing Then
_PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName
Else
_PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account
End If
Else
Select Case _PCIDetail.MainType
Case "01-Account"
_PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eAccounts
_PartnerAccountConnectionInfoQueryRows.ForDelete = True
_PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account
_PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution_Account
_PartnerAccountConnectionInfoQueryRows.DatePayment = _PCIDetail.DatePayment_Account
_PartnerAccountConnectionInfoQueryRows.AmountDEV = _PCIDetail.AmountDEV_Account
_PartnerAccountConnectionInfoQueryRows.AmountHUF = _PCIDetail.AmountHUF_Account
_PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber
Case Else
If _PCIDetail.CurrencyName_Account Is Nothing Then
_PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eFinancialNoConnect
_PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName
_PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution
_PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber
Else
If _PCIDetail.DateExecution_Account.Date < _PartnerAccountConnectionInfoQueryHeader.DateOpen.Date Then
_PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eFinancialBefore
_PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account
_PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution_Account
_PartnerAccountConnectionInfoQueryRows.DatePayment = _PCIDetail.DatePayment_Account
_PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber
Else
_PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eAccounts
_PartnerAccountConnectionInfoQueryRows.ForDelete = True
_PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account
_PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution_Account
_PartnerAccountConnectionInfoQueryRows.DatePayment = _PCIDetail.DatePayment_Account
_PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber
End If
End If
End Select
End If
_PartnerAccountConnectionInfoQueryRows.CustomersFrom = _PCIDetail.CustomersFrom
_PartnerAccountConnectionInfoQueryRows.Customers = _PCIDetail.Customers
_PartnerAccountConnectionInfoQueryRows.PartnerType = _PartnerAccountConnectionInfoQueryHeader.PartnerType
_PartnerAccountConnectionInfoQueryRows.ConnectInfo = _PCIDetail.ConnectInfo
_PartnerAccountConnectionInfoQueryRows.BallanceHUF = _PCIDetail.BallanceHUF
_PartnerAccountConnectionInfoQueryRows.BallanceDEV = _PCIDetail.BallanceDEV
_PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber
If i Mod 1000 Then _uow.CommitChanges()
Next
_uow.CommitChanges()
RaiseEvent FinalWork
'-- Most kell az XPQuery csoportosítás !!!
'-- Nyitók helyrerakása
Dim query = From _Open In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows
Where _Open.RowType = ePACIQRows.eOpen And
_Open.PartnerAccountConnectionInfoQueryHeader Is _PartnerAccountConnectionInfoQueryHeader
Group _Open By _Open.CustomersFrom, _
_Open.Customers, _
_Open.PartnerType, _
_Open.CurrencyName Into g = Group _
Select New With {Key .CustomersFrom = CustomersFrom, _
Key .PartnerType = PartnerType, _
Key .Customers = Customers, _
Key .CurrencyName = CurrencyName, _
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV)}
For Each item In query
_PartnerAccountConnectionInfoQueryRows = New PartnerAccountConnectionInfoQueryRows(_uow)
_PartnerAccountConnectionInfoQueryRows.ForDelete = False
_PartnerAccountConnectionInfoQueryRows.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader
_PartnerAccountConnectionInfoQueryRows.CustomersFrom = item.CustomersFrom
_PartnerAccountConnectionInfoQueryRows.Customers = item.Customers
_PartnerAccountConnectionInfoQueryRows.PartnerType = item.PartnerType
_PartnerAccountConnectionInfoQueryRows.CurrencyName = item.CurrencyName
_PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eOpen
_PartnerAccountConnectionInfoQueryRows.BallanceHUF = item.BallanceHUF
_PartnerAccountConnectionInfoQueryRows.BallanceDEV = item.BallanceDEV
Next
_uow.CommitChanges()
_PartnerAccountConnectionInfoQueryRows_Collection = New XPCollection(Of PartnerAccountConnectionInfoQueryRows) _
(_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=? and RowType=0 and ForDelete=True", _PartnerAccountConnectionInfoQueryHeader))
_uow.Delete(_PartnerAccountConnectionInfoQueryRows_Collection)
_uow.CommitChanges()
'-- Számlák helyrerakása
Dim query1 = From _Open In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows
Where _Open.RowType = ePACIQRows.eAccounts And
_Open.PartnerAccountConnectionInfoQueryHeader Is _PartnerAccountConnectionInfoQueryHeader
Group _Open By _Open.CustomersFrom, _
_Open.Customers, _
_Open.PartnerType, _
_Open.CurrencyName, _
_Open.ConnectInfo Into g = Group _
Select New With {Key .CustomersFrom = CustomersFrom, _
Key .PartnerType = PartnerType, _
Key .Customers = Customers, _
Key .CurrencyName = CurrencyName, _
Key .ConnectInfo = ConnectInfo, _
Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _
Key .DateExecution = g.Max(Function(inv) inv.DateExecution), _
Key .DatePayment = g.Max(Function(inv) inv.DatePayment), _
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV)}
For Each item In query1
_Need = False
If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eAll Then
_Need = True
End If
If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eOpen Then
If item.CurrencyName.ShortName = "HUF" Then
If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) <> 0 Then
_Need = True
End If
Else
If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then
_Need = True
End If
End If
End If
If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eClose Then
If item.CurrencyName.ShortName = "HUF" Then
If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) = 0 Then
_Need = True
End If
Else
If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then
_Need = True
End If
End If
End If
If _Need Then
_PartnerAccountConnectionInfoQueryRows = New PartnerAccountConnectionInfoQueryRows(_uow)
_PartnerAccountConnectionInfoQueryRows.ForDelete = False
_PartnerAccountConnectionInfoQueryRows.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader
_PartnerAccountConnectionInfoQueryRows.CustomersFrom = item.CustomersFrom
_PartnerAccountConnectionInfoQueryRows.Customers = item.Customers
_PartnerAccountConnectionInfoQueryRows.PartnerType = item.PartnerType
_PartnerAccountConnectionInfoQueryRows.CurrencyName = item.CurrencyName
_PartnerAccountConnectionInfoQueryRows.ConnectInfo = item.ConnectInfo
_PartnerAccountConnectionInfoQueryRows.DocumentNumber = item.DocumentNumber
_PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eAccounts
_PartnerAccountConnectionInfoQueryRows.DatePayment = item.DatePayment
_PartnerAccountConnectionInfoQueryRows.DateExecution = item.DateExecution
_PartnerAccountConnectionInfoQueryRows.BallanceHUF = item.BallanceHUF
_PartnerAccountConnectionInfoQueryRows.BallanceDEV = item.BallanceDEV
End If
Next
_uow.CommitChanges()
_PartnerAccountConnectionInfoQueryRows_Collection = New XPCollection(Of PartnerAccountConnectionInfoQueryRows) _
(_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=? and RowType=1 and ForDelete=True", _PartnerAccountConnectionInfoQueryHeader))
_uow.Delete(_PartnerAccountConnectionInfoQueryRows_Collection)
_uow.CommitChanges()
'-- Most kell a partner összesítés
Dim query_partner = From _Open In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows
Where _Open.PartnerAccountConnectionInfoQueryHeader Is _PartnerAccountConnectionInfoQueryHeader
Group _Open By _Open.CustomersFrom, _
_Open.Customers, _
_Open.PartnerType, _
_Open.CurrencyName Into g = Group _
Select New With {Key .CustomersFrom = CustomersFrom, _
Key .PartnerType = PartnerType, _
Key .Customers = Customers, _
Key .CurrencyName = CurrencyName, _
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV)}
RaiseEvent InitWork(1, 1, query_partner.Count)
For Each item In query_partner
RaiseEvent DoWork()
_Need = False
If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eAll Then
_Need = True
End If
If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eOpen Then
If item.CurrencyName.ShortName = "HUF" Then
If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) <> 0 Then
_Need = True
End If
Else
If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then
_Need = True
End If
End If
End If
If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eClose Then
If item.CurrencyName.ShortName = "HUF" Then
If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) = 0 Then
_Need = True
End If
Else
If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then
_Need = True
End If
End If
End If
If _Need Then
_PartnerAccountConnectionInfoQueryPartner = New PartnerAccountConnectionInfoQueryPartner(_uow)
_PartnerAccountConnectionInfoQueryPartner.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader
_PartnerAccountConnectionInfoQueryPartner.CustomersFrom = item.CustomersFrom
_PartnerAccountConnectionInfoQueryPartner.Customers = item.Customers
_PartnerAccountConnectionInfoQueryPartner.PartnerType = item.PartnerType
_PartnerAccountConnectionInfoQueryPartner.CurrencyName_Account = item.CurrencyName
_PartnerAccountConnectionInfoQueryPartner.BallanceDEV = item.BallanceDEV
_PartnerAccountConnectionInfoQueryPartner.BallanceHUF = item.BallanceHUF
End If
Next
_uow.CommitChanges()
RaiseEvent FinalWork
'// Egyéb infok egyenként kigenerálva !
RaiseEvent InitWork(1, 1, _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows.Count)
For Each _PartnerAccountConnectionInfoQueryRows In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows
RaiseEvent DoWork()
If _PartnerAccountConnectionInfoQueryRows.PartnerType = ePartnerType.eReceivables Then
Dim _InvoiceHeader As InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _PartnerAccountConnectionInfoQueryRows.CustomersFrom.Oid, _PartnerAccountConnectionInfoQueryRows.Customers.Oid, _PartnerAccountConnectionInfoQueryRows.DocumentNumber))
If _InvoiceHeader IsNot Nothing Then
_PartnerAccountConnectionInfoQueryRows.AmountNettoHUF = 0
_PartnerAccountConnectionInfoQueryRows.AmountVATHUF = 0
Dim _InvoiceVATRows As InvoiceVATRows
For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows
_PartnerAccountConnectionInfoQueryRows.AmountNettoHUF += _InvoiceVATRows.AmountNettoHUF
_PartnerAccountConnectionInfoQueryRows.AmountVATHUF += _InvoiceVATRows.AmountVATHUF
Next
End If
End If
Next
_uow.CommitChanges()
RaiseEvent FinalWork
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Function Query1() As System.Linq.IQueryable
End Function
Private Sub aSelectCustomers_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomers.CustomizePopupWindowParams
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _CS As New CollectionSource(_onew, GetType(Customers))
'_CS.BeginUpdateCriteria()
'_CS.Criteria.Clear()
'_CS.Criteria("First") = ""
'_CS.EndUpdateCriteria()
e.View = Application.CreateListView("Customers_ListView_Select", _CS, False)
End Sub
Private Sub aSelectCustomers_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomers.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _Customers As Customers
Dim _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
Dim _PartnerAccountConnectionInfoQuerySelectedCustomers As PartnerAccountConnectionInfoQuerySelectedCustomers
If _PartnerAccountConnectionInfoQueryHeader Is Nothing Then Exit Sub
If e.PopupWindow.View.SelectedObjects.Count > 0 Then
For Each _Customers In e.PopupWindow.View.SelectedObjects
_PartnerAccountConnectionInfoQuerySelectedCustomers = New PartnerAccountConnectionInfoQuerySelectedCustomers(_uow)
_PartnerAccountConnectionInfoQuerySelectedCustomers.PartnerAccountConnectionInfoQueryHeader = _uow.GetObjectByKey(Of PartnerAccountConnectionInfoQueryHeader)(_PartnerAccountConnectionInfoQueryHeader.Oid)
_PartnerAccountConnectionInfoQuerySelectedCustomers.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid)
Next
_uow.CommitChanges()
End If
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
If nestedFrame IsNot Nothing Then
Dim parentView As View = nestedFrame.View
parentView.ObjectSpace.Refresh()
End If
End Sub
Private Sub aSelectCustomersFrom_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFrom.CustomizePopupWindowParams
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _CS As New CollectionSource(_onew, GetType(CustomersFrom))
'_CS.BeginUpdateCriteria()
'_CS.Criteria.Clear()
'_CS.Criteria("First") = ""
'_CS.EndUpdateCriteria()
e.View = Application.CreateListView("CustomersFrom_ListView_Select", _CS, False)
End Sub
Private Sub aSelectCustomersFrom_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomersFrom.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _Customersfrom As CustomersFrom
Dim _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
Dim _PartnerAccountConnectionInfoQuerySelectedCustomersfrom As PartnerAccountConnectionInfoQuerySelectedCustomersFrom
If _PartnerAccountConnectionInfoQueryHeader Is Nothing Then Exit Sub
If e.PopupWindow.View.SelectedObjects.Count > 0 Then
For Each _Customersfrom In e.PopupWindow.View.SelectedObjects
_PartnerAccountConnectionInfoQuerySelectedCustomersfrom = New PartnerAccountConnectionInfoQuerySelectedCustomersFrom(_uow)
_PartnerAccountConnectionInfoQuerySelectedCustomersfrom.PartnerAccountConnectionInfoQueryHeader = _uow.GetObjectByKey(Of PartnerAccountConnectionInfoQueryHeader)(_PartnerAccountConnectionInfoQueryHeader.Oid)
_PartnerAccountConnectionInfoQuerySelectedCustomersfrom.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_Customersfrom.Oid)
Next
_uow.CommitChanges()
End If
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
If nestedFrame IsNot Nothing Then
Dim parentView As View = nestedFrame.View
parentView.ObjectSpace.Refresh()
End If
End Sub
Private Sub aViewPCID_PACIQ_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_PACIQ.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows = TryCast(View.SelectedObjects(0), PartnerAccountConnectionInfoQueryRows)
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PartnerAccountConnectionInfoQueryRows.CustomersFrom, _
_PartnerAccountConnectionInfoQueryRows.Customers, _PartnerAccountConnectionInfoQueryRows.PartnerType, _
_PartnerAccountConnectionInfoQueryRows.ConnectInfo)
End Sub
Private Sub aPCICheck_PACIQ_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck_PACIQ.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _PartnerAccountConnectionInfoQueryRows In View.SelectedObjects
RaiseEvent DoWork()
GLFunctions.ReconfigurePCI(_uow, _PartnerAccountConnectionInfoQueryRows.CustomersFrom, _
_PartnerAccountConnectionInfoQueryRows.Customers, _
_PartnerAccountConnectionInfoQueryRows.PartnerType, _
_PartnerAccountConnectionInfoQueryRows.ConnectInfo)
Next
RaiseEvent FinalWork
End Sub
Private Sub aCreateRounding_PACIQ_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateRounding_PACIQ.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _RateDiffPopUp As RateDiffPopUp = _onew.CreateObject(Of RateDiffPopUp)()
noselect = True
_RateDiffPopUp.DateExecution = Now
e.View = Application.CreateDetailView(_onew, "RateDiffPopUp_DetailView", False, _RateDiffPopUp)
End Sub
Private Sub aCreateRounding_PACIQ_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateRounding_PACIQ.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _RateDiffPopUp As RateDiffPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RateDiffPopUp)
Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows
Dim _GLHeader_Rounding As GLMixed = Nothing
Dim _GLRows_Rounding As GLRows
Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing
Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing
Dim _Controlling As Controlling = Nothing
Dim _GLMixedNG As GLMixedNG
Dim _Rate As Double = 1
Dim _GLHeader_RoundingParameter = _ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1"))
If _GLHeader_RoundingParameter Is Nothing Then
Throw New Exception("*Nincs beállítva az elengedési paraméter !")
Exit Sub
End If
Dim _ChartOfAccounts_Rounding_Win As ChartOfAccounts = _GLHeader_RoundingParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRoundingWin)
Dim _ChartOfAccounts_Rounding_Loss As ChartOfAccounts = _GLHeader_RoundingParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRoundingLoss)
Dim _Controlling_Rounding_Win As Controlling = _GLHeader_RoundingParameter.Controlling_Rounding_Win
Dim _Controlling_Rounding_Loss As Controlling = _GLHeader_RoundingParameter.Controlling_Rounding_Loss
If _ChartOfAccounts_Rounding_Loss Is Nothing Or _
_ChartOfAccounts_Rounding_Win Is Nothing Then
Throw New Exception("*Nincs beállítva az elengedési paraméter !")
Exit Sub
End If
Dim _CurrencyName As CurrencyName = Nothing
Dim _CustomersFrom As CustomersFrom = Nothing
Dim i As Long = 0
Dim _InAmountHUF As Double = 0
Dim _OutAmountHUF As Double = 0
Dim _InAmountDEV As Double = 0
Dim _OutAmountDEV As Double = 0
If selection.Count <= 0 Then Exit Sub
For Each _PartnerAccountConnectionInfoQueryRows In selection
If i = 0 Then
_CustomersFrom = _PartnerAccountConnectionInfoQueryRows.CustomersFrom
_CurrencyName = _PartnerAccountConnectionInfoQueryRows.CurrencyName
If _PartnerAccountConnectionInfoQueryRows.AmountDEV <> 0 Then
_Rate = _PartnerAccountConnectionInfoQueryRows.AmountHUF / _PartnerAccountConnectionInfoQueryRows.AmountDEV
End If
i = 1
End If
If _PartnerAccountConnectionInfoQueryRows.CustomersFrom.Oid <> _CustomersFrom.Oid Then
Throw New Exception("*Csak azonos saját cégű sorok jelölhető ki egyszerre !")
Exit For
End If
If _PartnerAccountConnectionInfoQueryRows.CurrencyName.Oid <> _CurrencyName.Oid Then
Throw New Exception("*Csak azonos devizával rendelkező sorok jelölhető ki egyszerre !")
Exit For
End If
Next
_GLHeader_Rounding = _ocur.CreateObject(Of GLMixed)()
_GLHeader_Rounding.CustomersFrom = _CustomersFrom
_GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Rounding.CustomersFrom), True)
If _GLMixedNG IsNot Nothing Then
If _GLHeader_Rounding.DocumentNumber = "" Then
_GLHeader_Rounding.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator_Rounding)
End If
End If
_GLHeader_Rounding.DateExecution = _RateDiffPopUp.DateExecution
_GLHeader_Rounding.DateCreated = _RateDiffPopUp.DateExecution
_GLHeader_Rounding.NoteHeader = _RateDiffPopUp.Description
_GLHeader_Rounding.GLDocumentType = eGLDocumentType.eGLRateDiff
_GLHeader_Rounding.IsEditable = False
_GLHeader_Rounding.IsStorno = False
For Each _PartnerAccountConnectionInfoQueryRows In selection
_GLHeader_Rounding.CurrencyName = _PartnerAccountConnectionInfoQueryRows.CurrencyName
_OutAmountDEV = 0
_OutAmountHUF = 0
_InAmountDEV = 0
_InAmountHUF = 0
If _PartnerAccountConnectionInfoQueryRows.CurrencyName.ShortName = "HUF" Then
Select Case _PartnerAccountConnectionInfoQueryRows.PartnerType
Case ePartnerType.ePayabels
If _PartnerAccountConnectionInfoQueryRows.BallanceHUF > 0 Then 'Elengedés nyereség
_DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn)
_CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win
_Controlling = _Controlling_Rounding_Win
_OutAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF)
Else 'Elengedés veszteség
_DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss
_CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn)
_Controlling = _Controlling_Rounding_Loss
_InAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF)
End If
Case ePartnerType.eReceivables
If _PartnerAccountConnectionInfoQueryRows.BallanceHUF > 0 Then ' Elengedés veszteség
_DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss
_CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut)
_Controlling = _Controlling_Rounding_Loss
_InAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF)
Else 'Elengedés nyereség
_DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut)
_CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win
_Controlling = _Controlling_Rounding_Win
_OutAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF)
End If
End Select
Else
Select Case _PartnerAccountConnectionInfoQueryRows.PartnerType
Case ePartnerType.ePayabels
If _PartnerAccountConnectionInfoQueryRows.BallanceDEV > 0 Then 'Elengedés nyereség szállító
_DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn)
_CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win
_Controlling = _Controlling_Rounding_Win
_OutAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV)
Else 'Elengedés veszteség szállító
_DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss
_CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn)
_Controlling = _Controlling_Rounding_Loss
_InAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV)
End If
Case ePartnerType.eReceivables
If _PartnerAccountConnectionInfoQueryRows.BallanceDEV > 0 Then ' Elengedés veszteség vevő
_DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss
_CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut)
_Controlling = _Controlling_Rounding_Loss
_InAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV)
Else 'Elengedés nyereség vevő
_DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut)
_CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win
_Controlling = _Controlling_Rounding_Win
_OutAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV)
End If
End Select
End If
_GLRows_Rounding = _ocur.CreateObject(Of GLRows)()
_GLRows_Rounding.GLHeader = _GLHeader_Rounding
If _PartnerAccountConnectionInfoQueryRows.CurrencyName.ShortName = "HUF" Then
_GLRows_Rounding.InAmountHUF = _InAmountHUF
_GLRows_Rounding.OutAmountHUF = _OutAmountHUF
_GLRows_Rounding.InAmountDEV = 0
_GLRows_Rounding.OutAmountDEV = 0
_GLRows_Rounding.AddGLRows(_GLHeader_Rounding, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF), Nothing, _
_PartnerAccountConnectionInfoQueryRows.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _PartnerAccountConnectionInfoQueryRows.ConnectInfo, _
eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _PartnerAccountConnectionInfoQueryRows.PartnerType)
Else
_GLHeader_Rounding.CurrencyRate = _Rate
_GLRows_Rounding.InAmountHUF = Math.Round(_InAmountDEV * _Rate, 0, MidpointRounding.AwayFromZero)
_GLRows_Rounding.OutAmountHUF = Math.Round(_OutAmountDEV * _Rate, 0, MidpointRounding.AwayFromZero)
_GLRows_Rounding.InAmountDEV = _InAmountDEV
_GLRows_Rounding.OutAmountDEV = _OutAmountDEV
_GLRows_Rounding.AddGLRows(_GLHeader_Rounding, _DebitChartOfAccounts, _CreditChartOfAccounts, Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV), Math.Round(Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV) * _Rate, 0, MidpointRounding.AwayFromZero), Nothing, _
_PartnerAccountConnectionInfoQueryRows.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _PartnerAccountConnectionInfoQueryRows.ConnectInfo, _
eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _PartnerAccountConnectionInfoQueryRows.PartnerType)
End If
_ocur.CommitChanges()
GLFunctions.ReconfigurePCI(_uow, _PartnerAccountConnectionInfoQueryRows.CustomersFrom, _PartnerAccountConnectionInfoQueryRows.Customers, _PartnerAccountConnectionInfoQueryRows.PartnerType, _PartnerAccountConnectionInfoQueryRows.ConnectInfo)
Next
_ocur.CommitChanges()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
noselect = False
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheck.vb
+31
View File
@@ -0,0 +1,31 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
Public Class PCICheck
Inherits XPObject
Private Shared myOid As Integer = 0
Public Sub New(ByVal session As Session)
MyBase.New(session)
myOid += 1
Oid = myOid
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
Property RegistryHeader As RegistryHeader
Property InvoiceHeader As InvoiceHeader
Property GLAccounts As GLAccounts
Property GLRows As GLRows
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.Designer.vb
Generated
+70
View File
@@ -0,0 +1,70 @@
Partial Class PCICheckVC
<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.aPCICheck_PCICheck = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCI_PCICheck = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aPCICheck_PCICheck
'
Me.aPCICheck_PCICheck.Caption = "aPCICheck_PCICheck"
Me.aPCICheck_PCICheck.Category = "RecordEdit"
Me.aPCICheck_PCICheck.ConfirmationMessage = Nothing
Me.aPCICheck_PCICheck.Id = "aPCICheck_PCICheck"
Me.aPCICheck_PCICheck.ImageName = Nothing
Me.aPCICheck_PCICheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCICheck_PCICheck.Shortcut = Nothing
Me.aPCICheck_PCICheck.Tag = Nothing
Me.aPCICheck_PCICheck.TargetObjectsCriteria = Nothing
Me.aPCICheck_PCICheck.TargetObjectType = GetType(SISBusiness.[Module].PCICheck)
Me.aPCICheck_PCICheck.TargetViewId = Nothing
Me.aPCICheck_PCICheck.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aPCICheck_PCICheck.ToolTip = Nothing
Me.aPCICheck_PCICheck.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
'
'aViewPCI_PCICheck
'
Me.aViewPCI_PCICheck.Caption = "aViewPCI_PCICheck"
Me.aViewPCI_PCICheck.ConfirmationMessage = Nothing
Me.aViewPCI_PCICheck.Id = "aViewPCI_PCICheck"
Me.aViewPCI_PCICheck.ImageName = Nothing
Me.aViewPCI_PCICheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCI_PCICheck.Shortcut = Nothing
Me.aViewPCI_PCICheck.Tag = Nothing
Me.aViewPCI_PCICheck.TargetObjectsCriteria = Nothing
Me.aViewPCI_PCICheck.TargetObjectType = GetType(SISBusiness.[Module].PCICheck)
Me.aViewPCI_PCICheck.TargetViewId = ""
Me.aViewPCI_PCICheck.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aViewPCI_PCICheck.ToolTip = Nothing
Me.aViewPCI_PCICheck.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
End Sub
Friend WithEvents aPCICheck_PCICheck As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCI_PCICheck As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.resx
+129
View File
@@ -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="aPCICheck_PCICheck.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aViewPCI_PCICheck.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>34, 97</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.vb
+311
View File
@@ -0,0 +1,311 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.SystemModule
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.Xpo.DB
Public Class PCICheckVC
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 = "PCICheck_ListView_RegistryHeader" Then
AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_RegistryHeader_RefreshAction_Executed
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
If View.Id = "PCICheck_ListView_InvoiceHeader" Then
AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_InvoiceHeader_RefreshAction_Executed
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
If View.Id = "PCICheck_ListView_GLAccounts" Then
AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_GLAccounts_RefreshAction_Executed
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
If View.Id = "PCICheck_ListView_GLRows" Then
AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_GLRows_RefreshAction_Executed
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Private Sub PCICheck_ListView_RegistryHeader_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCICheck As PCICheck
Dim _SelectStatementResultRow As SelectStatementResultRow
Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
Dim _SQL As String = ""
Dim _RegistryHeader As RegistryHeader
Select Case GLOBAL_SQLType
Case eSQLType.PostgreSQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM RegistryHeader t1 LEFT JOIN PCIGroup t2 ON"
_SQL += " t1.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customers=t2.Customers AND "
_SQL += " t1.F_ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=1 LEFT JOIN RegistryType t3 ON"
_SQL += " t1.RegistryType=t3.Oid LEFT JOIN Organization t4 ON"
_SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON"
_SQL += " t1.Customers = t5.Oid"
_SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND"
_SQL += " t1.RegistryAcceptState=0 AND t3.RegistryMainType=0"
Case eSQLType.MSSQL, eSQLType.MySQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM RegistryHeader t1 LEFT JOIN PCIGroup t2 ON"
_SQL += " t1.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customers=t2.Customers AND "
_SQL += " t1.F_ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=1 LEFT JOIN RegistryType t3 ON"
_SQL += " t1.RegistryType=t3.Oid LEFT JOIN Organization t4 ON"
_SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON"
_SQL += " t1.Customers = t5.Oid"
_SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND"
_SQL += " t1.RegistryAcceptState=0 AND t3.RegistryMainType=0 and t1.F_GLAccounts is null and t1.IsStorno=0"
End Select
_SelectedData = _ocur.Session.ExecuteQuery(_SQL)
If _SelectedData.ResultSet.Length > 0 Then
RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count)
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
RaiseEvent DoWork()
_RegistryHeader = _ocur.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0)))
If _RegistryHeader IsNot Nothing Then
_PCICheck = _ocur.CreateObject(Of PCICheck)()
_PCICheck.RegistryHeader = _RegistryHeader
TryCast(View, ListView).CollectionSource.Add(_PCICheck)
End If
Next
RaiseEvent FinalWork
End If
End Sub
Private Sub PCICheck_ListView_InvoiceHeader_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCICheck As PCICheck
Dim _SelectStatementResultRow As SelectStatementResultRow
Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
Dim _SQL As String = ""
Dim _InvoiceHeader As InvoiceHeader
Select Case GLOBAL_SQLType
Case eSQLType.PostgreSQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM InvoiceHeader t1 LEFT JOIN PCIGroup t2 ON"
_SQL += " t1.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customers=t2.Customers AND "
_SQL += " t1.ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=0 LEFT JOIN Organization t4 ON"
_SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON"
_SQL += " t1.Customers = t5.Oid"
_SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND"
_SQL += " t1.DocumentNumber<>''"
Case eSQLType.MSSQL, eSQLType.MySQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM InvoiceHeader t1 LEFT JOIN PCIGroup t2 ON"
_SQL += " t1.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customers=t2.Customers AND "
_SQL += " t1.ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=0 LEFT JOIN Organization t4 ON"
_SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON"
_SQL += " t1.Customers = t5.Oid"
_SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND"
_SQL += " t1.DocumentNumber<>'' and t1.GLAccounts is null"
End Select
_SelectedData = _ocur.Session.ExecuteQuery(_SQL)
If _SelectedData.ResultSet.Length > 0 Then
RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count)
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
RaiseEvent DoWork()
_InvoiceHeader = _ocur.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0)))
If _InvoiceHeader IsNot Nothing Then
_PCICheck = _ocur.CreateObject(Of PCICheck)()
_PCICheck.InvoiceHeader = _InvoiceHeader
TryCast(View, ListView).CollectionSource.Add(_PCICheck)
End If
Next
RaiseEvent FinalWork
End If
End Sub
Private Sub PCICheck_ListView_GLAccounts_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCICheck As PCICheck
Dim _SelectStatementResultRow As SelectStatementResultRow
Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
Dim _SQL As String = ""
Dim _GLAccounts As GLAccounts
Select Case GLOBAL_SQLType
Case eSQLType.PostgreSQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM GLHeader t0 join GLAccounts t1 on "
_SQL += " t0.Oid=t1.Oid LEFT JOIN PCIGroup t2 ON"
_SQL += " t0.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customers=t2.Customers AND "
_SQL += " t1.ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=t1.PartnerType LEFT JOIN Organization t4 ON"
_SQL += " t0.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON"
_SQL += " t1.Customers = t5.Oid"
_SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND"
_SQL += " t0.DocumentNumber<>''"
Case eSQLType.MSSQL, eSQLType.MySQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM GLHeader t0 join GLAccounts t1 on "
_SQL += " t0.Oid=t1.Oid LEFT JOIN PCIGroup t2 ON"
_SQL += " t0.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customers=t2.Customers AND "
_SQL += " t1.ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=t1.PartnerType LEFT JOIN Organization t4 ON"
_SQL += " t0.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON"
_SQL += " t1.Customers = t5.Oid"
_SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND"
_SQL += " t0.DocumentNumber<>''"
End Select
_SelectedData = _ocur.Session.ExecuteQuery(_SQL)
If _SelectedData.ResultSet.Length > 0 Then
RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count)
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
RaiseEvent DoWork()
_GLAccounts = _ocur.FindObject(Of GLAccounts)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0)))
If _GLAccounts IsNot Nothing Then
_PCICheck = _ocur.CreateObject(Of PCICheck)()
_PCICheck.GLAccounts = _GLAccounts
TryCast(View, ListView).CollectionSource.Add(_PCICheck)
End If
Next
RaiseEvent FinalWork
End If
End Sub
Private Sub PCICheck_ListView_GLRows_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCICheck As PCICheck
Dim _SelectStatementResultRow As SelectStatementResultRow
Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
Dim _SQL As String = ""
Dim _GLRows As GLRows
Select Case GLOBAL_SQLType
Case eSQLType.PostgreSQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM GLHeader t0 join GLRows t1 on "
_SQL += " t0.Oid=t1.GLHeader LEFT JOIN PCIDetail t2 ON"
_SQL += " t0.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customer=t2.Customers AND "
_SQL += " t1.ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=t1.PartnerType "
_SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND"
_SQL += " t0.DocumentNumber<>'' and t1.PartnerType in (0,1) and t1.Customer is not null and t1.GCRecord is null"
_SQL += " and t0.GLDocumentType in (0,2,3,4,5)"
Case eSQLType.MSSQL, eSQLType.MySQL
_SQL = " SELECT t1.Oid"
_SQL += " FROM GLHeader t0 join GLRows t1 on "
_SQL += " t0.Oid=t1.GLHeader LEFT JOIN PCIDetail t2 ON"
_SQL += " t0.CustomersFrom=t2.CustomersFrom AND "
_SQL += " t1.Customer=t2.Customers AND "
_SQL += " t1.ConnectInfo=t2.ConnectInfo AND "
_SQL += " t2.PartnerType=t1.PartnerType "
_SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND"
_SQL += " t0.DocumentNumber<>'' and t1.PartnerType in (0,1) and t1.Customer is not null and t1.GCRecord is null"
_SQL += " and t0.GLDocumentType in (0,2,3,4,5)"
End Select
_SelectedData = _ocur.Session.ExecuteQuery(_SQL)
If _SelectedData.ResultSet.Length > 0 Then
RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count)
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
RaiseEvent DoWork()
_GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0)))
If _GLRows IsNot Nothing Then
_PCICheck = _ocur.CreateObject(Of PCICheck)()
_PCICheck.GLRows = _GLRows
TryCast(View, ListView).CollectionSource.Add(_PCICheck)
End If
Next
RaiseEvent FinalWork
End If
End Sub
Private Sub aPCICheck_PCICheck_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheck_PCICheck.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _PCICheck As PCICheck
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _PCICheck In View.SelectedObjects
RaiseEvent DoWork()
If _PCICheck.GLAccounts IsNot Nothing Then
GLFunctions.ReconfigurePCI(_uow, _PCICheck.GLAccounts.CustomersFrom, _PCICheck.GLAccounts.Customers, _PCICheck.GLAccounts.PartnerType, _PCICheck.GLAccounts.ConnectInfo)
ElseIf _PCICheck.InvoiceHeader IsNot Nothing Then
GLFunctions.ReconfigurePCI(_uow, _PCICheck.InvoiceHeader.CustomersFrom, _PCICheck.InvoiceHeader.Customers, 0, _PCICheck.InvoiceHeader.ConnectInfo)
ElseIf _PCICheck.RegistryHeader IsNot Nothing Then
GLFunctions.ReconfigurePCI(_uow, _PCICheck.RegistryHeader.CustomersFrom, _PCICheck.RegistryHeader.Customers, 1, _PCICheck.RegistryHeader.F_ConnectInfo)
ElseIf _PCICheck.GLRows IsNot Nothing Then
GLFunctions.ReconfigurePCI(_uow, _PCICheck.GLRows.GLHeader.CustomersFrom, _PCICheck.GLRows.Customer, _PCICheck.GLRows.PartnerType, _PCICheck.GLRows.ConnectInfo)
End If
Next
RaiseEvent FinalWork
End Sub
Private Sub aViewPCI_PCICheck_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCI_PCICheck.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCICheck As PCICheck = TryCast(View.SelectedObjects(0), PCICheck)
If _PCICheck.GLAccounts IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.GLAccounts.CustomersFrom, _
_PCICheck.GLAccounts.Customers, _PCICheck.GLAccounts.PartnerType, _
_PCICheck.GLAccounts.ConnectInfo)
ElseIf _PCICheck.InvoiceHeader IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.InvoiceHeader.CustomersFrom, _
_PCICheck.InvoiceHeader.Customers, 0, _
_PCICheck.InvoiceHeader.ConnectInfo)
ElseIf _PCICheck.RegistryHeader IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.RegistryHeader.CustomersFrom, _
_PCICheck.RegistryHeader.Customers, 1, _
_PCICheck.RegistryHeader.F_ConnectInfo)
ElseIf _PCICheck.GLRows IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.GLRows.GLHeader.CustomersFrom, _
_PCICheck.GLRows.Customer, _PCICheck.GLRows.PartnerType, _
_PCICheck.GLRows.ConnectInfo)
End If
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetail.vb
+349
View File
@@ -0,0 +1,349 @@
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
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class PCIDetail
Inherits BaseObject
Private _PCIGroup As PCIGroup
Private _MainType As String
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _ConnectInfo As String
Private _DocumentNumber As String = ""
Private _RegistryNumber As String = ""
Private _CurrencyName As CurrencyName
Private _BallanceHUF As Double
Private _BallanceDEV As Double
Private _DateExecution As Date
Private _DateCreated As Date
Private _CurrencyRate As Double
Private _DatePayment_Account As Date
Private _DateExecution_Account As Date
Private _CurrencyName_Account As CurrencyName
Private _AmountHUF_Account As Double
Private _AmountDEV_Account As Double
Private _Paymode_Account As ePayMode
Private _ShortName As String
Private _Description As String
Private _BallanceState As Long
Private _BallanceRateDiff As Long
Private _GLRows As GLRows
Private _InvoiceHeader As InvoiceHeader
Private _GLAccounts As GLAccounts
Private _RegistryHeader As RegistryHeader
Private _DelayedDay As Long
Private _DelayedRange As String
Private _ChartOfAccounts_Customers As ChartOfAccounts
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.
BallanceDEV = 0
BallanceHUF = 0
AmountHUF_Account = 0
AmountDEV_Account = 0
End Sub
Property PCIGroup As PCIGroup
Get
Return _PCIGroup
End Get
Set(value As PCIGroup)
SetPropertyValue("PCIGroup", _PCIGroup, value)
End Set
End Property
Property MainType As String
Get
Return _MainType
End Get
Set(value As String)
SetPropertyValue("MainType", _MainType, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("_PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property RegistryNumber As String
Get
Return _RegistryNumber
End Get
Set(value As String)
SetPropertyValue("RegistryNumber", _RegistryNumber, value)
End Set
End Property
Property CurrencyName As CurrencyName
Get
Return _CurrencyName
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName", _CurrencyName, value)
End Set
End Property
Property CurrencyRate As Double
Get
Return _CurrencyRate
End Get
Set(value As Double)
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
End Set
End Property
Property BallanceHUF As Double
Get
Return _BallanceHUF
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
If CurrencyName IsNot Nothing Then
If CurrencyName.ShortName <> "HUF" Then
If BallanceDEV <> 0 Then
CurrencyRate = Math.Round(BallanceHUF / BallanceDEV, 2, MidpointRounding.AwayFromZero)
Else
CurrencyRate = 1
End If
End If
Else
CurrencyRate = 1
End If
Else
CurrencyRate = 1
End If
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV", _BallanceDEV, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property DateCreated As Date
Get
Return _DateCreated
End Get
Set(value As Date)
SetPropertyValue("DateCreated", _DateCreated, value)
End Set
End Property
Property DatePayment_Account As Date
Get
Return _DatePayment_Account
End Get
Set(value As Date)
SetPropertyValue("DatePayment_Account", _DatePayment_Account, value)
End Set
End Property
Property DateExecution_Account As Date
Get
Return _DateExecution_Account
End Get
Set(value As Date)
SetPropertyValue("DateExecution_Account", _DateExecution_Account, value)
End Set
End Property
Property CurrencyName_Account As CurrencyName
Get
Return _CurrencyName_Account
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value)
End Set
End Property
Property Paymode_Account As ePayMode
Get
Return _Paymode_Account
End Get
Set(value As ePayMode)
SetPropertyValue("Paymode_Account", _Paymode_Account, value)
End Set
End Property
Property AmountHUF_Account As Double
Get
Return _AmountHUF_Account
End Get
Set(value As Double)
SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value)
End Set
End Property
Property AmountDEV_Account As Double
Get
Return _AmountDEV_Account
End Get
Set(value As Double)
SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value)
End Set
End Property
Property ShortName As String
Get
Return _ShortName
End Get
Set(value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<Size(-1)> _
Property Description As String
Get
Return _Description
End Get
Set(value As String)
SetPropertyValue("Description", _Description, value)
End Set
End Property
Property BallanceState As Long
Get
Return _BallanceState
End Get
Set(value As Long)
SetPropertyValue("BallanceState", _BallanceState, value)
End Set
End Property
Property BallanceRateDiff As Long
Get
Return _BallanceRateDiff
End Get
Set(value As Long)
SetPropertyValue("BallanceRateDiff", _BallanceRateDiff, value)
End Set
End Property
Property GLRows As GLRows
Get
Return _GLRows
End Get
Set(value As GLRows)
SetPropertyValue("GLRows", _GLRows, value)
End Set
End Property
<Browsable(False), VisibleInListView(False)> _
Property InvoiceHeader As InvoiceHeader
Get
Return _InvoiceHeader
End Get
Set(value As InvoiceHeader)
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
End Set
End Property
<Browsable(False)> _
Property GLAccounts As GLAccounts
Get
Return _GLAccounts
End Get
Set(value As GLAccounts)
SetPropertyValue("GLAccounts", _GLAccounts, value)
End Set
End Property
<Browsable(False)> _
Property RegistryHeader As RegistryHeader
Get
Return _RegistryHeader
End Get
Set(value As RegistryHeader)
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
End Set
End Property
Property DelayedDay As Long
Get
Return _DelayedDay
End Get
Set(value As Long)
SetPropertyValue("DelayedDay", _DelayedDay, value)
End Set
End Property
Property DelayedRange As String
Get
Return _DelayedRange
End Get
Set(value As String)
SetPropertyValue("DelayedRange", _DelayedRange, value)
End Set
End Property
'Property ChartOfAccounts_Customers As ChartOfAccounts
' Get
' Return _ChartOfAccounts_Customers
' End Get
' Set(value As ChartOfAccounts)
' SetPropertyValue("ChartOfAccounts_Customers", _ChartOfAccounts_Customers, value)
' End Set
'End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.Designer.vb
Generated
+116
View File
@@ -0,0 +1,116 @@
Partial Class PCIDetailVC
<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.aViewAttachmentsPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistryPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aOpenObjectPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCICheckDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aChangeCurrencyRatePCIDetail = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
'
'aViewAttachmentsPCIDetail
'
Me.aViewAttachmentsPCIDetail.Caption = "aViewAttachmentsPCIDetail"
Me.aViewAttachmentsPCIDetail.ConfirmationMessage = Nothing
Me.aViewAttachmentsPCIDetail.Id = "aViewAttachmentsPCIDetail"
Me.aViewAttachmentsPCIDetail.ImageName = "printer_view"
Me.aViewAttachmentsPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachmentsPCIDetail.Shortcut = Nothing
Me.aViewAttachmentsPCIDetail.Tag = Nothing
Me.aViewAttachmentsPCIDetail.TargetObjectsCriteria = Nothing
Me.aViewAttachmentsPCIDetail.TargetViewId = ""
Me.aViewAttachmentsPCIDetail.ToolTip = Nothing
Me.aViewAttachmentsPCIDetail.TypeOfView = Nothing
'
'aViewRegistryPCIDetail
'
Me.aViewRegistryPCIDetail.Caption = "aViewRegistryPCIDetail"
Me.aViewRegistryPCIDetail.ConfirmationMessage = Nothing
Me.aViewRegistryPCIDetail.Id = "aViewRegistryPCIDetail"
Me.aViewRegistryPCIDetail.ImageName = "document_pinned"
Me.aViewRegistryPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistryPCIDetail.Shortcut = Nothing
Me.aViewRegistryPCIDetail.Tag = Nothing
Me.aViewRegistryPCIDetail.TargetObjectsCriteria = Nothing
Me.aViewRegistryPCIDetail.TargetViewId = ""
Me.aViewRegistryPCIDetail.ToolTip = Nothing
Me.aViewRegistryPCIDetail.TypeOfView = Nothing
'
'aOpenObjectPCIDetail
'
Me.aOpenObjectPCIDetail.Caption = "aOpenObjectPCIDetail"
Me.aOpenObjectPCIDetail.ConfirmationMessage = Nothing
Me.aOpenObjectPCIDetail.Id = "aOpenObjectPCIDetail"
Me.aOpenObjectPCIDetail.ImageName = Nothing
Me.aOpenObjectPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aOpenObjectPCIDetail.Shortcut = Nothing
Me.aOpenObjectPCIDetail.Tag = Nothing
Me.aOpenObjectPCIDetail.TargetObjectsCriteria = Nothing
Me.aOpenObjectPCIDetail.TargetViewId = ""
Me.aOpenObjectPCIDetail.ToolTip = Nothing
Me.aOpenObjectPCIDetail.TypeOfView = Nothing
'
'aPCICheckDetail
'
Me.aPCICheckDetail.Caption = "aPCICheckDetail"
Me.aPCICheckDetail.Category = "RecordEdit"
Me.aPCICheckDetail.ConfirmationMessage = Nothing
Me.aPCICheckDetail.Id = "aPCICheckDetail"
Me.aPCICheckDetail.ImageName = Nothing
Me.aPCICheckDetail.Shortcut = Nothing
Me.aPCICheckDetail.Tag = Nothing
Me.aPCICheckDetail.TargetObjectsCriteria = Nothing
Me.aPCICheckDetail.TargetViewId = Nothing
Me.aPCICheckDetail.ToolTip = Nothing
Me.aPCICheckDetail.TypeOfView = Nothing
'
'aChangeCurrencyRatePCIDetail
'
Me.aChangeCurrencyRatePCIDetail.AcceptButtonCaption = Nothing
Me.aChangeCurrencyRatePCIDetail.CancelButtonCaption = Nothing
Me.aChangeCurrencyRatePCIDetail.Caption = "aChange Currency Rate PCIDetail"
Me.aChangeCurrencyRatePCIDetail.Category = "RecordEdit"
Me.aChangeCurrencyRatePCIDetail.ConfirmationMessage = Nothing
Me.aChangeCurrencyRatePCIDetail.Id = "aChangeCurrencyRatePCIDetail"
Me.aChangeCurrencyRatePCIDetail.ImageName = Nothing
Me.aChangeCurrencyRatePCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aChangeCurrencyRatePCIDetail.Shortcut = Nothing
Me.aChangeCurrencyRatePCIDetail.Tag = Nothing
Me.aChangeCurrencyRatePCIDetail.TargetObjectsCriteria = Nothing
Me.aChangeCurrencyRatePCIDetail.TargetViewId = Nothing
Me.aChangeCurrencyRatePCIDetail.ToolTip = Nothing
Me.aChangeCurrencyRatePCIDetail.TypeOfView = Nothing
End Sub
Friend WithEvents aViewAttachmentsPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistryPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aOpenObjectPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCICheckDetail As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aChangeCurrencyRatePCIDetail As DevExpress.ExpressApp.Actions.PopupWindowShowAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.resx
+138
View File
@@ -0,0 +1,138 @@
<?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="aViewAttachmentsPCIDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aViewRegistryPCIDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aOpenObjectPCIDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="aPCICheckDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aChangeCurrencyRatePCIDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>310, 57</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.vb
+138
View File
@@ -0,0 +1,138 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.Xpo
Imports DevExpress.ExpressApp.SystemModule
Public Class PCIDetailVC
Inherits DevExpress.ExpressApp.ViewController
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
Frame.GetController(Of PCIDetailVC).aOpenObjectPCIDetail.Active.SetItemValue("", False)
Frame.GetController(Of PCIDetailVC).aViewAttachmentsPCIDetail.Active.SetItemValue("", False)
Frame.GetController(Of PCIDetailVC).aViewRegistryPCIDetail.Active.SetItemValue("", False)
Frame.GetController(Of PCIDetailVC).aPCICheckDetail.Active.SetItemValue("", False)
Frame.GetController(Of PCIDetailVC).aChangeCurrencyRatePCIDetail.Active.SetItemValue("", False)
If View.Id = "PCIDetail_ListView" Then
Frame.GetController(Of PCIDetailVC).aOpenObjectPCIDetail.Active.SetItemValue("", True)
Frame.GetController(Of PCIDetailVC).aViewAttachmentsPCIDetail.Active.SetItemValue("", True)
Frame.GetController(Of PCIDetailVC).aViewRegistryPCIDetail.Active.SetItemValue("", True)
Frame.GetController(Of PCIDetailVC).aPCICheckDetail.Active.SetItemValue("", True)
Frame.GetController(Of PCIDetailVC).aChangeCurrencyRatePCIDetail.Active.SetItemValue("", True)
Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", True)
End If
End Sub
Private Sub aViewAttachmentsPCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachmentsPCIDetail.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail)
If _PCIDetail IsNot Nothing Then
ViewAttachments.ViewAttachments(_ocur, Frame, _PCIDetail.CustomersFrom, _
_PCIDetail.Customers, _PCIDetail.ConnectInfo, _
"")
End If
End Sub
Private Sub aViewRegistryPCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistryPCIDetail.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail)
If _PCIDetail IsNot Nothing Then
ViewRegistry.ViewRegistry(_ocur, Application, e, _PCIDetail.CustomersFrom, _
_PCIDetail.Customers, _PCIDetail.ConnectInfo)
End If
End Sub
Private Sub aOpenObjectPCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenObjectPCIDetail.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail)
Dim _GLRows As GLRows
If _PCIDetail IsNot Nothing Then
_GLRows = _PCIDetail.GLRows
If _GLRows IsNot Nothing Then
If TryCast(_GLRows.GLHeader, GLAccounts) IsNot Nothing Then
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLAccounts_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLAccounts)))
End If
If TryCast(_GLRows.GLHeader, GLCassa) IsNot Nothing Then
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLCassa_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLCassa)))
End If
If TryCast(_GLRows.GLHeader, GLBank) IsNot Nothing Then
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLBank_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLBank)))
End If
If TryCast(_GLRows.GLHeader, GLCompensation) IsNot Nothing Then
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLCompensation_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLCompensation)))
End If
If TryCast(_GLRows.GLHeader, GLMixed) IsNot Nothing Then
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLMixed_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLMixed)))
End If
End If
End If
End Sub
Private Sub aPCICheckDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckDetail.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail)
If _PCIDetail IsNot Nothing Then
GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _PCIDetail.ConnectInfo)
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then _
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Private Sub aChangeCurrencyRatePCIDetail_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aChangeCurrencyRatePCIDetail.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail)
Dim _CurrencyRatePopup As CurrencyRatePopup = _onew.CreateObject(Of CurrencyRatePopup)()
If _PCIDetail IsNot Nothing Then
If _PCIDetail.GLRows IsNot Nothing Then
_CurrencyRatePopup.CurrencyRate = _PCIDetail.GLRows.CurrencyRate2
End If
End If
e.View = Application.CreateDetailView(_onew, "CurrencyRatePopup_DetailView", False, _CurrencyRatePopup)
End Sub
Private Sub aChangeCurrencyRatePCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aChangeCurrencyRatePCIDetail.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _CurrencyRatePopup As CurrencyRatePopup = e.PopupWindow.View.SelectedObjects(0)
Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail)
Dim _GLRows As GLRows
Dim _CurrencyRate As Double = _CurrencyRatePopup.CurrencyRate
If _PCIDetail IsNot Nothing Then
If _PCIDetail.GLRows IsNot Nothing Then
_GLRows = _PCIDetail.GLRows
_GLRows.InAmountDEV2 = Math.Round(_GLRows.InAmountDEV * _CurrencyRate, 2, MidpointRounding.AwayFromZero)
_GLRows.OutAmountDEV2 = Math.Round(_GLRows.OutAmountDEV * _CurrencyRate, 2, MidpointRounding.AwayFromZero)
_GLRows.CurrencyRate2 = _CurrencyRate
_ocur.CommitChanges()
If _GLRows.GLHeader IsNot Nothing Then
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
End If
End If
End If
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroup.vb
+433
View File
@@ -0,0 +1,433 @@
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.Drawing
Imports DevExpress.ExpressApp.Utils
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class PCIGroup
Inherits BaseObject
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _ConnectInfo As String
Private _DocumentNumber As String = "" 'Számla eredeti bizonylatszáma
Private _RegistryNumber As String = ""
Private _CurrencyName As CurrencyName
Private _BallanceHUF As Double
Private _BallanceDEV As Double
Private _BallanceHUF_P As Double
Private _BallanceDEV_P As Double
Private _BallanceHUF_R As Double
Private _BallanceDEV_R As Double
Private _BallanceHUF_B As Double
Private _BallanceDEV_B As Double
Private _DateCreated_Account As Date
Private _DatePayment_Account As Date
Private _DateExecution_Account As Date
Private _CurrencyName_Account As CurrencyName
Private _Paymode_Account As ePayMode
Private _AmountHUF_Account As Double
Private _AmountDEV_Account As Double
Private _BallanceState As Long
Private _BallanceRateDiff As Long
Private _RateDiffState As Long = 0 'Árfolyam státusz
Private _ChartOfAccounts_Customers As ChartOfAccounts 'Partnerhez tartozó Fk. számla száma
Private _DateLastConnected As Date 'Utolsó p.ü. teljesítés dátuma
Private _Description As String 'Egyéb megjegyzésrivate
Private _InvoiceHeader As InvoiceHeader
Private _RegistryHeader As RegistryHeader
Private _GLAccounts As GLAccounts
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.
BallanceDEV = 0
BallanceDEV_B = 0
BallanceDEV_P = 0
BallanceDEV_R = 0
BallanceHUF = 0
BallanceHUF_B = 0
BallanceHUF_P = 0
BallanceHUF_R = 0
BallanceState = 0
BallanceRateDiff = -1
End Sub
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("_PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property RegistryNumber As String
Get
Return _RegistryNumber
End Get
Set(value As String)
SetPropertyValue("RegistryNumber", _RegistryNumber, value)
End Set
End Property
Property CurrencyName As CurrencyName
Get
Return _CurrencyName
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName", _CurrencyName, value)
End Set
End Property
Property BallanceHUF As Double
Get
Return _BallanceHUF
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
Select Case PartnerType
Case ePartnerType.ePayabels
BallanceHUF_P = value * -1
Case ePartnerType.eReceivables
BallanceHUF_R = value
End Select
BallanceHUF_B = BallanceHUF_R - BallanceHUF_P
BallanceState = 0
RateDiffState = 0
BallanceRateDiff = 0
If CurrencyName_Account IsNot Nothing Then
If _CurrencyName_Account.ShortName = "HUF" Then
BallanceRateDiff = -1
If Math.Round(value, 0, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1
Else
If Math.Round(BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1
If Math.Round(value, 0, MidpointRounding.AwayFromZero) <> 0 And Math.Round(BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then
BallanceRateDiff = 1
If PartnerType = ePartnerType.eReceivables Then
If Math.Round(value, 0, MidpointRounding.AwayFromZero) > 0 Then
RateDiffState = -1
Else
RateDiffState = 1
End If
ElseIf PartnerType = ePartnerType.ePayabels Then
If Math.Round(value, 0, MidpointRounding.AwayFromZero) > 0 Then
RateDiffState = 1
Else
RateDiffState = -1
End If
End If
End If
End If
Else
If CurrencyName IsNot Nothing Then
If CurrencyName.ShortName = "HUF" Then
If Math.Round(value, 0, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1
Else
If Math.Round(BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1
End If
Else
If Math.Round(value, 0, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1
End If
End If
End If
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV", _BallanceDEV, value)
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
Select Case PartnerType
Case ePartnerType.ePayabels
BallanceDEV_P = value * -1
Case ePartnerType.eReceivables
BallanceDEV_R = value
End Select
BallanceDEV_B = BallanceDEV_R - BallanceDEV_P
End If
End Set
End Property
Property BallanceHUF_P As Double
Get
Return _BallanceHUF_P
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_P", _BallanceHUF_P, value)
End Set
End Property
Property BallanceDEV_P As Double
Get
Return _BallanceDEV_P
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV_P", _BallanceDEV_P, value)
End Set
End Property
Property BallanceHUF_R As Double
Get
Return _BallanceHUF_R
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_R", _BallanceHUF_R, value)
End Set
End Property
Property BallanceDEV_R As Double
Get
Return _BallanceDEV_R
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV_R", _BallanceDEV_R, value)
End Set
End Property
Property BallanceHUF_B As Double
Get
Return _BallanceHUF_B
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_B", _BallanceHUF_B, value)
End Set
End Property
Property BallanceDEV_B As Double
Get
Return _BallanceDEV_B
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV_B", _BallanceDEV_B, value)
End Set
End Property
Property DateCreated_Account As Date
Get
Return _DateCreated_Account
End Get
Set(value As Date)
SetPropertyValue("DateCreated_Account", _DateCreated_Account, value)
End Set
End Property
Property DatePayment_Account As Date
Get
Return _DatePayment_Account
End Get
Set(value As Date)
SetPropertyValue("DatePayment_Account", _DatePayment_Account, value)
End Set
End Property
Property DateExecution_Account As Date
Get
Return _DateExecution_Account
End Get
Set(value As Date)
SetPropertyValue("DateExecution_Account", _DateExecution_Account, value)
End Set
End Property
Property CurrencyName_Account As CurrencyName
Get
Return _CurrencyName_Account
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value)
End Set
End Property
Property Paymode_Account As ePayMode
Get
Return _Paymode_Account
End Get
Set(value As ePayMode)
SetPropertyValue("Paymode_Account", _Paymode_Account, value)
End Set
End Property
Property AmountHUF_Account As Double
Get
Return _AmountHUF_Account
End Get
Set(value As Double)
SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value)
End Set
End Property
Property AmountDEV_Account As Double
Get
Return _AmountDEV_Account
End Get
Set(value As Double)
SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value)
End Set
End Property
Property BallanceState As Long
Get
Return _BallanceState
End Get
Set(value As Long)
SetPropertyValue("BallanceState", _BallanceState, value)
End Set
End Property
Property BallanceRateDiff As Long
Get
Return _BallanceRateDiff
End Get
Set(value As Long)
SetPropertyValue("BallanceRateDiff", _BallanceRateDiff, value)
End Set
End Property
Property RateDiffState As Long
Get
Return _RateDiffState
End Get
Set(value As Long)
SetPropertyValue("RateDiffState", _RateDiffState, value)
End Set
End Property
Property DateLastConnected As Date
Get
Return _DateLastConnected
End Get
Set(value As Date)
SetPropertyValue("DateLastConnected", _DateLastConnected, value)
End Set
End Property
<VisibleInDetailView(False)> _
ReadOnly Property BallanceRateDiffImage As Image
Get
If PartnerType = ePartnerType.eReceivables Then
If RateDiffState = -1 Then 'Árfolyam veszteség
Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image
Else 'Árfolyam nyereség
Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image
End If
ElseIf PartnerType = ePartnerType.ePayabels Then
If RateDiffState = 1 Then 'Árfolyam nyereség
Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image
Else 'Árfolyam veszteség
Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image
End If
Else
Return ImageLoader.Instance.GetImageInfo("bullet_ball_glass_blue").Image
End If
End Get
End Property
<Size(-1)> _
Property Description As String
Get
Return _Description
End Get
Set(value As String)
SetPropertyValue("Description", _Description, value)
End Set
End Property
Property InvoiceHeader As InvoiceHeader
Get
Return _InvoiceHeader
End Get
Set(value As InvoiceHeader)
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
End Set
End Property
Property RegistryHeader As RegistryHeader
Get
Return _RegistryHeader
End Get
Set(value As RegistryHeader)
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
End Set
End Property
Property GLAccounts As GLAccounts
Get
Return _GLAccounts
End Get
Set(value As GLAccounts)
SetPropertyValue("GLAccounts", _GLAccounts, value)
End Set
End Property
ReadOnly Property DelayedDayLastConnected As Long
Get
Dim _Now As DateTime = Now
If Me.DateLastConnected <> #12:00:00 AM# Then
If InvoiceHeader IsNot Nothing Then
Return DateDiff(DateInterval.Day, Me.InvoiceHeader.DatePayment.Date, Me.DateLastConnected.Date)
Else
Return 0
End If
Else
If InvoiceHeader IsNot Nothing Then
Return DateDiff(DateInterval.Day, Me.InvoiceHeader.DatePayment.Date, Now.Date)
Else
Return 0
End If
Return 0
End If
End Get
End Property
'Property ChartOfAccounts_Customers As ChartOfAccounts
' Get
' Return _ChartOfAccounts_Customers
' End Get
' Set(value As ChartOfAccounts)
' SetPropertyValue("ChartOfAccounts_Customers", _ChartOfAccounts_Customers, value)
' End Set
'End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAging.vb
+342
View File
@@ -0,0 +1,342 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
Public Class PCIGroupAging 'Cask a nem készpénzes szállítói vevõi szlákról info mai napra.
Inherits BaseObject
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _ConnectInfo As String
Private _DateExecution As Date
Private _DateCreated As Date
Private _DatePayment As Date
Private _AmountHUF_Account As Double = 0
Private _AmountDEV_Account As Double = 0
Private _AmountHUF_Account_Normal As Double = 0
Private _AmountDEV_Account_Normal As Double = 0
Private _AmountHUF_Account_Hold As Double = 0
Private _AmountDEV_Account_Hold As Double = 0
Private _BallanceHUF As Double = 0
Private _BallanceDEV As Double = 0
Private _CurrencyName As CurrencyName
Private _PCIGroup As PCIGroup
Private _IsExpired As Boolean
Private _F01_EXPIREDHUF As Double = 0
Private _F01_EXPIREDDEV As Double = 0
Private _F02_30HUF As Double = 0
Private _F02_30DEV As Double = 0
Private _F03_90HUF As Double = 0
Private _F03_90DEV As Double = 0
Private _F04_1YEARHUF As Double = 0
Private _F04_1YEARDEV As Double = 0
Private _F05_2YEARHUF As Double = 0
Private _F05_2YEARDEV As Double = 0
Private _F06_3YEARHUF As Double = 0
Private _F06_3YEARDEV As Double = 0
Private _F07_6YEARHUF As Double = 0
Private _F07_6YEARDEV As Double = 0
Private _F08_6PLUSYEARHUF As Double = 0
Private _F08_6PLUSYEARDEV As Double = 0
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 CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property DateCreated As Date
Get
Return _DateCreated
End Get
Set(value As Date)
SetPropertyValue("DateCreated", _DateCreated, value)
End Set
End Property
Property DatePayment As Date
Get
Return _DatePayment
End Get
Set(value As Date)
SetPropertyValue("DatePayment", _DatePayment, value)
End Set
End Property
Property AmountHUF_Account As Double
Get
Return _AmountHUF_Account
End Get
Set(value As Double)
SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value)
End Set
End Property
Property AmountDEV_Account As Double
Get
Return _AmountDEV_Account
End Get
Set(value As Double)
SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value)
End Set
End Property
Property AmountHUF_Account_Normal As Double
Get
Return _AmountHUF_Account_Normal
End Get
Set(value As Double)
SetPropertyValue("AmountHUF_Account_Normal", _AmountHUF_Account_Normal, value)
End Set
End Property
Property AmountDEV_Account_Normal As Double
Get
Return _AmountDEV_Account_Normal
End Get
Set(value As Double)
SetPropertyValue("AmountDEV_Account_Normal", _AmountDEV_Account_Normal, value)
End Set
End Property
Property AmountHUF_Account_Hold As Double
Get
Return _AmountHUF_Account_Hold
End Get
Set(value As Double)
SetPropertyValue("AmountHUF_Account_Hold", _AmountHUF_Account_Hold, value)
End Set
End Property
Property AmountDEV_Account_Hold As Double
Get
Return _AmountDEV_Account_Hold
End Get
Set(value As Double)
SetPropertyValue("AmountDEV_Account_Hold", _AmountDEV_Account_Hold, 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
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV", _BallanceDEV, value)
End Set
End Property
Property CurrencyName As CurrencyName
Get
Return _CurrencyName
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName", _CurrencyName, value)
End Set
End Property
Property PCIGroup As PCIGroup
Get
Return _PCIGroup
End Get
Set(value As PCIGroup)
SetPropertyValue("PCIGroup", _PCIGroup, value)
End Set
End Property
Property IsExpired As Boolean
Get
Return _IsExpired
End Get
Set(value As Boolean)
SetPropertyValue("IsExpired", _IsExpired, value)
End Set
End Property
Property F01_EXPIREDHUF As Double
Get
Return _F01_EXPIREDHUF
End Get
Set(value As Double)
SetPropertyValue("F01_EXPIREDHUF", _F01_EXPIREDHUF, value)
End Set
End Property
Property F01_EXPIREDDEV As Double
Get
Return _F01_EXPIREDDEV
End Get
Set(value As Double)
SetPropertyValue("F01_EXPIREDDEV", _F01_EXPIREDDEV, value)
End Set
End Property
Property F02_30HUF As Double
Get
Return _F02_30HUF
End Get
Set(value As Double)
SetPropertyValue("F02_30HUF", _F02_30HUF, value)
End Set
End Property
Property F02_30DEV As Double
Get
Return _F02_30DEV
End Get
Set(value As Double)
SetPropertyValue("F02_30DEV", _F02_30DEV, value)
End Set
End Property
Property F03_90HUF As Double
Get
Return _F03_90HUF
End Get
Set(value As Double)
SetPropertyValue("F03_90HUF", _F03_90HUF, value)
End Set
End Property
Property F03_90DEV As Double
Get
Return _F03_90DEV
End Get
Set(value As Double)
SetPropertyValue("F03_90DEV", _F03_90DEV, value)
End Set
End Property
Property F04_1YEARHUF As Double
Get
Return _F04_1YEARHUF
End Get
Set(value As Double)
SetPropertyValue("F04_1YEARHUF", _F04_1YEARHUF, value)
End Set
End Property
Property F04_1YEARDEV As Double
Get
Return _F04_1YEARDEV
End Get
Set(value As Double)
SetPropertyValue("F04_1YEARDEV", _F04_1YEARDEV, value)
End Set
End Property
Property F05_2YEARHUF As Double
Get
Return _F05_2YEARHUF
End Get
Set(value As Double)
SetPropertyValue("F05_2YEARHUF", _F05_2YEARHUF, value)
End Set
End Property
Property F05_2YEARDEV As Double
Get
Return _F05_2YEARDEV
End Get
Set(value As Double)
SetPropertyValue("F05_2YEARDEV", _F05_2YEARDEV, value)
End Set
End Property
Property F06_3YEARHUF As Double
Get
Return _F06_3YEARHUF
End Get
Set(value As Double)
SetPropertyValue("F06_3YEARHUF", _F06_3YEARHUF, value)
End Set
End Property
Property F06_3YEARDEV As Double
Get
Return _F06_3YEARDEV
End Get
Set(value As Double)
SetPropertyValue("F06_3YEARDEV", _F06_3YEARDEV, value)
End Set
End Property
Property F07_6YEARHUF As Double
Get
Return _F07_6YEARHUF
End Get
Set(value As Double)
SetPropertyValue("F07_6YEARHUF", _F07_6YEARHUF, value)
End Set
End Property
Property F07_6YEARDEV As Double
Get
Return _F07_6YEARDEV
End Get
Set(value As Double)
SetPropertyValue("F07_6YEARDEV", _F07_6YEARDEV, value)
End Set
End Property
Property F08_6PLUSYEARHUF As Double
Get
Return _F08_6PLUSYEARHUF
End Get
Set(value As Double)
SetPropertyValue("F08_6PLUSYEARHUF", _F08_6PLUSYEARHUF, value)
End Set
End Property
Property F08_6PLUSYEARDEV As Double
Get
Return _F08_6PLUSYEARDEV
End Get
Set(value As Double)
SetPropertyValue("F08_6PLUSYEARDEV", _F08_6PLUSYEARDEV, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.Designer.vb
Generated
+83
View File
@@ -0,0 +1,83 @@
Partial Class PCIGroupAgingVC
<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.aGeneratePCIGroupAging = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachmentsPCIGroupAging = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistryPCIGroupAging = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aGeneratePCIGroupAging
'
Me.aGeneratePCIGroupAging.Caption = "aGenerate PCIGroup Aging"
Me.aGeneratePCIGroupAging.ConfirmationMessage = Nothing
Me.aGeneratePCIGroupAging.Id = "aGeneratePCIGroupAging"
Me.aGeneratePCIGroupAging.ImageName = Nothing
Me.aGeneratePCIGroupAging.Shortcut = Nothing
Me.aGeneratePCIGroupAging.Tag = Nothing
Me.aGeneratePCIGroupAging.TargetObjectsCriteria = Nothing
Me.aGeneratePCIGroupAging.TargetObjectType = GetType(SISBusiness.[Module].PCIGroupAging)
Me.aGeneratePCIGroupAging.TargetViewId = Nothing
Me.aGeneratePCIGroupAging.ToolTip = Nothing
Me.aGeneratePCIGroupAging.TypeOfView = Nothing
'
'aViewAttachmentsPCIGroupAging
'
Me.aViewAttachmentsPCIGroupAging.Caption = "aViewAttachmentsPCIGroup"
Me.aViewAttachmentsPCIGroupAging.ConfirmationMessage = Nothing
Me.aViewAttachmentsPCIGroupAging.Id = "aViewAttachmentsPCIGroupAging"
Me.aViewAttachmentsPCIGroupAging.ImageName = "printer_view"
Me.aViewAttachmentsPCIGroupAging.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachmentsPCIGroupAging.Shortcut = Nothing
Me.aViewAttachmentsPCIGroupAging.Tag = Nothing
Me.aViewAttachmentsPCIGroupAging.TargetObjectsCriteria = Nothing
Me.aViewAttachmentsPCIGroupAging.TargetObjectType = GetType(SISBusiness.[Module].PCIGroupAging)
Me.aViewAttachmentsPCIGroupAging.TargetViewId = ""
Me.aViewAttachmentsPCIGroupAging.ToolTip = Nothing
Me.aViewAttachmentsPCIGroupAging.TypeOfView = Nothing
'
'aViewRegistryPCIGroupAging
'
Me.aViewRegistryPCIGroupAging.Caption = "aViewRegistryPCIGroupAging"
Me.aViewRegistryPCIGroupAging.ConfirmationMessage = Nothing
Me.aViewRegistryPCIGroupAging.Id = "aViewRegistryPCIGroupAging"
Me.aViewRegistryPCIGroupAging.ImageName = "document_pinned"
Me.aViewRegistryPCIGroupAging.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistryPCIGroupAging.Shortcut = Nothing
Me.aViewRegistryPCIGroupAging.Tag = Nothing
Me.aViewRegistryPCIGroupAging.TargetObjectsCriteria = Nothing
Me.aViewRegistryPCIGroupAging.TargetObjectType = GetType(SISBusiness.[Module].PCIGroupAging)
Me.aViewRegistryPCIGroupAging.TargetViewId = ""
Me.aViewRegistryPCIGroupAging.ToolTip = Nothing
Me.aViewRegistryPCIGroupAging.TypeOfView = Nothing
End Sub
Friend WithEvents aGeneratePCIGroupAging As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachmentsPCIGroupAging As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistryPCIGroupAging As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.resx
+132
View File
@@ -0,0 +1,132 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aGeneratePCIGroupAging.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 91</value>
</metadata>
<metadata name="aViewAttachmentsPCIGroupAging.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</metadata>
<metadata name="aViewRegistryPCIGroupAging.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>415, 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>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.vb
+329
View File
@@ -0,0 +1,329 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.Xpo
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.Data.Filtering
Public Class PCIGroupAgingVC
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 aGeneratePCIGroupAging_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGeneratePCIGroupAging.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
Dim _PCIGroupAging As PCIGroupAging
Dim _SQL As String = ""
Select Case GLOBAL_SQLType
Case eSQLType.MySQL
_SQL = "delete from PCIGroupAging"
Case eSQLType.PostgreSQL
_SQL = "delete from ""PCIGroupAging"""
Case eSQLType.MSSQL
_SQL = "delete from PCIGroupAging"
End Select
_uow.ExecuteNonQuery(_SQL)
_uow.CommitChanges()
Dim _PCIGroup_Collection As New XPCollection(Of PCIGroup)(_uow, CriteriaOperator.Parse("isnull(InvoiceHeader)=False or isnull(RegistryHeader)=False"))
Dim _PCIGroup As PCIGroup
RaiseEvent InitWork(1, 1, _PCIGroup_Collection.Count)
For Each _PCIGroup In _PCIGroup_Collection
RaiseEvent DoWork()
_PCIGroupAging = New PCIGroupAging(_uow)
_PCIGroupAging.PCIGroup = _PCIGroup
_PCIGroupAging.CustomersFrom = _PCIGroup.CustomersFrom
_PCIGroupAging.Customers = _PCIGroup.Customers
_PCIGroupAging.PartnerType = _PCIGroup.PartnerType
_PCIGroupAging.DateExecution = _PCIGroup.DateExecution_Account
_PCIGroupAging.DatePayment = _PCIGroup.DatePayment_Account
_PCIGroupAging.DateCreated = _PCIGroup.DateCreated_Account
_PCIGroupAging.ConnectInfo = _PCIGroup.ConnectInfo
_PCIGroupAging.CurrencyName = _PCIGroup.CurrencyName_Account
_PCIGroupAging.AmountHUF_Account = _PCIGroup.AmountHUF_Account
_PCIGroupAging.AmountHUF_Account_Hold = 0
_PCIGroupAging.AmountHUF_Account_Normal = 0
_PCIGroupAging.BallanceHUF = _PCIGroup.BallanceHUF
If _PCIGroupAging.DatePayment < Now Then
_PCIGroupAging.IsExpired = True
Else
_PCIGroupAging.IsExpired = False
End If
If _PCIGroup.InvoiceHeader IsNot Nothing Then
Dim _InvoiceHold_Collection As New XPCollection(Of InvoiceHold)(_uow, CriteriaOperator.Parse("InvoiceHeader=?", _PCIGroup.InvoiceHeader))
Dim _InvoiceHold As InvoiceHold
Dim _Exists As Boolean = False
For Each _InvoiceHold In _InvoiceHold_Collection
_Exists = True
If _InvoiceHold.RowType = eHoldRowType.Hold Then
_PCIGroupAging.AmountHUF_Account_Hold += _InvoiceHold.AmountHUF
End If
If _InvoiceHold.RowType = eHoldRowType.Normal Then
_PCIGroupAging.AmountHUF_Account_Normal += _InvoiceHold.AmountHUF
End If
Next
If _Exists Then
For Each _InvoiceHold In _InvoiceHold_Collection
Select Case DateDiff(DateInterval.Day, Now, _InvoiceHold.DatePayment)
Case 1 To 30
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F02_30HUF += _InvoiceHold.BallanceHUF
End If
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F02_30DEV += _InvoiceHold.BallanceDEV
End If
Case 31 To 90
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F03_90HUF += _InvoiceHold.BallanceHUF
End If
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F03_90DEV += _InvoiceHold.BallanceDEV
End If
Case 91 To 365
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F04_1YEARHUF += _InvoiceHold.BallanceHUF
End If
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F04_1YEARDEV += _InvoiceHold.BallanceDEV
End If
Case 366 To 730
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F05_2YEARHUF += _InvoiceHold.BallanceHUF
End If
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F05_2YEARDEV += _InvoiceHold.BallanceDEV
End If
Case 731 To 1095
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F06_3YEARHUF += _InvoiceHold.BallanceHUF
End If
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F06_3YEARDEV += _InvoiceHold.BallanceDEV
End If
Case 1096 To 2190
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F07_6YEARHUF += _InvoiceHold.BallanceHUF
End If
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F07_6YEARDEV += _InvoiceHold.BallanceDEV
End If
Case Is > 2190
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F08_6PLUSYEARHUF += _InvoiceHold.BallanceHUF
End If
If _InvoiceHold.BallanceHUF > 0 Then
_PCIGroupAging.F08_6PLUSYEARDEV += _InvoiceHold.BallanceDEV
End If
End Select
Next
End If
If _Exists = False Then
Select Case DateDiff(DateInterval.Day, Now, _PCIGroupAging.DatePayment)
Case 1 To 30
_PCIGroupAging.F02_30DEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F02_30HUF = _PCIGroupAging.BallanceHUF
Case 31 To 90
_PCIGroupAging.F03_90DEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F03_90HUF = _PCIGroupAging.BallanceHUF
Case 91 To 365
_PCIGroupAging.F04_1YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F04_1YEARHUF = _PCIGroupAging.BallanceHUF
Case 366 To 730
_PCIGroupAging.F05_2YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F05_2YEARHUF = _PCIGroupAging.BallanceHUF
Case 731 To 1095
_PCIGroupAging.F06_3YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F06_3YEARDEV = _PCIGroupAging.BallanceHUF
Case 1096 To 2190
_PCIGroupAging.F07_6YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F07_6YEARHUF = _PCIGroupAging.BallanceHUF
Case Is > 2190
_PCIGroupAging.F08_6PLUSYEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F08_6PLUSYEARHUF = _PCIGroupAging.BallanceHUF
Case Is < 0
_PCIGroupAging.F01_EXPIREDDEV = _PCIGroupAging.BallanceDEV
_PCIGroupAging.F01_EXPIREDHUF = _PCIGroupAging.BallanceHUF
End Select
End If
ElseIf _PCIGroup.RegistryHeader IsNot Nothing Then
Dim _RegistryBankTransfer_Collection As New XPCollection(Of RegistryBankTransfer)(_uow, CriteriaOperator.Parse("RegistryHeader=?", _PCIGroup.RegistryHeader))
Dim _RegistryBankTransfer As RegistryBankTransfer
Dim _Exists As Boolean = False
For Each _RegistryBankTransfer In _RegistryBankTransfer_Collection
_Exists = True
If _RegistryBankTransfer.RowType = eHoldRowType.Hold Then
_PCIGroupAging.AmountHUF_Account_Hold += _RegistryBankTransfer.AmountHUF
End If
If _RegistryBankTransfer.RowType = eHoldRowType.Normal Then
_PCIGroupAging.AmountHUF_Account_Normal += _RegistryBankTransfer.AmountHUF
End If
Next
If _Exists Then
For Each _RegistryBankTransfer In _RegistryBankTransfer_Collection
Select Case DateDiff(DateInterval.Day, Now, _RegistryBankTransfer.DatePayment)
Case 1 To 30
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F02_30HUF += _RegistryBankTransfer.BallanceHUF
End If
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F02_30DEV += _RegistryBankTransfer.BallanceDEV
End If
Case 31 To 90
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F03_90HUF += _RegistryBankTransfer.BallanceHUF
End If
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F03_90DEV += _RegistryBankTransfer.BallanceDEV
End If
Case 91 To 365
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F04_1YEARHUF += _RegistryBankTransfer.BallanceHUF
End If
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F04_1YEARDEV += _RegistryBankTransfer.BallanceDEV
End If
Case 366 To 730
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F05_2YEARHUF += _RegistryBankTransfer.BallanceHUF
End If
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F05_2YEARDEV += _RegistryBankTransfer.BallanceDEV
End If
Case 731 To 1095
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F06_3YEARHUF += _RegistryBankTransfer.BallanceHUF
End If
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F06_3YEARDEV += _RegistryBankTransfer.BallanceDEV
End If
Case 1096 To 2190
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F07_6YEARHUF += _RegistryBankTransfer.BallanceHUF
End If
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F07_6YEARDEV += _RegistryBankTransfer.BallanceDEV
End If
Case Is > 2190
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F08_6PLUSYEARHUF += _RegistryBankTransfer.BallanceHUF
End If
If _RegistryBankTransfer.BallanceHUF > 0 Then
_PCIGroupAging.F08_6PLUSYEARDEV += _RegistryBankTransfer.BallanceDEV
End If
End Select
Next
End If
If _Exists = False Then
Select Case DateDiff(DateInterval.Day, Now, _PCIGroupAging.DatePayment)
Case 1 To 30
_PCIGroupAging.F02_30DEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F02_30HUF = _PCIGroupAging.BallanceHUF
Case 31 To 90
_PCIGroupAging.F03_90DEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F03_90HUF = _PCIGroupAging.BallanceHUF
Case 91 To 365
_PCIGroupAging.F04_1YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F04_1YEARHUF = _PCIGroupAging.BallanceHUF
Case 366 To 730
_PCIGroupAging.F05_2YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F05_2YEARHUF = _PCIGroupAging.BallanceHUF
Case 731 To 1095
_PCIGroupAging.F06_3YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F06_3YEARDEV = _PCIGroupAging.BallanceHUF
Case 1096 To 2190
_PCIGroupAging.F07_6YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F07_6YEARHUF = _PCIGroupAging.BallanceHUF
Case Is > 2190
_PCIGroupAging.F08_6PLUSYEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F08_6PLUSYEARHUF = _PCIGroupAging.BallanceHUF
Case Is < 0
_PCIGroupAging.F01_EXPIREDDEV = _PCIGroupAging.BallanceDEV
_PCIGroupAging.F01_EXPIREDHUF = _PCIGroupAging.BallanceHUF
End Select
End If
Else
Select Case DateDiff(DateInterval.Day, Now, _PCIGroupAging.DatePayment)
Case 1 To 30
_PCIGroupAging.F02_30DEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F02_30HUF = _PCIGroupAging.BallanceHUF
Case 31 To 90
_PCIGroupAging.F03_90DEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F03_90HUF = _PCIGroupAging.BallanceHUF
Case 91 To 365
_PCIGroupAging.F04_1YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F04_1YEARHUF = _PCIGroupAging.BallanceHUF
Case 366 To 730
_PCIGroupAging.F05_2YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F05_2YEARHUF = _PCIGroupAging.BallanceHUF
Case 731 To 1095
_PCIGroupAging.F06_3YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F06_3YEARDEV = _PCIGroupAging.BallanceHUF
Case 1096 To 2190
_PCIGroupAging.F07_6YEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F07_6YEARHUF = _PCIGroupAging.BallanceHUF
Case Is > 2190
_PCIGroupAging.F08_6PLUSYEARDEV = _PCIGroup.BallanceDEV
_PCIGroupAging.F08_6PLUSYEARHUF = _PCIGroupAging.BallanceHUF
Case Is < 0
_PCIGroupAging.F01_EXPIREDDEV = _PCIGroupAging.BallanceDEV
_PCIGroupAging.F01_EXPIREDHUF = _PCIGroupAging.BallanceHUF
End Select
End If
_uow.CommitChanges()
Next
RaiseEvent FinalWork
_uow.CommitChanges()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aViewAttachmentsPCIGroupAging_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewAttachmentsPCIGroupAging.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCIGroupAging As PCIGroupAging = TryCast(View.SelectedObjects(0), PCIGroupAging)
If _PCIGroupAging IsNot Nothing Then
ViewAttachments.ViewAttachments(_ocur, Frame, _PCIGroupAging.CustomersFrom, _
_PCIGroupAging.Customers, _PCIGroupAging.ConnectInfo, _
"")
End If
End Sub
Private Sub aViewRegistryPCIGroupAging_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewRegistryPCIGroupAging.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _PCIGroupAging As PCIGroupAging = TryCast(View.SelectedObjects(0), PCIGroupAging)
If _PCIGroupAging IsNot Nothing Then
ViewRegistry.ViewRegistry(_ocur, Application, e, _PCIGroupAging.CustomersFrom, _
_PCIGroupAging.Customers, _PCIGroupAging.ConnectInfo)
End If
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.Designer.vb
Generated
+290
View File
@@ -0,0 +1,290 @@
Partial Class PCIVC
<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.aPCIGenerate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aCreateConnectionDirectDifferentCurrency = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aCreateConnectionDirect = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aCreateConnectionDrop = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aCreateRateDiffPCIGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aCreateConnectionLiquidAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aCreateConnectionDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aViewRegistryPCIGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachmentsPCIGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCICheck = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aCreateConnectionAccount = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aViewPCIDGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aCreateRoundingPCIGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aPCICheckCustomers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aRepairPCIGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aRemoveRatediffPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDGroup_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aPCIGroup_ChangeInfo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aViewPCIDGroup_GLDetails = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aPCIGenerate
'
Me.aPCIGenerate.Caption = "aPCIGenerate"
Me.aPCIGenerate.Category = "ObjectsCreation"
Me.aPCIGenerate.ConfirmationMessage = "Are you sure ?"
Me.aPCIGenerate.Id = "aPCIGenerate"
Me.aPCIGenerate.ToolTip = Nothing
'
'aCreateConnectionDirectDifferentCurrency
'
Me.aCreateConnectionDirectDifferentCurrency.AcceptButtonCaption = Nothing
Me.aCreateConnectionDirectDifferentCurrency.CancelButtonCaption = Nothing
Me.aCreateConnectionDirectDifferentCurrency.Caption = "aCreateConnectionDirectDifferentCurrency"
Me.aCreateConnectionDirectDifferentCurrency.Category = "RecordEdit"
Me.aCreateConnectionDirectDifferentCurrency.ConfirmationMessage = Nothing
Me.aCreateConnectionDirectDifferentCurrency.Id = "aCreateConnectionDirectDifferentCurrency"
Me.aCreateConnectionDirectDifferentCurrency.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateConnectionDirectDifferentCurrency.TargetViewId = ""
Me.aCreateConnectionDirectDifferentCurrency.ToolTip = Nothing
'
'aCreateConnectionDirect
'
Me.aCreateConnectionDirect.AcceptButtonCaption = Nothing
Me.aCreateConnectionDirect.CancelButtonCaption = Nothing
Me.aCreateConnectionDirect.Caption = "aCreateConnectionDirect"
Me.aCreateConnectionDirect.Category = "RecordEdit"
Me.aCreateConnectionDirect.ConfirmationMessage = Nothing
Me.aCreateConnectionDirect.Id = "aCreateConnectionDirect"
Me.aCreateConnectionDirect.ImageName = "document_connection"
Me.aCreateConnectionDirect.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateConnectionDirect.TargetViewId = ""
Me.aCreateConnectionDirect.ToolTip = Nothing
'
'aCreateConnectionDrop
'
Me.aCreateConnectionDrop.Caption = "aCreateConnectionDrop"
Me.aCreateConnectionDrop.Category = "RecordEdit"
Me.aCreateConnectionDrop.ConfirmationMessage = "Do you want to execute command ?"
Me.aCreateConnectionDrop.Id = "aCreateConnectionDrop"
Me.aCreateConnectionDrop.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateConnectionDrop.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
Me.aCreateConnectionDrop.ToolTip = Nothing
'
'aCreateRateDiffPCIGroup
'
Me.aCreateRateDiffPCIGroup.AcceptButtonCaption = Nothing
Me.aCreateRateDiffPCIGroup.CancelButtonCaption = Nothing
Me.aCreateRateDiffPCIGroup.Caption = "aCreateRateDiffPCIGroup"
Me.aCreateRateDiffPCIGroup.ConfirmationMessage = Nothing
Me.aCreateRateDiffPCIGroup.Id = "aCreateRateDiffPCIGroup"
Me.aCreateRateDiffPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateRateDiffPCIGroup.ToolTip = Nothing
'
'aCreateConnectionLiquidAssets
'
Me.aCreateConnectionLiquidAssets.AcceptButtonCaption = Nothing
Me.aCreateConnectionLiquidAssets.CancelButtonCaption = Nothing
Me.aCreateConnectionLiquidAssets.Caption = "aCreateConnectionLiquidAssets"
Me.aCreateConnectionLiquidAssets.Category = "RecordEdit"
Me.aCreateConnectionLiquidAssets.ConfirmationMessage = Nothing
Me.aCreateConnectionLiquidAssets.Id = "aCreateConnectionLiquidAssets"
Me.aCreateConnectionLiquidAssets.ImageName = "document_connection"
Me.aCreateConnectionLiquidAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateConnectionLiquidAssets.TargetViewId = ""
Me.aCreateConnectionLiquidAssets.ToolTip = Nothing
'
'aCreateConnectionDivide
'
Me.aCreateConnectionDivide.AcceptButtonCaption = Nothing
Me.aCreateConnectionDivide.CancelButtonCaption = Nothing
Me.aCreateConnectionDivide.Caption = "aCreateConnectionDivide"
Me.aCreateConnectionDivide.Category = "RecordEdit"
Me.aCreateConnectionDivide.ConfirmationMessage = Nothing
Me.aCreateConnectionDivide.Id = "aCreateConnectionDivide"
Me.aCreateConnectionDivide.ImageName = "document_connection"
Me.aCreateConnectionDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aCreateConnectionDivide.TargetViewId = ""
Me.aCreateConnectionDivide.ToolTip = Nothing
'
'aViewRegistryPCIGroup
'
Me.aViewRegistryPCIGroup.Caption = "aViewRegistryPCIGroup"
Me.aViewRegistryPCIGroup.ConfirmationMessage = Nothing
Me.aViewRegistryPCIGroup.Id = "aViewRegistryPCIGroup"
Me.aViewRegistryPCIGroup.ImageName = "document_pinned"
Me.aViewRegistryPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistryPCIGroup.TargetViewId = ""
Me.aViewRegistryPCIGroup.ToolTip = Nothing
'
'aViewAttachmentsPCIGroup
'
Me.aViewAttachmentsPCIGroup.Caption = "aViewAttachmentsPCIGroup"
Me.aViewAttachmentsPCIGroup.ConfirmationMessage = Nothing
Me.aViewAttachmentsPCIGroup.Id = "aViewAttachmentsPCIGroup"
Me.aViewAttachmentsPCIGroup.ImageName = "printer_view"
Me.aViewAttachmentsPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachmentsPCIGroup.TargetViewId = ""
Me.aViewAttachmentsPCIGroup.ToolTip = Nothing
'
'aPCICheck
'
Me.aPCICheck.Caption = "aPCICheck"
Me.aPCICheck.Category = "RecordEdit"
Me.aPCICheck.ConfirmationMessage = Nothing
Me.aPCICheck.Id = "aPCICheck"
Me.aPCICheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCICheck.ToolTip = Nothing
'
'aCreateConnectionAccount
'
Me.aCreateConnectionAccount.AcceptButtonCaption = Nothing
Me.aCreateConnectionAccount.CancelButtonCaption = Nothing
Me.aCreateConnectionAccount.Caption = "aCreateConnectionAccount"
Me.aCreateConnectionAccount.Category = "RecordEdit"
Me.aCreateConnectionAccount.ConfirmationMessage = Nothing
Me.aCreateConnectionAccount.Id = "aCreateConnectionAccount"
Me.aCreateConnectionAccount.ImageName = "document_connection"
Me.aCreateConnectionAccount.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateConnectionAccount.TargetViewId = ""
Me.aCreateConnectionAccount.ToolTip = Nothing
'
'aViewPCIDGroup
'
Me.aViewPCIDGroup.Caption = "aViewPCIDGroup"
Me.aViewPCIDGroup.ConfirmationMessage = Nothing
Me.aViewPCIDGroup.Id = "aViewPCIDGroup"
Me.aViewPCIDGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDGroup.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup)
Me.aViewPCIDGroup.TargetViewId = ""
Me.aViewPCIDGroup.ToolTip = Nothing
'
'aCreateRoundingPCIGroup
'
Me.aCreateRoundingPCIGroup.AcceptButtonCaption = Nothing
Me.aCreateRoundingPCIGroup.CancelButtonCaption = Nothing
Me.aCreateRoundingPCIGroup.Caption = "aCreateRateDiffPCIGroup"
Me.aCreateRoundingPCIGroup.ConfirmationMessage = Nothing
Me.aCreateRoundingPCIGroup.Id = "aCreateRoundingPCIGroup"
Me.aCreateRoundingPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateRoundingPCIGroup.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup)
Me.aCreateRoundingPCIGroup.ToolTip = Nothing
'
'aPCICheckCustomers
'
Me.aPCICheckCustomers.Caption = "aPCICheck Customers"
Me.aPCICheckCustomers.Category = "RecordEdit"
Me.aPCICheckCustomers.ConfirmationMessage = Nothing
Me.aPCICheckCustomers.Id = "aPCICheckCustomers"
Me.aPCICheckCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCICheckCustomers.TargetObjectType = GetType(SISBusiness.[Module].PCIDetail)
Me.aPCICheckCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aPCICheckCustomers.ToolTip = Nothing
Me.aPCICheckCustomers.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
'
'aRepairPCIGroup
'
Me.aRepairPCIGroup.Caption = "aRepair PCIGroup"
Me.aRepairPCIGroup.ConfirmationMessage = Nothing
Me.aRepairPCIGroup.Id = "aRepairPCIGroup"
Me.aRepairPCIGroup.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup)
Me.aRepairPCIGroup.TargetViewId = ""
Me.aRepairPCIGroup.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
Me.aRepairPCIGroup.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aRepairPCIGroup.ToolTip = Nothing
Me.aRepairPCIGroup.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
'
'aRemoveRatediffPCIDetail
'
Me.aRemoveRatediffPCIDetail.Caption = "aRemove Ratediff PCIDetail"
Me.aRemoveRatediffPCIDetail.Category = "RecordEdit"
Me.aRemoveRatediffPCIDetail.ConfirmationMessage = "Are you sure ?"
Me.aRemoveRatediffPCIDetail.Id = "aRemoveRatediffPCIDetail"
Me.aRemoveRatediffPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aRemoveRatediffPCIDetail.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
Me.aRemoveRatediffPCIDetail.TargetObjectType = GetType(SISBusiness.[Module].PCIDetail)
Me.aRemoveRatediffPCIDetail.ToolTip = Nothing
'
'aViewPCIDGroup_Customers
'
Me.aViewPCIDGroup_Customers.Caption = "aViewPCIDGroup"
Me.aViewPCIDGroup_Customers.ConfirmationMessage = Nothing
Me.aViewPCIDGroup_Customers.Id = "aViewPCIDGroup_Customers"
Me.aViewPCIDGroup_Customers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDGroup_Customers.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup)
Me.aViewPCIDGroup_Customers.TargetViewId = ""
Me.aViewPCIDGroup_Customers.ToolTip = Nothing
'
'aViewCPB
'
Me.aViewCPB.Caption = "aView CPB"
Me.aViewCPB.ConfirmationMessage = Nothing
Me.aViewCPB.Id = "aViewCPB"
Me.aViewCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewCPB.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup)
Me.aViewCPB.ToolTip = Nothing
'
'aPCIGroup_ChangeInfo
'
Me.aPCIGroup_ChangeInfo.AcceptButtonCaption = Nothing
Me.aPCIGroup_ChangeInfo.CancelButtonCaption = Nothing
Me.aPCIGroup_ChangeInfo.Caption = "aPCIGroup_ChangeInfo"
Me.aPCIGroup_ChangeInfo.ConfirmationMessage = Nothing
Me.aPCIGroup_ChangeInfo.Id = "aPCIGroup_ChangeInfo"
Me.aPCIGroup_ChangeInfo.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aPCIGroup_ChangeInfo.TargetViewId = "PCIGroup_ListView_DelayedPay"
Me.aPCIGroup_ChangeInfo.ToolTip = Nothing
'
'aViewPCIDGroup_GLDetails
'
Me.aViewPCIDGroup_GLDetails.Caption = "aViewPCIDGroup_GLDetails"
Me.aViewPCIDGroup_GLDetails.ConfirmationMessage = Nothing
Me.aViewPCIDGroup_GLDetails.Id = "aViewPCIDGroup_GLDetails"
Me.aViewPCIDGroup_GLDetails.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDGroup_GLDetails.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup)
Me.aViewPCIDGroup_GLDetails.TargetViewId = ""
Me.aViewPCIDGroup_GLDetails.ToolTip = Nothing
End Sub
Friend WithEvents aPCIGenerate As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aCreateConnectionDirectDifferentCurrency As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aCreateConnectionDirect As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aCreateConnectionDrop As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aCreateRateDiffPCIGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aCreateConnectionLiquidAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aCreateConnectionDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aViewRegistryPCIGroup As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachmentsPCIGroup As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDGroup As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCICheck As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aCreateConnectionAccount As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aCreateRoundingPCIGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aPCICheckCustomers As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aRepairPCIGroup As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aRemoveRatediffPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDGroup_Customers As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewCPB As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aPCIGroup_ChangeInfo As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aViewPCIDGroup_GLDetails As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.resx
+183
View File
@@ -0,0 +1,183 @@
<?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="aPCIGenerate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aCreateConnectionDirectDifferentCurrency.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="aCreateConnectionDirect.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="aCreateConnectionDrop.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
</metadata>
<metadata name="aCreateRateDiffPCIGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
</metadata>
<metadata name="aCreateConnectionLiquidAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 329</value>
</metadata>
<metadata name="aCreateConnectionDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 407</value>
</metadata>
<metadata name="aViewRegistryPCIGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 446</value>
</metadata>
<metadata name="aViewAttachmentsPCIGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 524</value>
</metadata>
<metadata name="aPCICheck.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 563</value>
</metadata>
<metadata name="aCreateConnectionAccount.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 641</value>
</metadata>
<metadata name="aViewPCIDGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 680</value>
</metadata>
<metadata name="aCreateRoundingPCIGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 719</value>
</metadata>
<metadata name="aPCICheckCustomers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 602</value>
</metadata>
<metadata name="aRepairPCIGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 485</value>
</metadata>
<metadata name="aRemoveRatediffPCIDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 368</value>
</metadata>
<metadata name="aViewPCIDGroup_Customers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aViewCPB.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aPCIGroup_ChangeInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>211, 95</value>
</metadata>
<metadata name="aViewPCIDGroup_GLDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>215, 719</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb
+1373
View File
File diff suppressed because it is too large Load Diff
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/CurrencyRatePopup.vb
+31
View File
@@ -0,0 +1,31 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<NonPersistent()> _
Public Class CurrencyRatePopup
Inherits BaseObject
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
Property CurrencyRate As Double
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.Designer.vb
Generated
+32
View File
@@ -0,0 +1,32 @@
Partial Class PartnerConnectionInfoCleanUpVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb
+45
View File
@@ -0,0 +1,45 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.ExpressApp.CloneObject
Public Class PartnerConnectionInfoCleanUpVC
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 = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
End If
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUp_PopupWindow.vb
+69
View File
@@ -0,0 +1,69 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<ImageName("document_connection")> _
Public Class PartnerConnectionInfoCleanUp_PopupWindow '-- Összepontozás
Inherits BaseObject
Private _ConnectInfo As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(ByVal value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
<VisibleInListView(False)> _
<Association("PartnerConnectionInfoCleanUp_PopupWindow-PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem", GetType(PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem))> _
ReadOnly Property PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem As XPCollection(Of PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem)
Get
Return GetCollection(Of PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem)("PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem")
End Get
End Property
End Class
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
Public Class PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem '-- Összepontozás
Inherits BaseObject
Private _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow
Private _PCIDetail As PCIDetail
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("PartnerConnectionInfoCleanUp_PopupWindow-PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem", GetType(PartnerConnectionInfoCleanUp_PopupWindow))> _
Property PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow
Get
Return _PartnerConnectionInfoCleanUp_PopupWindow
End Get
Set(value As PartnerConnectionInfoCleanUp_PopupWindow)
SetPropertyValue("PartnerConnectionInfoCleanUp_PopupWindow", _PartnerConnectionInfoCleanUp_PopupWindow, value)
End Set
End Property
Property PCIDetail As PCIDetail
Get
Return _PCIDetail
End Get
Set(value As PCIDetail)
SetPropertyValue("PCIDetail", _PCIDetail, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoSpecTran_PopupWindow.vb
+25
View File
@@ -0,0 +1,25 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class PartnerConnectionInfoSpecTran_PopupWindow '-- Speciális tranzakciók kezelése
Inherits BaseObject
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffCurrencyPopUp.vb
+62
View File
@@ -0,0 +1,62 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<NonPersistent()> _
<Appearance("Hide CurrencyRate2 when IsHUF=True", AppearanceItemType:="ViewItem", TargetItems:="CurrencyRate2;IsHUF", _
Criteria:="IsHUF=True", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
<Appearance("Hide CurrencyRate when IsHUF=False", AppearanceItemType:="ViewItem", TargetItems:="CurrencyRate;IsHUF", _
Criteria:="IsHUF=False", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
Public Class RateDiffCurrencyPopUp
Inherits BaseObject
Private _CurrencyRate As Double
Private _CurrencyRate2 As Double
Private _IsHUF As Boolean = False
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 CurrencyRate As Double
Get
Return _CurrencyRate
End Get
Set(value As Double)
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
End Set
End Property
Property CurrencyRate2 As Double
Get
Return _CurrencyRate2
End Get
Set(value As Double)
SetPropertyValue("CurrencyRate2", _CurrencyRate2, value)
End Set
End Property
Property IsHUF As Boolean
Get
Return _IsHUF
End Get
Set(value As Boolean)
SetPropertyValue("IsHUF", _IsHUF, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffPopUp.vb
+49
View File
@@ -0,0 +1,49 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<NonPersistent()> _
Public Class RateDiffPopUp
Inherits BaseObject
Private _DateExecution As Date
Private _Description As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
<Size(900)> _
Property Description As String
Get
Return _Description
End Get
Set(value As String)
SetPropertyValue("Description", _Description, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluation.vb
+129
View File
@@ -0,0 +1,129 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
<Appearance("Disable UserCreated,ObjectCreated-SpecTranRevaluation", AppearanceItemType:="ViewItem", Enabled:=False, TargetItems:="ObjectCreated,UserCreated", Criteria:="1=1")> _
Public Class SpecTranRevaluation 'Devizás átértékelés
Inherits BaseObject
Private _CustomersFrom As CustomersFrom
Private _DateClose As Date '-- Záró dátum
Private _ShortName As String '-- Lekérdezés megnevezése
Private _CurrencyName As CurrencyName '-- Záró kimutatás devizaneme
Private _CurrencyRate As Double '-- Záró kimutatás átértékelési árfolyama
Private _ObjectCreated As Date
Private _UserCreated As User
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
If Session.IsNewObject(Me) Then
Me.DateClose = Now
End If
End Sub
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property DateClose As Date
Get
Return _DateClose
End Get
Set(ByVal value As Date)
SetPropertyValue("DateClose", _DateClose, 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
<ImmediatePostData(True)> _
Property CurrencyName As CurrencyName
Get
Return _CurrencyName
End Get
Set(value As CurrencyName)
SetPropertyValue("CurrencyName", _CurrencyName, value)
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
'// MNB Árfolyam lekérése a záró dátumra
Dim _CurrencyRate As CurrencyRate = Session.FindObject(Of CurrencyRate)(CriteriaOperator.Parse("IsMNB=True and GetDate(DateValid)=? and CurrencyName.ShortName=?", Me.DateClose.Date, value.ShortName))
If _CurrencyRate IsNot Nothing Then
If CurrencyRate = 0 Then
CurrencyRate = _CurrencyRate.RateAverage
End If
End If
End If
End Set
End Property
Property CurrencyRate As Double
Get
Return _CurrencyRate
End Get
Set(value As Double)
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<Association("SpecTranRevaluation-SpecTranRevaluationRowsAccounts", GetType(SpecTranRevaluationRowsAccounts)), VisibleInListView(False)> _
ReadOnly Property SpecTranRevaluationRowsAccounts As XPCollection(Of SpecTranRevaluationRowsAccounts)
Get
Return GetCollection(Of SpecTranRevaluationRowsAccounts)("SpecTranRevaluationRowsAccounts")
End Get
End Property
<Association("SpecTranRevaluation-SpecTranRevaluationLiquidAssets", GetType(SpecTranRevaluationLiquidAssets))> _
ReadOnly Property SpecTranRevaluationLiquidAssets As XPCollection(Of SpecTranRevaluationLiquidAssets)
Get
Return GetCollection(Of SpecTranRevaluationLiquidAssets)("SpecTranRevaluationLiquidAssets")
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationLiquidAssets.vb
+86
View File
@@ -0,0 +1,86 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
Public Class SpecTranRevaluationLiquidAssets
Inherits BaseObject
Private _SpecTranRevaluation As SpecTranRevaluation
Private _LiquidAssets As LiquidAssets
Private _BallanceDEV As Double
Private _BallanceHUF As Double
Private _BallanceHUF_Revaluation As Double
Private _DifferenceHUF As Double
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("SpecTranRevaluation-SpecTranRevaluationLiquidAssets", GetType(SpecTranRevaluation))> _
Property SpecTranRevaluation As SpecTranRevaluation
Get
Return _SpecTranRevaluation
End Get
Set(value As SpecTranRevaluation)
SetPropertyValue("SpecTranRevaluation", _SpecTranRevaluation, value)
End Set
End Property
Property LiquidAssets As LiquidAssets
Get
Return _LiquidAssets
End Get
Set(value As LiquidAssets)
SetPropertyValue("LiquidAssets", _LiquidAssets, value)
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV", _BallanceDEV, 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
Property BallanceHUF_Revaluation As Double
Get
Return _BallanceHUF_Revaluation
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_Revaluation", _BallanceHUF_Revaluation, value)
End Set
End Property
Property DifferenceHUF As Double
Get
Return _DifferenceHUF
End Get
Set(value As Double)
SetPropertyValue("DifferenceHUF", _DifferenceHUF, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationRowsAccounts.vb
+152
View File
@@ -0,0 +1,152 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Drawing
Imports DevExpress.ExpressApp.Utils
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class SpecTranRevaluationRowsAccounts 'Devizás átértékelés számlák
Inherits BaseObject
Private _SpecTranRevaluation As SpecTranRevaluation
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _PartnerType As ePartnerType
Private _ConnectInfo As String
Private _BallanceDEV As Double
Private _BallanceHUF As Double
Private _BallanceHUF_Revaluation As Double
Private _DifferenceHUF As Double
Private _CurrencyRate_Account As Double
Private _GLAccounts As GLAccounts
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
<Association("SpecTranRevaluation-SpecTranRevaluationRowsAccounts", GetType(SpecTranRevaluation))> _
Property SpecTranRevaluation As SpecTranRevaluation
Get
Return _SpecTranRevaluation
End Get
Set(value As SpecTranRevaluation)
SetPropertyValue("SpecTranRevaluation", _SpecTranRevaluation, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
Property BallanceDEV As Double
Get
Return _BallanceDEV
End Get
Set(value As Double)
SetPropertyValue("BallanceDEV", _BallanceDEV, 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
Property BallanceHUF_Revaluation As Double
Get
Return _BallanceHUF_Revaluation
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF_Revaluation", _BallanceHUF_Revaluation, value)
End Set
End Property
Property DifferenceHUF As Double
Get
Return _DifferenceHUF
End Get
Set(value As Double)
SetPropertyValue("DifferenceHUF", _DifferenceHUF, value)
End Set
End Property
<VisibleInDetailView(False)> _
ReadOnly Property BallanceRateDiffImage As Image
Get
If PartnerType = ePartnerType.eReceivables Then
If BallanceHUF - BallanceHUF_Revaluation > 0 Then 'Árfolyam veszteség
Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image
Else 'Árfolyam nyereség
Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image
End If
ElseIf PartnerType = ePartnerType.ePayabels Then
If BallanceHUF - BallanceHUF_Revaluation > 0 Then 'Árfolyam nyereség
Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image
Else 'Árfolyam veszteség
Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image
End If
Else
Return ImageLoader.Instance.GetImageInfo("bullet_ball_glass_blue").Image
End If
End Get
End Property
Property CurrencyRate_Account As Double
Get
Return _CurrencyRate_Account
End Get
Set(value As Double)
SetPropertyValue("CurrencyRate_Account", _CurrencyRate_Account, value)
End Set
End Property
<Browsable(False)> _
Property GLAccounts As GLAccounts
Get
Return _GLAccounts
End Get
Set(ByVal value As GLAccounts)
SetPropertyValue("GLAccounts", _GLAccounts, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb
Generated
+102
View File
@@ -0,0 +1,102 @@
Partial Class SpecTranRevaluationVC
<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.aGenerateSpecTranRevaluationQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCIDSpecTranRevaluation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aCreateRevaluation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aRemoveRevaluation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aGenerateSpecTranRevaluationQuery
'
Me.aGenerateSpecTranRevaluationQuery.Caption = "Query"
Me.aGenerateSpecTranRevaluationQuery.ConfirmationMessage = "Do You want to execute ?"
Me.aGenerateSpecTranRevaluationQuery.Id = "aGenerateSpecTranRevaluationQuery"
Me.aGenerateSpecTranRevaluationQuery.ImageName = "stopwatch_run"
Me.aGenerateSpecTranRevaluationQuery.Shortcut = Nothing
Me.aGenerateSpecTranRevaluationQuery.Tag = Nothing
Me.aGenerateSpecTranRevaluationQuery.TargetObjectsCriteria = Nothing
Me.aGenerateSpecTranRevaluationQuery.TargetObjectType = GetType(SISBusiness.[Module].SpecTranRevaluation)
Me.aGenerateSpecTranRevaluationQuery.TargetViewId = Nothing
Me.aGenerateSpecTranRevaluationQuery.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aGenerateSpecTranRevaluationQuery.ToolTip = Nothing
Me.aGenerateSpecTranRevaluationQuery.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
'
'aViewPCIDSpecTranRevaluation
'
Me.aViewPCIDSpecTranRevaluation.Caption = "aViewPCIDSpecTranRevaluation"
Me.aViewPCIDSpecTranRevaluation.ConfirmationMessage = Nothing
Me.aViewPCIDSpecTranRevaluation.Id = "aViewPCIDSpecTranRevaluation"
Me.aViewPCIDSpecTranRevaluation.ImageName = Nothing
Me.aViewPCIDSpecTranRevaluation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCIDSpecTranRevaluation.Shortcut = Nothing
Me.aViewPCIDSpecTranRevaluation.Tag = Nothing
Me.aViewPCIDSpecTranRevaluation.TargetObjectsCriteria = Nothing
Me.aViewPCIDSpecTranRevaluation.TargetObjectType = GetType(SISBusiness.[Module].SpecTranRevaluationRowsAccounts)
Me.aViewPCIDSpecTranRevaluation.TargetViewId = ""
Me.aViewPCIDSpecTranRevaluation.ToolTip = Nothing
Me.aViewPCIDSpecTranRevaluation.TypeOfView = Nothing
'
'aCreateRevaluation
'
Me.aCreateRevaluation.Caption = "aCreate Revaluation"
Me.aCreateRevaluation.ConfirmationMessage = "Are you sure ?"
Me.aCreateRevaluation.Id = "aCreateRevaluation"
Me.aCreateRevaluation.ImageName = Nothing
Me.aCreateRevaluation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aCreateRevaluation.Shortcut = Nothing
Me.aCreateRevaluation.Tag = Nothing
Me.aCreateRevaluation.TargetObjectsCriteria = Nothing
Me.aCreateRevaluation.TargetObjectType = GetType(SISBusiness.[Module].SpecTranRevaluationRowsAccounts)
Me.aCreateRevaluation.TargetViewId = Nothing
Me.aCreateRevaluation.ToolTip = Nothing
Me.aCreateRevaluation.TypeOfView = Nothing
'
'aRemoveRevaluation
'
Me.aRemoveRevaluation.Caption = "aRemove Revaluation"
Me.aRemoveRevaluation.ConfirmationMessage = "Are you sure ?"
Me.aRemoveRevaluation.Id = "aRemoveRevaluation"
Me.aRemoveRevaluation.ImageName = Nothing
Me.aRemoveRevaluation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aRemoveRevaluation.Shortcut = Nothing
Me.aRemoveRevaluation.Tag = Nothing
Me.aRemoveRevaluation.TargetObjectsCriteria = Nothing
Me.aRemoveRevaluation.TargetObjectType = GetType(SISBusiness.[Module].GLAccountsRevaluations)
Me.aRemoveRevaluation.TargetViewId = Nothing
Me.aRemoveRevaluation.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aRemoveRevaluation.ToolTip = Nothing
Me.aRemoveRevaluation.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
End Sub
Friend WithEvents aGenerateSpecTranRevaluationQuery As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCIDSpecTranRevaluation As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aCreateRevaluation As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aRemoveRevaluation As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.resx
+135
View File
@@ -0,0 +1,135 @@
<?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="aGenerateSpecTranRevaluationQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="aViewPCIDSpecTranRevaluation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>594, 17</value>
</metadata>
<metadata name="aCreateRevaluation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="aRemoveRevaluation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>428, 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>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb
+367
View File
@@ -0,0 +1,367 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.Xpo
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.Data.Filtering
Imports System.Linq
Public Class SpecTranRevaluationVC
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 aGenerateSpecTranRevaluationQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateSpecTranRevaluationQuery.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _SpecTranRevaluation As SpecTranRevaluation = _uow.GetObjectByKey(Of SpecTranRevaluation)(TryCast(View.SelectedObjects(0), SpecTranRevaluation).Oid)
Dim _SpecTranRevaluationRowsAccounts_Collection = New XPCollection(Of SpecTranRevaluationRowsAccounts)(_uow, CriteriaOperator.Parse("SpecTranRevaluation=?", _SpecTranRevaluation))
_uow.Delete(_SpecTranRevaluationRowsAccounts_Collection)
Dim _SpecTranRevaluationLiquidAssets_Collection = New XPCollection(Of SpecTranRevaluationLiquidAssets)(_uow, CriteriaOperator.Parse("SpecTranRevaluation=?", _SpecTranRevaluation))
_uow.Delete(_SpecTranRevaluationLiquidAssets_Collection)
Dim _LiquidAssets_Collection As New XPCollection(Of LiquidAssets)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName <>'HUF' and CustomerFrom=?", _SpecTranRevaluation.CustomersFrom))
Dim _LiquidAssets As LiquidAssets
'// Pénzeszközök egyenlege
Dim _SpecTranRevaluationLiquidAssets As SpecTranRevaluationLiquidAssets
Dim _BallanceDEV As Double = 0
RaiseEvent InitWork(1, 1, _LiquidAssets_Collection.Count)
For Each _LiquidAssets In _LiquidAssets_Collection
RaiseEvent DoWork()
_BallanceDEV = 0
Select Case _LiquidAssets.LiquidAssetsType
Case eLiquidAssetsType.NormalBank
_BallanceDEV = GetBallanceDEVBank(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date)
If _BallanceDEV <> 0 Then
_SpecTranRevaluationLiquidAssets = New SpecTranRevaluationLiquidAssets(_uow)
_SpecTranRevaluationLiquidAssets.SpecTranRevaluation = _SpecTranRevaluation
_SpecTranRevaluationLiquidAssets.LiquidAssets = _LiquidAssets
_SpecTranRevaluationLiquidAssets.BallanceDEV = _BallanceDEV
_SpecTranRevaluationLiquidAssets.BallanceHUF = GetBallanceHUFBank(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date)
_SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation = _SpecTranRevaluationLiquidAssets.BallanceDEV * _SpecTranRevaluation.CurrencyRate
_SpecTranRevaluationLiquidAssets.DifferenceHUF = _SpecTranRevaluationLiquidAssets.BallanceHUF - _SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation
End If
Case eLiquidAssetsType.NormalCheckout, eLiquidAssetsType.CurrencyCheckout, eLiquidAssetsType.DepositCheckout
_BallanceDEV = GetBallanceDEVCassa(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date)
If Math.Round(_BallanceDEV, 4, MidpointRounding.AwayFromZero) <> 0 Then
_SpecTranRevaluationLiquidAssets = New SpecTranRevaluationLiquidAssets(_uow)
_SpecTranRevaluationLiquidAssets.SpecTranRevaluation = _SpecTranRevaluation
_SpecTranRevaluationLiquidAssets.LiquidAssets = _LiquidAssets
_SpecTranRevaluationLiquidAssets.BallanceDEV = _BallanceDEV
_SpecTranRevaluationLiquidAssets.BallanceHUF = GetBallanceHUFCassa(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date)
_SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation = _SpecTranRevaluationLiquidAssets.BallanceDEV * _SpecTranRevaluation.CurrencyRate
_SpecTranRevaluationLiquidAssets.DifferenceHUF = _SpecTranRevaluationLiquidAssets.BallanceHUF - _SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation
End If
End Select
Next
_uow.CommitChanges()
RaiseEvent FinalWork
'// Szállítói vevõi egyenlegek
Dim _SpecTranRevaluationRowsAccounts As SpecTranRevaluationRowsAccounts
Dim PCI As New XPQuery(Of PCIDetail)(_uow)
Dim query = From _PCI In PCI
Where _PCI.DateExecution.Date <= _SpecTranRevaluation.DateClose.Date And
_PCI.Customers IsNot Nothing And
_PCI.ConnectInfo IsNot Nothing And
_PCI.CustomersFrom Is _SpecTranRevaluation.CustomersFrom And
_PCI.CurrencyName_Account IsNot Nothing And
_PCI.CurrencyName_Account Is _SpecTranRevaluation.CurrencyName And
_PCI.GLAccounts IsNot Nothing
Group _PCI By _PCI.Customers, _
_PCI.PartnerType, _
_PCI.ConnectInfo, _PCI.GLAccounts Into g = Group
Order By PartnerType, Customers, ConnectInfo
Select New With {Key .Customers = Customers, _
Key .PartnerType = PartnerType, _
Key .ConnectInfo = ConnectInfo, _
Key .GLAccounts = GLAccounts, _
Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _
Key .RegistryNumber = g.Max(Function(inv) inv.RegistryNumber), _
Key .AmountHUF = g.Sum(Function(inv) inv.AmountHUF_Account), _
Key .AmountDEV = g.Sum(Function(inv) inv.AmountDEV_Account), _
Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _
Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), _
Key .DatePayment = g.Max(Function(inv) inv.DatePayment_Account), _
Key .DateExecution = g.Max(Function(inv) inv.DateExecution_Account) _
}
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
Dim _GLAccountsRevaluations As GLAccountsRevaluations = _uow.FindObject(Of GLAccountsRevaluations)(CriteriaOperator.Parse("GLAccounts=?", item.GLAccounts))
If _GLAccountsRevaluations Is Nothing Then
If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then
_SpecTranRevaluationRowsAccounts = New SpecTranRevaluationRowsAccounts(_uow)
_SpecTranRevaluationRowsAccounts.SpecTranRevaluation = _SpecTranRevaluation
_SpecTranRevaluationRowsAccounts.PartnerType = item.PartnerType
_SpecTranRevaluationRowsAccounts.Customers = item.Customers
_SpecTranRevaluationRowsAccounts.ConnectInfo = item.ConnectInfo
_SpecTranRevaluationRowsAccounts.CustomersFrom = _SpecTranRevaluation.CustomersFrom
_SpecTranRevaluationRowsAccounts.BallanceDEV = item.BallanceDEV
_SpecTranRevaluationRowsAccounts.GLAccounts = item.GLAccounts
_SpecTranRevaluationRowsAccounts.BallanceHUF_Revaluation = Math.Round(item.BallanceDEV * _SpecTranRevaluation.CurrencyRate, 4, MidpointRounding.AwayFromZero)
_SpecTranRevaluationRowsAccounts.CurrencyRate_Account = 1
If item.AmountDEV <> 0 Then
_SpecTranRevaluationRowsAccounts.CurrencyRate_Account = Math.Round(item.AmountHUF / item.AmountDEV, 4, MidpointRounding.AwayFromZero)
End If
_SpecTranRevaluationRowsAccounts.BallanceHUF = Math.Round(item.BallanceDEV * _SpecTranRevaluationRowsAccounts.CurrencyRate_Account, 4, MidpointRounding.AwayFromZero)
_SpecTranRevaluationRowsAccounts.DifferenceHUF = Math.Round((item.BallanceDEV * _SpecTranRevaluationRowsAccounts.CurrencyRate_Account) - _SpecTranRevaluationRowsAccounts.BallanceHUF_Revaluation, 4, MidpointRounding.AwayFromZero)
End If
End If
Next
_uow.CommitChanges()
RaiseEvent FinalWork
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Function GetBallanceHUFCassa(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _
CriteriaOperator.Parse("LiquidAssets_Cassa=? and DateExecution<=? and DocumentNumber<>''", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date)))
Dim _GLCassa As GLCassa
Dim _GLRows As GLRows
Dim _InAmountHUF As Double = 0
Dim _OutAmountHUF As Double = 0
For Each _GLCassa In _GLCassa_Collection
For Each _GLRows In _GLCassa.GLRows
_InAmountHUF += _GLRows.InAmountHUF
_OutAmountHUF += _GLRows.OutAmountHUF
Next
Next
Return _InAmountHUF - _OutAmountHUF
End Function
Private Function GetBallanceDEVCassa(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _
CriteriaOperator.Parse("LiquidAssets_Cassa=? and DateExecution<=? and DocumentNumber<>''", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date)))
Dim _GLCassa As GLCassa
Dim _GLRows As GLRows
Dim _InAmountDEV As Double = 0
Dim _OutAmountDEV As Double = 0
For Each _GLCassa In _GLCassa_Collection
For Each _GLRows In _GLCassa.GLRows
_InAmountDEV += _GLRows.InAmountDEV
_OutAmountDEV += _GLRows.OutAmountDEV
Next
Next
Return _InAmountDEV - _OutAmountDEV
End Function
Function GetBallanceHUFBank(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
Dim _GLBank_Collection As New XPCollection(Of GLBank)(_uow, _
CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date)))
Dim _GLBank As GLBank
Dim _GLRows As GLRows
Dim _InAmountHUF As Double = 0
Dim _OutAmountHUF As Double = 0
For Each _GLBank In _GLBank_Collection
For Each _GLRows In _GLBank.GLRows
_InAmountHUF += _GLRows.InAmountHUF
_OutAmountHUF += _GLRows.OutAmountHUF
Next
Next
Return _InAmountHUF - _OutAmountHUF
End Function
Function GetBallanceDEVBank(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
Dim _GLBank_Collection As New XPCollection(Of GLBank)(_uow, _
CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date)))
Dim _GLBank As GLBank
Dim _GLRows As GLRows
Dim _InAmountDEV As Double = 0
Dim _OutAmountDEV As Double = 0
For Each _GLBank In _GLBank_Collection
For Each _GLRows In _GLBank.GLRows
_InAmountDEV += _GLRows.InAmountDEV
_OutAmountDEV += _GLRows.OutAmountDEV
Next
Next
Return _InAmountDEV - _OutAmountDEV
End Function
Private Sub aViewPCIDSpecTranRevaluation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDSpecTranRevaluation.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _SpecTranRevaluationRowsAccounts As SpecTranRevaluationRowsAccounts = TryCast(View.SelectedObjects(0), SpecTranRevaluationRowsAccounts)
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _SpecTranRevaluationRowsAccounts.CustomersFrom, _
_SpecTranRevaluationRowsAccounts.Customers, _SpecTranRevaluationRowsAccounts.PartnerType, _
_SpecTranRevaluationRowsAccounts.ConnectInfo)
End Sub
Private Sub aCreateRevaluation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateRevaluation.Execute
'// devizás átértékelési bizonylatot csinál
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _SpecTranRevaluationRowsAccounts As SpecTranRevaluationRowsAccounts
Dim _SpecTranRevaluation As SpecTranRevaluation = TryCast(View.SelectedObjects(0), SpecTranRevaluationRowsAccounts).SpecTranRevaluation
Dim _GLHeader_Revaluation As GLMixed = Nothing
Dim _GLRows_Revaluation As GLRows
Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing
Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing
Dim _Controlling As Controlling = Nothing
Dim _GLMixedNG As GLMixedNG
Dim _Rate As Double = 1
Dim _GLHeader_RevaluationParameter = _ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1"))
If _GLHeader_RevaluationParameter Is Nothing Then
Throw New Exception("*Nincs beállítva az átértékelési paraméter !")
Exit Sub
End If
Dim _ChartOfAccounts_Revaluation_Win As ChartOfAccounts = _GLHeader_RevaluationParameter.GetChartOfAccounts(_SpecTranRevaluation.DateClose.Year, eWinLoss.eRevaluationWin)
Dim _ChartOfAccounts_Revaluation_Loss As ChartOfAccounts = _GLHeader_RevaluationParameter.GetChartOfAccounts(_SpecTranRevaluation.DateClose.Year, eWinLoss.eRevaluationLoss)
Dim _Controlling_Revaluation_Win As Controlling = _GLHeader_RevaluationParameter.Controlling_Revaluation_Win
Dim _Controlling_Revaluation_Loss As Controlling = _GLHeader_RevaluationParameter.Controlling_Revaluation_Loss
If _ChartOfAccounts_Revaluation_Loss Is Nothing Or _
_ChartOfAccounts_Revaluation_Win Is Nothing Then
Throw New Exception("*Nincs beállítva az átértékelési paraméter !")
Exit Sub
End If
Dim _CurrencyName As CurrencyName = Nothing
Dim i As Long = 0
Dim _InAmountHUF As Double = 0
Dim _OutAmountHUF As Double = 0
Dim _InAmountDEV As Double = 0
Dim _OutAmountDEV As Double = 0
_GLHeader_Revaluation = _ocur.CreateObject(Of GLMixed)()
_GLHeader_Revaluation.CustomersFrom = _SpecTranRevaluation.CustomersFrom
_GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Revaluation.CustomersFrom), True)
If _GLMixedNG IsNot Nothing Then
If _GLHeader_Revaluation.DocumentNumber = "" Then
_GLHeader_Revaluation.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator_Revaluation)
End If
End If
_GLHeader_Revaluation.DateExecution = _SpecTranRevaluation.DateClose.Date
_GLHeader_Revaluation.DateCreated = _SpecTranRevaluation.DateClose.Date
_GLHeader_Revaluation.NoteHeader = "Devizás átértékelés"
_GLHeader_Revaluation.GLDocumentType = eGLDocumentType.eGLRateDiff
_GLHeader_Revaluation.IsEditable = False
_GLHeader_Revaluation.IsStorno = False
For Each _SpecTranRevaluationRowsAccounts In View.SelectedObjects
_GLHeader_Revaluation.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
_InAmountDEV = 0
_InAmountHUF = 0
_OutAmountDEV = 0
_OutAmountHUF = 0
Select Case _SpecTranRevaluationRowsAccounts.PartnerType
Case ePartnerType.ePayabels
If _SpecTranRevaluationRowsAccounts.DifferenceHUF > 0 Then
_DebitChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eIn)
_CreditChartOfAccounts = _ChartOfAccounts_Revaluation_Win
_Controlling = _Controlling_Revaluation_Win
_InAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2)
Else 'Árfolyam veszteség szállító
_DebitChartOfAccounts = _ChartOfAccounts_Revaluation_Loss
_CreditChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eIn)
_Controlling = _Controlling_Revaluation_Loss
_OutAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2)
End If
Case ePartnerType.eReceivables
If _SpecTranRevaluationRowsAccounts.DifferenceHUF > 0 Then 'Nyereség vevõ
_DebitChartOfAccounts = _ChartOfAccounts_Revaluation_Loss
_CreditChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eOut)
_Controlling = _Controlling_Revaluation_Loss
_InAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2)
Else 'Árfolyam nyereség vevõ
_DebitChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eOut)
_CreditChartOfAccounts = _ChartOfAccounts_Revaluation_Win
_Controlling = _Controlling_Revaluation_Win
_OutAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2)
End If
End Select
_GLRows_Revaluation = _ocur.CreateObject(Of GLRows)()
_GLRows_Revaluation.GLHeader = _GLHeader_Revaluation
_GLRows_Revaluation.InAmountHUF = _InAmountHUF
_GLRows_Revaluation.OutAmountHUF = _OutAmountHUF
_GLRows_Revaluation.InAmountDEV = 0
_GLRows_Revaluation.OutAmountDEV = 0
_GLRows_Revaluation.AddGLRows(_GLHeader_Revaluation, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), Nothing, _
_SpecTranRevaluationRowsAccounts.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _SpecTranRevaluationRowsAccounts.ConnectInfo, _
eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _SpecTranRevaluationRowsAccounts.PartnerType)
Dim _GLAccountsRevaluations As GLAccountsRevaluations = _ocur.CreateObject(Of GLAccountsRevaluations)()
_GLAccountsRevaluations.GLAccounts = _SpecTranRevaluationRowsAccounts.GLAccounts
_GLAccountsRevaluations.GLRows = _GLRows_Revaluation
_GLAccountsRevaluations.CurrencyRate_Revaluation = _SpecTranRevaluation.CurrencyRate
_GLAccountsRevaluations.CurrencyRate = _SpecTranRevaluationRowsAccounts.CurrencyRate_Account
_ocur.CommitChanges()
GLFunctions.ReconfigurePCI(_uow, _SpecTranRevaluationRowsAccounts.CustomersFrom, _SpecTranRevaluationRowsAccounts.Customers, _SpecTranRevaluationRowsAccounts.PartnerType, _SpecTranRevaluationRowsAccounts.ConnectInfo)
Next
_ocur.CommitChanges()
'Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aRemoveRevaluation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRemoveRevaluation.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLAccountsRevaluations As GLAccountsRevaluations
For Each _GLAccountsRevaluations In View.SelectedObjects
_ocur.Delete(_GLAccountsRevaluations.GLRows)
_ocur.Delete(_GLAccountsRevaluations)
Next
_ocur.CommitChanges()
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalance.vb
+149
View File
@@ -0,0 +1,149 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
<Appearance("Disable UserCreated,ObjectCreated-TrialBalance", AppearanceItemType:="ViewItem", Enabled:=False, TargetItems:="ObjectCreated,UserCreated", Criteria:="1=1")> _
Public Class TrialBalance
Inherits BaseObject
Private _TrialBalanceHeader As TrialBalanceHeader
Private _RowIndex As Long 'Sor index
Private _AccountNumber As String
Private _ShortName As String
Private _IsParent As Boolean = True
Private _CustomersFrom As CustomersFrom
Private _DebitAmountHUF As Double
Private _CreditAmountHUF As Double
Private _DebitRAmountHUF As Double
Private _CreditRAmountHUF As Double
Private _ChartOfAccounts As ChartOfAccounts
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("TrialBalanceHeader-TrialBalance", GetType(TrialBalanceHeader))> _
Property TrialBalanceHeader() As TrialBalanceHeader
Get
Return _TrialBalanceHeader
End Get
Set(ByVal value As TrialBalanceHeader)
SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value)
End Set
End Property
Property RowIndex As Long
Get
Return _RowIndex
End Get
Set(value As Long)
SetPropertyValue("RowIndex", _RowIndex, value)
End Set
End Property
Property AccountNumber() As String
Get
Return _AccountNumber
End Get
Set(ByVal value As String)
SetPropertyValue("AccountNumber", _AccountNumber, value)
End Set
End Property
<Size(255)> _
Property ShortName() As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, 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 CustomersForm() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersForm", _CustomersFrom, value)
End Set
End Property
Property DebitAmountHUF() As Double
Get
Return Math.Round(_DebitAmountHUF, 2, MidpointRounding.AwayFromZero)
End Get
Set(ByVal value As Double)
SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property CreditAmountHUF() As Double
Get
Return Math.Round(_CreditAmountHUF, 2, MidpointRounding.AwayFromZero)
End Get
Set(ByVal value As Double)
SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property DebitRAmountHUF() As Double
Get
Return Math.Round(_DebitRAmountHUF, 2, MidpointRounding.AwayFromZero)
End Get
Set(ByVal value As Double)
SetPropertyValue("DebitRAmountHUF", _DebitRAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property CreditRAmountHUF() As Double
Get
Return Math.Round(_CreditRAmountHUF, 2, MidpointRounding.AwayFromZero)
End Get
Set(ByVal value As Double)
SetPropertyValue("CreditRAmountHUF", _CreditRAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
<Browsable(False)> _
Property ChartOfAccounts As ChartOfAccounts
Get
Return _ChartOfAccounts
End Get
Set(value As ChartOfAccounts)
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
End Set
End Property
ReadOnly Property ShortNameFormatted As String
Get
Dim s As String
s = ""
For i = 1 To Len(AccountNumber)
s += " "
Next
Return s & ShortName
End Get
End Property
ReadOnly Property LevelNumber As Long
Get
Return Len(AccountNumber)
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceHeader.vb
+196
View File
@@ -0,0 +1,196 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem("FinancialTransactions")> _
<DeferredDeletion(False)> _
Public Class TrialBalanceHeader
Inherits BaseObject
Private _DateFrom As Date 'Dátumtól
Private _DateTo As Date 'Dátumig
Private _CustomersFrom As CustomersFrom 'Saját cég
Private _ShortName As String 'Lekérdezés rövid megnevezése
Private _QueryLevel As Long = 10
Private _ObjectCreated As Date
Private _UserCreated As User
Private _GLReportDateExecutionMode As eDateExecutionMode = eDateExecutionMode.eHeader
Private _IsGLOpenClose As Boolean = False ' Csak a fõkönyvi nyitás és zárásnál látszik
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
Me.DateFrom = FirstDayOfYear(GetSQLTime(Session))
Me.DateTo = LastDayOfYear(GetSQLTime(Session))
End Sub
Protected Overrides Sub OnDeleting()
MyBase.OnDeleting()
Session.Delete(Me.TrialBalance)
Session.Delete(Me.TrialBalanceOpenClose)
Session.Delete(Me.TrialBalanceSum)
End Sub
<RuleRequiredField("TrialBalanceHeader-DateFrom", DefaultContexts.Save)> _
Property DateFrom() As Date
Get
Return _DateFrom
End Get
Set(ByVal value As Date)
SetPropertyValue("DateFrom", _DateFrom, value)
End Set
End Property
<RuleRequiredField("TrialBalanceHeader-DateTo", DefaultContexts.Save)> _
Property DateTo() As Date
Get
Return _DateTo
End Get
Set(ByVal value As Date)
SetPropertyValue("DateTo", _DateTo, value)
End Set
End Property
<RuleRequiredField("TrialBalanceHeader-CustomersFrom", DefaultContexts.Save)> _
Property CustomersFrom() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<RuleRequiredField("TrialBalanceHeader-ShortName", DefaultContexts.Save)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
Property QueryLevel As Long
Get
Return _QueryLevel
End Get
Set(value As Long)
SetPropertyValue("QueryLevel", _QueryLevel, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
Property GLReportDateExecutionMode As eDateExecutionMode
Get
Return _GLReportDateExecutionMode
End Get
Set(value As eDateExecutionMode)
SetPropertyValue("GLReportDateExecutionMode", _GLReportDateExecutionMode, value)
End Set
End Property
'//XPCollections
<Association("TrialBalanceHeader-TrialBalance", GetType(TrialBalance)), VisibleInListView(False)> _
ReadOnly Property TrialBalance() As XPCollection(Of TrialBalance)
Get
Return GetCollection(Of TrialBalance)("TrialBalance")
End Get
End Property
<Association("TrialBalanceHeader-TrialBalanceOpenClose", GetType(TrialBalanceOpenClose)), VisibleInListView(False)> _
ReadOnly Property TrialBalanceOpenClose() As XPCollection(Of TrialBalanceOpenClose)
Get
Return GetCollection(Of TrialBalanceOpenClose)("TrialBalanceOpenClose")
End Get
End Property
<Association("TrialBalanceHeader-TrialBalanceSum", GetType(TrialBalanceSum)), VisibleInListView(False)> _
ReadOnly Property TrialBalanceSum() As XPCollection(Of TrialBalanceSum)
Get
Return GetCollection(Of TrialBalanceSum)("TrialBalanceSum")
End Get
End Property
<Association("TrialBalanceHeader-TrialBalanceJobNumberObjects", GetType(TrialBalanceJobNumberObjects)), VisibleInListView(False)> _
ReadOnly Property TrialBalanceJobNumberObjects As XPCollection(Of TrialBalanceJobNumberObjects)
Get
Return GetCollection(Of TrialBalanceJobNumberObjects)("TrialBalanceJobNumberObjects")
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property GLRowsStatictics As XPCollection(Of GLRowsStatistics)
Get
If Session.IsNewObject(Me) Then
Return Nothing
Else
Return New XPCollection(Of GLRowsStatistics)(Session, CriteriaOperator.Parse("MasterKey=?", Me.Oid))
End If
End Get
End Property
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
Property IsGLOpenClose As Boolean
Get
Return _IsGLOpenClose
End Get
Set(value As Boolean)
SetPropertyValue("IsGLOpenClose", _IsGLOpenClose, value)
End Set
End Property
Public Sub CreateGLRowsStatictics(_uow As UnitOfWork, _DateFrom As Date, _DateTo As Date, _CustomersFrom As CustomersFrom, _MasterKey As Guid)
'// Elõkészít egy GLRowsStatictics XPCollection azokra a tételekre, amelyek nincsenek feladva ezen idõszakra !
Dim _GLRowsStatistics As GLRowsStatistics
Dim _GLRowsStatistics_Collection As New XPCollection(Of GLRowsStatistics)(_uow, CriteriaOperator.Parse("MasterKey=?", _MasterKey))
_uow.Delete(_GLRowsStatistics_Collection)
Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_uow, CriteriaOperator.Parse("CustomersFrom.Oid = ? And GetDate(F_DateExecution) Between(?, ?) And RegistryType.RegistryMainType = 'eAccount' And F_GLAccounts Is Null And IsStorno = False", _CustomersFrom.Oid, _DateFrom.Date, _DateTo.Date))
Dim _RegistryHeader As RegistryHeader
For Each _RegistryHeader In _RegistryHeader_Collection
_GLRowsStatistics = New GLRowsStatistics(_uow)
_GLRowsStatistics.MasterKey = _MasterKey
_GLRowsStatistics.RegistryHeader = _RegistryHeader
Next
Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_uow, CriteriaOperator.Parse("InvoiceType.InvoiceTypeBase <> 'eCustomRate' And getdate(DateExecution) Between(?, ?) And CustomersFrom.Oid = ? And GLAccounts Is Null", _DateFrom.Date, _DateTo.Date, _CustomersFrom.Oid))
Dim _InvoiceHeader As InvoiceHeader
For Each _InvoiceHeader In _InvoiceHeader_Collection
_GLRowsStatistics = New GLRowsStatistics(_uow)
_GLRowsStatistics.MasterKey = _MasterKey
_GLRowsStatistics.InvoiceHeader = _InvoiceHeader
Next
_uow.CommitChanges()
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceJobNumberObjects.vb
+69
View File
@@ -0,0 +1,69 @@
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(), CreatableItem(False), NavigationItem(False)> _
Public Class TrialBalanceJobNumberObjects ' 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 _TrialBalanceHeader As TrialBalanceHeader
Private _JobNumberObjects As JobNumberObjects
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
<Association("TrialBalanceHeader-TrialBalanceJobNumberObjects", GetType(TrialBalanceHeader))> _
Property TrialBalanceHeader As TrialBalanceHeader
Get
Return _TrialBalanceHeader
End Get
Set(value As TrialBalanceHeader)
SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value)
End Set
End Property
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
End Get
Set(value As JobNumberObjects)
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
'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
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceOpenClose.vb
+159
View File
@@ -0,0 +1,159 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class TrialBalanceOpenClose
Inherits BaseObject
Private _TrialBalanceHeader As TrialBalanceHeader
Private _RowIndex As Long 'Sor index
Private _AccountNumber As String
Private _ShortName As String
Private _IsParent As Boolean = True
Private _CustomersFrom As CustomersFrom
Private _BallanceHUF491 As Double
Private _BallanceHUFOpen As Double
Private _BallanceHUF491Open As Double
Private _BallanceHUF As Double
Private _DebitAmountHUF As Double
Private _CreditAmountHUF As Double
Private _BallanceHUFClose As Double
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("TrialBalanceHeader-TrialBalanceOpenClose", GetType(TrialBalanceHeader))> _
Property TrialBalanceHeader() As TrialBalanceHeader
Get
Return _TrialBalanceHeader
End Get
Set(ByVal value As TrialBalanceHeader)
SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value)
End Set
End Property
Property RowIndex As Long
Get
Return _RowIndex
End Get
Set(value As Long)
SetPropertyValue("RowIndex", _RowIndex, value)
End Set
End Property
Property AccountNumber() As String
Get
Return _AccountNumber
End Get
Set(ByVal value As String)
SetPropertyValue("AccountNumber", _AccountNumber, value)
End Set
End Property
<Size(255)> _
Property ShortName() As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, 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 CustomersForm() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersForm", _CustomersFrom, value)
End Set
End Property
Property BallanceHUF491 As Double
Get
Return Math.Round(_BallanceHUF491, 2, MidpointRounding.AwayFromZero)
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF491", _BallanceHUF491, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property BallanceHUFOpen As Double
Get
Return Math.Round(_BallanceHUFOpen, 2, MidpointRounding.AwayFromZero)
End Get
Set(value As Double)
SetPropertyValue("BallanceHUFOpen", _BallanceHUFOpen, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property BallanceHUF491Open As Double
Get
Return Math.Round(_BallanceHUF491Open, 2, MidpointRounding.AwayFromZero)
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF491Open", _BallanceHUF491Open, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property DebitAmountHUF As Double
Get
Return Math.Round(_DebitAmountHUF, 2, MidpointRounding.AwayFromZero)
End Get
Set(value As Double)
SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property CreditAmountHUF As Double
Get
Return Math.Round(_CreditAmountHUF, 2, MidpointRounding.AwayFromZero)
End Get
Set(value As Double)
SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property BallanceHUF As Double
Get
Return Math.Round(_BallanceHUF, 2, MidpointRounding.AwayFromZero)
End Get
Set(value As Double)
SetPropertyValue("BallanceHUF", _BallanceHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
Property BallanceHUFClose As Double
Get
Return Math.Round(_BallanceHUFClose, 2, MidpointRounding.AwayFromZero)
End Get
Set(value As Double)
SetPropertyValue("BallanceHUFClose", _BallanceHUFClose, Math.Round(value, 2, MidpointRounding.AwayFromZero))
End Set
End Property
ReadOnly Property ShortNameFormatted As String
Get
Dim s As String
s = ""
For i = 1 To Len(AccountNumber)
s += " "
Next
Return s & ShortName
End Get
End Property
ReadOnly Property LevelNumber As Long
Get
Return Len(AccountNumber)
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceSum.vb
+129
View File
@@ -0,0 +1,129 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
Public Enum eAccountSum
e1_4 = 0
e5_9 = 1
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
Public Class TrialBalanceSum
Inherits BaseObject
Private _TrialBalanceHeader As TrialBalanceHeader
Private _AccountSum As eAccountSum
Private _RowIndex As Long 'Sor index
Private _AccountNumber As String
Private _ShortName As String
Private _CustomersFrom As CustomersFrom
Private _BallanceHUFOpen As Double
Private _BallanceHUF As Double
Private _DebitAmountHUF As Double
Private _CreditAmountHUF As Double
Private _BallanceHUFClose As Double
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("TrialBalanceHeader-TrialBalanceSum", GetType(TrialBalanceHeader))> _
Property TrialBalanceHeader() As TrialBalanceHeader
Get
Return _TrialBalanceHeader
End Get
Set(ByVal value As TrialBalanceHeader)
SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value)
End Set
End Property
Property RowIndex As Long
Get
Return _RowIndex
End Get
Set(value As Long)
SetPropertyValue("RowIndex", _RowIndex, value)
End Set
End Property
Property AccountSum As eAccountSum
Get
Return _AccountSum
End Get
Set(value As eAccountSum)
SetPropertyValue("AccountSum", _AccountSum, value)
End Set
End Property
Property AccountNumber() As String
Get
Return _AccountNumber
End Get
Set(ByVal value As String)
SetPropertyValue("AccountNumber", _AccountNumber, value)
End Set
End Property
<Size(255)> _
Property ShortName() As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
Property CustomersForm() As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersForm", _CustomersFrom, value)
End Set
End Property
Property BallanceHUFOpen As Double
Get
Return _BallanceHUFOpen
End Get
Set(value As Double)
SetPropertyValue("BallanceHUFOpen", _BallanceHUFOpen, 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
Property BallanceHUFClose As Double
Get
Return _BallanceHUFClose
End Get
Set(value As Double)
SetPropertyValue("BallanceHUFClose", _BallanceHUFClose, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.Designer.vb
Generated
+128
View File
@@ -0,0 +1,128 @@
Partial Class TrialBalanceVC
<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.aTrialBalanceQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aTrialBalancePrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aTrialBalanceOpenCloseQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewTrialBalanceDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aTrialBalanceViewCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aTrialBalancePrint1 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aTrialBalanceQuery
'
Me.aTrialBalanceQuery.Caption = "Run query"
Me.aTrialBalanceQuery.Category = "aTrialBalanceQuery"
Me.aTrialBalanceQuery.ConfirmationMessage = Nothing
Me.aTrialBalanceQuery.Id = "aTrialBalanceQuery"
Me.aTrialBalanceQuery.ImageName = "stopwatch_run"
Me.aTrialBalanceQuery.Shortcut = Nothing
Me.aTrialBalanceQuery.Tag = Nothing
Me.aTrialBalanceQuery.TargetObjectsCriteria = Nothing
Me.aTrialBalanceQuery.TargetViewId = "TrialBalanceHeader_DetailView"
Me.aTrialBalanceQuery.ToolTip = Nothing
Me.aTrialBalanceQuery.TypeOfView = Nothing
'
'aTrialBalancePrint
'
Me.aTrialBalancePrint.Caption = "Print document"
Me.aTrialBalancePrint.Category = "aTrialBalancePrint"
Me.aTrialBalancePrint.ConfirmationMessage = Nothing
Me.aTrialBalancePrint.Id = "aTrialBalancePrint"
Me.aTrialBalancePrint.ImageName = "Action_Printing_Print"
Me.aTrialBalancePrint.Shortcut = Nothing
Me.aTrialBalancePrint.Tag = Nothing
Me.aTrialBalancePrint.TargetObjectsCriteria = Nothing
Me.aTrialBalancePrint.TargetViewId = "TrialBalanceHeader_DetailView"
Me.aTrialBalancePrint.ToolTip = Nothing
Me.aTrialBalancePrint.TypeOfView = Nothing
'
'aTrialBalanceOpenCloseQuery
'
Me.aTrialBalanceOpenCloseQuery.Caption = "Run query"
Me.aTrialBalanceOpenCloseQuery.Category = "aTrialBalanceOpenCloseQuery"
Me.aTrialBalanceOpenCloseQuery.ConfirmationMessage = Nothing
Me.aTrialBalanceOpenCloseQuery.Id = "aTrialBalanceOpenCloseQuery"
Me.aTrialBalanceOpenCloseQuery.ImageName = "stopwatch_run"
Me.aTrialBalanceOpenCloseQuery.Shortcut = Nothing
Me.aTrialBalanceOpenCloseQuery.Tag = Nothing
Me.aTrialBalanceOpenCloseQuery.TargetObjectsCriteria = Nothing
Me.aTrialBalanceOpenCloseQuery.TargetViewId = "TrialBalanceHeader_DetailView"
Me.aTrialBalanceOpenCloseQuery.ToolTip = Nothing
Me.aTrialBalanceOpenCloseQuery.TypeOfView = Nothing
'
'aViewTrialBalanceDetail
'
Me.aViewTrialBalanceDetail.Caption = "View details"
Me.aViewTrialBalanceDetail.ConfirmationMessage = Nothing
Me.aViewTrialBalanceDetail.Id = "aViewTrialBalanceDetail"
Me.aViewTrialBalanceDetail.ImageName = "Action_WindowList"
Me.aViewTrialBalanceDetail.Shortcut = Nothing
Me.aViewTrialBalanceDetail.Tag = Nothing
Me.aViewTrialBalanceDetail.TargetObjectsCriteria = Nothing
Me.aViewTrialBalanceDetail.TargetViewId = "TrialBalanceHeader_DetailView"
Me.aViewTrialBalanceDetail.ToolTip = Nothing
Me.aViewTrialBalanceDetail.TypeOfView = Nothing
'
'aTrialBalanceViewCard
'
Me.aTrialBalanceViewCard.Caption = "Trial Balance View Card"
Me.aTrialBalanceViewCard.ConfirmationMessage = Nothing
Me.aTrialBalanceViewCard.Id = "aTrialBalanceViewCard"
Me.aTrialBalanceViewCard.ImageName = Nothing
Me.aTrialBalanceViewCard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aTrialBalanceViewCard.Shortcut = Nothing
Me.aTrialBalanceViewCard.Tag = Nothing
Me.aTrialBalanceViewCard.TargetObjectsCriteria = Nothing
Me.aTrialBalanceViewCard.TargetViewId = Nothing
Me.aTrialBalanceViewCard.ToolTip = Nothing
Me.aTrialBalanceViewCard.TypeOfView = Nothing
'
'aTrialBalancePrint1
'
Me.aTrialBalancePrint1.Caption = "Print document"
Me.aTrialBalancePrint1.Category = "aTrialBalancePrint1"
Me.aTrialBalancePrint1.ConfirmationMessage = Nothing
Me.aTrialBalancePrint1.Id = "aTrialBalancePrint1"
Me.aTrialBalancePrint1.ImageName = "Action_Printing_Print"
Me.aTrialBalancePrint1.Shortcut = Nothing
Me.aTrialBalancePrint1.Tag = Nothing
Me.aTrialBalancePrint1.TargetObjectsCriteria = Nothing
Me.aTrialBalancePrint1.TargetViewId = "TrialBalanceHeader_DetailView"
Me.aTrialBalancePrint1.ToolTip = Nothing
Me.aTrialBalancePrint1.TypeOfView = Nothing
End Sub
Friend WithEvents aTrialBalanceQuery As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aTrialBalancePrint As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aTrialBalanceOpenCloseQuery As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewTrialBalanceDetail As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aTrialBalanceViewCard As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aTrialBalancePrint1 As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.resx
+141
View File
@@ -0,0 +1,141 @@
<?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="aTrialBalanceQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="aTrialBalancePrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>347, 17</value>
</metadata>
<metadata name="aTrialBalanceOpenCloseQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>495, 17</value>
</metadata>
<metadata name="aViewTrialBalanceDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>865, 17</value>
</metadata>
<metadata name="aTrialBalanceViewCard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>173, 17</value>
</metadata>
<metadata name="aTrialBalancePrint1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>710, 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>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb
+804
View File
@@ -0,0 +1,804 @@
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.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.ExpressApp.CloneObject
Public Class TrialBalanceVC
Inherits DevExpress.ExpressApp.ViewController
Public Structure sReq
Dim AccountNumber As String
Dim ParentAccountNumber As String
Dim DebitAmountHUF As Double
Dim CreditAmountHUF As Double
Dim DebitAmountDEV As Double
Dim CreditAmountDEV As Double
Dim IsLastLevel As Boolean
End Structure
Dim elem As sReq
Dim sArray(0 To 10000) As sReq
Dim Index As Integer
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()
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _User As User
If _ocur IsNot Nothing Then
_User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
End If
MyBase.OnActivated()
Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", False)
If View.Id = "TrialBalanceHeader_TrialBalanceOpenClose_ListView" Or _
View.Id = "TrialBalanceHeader_TrialBalance_ListView" Then
Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
End If
If View.Id = "TrialBalanceHeader_DetailView" Then
Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader)
If _TrialBalanceHeader.UserCreated IsNot Nothing Then
If Not _TrialBalanceHeader.UserCreated.Equals(_User) Then
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", False)
Frame.GetController(Of TrialBalanceVC).aTrialBalanceOpenCloseQuery.Active.SetItemValue("", False)
End If
End If
End If
If View.Id = "TrialBalanceHeader_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = String.Format("UserCreated.Oid='{0}' or 'SysAdmin'='{1}'", _User.Oid, SecuritySystem.CurrentUserName)
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll
End If
If View.Id = "TrialBalanceHeader_DetailView_BeforeClose" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
If _GLOpenCloseHeader IsNot Nothing Then
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderBeforeClose)
End If
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterClose_SheetProfit" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit)
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterClose_Ballance" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance)
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterOpen" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen)
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterDividend" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", False)
If View.Id = "TrialBalanceHeader_DetailView" Then
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader)
Dim _User As User
If _ocur IsNot Nothing Then
_User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
End If
If _TrialBalanceHeader.UserCreated IsNot Nothing Then
If Not _TrialBalanceHeader.UserCreated.Equals(_User) Then
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", True)
End If
End If
End If
End Sub
Private Sub aTrialBalanceQuery_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalanceQuery.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader)
LoadTrialBalanceNew(_ocur, _TrialBalanceHeader)
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Private Sub aTrialBalanceOpenCloseQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalanceOpenCloseQuery.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader)
LoadTrialBalanceOpenClose(_ocur, _TrialBalanceHeader)
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
End Sub
Private Sub aTrialBalancePrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalancePrint.Execute
'-- Ez egy beégetés !!
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ReportData As ReportData
Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader)
If _TrialBalanceHeader IsNot Nothing Then
_ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Főkönyvi kivonat"))
If _ReportData IsNot Nothing Then
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("TrialBalanceHeader=?", _TrialBalanceHeader), True)
Else
Throw New UserFriendlyException("Nincs beállítva a <Főkönyvi kivonat> nyomtatvány !")
End If
End If
End Sub
Private Sub aViewTrialBalanceDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewTrialBalanceDetail.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("TrialBalanceOpenClose")
Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader)
Dim _TrialBalanceOpenClose As TrialBalanceOpenClose = Nothing
If _ListView.ListView.SelectedObjects.Count > 0 Then _TrialBalanceOpenClose = _ListView.ListView.SelectedObjects(0)
If _TrialBalanceOpenClose IsNot Nothing Then
Dim _CS As New CollectionSource(_onew, GetType(GLRows))
_CS.BeginUpdateCriteria()
_CS.Criteria.Clear()
_CS.Criteria("First") = CriteriaOperator.Parse("GLHeader.DateExecution>=? and GetDate(GLHeader.DateExecution) <=? and GLHeader.CustomersFrom.Oid=? and GLHeader.IsEditable=False", _
_TrialBalanceHeader.DateFrom.Date, _TrialBalanceHeader.DateTo, _TrialBalanceHeader.CustomersFrom.Oid)
_CS.Criteria("Second") = CriteriaOperator.Parse("DebitChartOfAccounts.AccountNumber like '" & _TrialBalanceOpenClose.AccountNumber & _
"%' or CreditChartOfAccounts.AccountNumber like '" & _TrialBalanceOpenClose.AccountNumber & "%'")
_CS.EndUpdateCriteria()
e.ShowViewParameters.CreatedView = Application.CreateListView("GLRows_ListView_TrialBalance", _CS, False)
End If
End Sub
Private Sub aTrialBalanceViewCard_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalanceViewCard.Execute
End Sub
Private Sub aTrialBalancePrint1_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalancePrint1.Execute
'-- Ez egy beégetés !!
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ReportData As ReportData
Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader)
If _TrialBalanceHeader IsNot Nothing Then
_ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Főkönyvi kivonat 1"))
If _ReportData IsNot Nothing Then
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("TrialBalanceHeader=?", _TrialBalanceHeader), True)
Else
Throw New UserFriendlyException("Nincs beállítva a <Főkönyvi kivonat 1> nyomtatvány !")
End If
End If
End Sub
'// Subs
Public Sub LoadTrialBalanceNew(_ocur As Xpo.XPObjectSpace, _TrialBallanceHeader As TrialBalanceHeader)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
Dim _ChartOfAccounts As ChartOfAccounts
Dim _TrialBalanceHeader As TrialBalanceHeader = _uow.GetObjectByKey(Of TrialBalanceHeader)(_TrialBallanceHeader.Oid)
Dim _AmountHUF As Double = 0
Dim _GLRows_Collection = Nothing
Dim _GLRow As GLRows = Nothing
Dim _TrialBalanceSum As TrialBalanceSum
Dim _CP As String = ""
Dim _RowIndex As Long = 0
Dim _RowIndex_Sum As Long = 0
If _TrialBalanceHeader Is Nothing Then Exit Sub
Dim _TrialBallance_Collection As New XPCollection(_uow, GetType(TrialBalance), _
CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid))
_uow.Delete(_TrialBallance_Collection)
Dim _TrialBalanceSum_Collection As New XPCollection(_uow, GetType(TrialBalanceSum), _
CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid))
_uow.Delete(_TrialBalanceSum_Collection)
Dim _TrialBalance As TrialBalance
'-- Először feltöltjük a főkönyvi számlatükröt -------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim _ChartOfAccounts_Collection As New XPCollection(_uow, GetType(ChartOfAccounts), CriteriaOperator.Parse("AccountYear=?", _TrialBalanceHeader.DateFrom.Year))
_ChartOfAccounts_Collection.Sorting.Add(New SortProperty("AccountNumber", DB.SortingDirection.Ascending))
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
_RowIndex += 1
RaiseEvent DoWork()
_TrialBalance = New TrialBalance(_uow)
_TrialBalance.RowIndex = _RowIndex
_TrialBalance.TrialBalanceHeader = _TrialBalanceHeader
_TrialBalance.CustomersForm = _TrialBalanceHeader.CustomersFrom
_TrialBalance.AccountNumber = _ChartOfAccounts.AccountNumber
_TrialBalance.ChartOfAccounts = _ChartOfAccounts
_TrialBalance.CreditAmountHUF = 0
_TrialBalance.CreditRAmountHUF = 0
_TrialBalance.DebitAmountHUF = 0
_TrialBalance.DebitRAmountHUF = 0
_TrialBalance.ShortName = _ChartOfAccounts.Name
Next
_uow.CommitChanges()
RaiseEvent FinalWork
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim DebitQuery As System.Linq.IQueryable(Of Object)
Dim _GLRows_XPQuery As New XPQuery(Of GLRows)(_uow)
Dim _TrialBalanceJobNumberObjects_XPQuery As New XPQuery(Of TrialBalanceJobNumberObjects)(_uow)
Dim cquery = From _TrialBalanceJobNumberObjects In _TrialBalanceJobNumberObjects_XPQuery
Where _TrialBalanceJobNumberObjects.TrialBalanceHeader.Oid = _TrialBalanceHeader.Oid
Select _TrialBalanceJobNumberObjects.JobNumberObjects.Oid
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then
DebitQuery = From _DebitQuery In _GLRows_XPQuery
Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_DebitQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_DebitQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
cquery.Contains(_DebitQuery.JobNumberObjects.Oid) And
_DebitQuery.GLHeader.IsEditable = False
Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
Else
DebitQuery = From _DebitQuery In _GLRows_XPQuery
Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_DebitQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_DebitQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
_DebitQuery.GLHeader.IsEditable = False
Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
End If
Else
If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then
DebitQuery = From _DebitQuery In _GLRows_XPQuery
Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_DebitQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_DebitQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
cquery.Contains(_DebitQuery.JobNumberObjects.Oid) And
_DebitQuery.GLHeader.IsEditable = False
Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
Else
DebitQuery = From _DebitQuery In _GLRows_XPQuery
Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_DebitQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_DebitQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
_DebitQuery.GLHeader.IsEditable = False
Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
End If
End If
RaiseEvent InitWork(1, 1, DebitQuery.Count)
For Each item In DebitQuery
RaiseEvent DoWork()
For Each _TrialBalance In _TrialBalanceHeader.TrialBalance
If item.AccountNumber IsNot Nothing Then
If _TrialBalance.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalance.AccountNumber)) Then
_TrialBalance.DebitAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
Dim CreditQuery As System.Linq.IQueryable(Of Object)
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then
CreditQuery = From _CreditQuery In _GLRows_XPQuery
Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_CreditQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_CreditQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
cquery.Contains(_CreditQuery.JobNumberObjects.Oid) And
_CreditQuery.GLHeader.IsEditable = False
Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
Else
CreditQuery = From _CreditQuery In _GLRows_XPQuery
Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_CreditQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_CreditQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
_CreditQuery.GLHeader.IsEditable = False
Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
End If
Else
If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then
CreditQuery = From _CreditQuery In _GLRows_XPQuery
Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_CreditQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_CreditQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
cquery.Contains(_CreditQuery.JobNumberObjects.Oid) And
_CreditQuery.GLHeader.IsEditable = False
Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
Else
CreditQuery = From _CreditQuery In _GLRows_XPQuery
Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _
_CreditQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _
_CreditQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _
_CreditQuery.GLHeader.IsEditable = False
Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber,
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)),
Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))}
End If
End If
RaiseEvent InitWork(1, 1, CreditQuery.Count)
For Each item In CreditQuery
RaiseEvent DoWork()
For Each _TrialBalance In _TrialBalanceHeader.TrialBalance
If item.AccountNumber IsNot Nothing Then
If _TrialBalance.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalance.AccountNumber)) Then
_TrialBalance.CreditAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
'-- Összesítés -----------------------------------------------------------------------------------------------------------------------------------------------------------------------
RaiseEvent InitWork(1, 1, _TrialBalanceHeader.TrialBalance.Count)
For Each _TrialBalance In _TrialBalanceHeader.TrialBalance
RaiseEvent DoWork()
If _TrialBalance.DebitAmountHUF > _TrialBalance.CreditAmountHUF Then
_TrialBalance.DebitRAmountHUF = _TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF
ElseIf _TrialBalance.DebitAmountHUF < _TrialBalance.CreditAmountHUF Then
_TrialBalance.CreditRAmountHUF = _TrialBalance.CreditAmountHUF - _TrialBalance.DebitAmountHUF
End If
Select Case _TrialBalance.AccountNumber
Case "0", "1", "2", "3", "4", "5", "8", "9"
_RowIndex_Sum += 1
_TrialBalanceSum = New TrialBalanceSum(_uow)
_TrialBalanceSum.RowIndex = _RowIndex_Sum
Select Case _TrialBalance.AccountNumber
Case "0", "1", "2", "3", "4"
_TrialBalanceSum.AccountSum = eAccountSum.e1_4
Case "5", "8", "9"
_TrialBalanceSum.AccountSum = eAccountSum.e5_9
End Select
_TrialBalanceSum.AccountNumber = _TrialBalance.AccountNumber
_TrialBalanceSum.CreditAmountHUF = _TrialBalance.CreditAmountHUF
_TrialBalanceSum.CustomersForm = _TrialBalance.CustomersForm
_TrialBalanceSum.DebitAmountHUF = _TrialBalance.DebitAmountHUF
_TrialBalanceSum.ShortName = _TrialBalance.ShortName
_TrialBalanceSum.TrialBalanceHeader = _TrialBalanceHeader
_TrialBalanceSum.BallanceHUFClose = _TrialBalanceSum.DebitAmountHUF - _TrialBalanceSum.CreditAmountHUF
End Select
Next
_uow.CommitChanges()
RaiseEvent FinalWork
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim _TRB_C As New XPCollection(Of TrialBalance)(_uow, CriteriaOperator.Parse("CreditAmountHUF = 0 And DebitAmountHUF = 0 And CreditRAmountHUF = 0 And CreditRAmountHUF = 0"))
_uow.Delete(_TRB_C)
_uow.CommitChanges()
_TrialBalanceHeader.CreateGLRowsStatictics(_uow, _TrialBalanceHeader.DateFrom, _TrialBalanceHeader.DateTo, _TrialBalanceHeader.CustomersFrom, _TrialBalanceHeader.Oid)
End Sub
Public Sub LoadTrialBalanceOpenClose(_ocur As Xpo.XPObjectSpace, _TrialBallanceHeader As TrialBalanceHeader)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
Dim _DebitAmountHUF As Double = 0
Dim _CreditAmountHUF As Double = 0
Dim _DebitAmountHUF491 As Double = 0
Dim _CreditAmountHUF491 As Double = 0
Dim _DateFromCurrentYear As Date
Dim _DateFrom As Date
Dim _ChartOfAccounts As ChartOfAccounts
Dim _TrialBalanceHeader As TrialBalanceHeader = _uow.GetObjectByKey(Of TrialBalanceHeader)(_TrialBallanceHeader.Oid)
Dim _TrialBalanceOpenClose_Collection As New XPCollection(_uow, GetType(TrialBalanceOpenClose), _
CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid))
_uow.Delete(_TrialBalanceOpenClose_Collection)
Dim _TrialBalanceSum_Collection As New XPCollection(_uow, GetType(TrialBalanceSum), _
CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid))
_uow.Delete(_TrialBalanceSum_Collection)
Dim _TrialBalanceOpenClose As TrialBalanceOpenClose
Dim _TrialBalanceSum As TrialBalanceSum
Dim _RowIndex As Long = 0
Dim _RowIndex_Sum As Long = 0
_DateFromCurrentYear = CDate(Year(_TrialBalanceHeader.DateFrom) & "/01/01")
_DateFrom = _TrialBalanceHeader.DateFrom
'-- Először feltöltjük a főkönyvi számlatükröt -------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim _ChartOfAccounts_Collection As New XPCollection(_uow, GetType(ChartOfAccounts), CriteriaOperator.Parse("AccountYear=?", _TrialBalanceHeader.DateFrom.Year))
_ChartOfAccounts_Collection.Sorting.Add(New SortProperty("AccountNumber", DB.SortingDirection.Ascending))
RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
For Each _ChartOfAccounts In _ChartOfAccounts_Collection
_RowIndex += 1
RaiseEvent DoWork()
_TrialBalanceOpenClose = New TrialBalanceOpenClose(_uow)
_TrialBalanceOpenClose.RowIndex = _RowIndex
_TrialBalanceOpenClose.TrialBalanceHeader = _TrialBalanceHeader
_TrialBalanceOpenClose.CustomersForm = _TrialBalanceHeader.CustomersFrom
_TrialBalanceOpenClose.AccountNumber = _ChartOfAccounts.AccountNumber
_TrialBalanceOpenClose.CreditAmountHUF = 0
_TrialBalanceOpenClose.DebitAmountHUF = 0
_TrialBalanceOpenClose.ShortName = _ChartOfAccounts.Name
_TrialBalanceOpenClose.BallanceHUF = 0
_TrialBalanceOpenClose.BallanceHUF491 = 0
_TrialBalanceOpenClose.BallanceHUF491Open = 0
_TrialBalanceOpenClose.BallanceHUFClose = 0
_TrialBalanceOpenClose.BallanceHUFOpen = 0
Next
_uow.CommitChanges()
RaiseEvent FinalWork
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim _GLRows_xpquery = New XPQuery(Of GLRows)(_uow)
Dim query As System.Linq.IQueryable(Of Object)
'I. ------------------------------------------------------------------------------------------------------------------------------------
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
query = From _glrows In _GLRows_xpquery
Where _glrows.CreditChartOfAccounts.AccountNumber = "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.GLHeader.DateExecution.Year = _DateFromCurrentYear.Year And _
_glrows.GLHeader.DateExecution.Month = 1 And
_glrows.GLHeader.DateExecution.Day = 1 And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
Else
query = From _glrows In _GLRows_xpquery
Where _glrows.CreditChartOfAccounts.AccountNumber = "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.DateExecution.Year = _DateFromCurrentYear.Year And _
_glrows.GLHeader.DateExecution.Month = 1 And
_glrows.GLHeader.DateExecution.Day = 1 And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
End If
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
If item.AccountNumber IsNot Nothing Then
If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then
_TrialBalanceOpenClose.BallanceHUF491 += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber = "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.GLHeader.DateExecution.Year = _DateFromCurrentYear.Year And _
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
Else
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber = "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.DateExecution.Year = _DateFromCurrentYear.Year And _
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
End If
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
If item.AccountNumber IsNot Nothing Then
If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then
_TrialBalanceOpenClose.BallanceHUF491 -= Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
'II. ------------------------------------------------------------------------------------------------------------------------------------
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.GLHeader.DateExecution.Date >= _DateFromCurrentYear.Date And
_glrows.GLHeader.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
Else
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.DateExecution.Date >= _DateFromCurrentYear.Date And
_glrows.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
End If
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
If item.AccountNumber IsNot Nothing Then
If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then
_TrialBalanceOpenClose.BallanceHUFOpen += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.GLHeader.DateExecution.Date >= _DateFromCurrentYear And
_glrows.GLHeader.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
Else
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.DateExecution.Date >= _DateFromCurrentYear And
_glrows.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
End If
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
If item.AccountNumber IsNot Nothing Then
If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then
_TrialBalanceOpenClose.BallanceHUFOpen -= Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
_TrialBalanceOpenClose.BallanceHUF491Open = _TrialBalanceOpenClose.BallanceHUF491 + _TrialBalanceOpenClose.BallanceHUFOpen
Next
'III. ------------------------------------------------------------------------------------------------------------------------------------
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.GLHeader.DateExecution.Date >= _DateFrom.Date And
_glrows.GLHeader.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
Else
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.DateExecution.Date >= _DateFrom.Date And
_glrows.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
End If
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
If item.AccountNumber IsNot Nothing Then
If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then
_TrialBalanceOpenClose.DebitAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.GLHeader.DateExecution.Date >= _DateFrom.Date And
_glrows.GLHeader.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
Else
query = From _glrows In _GLRows_xpquery
Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _
_glrows.CreditChartOfAccounts.AccountNumber <> "491" And _
_glrows.GLHeader.IsEditable = False And _
_glrows.DateExecution.Date >= _DateFrom.Date And
_glrows.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And
_glrows.GLHeader IsNot Nothing And _
_glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _
Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _
Select New With {Key .AccountNumber = AccountNumber, _
Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))}
End If
RaiseEvent InitWork(1, 1, query.Count)
For Each item In query
RaiseEvent DoWork()
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
If item.AccountNumber IsNot Nothing Then
If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then
_TrialBalanceOpenClose.CreditAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero)
End If
End If
Next
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
_TrialBalanceOpenClose.BallanceHUF = _TrialBalanceOpenClose.DebitAmountHUF - _TrialBalanceOpenClose.CreditAmountHUF
_TrialBalanceOpenClose.BallanceHUFClose = _TrialBalanceOpenClose.BallanceHUF491Open + _TrialBalanceOpenClose.BallanceHUF
Next
'IV. ------------------------------------------------------------------------------------------------------------------------------------
RaiseEvent InitWork(1, 1, _TrialBalanceHeader.TrialBalanceOpenClose.Count)
For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose
RaiseEvent DoWork()
Select Case _TrialBalanceOpenClose.AccountNumber
Case "0", "1", "2", "3", "4", "5", "8", "9"
_RowIndex_Sum += 1
_TrialBalanceSum = New TrialBalanceSum(_uow)
_TrialBalanceSum.RowIndex = _RowIndex_Sum
Select Case _TrialBalanceOpenClose.AccountNumber
Case "0", "1", "2", "3", "4"
_TrialBalanceSum.AccountSum = eAccountSum.e1_4
Case "5", "8", "9"
_TrialBalanceSum.AccountSum = eAccountSum.e5_9
End Select
_TrialBalanceSum.AccountNumber = _TrialBalanceOpenClose.AccountNumber
_TrialBalanceSum.BallanceHUF = _TrialBalanceOpenClose.BallanceHUF
_TrialBalanceSum.BallanceHUFClose = _TrialBalanceOpenClose.BallanceHUFClose
_TrialBalanceSum.BallanceHUFOpen = _TrialBalanceOpenClose.BallanceHUF491Open
_TrialBalanceSum.CreditAmountHUF = _TrialBalanceOpenClose.CreditAmountHUF
_TrialBalanceSum.CustomersForm = _TrialBalanceOpenClose.CustomersForm
_TrialBalanceSum.DebitAmountHUF = _TrialBalanceOpenClose.DebitAmountHUF
_TrialBalanceSum.ShortName = _TrialBalanceOpenClose.ShortName
_TrialBalanceSum.TrialBalanceHeader = _TrialBalanceHeader
End Select
Next
_uow.CommitTransaction()
RaiseEvent FinalWork
Dim _TRBO As New XPCollection(Of TrialBalanceOpenClose)(_uow, CriteriaOperator.Parse("BallanceHUF = 0 And BallanceHUF491 = 0 And BallanceHUF491Open = 0 And BallanceHUFClose = 0 And BallanceHUFOpen = 0 And CreditAmountHUF = 0 And DebitAmountHUF=0"))
_uow.Delete(_TRBO)
_uow.CommitChanges()
_TrialBalanceHeader.CreateGLRowsStatictics(_uow, _TrialBalanceHeader.DateFrom, _TrialBalanceHeader.DateTo, _TrialBalanceHeader.CustomersFrom, _TrialBalanceHeader.Oid)
End Sub
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompare.vb
+146
View File
@@ -0,0 +1,146 @@
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 VATCompare ' 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 _ShortName As String 'Megnevezés pld 2011 jaunári áfa
Private _ObjectCreated As Date
Private _UserCreated As User
Private _VATReportSource As VATReport
Private _VATReportDestination As VATReport
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
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<RuleRequiredField("VATCompare-ShortName-Save", DefaultContexts.Save)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
Property VATReportSource As VATReport
Get
Return _VATReportSource
End Get
Set(value As VATReport)
SetPropertyValue("VATReportSource", _VATReportSource, value)
End Set
End Property
Property VATReportDestination As VATReport
Get
Return _VATReportDestination
End Get
Set(value As VATReport)
SetPropertyValue("VATReportDestination", _VATReportDestination, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<Association("VATCompare-VATCompareDetail", GetType(VATCompareDetail)), VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property VATCompareDetail As XPCollection(Of VATCompareDetail)
Get
Return GetCollection(Of VATCompareDetail)("VATCompareDetail")
End Get
End Property
<DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")> _
ReadOnly Property VATReportGroup_Source As XPCollection(Of VATReportGroup)
Get
If Me.VATReportSource IsNot Nothing Then
Return Me.VATReportSource.VATReportGroup
Else
Return Nothing
End If
End Get
End Property
<DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")> _
ReadOnly Property VATReportGroup_Destination As XPCollection(Of VATReportGroup)
Get
If Me.VATReportDestination IsNot Nothing Then
Return Me.VATReportDestination.VATReportGroup
Else
Return Nothing
End If
End Get
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
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompareDetail.vb
+240
View File
@@ -0,0 +1,240 @@
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), DeferredDeletion(False)> _
Public Class VATCompareDetail ' 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 _VATCompare As VATCompare
Private _VAT As VAT
Private _PartnerType As ePartnerType
Private _DateVAT As Date
Private _DateExecution As Date
Private _DocumentNumber As String
Private _Customers As Customers
Private _Note As String
Private _PayMode As ePayMode
Private _AmountVATOut_Source As Double 'Értékesítést terhelõ ÁFA
Private _AmountVATIn_Source As Double 'Beszerzést terhelõ ÁFA
Private _AmountVATOutBase_Source As Double 'Értékesítést terhelõ ÁFA alap
Private _AmountVATInBase_Source As Double 'Beszerzést terhelõ ÁFA alap
Private _AmountVATOut_Destination As Double 'Értékesítést terhelõ ÁFA
Private _AmountVATIn_Destination As Double 'Beszerzést terhelõ ÁFA
Private _AmountVATOutBase_Destination As Double 'Értékesítést terhelõ ÁFA alap
Private _AmountVATInBase_Destination As Double 'Beszerzést terhelõ ÁFA alap
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
<Association("VATCompare-VATCompareDetail", GetType(VATCompare))> _
Property VATCompare As VATCompare
Get
Return _VATCompare
End Get
Set(value As VATCompare)
SetPropertyValue("VATCompare", _VATCompare, value)
End Set
End Property
Property VAT As VAT
Get
Return _VAT
End Get
Set(ByVal value As VAT)
SetPropertyValue("VAT", _VAT, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(ByVal value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property DateVAT As Date
Get
Return _DateVAT
End Get
Set(ByVal value As Date)
SetPropertyValue("DateVAT", _DateVAT, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(ByVal value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(ByVal value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
<Size(900)> _
Property Note As String
Get
Return _Note
End Get
Set(ByVal value As String)
SetPropertyValue("Note", _Note, 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 AmountVATOut_Source As Double
Get
Return _AmountVATOut_Source
End Get
Set(value As Double)
SetPropertyValue("AmountVATOut_Source", _AmountVATOut_Source, value)
End Set
End Property
Property AmountVATIn_Source As Double
Get
Return _AmountVATIn_Source
End Get
Set(value As Double)
SetPropertyValue("AmountVATIn_Source", _AmountVATIn_Source, value)
End Set
End Property
Property AmountVATOutBase_Source As Double
Get
Return _AmountVATOutBase_Source
End Get
Set(value As Double)
SetPropertyValue("AmountVATOutBase_Source", _AmountVATOutBase_Source, value)
End Set
End Property
Property AmountVATInBase_Source As Double
Get
Return _AmountVATInBase_Source
End Get
Set(value As Double)
SetPropertyValue("AmountVATInBase_Source", _AmountVATInBase_Source, value)
End Set
End Property
Property AmountVATOut_Destination As Double
Get
Return _AmountVATOut_Destination
End Get
Set(value As Double)
SetPropertyValue("AmountVATOut_Destination", _AmountVATOut_Destination, value)
End Set
End Property
Property AmountVATIn_Destination As Double
Get
Return _AmountVATIn_Destination
End Get
Set(value As Double)
SetPropertyValue("AmountVATIn_Destination", _AmountVATIn_Destination, value)
End Set
End Property
Property AmountVATOutBase_Destination As Double
Get
Return _AmountVATOutBase_Destination
End Get
Set(value As Double)
SetPropertyValue("AmountVATOutBase_Destination", _AmountVATOutBase_Destination, value)
End Set
End Property
Property AmountVATInBase_Destination As Double
Get
Return _AmountVATInBase_Destination
End Get
Set(value As Double)
SetPropertyValue("AmountVATInBase_Destination", _AmountVATInBase_Destination, value)
End Set
End Property
ReadOnly Property AmountVATOut_Difference As Double
Get
Return AmountVATOut_Destination - AmountVATOut_Source
End Get
End Property
ReadOnly Property AmountVATIn_Difference As Double
Get
Return AmountVATIn_Source - AmountVATIn_Destination
End Get
End Property
ReadOnly Property AmountVATOutBase_Difference As Double
Get
Return AmountVATOutBase_Destination - AmountVATOutBase_Source
End Get
End Property
ReadOnly Property AmountVATInBase_Difference As Double
Get
Return AmountVATInBase_Source - AmountVATInBase_Destination
End Get
End Property
ReadOnly Property SumTotal_Difference As Double
Get
Return Me.AmountVATOut_Difference - Me.AmountVATIn_Difference
End Get
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
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport.vb
+211
View File
@@ -0,0 +1,211 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem("FinancialTransactions")> _
<ImageName("BO_Report")> _
<DeferredDeletion(False)> _
<Appearance("Disable UserCreated,ObjectCreated-VATReport", AppearanceItemType:="ViewItem", Enabled:=False, TargetItems:="ObjectCreated,UserCreated", Criteria:="1=1")> _
<Appearance("Hide aVATClose when Closed", AppearanceItemType:="Action", TargetItems:="aVATClose", Criteria:="Closed = True", visibility:=Editors.ViewItemVisibility.Hide)> _
<Appearance("Hide aVATCloseBack when not Closed", AppearanceItemType:="Action", TargetItems:="aVATCloseBack", Criteria:="Closed != True", visibility:=Editors.ViewItemVisibility.Hide)> _
Public Class VATReport
Inherits BaseObject
Private _ShortName As String 'Megnevezés pld 2011 jaunári áfa
Private _DateFrom As Date 'Dátumtól
Private _DateTo As Date 'Dátumig
Private _DateVAT As Date 'ÁFA dátum, amikor a bevallás kell
Private _CustomersFrom As CustomersFrom ' Saját cég
Private _OnlyVAT As Boolean = True
Private _TotalAmountIn As Double ' Öszes beszerzést terhelő ÁFA
Private _TotalAmountOut As Double ' Összes értékesítést terhelő ÁFA
Private _DifferenceAmount As Double 'Értékesítést terhelő - Beszerzést terhelő
Private _ObjectCreated As Date
Private _UserCreated As User
Private _GLClosingTime As GLClosingTime
Private _Closed As Boolean = False
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
DifferenceAmount = TotalAmountOut - TotalAmountIn
End Sub
<RuleRequiredField("VATReport-ShortName", "aGenerateVATReport_Contexts")> _
<RuleRequiredField("VATReport-ShortName-Save", DefaultContexts.Save)> _
Property ShortName As String
Get
Return _ShortName
End Get
Set(ByVal value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<RuleRequiredField("VATReport-DateFrom", "aGenerateVATReport_Contexts")> _
<RuleRequiredField("VATReport-DateFrom-Save", DefaultContexts.Save)> _
Property DateFrom As Date
Get
Return _DateFrom
End Get
Set(ByVal value As Date)
SetPropertyValue("DateFrom", _DateFrom, value)
End Set
End Property
<RuleRequiredField("VATReport-DateTo", "aGenerateVATReport_Contexts")> _
<RuleRequiredField("VATReport-DateTo-Save", DefaultContexts.Save)> _
Property DateTo As Date
Get
Return _DateTo
End Get
Set(ByVal value As Date)
SetPropertyValue("DateTo", _DateTo, value)
End Set
End Property
<RuleRequiredField("VATReport-DateVAT", "aGenerateVATReport_Contexts")> _
<RuleRequiredField("VATReport-DateVAT-Save", DefaultContexts.Save)> _
Property DateVAT As Date
Get
Return _DateVAT
End Get
Set(ByVal value As Date)
SetPropertyValue("DateVAT", _DateVAT, value)
End Set
End Property
<RuleRequiredField("VATReport-CustomersFrom", DefaultContexts.Save)> _
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property OnlyVAT As Boolean
Get
Return _OnlyVAT
End Get
Set(ByVal value As Boolean)
SetPropertyValue("OnlyVAT", _OnlyVAT, value)
End Set
End Property
Property TotalAmountIn As Double
Get
Return _TotalAmountIn
End Get
Set(ByVal value As Double)
SetPropertyValue("TotalAmountIn", _TotalAmountIn, value)
End Set
End Property
Property TotalAmountOut As Double
Get
Return _TotalAmountOut
End Get
Set(ByVal value As Double)
SetPropertyValue("TotalAmountOut", _TotalAmountOut, value)
End Set
End Property
Property DifferenceAmount As Double
Get
Return _DifferenceAmount
End Get
Set(value As Double)
SetPropertyValue("DifferenceAmount", _DifferenceAmount, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<Browsable(False)> _
Property GLClosingTime As GLClosingTime
Get
Return _GLClosingTime
End Get
Set(value As GLClosingTime)
SetPropertyValue("GLClosingTime", _GLClosingTime, value)
End Set
End Property
Property Closed As Boolean
Get
Return _Closed
End Get
Set(value As Boolean)
SetPropertyValue("Closed", _Closed, value)
End Set
End Property
<Association("VATReport-VATReportGroup", GetType(VATReportGroup)), Aggregated(), VisibleInListView(False)> _
ReadOnly Property VATReportGroup As XPCollection(Of VATReportGroup)
Get
Return GetCollection(Of VATReportGroup)("VATReportGroup")
End Get
End Property
<Association("VATReport-VATReportDetail", GetType(VATReportDetail)), Aggregated(), VisibleInListView(False)> _
ReadOnly Property VATReportDetail As XPCollection(Of VATReportDetail)
Get
Return GetCollection(Of VATReportDetail)("VATReportDetail")
End Get
End Property
<Association("VATReport-VATReportGroupCustomers2M", GetType(VATReportGroupCustomers2M)), Aggregated(), VisibleInListView(False)> _
ReadOnly Property VATReportGroupCustomers2M As XPCollection(Of VATReportGroupCustomers2M)
Get
Return GetCollection(Of VATReportGroupCustomers2M)("VATReportGroupCustomers2M")
End Get
End Property
<Association("VATReport-VATReportNoPayDetail", GetType(VATReportNoPayDetail)), Aggregated(), VisibleInListView(False)> _
ReadOnly Property VATReportNoPayDetail As XPCollection(Of VATReportNoPayDetail)
Get
Return GetCollection(Of VATReportNoPayDetail)("VATReportNoPayDetail")
End Get
End Property
<Association("VATReport-VATReportFileAttachment", GetType(VATReportFileAttachment)), Aggregated(), VisibleInListView(False)> _
ReadOnly Property VATReportFileAttachment As XPCollection(Of VATReportFileAttachment)
Get
Return GetCollection(Of VATReportFileAttachment)("VATReportFileAttachment")
End Get
End Property
<Association("VATReport-VATReport07", GetType(VATReport07))> _
ReadOnly Property VATReport07 As XPCollection(Of VATReport07)
Get
Return GetCollection(Of VATReport07)("VATReport07")
End Get
End Property
<Association("VATReport-VATReport08", GetType(VATReport08))> _
ReadOnly Property VATReport08 As XPCollection(Of VATReport08)
Get
Return GetCollection(Of VATReport08)("VATReport08")
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport07.vb
+90
View File
@@ -0,0 +1,90 @@
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(), CreatableItem(False), NavigationItem(False), DeferredDeletion(False)> _
Public Class VATReport07
Inherits BaseObject
Private _VATReport As VATReport
Private _Customers As Customers
Private _DateExecution As Date
Private _CustomsTariffs As CustomsTariffs
Private _Weight As Double
Private _AmountVATOutBase As Double 'Értékesítést terhelõ ÁFA alap
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("VATReport-VATReport07", GetType(VATReport))> _
Property VATReport As VATReport
Get
Return _VATReport
End Get
Set(value As VATReport)
SetPropertyValue("VATReport", _VATReport, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property CustomsTariffs As CustomsTariffs
Get
Return _CustomsTariffs
End Get
Set(value As CustomsTariffs)
SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
End Set
End Property
Property Weight As Double
Get
Return _Weight
End Get
Set(value As Double)
SetPropertyValue("Weight", _Weight, value)
End Set
End Property
Property AmountVATOutBase As Double
Get
Return _AmountVATOutBase
End Get
Set(value As Double)
SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value)
End Set
End Property
ReadOnly Property AmountVATOutBaseThousand As Double
Get
Return Math.Round(AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport08.vb
+90
View File
@@ -0,0 +1,90 @@
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(), CreatableItem(False), NavigationItem(False), DeferredDeletion(False)> _
Public Class VATReport08
Inherits BaseObject
Private _VATReport As VATReport
Private _Customers As Customers
Private _DateExecution As Date
Private _CustomsTariffs As CustomsTariffs
Private _Weight As Double
Private _AmountVATInBase As Double 'Beszerzést terhelõ ÁFA alap
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("VATReport-VATReport08", GetType(VATReport))> _
Property VATReport As VATReport
Get
Return _VATReport
End Get
Set(value As VATReport)
SetPropertyValue("VATReport", _VATReport, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property CustomsTariffs As CustomsTariffs
Get
Return _CustomsTariffs
End Get
Set(value As CustomsTariffs)
SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
End Set
End Property
Property Weight As Double
Get
Return _Weight
End Get
Set(value As Double)
SetPropertyValue("Weight", _Weight, value)
End Set
End Property
Property AmountVATInBase As Double
Get
Return _AmountVATInBase
End Get
Set(value As Double)
SetPropertyValue("AmountVATInBase", _AmountVATInBase, value)
End Set
End Property
ReadOnly Property AmountVATInBaseThousand As Double
Get
Return Math.Round(AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)
End Get
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportDetail.vb
+206
View File
@@ -0,0 +1,206 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
Public Enum eVATReportDetailRowType
efromRegistry = 0
efromInvoice = 1
efromAccount = 2
efromCassa = 3
efromAccountDirect = 4
efromMixed = 5
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<ImageName("BO_Report")> _
<DeferredDeletion(False)> _
Public Class VATReportDetail
Inherits BaseObject
Private _VATReportDetailRowType As eVATReportDetailRowType
Private _VATReport As VATReport
Private _VAT As VAT
Private _PartnerType As ePartnerType
Private _DateVAT As Date
Private _DateExecution As Date
Private _DocumentNumber As String
Private _Customers As Customers
Private _Note As String
Private _PayMode As ePayMode
Private _RegistryHeader As RegistryHeader
Private _AmountVATOut As Double 'Értékesítést terhelő ÁFA
Private _AmountVATIn As Double 'Beszerzést terhelő ÁFA
Private _AmountVATOutBase As Double 'Értékesítést terhelő ÁFA alap
Private _AmountVATInBase As Double 'Beszerzést terhelő ÁFA alap
Private _AmountVATInBaseNoPay As Double = 0
Private _AmountVATInNoPay As Double = 0
Private _AmountVATOutBaseNoPay As Double = 0
Private _AmountVATOutNoPay As Double = 0
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property VATReportDetailRowType As eVATReportDetailRowType
Get
Return _VATReportDetailRowType
End Get
Set(value As eVATReportDetailRowType)
SetPropertyValue("VATReportDetailRowType", _VATReportDetailRowType, value)
End Set
End Property
<Association("VATReport-VATReportDetail", GetType(VATReport))> _
Property VATReport As VATReport
Get
Return _VATReport
End Get
Set(ByVal value As VATReport)
SetPropertyValue("VATReport", _VATReport, value)
End Set
End Property
Property VAT As VAT
Get
Return _VAT
End Get
Set(ByVal value As VAT)
SetPropertyValue("VAT", _VAT, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(ByVal value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property DateVAT As Date
Get
Return _DateVAT
End Get
Set(ByVal value As Date)
SetPropertyValue("DateVAT", _DateVAT, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(ByVal value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(ByVal value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
<Size(900)> _
Property Note As String
Get
Return _Note
End Get
Set(ByVal value As String)
SetPropertyValue("Note", _Note, 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 RegistryHeader As RegistryHeader
Get
Return _RegistryHeader
End Get
Set(ByVal value As RegistryHeader)
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
End Set
End Property
Property AmountVATOut As Double
Get
Return _AmountVATOut
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATOut", _AmountVATOut, value)
End Set
End Property
Property AmountVATIn As Double
Get
Return _AmountVATIn
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATIn", _AmountVATIn, value)
End Set
End Property
Property AmountVATOutBase As Double
Get
Return _AmountVATOutBase
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value)
End Set
End Property
Property AmountVATInBase As Double
Get
Return _AmountVATInBase
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATInBase", _AmountVATInBase, value)
End Set
End Property
Property AmountVATInBaseNoPay As Double
Get
Return _AmountVATInBaseNoPay
End Get
Set(value As Double)
SetPropertyValue("AmountVATInBaseNoPay", _AmountVATInBaseNoPay, value)
End Set
End Property
Property AmountVATInNoPay As Double
Get
Return _AmountVATInNoPay
End Get
Set(value As Double)
SetPropertyValue("AmountVATInNoPay", _AmountVATInNoPay, value)
End Set
End Property
Property AmountVATOutBaseNoPay As Double
Get
Return _AmountVATOutBaseNoPay
End Get
Set(value As Double)
SetPropertyValue("AmountVATOutBaseNoPay", _AmountVATOutBaseNoPay, value)
End Set
End Property
Property AmountVATOutNoPay As Double
Get
Return _AmountVATOutNoPay
End Get
Set(value As Double)
SetPropertyValue("AmountVATOutNoPay", _AmountVATOutNoPay, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportFileAttachements.vb
+49
View File
@@ -0,0 +1,49 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
Public Class VATReportFileAttachment
Inherits FileAttachmentBase
Private _FileType As String
Private _VATReport As VATReport
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
<Association("VATReport-VATReportFileAttachment", GetType(VATReport))> _
<Browsable(False)> _
Property VATReport As VATReport
Get
Return _VATReport
End Get
Set(value As VATReport)
SetPropertyValue("VATReport", _VATReport, value)
End Set
End Property
Property FileType As String
Get
Return _FileType
End Get
Set(value As String)
SetPropertyValue("FileType", _FileType, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroup.vb
+93
View File
@@ -0,0 +1,93 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<ImageName("BO_Report")> _
<DeferredDeletion(False)> _
Public Class VATReportGroup
Inherits BaseObject
Private _PartnerType As ePartnerType
Private _VATReport As VATReport
Private _VAT As VAT 'ÁFA kódja
Private _AmountVATOut As Double 'Értékesítést terhelő ÁFA
Private _AmountVATIn As Double 'Beszerzést terhelő ÁFA
Private _AmountVATOutBase As Double 'Értékesítést terhelő ÁFA alap
Private _AmountVATInBase As Double 'Beszerzést terhelő ÁFA alap
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("VATReport-VATReportGroup", GetType(VATReport))> _
Property VATReport As VATReport
Get
Return _VATReport
End Get
Set(ByVal value As VATReport)
SetPropertyValue("VATReport", _VATReport, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(ByVal value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property VAT As VAT
Get
Return _VAT
End Get
Set(ByVal value As VAT)
SetPropertyValue("VAT", _VAT, value)
End Set
End Property
Property AmountVATOut As Double
Get
Return _AmountVATOut
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATOut", _AmountVATOut, value)
End Set
End Property
Property AmountVATIn As Double
Get
Return _AmountVATIn
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATIn", _AmountVATIn, value)
End Set
End Property
Property AmountVATOutBase As Double
Get
Return _AmountVATOutBase
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value)
End Set
End Property
Property AmountVATInBase As Double
Get
Return _AmountVATInBase
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATInBase", _AmountVATInBase, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroupCustomers2M.vb
+143
View File
@@ -0,0 +1,143 @@
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 eVAT2MType
eDetail = 0
eCummulative = 1
End Enum
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
Public Class VATReportGroupCustomers2M
Inherits BaseObject
Private _VATReport As VATReport
Private _Customers As Customers
Private _DocumentNumber As String
Private _DateExecution As Date
Private _RegistryHeader As RegistryHeader
Private _InvoiceHeader As InvoiceHeader
Private _GLAccounts As GLAccounts
Private _PartnerType As ePartnerType
Private _AmountVATOut As Double 'Értékesítést terhelõ ÁFA
Private _AmountVATIn As Double 'Beszerzést terhelõ ÁFA
Private _AmountVATOutBase As Double 'Értékesítést terhelõ ÁFA alap
Private _AmountVATInBase As Double 'Beszerzést terhelõ ÁFA alap
Private _VAT2MType As eVAT2MType
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
<Association("VATReport-VATReportGroupCustomers2M", GetType(VATReport))> _
Property VATReport As VATReport
Get
Return _VATReport
End Get
Set(ByVal value As VATReport)
SetPropertyValue("VATReport", _VATReport, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property RegistryHeader As RegistryHeader
Get
Return _RegistryHeader
End Get
Set(value As RegistryHeader)
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
End Set
End Property
Property InvoiceHeader As InvoiceHeader
Get
Return _InvoiceHeader
End Get
Set(value As InvoiceHeader)
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
End Set
End Property
Property GLAccounts As GLAccounts
Get
Return _GLAccounts
End Get
Set(value As GLAccounts)
SetPropertyValue("GLAccounts", _GLAccounts, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property AmountVATOut As Double
Get
Return _AmountVATOut
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATOut", _AmountVATOut, value)
End Set
End Property
Property AmountVATIn As Double
Get
Return _AmountVATIn
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATIn", _AmountVATIn, value)
End Set
End Property
Property AmountVATOutBase As Double
Get
Return _AmountVATOutBase
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value)
End Set
End Property
Property AmountVATInBase As Double
Get
Return _AmountVATInBase
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATInBase", _AmountVATInBase, value)
End Set
End Property
Property VAT2MType As eVAT2MType
Get
Return _VAT2MType
End Get
Set(value As eVAT2MType)
SetPropertyValue("VAT2MType", _VAT2MType, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportNoPayDetail.vb
+139
View File
@@ -0,0 +1,139 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<ImageName("BO_Report")> _
<DeferredDeletion(False)> _
Public Class VATReportNoPayDetail
Inherits BaseObject
Private _VATReport As VATReport
Private _VAT As VAT
Private _PartnerType As ePartnerType
Private _DateVAT As Date
Private _DateExecution As Date
Private _DocumentNumber As String
Private _Customers As Customers
Private _Note As String
Private _PayMode As ePayMode
Private _RegistryHeader As RegistryHeader
Private _AmountVATIn As Double 'Beszerzést terhelő ÁFA
Private _AmountVATInBase As Double 'Beszerzést terhelő ÁFA alap
Private _AmountVATOut As Double 'Értékesítést terhelő ÁFA
Private _AmountVATOutBase As Double 'Értékesítést terhelő ÁFA alap
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Association("VATReport-VATReportNoPayDetail", GetType(VATReport))> _
Property VATReport As VATReport
Get
Return _VATReport
End Get
Set(ByVal value As VATReport)
SetPropertyValue("VATReport", _VATReport, value)
End Set
End Property
Property VAT As VAT
Get
Return _VAT
End Get
Set(ByVal value As VAT)
SetPropertyValue("VAT", _VAT, value)
End Set
End Property
Property PartnerType As ePartnerType
Get
Return _PartnerType
End Get
Set(ByVal value As ePartnerType)
SetPropertyValue("PartnerType", _PartnerType, value)
End Set
End Property
Property DateVAT As Date
Get
Return _DateVAT
End Get
Set(ByVal value As Date)
SetPropertyValue("DateVAT", _DateVAT, value)
End Set
End Property
Property DateExecution As Date
Get
Return _DateExecution
End Get
Set(ByVal value As Date)
SetPropertyValue("DateExecution", _DateExecution, value)
End Set
End Property
Property DocumentNumber As String
Get
Return _DocumentNumber
End Get
Set(ByVal value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
<Size(900)> _
Property Note As String
Get
Return _Note
End Get
Set(ByVal value As String)
SetPropertyValue("Note", _Note, 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 RegistryHeader As RegistryHeader
Get
Return _RegistryHeader
End Get
Set(ByVal value As RegistryHeader)
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
End Set
End Property
Property AmountVATIn As Double
Get
Return _AmountVATIn
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATIn", _AmountVATIn, value)
End Set
End Property
Property AmountVATInBase As Double
Get
Return _AmountVATInBase
End Get
Set(ByVal value As Double)
SetPropertyValue("AmountVATInBase", _AmountVATInBase, value)
End Set
End Property
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb
Generated
+164
View File
@@ -0,0 +1,164 @@
Partial Class VATReportVC
<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.aGenerateVATReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistry_VAT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachments_VAT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistry_VATNoPay = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aVATReportPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachments_VATNoPay = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aVATClosePreviewPDF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aVATCloseBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aVATClose = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGenerateVATCompare = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttachments_VATCompareDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aGenerateVATReport
'
Me.aGenerateVATReport.Caption = "Generate VAT report"
Me.aGenerateVATReport.ConfirmationMessage = "Do you want to execute command ?"
Me.aGenerateVATReport.Id = "aGenerateVATReport"
Me.aGenerateVATReport.ImageName = "stopwatch_run"
Me.aGenerateVATReport.TargetViewId = "VATReport_DetailView"
Me.aGenerateVATReport.ToolTip = Nothing
'
'aViewRegistry_VAT
'
Me.aViewRegistry_VAT.Caption = "View registry"
Me.aViewRegistry_VAT.ConfirmationMessage = Nothing
Me.aViewRegistry_VAT.Id = "aViewRegistry_VAT"
Me.aViewRegistry_VAT.ImageName = "document_pinned"
Me.aViewRegistry_VAT.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistry_VAT.TargetViewId = "VATReport_VATReportDetail_ListView"
Me.aViewRegistry_VAT.ToolTip = Nothing
'
'aViewAttachments_VAT
'
Me.aViewAttachments_VAT.Caption = "View attachments"
Me.aViewAttachments_VAT.ConfirmationMessage = Nothing
Me.aViewAttachments_VAT.Id = "aViewAttachments_VAT"
Me.aViewAttachments_VAT.ImageName = "printer_view"
Me.aViewAttachments_VAT.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachments_VAT.TargetViewId = "VATReport_VATReportDetail_ListView"
Me.aViewAttachments_VAT.ToolTip = Nothing
'
'aViewRegistry_VATNoPay
'
Me.aViewRegistry_VATNoPay.Caption = "View registry"
Me.aViewRegistry_VATNoPay.ConfirmationMessage = Nothing
Me.aViewRegistry_VATNoPay.Id = "aViewRegistry_VATNoPay"
Me.aViewRegistry_VATNoPay.ImageName = "document_pinned"
Me.aViewRegistry_VATNoPay.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistry_VATNoPay.TargetViewId = "VATReport_VATReportNoPayDetail_ListView"
Me.aViewRegistry_VATNoPay.ToolTip = Nothing
'
'aVATReportPrint
'
Me.aVATReportPrint.Caption = "Print document"
Me.aVATReportPrint.Category = "View"
Me.aVATReportPrint.ConfirmationMessage = Nothing
Me.aVATReportPrint.Id = "aVATReportPrint"
Me.aVATReportPrint.ImageName = "Action_Printing_Print"
Me.aVATReportPrint.TargetViewId = "VATReport_DetailView"
Me.aVATReportPrint.ToolTip = Nothing
'
'aViewAttachments_VATNoPay
'
Me.aViewAttachments_VATNoPay.Caption = "View attachments"
Me.aViewAttachments_VATNoPay.ConfirmationMessage = Nothing
Me.aViewAttachments_VATNoPay.Id = "aViewAttachments_VATNoPay"
Me.aViewAttachments_VATNoPay.ImageName = "printer_view"
Me.aViewAttachments_VATNoPay.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachments_VATNoPay.TargetViewId = "VATReport_VATReportNoPayDetail_ListView"
Me.aViewAttachments_VATNoPay.ToolTip = Nothing
'
'aVATClosePreviewPDF
'
Me.aVATClosePreviewPDF.Caption = "Preview PDF"
Me.aVATClosePreviewPDF.ConfirmationMessage = Nothing
Me.aVATClosePreviewPDF.Id = "aVATClosePreviewPDF"
Me.aVATClosePreviewPDF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aVATClosePreviewPDF.TargetObjectsCriteria = "isnull(GLClosingTime)=False"
Me.aVATClosePreviewPDF.TargetObjectType = GetType(SISBusiness.[Module].VATReport)
Me.aVATClosePreviewPDF.ToolTip = Nothing
'
'aVATCloseBack
'
Me.aVATCloseBack.Caption = "VAT Close Back"
Me.aVATCloseBack.ConfirmationMessage = "Do you want to execute command ?"
Me.aVATCloseBack.Id = "aVATCloseBack"
Me.aVATCloseBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aVATCloseBack.TargetObjectType = GetType(SISBusiness.[Module].VATReport)
Me.aVATCloseBack.ToolTip = Nothing
'
'aVATClose
'
Me.aVATClose.Caption = "VAT Close"
Me.aVATClose.ConfirmationMessage = "Do you want to execute command ?"
Me.aVATClose.Id = "aVATClose"
Me.aVATClose.TargetObjectType = GetType(SISBusiness.[Module].VATReport)
Me.aVATClose.ToolTip = Nothing
'
'aGenerateVATCompare
'
Me.aGenerateVATCompare.Caption = "aGenerate VATCompare"
Me.aGenerateVATCompare.ConfirmationMessage = Nothing
Me.aGenerateVATCompare.Id = "aGenerateVATCompare"
Me.aGenerateVATCompare.TargetObjectType = GetType(SISBusiness.[Module].VATCompare)
Me.aGenerateVATCompare.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aGenerateVATCompare.ToolTip = Nothing
Me.aGenerateVATCompare.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
'
'aViewAttachments_VATCompareDetail
'
Me.aViewAttachments_VATCompareDetail.Caption = "View attachments"
Me.aViewAttachments_VATCompareDetail.ConfirmationMessage = Nothing
Me.aViewAttachments_VATCompareDetail.Id = "aViewAttachments_VATCompareDetail"
Me.aViewAttachments_VATCompareDetail.ImageName = "printer_view"
Me.aViewAttachments_VATCompareDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttachments_VATCompareDetail.TargetObjectType = GetType(SISBusiness.[Module].VATCompareDetail)
Me.aViewAttachments_VATCompareDetail.TargetViewId = ""
Me.aViewAttachments_VATCompareDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aViewAttachments_VATCompareDetail.ToolTip = Nothing
Me.aViewAttachments_VATCompareDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
End Sub
Friend WithEvents aGenerateVATReport As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistry_VAT As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachments_VAT As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistry_VATNoPay As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aVATReportPrint As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachments_VATNoPay As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aVATClosePreviewPDF As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aVATCloseBack As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aVATClose As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGenerateVATCompare As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttachments_VATCompareDetail As DevExpress.ExpressApp.Actions.SimpleAction
End Class
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx
+156
View File
@@ -0,0 +1,156 @@
<?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="aGenerateVATReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aViewRegistry_VAT.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 368</value>
</metadata>
<metadata name="aViewAttachments_VAT.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 329</value>
</metadata>
<metadata name="aViewRegistry_VATNoPay.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
</metadata>
<metadata name="aVATReportPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
</metadata>
<metadata name="aViewAttachments_VATNoPay.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="aVATClosePreviewPDF.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="aVATCloseBack.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aVATClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aGenerateVATCompare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>152, 56</value>
</metadata>
<metadata name="aViewAttachments_VATCompareDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>172, 368</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
+1197
View File
File diff suppressed because it is too large Load Diff