Reconfigure for GIT
This commit is contained in:
+137
@@ -0,0 +1,137 @@
|
||||
Imports DevExpress.Spreadsheet
|
||||
Imports DevExpress.Spreadsheet.Functions
|
||||
Imports DevExpress.XtraSpreadsheet
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class BallanceSpreadCustomFunctions
|
||||
Inherits Object
|
||||
Implements ICustomFunction
|
||||
|
||||
Private Const functionName As String = "GETGLBALLANCE"
|
||||
Private ReadOnly functionParameters() As ParameterInfo
|
||||
Private _BallanceHeader As BallanceHeader
|
||||
Private _ocur As Xpo.XPObjectSpace
|
||||
Private Structure stBalance
|
||||
Dim Side As String
|
||||
Dim AccountNumber As String
|
||||
Dim Balance As String
|
||||
Dim Operation As String
|
||||
End Structure
|
||||
Private _BalanceArray() As stBalance
|
||||
Public Sub New(_p_BallanceHeader As BallanceHeader, _p_ocur As Xpo.XPObjectSpace)
|
||||
' Missing optional parameters do not result in an error message.
|
||||
Me.functionParameters = New ParameterInfo() {New ParameterInfo(ParameterType.Value, ParameterAttributes.Required), New ParameterInfo(ParameterType.Value, ParameterAttributes.Optional)}
|
||||
_BallanceHeader = _p_BallanceHeader
|
||||
_ocur = _p_ocur
|
||||
End Sub
|
||||
|
||||
Public Function Evaluate(parameters As IList(Of ParameterValue), context As EvaluationContext) As ParameterValue Implements IFunction.Evaluate
|
||||
Dim _GetGLBallance As Double = 0
|
||||
ReDim _BalanceArray(100)
|
||||
|
||||
Try
|
||||
If parameters.Count = 2 Then
|
||||
|
||||
MakeBalanceArray(parameters(1).TextValue)
|
||||
_GetGLBallance = Math.Round(GetValuefromArray(parameters(0).NumericValue) / 1000, 0, MidpointRounding.AwayFromZero)
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Return _GetGLBallance
|
||||
End Function
|
||||
|
||||
Private Sub MakeBalanceArray(_BalanceString As String)
|
||||
Dim _act_ballancestring As String = ""
|
||||
Dim _act_arrayindex As Long = 0
|
||||
Dim i As Long = 0
|
||||
|
||||
For i = LBound(_BalanceArray) To UBound(_BalanceArray)
|
||||
_BalanceArray(i).AccountNumber = ""
|
||||
_BalanceArray(i).Balance = ""
|
||||
_BalanceArray(i).Operation = ""
|
||||
_BalanceArray(i).Side = ""
|
||||
Next
|
||||
|
||||
For i = 1 To Len(_BalanceString)
|
||||
_act_ballancestring = Mid(_BalanceString, i, 1)
|
||||
Select Case _act_ballancestring
|
||||
Case "T", "K"
|
||||
_BalanceArray(_act_arrayindex).Side = _act_ballancestring
|
||||
Case "+", "-"
|
||||
_act_arrayindex += 1
|
||||
_BalanceArray(_act_arrayindex).Operation = _act_ballancestring
|
||||
Case Else
|
||||
_BalanceArray(_act_arrayindex).AccountNumber += _act_ballancestring
|
||||
End Select
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Private Function GetValuefromArray(_Mode As Long) As Double
|
||||
Dim i As Long = 0
|
||||
Dim _GetValueFromArray As Double = 0
|
||||
|
||||
For i = LBound(_BalanceArray) To UBound(_BalanceArray)
|
||||
Select Case _BalanceArray(i).Operation
|
||||
Case "+"
|
||||
_GetValueFromArray += GetValuefromTrialBallance(_Mode, _BalanceArray(i).Side, _BalanceArray(i).AccountNumber)
|
||||
Case "-"
|
||||
_GetValueFromArray -= GetValuefromTrialBallance(_Mode, _BalanceArray(i).Side, _BalanceArray(i).AccountNumber)
|
||||
End Select
|
||||
Next
|
||||
Return _GetValueFromArray
|
||||
End Function
|
||||
Private Function GetValuefromTrialBallance(_Mode As Long, _Side As String, _AccountNumber As String) As Double
|
||||
Dim _TrialBalanceHeader As TrialBalanceHeader
|
||||
Dim _GetValuefromTrialBallance As Double = 0
|
||||
Dim _TrialBalance As TrialBalance = Nothing
|
||||
If _Mode = 0 Then
|
||||
_TrialBalanceHeader = _BallanceHeader.TrialBalanceHeader
|
||||
Else
|
||||
_TrialBalanceHeader = _BallanceHeader.TrialBalanceHeaderBefore
|
||||
End If
|
||||
|
||||
_TrialBalance = _ocur.FindObject(Of TrialBalance)(CriteriaOperator.Parse("TrialBalanceHeader=? and AccountNumber=?", _TrialBalanceHeader, _AccountNumber))
|
||||
If _TrialBalance IsNot Nothing Then
|
||||
If _Side = "T" Then
|
||||
_GetValuefromTrialBallance = _TrialBalance.DebitRAmountHUF
|
||||
End If
|
||||
If _Side = "K" Then
|
||||
_GetValuefromTrialBallance = _TrialBalance.CreditRAmountHUF
|
||||
End If
|
||||
End If
|
||||
Return _GetValuefromTrialBallance
|
||||
End Function
|
||||
#Region "BASE"
|
||||
Public Function GetName(culture As Globalization.CultureInfo) As String Implements IFunction.GetName
|
||||
Return functionName
|
||||
End Function
|
||||
|
||||
Public ReadOnly Property Name As String Implements IFunction.Name
|
||||
Get
|
||||
Return functionName
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Parameters As ParameterInfo() Implements IFunction.Parameters
|
||||
Get
|
||||
Return functionParameters
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ReturnType As ParameterType Implements IFunction.ReturnType
|
||||
Get
|
||||
Return ParameterType.Value
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Volatile As Boolean Implements IFunction.Volatile
|
||||
Get
|
||||
Return False
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
End Class
|
||||
+89
@@ -0,0 +1,89 @@
|
||||
Partial Class BallanceVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aSpreadPrintPreview = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSpreadExportXML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSpreadImportXML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSpreadRecalculate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aSpreadPrintPreview
|
||||
'
|
||||
Me.aSpreadPrintPreview.Caption = "aSpread Print Preview"
|
||||
Me.aSpreadPrintPreview.Category = "aSpreadPrintPreview"
|
||||
Me.aSpreadPrintPreview.ConfirmationMessage = Nothing
|
||||
Me.aSpreadPrintPreview.Id = "aSpreadPrintPreview"
|
||||
Me.aSpreadPrintPreview.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader)
|
||||
Me.aSpreadPrintPreview.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aSpreadPrintPreview.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aSpreadPrintPreview.ToolTip = Nothing
|
||||
Me.aSpreadPrintPreview.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aSpreadExportXML
|
||||
'
|
||||
Me.aSpreadExportXML.Caption = "aSpread Export XML"
|
||||
Me.aSpreadExportXML.Category = "aSpreadExportXML"
|
||||
Me.aSpreadExportXML.ConfirmationMessage = Nothing
|
||||
Me.aSpreadExportXML.Id = "aSpreadExportXML"
|
||||
Me.aSpreadExportXML.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader)
|
||||
Me.aSpreadExportXML.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aSpreadExportXML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aSpreadExportXML.ToolTip = Nothing
|
||||
Me.aSpreadExportXML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aSpreadImportXML
|
||||
'
|
||||
Me.aSpreadImportXML.Caption = "aSpread Import XML"
|
||||
Me.aSpreadImportXML.Category = "aSpreadImportXML"
|
||||
Me.aSpreadImportXML.ConfirmationMessage = Nothing
|
||||
Me.aSpreadImportXML.Id = "aSpreadImportXML"
|
||||
Me.aSpreadImportXML.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader)
|
||||
Me.aSpreadImportXML.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aSpreadImportXML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aSpreadImportXML.ToolTip = Nothing
|
||||
Me.aSpreadImportXML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aSpreadRecalculate
|
||||
'
|
||||
Me.aSpreadRecalculate.Caption = "aSpread Recalculate"
|
||||
Me.aSpreadRecalculate.Category = "aSpreadRecalculate"
|
||||
Me.aSpreadRecalculate.ConfirmationMessage = Nothing
|
||||
Me.aSpreadRecalculate.Id = "aSpreadRecalculate"
|
||||
Me.aSpreadRecalculate.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader)
|
||||
Me.aSpreadRecalculate.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aSpreadRecalculate.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aSpreadRecalculate.ToolTip = Nothing
|
||||
Me.aSpreadRecalculate.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aSpreadPrintPreview As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSpreadExportXML As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSpreadImportXML As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSpreadRecalculate As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+135
@@ -0,0 +1,135 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aSpreadPrintPreview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>174, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aSpreadExportXML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>494, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aSpreadImportXML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aSpreadRecalculate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>337, 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>
|
||||
+194
@@ -0,0 +1,194 @@
|
||||
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.Editors
|
||||
Imports DevExpress.XtraSpreadsheet
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Spreadsheet
|
||||
Imports DevExpress.XtraPrinting
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
|
||||
Public Class BallanceVC
|
||||
Inherits SISBusiness.Module.BallanceVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _SpreadsheetControl As SpreadsheetControl
|
||||
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
|
||||
|
||||
If View.Id = "BallanceHeader_DetailView" Then
|
||||
Dim _DetailView As DetailView = TryCast(View, DetailView)
|
||||
Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML")
|
||||
If _SpreadXML_ViewItem IsNot Nothing Then
|
||||
AddHandler _SpreadXML_ViewItem.ControlCreated, AddressOf _SpreadXML_ViewItem_ControlCreated
|
||||
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf SaveAction_Executing
|
||||
End If
|
||||
End If
|
||||
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
|
||||
|
||||
Private Sub _SpreadXML_ViewItem_ControlCreated(sender As Object, e As EventArgs)
|
||||
Dim _BallanceHeader As BallanceHeader = TryCast(View.SelectedObjects(0), BallanceHeader)
|
||||
Dim _ItemControl As Object = TryCast(sender, ViewItem).Control
|
||||
Dim _SpreadSimpleUserControl As SpreadSimpleUserControl = TryCast(_ItemControl, SpreadSimpleUserControl)
|
||||
|
||||
_SpreadsheetControl = TryCast(_ItemControl, SpreadSimpleUserControl).SpreadsheetControl1
|
||||
|
||||
If _BallanceHeader IsNot Nothing Then
|
||||
If _BallanceHeader.SpreadFileData IsNot Nothing Then
|
||||
Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _BallanceHeader.SpreadFileData.FileName)
|
||||
Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
|
||||
_BallanceHeader.SpreadFileData.SaveToStream(_Stream)
|
||||
_Stream.Close()
|
||||
|
||||
Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
|
||||
Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
|
||||
Dim workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
|
||||
_StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
|
||||
workbook.LoadDocument(_StreamFile, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
|
||||
_StreamFile.Close()
|
||||
|
||||
InitSpread(_BallanceHeader)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SaveAction_Executing(sender As Object, e As CancelEventArgs)
|
||||
Dim _BallanceHeader As BallanceHeader = TryCast(View.SelectedObjects(0), BallanceHeader)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
If _SpreadsheetControl IsNot Nothing Then
|
||||
|
||||
'// TESZT
|
||||
FormatSpread(_BallanceHeader)
|
||||
|
||||
Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "BALANCE.XML")
|
||||
Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
|
||||
_SpreadsheetControl.Document.SaveDocument(_Stream, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
|
||||
_Stream.Close()
|
||||
|
||||
Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
|
||||
Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
|
||||
_StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
|
||||
|
||||
Dim _FileData As FileData
|
||||
_FileData = _ocur.CreateObject(Of FileData)()
|
||||
|
||||
_FileData.LoadFromStream("BALANCE.XML", _StreamFile)
|
||||
|
||||
_BallanceHeader.SpreadFileData = _FileData
|
||||
End If
|
||||
End Sub
|
||||
Private Sub InitSpread(_BallanceHeader As BallanceHeader)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _BallanceSpreadCustomFunctions As New BallanceSpreadCustomFunctions(_BallanceHeader, _ocur)
|
||||
Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
|
||||
|
||||
If (Not _workbook.CustomFunctions.Contains(_BallanceSpreadCustomFunctions.Name)) Then
|
||||
_workbook.CustomFunctions.Add(_BallanceSpreadCustomFunctions)
|
||||
End If
|
||||
'// cégjegyzékszám
|
||||
Dim _worksheet As Worksheet = _workbook.Worksheets("Borító")
|
||||
_worksheet.Cells("A3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 1, 1))
|
||||
_worksheet.Cells("B3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 2, 1))
|
||||
_worksheet.Cells("D3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 3, 1))
|
||||
_worksheet.Cells("E3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 4, 1))
|
||||
_worksheet.Cells("G3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 5, 1))
|
||||
_worksheet.Cells("H3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 6, 1))
|
||||
_worksheet.Cells("I3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 7, 1))
|
||||
_worksheet.Cells("J3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 8, 1))
|
||||
_worksheet.Cells("K3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 9, 1))
|
||||
_worksheet.Cells("L3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 10, 1))
|
||||
|
||||
_worksheet = _workbook.Worksheets("Eszközök A")
|
||||
_worksheet.Cells("R11").SetValue(Format(_BallanceHeader.TrialBalanceHeaderBefore.DateTo.Date, "yyyy.MM.dd"))
|
||||
_worksheet.Cells("T11").SetValue(Format(_BallanceHeader.TrialBalanceHeader.DateTo.Date, "yyyy.MM.dd"))
|
||||
End Sub
|
||||
Private Sub FormatSpread(_BallanceHeader As BallanceHeader)
|
||||
|
||||
Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
|
||||
Dim _worksheet As Worksheet = _workbook.Worksheets("Borító")
|
||||
Dim _worksheet_range As DevExpress.Spreadsheet.Range
|
||||
|
||||
_worksheet_range = _worksheet.GetUsedRange()
|
||||
|
||||
'_worksheet.Rows.Remove(_worksheet_range.RowCount + 1, 999999999)
|
||||
|
||||
_worksheet.Cells("B14").SetValue(_BallanceHeader.CustomersFrom.FullName)
|
||||
_worksheet.Cells("B15").SetValue(_BallanceHeader.CustomersFrom.Address1.ZipPostal & ". " & _BallanceHeader.CustomersFrom.Address1.City & ", " & _BallanceHeader.CustomersFrom.Address1.Street)
|
||||
_worksheet.Cells("B20").SetValue("Beszámolási idõszak: " & Format(_BallanceHeader.TrialBalanceHeader.DateFrom.Date, "yyyy.MM.dd") & " - " & Format(_BallanceHeader.TrialBalanceHeader.DateTo.Date, "yyyy.MM.dd"))
|
||||
_worksheet.Cells("B17").SetValue(Format(_BallanceHeader.TrialBalanceHeader.DateTo.Date, "yyyy.MM.dd") & "-i mérleg fordulónapi")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aSpreadPrintPreview_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadPrintPreview.Execute
|
||||
Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
|
||||
|
||||
If _workbook IsNot Nothing Then
|
||||
|
||||
Using printingSystem As New PrintingSystem()
|
||||
Using link As New PrintableComponentLink(printingSystem)
|
||||
link.Component = _workbook
|
||||
link.CreateDocument()
|
||||
link.ShowPreviewDialog()
|
||||
End Using
|
||||
End Using
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aSpreadImportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImportXML.Execute
|
||||
Dim openFileDialog1 As New Windows.Forms.OpenFileDialog()
|
||||
|
||||
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
|
||||
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
|
||||
openFileDialog1.FilterIndex = 1
|
||||
openFileDialog1.RestoreDirectory = True
|
||||
|
||||
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
|
||||
_SpreadsheetControl.LoadDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aSpreadExportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadExportXML.Execute
|
||||
Dim openFileDialog1 As New Windows.Forms.SaveFileDialog()
|
||||
|
||||
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
|
||||
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
|
||||
openFileDialog1.FilterIndex = 1
|
||||
openFileDialog1.RestoreDirectory = True
|
||||
|
||||
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
|
||||
_SpreadsheetControl.SaveDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aSpreadRecalculate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadRecalculate.Execute
|
||||
Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
|
||||
_workbook.Calculate()
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
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()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+111
@@ -0,0 +1,111 @@
|
||||
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.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.XtraPivotGrid
|
||||
Imports DevExpress.ExpressApp.PivotGrid.Win
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
|
||||
Public Class GLCardVC
|
||||
Inherits SISBusiness.Module.GLCardVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _GridListEditor As GridListEditor
|
||||
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
|
||||
|
||||
If View.Id = "GLCardsHeader_GLCardsRows_ListView" Then
|
||||
If _GridListEditor IsNot Nothing Then
|
||||
RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLCardsHeader_GLCardsRows_ListView_CellValueChanged
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub GLCardVC_ViewControlsCreated(sender As Object, e As System.EventArgs) Handles Me.ViewControlsCreated
|
||||
If View.Id = "GLCardsHeader_GLCardsRows_ListView" Then
|
||||
Dim gridControl As GridControl = CType(((CType(View, ListView)).Editor).Control, GridControl)
|
||||
Dim gridView As GridView = CType(gridControl.FocusedView, GridView)
|
||||
gridView.OptionsCustomization.AllowSort = False
|
||||
gridView.OptionsCustomization.AllowGroup = False
|
||||
|
||||
Dim _ListView As ListView = CType(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
_GridListEditor = TryCast(TryCast(View, ListView).Editor, GridListEditor)
|
||||
If _GridListEditor IsNot Nothing Then
|
||||
AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLCardsHeader_GLCardsRows_ListView_CellValueChanged
|
||||
' _GridListEditor.AllowEdit = True
|
||||
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "Note_Rows" Then
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False
|
||||
' End If
|
||||
|
||||
' Next
|
||||
End If
|
||||
End If
|
||||
If View.Id = "GLCardsHeader_GLCardsRowsPivot_ListView" Then
|
||||
Dim _PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor)
|
||||
If _PivotGridListEditor.PivotGridControl IsNot Nothing Then
|
||||
AddHandler _PivotGridListEditor.PivotGridControl.CustomFieldValueCells, AddressOf PivotGridControl_CustomFieldValueCells
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub GLCardsHeader_GLCardsRows_ListView_CellValueChanged(sender As Object, e As Views.Base.CellValueChangedEventArgs)
|
||||
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
|
||||
Select Case TryCast(e.Column, GridColumn).FieldName
|
||||
Case "Note_Rows"
|
||||
If nestedFrame IsNot Nothing Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Dim parentView As View = nestedFrame.View
|
||||
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
parentView.ObjectSpace.Refresh()
|
||||
End If
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub PivotGridControl_CustomFieldValueCells(sender As Object, e As PivotCustomFieldValueCellsEventArgs)
|
||||
Dim pivot As PivotGridControl = CType(sender, PivotGridControl)
|
||||
Dim rowFieldsCount As Integer = pivot.GetFieldsByArea(PivotArea.RowArea).Count
|
||||
Dim BallanceHUFAreaIndex As Integer = pivot.Fields("BallanceHUF").AreaIndex
|
||||
For i As Integer = 0 To e.GetCellCount(False) - 2
|
||||
Dim cell As FieldValueCell = e.GetCell(False, i)
|
||||
If cell IsNot Nothing Then
|
||||
If cell.Field IsNot Nothing Then
|
||||
If cell.Field.AreaIndex = rowFieldsCount - 1 AndAlso Math.Round(CDec(e.GetCellValue(BallanceHUFAreaIndex, cell.MaxIndex)), 0, MidpointRounding.AwayFromZero) = 0 Then
|
||||
e.Remove(cell)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next i
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+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(SISBusiness.[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 SISBusiness.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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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 SISBusiness.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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLRowsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+89
@@ -0,0 +1,89 @@
|
||||
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 SISBusiness.Module
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
|
||||
Public Class GLRowsVC
|
||||
Inherits SISBusiness.Module.GLRowsVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _GridListEditor As GridListEditor
|
||||
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
|
||||
|
||||
If _GridListEditor IsNot Nothing Then
|
||||
If _GridListEditor.GridView IsNot Nothing Then
|
||||
RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLRows_ListView_Bank_CellValueChanged
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
|
||||
If View.Id = "GLRows_ListView_Bank" Then
|
||||
_GridListEditor = TryCast(TryCast(View, ListView).Editor, GridListEditor)
|
||||
|
||||
If _GridListEditor IsNot Nothing Then
|
||||
AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLRows_ListView_Bank_CellValueChanged
|
||||
End If
|
||||
|
||||
'If _GridListEditor IsNot Nothing Then
|
||||
' _GridListEditor.AllowEdit = True
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "CurrencyRate2" Then
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False
|
||||
' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False
|
||||
' End If
|
||||
' Next i
|
||||
'End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub GLRows_ListView_Bank_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs)
|
||||
If TryCast(e.Column, GridColumn).FieldName = "CurrencyRate2" Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _GLRows As GLRows = View.SelectedObjects(0)
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GLRows.InAmountDEV2 = Math.Round(_GLRows.InAmountDEV * e.Value, 2, MidpointRounding.AwayFromZero)
|
||||
_GLRows.OutAmountDEV2 = Math.Round(_GLRows.OutAmountDEV * e.Value, 2, MidpointRounding.AwayFromZero)
|
||||
_GLRows.CurrencyRate2 = e.Value
|
||||
_ocur.CommitChanges()
|
||||
|
||||
If _GLRows.GLHeader IsNot Nothing Then
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class ABRQueryVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+39
@@ -0,0 +1,39 @@
|
||||
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
|
||||
|
||||
Public Class ABRQueryVC
|
||||
Inherits SISBusiness.Module.ABRQueryVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
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
|
||||
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCICheckerVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+43
@@ -0,0 +1,43 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.ExpressApp.Layout
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Templates
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Model.NodeGenerators
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
|
||||
Partial Public Class PCICheckerVC
|
||||
Inherits SISBusiness.Module.PCICheckerVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
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
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PartnerAccountConnectionInfoQueryVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+38
@@ -0,0 +1,38 @@
|
||||
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
|
||||
|
||||
Public Class PartnerAccountConnectionInfoQueryVC
|
||||
Inherits SISBusiness.Module.PartnerAccountConnectionInfoQueryVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
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
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCICheckVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+34
@@ -0,0 +1,34 @@
|
||||
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
|
||||
|
||||
Public Class PCICheckVC
|
||||
Inherits SISBusiness.Module.PCICheckVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
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
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCIGroupAgingVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+34
@@ -0,0 +1,34 @@
|
||||
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
|
||||
|
||||
Public Class PCIGroupAgingVC
|
||||
Inherits SISBusiness.Module.PCIGroupAgingVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
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
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCIVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+34
@@ -0,0 +1,34 @@
|
||||
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
|
||||
|
||||
Public Class PCIVC
|
||||
Inherits SISBusiness.Module.PCIVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
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
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class SpecTranRevaluationVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+38
@@ -0,0 +1,38 @@
|
||||
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
|
||||
|
||||
Public Class SpecTranRevaluationVC
|
||||
Inherits SISBusiness.Module.SpecTranRevaluationVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
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
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class TrialBalanceVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+123
@@ -0,0 +1,123 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+85
@@ -0,0 +1,85 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports System.Drawing
|
||||
|
||||
Public Class TrialBalanceVC
|
||||
Inherits SISBusiness.Module.TrialBalanceVC
|
||||
Private InBold As Boolean = False
|
||||
Private CurrentRowHandle As Integer = -1
|
||||
Private LastRowHandle As Integer = -1
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "TrialBalanceHeader_TrialBalance_ListView" Or _
|
||||
View.Id = "TrialBalanceHeader_TrialBalanceOpenClose_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
gridView.OptionsCustomization.AllowSort = False
|
||||
gridView.OptionsCustomization.AllowGroup = False
|
||||
AddHandler gridView.RowCellStyle, AddressOf gridView_RowCellStyle
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub gridView_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs)
|
||||
Dim _CellValue As String
|
||||
Dim sArray() As String
|
||||
|
||||
CurrentRowHandle = e.RowHandle
|
||||
If LastRowHandle <> CurrentRowHandle Then
|
||||
LastRowHandle = CurrentRowHandle
|
||||
InBold = False
|
||||
End If
|
||||
If e.Column.FieldName = "ShortNameFormatted" Then
|
||||
_CellValue = LTrim(RTrim(e.CellValue))
|
||||
sArray = Split(_CellValue, " ")
|
||||
If Len(sArray(0)) <= 2 Then
|
||||
InBold = True
|
||||
Else
|
||||
InBold = False
|
||||
End If
|
||||
End If
|
||||
If InBold Then
|
||||
e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold)
|
||||
|
||||
End If
|
||||
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
|
||||
|
||||
End Class
|
||||
+68
@@ -0,0 +1,68 @@
|
||||
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
|
||||
Imports System.Drawing
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
Public Enum eVATReportCheckListType
|
||||
eError = 0
|
||||
eWarning = 1
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class VATReportCheckList
|
||||
Inherits BaseObject
|
||||
|
||||
Private _VATReportCheckListType As eVATReportCheckListType
|
||||
Private _Description As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property VATReportCheckListType As eVATReportCheckListType
|
||||
Get
|
||||
Return _VATReportCheckListType
|
||||
End Get
|
||||
Set(value As eVATReportCheckListType)
|
||||
SetPropertyValue("VATReportCheckListType", _VATReportCheckListType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImageEditor(ListViewImageEditorCustomHeight:=16, ImageSizeMode:=ImageSizeMode.Normal)> _
|
||||
ReadOnly Property ImageType As Image
|
||||
Get
|
||||
Select Case VATReportCheckListType
|
||||
Case eVATReportCheckListType.eError
|
||||
Return ImageLoader.Instance.GetImageInfo("error").Image
|
||||
Case eVATReportCheckListType.eWarning
|
||||
Return ImageLoader.Instance.GetImageInfo("warning").Image
|
||||
Case Else
|
||||
Return Nothing
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+57
@@ -0,0 +1,57 @@
|
||||
Partial Class VATReportVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aVATReport_Create65XML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aVATReport_Check65XML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aVATReport_Create65XML
|
||||
'
|
||||
Me.aVATReport_Create65XML.Caption = "aVATReport_Create65XML"
|
||||
Me.aVATReport_Create65XML.ConfirmationMessage = Nothing
|
||||
Me.aVATReport_Create65XML.Id = "aVATReport_Create65XML"
|
||||
Me.aVATReport_Create65XML.TargetObjectType = GetType(SISBusiness.[Module].VATReport)
|
||||
Me.aVATReport_Create65XML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aVATReport_Create65XML.ToolTip = Nothing
|
||||
Me.aVATReport_Create65XML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aVATReport_Check65XML
|
||||
'
|
||||
Me.aVATReport_Check65XML.Caption = "aVATReport_Check65XML"
|
||||
Me.aVATReport_Check65XML.ConfirmationMessage = Nothing
|
||||
Me.aVATReport_Check65XML.Id = "aVATReport_Check65XML"
|
||||
Me.aVATReport_Check65XML.TargetObjectType = GetType(SISBusiness.[Module].VATReport)
|
||||
Me.aVATReport_Check65XML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aVATReport_Check65XML.ToolTip = Nothing
|
||||
Me.aVATReport_Check65XML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aVATReport_Create65XML As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aVATReport_Check65XML As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+129
@@ -0,0 +1,129 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aVATReport_Create65XML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aVATReport_Check65XML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>212, 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>
|
||||
+1547
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user