First create solution
This commit is contained in:
+49
@@ -0,0 +1,49 @@
|
||||
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.aViewPivotDetailCashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aViewPivotDetailCashflow
|
||||
'
|
||||
Me.aViewPivotDetailCashflow.Caption = "aView Pivot Detail Cashflow"
|
||||
Me.aViewPivotDetailCashflow.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetailCashflow.Id = "aViewPivotDetailCashflow"
|
||||
Me.aViewPivotDetailCashflow.ImageName = Nothing
|
||||
Me.aViewPivotDetailCashflow.Shortcut = Nothing
|
||||
Me.aViewPivotDetailCashflow.Tag = Nothing
|
||||
Me.aViewPivotDetailCashflow.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetailCashflow.TargetObjectType = GetType(Nuvolar.[Module].GLReportCashflowRows)
|
||||
Me.aViewPivotDetailCashflow.TargetViewId = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot"
|
||||
Me.aViewPivotDetailCashflow.ToolTip = Nothing
|
||||
Me.aViewPivotDetailCashflow.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aViewPivotDetailCashflow As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aViewPivotDetailCashflow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+117
@@ -0,0 +1,117 @@
|
||||
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.PivotGrid.Win
|
||||
Imports DevExpress.XtraPivotGrid
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class GLReportCashflowVC
|
||||
Inherits Nuvolar.Module.GLReportCashflowVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _PivotGridListEditor As PivotGridListEditor
|
||||
Private _PivotGrdidControl As PivotGridControl
|
||||
Private _Criteria As String = ""
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then
|
||||
_PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor)
|
||||
|
||||
If _PivotGridListEditor IsNot Nothing Then
|
||||
_PivotGrdidControl = _PivotGridListEditor.PivotGridControl
|
||||
AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPivotDetailCashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetailCashflow.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportCashflowRows))
|
||||
Dim _GLReportCashflowHeader As GLReportCashflowHeader = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReportCashflowHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReportCashflowHeader)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReportCashflowHeader = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportCashflowRows).GLReportCashflowHeader
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReportCashflowHeader.Oid=?", _GLReportCashflowHeader.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportCashflowRows_ListView_PivotDetail", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs)
|
||||
Dim _RowPivotGridField As PivotGridField
|
||||
Dim _ColumnPivotGridField As PivotGridField
|
||||
'_PivotGrdidControl.CreateDrillDownDataSource(e.ColumnIndex, e.RowIndex)
|
||||
|
||||
Dim s As String
|
||||
If e.RowValueType = PivotGridValueType.Value Then
|
||||
If e.ColumnValueType = PivotGridValueType.Value Then
|
||||
_Criteria = ""
|
||||
For Each _RowPivotGridField In e.GetRowFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _ColumnPivotGridField In e.GetColumnFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+241
@@ -0,0 +1,241 @@
|
||||
Partial Class GLReportRowsVC
|
||||
|
||||
<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.aViewPivotDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttacments_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLReportRows_ChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGLReportRows_DivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aViewPivotDetail_2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPCID_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPivotDetail_3 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttacments_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPCID_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDivide_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aViewPivotDetail
|
||||
'
|
||||
Me.aViewPivotDetail.Caption = "aView Pivot Detail"
|
||||
Me.aViewPivotDetail.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetail.Id = "aViewPivotDetail"
|
||||
Me.aViewPivotDetail.ImageName = Nothing
|
||||
Me.aViewPivotDetail.Shortcut = Nothing
|
||||
Me.aViewPivotDetail.Tag = Nothing
|
||||
Me.aViewPivotDetail.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetail.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewPivotDetail.TargetViewId = "GLReport_GLReportRows_ListView_Pivot"
|
||||
Me.aViewPivotDetail.ToolTip = Nothing
|
||||
Me.aViewPivotDetail.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry_GLReportRows
|
||||
'
|
||||
Me.aViewRegistry_GLReportRows.Caption = "View registry"
|
||||
Me.aViewRegistry_GLReportRows.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry_GLReportRows.Id = "aViewRegistry_GLReportRows"
|
||||
Me.aViewRegistry_GLReportRows.ImageName = "document_pinned"
|
||||
Me.aViewRegistry_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry_GLReportRows.Shortcut = Nothing
|
||||
Me.aViewRegistry_GLReportRows.Tag = Nothing
|
||||
Me.aViewRegistry_GLReportRows.TargetObjectsCriteria = Nothing
|
||||
Me.aViewRegistry_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewRegistry_GLReportRows.TargetViewId = ""
|
||||
Me.aViewRegistry_GLReportRows.ToolTip = Nothing
|
||||
Me.aViewRegistry_GLReportRows.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttacments_GLReportRows
|
||||
'
|
||||
Me.aViewAttacments_GLReportRows.Caption = "View registry"
|
||||
Me.aViewAttacments_GLReportRows.ConfirmationMessage = Nothing
|
||||
Me.aViewAttacments_GLReportRows.Id = "aViewAttacments_GLReportRows"
|
||||
Me.aViewAttacments_GLReportRows.ImageName = "document_pinned"
|
||||
Me.aViewAttacments_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttacments_GLReportRows.Shortcut = Nothing
|
||||
Me.aViewAttacments_GLReportRows.Tag = Nothing
|
||||
Me.aViewAttacments_GLReportRows.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttacments_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewAttacments_GLReportRows.TargetViewId = ""
|
||||
Me.aViewAttacments_GLReportRows.ToolTip = Nothing
|
||||
Me.aViewAttacments_GLReportRows.TypeOfView = Nothing
|
||||
'
|
||||
'aGLReportRows_ChangeParam
|
||||
'
|
||||
Me.aGLReportRows_ChangeParam.AcceptButtonCaption = Nothing
|
||||
Me.aGLReportRows_ChangeParam.CancelButtonCaption = Nothing
|
||||
Me.aGLReportRows_ChangeParam.Caption = "Change parameters"
|
||||
Me.aGLReportRows_ChangeParam.ConfirmationMessage = Nothing
|
||||
Me.aGLReportRows_ChangeParam.Id = "aGLReportRows_ChangeParam"
|
||||
Me.aGLReportRows_ChangeParam.ImageName = "index_preferences"
|
||||
Me.aGLReportRows_ChangeParam.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGLReportRows_ChangeParam.Shortcut = Nothing
|
||||
Me.aGLReportRows_ChangeParam.Tag = Nothing
|
||||
Me.aGLReportRows_ChangeParam.TargetObjectsCriteria = Nothing
|
||||
Me.aGLReportRows_ChangeParam.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aGLReportRows_ChangeParam.TargetViewId = ""
|
||||
Me.aGLReportRows_ChangeParam.ToolTip = Nothing
|
||||
Me.aGLReportRows_ChangeParam.TypeOfView = Nothing
|
||||
'
|
||||
'aGLReportRows_DivideRows
|
||||
'
|
||||
Me.aGLReportRows_DivideRows.AcceptButtonCaption = Nothing
|
||||
Me.aGLReportRows_DivideRows.CancelButtonCaption = Nothing
|
||||
Me.aGLReportRows_DivideRows.Caption = "Divide rows"
|
||||
Me.aGLReportRows_DivideRows.Category = "Edit"
|
||||
Me.aGLReportRows_DivideRows.ConfirmationMessage = Nothing
|
||||
Me.aGLReportRows_DivideRows.Id = "aGLReportRows_DivideRows"
|
||||
Me.aGLReportRows_DivideRows.ImageName = "row_add_after"
|
||||
Me.aGLReportRows_DivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLReportRows_DivideRows.Shortcut = Nothing
|
||||
Me.aGLReportRows_DivideRows.Tag = Nothing
|
||||
Me.aGLReportRows_DivideRows.TargetObjectsCriteria = Nothing
|
||||
Me.aGLReportRows_DivideRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aGLReportRows_DivideRows.TargetViewId = ""
|
||||
Me.aGLReportRows_DivideRows.ToolTip = Nothing
|
||||
Me.aGLReportRows_DivideRows.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPivotDetail_2
|
||||
'
|
||||
Me.aViewPivotDetail_2.Caption = "aViewPivotDetail_2"
|
||||
Me.aViewPivotDetail_2.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetail_2.Id = "aViewPivotDetail_2"
|
||||
Me.aViewPivotDetail_2.ImageName = Nothing
|
||||
Me.aViewPivotDetail_2.Shortcut = Nothing
|
||||
Me.aViewPivotDetail_2.Tag = Nothing
|
||||
Me.aViewPivotDetail_2.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetail_2.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewPivotDetail_2.TargetViewId = "GLReport_GLReportRows_ListView_Pivot_2"
|
||||
Me.aViewPivotDetail_2.ToolTip = Nothing
|
||||
Me.aViewPivotDetail_2.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPCID_GLReportRows
|
||||
'
|
||||
Me.aViewPCID_GLReportRows.Caption = "aViewPCIDGroup"
|
||||
Me.aViewPCID_GLReportRows.ConfirmationMessage = Nothing
|
||||
Me.aViewPCID_GLReportRows.Id = "aViewPCID_GLReportRows"
|
||||
Me.aViewPCID_GLReportRows.ImageName = Nothing
|
||||
Me.aViewPCID_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPCID_GLReportRows.Shortcut = Nothing
|
||||
Me.aViewPCID_GLReportRows.Tag = Nothing
|
||||
Me.aViewPCID_GLReportRows.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPCID_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewPCID_GLReportRows.TargetViewId = ""
|
||||
Me.aViewPCID_GLReportRows.ToolTip = Nothing
|
||||
Me.aViewPCID_GLReportRows.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPivotDetail_3
|
||||
'
|
||||
Me.aViewPivotDetail_3.Caption = "aViewPivotDetail_3"
|
||||
Me.aViewPivotDetail_3.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetail_3.Id = "aViewPivotDetail_3"
|
||||
Me.aViewPivotDetail_3.ImageName = Nothing
|
||||
Me.aViewPivotDetail_3.Shortcut = Nothing
|
||||
Me.aViewPivotDetail_3.Tag = Nothing
|
||||
Me.aViewPivotDetail_3.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetail_3.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewPivotDetail_3.TargetViewId = "GLReport_GLReportRowsCostHolder_ListView_PivotGrid"
|
||||
Me.aViewPivotDetail_3.ToolTip = Nothing
|
||||
Me.aViewPivotDetail_3.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Caption = "View registry"
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Id = "aViewRegistry_GLReportRowsCostHolder"
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.ImageName = "document_pinned"
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TargetViewId = ""
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttacments_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Caption = "View atachments"
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Id = "aViewAttacments_GLReportRowsCostHolder"
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.ImageName = "document_pinned"
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TargetViewId = ""
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPCID_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Caption = "aViewPCIDGroup"
|
||||
Me.aViewPCID_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Id = "aViewPCID_GLReportRowsCostHolder"
|
||||
Me.aViewPCID_GLReportRowsCostHolder.ImageName = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TargetViewId = ""
|
||||
Me.aViewPCID_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
'
|
||||
'aDivide_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aDivide_GLReportRowsCostHolder.AcceptButtonCaption = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.CancelButtonCaption = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.Caption = "aDivide_GLReportRowsCostHolder"
|
||||
Me.aDivide_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.Id = "aDivide_GLReportRowsCostHolder"
|
||||
Me.aDivide_GLReportRowsCostHolder.ImageName = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDivide_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aDivide_GLReportRowsCostHolder.TargetViewId = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aViewPivotDetail As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttacments_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLReportRows_ChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGLReportRows_DivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aViewPivotDetail_2 As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPCID_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPivotDetail_3 As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttacments_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPCID_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDivide_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+159
@@ -0,0 +1,159 @@
|
||||
<?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="aViewPivotDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry_GLReportRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 128</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttacments_GLReportRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 165</value>
|
||||
</metadata>
|
||||
<metadata name="aGLReportRows_ChangeParam.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 239</value>
|
||||
</metadata>
|
||||
<metadata name="aGLReportRows_DivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 350</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPivotDetail_2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 387</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPCID_GLReportRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 424</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPivotDetail_3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 461</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 498</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttacments_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 202</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPCID_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 276</value>
|
||||
</metadata>
|
||||
<metadata name="aDivide_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 313</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+552
@@ -0,0 +1,552 @@
|
||||
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.XtraPivotGrid
|
||||
Imports DevExpress.ExpressApp.PivotGrid.Win
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports Nuvolar.Module
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports System.IO
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.ViewVariantsModule
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.XtraGrid
|
||||
|
||||
Public Class GLReportRowsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Private _PivotGridListEditor As PivotGridListEditor
|
||||
Private _PivotGrdidControl As PivotGridControl
|
||||
Private _GridListEditor As GridListEditor
|
||||
Private _GridControl As GridControl
|
||||
Private _Criteria As String = ""
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _MasterKey As Guid
|
||||
Private _VariantSelectedItemID As String = ""
|
||||
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 Like "GLReport_DetailView" Then
|
||||
Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
|
||||
If _GLReport IsNot Nothing Then
|
||||
_MasterKey = _GLReport.Oid
|
||||
End If
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Save_Executing
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Save_Executing
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Save_Executing
|
||||
|
||||
AddHandler View.ControlsCreated, AddressOf GLReport_DetailView_ControlCreated
|
||||
End If
|
||||
If View.Id Like "GLReport_GLReportRows*" Then
|
||||
AddHandler View.ControlsCreated, AddressOf ListView_ControlsCreated
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
|
||||
End Sub
|
||||
Private Sub GLReport_DetailView_ControlCreated(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If _PivotGrdidControl IsNot Nothing Then
|
||||
RemoveHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ListView_ControlsCreated(sender As Object, e As EventArgs)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource)
|
||||
If _PropertyCollectionSource IsNot Nothing Then
|
||||
_MasterKey = _PropertyCollectionSource.MasterObject.oid
|
||||
End If
|
||||
|
||||
_PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor)
|
||||
|
||||
If _PivotGridListEditor IsNot Nothing Then
|
||||
_PivotGrdidControl = _PivotGridListEditor.PivotGridControl
|
||||
AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPivotDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows))
|
||||
Dim _GLReport As GLReport = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aViewPivotDetail_2_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_2.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows))
|
||||
Dim _GLReport As GLReport = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLReport Is Nothing Then Exit Sub
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail_2", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs)
|
||||
Dim _RowPivotGridField As PivotGridField
|
||||
Dim _ColumnPivotGridField As PivotGridField
|
||||
Dim s As String
|
||||
If e.RowValueType = PivotGridValueType.Value Then
|
||||
If e.ColumnValueType = PivotGridValueType.Value Then
|
||||
_Criteria = ""
|
||||
For Each _RowPivotGridField In e.GetRowFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _ColumnPivotGridField In e.GetColumnFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
ElseIf e.ColumnValueType = PivotGridValueType.GrandTotal Then
|
||||
_Criteria = ""
|
||||
For Each _RowPivotGridField In e.GetRowFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _ColumnPivotGridField In e.GetColumnFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewRegistry_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRows.Execute
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRows.ConnectInfo
|
||||
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
|
||||
End Sub
|
||||
Private Sub aViewAttacments_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRows.Execute
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRows.ConnectInfo
|
||||
|
||||
Dim _GLMixed As GLMixed = Nothing
|
||||
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
_GLMixed = TryCast(_GLReportRows.GLRows.GLHeader, GLMixed)
|
||||
End If
|
||||
|
||||
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed)
|
||||
End Sub
|
||||
|
||||
Private Sub aGLReportRows_ChangeParam_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_ChangeParam.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)()
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows IsNot Nothing Then
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLReportRows.GLRows.GLHeader.DateExecution.Year))
|
||||
Else
|
||||
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year))
|
||||
End If
|
||||
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 aGLReportRows_ChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_ChangeParam.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
|
||||
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 _InvoiceRows As InvoiceRows
|
||||
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
|
||||
Dim _GLReportRows As GLReportRows
|
||||
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
|
||||
|
||||
_WaitFormClass.Initwork(1, 1, View.SelectedObjects.Count)
|
||||
For Each _GLReportRows In View.SelectedObjects
|
||||
I += 1
|
||||
_WaitFormClass.DoWork()
|
||||
_GLRows = _GLReportRows.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
|
||||
If _GLRowsCheck.IsDateExecution = True Then _GLRows.DateExecution = _GLRowsCheck.DateExecution
|
||||
_GLRows.Save()
|
||||
|
||||
_GLReportRows.Controlling = _GLRows.Controlling
|
||||
_GLReportRows.JobNumberObjects = _GLRows.JobNumberObjects
|
||||
_GLReportRows.CostHolder = _GLRows.CostHolder
|
||||
_GLReportRows.CostPlace = _GLRows.CostPlace
|
||||
_GLReportRows.UniqueObjects = _GLRows.UniqueObjects
|
||||
_GLReportRows.Save()
|
||||
End If
|
||||
_InvoiceRows = _GLReportRows.InvoiceRows
|
||||
If _InvoiceRows IsNot Nothing Then
|
||||
If _Controlling IsNot Nothing Then _InvoiceRows.Controlling = _Controlling
|
||||
If _JobNumberObjects IsNot Nothing Then _InvoiceRows.JobNumberObjects = _JobNumberObjects
|
||||
If _CostHolder IsNot Nothing Then _InvoiceRows.CostHolder = _CostHolder
|
||||
If _CostPlace IsNot Nothing Then _InvoiceRows.CostPlace = _CostPlace
|
||||
If _UniqueObjects IsNot Nothing Then _InvoiceRows.UniqueObjects = _UniqueObjects
|
||||
If _GLRowsCheck.IsDateExecution = True Then _InvoiceRows.DateExecution = _GLRowsCheck.DateExecution
|
||||
_InvoiceRows.Save()
|
||||
|
||||
_GLReportRows.Controlling = _InvoiceRows.Controlling
|
||||
_GLReportRows.JobNumberObjects = _InvoiceRows.JobNumberObjects
|
||||
_GLReportRows.CostHolder = _InvoiceRows.CostHolder
|
||||
_GLReportRows.CostPlace = _InvoiceRows.CostPlace
|
||||
_GLReportRows.UniqueObjects = _InvoiceRows.UniqueObjects
|
||||
_GLReportRows.Save()
|
||||
End If
|
||||
_RegistryRowsFinancialControlling = _GLReportRows.RegistryRowsFinancialControlling
|
||||
If _RegistryRowsFinancialControlling IsNot Nothing Then
|
||||
If _Controlling IsNot Nothing Then _RegistryRowsFinancialControlling.Controlling = _Controlling
|
||||
If _JobNumberObjects IsNot Nothing Then _RegistryRowsFinancialControlling.JobNumberObjects = _JobNumberObjects
|
||||
If _CostHolder IsNot Nothing Then _RegistryRowsFinancialControlling.CostHolder = _CostHolder
|
||||
If _CostPlace IsNot Nothing Then _RegistryRowsFinancialControlling.CostPlace = _CostPlace
|
||||
If _UniqueObjects IsNot Nothing Then _RegistryRowsFinancialControlling.UniqueObjects = _UniqueObjects
|
||||
If _GLRowsCheck.IsDateExecution = True Then _RegistryRowsFinancialControlling.DateExecution = _GLRowsCheck.DateExecution
|
||||
|
||||
_RegistryRowsFinancialControlling.Save()
|
||||
|
||||
_GLReportRows.Controlling = _RegistryRowsFinancialControlling.Controlling
|
||||
_GLReportRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects
|
||||
_GLReportRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder
|
||||
_GLReportRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace
|
||||
_GLReportRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects
|
||||
_GLReportRows.Save()
|
||||
End If
|
||||
|
||||
If I Mod 100 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_Waitformclass.FinalWork()
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub aGLReportRows_DivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_DivideRows.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows Is Nothing Then Exit Sub
|
||||
|
||||
Dim _GLRows As GLRows = _GLReportRows.GLRows
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer)
|
||||
_GLRowsDivideH.row_PartnerType = _GLRows.PartnerType
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH)
|
||||
Else
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_PartnerType = ePartnerType.eNotSet
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLReportRows_DivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_DivideRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows Is Nothing Then Exit Sub
|
||||
|
||||
Dim _GLRows As GLRows = _GLReportRows.GLRows
|
||||
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
|
||||
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPCID_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRows.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows IsNot Nothing Then
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLRows.GLHeader.CustomersFrom, _
|
||||
_GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.InvoiceHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.InvoiceHeader.CustomersFrom, _
|
||||
_GLReportRows.Customers, 0, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.RegistryHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.RegistryHeader.CustomersFrom, _
|
||||
_GLReportRows.Customers, 1, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPivotDetail_3_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_3.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRowsCostHolder))
|
||||
Dim _GLReport As GLReport = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRowsCostHolder).GLReport
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLReport Is Nothing Then Exit Sub
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRowsCostHolder_ListView_PivotDetail", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewRegistry_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRowsCostHolder.Execute
|
||||
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo
|
||||
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
|
||||
End Sub
|
||||
Private Sub aViewAttacments_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRowsCostHolder.Execute
|
||||
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo
|
||||
Dim _GLMixed As GLMixed = Nothing
|
||||
|
||||
If _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then
|
||||
_GLMixed = TryCast(_GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader, GLMixed)
|
||||
End If
|
||||
|
||||
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed)
|
||||
End Sub
|
||||
Private Sub aViewPCID_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRowsCostHolder.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder).GLReportRows
|
||||
|
||||
If _GLReportRows IsNot Nothing Then
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
|
||||
_GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.InvoiceHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
|
||||
_GLReportRows.Customers, 0, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.RegistryHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
|
||||
_GLReportRows.Customers, 1, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aDivide_GLReportRowsCostHolder_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDivide_GLReportRowsCostHolder.CustomizePopupWindowParams
|
||||
'// Sorbontás vezetői ellenőrzésen !
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivide As GLRowsDivide = _onew.CreateObject(Of GLRowsDivide)()
|
||||
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
|
||||
|
||||
If _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling IsNot Nothing Then
|
||||
_GLRowsDivide.AmountHUF = _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling.Amount
|
||||
ElseIf _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then
|
||||
Select Case _GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader.GLDocumentType
|
||||
Case eGLDocumentType.eGLAccount
|
||||
Case eGLDocumentType.eGLBank, eGLDocumentType.eGLCassa, eGLDocumentType.eGLCompensation, eGLDocumentType.eGLMixed
|
||||
End Select
|
||||
End If
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivide_DetailView", False, _GLRowsDivide)
|
||||
End Sub
|
||||
Private Sub aDivide_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDivide_GLReportRowsCostHolder.Execute
|
||||
'// Sorbontás vezetői ellenőrzéshez
|
||||
End Sub
|
||||
|
||||
Private Sub Save_Executing(sender As Object, e As CancelEventArgs)
|
||||
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
If View.Id Like "GLReport_DetailView" Then
|
||||
Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
|
||||
If _GLReport IsNot Nothing Then
|
||||
|
||||
Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("GLReportRows")
|
||||
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
_GLReport.VariantSelectedItemID = _ListPropertyEditor.ListView.Id
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
+31
@@ -0,0 +1,31 @@
|
||||
Partial Class GLReportRowsWC
|
||||
<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
|
||||
+65
@@ -0,0 +1,65 @@
|
||||
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.ExpressApp.ViewVariantsModule
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppWindowControllertopic.
|
||||
Partial Public Class GLReportRowsWC
|
||||
Inherits WindowController
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
' Target required Windows (via the TargetXXX properties) and create their Actions.
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
' Perform various tasks depending on the target Window.
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
' Unsubscribe from previously subscribed events and release other references and resources.
|
||||
MyBase.OnDeactivated()
|
||||
End Sub
|
||||
Protected Overrides Sub OnFrameAssigned()
|
||||
MyBase.OnFrameAssigned()
|
||||
Dim controller As ChangeVariantController = Frame.GetController(Of ChangeVariantController)()
|
||||
'AddHandler controller.ChangeVariantActionItemsCreated, AddressOf VariantsController_ChangeVariantActionItemsCreated
|
||||
End Sub
|
||||
|
||||
Private Sub VariantsController_ChangeVariantActionItemsCreated(sender As Object, e As EventArgs)
|
||||
'Beep()
|
||||
|
||||
'If View.Id = "GLReport_DetailView" Then
|
||||
' Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
|
||||
' Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
' If _GLReport IsNot Nothing Then
|
||||
' _MasterKey = _GLReport.Oid
|
||||
' If _ocur.IsNewObject(_GLReport) = False Then
|
||||
' If _GLReport.VariantSelectedItemID <> "" Then
|
||||
' Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("GLReportRows")
|
||||
' If _ListPropertyEditor.Frame IsNot Nothing Then
|
||||
' Dim _ChangeVariantController As ChangeVariantController = Frame.GetController(Of ChangeVariantController)()
|
||||
' _ChangeVariantController.ChangeVariantAction.DoExecute(_ChangeVariantController.ChangeVariantAction.FindItemByIdPath(_GLReport.VariantSelectedItemID))
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
If Frame.View.Id Like "GLReport_GLRep*" Then
|
||||
'TryCast(sender, ChangeVariantController).ChangeVariantAction.DoExecute(TryCast(sender, ChangeVariantController).ChangeVariantAction.FindItemByIdPath(TryCast(TryCast(TryCast(Frame.View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).VariantSelectedItemID))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user