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

First create solution

Browse Source
This commit is contained in:
ivanszabo
2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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
Nuvolar.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>
Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
+893
View File
@@ -0,0 +1,893 @@
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 = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
'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 = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
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
Nuvolar.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)>
<ImmediatePostData(True), 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
Nuvolar.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
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
Property Controlling As Controlling
Get
Return _Controlling
End Get
Set(value As Controlling)
SetPropertyValue("controlling", _Controlling, value)
End Set
End Property
Property 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
Nuvolar.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