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

First create solution

Browse Source
This commit is contained in:
ivanszabo
2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceSpreadCustomFunctions.vb
+137
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb
Generated
+89
View File
@@ -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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx
+135
View File
@@ -0,0 +1,135 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="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>
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb
+194
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
+111
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb
Generated
+49
View File
@@ -0,0 +1,49 @@
Partial Class GLReportCashflowVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.aViewPivotDetailCashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aViewPivotDetailCashflow
'
Me.aViewPivotDetailCashflow.Caption = "aView Pivot Detail Cashflow"
Me.aViewPivotDetailCashflow.ConfirmationMessage = Nothing
Me.aViewPivotDetailCashflow.Id = "aViewPivotDetailCashflow"
Me.aViewPivotDetailCashflow.ImageName = Nothing
Me.aViewPivotDetailCashflow.Shortcut = Nothing
Me.aViewPivotDetailCashflow.Tag = Nothing
Me.aViewPivotDetailCashflow.TargetObjectsCriteria = Nothing
Me.aViewPivotDetailCashflow.TargetObjectType = GetType(Nuvolar.[Module].GLReportCashflowRows)
Me.aViewPivotDetailCashflow.TargetViewId = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot"
Me.aViewPivotDetailCashflow.ToolTip = Nothing
Me.aViewPivotDetailCashflow.TypeOfView = Nothing
End Sub
Friend WithEvents aViewPivotDetailCashflow As DevExpress.ExpressApp.Actions.SimpleAction
End Class
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx
+126
View File
@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="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>
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb
+117
View File
@@ -0,0 +1,117 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.PivotGrid.Win
Imports DevExpress.XtraPivotGrid
Imports DevExpress.Data.Filtering
Public Class GLReportCashflowVC
Inherits Nuvolar.Module.GLReportCashflowVC
Dim _WaitFormClass As New WaitFormClass
Private _PivotGridListEditor As PivotGridListEditor
Private _PivotGrdidControl As PivotGridControl
Private _Criteria As String = ""
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
End Sub
Protected Overrides Sub OnViewControlsCreated()
MyBase.OnViewControlsCreated()
If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then
_PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor)
If _PivotGridListEditor IsNot Nothing Then
_PivotGrdidControl = _PivotGridListEditor.PivotGridControl
AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
End If
End If
End Sub
Private Sub aViewPivotDetailCashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetailCashflow.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportCashflowRows))
Dim _GLReportCashflowHeader As GLReportCashflowHeader = Nothing
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
_GLReportCashflowHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReportCashflowHeader)
Else
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
_GLReportCashflowHeader = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportCashflowRows).GLReportCashflowHeader
End If
End If
If LTrim(RTrim(_Criteria <> "")) Then
_CS.BeginUpdateCriteria()
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReportCashflowHeader.Oid=?", _GLReportCashflowHeader.Oid)
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
_CS.EndUpdateCriteria()
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportCashflowRows_ListView_PivotDetail", _CS, True)
End If
End Sub
Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs)
Dim _RowPivotGridField As PivotGridField
Dim _ColumnPivotGridField As PivotGridField
'_PivotGrdidControl.CreateDrillDownDataSource(e.ColumnIndex, e.RowIndex)
Dim s As String
If e.RowValueType = PivotGridValueType.Value Then
If e.ColumnValueType = PivotGridValueType.Value Then
_Criteria = ""
For Each _RowPivotGridField In e.GetRowFields
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
If LTrim(RTrim(s)) <> "" Then
If _Criteria = "" Then
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
Else
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
End If
End If
Next
For Each _ColumnPivotGridField In e.GetColumnFields
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
If LTrim(RTrim(s)) <> "" Then
If _Criteria = "" Then
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
Else
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
End If
End If
Next
End If
End If
End Sub
End Class
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.Designer.vb
Generated
+241
View File
@@ -0,0 +1,241 @@
Partial Class GLReportRowsVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.aViewPivotDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistry_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttacments_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGLReportRows_ChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aGLReportRows_DivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aViewPivotDetail_2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCID_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPivotDetail_3 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewRegistry_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewAttacments_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aViewPCID_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aDivide_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
'
'aViewPivotDetail
'
Me.aViewPivotDetail.Caption = "aView Pivot Detail"
Me.aViewPivotDetail.ConfirmationMessage = Nothing
Me.aViewPivotDetail.Id = "aViewPivotDetail"
Me.aViewPivotDetail.ImageName = Nothing
Me.aViewPivotDetail.Shortcut = Nothing
Me.aViewPivotDetail.Tag = Nothing
Me.aViewPivotDetail.TargetObjectsCriteria = Nothing
Me.aViewPivotDetail.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
Me.aViewPivotDetail.TargetViewId = "GLReport_GLReportRows_ListView_Pivot"
Me.aViewPivotDetail.ToolTip = Nothing
Me.aViewPivotDetail.TypeOfView = Nothing
'
'aViewRegistry_GLReportRows
'
Me.aViewRegistry_GLReportRows.Caption = "View registry"
Me.aViewRegistry_GLReportRows.ConfirmationMessage = Nothing
Me.aViewRegistry_GLReportRows.Id = "aViewRegistry_GLReportRows"
Me.aViewRegistry_GLReportRows.ImageName = "document_pinned"
Me.aViewRegistry_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistry_GLReportRows.Shortcut = Nothing
Me.aViewRegistry_GLReportRows.Tag = Nothing
Me.aViewRegistry_GLReportRows.TargetObjectsCriteria = Nothing
Me.aViewRegistry_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
Me.aViewRegistry_GLReportRows.TargetViewId = ""
Me.aViewRegistry_GLReportRows.ToolTip = Nothing
Me.aViewRegistry_GLReportRows.TypeOfView = Nothing
'
'aViewAttacments_GLReportRows
'
Me.aViewAttacments_GLReportRows.Caption = "View registry"
Me.aViewAttacments_GLReportRows.ConfirmationMessage = Nothing
Me.aViewAttacments_GLReportRows.Id = "aViewAttacments_GLReportRows"
Me.aViewAttacments_GLReportRows.ImageName = "document_pinned"
Me.aViewAttacments_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttacments_GLReportRows.Shortcut = Nothing
Me.aViewAttacments_GLReportRows.Tag = Nothing
Me.aViewAttacments_GLReportRows.TargetObjectsCriteria = Nothing
Me.aViewAttacments_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
Me.aViewAttacments_GLReportRows.TargetViewId = ""
Me.aViewAttacments_GLReportRows.ToolTip = Nothing
Me.aViewAttacments_GLReportRows.TypeOfView = Nothing
'
'aGLReportRows_ChangeParam
'
Me.aGLReportRows_ChangeParam.AcceptButtonCaption = Nothing
Me.aGLReportRows_ChangeParam.CancelButtonCaption = Nothing
Me.aGLReportRows_ChangeParam.Caption = "Change parameters"
Me.aGLReportRows_ChangeParam.ConfirmationMessage = Nothing
Me.aGLReportRows_ChangeParam.Id = "aGLReportRows_ChangeParam"
Me.aGLReportRows_ChangeParam.ImageName = "index_preferences"
Me.aGLReportRows_ChangeParam.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aGLReportRows_ChangeParam.Shortcut = Nothing
Me.aGLReportRows_ChangeParam.Tag = Nothing
Me.aGLReportRows_ChangeParam.TargetObjectsCriteria = Nothing
Me.aGLReportRows_ChangeParam.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
Me.aGLReportRows_ChangeParam.TargetViewId = ""
Me.aGLReportRows_ChangeParam.ToolTip = Nothing
Me.aGLReportRows_ChangeParam.TypeOfView = Nothing
'
'aGLReportRows_DivideRows
'
Me.aGLReportRows_DivideRows.AcceptButtonCaption = Nothing
Me.aGLReportRows_DivideRows.CancelButtonCaption = Nothing
Me.aGLReportRows_DivideRows.Caption = "Divide rows"
Me.aGLReportRows_DivideRows.Category = "Edit"
Me.aGLReportRows_DivideRows.ConfirmationMessage = Nothing
Me.aGLReportRows_DivideRows.Id = "aGLReportRows_DivideRows"
Me.aGLReportRows_DivideRows.ImageName = "row_add_after"
Me.aGLReportRows_DivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aGLReportRows_DivideRows.Shortcut = Nothing
Me.aGLReportRows_DivideRows.Tag = Nothing
Me.aGLReportRows_DivideRows.TargetObjectsCriteria = Nothing
Me.aGLReportRows_DivideRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
Me.aGLReportRows_DivideRows.TargetViewId = ""
Me.aGLReportRows_DivideRows.ToolTip = Nothing
Me.aGLReportRows_DivideRows.TypeOfView = Nothing
'
'aViewPivotDetail_2
'
Me.aViewPivotDetail_2.Caption = "aViewPivotDetail_2"
Me.aViewPivotDetail_2.ConfirmationMessage = Nothing
Me.aViewPivotDetail_2.Id = "aViewPivotDetail_2"
Me.aViewPivotDetail_2.ImageName = Nothing
Me.aViewPivotDetail_2.Shortcut = Nothing
Me.aViewPivotDetail_2.Tag = Nothing
Me.aViewPivotDetail_2.TargetObjectsCriteria = Nothing
Me.aViewPivotDetail_2.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
Me.aViewPivotDetail_2.TargetViewId = "GLReport_GLReportRows_ListView_Pivot_2"
Me.aViewPivotDetail_2.ToolTip = Nothing
Me.aViewPivotDetail_2.TypeOfView = Nothing
'
'aViewPCID_GLReportRows
'
Me.aViewPCID_GLReportRows.Caption = "aViewPCIDGroup"
Me.aViewPCID_GLReportRows.ConfirmationMessage = Nothing
Me.aViewPCID_GLReportRows.Id = "aViewPCID_GLReportRows"
Me.aViewPCID_GLReportRows.ImageName = Nothing
Me.aViewPCID_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCID_GLReportRows.Shortcut = Nothing
Me.aViewPCID_GLReportRows.Tag = Nothing
Me.aViewPCID_GLReportRows.TargetObjectsCriteria = Nothing
Me.aViewPCID_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
Me.aViewPCID_GLReportRows.TargetViewId = ""
Me.aViewPCID_GLReportRows.ToolTip = Nothing
Me.aViewPCID_GLReportRows.TypeOfView = Nothing
'
'aViewPivotDetail_3
'
Me.aViewPivotDetail_3.Caption = "aViewPivotDetail_3"
Me.aViewPivotDetail_3.ConfirmationMessage = Nothing
Me.aViewPivotDetail_3.Id = "aViewPivotDetail_3"
Me.aViewPivotDetail_3.ImageName = Nothing
Me.aViewPivotDetail_3.Shortcut = Nothing
Me.aViewPivotDetail_3.Tag = Nothing
Me.aViewPivotDetail_3.TargetObjectsCriteria = Nothing
Me.aViewPivotDetail_3.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
Me.aViewPivotDetail_3.TargetViewId = "GLReport_GLReportRowsCostHolder_ListView_PivotGrid"
Me.aViewPivotDetail_3.ToolTip = Nothing
Me.aViewPivotDetail_3.TypeOfView = Nothing
'
'aViewRegistry_GLReportRowsCostHolder
'
Me.aViewRegistry_GLReportRowsCostHolder.Caption = "View registry"
Me.aViewRegistry_GLReportRowsCostHolder.ConfirmationMessage = Nothing
Me.aViewRegistry_GLReportRowsCostHolder.Id = "aViewRegistry_GLReportRowsCostHolder"
Me.aViewRegistry_GLReportRowsCostHolder.ImageName = "document_pinned"
Me.aViewRegistry_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewRegistry_GLReportRowsCostHolder.Shortcut = Nothing
Me.aViewRegistry_GLReportRowsCostHolder.Tag = Nothing
Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
Me.aViewRegistry_GLReportRowsCostHolder.TargetViewId = ""
Me.aViewRegistry_GLReportRowsCostHolder.ToolTip = Nothing
Me.aViewRegistry_GLReportRowsCostHolder.TypeOfView = Nothing
'
'aViewAttacments_GLReportRowsCostHolder
'
Me.aViewAttacments_GLReportRowsCostHolder.Caption = "View atachments"
Me.aViewAttacments_GLReportRowsCostHolder.ConfirmationMessage = Nothing
Me.aViewAttacments_GLReportRowsCostHolder.Id = "aViewAttacments_GLReportRowsCostHolder"
Me.aViewAttacments_GLReportRowsCostHolder.ImageName = "document_pinned"
Me.aViewAttacments_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewAttacments_GLReportRowsCostHolder.Shortcut = Nothing
Me.aViewAttacments_GLReportRowsCostHolder.Tag = Nothing
Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
Me.aViewAttacments_GLReportRowsCostHolder.TargetViewId = ""
Me.aViewAttacments_GLReportRowsCostHolder.ToolTip = Nothing
Me.aViewAttacments_GLReportRowsCostHolder.TypeOfView = Nothing
'
'aViewPCID_GLReportRowsCostHolder
'
Me.aViewPCID_GLReportRowsCostHolder.Caption = "aViewPCIDGroup"
Me.aViewPCID_GLReportRowsCostHolder.ConfirmationMessage = Nothing
Me.aViewPCID_GLReportRowsCostHolder.Id = "aViewPCID_GLReportRowsCostHolder"
Me.aViewPCID_GLReportRowsCostHolder.ImageName = Nothing
Me.aViewPCID_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aViewPCID_GLReportRowsCostHolder.Shortcut = Nothing
Me.aViewPCID_GLReportRowsCostHolder.Tag = Nothing
Me.aViewPCID_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
Me.aViewPCID_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
Me.aViewPCID_GLReportRowsCostHolder.TargetViewId = ""
Me.aViewPCID_GLReportRowsCostHolder.ToolTip = Nothing
Me.aViewPCID_GLReportRowsCostHolder.TypeOfView = Nothing
'
'aDivide_GLReportRowsCostHolder
'
Me.aDivide_GLReportRowsCostHolder.AcceptButtonCaption = Nothing
Me.aDivide_GLReportRowsCostHolder.CancelButtonCaption = Nothing
Me.aDivide_GLReportRowsCostHolder.Caption = "aDivide_GLReportRowsCostHolder"
Me.aDivide_GLReportRowsCostHolder.ConfirmationMessage = Nothing
Me.aDivide_GLReportRowsCostHolder.Id = "aDivide_GLReportRowsCostHolder"
Me.aDivide_GLReportRowsCostHolder.ImageName = Nothing
Me.aDivide_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aDivide_GLReportRowsCostHolder.Shortcut = Nothing
Me.aDivide_GLReportRowsCostHolder.Tag = Nothing
Me.aDivide_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
Me.aDivide_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
Me.aDivide_GLReportRowsCostHolder.TargetViewId = Nothing
Me.aDivide_GLReportRowsCostHolder.ToolTip = Nothing
Me.aDivide_GLReportRowsCostHolder.TypeOfView = Nothing
End Sub
Friend WithEvents aViewPivotDetail As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistry_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttacments_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGLReportRows_ChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aGLReportRows_DivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aViewPivotDetail_2 As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCID_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPivotDetail_3 As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewRegistry_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewAttacments_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aViewPCID_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aDivide_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.PopupWindowShowAction
End Class
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.resx
+159
View File
@@ -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>
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb
+552
View File
@@ -0,0 +1,552 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.XtraPivotGrid
Imports DevExpress.ExpressApp.PivotGrid.Win
Imports DevExpress.Data.Filtering
Imports Nuvolar.Module
Imports DevExpress.ExpressApp.SystemModule
Imports System.IO
Imports DevExpress.Xpo
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.ViewVariantsModule
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.XtraGrid
Public Class GLReportRowsVC
Inherits DevExpress.ExpressApp.ViewController
Private _PivotGridListEditor As PivotGridListEditor
Private _PivotGrdidControl As PivotGridControl
Private _GridListEditor As GridListEditor
Private _GridControl As GridControl
Private _Criteria As String = ""
Dim _WaitFormClass As New WaitFormClass
Private _MasterKey As Guid
Private _VariantSelectedItemID As String = ""
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id Like "GLReport_DetailView" Then
Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
If _GLReport IsNot Nothing Then
_MasterKey = _GLReport.Oid
End If
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Save_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Save_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Save_Executing
AddHandler View.ControlsCreated, AddressOf GLReport_DetailView_ControlCreated
End If
If View.Id Like "GLReport_GLReportRows*" Then
AddHandler View.ControlsCreated, AddressOf ListView_ControlsCreated
End If
End Sub
Protected Overrides Sub OnViewControlsCreated()
MyBase.OnViewControlsCreated()
End Sub
Private Sub GLReport_DetailView_ControlCreated(sender As Object, e As EventArgs)
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If _PivotGrdidControl IsNot Nothing Then
RemoveHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
End If
End Sub
Private Sub ListView_ControlsCreated(sender As Object, e As EventArgs)
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource)
If _PropertyCollectionSource IsNot Nothing Then
_MasterKey = _PropertyCollectionSource.MasterObject.oid
End If
_PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor)
If _PivotGridListEditor IsNot Nothing Then
_PivotGrdidControl = _PivotGridListEditor.PivotGridControl
AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
End If
End Sub
Private Sub aViewPivotDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows))
Dim _GLReport As GLReport = Nothing
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
Else
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport
End If
End If
If LTrim(RTrim(_Criteria <> "")) Then
_CS.BeginUpdateCriteria()
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
_CS.EndUpdateCriteria()
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail", _CS, True)
End If
End Sub
Private Sub aViewPivotDetail_2_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_2.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows))
Dim _GLReport As GLReport = Nothing
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
Else
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport
End If
End If
If _GLReport Is Nothing Then Exit Sub
If LTrim(RTrim(_Criteria <> "")) Then
_CS.BeginUpdateCriteria()
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
_CS.EndUpdateCriteria()
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail_2", _CS, True)
End If
End Sub
Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs)
Dim _RowPivotGridField As PivotGridField
Dim _ColumnPivotGridField As PivotGridField
Dim s As String
If e.RowValueType = PivotGridValueType.Value Then
If e.ColumnValueType = PivotGridValueType.Value Then
_Criteria = ""
For Each _RowPivotGridField In e.GetRowFields
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
If LTrim(RTrim(s)) <> "" Then
If _Criteria = "" Then
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
Else
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
End If
End If
Next
For Each _ColumnPivotGridField In e.GetColumnFields
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
If LTrim(RTrim(s)) <> "" Then
If _Criteria = "" Then
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
Else
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
End If
End If
Next
ElseIf e.ColumnValueType = PivotGridValueType.GrandTotal Then
_Criteria = ""
For Each _RowPivotGridField In e.GetRowFields
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
If LTrim(RTrim(s)) <> "" Then
If _Criteria = "" Then
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
Else
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
End If
End If
Next
For Each _ColumnPivotGridField In e.GetColumnFields
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
If LTrim(RTrim(s)) <> "" Then
If _Criteria = "" Then
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
Else
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
End If
End If
Next
End If
End If
End Sub
Private Sub aViewRegistry_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRows.Execute
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom
Dim _Customers As Customers = _GLReportRows.Customers
Dim _DocumentNumber As String = _GLReportRows.ConnectInfo
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
End Sub
Private Sub aViewAttacments_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRows.Execute
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom
Dim _Customers As Customers = _GLReportRows.Customers
Dim _DocumentNumber As String = _GLReportRows.ConnectInfo
Dim _GLMixed As GLMixed = Nothing
If _GLReportRows.GLRows IsNot Nothing Then
_GLMixed = TryCast(_GLReportRows.GLRows.GLHeader, GLMixed)
End If
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed)
End Sub
Private Sub aGLReportRows_ChangeParam_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_ChangeParam.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)()
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
If _GLReportRows IsNot Nothing Then
If _GLReportRows.GLRows IsNot Nothing Then
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLReportRows.GLRows.GLHeader.DateExecution.Year))
Else
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year))
End If
Else
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year))
End If
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
End Sub
Private Sub aGLReportRows_ChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_ChangeParam.Execute
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
Dim _GLRows As GLRows
Dim _InvoiceRows As InvoiceRows
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
Dim _GLReportRows As GLReportRows
Dim I As Long = 0
Dim _Controlling As Controlling
Dim _JobNumberObjects As JobNumberObjects
Dim _CostHolder As CostHolder
Dim _CostPlace As CostPlace
Dim _UniqueObjects As UniqueObjects
Dim _DebitChartOfAccounts As ChartOfAccounts
Dim _CreditChartOfAccounts As ChartOfAccounts
If _GLRowsCheck.Controlling IsNot Nothing Then
_Controlling = _ocur.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.Controlling.Oid), True)
If _Controlling.Children.Count > 0 Then
Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _Controlling.Name))
Exit Sub
End If
Else
_Controlling = Nothing
End If
If _GLRowsCheck.JobNumberObjects IsNot Nothing Then
_JobNumberObjects = _ocur.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.JobNumberObjects.Oid), True)
Else
_JobNumberObjects = Nothing
End If
If _GLRowsCheck.CostHolder IsNot Nothing Then
_CostHolder = _ocur.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostHolder.Oid), True)
Else
_CostHolder = Nothing
End If
If _GLRowsCheck.CostPlace IsNot Nothing Then
_CostPlace = _ocur.FindObject(Of CostPlace)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostPlace.Oid), True)
Else
_CostPlace = Nothing
End If
If _GLRowsCheck.UniqueObjects IsNot Nothing Then
_UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.UniqueObjects.Oid), True)
Else
_UniqueObjects = Nothing
End If
If _GLRowsCheck.DebitChartOfAccounts IsNot Nothing Then
_DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.DebitChartOfAccounts.Oid), True)
Else
_DebitChartOfAccounts = Nothing
End If
If _GLRowsCheck.CreditChartOfAccounts IsNot Nothing Then
_CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CreditChartOfAccounts.Oid), True)
Else
_CreditChartOfAccounts = Nothing
End If
If _DebitChartOfAccounts IsNot Nothing And _CreditChartOfAccounts IsNot Nothing Then
If _DebitChartOfAccounts.Oid = _CreditChartOfAccounts.Oid Then
Throw New Exception("*A tartozik és a követel számlaszám NEM lehet azonos !")
Exit Sub
End If
End If
_WaitFormClass.Initwork(1, 1, View.SelectedObjects.Count)
For Each _GLReportRows In View.SelectedObjects
I += 1
_WaitFormClass.DoWork()
_GLRows = _GLReportRows.GLRows
If _GLRows IsNot Nothing Then
If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling
If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects
If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder
If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace
If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects
If _DebitChartOfAccounts IsNot Nothing Then _GLRows.DebitChartOfAccounts = _DebitChartOfAccounts
If _CreditChartOfAccounts IsNot Nothing Then _GLRows.CreditChartOfAccounts = _CreditChartOfAccounts
If _GLRowsCheck.IsDateExecution = True Then _GLRows.DateExecution = _GLRowsCheck.DateExecution
_GLRows.Save()
_GLReportRows.Controlling = _GLRows.Controlling
_GLReportRows.JobNumberObjects = _GLRows.JobNumberObjects
_GLReportRows.CostHolder = _GLRows.CostHolder
_GLReportRows.CostPlace = _GLRows.CostPlace
_GLReportRows.UniqueObjects = _GLRows.UniqueObjects
_GLReportRows.Save()
End If
_InvoiceRows = _GLReportRows.InvoiceRows
If _InvoiceRows IsNot Nothing Then
If _Controlling IsNot Nothing Then _InvoiceRows.Controlling = _Controlling
If _JobNumberObjects IsNot Nothing Then _InvoiceRows.JobNumberObjects = _JobNumberObjects
If _CostHolder IsNot Nothing Then _InvoiceRows.CostHolder = _CostHolder
If _CostPlace IsNot Nothing Then _InvoiceRows.CostPlace = _CostPlace
If _UniqueObjects IsNot Nothing Then _InvoiceRows.UniqueObjects = _UniqueObjects
If _GLRowsCheck.IsDateExecution = True Then _InvoiceRows.DateExecution = _GLRowsCheck.DateExecution
_InvoiceRows.Save()
_GLReportRows.Controlling = _InvoiceRows.Controlling
_GLReportRows.JobNumberObjects = _InvoiceRows.JobNumberObjects
_GLReportRows.CostHolder = _InvoiceRows.CostHolder
_GLReportRows.CostPlace = _InvoiceRows.CostPlace
_GLReportRows.UniqueObjects = _InvoiceRows.UniqueObjects
_GLReportRows.Save()
End If
_RegistryRowsFinancialControlling = _GLReportRows.RegistryRowsFinancialControlling
If _RegistryRowsFinancialControlling IsNot Nothing Then
If _Controlling IsNot Nothing Then _RegistryRowsFinancialControlling.Controlling = _Controlling
If _JobNumberObjects IsNot Nothing Then _RegistryRowsFinancialControlling.JobNumberObjects = _JobNumberObjects
If _CostHolder IsNot Nothing Then _RegistryRowsFinancialControlling.CostHolder = _CostHolder
If _CostPlace IsNot Nothing Then _RegistryRowsFinancialControlling.CostPlace = _CostPlace
If _UniqueObjects IsNot Nothing Then _RegistryRowsFinancialControlling.UniqueObjects = _UniqueObjects
If _GLRowsCheck.IsDateExecution = True Then _RegistryRowsFinancialControlling.DateExecution = _GLRowsCheck.DateExecution
_RegistryRowsFinancialControlling.Save()
_GLReportRows.Controlling = _RegistryRowsFinancialControlling.Controlling
_GLReportRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects
_GLReportRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder
_GLReportRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace
_GLReportRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects
_GLReportRows.Save()
End If
If I Mod 100 = 0 Then _ocur.CommitChanges()
Next
_ocur.CommitChanges()
_Waitformclass.FinalWork()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
View.Refresh()
End Sub
Private Sub aGLReportRows_DivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_DivideRows.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
If _GLReportRows Is Nothing Then Exit Sub
Dim _GLRows As GLRows = _GLReportRows.GLRows
If _GLRows IsNot Nothing Then
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
_GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer)
_GLRowsDivideH.row_PartnerType = _GLRows.PartnerType
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH)
Else
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
_GLRowsDivideH.row_PartnerType = ePartnerType.eNotSet
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
End If
End If
End Sub
Private Sub aGLReportRows_DivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_DivideRows.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
If _GLReportRows Is Nothing Then Exit Sub
Dim _GLRows As GLRows = _GLReportRows.GLRows
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
If _GLRows IsNot Nothing Then
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
End If
End Sub
Private Sub aViewPCID_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRows.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
If _GLReportRows IsNot Nothing Then
If _GLReportRows.GLRows IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLRows.GLHeader.CustomersFrom, _
_GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _
_GLReportRows.ConnectInfo)
End If
If _GLReportRows.InvoiceHeader IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.InvoiceHeader.CustomersFrom, _
_GLReportRows.Customers, 0, _
_GLReportRows.ConnectInfo)
End If
If _GLReportRows.RegistryHeader IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.RegistryHeader.CustomersFrom, _
_GLReportRows.Customers, 1, _
_GLReportRows.ConnectInfo)
End If
End If
End Sub
Private Sub aViewPivotDetail_3_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_3.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRowsCostHolder))
Dim _GLReport As GLReport = Nothing
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
Else
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRowsCostHolder).GLReport
End If
End If
If _GLReport Is Nothing Then Exit Sub
If LTrim(RTrim(_Criteria <> "")) Then
_CS.BeginUpdateCriteria()
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
_CS.EndUpdateCriteria()
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRowsCostHolder_ListView_PivotDetail", _CS, True)
End If
End Sub
Private Sub aViewRegistry_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRowsCostHolder.Execute
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom
Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers
Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
End Sub
Private Sub aViewAttacments_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRowsCostHolder.Execute
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom
Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers
Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo
Dim _GLMixed As GLMixed = Nothing
If _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then
_GLMixed = TryCast(_GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader, GLMixed)
End If
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed)
End Sub
Private Sub aViewPCID_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRowsCostHolder.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder).GLReportRows
If _GLReportRows IsNot Nothing Then
If _GLReportRows.GLRows IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
_GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _
_GLReportRows.ConnectInfo)
End If
If _GLReportRows.InvoiceHeader IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
_GLReportRows.Customers, 0, _
_GLReportRows.ConnectInfo)
End If
If _GLReportRows.RegistryHeader IsNot Nothing Then
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
_GLReportRows.Customers, 1, _
_GLReportRows.ConnectInfo)
End If
End If
End Sub
Private Sub aDivide_GLReportRowsCostHolder_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDivide_GLReportRowsCostHolder.CustomizePopupWindowParams
'// Sorbontás vezetői ellenőrzésen !
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLRowsDivide As GLRowsDivide = _onew.CreateObject(Of GLRowsDivide)()
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
If _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling IsNot Nothing Then
_GLRowsDivide.AmountHUF = _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling.Amount
ElseIf _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then
Select Case _GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader.GLDocumentType
Case eGLDocumentType.eGLAccount
Case eGLDocumentType.eGLBank, eGLDocumentType.eGLCassa, eGLDocumentType.eGLCompensation, eGLDocumentType.eGLMixed
End Select
End If
e.View = Application.CreateDetailView(_onew, "GLRowsDivide_DetailView", False, _GLRowsDivide)
End Sub
Private Sub aDivide_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDivide_GLReportRowsCostHolder.Execute
'// Sorbontás vezetői ellenőrzéshez
End Sub
Private Sub Save_Executing(sender As Object, e As CancelEventArgs)
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
If View.Id Like "GLReport_DetailView" Then
Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
If _GLReport IsNot Nothing Then
Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("GLReportRows")
If _ListPropertyEditor IsNot Nothing Then
_GLReport.VariantSelectedItemID = _ListPropertyEditor.ListView.Id
End If
End If
End If
End Sub
End Class
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.Designer.vb
Generated
+31
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.vb
+65
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.vb
+89
View File
@@ -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 Nuvolar.Module
Imports DevExpress.ExpressApp.Win.Editors
Imports DevExpress.Xpo
Imports DevExpress.XtraGrid.Columns
Public Class GLRowsVC
Inherits Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.vb
+39
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.vb
+43
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.vb
+38
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.vb
+34
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.vb
+34
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.vb
+34
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb
+38
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.Designer.vb
Generated
+32
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.resx
+123
View File
@@ -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>
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.vb
+85
View File
@@ -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 Nuvolar.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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportCheckList.vb
+68
View File
@@ -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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb
Generated
+57
View File
@@ -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(Nuvolar.[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(Nuvolar.[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
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx
+129
View File
@@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="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>
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
+1547
View File
File diff suppressed because it is too large Load Diff