First create solution
This commit is contained in:
+35
@@ -0,0 +1,35 @@
|
||||
Partial Class GLAccountsVC
|
||||
|
||||
<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()
|
||||
'
|
||||
'GLAccountsVC
|
||||
'
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+123
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+197
@@ -0,0 +1,197 @@
|
||||
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.Win.SystemModule
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Xpo
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.XtraEditors
|
||||
|
||||
Public Class GLAccountsVC
|
||||
Inherits Nuvolar.Module.GLAccountsVC
|
||||
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()
|
||||
If View.Id = "GLAccounts_DetailView" Or View.Id = "GLAccounts_GLRows_ListView" Then
|
||||
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = DevExpress.ExpressApp.SystemModule.ModificationsHandlingMode.AutoRollback
|
||||
End If
|
||||
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
|
||||
Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
|
||||
End If
|
||||
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
|
||||
AddHandler View.ControlsCreated, AddressOf View_Controlcreated
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
|
||||
Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
|
||||
End If
|
||||
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 = "GLAccounts_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
|
||||
Dim gridView As GridView = TryCast(sender, GridView)
|
||||
If View Is Nothing Then Exit Sub
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
|
||||
If _GLAccounts Is Nothing Then
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
If _GLAccounts.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
ElseIf View.SelectedObjects.Count > 1 Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub View_Controlcreated(sender As Object, e As EventArgs)
|
||||
'If View.Id = "GLAccounts_DetailView" Or View.Id = "GLCassa_DetailView" Or View.Id = "GLBank_DetailView" Or View.Id = "GLCompensation_DetailView" Or View.Id = "GLMixed_DetailView" Then
|
||||
' Dim _row_NoteRows As ViewItem = TryCast(View, DetailView).FindItem("row_NoteRows")
|
||||
' Dim _NoteHeader As ViewItem = TryCast(View, DetailView).FindItem("NoteHeader")
|
||||
|
||||
' Dim _StringComboUserControl As StringComboUserControl
|
||||
' Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
' If _row_NoteRows IsNot Nothing Then
|
||||
' _StringComboUserControl = TryCast(_row_NoteRows.Control, StringComboUserControl)
|
||||
' If _StringComboUserControl IsNot Nothing Then
|
||||
' '//------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session)
|
||||
' Dim query = From _DocumentNote In _DocumentNote_xpquery _
|
||||
' Where _DocumentNote.IsActive = True
|
||||
' Select New With {Key .NoteRows = _DocumentNote.ShortName}
|
||||
' For Each item In query
|
||||
' _StringComboUserControl.ComboBoxEdit1.Properties.Items.Add(item.NoteRows)
|
||||
' Next
|
||||
' '--------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' AddHandler _StringComboUserControl.ComboBoxEdit1.KeyDown, AddressOf StringComboUserControl_KeyDown
|
||||
|
||||
' End If
|
||||
' End If
|
||||
' If _NoteHeader IsNot Nothing Then
|
||||
' _StringComboUserControl = TryCast(_NoteHeader.Control, StringComboUserControl)
|
||||
' If _StringComboUserControl IsNot Nothing Then
|
||||
' '//------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session)
|
||||
' Dim query = From _DocumentNote In _DocumentNote_xpquery _
|
||||
' Where _DocumentNote.IsActive = True
|
||||
' Select New With {Key .NoteHeader = _DocumentNote.ShortName}
|
||||
' For Each item In query
|
||||
' _StringComboUserControl.ComboBoxEdit1.Properties.Items.Add(item.NoteHeader)
|
||||
' Next
|
||||
' '--------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' AddHandler _StringComboUserControl.ComboBoxEdit1.KeyDown, AddressOf StringComboUserControl_KeyDown
|
||||
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
If View.Id = "GLAccounts_DetailView" Or View.Id = "GLCassa_DetailView" Or View.Id = "GLBank_DetailView" Or View.Id = "GLCompensation_DetailView" Or View.Id = "GLMixed_DetailView" Then
|
||||
Dim _row_NoteRows As ViewItem = TryCast(View, DetailView).FindItem("row_NoteRows")
|
||||
Dim _NoteHeader As ViewItem = TryCast(View, DetailView).FindItem("NoteHeader")
|
||||
|
||||
Dim _ComboBoxEdit As ComboBoxEdit
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
If _row_NoteRows IsNot Nothing Then
|
||||
_ComboBoxEdit = TryCast(_row_NoteRows.Control, ComboBoxEdit)
|
||||
If _ComboBoxEdit IsNot Nothing Then
|
||||
'//------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session)
|
||||
Dim query = From _DocumentNote In _DocumentNote_xpquery _
|
||||
Where _DocumentNote.IsActive = True
|
||||
Select New With {Key .NoteRows = _DocumentNote.ShortName}
|
||||
For Each item In query
|
||||
_ComboBoxEdit.Properties.Items.Add(item.NoteRows)
|
||||
Next
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
AddHandler _ComboBoxEdit.KeyDown, AddressOf StringComboUserControl_KeyDown
|
||||
|
||||
End If
|
||||
End If
|
||||
If _NoteHeader IsNot Nothing Then
|
||||
_ComboBoxEdit = TryCast(_NoteHeader.Control, ComboBoxEdit)
|
||||
If _ComboBoxEdit IsNot Nothing Then
|
||||
'//------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session)
|
||||
Dim query = From _DocumentNote In _DocumentNote_xpquery _
|
||||
Where _DocumentNote.IsActive = True
|
||||
Select New With {Key .NoteHeader = _DocumentNote.ShortName}
|
||||
For Each item In query
|
||||
_ComboBoxEdit.Properties.Items.Add(item.NoteHeader)
|
||||
Next
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
AddHandler _ComboBoxEdit.KeyDown, AddressOf StringComboUserControl_KeyDown
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub StringComboUserControl_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs)
|
||||
If e.KeyCode = System.Windows.Forms.Keys.F12 Then
|
||||
'// Kell egy mentés
|
||||
If TryCast(sender, DevExpress.XtraEditors.ComboBoxEdit) IsNot Nothing Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _DocumentNote As DocumentNote = Nothing
|
||||
Dim _ShortName As String = TryCast(sender, DevExpress.XtraEditors.ComboBoxEdit).Text
|
||||
|
||||
_DocumentNote = _onew.FindObject(Of DocumentNote)(CriteriaOperator.Parse("ShortName=?", _ShortName))
|
||||
If _DocumentNote Is Nothing Then
|
||||
_DocumentNote = _onew.CreateObject(Of DocumentNote)()
|
||||
_DocumentNote.ShortName = _ShortName
|
||||
_DocumentNote.IsActive = True
|
||||
_onew.CommitChanges()
|
||||
End If
|
||||
End If
|
||||
e.Handled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class AssetsPCIVC
|
||||
|
||||
<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
|
||||
+30
@@ -0,0 +1,30 @@
|
||||
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 AssetsPCIVC
|
||||
Inherits Nuvolar.Module.AssetsPCIVC
|
||||
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
|
||||
|
||||
End Class
|
||||
+114
@@ -0,0 +1,114 @@
|
||||
Partial Class BankImportVC
|
||||
|
||||
<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.aBankImport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateGLBankRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGLBankImportsDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreateGLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalGLBank_Import = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aBankImport
|
||||
'
|
||||
Me.aBankImport.Caption = "Bank import"
|
||||
Me.aBankImport.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aBankImport.Id = "aBankImport"
|
||||
Me.aBankImport.ImageName = Nothing
|
||||
Me.aBankImport.Shortcut = Nothing
|
||||
Me.aBankImport.Tag = Nothing
|
||||
Me.aBankImport.TargetObjectsCriteria = Nothing
|
||||
Me.aBankImport.TargetViewId = "BankImportHeader_DetailView"
|
||||
Me.aBankImport.ToolTip = Nothing
|
||||
Me.aBankImport.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateGLBankRows
|
||||
'
|
||||
Me.aCreateGLBankRows.AcceptButtonCaption = Nothing
|
||||
Me.aCreateGLBankRows.CancelButtonCaption = Nothing
|
||||
Me.aCreateGLBankRows.Caption = "aCreate GLBank Rows"
|
||||
Me.aCreateGLBankRows.ConfirmationMessage = Nothing
|
||||
Me.aCreateGLBankRows.Id = "aCreateGLBankRows"
|
||||
Me.aCreateGLBankRows.ImageName = Nothing
|
||||
Me.aCreateGLBankRows.Shortcut = Nothing
|
||||
Me.aCreateGLBankRows.Tag = Nothing
|
||||
Me.aCreateGLBankRows.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateGLBankRows.TargetViewId = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView"
|
||||
Me.aCreateGLBankRows.ToolTip = Nothing
|
||||
Me.aCreateGLBankRows.TypeOfView = Nothing
|
||||
'
|
||||
'aGLBankImportsDivideRows
|
||||
'
|
||||
Me.aGLBankImportsDivideRows.AcceptButtonCaption = Nothing
|
||||
Me.aGLBankImportsDivideRows.CancelButtonCaption = Nothing
|
||||
Me.aGLBankImportsDivideRows.Caption = "Divide rows"
|
||||
Me.aGLBankImportsDivideRows.ConfirmationMessage = Nothing
|
||||
Me.aGLBankImportsDivideRows.Id = "aGLBankImportsDivideRows"
|
||||
Me.aGLBankImportsDivideRows.ImageName = "index_preferences"
|
||||
Me.aGLBankImportsDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLBankImportsDivideRows.Shortcut = Nothing
|
||||
Me.aGLBankImportsDivideRows.Tag = Nothing
|
||||
Me.aGLBankImportsDivideRows.TargetObjectsCriteria = Nothing
|
||||
Me.aGLBankImportsDivideRows.TargetViewId = "BankImportHeaderSum_GLRows_ListView"
|
||||
Me.aGLBankImportsDivideRows.ToolTip = Nothing
|
||||
Me.aGLBankImportsDivideRows.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateGLRows
|
||||
'
|
||||
Me.aCreateGLRows.Caption = "Create GLRows"
|
||||
Me.aCreateGLRows.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateGLRows.Id = "aCreateGLRows"
|
||||
Me.aCreateGLRows.ImageName = Nothing
|
||||
Me.aCreateGLRows.Shortcut = Nothing
|
||||
Me.aCreateGLRows.Tag = Nothing
|
||||
Me.aCreateGLRows.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateGLRows.TargetViewId = "BankImportHeaderSum_DetailView"
|
||||
Me.aCreateGLRows.ToolTip = Nothing
|
||||
Me.aCreateGLRows.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalGLBank_Import
|
||||
'
|
||||
Me.aFinalGLBank_Import.Caption = "FinalGLBank_Import"
|
||||
Me.aFinalGLBank_Import.ConfirmationMessage = Nothing
|
||||
Me.aFinalGLBank_Import.Id = "aFinalGLBank_Import"
|
||||
Me.aFinalGLBank_Import.ImageName = Nothing
|
||||
Me.aFinalGLBank_Import.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aFinalGLBank_Import.Shortcut = Nothing
|
||||
Me.aFinalGLBank_Import.Tag = Nothing
|
||||
Me.aFinalGLBank_Import.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalGLBank_Import.TargetViewId = "BankImportHeaderSum_GLRows_ListView"
|
||||
Me.aFinalGLBank_Import.ToolTip = Nothing
|
||||
Me.aFinalGLBank_Import.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aBankImport As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateGLBankRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGLBankImportsDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreateGLRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalGLBank_Import As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+138
@@ -0,0 +1,138 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aBankImport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateGLBankRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aGLBankImportsDivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateGLRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalGLBank_Import.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>180, 134</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+557
@@ -0,0 +1,557 @@
|
||||
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 System.IO
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.Globalization
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.ExpressApp.Win.SystemModule
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
|
||||
Public Class BankImportVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub Ondeactivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub BankImportVC_ViewControlsCreated(sender As System.Object, e As System.EventArgs)
|
||||
'If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then ' Az inline edit beállítása.
|
||||
' Dim _ListView As ListView = TryCast(View, ListView)
|
||||
' Dim _GridListEditor As GridListEditor = TryCast(_ListView.Editor, GridListEditor)
|
||||
|
||||
' If _GridListEditor IsNot Nothing Then
|
||||
' _GridListEditor.AllowEdit = True
|
||||
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _GridListEditor.GridView.Columns(i).FieldName <> "ChartOfAccounts!" 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 aBankImport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBankImport.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _BankImportHeader As BankImportHeader
|
||||
Dim _BankImportHeaderSum As BankImportHeaderSum = Nothing
|
||||
Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail
|
||||
Dim _BankImportNameParameters As BankImportNameParameters
|
||||
Dim _BankInformation As BankInformation
|
||||
Dim _GLBank As GLBank
|
||||
|
||||
Dim _BIH As BankImportHeader = TryCast(View.SelectedObjects(0), BankImportHeader)
|
||||
_BIH.Save()
|
||||
View.ObjectSpace.CommitChanges()
|
||||
_BankImportHeader = _uow.GetObjectByKey(Of BankImportHeader)(_BIH.Oid)
|
||||
|
||||
Dim _MemoryStream As New MemoryStream
|
||||
Dim _StreamReader As StreamReader
|
||||
Dim _Line As String
|
||||
Dim _LineCount As Int32
|
||||
|
||||
For Each _BankImportHeaderSum In _BankImportHeader.BankImportHeaderSum
|
||||
If _BankImportHeaderSum.GLBank IsNot Nothing Then
|
||||
If _BankImportHeaderSum.GLBank.IsEditable = False Then
|
||||
Throw New Exception("*Nem lehet véglegesített kivonatot feldolgozni !")
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _BankImportHeaderSum In _BankImportHeader.BankImportHeaderSum
|
||||
If _BankImportHeaderSum.GLBank IsNot Nothing Then
|
||||
_GLBank = _uow.FindObject(Of GLBank)(CriteriaOperator.Parse("Oid=?", _BankImportHeaderSum.GLBank.Oid))
|
||||
_uow.Delete(_GLBank.GLRows)
|
||||
_GLBank.BankImportHeaderSum = Nothing
|
||||
_GLBank.Save()
|
||||
_uow.Delete(_GLBank)
|
||||
End If
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
|
||||
Dim _BankImportHeaderSumDetail_Collection As New XPCollection(_uow, GetType(BankImportHeaderSumDetail), _
|
||||
CriteriaOperator.Parse("BankImportHeader.Oid=?", _BankImportHeader.Oid))
|
||||
_uow.Delete(_BankImportHeaderSumDetail_Collection)
|
||||
_uow.CommitChanges()
|
||||
|
||||
Dim _BankImportHeaderSum_Collection As New XPCollection(_uow, GetType(BankImportHeaderSum), _
|
||||
CriteriaOperator.Parse("BankImportHeader.Oid=?", _BankImportHeader.Oid))
|
||||
_uow.Delete(_BankImportHeaderSum_Collection)
|
||||
_uow.CommitChanges()
|
||||
|
||||
_BankImportHeader.FileData.SaveToStream(_MemoryStream)
|
||||
_MemoryStream.Position = 0
|
||||
_StreamReader = New StreamReader(_MemoryStream, System.Text.Encoding.Default) ' Esetleg: System.Text.Encoding.GetEncoding(1250)
|
||||
|
||||
Do While _StreamReader.Peek <> -1
|
||||
_Line = _StreamReader.ReadLine
|
||||
_LineCount = _LineCount + 1
|
||||
Loop
|
||||
_MemoryStream.Position = 0
|
||||
_StreamReader = New StreamReader(_MemoryStream, System.Text.Encoding.Default) ' Esetleg: System.Text.Encoding.GetEncoding(1250)
|
||||
|
||||
_WaitFormClass.Initwork(1, 1, _LineCount)
|
||||
Do While _StreamReader.Peek <> -1
|
||||
_WaitFormClass.DoWork()
|
||||
_Line = _StreamReader.ReadLine
|
||||
|
||||
If Left(_Line, 2) = "11" Then
|
||||
_BankImportHeaderSum = New BankImportHeaderSum(_uow)
|
||||
_GLBank = New GLBank(_uow)
|
||||
|
||||
_BankImportHeaderSum.BankImportHeader = _BankImportHeader
|
||||
|
||||
_BankImportHeaderSum.DateOpen = Convert.ToDateTime(_Line.Substring(85, 4) & "." & _Line.Substring(89, 2) & "." & _Line.Substring(91, 2)) 'Nyitó dátum
|
||||
_BankImportHeaderSum.DateClose = Convert.ToDateTime(_Line.Substring(93, 4) & "." & _Line.Substring(97, 2) & "." & _Line.Substring(100, 2)) 'Záró dátum
|
||||
_BankImportHeaderSum.AccountNumber = _Line.Substring(10, 24) 'Bankszámlaszám amire a kivonat szól (saját számláink egyike)
|
||||
_BankImportHeaderSum.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _Line.Substring(34, 3))) 'Deviza
|
||||
_BankImportHeaderSum.AmountOpen = Convert.ToDouble(_Line.Substring(101, 17)) + (Convert.ToDouble(_Line.Substring(118, 2)) / 100) 'Nyitó összeg
|
||||
_BankImportHeaderSum.AmountClose = Convert.ToDouble(_Line.Substring(120, 17)) + (Convert.ToDouble(_Line.Substring(136, 2)) / 100) 'Záró összeg
|
||||
_BankImportHeaderSum.DocumentNumber = _Line.Substring(2, 8).Trim 'Kiovnat száma
|
||||
_BankInformation = _uow.FindObject(Of BankInformation)(CriteriaOperator.Parse("AccountNumber=?", Left(_BankImportHeaderSum.AccountNumber, 8) & "-" & _
|
||||
_BankImportHeaderSum.AccountNumber.Substring(8, 8) & "-" & _BankImportHeaderSum.AccountNumber.Substring(16, 8)))
|
||||
Try
|
||||
_BankImportHeaderSum.LiquidAssets = _BankInformation.LiquidAssests ' Saját pénzeszközünk
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
_GLBank.BankImportHeaderSum = _BankImportHeaderSum
|
||||
_GLBank.CurrencyName = _BankImportHeaderSum.CurrencyName
|
||||
_GLBank.CustomersFrom = _BankInformation.LiquidAssests.CustomerFrom
|
||||
_GLBank.DocumentNumber = _BankImportHeaderSum.DocumentNumber
|
||||
_GLBank.DateExecution = _BankImportHeaderSum.DateOpen
|
||||
_GLBank.DateCreated = _BankImportHeaderSum.DateOpen
|
||||
_GLBank.DatePayment = _BankImportHeaderSum.DateOpen
|
||||
_GLBank.NoteHeader = _BankImportHeader.FileData.FileName 'Fájl neve, melyikbõl töltötte be
|
||||
_GLBank.LiquidAssets_Main = _BankInformation.LiquidAssests
|
||||
|
||||
_BankImportHeaderSum.Save()
|
||||
_GLBank.Save()
|
||||
End If
|
||||
|
||||
If Left(_Line, 2) = "12" Then
|
||||
_BankImportHeaderSumDetail = New BankImportHeaderSumDetail(_uow)
|
||||
_BankImportHeaderSumDetail.BankImportHeader = _BankImportHeader
|
||||
_BankImportHeaderSumDetail.BankImportHeaderSum = _BankImportHeaderSum
|
||||
'_BankImportHeaderSumDetail.NoteRow = _Line.Substring(356, 140).Trim
|
||||
_BankImportHeaderSumDetail.NoteRow = _Line.Substring(356, 35).Trim & " " & _Line.Substring(391, 35).Trim & " " & _Line.Substring(426, 35).Trim & " " & _Line.Substring(461, 35).Trim
|
||||
|
||||
Try
|
||||
_BankImportHeaderSumDetail.CreditAmount = Convert.ToDouble(_Line.Substring(851, 14)) + Convert.ToDouble(_Line.Substring(865, 2) / 100)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Try
|
||||
_BankImportHeaderSumDetail.DebitAmount = Convert.ToDouble(_Line.Substring(902, 14)) + Convert.ToDouble(_Line.Substring(916, 2) / 100)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
If _BankImportHeaderSumDetail.CreditAmount <> 0 Then
|
||||
_BankImportHeaderSumDetail.PartnerString = _Line.Substring(182, 35).Trim & " " & _Line.Substring(218, 35).Trim & " " & _Line.Substring(252, 35).Trim & " " & _Line.Substring(287, 35).Trim
|
||||
_BankImportHeaderSumDetail.AccountNumber = _Line.Substring(322, 34).Trim
|
||||
Else
|
||||
_BankImportHeaderSumDetail.PartnerString = _Line.Substring(636, 35).Trim & " " & _Line.Substring(671, 35).Trim & " " & _Line.Substring(706, 35).Trim & " " & _Line.Substring(741, 35).Trim
|
||||
_BankImportHeaderSumDetail.AccountNumber = _Line.Substring(776, 34).Trim
|
||||
End If
|
||||
|
||||
If IsNumeric(_BankImportHeaderSumDetail.AccountNumber) Then
|
||||
_BankImportHeaderSumDetail.AccountNumber = _BankImportHeaderSumDetail.AccountNumber.PadRight(24, "0")
|
||||
_BankImportHeaderSumDetail.AccountNumber = Left(_BankImportHeaderSumDetail.AccountNumber, 8) & "-" & _BankImportHeaderSumDetail.AccountNumber.Substring(8, 8) & "-" & _BankImportHeaderSumDetail.AccountNumber.Substring(16)
|
||||
End If
|
||||
|
||||
_BankImportHeaderSumDetail.Save()
|
||||
|
||||
If _BankImportHeaderSumDetail.AccountNumber.Trim.Length = 0 Then
|
||||
_BankImportNameParameters = _uow.FindObject(Of BankImportNameParameters)(CriteriaOperator.Parse("NoteRow=?", _BankImportHeaderSumDetail.NoteRow))
|
||||
If _BankImportNameParameters Is Nothing Then
|
||||
|
||||
_BankImportNameParameters = New BankImportNameParameters(_uow)
|
||||
|
||||
_BankImportNameParameters.NoteRow = _BankImportHeaderSumDetail.NoteRow
|
||||
'_BankImportNameParameters.ChartOfAccounts =
|
||||
'_BankImportNameParameters.Controlling =
|
||||
|
||||
_BankImportNameParameters.Save()
|
||||
_uow.CommitChanges()
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Loop
|
||||
_uow.CommitChanges()
|
||||
_Waitformclass.FinalWork()
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
|
||||
End Sub
|
||||
Private Sub aCreateGLBankRows_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateGLBankRows.CustomizePopupWindowParams
|
||||
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
|
||||
Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail = _onew.GetObjectByKey(Of BankImportHeaderSumDetail)(TryCast(View.SelectedObjects(0), BankImportHeaderSumDetail).Oid)
|
||||
Dim _BankImportPopup As New BankImportPopup(_onew.Session)
|
||||
'Az AccountNumber tagolva van tárolva a táblában?
|
||||
Dim _CustomerBankAccounts As CustomerBankAccounts = _onew.FindObject(Of CustomerBankAccounts)(CriteriaOperator.Parse("AccountNumber=?", _BankImportHeaderSumDetail.AccountNumber))
|
||||
|
||||
If _CustomerBankAccounts IsNot Nothing Then
|
||||
_BankImportPopup.Customers = _CustomerBankAccounts.Customers
|
||||
End If
|
||||
_BankImportPopup.NoteRows = _BankImportHeaderSumDetail.NoteRow
|
||||
If _BankImportHeaderSumDetail.BankImportHeaderSum.CurrencyName.ShortName = "HUF" Then
|
||||
If _BankImportHeaderSumDetail.CreditAmount <> 0 Then
|
||||
_BankImportPopup.AmountHUF = _BankImportHeaderSumDetail.CreditAmount
|
||||
End If
|
||||
If _BankImportHeaderSumDetail.DebitAmount <> 0 Then
|
||||
_BankImportPopup.AmountHUF = _BankImportHeaderSumDetail.DebitAmount
|
||||
End If
|
||||
Else
|
||||
If _BankImportHeaderSumDetail.CreditAmount <> 0 Then
|
||||
_BankImportPopup.AmountDEV = _BankImportHeaderSumDetail.CreditAmount
|
||||
End If
|
||||
If _BankImportHeaderSumDetail.DebitAmount <> 0 Then
|
||||
_BankImportPopup.AmountDEV = _BankImportHeaderSumDetail.DebitAmount
|
||||
End If
|
||||
End If
|
||||
|
||||
'_BankImportPopup.TransactionType
|
||||
'ChartOfAccounts As ChartOfAccounts
|
||||
'Controlling As Controlling
|
||||
'ConnectInfo As String
|
||||
'CurrencyName2 As CurrencyName
|
||||
'_BankImportPopup.PCIGroup = ????
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, _BankImportPopup, False)
|
||||
End Sub
|
||||
Private Sub aCreateGLBankRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateGLBankRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail = _ocur.GetObject(TryCast(View.SelectedObjects(0), BankImportHeaderSumDetail))
|
||||
Dim _BankImportPopup As BankImportPopup = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), BankImportPopup))
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = _ocur.GetObject(TryCast(_BankImportPopup.ChartOfAccounts, ChartOfAccounts))
|
||||
|
||||
Dim _GLRows As GLRows
|
||||
' Dim _BankImportNameParameters As BankImportNameParameters
|
||||
|
||||
_GLRows = New GLRows(_ocur.Session)
|
||||
|
||||
'_GLRows.GLHeader = _BankImportHeaderSumDetail.BankImportHeaderSum.GLBank
|
||||
|
||||
If _BankImportPopup.TransactionType = eTransactionType.eNormalCredit Or _BankImportPopup.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.CreditChartOfAccounts = _ChartOfAccounts
|
||||
_GLRows.DebitChartOfAccounts = _BankImportPopup.Customers.CustomersGLParameters.GetChartOfAccounts(_BankImportHeaderSumDetail.BankImportHeaderSum.GLBank.DateExecution.Year, eVATMode.eIn)
|
||||
End If
|
||||
If _BankImportPopup.TransactionType = eTransactionType.eNormalCredit Or _BankImportPopup.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.CreditChartOfAccounts = _BankImportPopup.Customers.CustomersGLParameters.GetChartOfAccounts(_BankImportHeaderSumDetail.BankImportHeaderSum.GLBank.DateExecution.Year, eVATMode.eOut)
|
||||
_GLRows.DebitChartOfAccounts = _ChartOfAccounts
|
||||
End If
|
||||
|
||||
_GLRows.AmountDEV = _BankImportPopup.AmountDEV
|
||||
_GLRows.AmountHUF = _BankImportPopup.AmountHUF
|
||||
_GLRows.Controlling = _BankImportPopup.Controlling
|
||||
_GLRows.ConnectInfo = _BankImportPopup.ConnectInfo
|
||||
|
||||
_GLRows.Save()
|
||||
|
||||
|
||||
'_BankImportNameParameters = _ocur.FindObject(Of BankImportNameParameters)(CriteriaOperator.Parse("NoteRow=?", _BankImportPopup.NoteRows))
|
||||
'If _BankImportNameParameters Is Nothing Then
|
||||
' _BankImportNameParameters = New BankImportNameParameters(_ocur.Session)
|
||||
|
||||
' _BankImportNameParameters.NoteRow = _BankImportPopup.NoteRows
|
||||
' _BankImportNameParameters.ChartOfAccounts = _ChartOfAccounts
|
||||
' _BankImportNameParameters.Controlling = _BankImportPopup.Controlling
|
||||
|
||||
' _BankImportNameParameters.Save()
|
||||
'End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
'Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
|
||||
End Sub
|
||||
Private Sub aCreateGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateGLRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _BankImportHeaderSum As BankImportHeaderSum = _uow.GetObjectByKey(Of BankImportHeaderSum)(TryCast(View.SelectedObjects(0), BankImportHeaderSum).Oid)
|
||||
Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail
|
||||
Dim _GLRows As GLRows
|
||||
'Dim _Customers As Customers
|
||||
Dim _BankImportNameParameters As BankImportNameParameters
|
||||
Dim _CustomerBankAccounts As CustomerBankAccounts
|
||||
Dim _CustomersGLParameters As CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("1=1")) 'Az utolsó elemet kapjuk meg a táblából. A ChartofAccountNo mindig ugyan az!
|
||||
|
||||
_WaitFormClass.Initwork(1, 1, _BankImportHeaderSum.BankImportHeaderSumDetail.Count)
|
||||
For Each _BankImportHeaderSumDetail In _BankImportHeaderSum.BankImportHeaderSumDetail
|
||||
|
||||
_WaitFormClass.DoWork()
|
||||
_GLRows = New GLRows(_uow)
|
||||
_GLRows.GLHeader = _BankImportHeaderSum.GLBank
|
||||
|
||||
If _BankImportHeaderSumDetail.AccountNumber IsNot Nothing Then 'Valószínûleg beazonosítható a tranzakcióhoz tartozó partner
|
||||
|
||||
_CustomerBankAccounts = _uow.FindObject(Of CustomerBankAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
|
||||
CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
|
||||
_BankImportHeaderSumDetail.AccountNumber, _GLRows.GLHeader.DateExecution.Year))
|
||||
If _CustomerBankAccounts IsNot Nothing Then ' Sikerült a beazonosítás
|
||||
_GLRows.Customer = _CustomerBankAccounts.Customers
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLRows.Customer Is Nothing Then 'Nem sikerült partnert azonosítani
|
||||
If _BankImportHeaderSumDetail.CreditAmount <> 0 Then
|
||||
_GLRows.TransactionType = eTransactionType.eNormalCredit 'Követel típusú tranzakció lesz
|
||||
|
||||
_GLRows.DebitChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Tartozik a bank(számla)
|
||||
_GLRows.CreditChartOfAccounts = _CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) 'Követel az elszámolási számla
|
||||
'_GLRows.CreditChartOfAccounts = _Customers.CustomersGLParameters.ChartOfAccountsNo
|
||||
|
||||
End If
|
||||
If _BankImportHeaderSumDetail.DebitAmount <> 0 Then 'Tartozik típusú tranzakció lesz
|
||||
_GLRows.TransactionType = eTransactionType.eNormalDebit
|
||||
|
||||
'_GLRows.DebitChartOfAccounts = _Customers.CustomersGLParameters.ChartOfAccountsNo
|
||||
_GLRows.DebitChartOfAccounts = _CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) 'Tartozik az elszámolási számla
|
||||
_GLRows.CreditChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Követel a bank(számla)
|
||||
|
||||
End If
|
||||
|
||||
_GLRows.PartnerType = ePartnerType.eNotSet 'Ha nincs beazonosított partner, akkor így kell beállítani??????
|
||||
_GLRows.CashType = eCashType.eNormal
|
||||
Else 'Van azonosított partnerünk
|
||||
If _BankImportHeaderSumDetail.CreditAmount <> 0 Then
|
||||
_GLRows.TransactionType = eTransactionType.ePartnerCredit 'Követel típusú tranzakció
|
||||
_GLRows.PartnerType = ePartnerType.eReceivables 'Vevõi számla
|
||||
|
||||
_GLRows.DebitChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Tartozik a bank(számla)
|
||||
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) 'Követel a partnerhez tartozó számla
|
||||
|
||||
End If
|
||||
If _BankImportHeaderSumDetail.DebitAmount <> 0 Then
|
||||
_GLRows.TransactionType = eTransactionType.ePartnerDebit 'Tartozik típusú tranzakció
|
||||
_GLRows.PartnerType = ePartnerType.ePayabels 'Szállítói számla
|
||||
|
||||
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) 'Tartozik a partnerhez tartozó számla
|
||||
_GLRows.CreditChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Követel a bank(számla)
|
||||
|
||||
End If
|
||||
|
||||
_GLRows.CashType = eCashType.ePartner
|
||||
End If
|
||||
|
||||
If _BankImportHeaderSum.CurrencyName.ShortName = "HUF" Then 'Forintos tranzakció
|
||||
If _BankImportHeaderSumDetail.CreditAmount <> 0 Then 'Követel
|
||||
_GLRows.AmountHUF = _BankImportHeaderSumDetail.CreditAmount
|
||||
_GLRows.InAmountHUF = _BankImportHeaderSumDetail.CreditAmount
|
||||
Else
|
||||
_GLRows.AmountHUF = _BankImportHeaderSumDetail.DebitAmount
|
||||
_GLRows.OutAmountHUF = _BankImportHeaderSumDetail.DebitAmount
|
||||
End If
|
||||
Else 'Devizás tranzakció
|
||||
If _BankImportHeaderSumDetail.CreditAmount <> 0 Then
|
||||
_GLRows.AmountDEV = _BankImportHeaderSumDetail.CreditAmount 'Követel
|
||||
_GLRows.InAmountDEV = _BankImportHeaderSumDetail.CreditAmount
|
||||
Else
|
||||
_GLRows.AmountDEV = _BankImportHeaderSumDetail.DebitAmount
|
||||
_GLRows.OutAmountDEV = _BankImportHeaderSumDetail.DebitAmount
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
_GLRows.LiquidAssets = _BankImportHeaderSum.LiquidAssets
|
||||
_GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow
|
||||
_GLRows.GLRowsGUID = Guid.NewGuid
|
||||
'_GLRows.ConnectInfo = _BankImportHeaderSumDetail.NoteRow
|
||||
_GLRows.NoteRows = _BankImportHeaderSumDetail.NoteRow
|
||||
_GLRows.BankImportHeaderSumDetail = _BankImportHeaderSumDetail
|
||||
|
||||
|
||||
'_GLRows.Save()
|
||||
|
||||
If _BankImportHeaderSumDetail.AccountNumber.Trim.Length = 0 Then
|
||||
_BankImportNameParameters = _uow.FindObject(Of BankImportNameParameters)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("NoteRow=?", _BankImportHeaderSumDetail.NoteRow))
|
||||
If _BankImportNameParameters Is Nothing Then
|
||||
|
||||
_BankImportNameParameters = New BankImportNameParameters(_uow)
|
||||
|
||||
_BankImportNameParameters.NoteRow = _BankImportHeaderSumDetail.NoteRow
|
||||
'_BankImportNameParameters.ChartOfAccounts =
|
||||
'_BankImportNameParameters.Controlling =
|
||||
|
||||
' _BankImportNameParameters.Save()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
_Waitformclass.FinalWork()
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
|
||||
End Sub
|
||||
Private Sub aFinalGLBank_Import_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalGLBank_Import.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
'Dim _BankImportHeaderSum As BankImportHeaderSum = _ocur.GetObject(TryCast(View.SelectedObjects(0), BankImportHeaderSum))
|
||||
Dim _GLRows As GLRows = _ocur.GetObject(TryCast(View.SelectedObjects(0), GLRows))
|
||||
|
||||
_GLRows.BankImportHeaderSumDetail.BankImportHeaderSum.GLBank.IsEditable = False
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Windows.Forms.MessageBox.Show("Az aktuális banki kivonathoz tartozó fõkönyvi bejegyzés végledesítésre került.")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub aGLBankImportsDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBankImportsDivideRows.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), 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
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLBankImportsDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLBankImportsDivideRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+31
@@ -0,0 +1,31 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<NonPersistent()> _
|
||||
Public Class BankNoTransferPopup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<RuleRequiredField("BankNoTransferPopup-Description", DefaultContexts.Save), Size(255)> Property Description As String
|
||||
End Class
|
||||
+205
@@ -0,0 +1,205 @@
|
||||
Partial Class BankVC
|
||||
<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.aSaveElectraDEV = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aSaveElectraHUF = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aBackFromPackage = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBankDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aBankMerge = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttachments_Bank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBankPrepareName = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aBankNoTransfer = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aViewPDCI_Bank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aSaveElectraDEV
|
||||
'
|
||||
Me.aSaveElectraDEV.AcceptButtonCaption = Nothing
|
||||
Me.aSaveElectraDEV.CancelButtonCaption = Nothing
|
||||
Me.aSaveElectraDEV.Caption = "Save electra format DEV"
|
||||
Me.aSaveElectraDEV.Id = "aSaveElectraDEV"
|
||||
Me.aSaveElectraDEV.ImageName = "Action_Export_ToText"
|
||||
Me.aSaveElectraDEV.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aSaveElectraDEV.Shortcut = Nothing
|
||||
Me.aSaveElectraDEV.Tag = Nothing
|
||||
Me.aSaveElectraDEV.TargetObjectsCriteria = Nothing
|
||||
Me.aSaveElectraDEV.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered"
|
||||
Me.aSaveElectraDEV.ToolTip = Nothing
|
||||
Me.aSaveElectraDEV.TypeOfView = Nothing
|
||||
'
|
||||
'aSaveElectraHUF
|
||||
'
|
||||
Me.aSaveElectraHUF.AcceptButtonCaption = Nothing
|
||||
Me.aSaveElectraHUF.CancelButtonCaption = Nothing
|
||||
Me.aSaveElectraHUF.Caption = "Save electra format HUF"
|
||||
Me.aSaveElectraHUF.Id = "aSaveElectraHUF"
|
||||
Me.aSaveElectraHUF.ImageName = "Action_Export_ToText"
|
||||
Me.aSaveElectraHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aSaveElectraHUF.Shortcut = Nothing
|
||||
Me.aSaveElectraHUF.Tag = Nothing
|
||||
Me.aSaveElectraHUF.TargetObjectsCriteria = Nothing
|
||||
Me.aSaveElectraHUF.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered"
|
||||
Me.aSaveElectraHUF.ToolTip = Nothing
|
||||
Me.aSaveElectraHUF.TypeOfView = Nothing
|
||||
'
|
||||
'aBackFromPackage
|
||||
'
|
||||
Me.aBackFromPackage.Caption = "Back From Package"
|
||||
Me.aBackFromPackage.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aBackFromPackage.Id = "aBackFromPackage"
|
||||
Me.aBackFromPackage.ImageName = "import1"
|
||||
Me.aBackFromPackage.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBackFromPackage.Shortcut = Nothing
|
||||
Me.aBackFromPackage.Tag = Nothing
|
||||
Me.aBackFromPackage.TargetObjectsCriteria = Nothing
|
||||
Me.aBackFromPackage.TargetViewId = "RegistryBankTransfer_ListView_Transfered"
|
||||
Me.aBackFromPackage.ToolTip = Nothing
|
||||
Me.aBackFromPackage.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry
|
||||
'
|
||||
Me.aViewRegistry.Caption = "View registry"
|
||||
Me.aViewRegistry.Category = "View"
|
||||
Me.aViewRegistry.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry.Id = "aViewRegistry"
|
||||
Me.aViewRegistry.ImageName = "document_pinned"
|
||||
Me.aViewRegistry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry.Shortcut = Nothing
|
||||
Me.aViewRegistry.Tag = Nothing
|
||||
Me.aViewRegistry.TargetObjectsCriteria = Nothing
|
||||
Me.aViewRegistry.TargetViewId = ""
|
||||
Me.aViewRegistry.ToolTip = Nothing
|
||||
Me.aViewRegistry.TypeOfView = Nothing
|
||||
'
|
||||
'aBankDivide
|
||||
'
|
||||
Me.aBankDivide.AcceptButtonCaption = Nothing
|
||||
Me.aBankDivide.CancelButtonCaption = Nothing
|
||||
Me.aBankDivide.Caption = "Divide rows"
|
||||
Me.aBankDivide.Category = "RecordEdit"
|
||||
Me.aBankDivide.ConfirmationMessage = Nothing
|
||||
Me.aBankDivide.Id = "aBankDivide"
|
||||
Me.aBankDivide.ImageName = "row_add_after"
|
||||
Me.aBankDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBankDivide.Shortcut = Nothing
|
||||
Me.aBankDivide.Tag = Nothing
|
||||
Me.aBankDivide.TargetObjectsCriteria = Nothing
|
||||
Me.aBankDivide.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered"
|
||||
Me.aBankDivide.ToolTip = Nothing
|
||||
Me.aBankDivide.TypeOfView = Nothing
|
||||
'
|
||||
'aBankMerge
|
||||
'
|
||||
Me.aBankMerge.Caption = "Merge rows"
|
||||
Me.aBankMerge.Category = "RecordEdit"
|
||||
Me.aBankMerge.ConfirmationMessage = "Do you want to merge the selected rows ?"
|
||||
Me.aBankMerge.Id = "aBankMerge"
|
||||
Me.aBankMerge.ImageName = "row_delete"
|
||||
Me.aBankMerge.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBankMerge.Shortcut = Nothing
|
||||
Me.aBankMerge.Tag = Nothing
|
||||
Me.aBankMerge.TargetObjectsCriteria = Nothing
|
||||
Me.aBankMerge.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered"
|
||||
Me.aBankMerge.ToolTip = Nothing
|
||||
Me.aBankMerge.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttachments_Bank
|
||||
'
|
||||
Me.aViewAttachments_Bank.Caption = "View attachments"
|
||||
Me.aViewAttachments_Bank.ConfirmationMessage = Nothing
|
||||
Me.aViewAttachments_Bank.Id = "aViewAttachments_Bank"
|
||||
Me.aViewAttachments_Bank.ImageName = "printer_view"
|
||||
Me.aViewAttachments_Bank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttachments_Bank.Shortcut = Nothing
|
||||
Me.aViewAttachments_Bank.Tag = Nothing
|
||||
Me.aViewAttachments_Bank.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttachments_Bank.TargetViewId = ""
|
||||
Me.aViewAttachments_Bank.ToolTip = Nothing
|
||||
Me.aViewAttachments_Bank.TypeOfView = Nothing
|
||||
'
|
||||
'aBankPrepareName
|
||||
'
|
||||
Me.aBankPrepareName.AcceptButtonCaption = Nothing
|
||||
Me.aBankPrepareName.CancelButtonCaption = Nothing
|
||||
Me.aBankPrepareName.Caption = "Prepare rows"
|
||||
Me.aBankPrepareName.Category = "RecordEdit"
|
||||
Me.aBankPrepareName.ConfirmationMessage = Nothing
|
||||
Me.aBankPrepareName.Id = "aBankPrepareName"
|
||||
Me.aBankPrepareName.ImageName = "BO_List"
|
||||
Me.aBankPrepareName.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBankPrepareName.Shortcut = Nothing
|
||||
Me.aBankPrepareName.Tag = Nothing
|
||||
Me.aBankPrepareName.TargetObjectsCriteria = Nothing
|
||||
Me.aBankPrepareName.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered"
|
||||
Me.aBankPrepareName.ToolTip = Nothing
|
||||
Me.aBankPrepareName.TypeOfView = Nothing
|
||||
'
|
||||
'aBankNoTransfer
|
||||
'
|
||||
Me.aBankNoTransfer.AcceptButtonCaption = Nothing
|
||||
Me.aBankNoTransfer.CancelButtonCaption = Nothing
|
||||
Me.aBankNoTransfer.Caption = "Save electra format HUF"
|
||||
Me.aBankNoTransfer.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aBankNoTransfer.Id = "aBankNoTransfer"
|
||||
Me.aBankNoTransfer.ImageName = Nothing
|
||||
Me.aBankNoTransfer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBankNoTransfer.Shortcut = Nothing
|
||||
Me.aBankNoTransfer.Tag = Nothing
|
||||
Me.aBankNoTransfer.TargetObjectsCriteria = Nothing
|
||||
Me.aBankNoTransfer.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered"
|
||||
Me.aBankNoTransfer.ToolTip = Nothing
|
||||
Me.aBankNoTransfer.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPDCI_Bank
|
||||
'
|
||||
Me.aViewPDCI_Bank.Caption = "View PDCI"
|
||||
Me.aViewPDCI_Bank.Category = "View"
|
||||
Me.aViewPDCI_Bank.ConfirmationMessage = Nothing
|
||||
Me.aViewPDCI_Bank.Id = "aViewPDCI_Bank"
|
||||
Me.aViewPDCI_Bank.ImageName = Nothing
|
||||
Me.aViewPDCI_Bank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPDCI_Bank.Shortcut = Nothing
|
||||
Me.aViewPDCI_Bank.Tag = Nothing
|
||||
Me.aViewPDCI_Bank.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPDCI_Bank.TargetViewId = ""
|
||||
Me.aViewPDCI_Bank.ToolTip = Nothing
|
||||
Me.aViewPDCI_Bank.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aSaveElectraDEV As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aSaveElectraHUF As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aBackFromPackage As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBankDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aBankMerge As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttachments_Bank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBankPrepareName As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aBankNoTransfer As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aViewPDCI_Bank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+153
@@ -0,0 +1,153 @@
|
||||
<?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="aSaveElectraDEV.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aSaveElectraHUF.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aBackFromPackage.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aBankDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aBankMerge.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttachments_Bank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aBankPrepareName.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aBankNoTransfer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPDCI_Bank.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>
|
||||
+722
@@ -0,0 +1,722 @@
|
||||
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 System.IO
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Xpo
|
||||
Imports Nuvolar.Module
|
||||
Public Class BankVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Protected _selection As ArrayList
|
||||
Protected _selection_group As ArrayList
|
||||
Protected _noselect As Boolean = False
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
_selection = New ArrayList()
|
||||
_selection_group = New ArrayList
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BankVC).aViewPDCI_Bank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
|
||||
If View.Id Like "RegistryBankTransfer_ListView*" Then
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of BankVC).aViewPDCI_Bank.Active.SetItemValue("", True)
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
If View.Id = "GLBankDivide_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "BankParameterDEV_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "RegistryBankTransfer_ListView_Not_Transfered" Then
|
||||
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of BankVC).aBankMerge.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "BankNoTransferPopup" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "RegistryBankTransfer_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
If View.Id = "GLBankDivide_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "BankParameterDEV_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "RegistryBankTransfer_ListView" Then
|
||||
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#Region "Bank save" 'Banki kommunikáció
|
||||
Private Sub DownloadToMKBHUF(ByVal _View As View, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _BankParameterDEV As BankParameterDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), BankParameterDEV)
|
||||
Dim _Bank_AccountNumber_CustomersFrom As String = _BankParameterDEV.BankInformation.AccountNumber
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer
|
||||
Dim _DocumentNumber As String
|
||||
Dim _Note As String
|
||||
Dim I As Long
|
||||
Dim _BankString As String
|
||||
Dim _Today As String
|
||||
Dim _Customers_Name As String
|
||||
Dim _CustomersFrom_Name As String
|
||||
Dim _Bank_AccountNumber_Customers As String
|
||||
Dim _Amount As String
|
||||
Dim _FileName As String
|
||||
|
||||
|
||||
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
|
||||
|
||||
'-------------------------------------------------------------------------------------------
|
||||
_Today = Format(Year(_BankParameterDEV.DateExecution), "0000")
|
||||
_Today = _Today & Format(Month(_BankParameterDEV.DateExecution), "00")
|
||||
_Today = _Today & Format(Day(_BankParameterDEV.DateExecution), "00")
|
||||
|
||||
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(0), RegistryBankTransferView).Oid)
|
||||
|
||||
If _BankParameterDEV.CustomFileName = "" Then
|
||||
_FileName = Replace(Replace(Mid(_RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName, 1, 10), ".", "_"), " ", "_") & _
|
||||
"_" & _Today & Replace(Format(Now, "hh:mm"), ":", "") & ".HUF"
|
||||
Else
|
||||
_FileName = _BankParameterDEV.CustomFileName
|
||||
End If
|
||||
|
||||
Dim _FileStream As New FileStream(_BankParameterDEV.FolderName & "/" & _FileName, FileMode.Create, FileAccess.ReadWrite)
|
||||
|
||||
Dim _StreamWriter As New StreamWriter(_FileStream, System.Text.Encoding.ASCII)
|
||||
|
||||
For I = 0 To _selection.Count - 1
|
||||
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(I), RegistryBankTransferView).Oid)
|
||||
If _RegistryBankTransfer.IsBlocked = False Then
|
||||
_CustomersFrom_Name = _RegistryBankTransfer.RegistryHeader.CustomersFrom.Name
|
||||
If _RegistryBankTransfer.RegistryHeader.Customers.Name = "" Then
|
||||
_RegistryBankTransfer.RegistryHeader.Customers.Name = _RegistryBankTransfer.RegistryHeader.Customers.FullName
|
||||
_ocur.Session.FlushChanges()
|
||||
End If
|
||||
_Customers_Name = _RegistryBankTransfer.RegistryHeader.Customers.Name
|
||||
_Bank_AccountNumber_Customers = Replace(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.AccountNumber, "-", "")
|
||||
_Bank_AccountNumber_Customers = AlignStr(_Bank_AccountNumber_Customers, eDirection.Right, "0", 24)
|
||||
_Bank_AccountNumber_Customers = AlignStr(Replace(_Bank_AccountNumber_Customers, "-", ""), 1, " ", 47)
|
||||
|
||||
'-- Letöltésre kerülő összeg !
|
||||
|
||||
_Amount = LTrim(RTrim(CStr(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountHUF), 0, MidpointRounding.AwayFromZero)))) & ",00"
|
||||
|
||||
_DocumentNumber = _RegistryBankTransfer.RegistryHeader.DocumentNumber
|
||||
_Note = _RegistryBankTransfer.Note
|
||||
_Customers_Name = AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32)
|
||||
_Amount = AlignStr(Replace(_Amount, ".", ""), 0, "0", 13)
|
||||
|
||||
_BankString = "PAYORD"
|
||||
_BankString = _BankString & "DO"
|
||||
_BankString = _BankString & "20000101000000"
|
||||
|
||||
_BankString = _BankString & Replace(AlignStr(Replace(_Bank_AccountNumber_CustomersFrom, "-", ""), 1, " ", 47), "00000000", " ")
|
||||
_BankString = _BankString & "0"
|
||||
_BankString = _BankString & ANSITo852(AlignStr(Replace(_CustomersFrom_Name, Chr(13) & Chr(10), " "), 1, " ", 32))
|
||||
_BankString = _BankString & AlignStr(" ", 0, " ", 117)
|
||||
|
||||
_BankString = _BankString & _Bank_AccountNumber_Customers
|
||||
_BankString = _BankString & "0"
|
||||
_BankString = _BankString & AlignStr(" ", 0, " ", 64)
|
||||
_BankString = _BankString & ANSITo852(AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32))
|
||||
|
||||
_BankString = _BankString & AlignStr(" ", 0, " ", 229)
|
||||
|
||||
_BankString = _BankString & ANSITo852(AlignStr(_DocumentNumber, 1, " ", 32))
|
||||
_BankString = _BankString & ANSITo852(AlignStr(_Note, 1, " ", 64))
|
||||
_BankString = _BankString & ANSITo852(AlignStr(" ", 0, " ", 6))
|
||||
|
||||
_BankString = _BankString & AlignStr(" ", 0, " ", 90)
|
||||
_BankString = _BankString & "1111"
|
||||
_BankString = _BankString & AlignStr(" ", 0, " ", 17)
|
||||
|
||||
_BankString = _BankString & "HUF"
|
||||
_BankString = _BankString & "0"
|
||||
_BankString = _BankString & AlignStr(_Amount, 0, " ", 13)
|
||||
|
||||
_BankString = _BankString & AlignStr(" ", 0, " ", 12)
|
||||
|
||||
_BankString = _BankString & AlignStr(_Today, 0, " ", 8)
|
||||
|
||||
_BankString = _BankString & AlignStr(" ", 0, " ", 95)
|
||||
|
||||
_BankString = _BankString & "00" & Chr(13) & Chr(10)
|
||||
|
||||
_StreamWriter.Write(_BankString)
|
||||
_RegistryBankTransfer.BankSavedFileName = _FileName
|
||||
_RegistryBankTransfer.Save()
|
||||
End If
|
||||
Next I
|
||||
_StreamWriter.Close()
|
||||
_BankParameterDEV.TransferTotalDEV = 0
|
||||
_BankParameterDEV.TransferCount = 0
|
||||
_BankParameterDEV.TransferTotalHUF = 0
|
||||
_BankParameterDEV.BankInformation = Nothing
|
||||
_BankParameterDEV.Save()
|
||||
e.PopupWindow.View.ObjectSpace.CommitChanges()
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub DownloadToMKBDEV(ByVal _View As View, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _BankParameterDEV As BankParameterDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), BankParameterDEV)
|
||||
Dim _Bank_AccountNumber_CustomersFrom As String
|
||||
Dim _Bank_AccountNumber_Customers As String
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer
|
||||
Dim _DocumentNumber As String
|
||||
Dim _Note As String
|
||||
Dim I As Long
|
||||
Dim _BankString As String
|
||||
Dim _Today As String
|
||||
Dim _Customers_Name As String
|
||||
Dim _CustomersFrom_Name As String
|
||||
Dim _FileName As String
|
||||
Dim _Amount As String
|
||||
|
||||
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
|
||||
|
||||
'-------------------------------------------------------------------------------------------
|
||||
_Today = Format(Year(_BankParameterDEV.DateExecution), "0000") & Format(Month(_BankParameterDEV.DateExecution), "00") & Format(Day(_BankParameterDEV.DateExecution), "00")
|
||||
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(0), RegistryBankTransferView).Oid)
|
||||
_FileName = Replace(Replace(Mid(_RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName, 1, 10), ".", "_"), " ", "_") & _
|
||||
"_" & _Today & Replace(Format(Now, "hh:mm"), ":", "") & ".DEV"
|
||||
|
||||
_CustomersFrom_Name = _RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName
|
||||
_Bank_AccountNumber_CustomersFrom = Replace(_BankParameterDEV.BankInformation.AccountNumber, "-", "")
|
||||
_Bank_AccountNumber_CustomersFrom = AlignStr(_Bank_AccountNumber_CustomersFrom, eDirection.Right, "0", 24)
|
||||
_Bank_AccountNumber_CustomersFrom = AlignStr(Replace(_Bank_AccountNumber_CustomersFrom, "-", ""), 1, " ", 47)
|
||||
|
||||
Dim _FileStream As New FileStream(_BankParameterDEV.FolderName & "/" & _FileName, FileMode.Create, FileAccess.ReadWrite)
|
||||
Dim _StreamWriter As New StreamWriter(_FileStream, System.Text.Encoding.ASCII)
|
||||
|
||||
For I = 0 To _selection.Count - 1
|
||||
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(I), RegistryBankTransferView).Oid)
|
||||
If _RegistryBankTransfer.IsBlocked = False Then
|
||||
If _RegistryBankTransfer.RegistryHeader.Customers.Name = "" Then
|
||||
_RegistryBankTransfer.RegistryHeader.Customers.Name = _RegistryBankTransfer.RegistryHeader.Customers.FullName
|
||||
_ocur.Session.FlushChanges()
|
||||
End If
|
||||
_Customers_Name = _RegistryBankTransfer.RegistryHeader.Customers.Name
|
||||
_Bank_AccountNumber_Customers = Replace(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.AccountNumber, "-", "")
|
||||
_Bank_AccountNumber_Customers = AlignStr(_Bank_AccountNumber_Customers, eDirection.Right, "0", 24)
|
||||
_Bank_AccountNumber_Customers = AlignStr(Replace(_Bank_AccountNumber_Customers, "-", ""), 1, " ", 47)
|
||||
|
||||
'_Amount = Replace(LTrim(RTrim(CStr(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountDEV), 2, MidpointRounding.AwayFromZero)))), ".", "")
|
||||
|
||||
_Amount = Replace(LTrim(RTrim(Format(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountDEV), 2, MidpointRounding.AwayFromZero), "0.00"))), ",", "")
|
||||
|
||||
_DocumentNumber = _RegistryBankTransfer.RegistryHeader.DocumentNumber
|
||||
_Note = _RegistryBankTransfer.Note
|
||||
_Customers_Name = AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32)
|
||||
_Amount = AlignStr(Replace(_Amount, ".", ""), 0, "0", 13) ' A replace-re nem biztos, hogy szükség van.
|
||||
|
||||
'Tranzakció
|
||||
_BankString = "PAYORD" 'Rekord típus.
|
||||
_BankString = _BankString & "IN" 'Devizaátutalás.
|
||||
_BankString = _BankString & _Today & "000000" 'Azonosító.
|
||||
|
||||
'Fealadó
|
||||
_BankString = _BankString & _Bank_AccountNumber_CustomersFrom 'Számlaszám.
|
||||
_BankString = _BankString & "0" 'Számlaszám típusa: 24 jegyű GIRO számlaszám esetén 0, nemzetközi számlaszám esetén 9.
|
||||
_BankString = _BankString & ANSITo852(AlignStr(Replace(_CustomersFrom_Name, Chr(13) & Chr(10), " "), 1, " ", 140)) 'Feladó neve.
|
||||
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 9) 'A következő mezőnek a 220. pozíción kell kezdődnie.
|
||||
|
||||
'Címzett
|
||||
_BankString = _BankString & _Bank_AccountNumber_Customers 'Számlaszám.
|
||||
_BankString = _BankString & "0" 'Számlaszám típusa: 24 jegyű GIRO számlaszám esetén 0, nemzetközi számlaszám esetén 9.
|
||||
_BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.ShortName, 1, " ", 64) 'Bank neve.
|
||||
_BankString = _BankString & ANSITo852(AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 140)) 'Címzett neve.
|
||||
_BankString = _BankString & "HU" 'Országkód - a régi rendszerben is így volt...
|
||||
_BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.SWIFT, 0, " ", 15) 'SWIFT kód.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 35) 'Levelező bank.
|
||||
|
||||
'Megjegyzés.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Rezidens (Y/N).
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'SWIFT üzenetről másolatot kér (Y/N).
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 15) 'Fax szám, ahova a SWIFT másolatot kéri.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 16) 'Kitöltő karakterek.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Nem kér egyedi árfolyamot (Y/N).
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 35) 'Banknak szóló közlemény, nem használt.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 95) 'Közlemény.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Kitöltő karakter.
|
||||
|
||||
'Stat. információ.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 4) 'Jogcímkód.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 60) 'Kitöltő karakterekek.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 24) 'Dev. eng. száma.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 8) 'Dev. eng. dátuma.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Sürgős teljesítés használata.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Sürgős teljesítés.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'VIBER.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Kitöltő karakter.
|
||||
|
||||
'Összeg.
|
||||
_BankString = _BankString & AlignStr(_BankParameterDEV.CurrencyName.ShortName, 1, " ", 3) 'Kifizetendő deviza - a popupról vesszük.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 14) 'Kitöltő karakterekek.
|
||||
_BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName, 1, " ", 3) 'Átutalandó deviza.
|
||||
_BankString = _BankString & "2" 'Tizedesjegyek száma.
|
||||
_BankString = _BankString & AlignStr(_Amount, 0, "0", 13) 'Átutalandó összeg.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 12) 'Kitöltő karakterekek.
|
||||
|
||||
'Dátum.
|
||||
_BankString = _BankString & _Today 'Valutanap.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 12) 'Kitöltő karakterekek.
|
||||
|
||||
'Egyéb.
|
||||
_BankString = _BankString & _BankParameterDEV.BankCost 'Költségviselés.
|
||||
_BankString = _BankString & AlignStr(" ", 1, " ", 82) 'Kitöltő karakterekek.
|
||||
_BankString = _BankString & "00" 'Státusz.
|
||||
|
||||
'Rekordelválasztó
|
||||
_BankString = _BankString & Chr(13) & Chr(10)
|
||||
|
||||
_StreamWriter.Write(_BankString)
|
||||
_RegistryBankTransfer.BankSavedFileName = _FileName
|
||||
_RegistryBankTransfer.Save()
|
||||
End If
|
||||
Next I
|
||||
_StreamWriter.Close()
|
||||
_BankParameterDEV.TransferTotalDEV = 0
|
||||
_BankParameterDEV.TransferCount = 0
|
||||
_BankParameterDEV.TransferTotalHUF = 0
|
||||
_BankParameterDEV.BankInformation = Nothing
|
||||
_BankParameterDEV.Save()
|
||||
e.PopupWindow.View.ObjectSpace.CommitChanges()
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Function ANSITo852(ByVal S As String) As String
|
||||
'[ü] 129 08/01 201 81 u diaeresis
|
||||
'[é] 130 08/02 202 82 e acute
|
||||
'[Ő] 138 08/10 212 8A O double acute accent
|
||||
'[ő] 139 08/11 213 8B o double acute accent
|
||||
'[É] 144 09/00 220 90 E acute
|
||||
'[ĺ] 146 09/02 222 92 l acute
|
||||
'[ö] 148 09/04 224 94 o diaeresis
|
||||
'[Ö] 153 09/09 231 99 O diaeresis
|
||||
'[Ü] 154 09/10 232 9A U diaeresis
|
||||
'[á] 160 10/00 240 A0 a acute
|
||||
'[í] 161 10/01 241 A1 i acute
|
||||
'[ó] 162 10/02 242 A2 o acute
|
||||
'[ú] 163 10/03 243 A3 u acute
|
||||
'[Á] 181 11/05 265 B5 A acute
|
||||
'[Í] 214 13/06 326 D6 I acute
|
||||
'[Ó] 224 14/00 340 E0 O acute
|
||||
'[Ú] 233 14/09 351 E9 U acute
|
||||
'[Ű] 235 14/11 353 EB U double acute
|
||||
'[ű] 251 15/11 373 FB u double acute
|
||||
|
||||
Dim I As Integer
|
||||
Dim seged As String
|
||||
Dim ch As String
|
||||
|
||||
seged = ""
|
||||
For I = 1 To Len(S)
|
||||
ch = Mid(S, I, 1)
|
||||
Select Case ch
|
||||
'Case "ó" : ch = Chr(162)
|
||||
'Case "ű" : ch = Chr(251)
|
||||
'Case "ú" : ch = Chr(163)
|
||||
'Case "ő" : ch = Chr(139)
|
||||
'Case "á" : ch = Chr(160)
|
||||
'Case "é" : ch = Chr(130)
|
||||
'Case "í" : ch = Chr(161)
|
||||
'Case "ü" : ch = Chr(129)
|
||||
'Case "ű" : ch = Chr(129)
|
||||
'Case "Ó" : ch = Chr(224)
|
||||
'Case "Ű" : ch = Chr(235)
|
||||
'Case "Ú" : ch = Chr(233)
|
||||
'Case "Ő" : ch = Chr(138)
|
||||
'Case "Á" : ch = Chr(181)
|
||||
'Case "É" : ch = Chr(144)
|
||||
'Case "Í" : ch = Chr(214)
|
||||
'Case "Ü" : ch = Chr(154)
|
||||
'Case "Ű" : ch = Chr(154)
|
||||
Case "ö" : ch = "o"
|
||||
Case "ó" : ch = "o"
|
||||
Case "ű" : ch = "u"
|
||||
Case "ú" : ch = "u"
|
||||
Case "ő" : ch = "o"
|
||||
Case "á" : ch = "a"
|
||||
Case "é" : ch = "e"
|
||||
Case "í" : ch = "i"
|
||||
Case "ü" : ch = "u"
|
||||
Case "ű" : ch = "u"
|
||||
Case "Ó" : ch = "O"
|
||||
Case "Ű" : ch = "u"
|
||||
Case "Ú" : ch = "U"
|
||||
Case "Ő" : ch = "O"
|
||||
Case "Á" : ch = "A"
|
||||
Case "É" : ch = "E"
|
||||
Case "Í" : ch = "I"
|
||||
Case "Ü" : ch = "U"
|
||||
Case "Ű" : ch = "U"
|
||||
Case "Ö" : ch = "O"
|
||||
End Select
|
||||
seged = seged & ch
|
||||
Next I
|
||||
ANSITo852 = seged
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Private Sub aSaveElectraHUF_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSaveElectraHUF.Cancel
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aSaveElectraHUF_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSaveElectraHUF.CustomizePopupWindowParams
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _BankParameterDEV As BankParameterDEV
|
||||
Dim _TransferTotalDEV As Double = 0
|
||||
Dim _TransferTotalHUF As Double = 0
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView
|
||||
Dim I As Long
|
||||
|
||||
If IsSameCustomerFrom(_selection) = False Then
|
||||
Throw New UserFriendlyException("Csak azonos Saját cég esetén választható ez a funkció!")
|
||||
End If
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
_BankParameterDEV = _ocur.FindObject(Of BankParameterDEV)(CriteriaOperator.Parse("CurrencyName.ShortName='HUF'"), True)
|
||||
If _BankParameterDEV Is Nothing Then _BankParameterDEV = _ocur.CreateObject(Of BankParameterDEV)()
|
||||
|
||||
_BankParameterDEV.DateExecution = Now
|
||||
_BankParameterDEV.TransferTotalDEV = 0
|
||||
_BankParameterDEV.TransferCount = 0
|
||||
_BankParameterDEV.TransferTotalHUF = 0
|
||||
_BankParameterDEV.TransferCount = _selection.Count
|
||||
_BankParameterDEV.CustomFileName = ""
|
||||
For I = 0 To _selection.Count - 1
|
||||
_RegistryBankTransferView = TryCast(_selection(I), RegistryBankTransferView)
|
||||
If _RegistryBankTransferView.IsBlocked = False Then
|
||||
If I = 0 Then _BankParameterDEV.CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom
|
||||
_TransferTotalHUF += _RegistryBankTransferView.AmountHUF
|
||||
_TransferTotalDEV += _RegistryBankTransferView.AmountDEV
|
||||
End If
|
||||
Next I
|
||||
_BankParameterDEV.TransferTotalDEV = _TransferTotalDEV
|
||||
_BankParameterDEV.TransferTotalHUF = _TransferTotalHUF
|
||||
|
||||
_noselect = True
|
||||
_BankParameterDEV.Save()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
|
||||
Dim _BankParameterDEV_New As BankParameterDEV = _onew.GetObject(_BankParameterDEV)
|
||||
e.View = Application.CreateDetailView(_onew, "BankParameterDEV_DetailView", False, _BankParameterDEV_New)
|
||||
|
||||
End Sub
|
||||
Private Sub aSaveElectraHUF_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSaveElectraHUF.Execute
|
||||
Me.DownloadToMKBHUF(View, e)
|
||||
_selection.Clear()
|
||||
_noselect = False
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Sub aSaveElectraDEV_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSaveElectraDEV.Execute
|
||||
Me.DownloadToMKBDEV(View, e)
|
||||
_selection.Clear()
|
||||
_noselect = False
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Function IsSameCustomerFrom(ByVal _selection As ArrayList) As Boolean
|
||||
Dim _RegistryBankTransferView = TryCast(_selection(0), RegistryBankTransferView)
|
||||
|
||||
For I As Int32 = 1 To _selection.Count - 1
|
||||
If _RegistryBankTransferView.RegistryHeader.CustomersFrom.Oid <> _selection(I).RegistryHeader.CustomersFrom.Oid Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub aSaveElectraDEV_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSaveElectraDEV.Cancel
|
||||
_noselect = False
|
||||
End Sub
|
||||
|
||||
Private Sub aSaveElectraDEV_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSaveElectraDEV.CustomizePopupWindowParams
|
||||
aSaveElectraHUF_CustomizePopupWindowParams(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
|
||||
Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
|
||||
End Sub
|
||||
|
||||
Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView
|
||||
If View.Id Like "RegistryBankTransfer_ListView*" And _noselect = False Then
|
||||
_selection.Clear()
|
||||
For Each _RegistryBankTransferView In View.SelectedObjects
|
||||
_selection.Add(_RegistryBankTransferView)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aBackFromPackage_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackFromPackage.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer
|
||||
|
||||
For I = 0 To View.SelectedObjects.Count - 1
|
||||
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(I), RegistryBankTransferView).Oid)
|
||||
_RegistryBankTransfer.BankSavedFileName = ""
|
||||
_RegistryBankTransfer.Save()
|
||||
Next I
|
||||
View.ObjectSpace.CommitChanges()
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Sub aViewRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
|
||||
|
||||
If _RegistryBankTransferView IsNot Nothing Then
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_RegistryBankTransferView.Oid)
|
||||
If _RegistryBankTransfer IsNot Nothing Then
|
||||
Dim _RegistryHeader As RegistryHeader = _onew.GetObject(_RegistryBankTransfer.RegistryHeader)
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "RegistryHeader_DetailView_BankTransfer", False, _RegistryHeader)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aBankDivide_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankDivide.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLBankDivide As GLBankDivide = _onew.CreateObject(Of GLBankDivide)()
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer = _onew.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(0), RegistryBankTransferView).Oid)
|
||||
_GLBankDivide.RegistryBankTransfer_AmountDEV = _RegistryBankTransfer.AmountDEV
|
||||
_GLBankDivide.RegistryBankTransfer_AmountHUF = _RegistryBankTransfer.AmountHUF
|
||||
_GLBankDivide.RegistryBankTransfer_RegistryHeader_CurrencyName = _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName
|
||||
_GLBankDivide.Note = _RegistryBankTransfer.Note
|
||||
e.View = Application.CreateDetailView(_onew, "GLBankDivide_DetailView", False, _GLBankDivide)
|
||||
End Sub
|
||||
|
||||
Private Sub aBankDivide_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankDivide.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBankDivide As GLBankDivide = TryCast(e.PopupWindow.View.SelectedObjects(0), GLBankDivide)
|
||||
|
||||
Dim _oid_RegistryBankTransfer As Guid = TryCast(View.SelectedObjects(0), RegistryBankTransferView).Oid
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid_RegistryBankTransfer)
|
||||
|
||||
If Not _RegistryBankTransfer.RegistryHeader.BruttoAmountRemainingBank = 0 Then
|
||||
Throw New Exception("*A számla banki csomagjai nem fedik a számla teljes összegét, kérem ellenőrizze!")
|
||||
End If
|
||||
|
||||
If _GLBankDivide.AmountDEV > _RegistryBankTransfer.AmountDEV Or _GLBankDivide.AmountHUF > _RegistryBankTransfer.AmountHUF Then
|
||||
Throw New Exception("*A megadott adatok meghaladják a csomag értékét!")
|
||||
End If
|
||||
|
||||
If _GLBankDivide.AmountPercent > 0 Then
|
||||
Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
|
||||
_RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader
|
||||
_RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer.AmountHUF * (_GLBankDivide.AmountPercent / 100)), 0, MidpointRounding.AwayFromZero)
|
||||
If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
|
||||
_RegistryBankTransfer_New.AmountDEV = Math.Round(_RegistryBankTransfer.AmountDEV * (_GLBankDivide.AmountPercent / 100), 0, MidpointRounding.AwayFromZero)
|
||||
_RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
_RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment
|
||||
_RegistryBankTransfer_New.Note = _GLBankDivide.Note
|
||||
_RegistryBankTransfer_New.Save()
|
||||
|
||||
_RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF
|
||||
If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
|
||||
_RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV
|
||||
End If
|
||||
_RegistryBankTransfer.Save()
|
||||
|
||||
ElseIf _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" And _GLBankDivide.AmountHUF > 0 Then
|
||||
|
||||
Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
|
||||
_RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader
|
||||
_RegistryBankTransfer_New.AmountHUF = _GLBankDivide.AmountHUF
|
||||
|
||||
_RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment
|
||||
_RegistryBankTransfer_New.Note = _GLBankDivide.Note
|
||||
_RegistryBankTransfer_New.Save()
|
||||
|
||||
_RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF
|
||||
|
||||
_RegistryBankTransfer.Save()
|
||||
|
||||
Else
|
||||
|
||||
Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
|
||||
_RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader
|
||||
_RegistryBankTransfer_New.AmountDEV = _GLBankDivide.AmountDEV
|
||||
_RegistryBankTransfer_New.AmountHUF = _RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate
|
||||
|
||||
_RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment
|
||||
_RegistryBankTransfer_New.Note = _GLBankDivide.Note
|
||||
_RegistryBankTransfer_New.Save()
|
||||
|
||||
_RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF
|
||||
_RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV
|
||||
_RegistryBankTransfer.Save()
|
||||
|
||||
End If
|
||||
|
||||
'_GLBankDivide.
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Sub aBankMerge_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBankMerge.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer = Nothing
|
||||
Dim _RegistryBankTransfer_Base As RegistryBankTransfer = Nothing
|
||||
|
||||
Dim _DelArray As New ArrayList
|
||||
Dim _AmountHUF As Double = 0
|
||||
Dim _AmountDEV As Double = 0
|
||||
|
||||
Dim _oid As Guid
|
||||
_DelArray.Clear()
|
||||
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
|
||||
For I = 0 To _selection.Count - 1
|
||||
_oid = TryCast(_selection(I), RegistryBankTransferView).Oid
|
||||
If I = 0 Then
|
||||
_RegistryBankTransfer_Base = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid)
|
||||
Else
|
||||
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid)
|
||||
If _RegistryBankTransfer.RegistryHeader.Oid = _RegistryBankTransfer_Base.RegistryHeader.Oid Then
|
||||
_AmountDEV += _RegistryBankTransfer.AmountDEV
|
||||
_AmountHUF += _RegistryBankTransfer.AmountHUF
|
||||
_DelArray.Add(_RegistryBankTransfer)
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
_RegistryBankTransfer_Base.AmountHUF += _AmountHUF
|
||||
_RegistryBankTransfer_Base.AmountDEV += _AmountDEV
|
||||
|
||||
For i = 0 To _DelArray.Count - 1
|
||||
_ocur.Delete(_DelArray(i))
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Sub aViewAttachments_Bank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_Bank.Execute
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
|
||||
Dim _CustomersFrom As CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom
|
||||
Dim _Customers As Customers = _RegistryBankTransferView.RegistryHeader.Customers
|
||||
Dim _DocumentNumber As String = _RegistryBankTransferView.RegistryHeader.DocumentNumber
|
||||
|
||||
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aBankPrepareName_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankPrepareName.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
|
||||
Dim _GLBankPrepareName As GLBankPrepareName = _onew.CreateObject(Of GLBankPrepareName)()
|
||||
If _RegistryBankTransferView.BankPrepareName IsNot Nothing Then
|
||||
_GLBankPrepareName.BankPrepareName = _RegistryBankTransferView.BankPrepareName
|
||||
End If
|
||||
e.View = Application.CreateDetailView(_onew, "GLBankPrepareName_DetailView", False, _GLBankPrepareName)
|
||||
End Sub
|
||||
|
||||
Private Sub aBankPrepareName_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankPrepareName.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBankPrepareName As GLBankPrepareName = TryCast(e.PopupWindow.View.SelectedObjects(0), GLBankPrepareName)
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer
|
||||
|
||||
For I = 0 To View.SelectedObjects.Count - 1
|
||||
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(I), RegistryBankTransferView).Oid)
|
||||
_RegistryBankTransfer.BankPrepareName = _GLBankPrepareName.BankPrepareName
|
||||
_RegistryBankTransfer.Save()
|
||||
Next I
|
||||
View.ObjectSpace.CommitChanges()
|
||||
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Sub aBankNoTransfer_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankNoTransfer.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _BankNoTransferPopup As BankNoTransferPopup = _onew.CreateObject(Of BankNoTransferPopup)()
|
||||
e.View = Application.CreateDetailView(_onew, "BankNoTransferPopup_DetailView", False, _BankNoTransferPopup)
|
||||
End Sub
|
||||
|
||||
Private Sub aBankNoTransfer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankNoTransfer.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer
|
||||
Dim i As Long = 0
|
||||
Dim _BankNoTransferPopup As BankNoTransferPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), BankNoTransferPopup)
|
||||
|
||||
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
|
||||
For i = 0 To _selection.Count - 1
|
||||
_RegistryBankTransfer = _uow.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(i), RegistryBankTransferView).Oid)
|
||||
_RegistryBankTransfer.BankSavedFileName = _BankNoTransferPopup.Description
|
||||
Next i
|
||||
_uow.CommitChanges()
|
||||
_selection.Clear()
|
||||
_noselect = False
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPDCI_Bank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPDCI_Bank.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
|
||||
Dim _CustomersFrom As CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom
|
||||
Dim _Customers As Customers = _RegistryBankTransferView.RegistryHeader.Customers
|
||||
Dim _DocumentNumber As String = _RegistryBankTransferView.RegistryHeader.DocumentNumber
|
||||
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _CustomersFrom, _Customers, 1, _DocumentNumber)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'ReadOnly Property BallanceHUF As Double
|
||||
' Get
|
||||
' Dim _PCIGroup As PCIGroup = _
|
||||
' Session.FindObject(Of PCIGroup) _
|
||||
' (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=1 and ConnectInfo=?", _
|
||||
' Me.RegistryHeader.CustomersFrom, Me.RegistryHeader.Customers, Me.RegistryHeader.DocumentNumber), True)
|
||||
' If _PCIGroup IsNot Nothing Then
|
||||
' Return _PCIGroup.BallanceHUF
|
||||
' Else
|
||||
' Return Me.RegistryHeader.F_AmountBruttoHUF
|
||||
' End If
|
||||
' End Get
|
||||
'End Property
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLBankVC
|
||||
|
||||
<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
|
||||
+84
@@ -0,0 +1,84 @@
|
||||
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.Win.SystemModule
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
|
||||
Public Class GLBankVC
|
||||
Inherits Nuvolar.Module.GLBankVC
|
||||
Private _GridListEditor As GridListEditor
|
||||
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()
|
||||
If View.Id = "GLBank_DetailView" Or View.Id = "GLBank_GLRows_ListView" Then
|
||||
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoRollback
|
||||
End If
|
||||
|
||||
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 = "GLBank_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
RemoveHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLBank_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "GLBank_DetailView" Then
|
||||
Beep()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
|
||||
Dim gridView As GridView = TryCast(sender, GridView)
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
If _GLBank Is Nothing Then
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
If _GLBank.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
ElseIf View.SelectedObjects.Count > 1 Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
+50
@@ -0,0 +1,50 @@
|
||||
Partial Class GLBaseVC
|
||||
|
||||
<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.aUpdateRolling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aUpdateRolling
|
||||
'
|
||||
Me.aUpdateRolling.Caption = "aUpdate Rolling"
|
||||
Me.aUpdateRolling.ConfirmationMessage = Nothing
|
||||
Me.aUpdateRolling.Id = "aUpdateRolling"
|
||||
Me.aUpdateRolling.ImageName = Nothing
|
||||
Me.aUpdateRolling.Shortcut = Nothing
|
||||
Me.aUpdateRolling.Tag = Nothing
|
||||
Me.aUpdateRolling.TargetObjectsCriteria = Nothing
|
||||
Me.aUpdateRolling.TargetObjectType = GetType(Nuvolar.[Module].GLDetails)
|
||||
Me.aUpdateRolling.TargetViewId = Nothing
|
||||
Me.aUpdateRolling.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aUpdateRolling.ToolTip = Nothing
|
||||
Me.aUpdateRolling.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aUpdateRolling As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aUpdateRolling.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>
|
||||
+85
@@ -0,0 +1,85 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
|
||||
Public Class GLBaseVC
|
||||
Inherits Nuvolar.Module.GLBaseVC
|
||||
Dim _WaitFormClass as New WaitFormClass
|
||||
Private _GridView As GridView
|
||||
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 = "GLDetails_ListView" Then
|
||||
AddHandler View.ControlsCreated, AddressOf View_ControlsCreated
|
||||
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 View_ControlsCreated(sender As Object, e As EventArgs)
|
||||
Dim _GridListEditor As GridListEditor = DirectCast(DirectCast(View, ListView).Editor, GridListEditor)
|
||||
|
||||
_GridView = DirectCast(DirectCast(View, ListView).Editor, GridListEditor).GridView
|
||||
|
||||
If _GridView IsNot Nothing Then
|
||||
'Dim unbColumn As GridColumn = _GridView.Columns.AddField("AmountHUF_Rolling")
|
||||
'unbColumn.VisibleIndex = _GridView.Columns.Count
|
||||
'unbColumn.UnboundType = DevExpress.Data.UnboundColumnType.Decimal
|
||||
'unbColumn.OptionsColumn.AllowEdit = False
|
||||
'unbColumn.DisplayFormat.FormatString = "{0:#,##0}"
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub aUpdateRolling_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aUpdateRolling.Execute
|
||||
|
||||
Dim _Prev_AccountNumber As String = ""
|
||||
Dim _Act_AccountNumber As String = ""
|
||||
Dim _AmountHUF_Rolling As Double = 0
|
||||
Try
|
||||
Dim _DataRowCount As Integer = _GridView.DataRowCount
|
||||
|
||||
_WaitFormClass.Initwork(1, 1, _DataRowCount)
|
||||
For i = 0 To _DataRowCount - 1
|
||||
_WaitFormClass.DoWork()
|
||||
Dim _GLDetails As GLDetails = TryCast(_GridView.GetRow(i), GLDetails)
|
||||
_Act_AccountNumber = _GLDetails.ChartOfAccounts.AccountNumber
|
||||
If _Act_AccountNumber <> _Prev_AccountNumber Then
|
||||
_AmountHUF_Rolling = 0
|
||||
_Prev_AccountNumber = _Act_AccountNumber
|
||||
End If
|
||||
_AmountHUF_Rolling += _GLDetails.AmountHUF_Ballance
|
||||
_GLDetails.AmountHUF_Rolling = _AmountHUF_Rolling
|
||||
Next
|
||||
Finally
|
||||
_Waitformclass.FinalWork
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLRowsDivideVC
|
||||
|
||||
<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
|
||||
+62
@@ -0,0 +1,62 @@
|
||||
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.Win.Editors
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
|
||||
Public Class GLRowsDivideVC
|
||||
Inherits DevExpress.ExpressApp.ViewController(Of ListView)
|
||||
Private _GridListEditor As GridListEditor
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then
|
||||
_GridListEditor = TryCast(View.Editor, GridListEditor)
|
||||
If _GridListEditor IsNot Nothing Then
|
||||
'_GridListEditor.AllowEdit = True
|
||||
'For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "AmountHUF" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "AmountDEV" 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
|
||||
AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf _CellValueChanged
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then
|
||||
If _GridListEditor IsNot Nothing Then
|
||||
RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf _CellValueChanged
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub _CellValueChanged(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs)
|
||||
If TryCast(e.Column, GridColumn).FieldName = "AmountHUF" Or _
|
||||
TryCast(e.Column, GridColumn).FieldName = "AmountDEV" Then
|
||||
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
|
||||
If nestedFrame IsNot Nothing Then
|
||||
Dim parentView As View = nestedFrame.View
|
||||
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
|
||||
parentView.ObjectSpace.Refresh()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class BookEntryVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+123
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=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="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+40
@@ -0,0 +1,40 @@
|
||||
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
|
||||
|
||||
Public Class BookEntryVC
|
||||
Inherits Nuvolar.Module.BookEntryVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLCassaVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+89
@@ -0,0 +1,89 @@
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Win.SystemModule
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
|
||||
Public Class GLCassaVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
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()
|
||||
If View.Id = "GLCassa_DetailView" Or View.Id = "GLCassa_GLRows_ListView" Then
|
||||
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "GLCassa_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
RemoveHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLCassa_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
|
||||
'If View.Id = "GLRows_ListView_Cassa" Then
|
||||
' Dim _ListView As ListView = CType(View, ListView)
|
||||
' _GridListEditor = TryCast(_ListView.Editor, GridListEditor)
|
||||
' If _GridListEditor IsNot Nothing Then
|
||||
' _GridListEditor.AllowEdit = True
|
||||
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" 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
|
||||
|
||||
End Sub
|
||||
Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
|
||||
Dim gridView As GridView = TryCast(sender, GridView)
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa)
|
||||
If _GLCassa Is Nothing Then
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
If _GLCassa.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
ElseIf View.SelectedObjects.Count > 1 Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLCompensationVC
|
||||
|
||||
<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
|
||||
+100
@@ -0,0 +1,100 @@
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Win.SystemModule
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
|
||||
Public Class GLCompensationVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
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()
|
||||
If View.Id = "GLCompensation_DetailView" Or View.Id = "GLCompensation_GLRows_ListView" Then
|
||||
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
|
||||
End If
|
||||
If View.Id = "GLHeader_GLRows_ListView_Compensation" Then
|
||||
Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "GLCompensation_DetailView" Or View.Id = "GLCompensation_GLRows_ListView" Then
|
||||
Frame.GetController(Of ToolbarVisibilityController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLHeader_GLRows_ListView_Compensation" Then
|
||||
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
|
||||
End If
|
||||
|
||||
If View.Id = "GLCompensation_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
RemoveHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLCompensation_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
|
||||
'If View.Id = "GLRows_ListView_Compensation" Then
|
||||
' Dim _ListView As ListView = CType(View, ListView)
|
||||
' _GridListEditor = TryCast(_ListView.Editor, GridListEditor)
|
||||
' If _GridListEditor IsNot Nothing Then
|
||||
' _GridListEditor.AllowEdit = True
|
||||
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" 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
|
||||
|
||||
End Sub
|
||||
Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
|
||||
Dim gridView As GridView = TryCast(sender, GridView)
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
|
||||
If _GLCompensation Is Nothing Then
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
If _GLCompensation.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
ElseIf View.SelectedObjects.Count > 1 Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class FixedAssetsCardVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+39
@@ -0,0 +1,39 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class FixedAssetsCardVC
|
||||
Inherits Nuvolar.Module.FixedassetsCardVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class FixedAssetsQueryVC
|
||||
|
||||
<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
|
||||
+40
@@ -0,0 +1,40 @@
|
||||
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 FixedAssetsQueryVC
|
||||
Inherits Nuvolar.Module.FixedAssetsQueryVC
|
||||
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
|
||||
+50
@@ -0,0 +1,50 @@
|
||||
Partial Class GIROInfo_VC
|
||||
|
||||
<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.aGIROInfo_ImportXLS = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aGIROInfo_ImportXLS
|
||||
'
|
||||
Me.aGIROInfo_ImportXLS.Caption = "aGIROInfo_ImportXLS"
|
||||
Me.aGIROInfo_ImportXLS.ConfirmationMessage = Nothing
|
||||
Me.aGIROInfo_ImportXLS.Id = "aGIROInfo_ImportXLS"
|
||||
Me.aGIROInfo_ImportXLS.ImageName = Nothing
|
||||
Me.aGIROInfo_ImportXLS.Shortcut = Nothing
|
||||
Me.aGIROInfo_ImportXLS.Tag = Nothing
|
||||
Me.aGIROInfo_ImportXLS.TargetObjectsCriteria = Nothing
|
||||
Me.aGIROInfo_ImportXLS.TargetObjectType = GetType(Nuvolar.[Module].GIROInfo)
|
||||
Me.aGIROInfo_ImportXLS.TargetViewId = Nothing
|
||||
Me.aGIROInfo_ImportXLS.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aGIROInfo_ImportXLS.ToolTip = Nothing
|
||||
Me.aGIROInfo_ImportXLS.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aGIROInfo_ImportXLS As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aGIROInfo_ImportXLS.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>
|
||||
+98
@@ -0,0 +1,98 @@
|
||||
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 System.Windows.Forms
|
||||
Imports System.Data.OleDb
|
||||
|
||||
Public Class GIROInfo_VC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
|
||||
Private Sub aGIROInfo_ImportXLS_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGIROInfo_ImportXLS.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _cs As String = ""
|
||||
Dim _GIROID_Array As New ArrayList
|
||||
Dim _ShortName_Array As New ArrayList
|
||||
Dim _ZIPCode_Array As New ArrayList
|
||||
Dim _Address_Array As New ArrayList
|
||||
|
||||
Dim _OpenFileDialog As New OpenFileDialog
|
||||
_OpenFileDialog.Filter = "xls Files (.xls)|*.xls|xlsx Files (.xlsx)|*.xlsx|All Files (*.*)|*.*"
|
||||
_OpenFileDialog.FilterIndex = 1
|
||||
If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK And (Not String.IsNullOrEmpty(_OpenFileDialog.FileName)) Then
|
||||
Dim _xlsFile As String = _OpenFileDialog.FileName
|
||||
_cs = "Provider=Microsoft.ACE.OLEDB.12.0;"
|
||||
_cs += "Data Source=" & _xlsFile.ToString & ";"
|
||||
_cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
|
||||
Dim conn As New OleDbConnection(_cs)
|
||||
Dim cmd As New OleDbCommand
|
||||
Dim dr As OleDbDataReader
|
||||
Dim mSQL As String
|
||||
Dim _UpdatedCount As Long = 0
|
||||
|
||||
Try
|
||||
mSQL = "select * from [" + IO.Path.GetFileNameWithoutExtension(_xlsFile) + "$]" '[Munka1$]"
|
||||
cmd.CommandTimeout = 60
|
||||
cmd.Connection = conn
|
||||
cmd.CommandType = CommandType.Text
|
||||
cmd.CommandText = mSQL
|
||||
conn.Open()
|
||||
|
||||
If conn.State = ConnectionState.Open Then
|
||||
dr = cmd.ExecuteReader(CommandBehavior.SingleResult)
|
||||
|
||||
While dr.Read
|
||||
If Not String.IsNullOrEmpty(dr(0).ToString) Then
|
||||
|
||||
_GIROID_Array.Add(dr(0).ToString) 'ID
|
||||
_ShortName_Array.Add(dr(1).ToString) 'shortname
|
||||
_ZIPCode_Array.Add(dr(2).ToString) 'zipcode
|
||||
_Address_Array.Add(dr(3).ToString) 'adddress
|
||||
End If
|
||||
End While
|
||||
|
||||
dr.Close()
|
||||
End If
|
||||
conn.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
conn.Close()
|
||||
End Try
|
||||
End If
|
||||
_WaitFormClass.InitWork(1, 1, _GIROID_Array.Count)
|
||||
Dim _ActIndex As Long = 0
|
||||
For Each _ID As String In _GIROID_Array
|
||||
_WaitFormClass.DoWork
|
||||
Dim _GIROInfo As GIROInfo = _ocur.FindObject(Of GIROInfo)(DevExpress.Data.Filtering.CriteriaOperator.Parse("GIROID=?", _GIROID_Array(_ActIndex)))
|
||||
If _GIROInfo Is Nothing Then
|
||||
_GIROInfo = New GIROInfo(_ocur.Session)
|
||||
With _GIROInfo
|
||||
_GIROInfo.GIROID = _GIROID_Array(_ActIndex)
|
||||
_GIROInfo.ShortName = _ShortName_Array(_ActIndex)
|
||||
_GIROInfo.Address = _ZIPCode_Array(_ActIndex) + " " + _Address_Array(_ActIndex)
|
||||
End With
|
||||
Else
|
||||
With _GIROInfo
|
||||
_GIROInfo.ShortName = _ShortName_Array(_ActIndex)
|
||||
_GIROInfo.Address = _ZIPCode_Array(_ActIndex) + " " + _Address_Array(_ActIndex)
|
||||
End With
|
||||
End If
|
||||
_ActIndex += 1
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_Waitformclass.FinalWork
|
||||
End Sub
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class LiquidAssetsBallanceVC
|
||||
|
||||
<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
|
||||
+45
@@ -0,0 +1,45 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Win.SystemModule
|
||||
|
||||
Public Class LiquidAssetsBallanceVC
|
||||
Inherits Nuvolar.Module.LiquidAssetsBallanceVC
|
||||
Private worker As WinModificationsController
|
||||
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()
|
||||
If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then
|
||||
worker = Frame.GetController(Of WinModificationsController)()
|
||||
worker.ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.Confirmation
|
||||
End If
|
||||
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then
|
||||
worker = Frame.GetController(Of WinModificationsController)()
|
||||
worker.ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
|
||||
End If
|
||||
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class LiquidAssetsReturnVC
|
||||
|
||||
<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
|
||||
+58
@@ -0,0 +1,58 @@
|
||||
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.Win.Editors
|
||||
|
||||
Public Class LiquidAssetsReturnVC
|
||||
Inherits Nuvolar.Module.LiquidAssetsReturnVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _GridListEditor As GridListEditor
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
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 = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then
|
||||
' Dim _ListView As ListView = CType(View, ListView)
|
||||
' Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
|
||||
' _GridListEditor = TryCast(_ListView.Editor, GridListEditor)
|
||||
' If _GridListEditor IsNot Nothing Then
|
||||
' _GridListEditor.AllowEdit = True
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "DenominationValue" 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
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLMixedVC
|
||||
|
||||
<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
|
||||
+130
@@ -0,0 +1,130 @@
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Win.SystemModule
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
|
||||
Public Class GLMixedVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
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()
|
||||
If View.Id = "GLMixed_DetailView" Or View.Id = "GLMixed_GLRows_ListView" Then
|
||||
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLMixed_ListView" Then
|
||||
Dim editor As ListEditor = (CType(View, ListView)).Editor
|
||||
Dim gridView As GridView = (CType(editor, GridListEditor)).GridView
|
||||
|
||||
AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "GLHeader_GLRows_ListView_Mixed" Then
|
||||
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 GLHeader_GLRows_ListView_Mixed_CellValueChanged
|
||||
'_GridListEditor.AllowEdit = True
|
||||
|
||||
'For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "AmountHUF" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "AmountDEV" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "DebitChartOfAccounts!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CreditChartOfAccounts!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" 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 = "GLRows_ListView_Mixed" Then
|
||||
' Dim _ListView As ListView = CType(View, ListView)
|
||||
' _GridListEditor = TryCast(_ListView.Editor, GridListEditor)
|
||||
' If _GridListEditor IsNot Nothing Then
|
||||
' _GridListEditor.AllowEdit = True
|
||||
|
||||
' For i As Integer = 0 To _GridListEditor.Columns.Count - 1
|
||||
|
||||
' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _
|
||||
' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" 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
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
|
||||
Dim gridView As GridView = TryCast(sender, GridView)
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
If _GLMixed Is Nothing Then
|
||||
Else
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
If _GLMixed.IsEditable = False Then
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
ElseIf View.SelectedObjects.Count > 1 Then
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub GLHeader_GLRows_ListView_Mixed_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs)
|
||||
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
|
||||
Select Case TryCast(e.Column, GridColumn).FieldName
|
||||
Case "NoteRows", "Controlling!", "CostHolder!", "JobNumberObjects!", "UniqueObjects!", "AmountHUF", "AmountDEV", "DebitChartOfAccounts!", "CreditChartOfAccounts!"
|
||||
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
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLOpenCloseVC
|
||||
|
||||
<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
|
||||
+37
@@ -0,0 +1,37 @@
|
||||
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 GLOpenCloseVC
|
||||
Inherits Nuvolar.Module.GLOpenCloseVC
|
||||
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
|
||||
+137
@@ -0,0 +1,137 @@
|
||||
Imports DevExpress.Spreadsheet
|
||||
Imports DevExpress.Spreadsheet.Functions
|
||||
Imports DevExpress.XtraSpreadsheet
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class BallanceSpreadCustomFunctions
|
||||
Inherits Object
|
||||
Implements ICustomFunction
|
||||
|
||||
Private Const functionName As String = "GETGLBALLANCE"
|
||||
Private ReadOnly functionParameters() As ParameterInfo
|
||||
Private _BallanceHeader As BallanceHeader
|
||||
Private _ocur As Xpo.XPObjectSpace
|
||||
Private Structure stBalance
|
||||
Dim Side As String
|
||||
Dim AccountNumber As String
|
||||
Dim Balance As String
|
||||
Dim Operation As String
|
||||
End Structure
|
||||
Private _BalanceArray() As stBalance
|
||||
Public Sub New(_p_BallanceHeader As BallanceHeader, _p_ocur As Xpo.XPObjectSpace)
|
||||
' Missing optional parameters do not result in an error message.
|
||||
Me.functionParameters = New ParameterInfo() {New ParameterInfo(ParameterType.Value, ParameterAttributes.Required), New ParameterInfo(ParameterType.Value, ParameterAttributes.Optional)}
|
||||
_BallanceHeader = _p_BallanceHeader
|
||||
_ocur = _p_ocur
|
||||
End Sub
|
||||
|
||||
Public Function Evaluate(parameters As IList(Of ParameterValue), context As EvaluationContext) As ParameterValue Implements IFunction.Evaluate
|
||||
Dim _GetGLBallance As Double = 0
|
||||
ReDim _BalanceArray(100)
|
||||
|
||||
Try
|
||||
If parameters.Count = 2 Then
|
||||
|
||||
MakeBalanceArray(parameters(1).TextValue)
|
||||
_GetGLBallance = Math.Round(GetValuefromArray(parameters(0).NumericValue) / 1000, 0, MidpointRounding.AwayFromZero)
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Return _GetGLBallance
|
||||
End Function
|
||||
|
||||
Private Sub MakeBalanceArray(_BalanceString As String)
|
||||
Dim _act_ballancestring As String = ""
|
||||
Dim _act_arrayindex As Long = 0
|
||||
Dim i As Long = 0
|
||||
|
||||
For i = LBound(_BalanceArray) To UBound(_BalanceArray)
|
||||
_BalanceArray(i).AccountNumber = ""
|
||||
_BalanceArray(i).Balance = ""
|
||||
_BalanceArray(i).Operation = ""
|
||||
_BalanceArray(i).Side = ""
|
||||
Next
|
||||
|
||||
For i = 1 To Len(_BalanceString)
|
||||
_act_ballancestring = Mid(_BalanceString, i, 1)
|
||||
Select Case _act_ballancestring
|
||||
Case "T", "K"
|
||||
_BalanceArray(_act_arrayindex).Side = _act_ballancestring
|
||||
Case "+", "-"
|
||||
_act_arrayindex += 1
|
||||
_BalanceArray(_act_arrayindex).Operation = _act_ballancestring
|
||||
Case Else
|
||||
_BalanceArray(_act_arrayindex).AccountNumber += _act_ballancestring
|
||||
End Select
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Private Function GetValuefromArray(_Mode As Long) As Double
|
||||
Dim i As Long = 0
|
||||
Dim _GetValueFromArray As Double = 0
|
||||
|
||||
For i = LBound(_BalanceArray) To UBound(_BalanceArray)
|
||||
Select Case _BalanceArray(i).Operation
|
||||
Case "+"
|
||||
_GetValueFromArray += GetValuefromTrialBallance(_Mode, _BalanceArray(i).Side, _BalanceArray(i).AccountNumber)
|
||||
Case "-"
|
||||
_GetValueFromArray -= GetValuefromTrialBallance(_Mode, _BalanceArray(i).Side, _BalanceArray(i).AccountNumber)
|
||||
End Select
|
||||
Next
|
||||
Return _GetValueFromArray
|
||||
End Function
|
||||
Private Function GetValuefromTrialBallance(_Mode As Long, _Side As String, _AccountNumber As String) As Double
|
||||
Dim _TrialBalanceHeader As TrialBalanceHeader
|
||||
Dim _GetValuefromTrialBallance As Double = 0
|
||||
Dim _TrialBalance As TrialBalance = Nothing
|
||||
If _Mode = 0 Then
|
||||
_TrialBalanceHeader = _BallanceHeader.TrialBalanceHeader
|
||||
Else
|
||||
_TrialBalanceHeader = _BallanceHeader.TrialBalanceHeaderBefore
|
||||
End If
|
||||
|
||||
_TrialBalance = _ocur.FindObject(Of TrialBalance)(CriteriaOperator.Parse("TrialBalanceHeader=? and AccountNumber=?", _TrialBalanceHeader, _AccountNumber))
|
||||
If _TrialBalance IsNot Nothing Then
|
||||
If _Side = "T" Then
|
||||
_GetValuefromTrialBallance = _TrialBalance.DebitRAmountHUF
|
||||
End If
|
||||
If _Side = "K" Then
|
||||
_GetValuefromTrialBallance = _TrialBalance.CreditRAmountHUF
|
||||
End If
|
||||
End If
|
||||
Return _GetValuefromTrialBallance
|
||||
End Function
|
||||
#Region "BASE"
|
||||
Public Function GetName(culture As Globalization.CultureInfo) As String Implements IFunction.GetName
|
||||
Return functionName
|
||||
End Function
|
||||
|
||||
Public ReadOnly Property Name As String Implements IFunction.Name
|
||||
Get
|
||||
Return functionName
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Parameters As ParameterInfo() Implements IFunction.Parameters
|
||||
Get
|
||||
Return functionParameters
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ReturnType As ParameterType Implements IFunction.ReturnType
|
||||
Get
|
||||
Return ParameterType.Value
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Volatile As Boolean Implements IFunction.Volatile
|
||||
Get
|
||||
Return False
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
End Class
|
||||
+89
@@ -0,0 +1,89 @@
|
||||
Partial Class BallanceVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aSpreadPrintPreview = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSpreadExportXML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSpreadImportXML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSpreadRecalculate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aSpreadPrintPreview
|
||||
'
|
||||
Me.aSpreadPrintPreview.Caption = "aSpread Print Preview"
|
||||
Me.aSpreadPrintPreview.Category = "aSpreadPrintPreview"
|
||||
Me.aSpreadPrintPreview.ConfirmationMessage = Nothing
|
||||
Me.aSpreadPrintPreview.Id = "aSpreadPrintPreview"
|
||||
Me.aSpreadPrintPreview.TargetObjectType = GetType(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
|
||||
+135
@@ -0,0 +1,135 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aSpreadPrintPreview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>174, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aSpreadExportXML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>494, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aSpreadImportXML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aSpreadRecalculate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>337, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+194
@@ -0,0 +1,194 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.XtraSpreadsheet
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Spreadsheet
|
||||
Imports DevExpress.XtraPrinting
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
|
||||
Public Class BallanceVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLCardVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+111
@@ -0,0 +1,111 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.XtraPivotGrid
|
||||
Imports DevExpress.ExpressApp.PivotGrid.Win
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
|
||||
Public Class GLCardVC
|
||||
Inherits 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
|
||||
+49
@@ -0,0 +1,49 @@
|
||||
Partial Class GLReportCashflowVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aViewPivotDetailCashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aViewPivotDetailCashflow
|
||||
'
|
||||
Me.aViewPivotDetailCashflow.Caption = "aView Pivot Detail Cashflow"
|
||||
Me.aViewPivotDetailCashflow.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetailCashflow.Id = "aViewPivotDetailCashflow"
|
||||
Me.aViewPivotDetailCashflow.ImageName = Nothing
|
||||
Me.aViewPivotDetailCashflow.Shortcut = Nothing
|
||||
Me.aViewPivotDetailCashflow.Tag = Nothing
|
||||
Me.aViewPivotDetailCashflow.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetailCashflow.TargetObjectType = GetType(Nuvolar.[Module].GLReportCashflowRows)
|
||||
Me.aViewPivotDetailCashflow.TargetViewId = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot"
|
||||
Me.aViewPivotDetailCashflow.ToolTip = Nothing
|
||||
Me.aViewPivotDetailCashflow.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aViewPivotDetailCashflow As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aViewPivotDetailCashflow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+117
@@ -0,0 +1,117 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.PivotGrid.Win
|
||||
Imports DevExpress.XtraPivotGrid
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class GLReportCashflowVC
|
||||
Inherits Nuvolar.Module.GLReportCashflowVC
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _PivotGridListEditor As PivotGridListEditor
|
||||
Private _PivotGrdidControl As PivotGridControl
|
||||
Private _Criteria As String = ""
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
|
||||
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
|
||||
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then
|
||||
_PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor)
|
||||
|
||||
If _PivotGridListEditor IsNot Nothing Then
|
||||
_PivotGrdidControl = _PivotGridListEditor.PivotGridControl
|
||||
AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPivotDetailCashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetailCashflow.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportCashflowRows))
|
||||
Dim _GLReportCashflowHeader As GLReportCashflowHeader = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReportCashflowHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReportCashflowHeader)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReportCashflowHeader = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportCashflowRows).GLReportCashflowHeader
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReportCashflowHeader.Oid=?", _GLReportCashflowHeader.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportCashflowRows_ListView_PivotDetail", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs)
|
||||
Dim _RowPivotGridField As PivotGridField
|
||||
Dim _ColumnPivotGridField As PivotGridField
|
||||
'_PivotGrdidControl.CreateDrillDownDataSource(e.ColumnIndex, e.RowIndex)
|
||||
|
||||
Dim s As String
|
||||
If e.RowValueType = PivotGridValueType.Value Then
|
||||
If e.ColumnValueType = PivotGridValueType.Value Then
|
||||
_Criteria = ""
|
||||
For Each _RowPivotGridField In e.GetRowFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _ColumnPivotGridField In e.GetColumnFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+241
@@ -0,0 +1,241 @@
|
||||
Partial Class GLReportRowsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aViewPivotDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttacments_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLReportRows_ChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGLReportRows_DivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aViewPivotDetail_2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPCID_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPivotDetail_3 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttacments_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPCID_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDivide_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aViewPivotDetail
|
||||
'
|
||||
Me.aViewPivotDetail.Caption = "aView Pivot Detail"
|
||||
Me.aViewPivotDetail.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetail.Id = "aViewPivotDetail"
|
||||
Me.aViewPivotDetail.ImageName = Nothing
|
||||
Me.aViewPivotDetail.Shortcut = Nothing
|
||||
Me.aViewPivotDetail.Tag = Nothing
|
||||
Me.aViewPivotDetail.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetail.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewPivotDetail.TargetViewId = "GLReport_GLReportRows_ListView_Pivot"
|
||||
Me.aViewPivotDetail.ToolTip = Nothing
|
||||
Me.aViewPivotDetail.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry_GLReportRows
|
||||
'
|
||||
Me.aViewRegistry_GLReportRows.Caption = "View registry"
|
||||
Me.aViewRegistry_GLReportRows.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry_GLReportRows.Id = "aViewRegistry_GLReportRows"
|
||||
Me.aViewRegistry_GLReportRows.ImageName = "document_pinned"
|
||||
Me.aViewRegistry_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry_GLReportRows.Shortcut = Nothing
|
||||
Me.aViewRegistry_GLReportRows.Tag = Nothing
|
||||
Me.aViewRegistry_GLReportRows.TargetObjectsCriteria = Nothing
|
||||
Me.aViewRegistry_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewRegistry_GLReportRows.TargetViewId = ""
|
||||
Me.aViewRegistry_GLReportRows.ToolTip = Nothing
|
||||
Me.aViewRegistry_GLReportRows.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttacments_GLReportRows
|
||||
'
|
||||
Me.aViewAttacments_GLReportRows.Caption = "View registry"
|
||||
Me.aViewAttacments_GLReportRows.ConfirmationMessage = Nothing
|
||||
Me.aViewAttacments_GLReportRows.Id = "aViewAttacments_GLReportRows"
|
||||
Me.aViewAttacments_GLReportRows.ImageName = "document_pinned"
|
||||
Me.aViewAttacments_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttacments_GLReportRows.Shortcut = Nothing
|
||||
Me.aViewAttacments_GLReportRows.Tag = Nothing
|
||||
Me.aViewAttacments_GLReportRows.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttacments_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewAttacments_GLReportRows.TargetViewId = ""
|
||||
Me.aViewAttacments_GLReportRows.ToolTip = Nothing
|
||||
Me.aViewAttacments_GLReportRows.TypeOfView = Nothing
|
||||
'
|
||||
'aGLReportRows_ChangeParam
|
||||
'
|
||||
Me.aGLReportRows_ChangeParam.AcceptButtonCaption = Nothing
|
||||
Me.aGLReportRows_ChangeParam.CancelButtonCaption = Nothing
|
||||
Me.aGLReportRows_ChangeParam.Caption = "Change parameters"
|
||||
Me.aGLReportRows_ChangeParam.ConfirmationMessage = Nothing
|
||||
Me.aGLReportRows_ChangeParam.Id = "aGLReportRows_ChangeParam"
|
||||
Me.aGLReportRows_ChangeParam.ImageName = "index_preferences"
|
||||
Me.aGLReportRows_ChangeParam.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGLReportRows_ChangeParam.Shortcut = Nothing
|
||||
Me.aGLReportRows_ChangeParam.Tag = Nothing
|
||||
Me.aGLReportRows_ChangeParam.TargetObjectsCriteria = Nothing
|
||||
Me.aGLReportRows_ChangeParam.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aGLReportRows_ChangeParam.TargetViewId = ""
|
||||
Me.aGLReportRows_ChangeParam.ToolTip = Nothing
|
||||
Me.aGLReportRows_ChangeParam.TypeOfView = Nothing
|
||||
'
|
||||
'aGLReportRows_DivideRows
|
||||
'
|
||||
Me.aGLReportRows_DivideRows.AcceptButtonCaption = Nothing
|
||||
Me.aGLReportRows_DivideRows.CancelButtonCaption = Nothing
|
||||
Me.aGLReportRows_DivideRows.Caption = "Divide rows"
|
||||
Me.aGLReportRows_DivideRows.Category = "Edit"
|
||||
Me.aGLReportRows_DivideRows.ConfirmationMessage = Nothing
|
||||
Me.aGLReportRows_DivideRows.Id = "aGLReportRows_DivideRows"
|
||||
Me.aGLReportRows_DivideRows.ImageName = "row_add_after"
|
||||
Me.aGLReportRows_DivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLReportRows_DivideRows.Shortcut = Nothing
|
||||
Me.aGLReportRows_DivideRows.Tag = Nothing
|
||||
Me.aGLReportRows_DivideRows.TargetObjectsCriteria = Nothing
|
||||
Me.aGLReportRows_DivideRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aGLReportRows_DivideRows.TargetViewId = ""
|
||||
Me.aGLReportRows_DivideRows.ToolTip = Nothing
|
||||
Me.aGLReportRows_DivideRows.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPivotDetail_2
|
||||
'
|
||||
Me.aViewPivotDetail_2.Caption = "aViewPivotDetail_2"
|
||||
Me.aViewPivotDetail_2.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetail_2.Id = "aViewPivotDetail_2"
|
||||
Me.aViewPivotDetail_2.ImageName = Nothing
|
||||
Me.aViewPivotDetail_2.Shortcut = Nothing
|
||||
Me.aViewPivotDetail_2.Tag = Nothing
|
||||
Me.aViewPivotDetail_2.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetail_2.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewPivotDetail_2.TargetViewId = "GLReport_GLReportRows_ListView_Pivot_2"
|
||||
Me.aViewPivotDetail_2.ToolTip = Nothing
|
||||
Me.aViewPivotDetail_2.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPCID_GLReportRows
|
||||
'
|
||||
Me.aViewPCID_GLReportRows.Caption = "aViewPCIDGroup"
|
||||
Me.aViewPCID_GLReportRows.ConfirmationMessage = Nothing
|
||||
Me.aViewPCID_GLReportRows.Id = "aViewPCID_GLReportRows"
|
||||
Me.aViewPCID_GLReportRows.ImageName = Nothing
|
||||
Me.aViewPCID_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPCID_GLReportRows.Shortcut = Nothing
|
||||
Me.aViewPCID_GLReportRows.Tag = Nothing
|
||||
Me.aViewPCID_GLReportRows.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPCID_GLReportRows.TargetObjectType = GetType(Nuvolar.[Module].GLReportRows)
|
||||
Me.aViewPCID_GLReportRows.TargetViewId = ""
|
||||
Me.aViewPCID_GLReportRows.ToolTip = Nothing
|
||||
Me.aViewPCID_GLReportRows.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPivotDetail_3
|
||||
'
|
||||
Me.aViewPivotDetail_3.Caption = "aViewPivotDetail_3"
|
||||
Me.aViewPivotDetail_3.ConfirmationMessage = Nothing
|
||||
Me.aViewPivotDetail_3.Id = "aViewPivotDetail_3"
|
||||
Me.aViewPivotDetail_3.ImageName = Nothing
|
||||
Me.aViewPivotDetail_3.Shortcut = Nothing
|
||||
Me.aViewPivotDetail_3.Tag = Nothing
|
||||
Me.aViewPivotDetail_3.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPivotDetail_3.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewPivotDetail_3.TargetViewId = "GLReport_GLReportRowsCostHolder_ListView_PivotGrid"
|
||||
Me.aViewPivotDetail_3.ToolTip = Nothing
|
||||
Me.aViewPivotDetail_3.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Caption = "View registry"
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Id = "aViewRegistry_GLReportRowsCostHolder"
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.ImageName = "document_pinned"
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TargetViewId = ""
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aViewRegistry_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttacments_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Caption = "View atachments"
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Id = "aViewAttacments_GLReportRowsCostHolder"
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.ImageName = "document_pinned"
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TargetViewId = ""
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aViewAttacments_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPCID_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Caption = "aViewPCIDGroup"
|
||||
Me.aViewPCID_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Id = "aViewPCID_GLReportRowsCostHolder"
|
||||
Me.aViewPCID_GLReportRowsCostHolder.ImageName = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TargetViewId = ""
|
||||
Me.aViewPCID_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aViewPCID_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
'
|
||||
'aDivide_GLReportRowsCostHolder
|
||||
'
|
||||
Me.aDivide_GLReportRowsCostHolder.AcceptButtonCaption = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.CancelButtonCaption = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.Caption = "aDivide_GLReportRowsCostHolder"
|
||||
Me.aDivide_GLReportRowsCostHolder.ConfirmationMessage = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.Id = "aDivide_GLReportRowsCostHolder"
|
||||
Me.aDivide_GLReportRowsCostHolder.ImageName = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDivide_GLReportRowsCostHolder.Shortcut = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.Tag = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.TargetObjectType = GetType(Nuvolar.[Module].GLReportRowsCostHolder)
|
||||
Me.aDivide_GLReportRowsCostHolder.TargetViewId = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.ToolTip = Nothing
|
||||
Me.aDivide_GLReportRowsCostHolder.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aViewPivotDetail As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttacments_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLReportRows_ChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGLReportRows_DivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aViewPivotDetail_2 As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPCID_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPivotDetail_3 As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttacments_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPCID_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDivide_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+159
@@ -0,0 +1,159 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aViewPivotDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry_GLReportRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 128</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttacments_GLReportRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 165</value>
|
||||
</metadata>
|
||||
<metadata name="aGLReportRows_ChangeParam.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 239</value>
|
||||
</metadata>
|
||||
<metadata name="aGLReportRows_DivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 350</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPivotDetail_2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 387</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPCID_GLReportRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 424</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPivotDetail_3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 461</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 498</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttacments_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 202</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPCID_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 276</value>
|
||||
</metadata>
|
||||
<metadata name="aDivide_GLReportRowsCostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 313</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+552
@@ -0,0 +1,552 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.XtraPivotGrid
|
||||
Imports DevExpress.ExpressApp.PivotGrid.Win
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports Nuvolar.Module
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports System.IO
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.ViewVariantsModule
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.XtraGrid
|
||||
|
||||
Public Class GLReportRowsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Private _PivotGridListEditor As PivotGridListEditor
|
||||
Private _PivotGrdidControl As PivotGridControl
|
||||
Private _GridListEditor As GridListEditor
|
||||
Private _GridControl As GridControl
|
||||
Private _Criteria As String = ""
|
||||
Dim _WaitFormClass As New WaitFormClass
|
||||
Private _MasterKey As Guid
|
||||
Private _VariantSelectedItemID As String = ""
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id Like "GLReport_DetailView" Then
|
||||
Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
|
||||
If _GLReport IsNot Nothing Then
|
||||
_MasterKey = _GLReport.Oid
|
||||
End If
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Save_Executing
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Save_Executing
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Save_Executing
|
||||
|
||||
AddHandler View.ControlsCreated, AddressOf GLReport_DetailView_ControlCreated
|
||||
End If
|
||||
If View.Id Like "GLReport_GLReportRows*" Then
|
||||
AddHandler View.ControlsCreated, AddressOf ListView_ControlsCreated
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
MyBase.OnViewControlsCreated()
|
||||
|
||||
End Sub
|
||||
Private Sub GLReport_DetailView_ControlCreated(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If _PivotGrdidControl IsNot Nothing Then
|
||||
RemoveHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ListView_ControlsCreated(sender As Object, e As EventArgs)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource)
|
||||
If _PropertyCollectionSource IsNot Nothing Then
|
||||
_MasterKey = _PropertyCollectionSource.MasterObject.oid
|
||||
End If
|
||||
|
||||
_PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor)
|
||||
|
||||
If _PivotGridListEditor IsNot Nothing Then
|
||||
_PivotGrdidControl = _PivotGridListEditor.PivotGridControl
|
||||
AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPivotDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows))
|
||||
Dim _GLReport As GLReport = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aViewPivotDetail_2_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_2.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows))
|
||||
Dim _GLReport As GLReport = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLReport Is Nothing Then Exit Sub
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail_2", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs)
|
||||
Dim _RowPivotGridField As PivotGridField
|
||||
Dim _ColumnPivotGridField As PivotGridField
|
||||
Dim s As String
|
||||
If e.RowValueType = PivotGridValueType.Value Then
|
||||
If e.ColumnValueType = PivotGridValueType.Value Then
|
||||
_Criteria = ""
|
||||
For Each _RowPivotGridField In e.GetRowFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _ColumnPivotGridField In e.GetColumnFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
ElseIf e.ColumnValueType = PivotGridValueType.GrandTotal Then
|
||||
_Criteria = ""
|
||||
For Each _RowPivotGridField In e.GetRowFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each _ColumnPivotGridField In e.GetColumnFields
|
||||
s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex))
|
||||
If LTrim(RTrim(s)) <> "" Then
|
||||
If _Criteria = "" Then
|
||||
_Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
Else
|
||||
_Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='"
|
||||
_Criteria = _Criteria & s & "'" & Chr(13) & Chr(10)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewRegistry_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRows.Execute
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRows.ConnectInfo
|
||||
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
|
||||
End Sub
|
||||
Private Sub aViewAttacments_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRows.Execute
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRows.ConnectInfo
|
||||
|
||||
Dim _GLMixed As GLMixed = Nothing
|
||||
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
_GLMixed = TryCast(_GLReportRows.GLRows.GLHeader, GLMixed)
|
||||
End If
|
||||
|
||||
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed)
|
||||
End Sub
|
||||
|
||||
Private Sub aGLReportRows_ChangeParam_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_ChangeParam.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)()
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows IsNot Nothing Then
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLReportRows.GLRows.GLHeader.DateExecution.Year))
|
||||
Else
|
||||
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year))
|
||||
End If
|
||||
Else
|
||||
_GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year))
|
||||
End If
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
|
||||
End Sub
|
||||
Private Sub aGLReportRows_ChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_ChangeParam.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
|
||||
Dim _GLRows As GLRows
|
||||
Dim _InvoiceRows As InvoiceRows
|
||||
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
|
||||
Dim _GLReportRows As GLReportRows
|
||||
Dim I As Long = 0
|
||||
Dim _Controlling As Controlling
|
||||
Dim _JobNumberObjects As JobNumberObjects
|
||||
Dim _CostHolder As CostHolder
|
||||
Dim _CostPlace As CostPlace
|
||||
Dim _UniqueObjects As UniqueObjects
|
||||
Dim _DebitChartOfAccounts As ChartOfAccounts
|
||||
Dim _CreditChartOfAccounts As ChartOfAccounts
|
||||
|
||||
If _GLRowsCheck.Controlling IsNot Nothing Then
|
||||
_Controlling = _ocur.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.Controlling.Oid), True)
|
||||
If _Controlling.Children.Count > 0 Then
|
||||
Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _Controlling.Name))
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
_Controlling = Nothing
|
||||
End If
|
||||
If _GLRowsCheck.JobNumberObjects IsNot Nothing Then
|
||||
_JobNumberObjects = _ocur.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.JobNumberObjects.Oid), True)
|
||||
Else
|
||||
_JobNumberObjects = Nothing
|
||||
End If
|
||||
If _GLRowsCheck.CostHolder IsNot Nothing Then
|
||||
_CostHolder = _ocur.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostHolder.Oid), True)
|
||||
Else
|
||||
_CostHolder = Nothing
|
||||
End If
|
||||
If _GLRowsCheck.CostPlace IsNot Nothing Then
|
||||
_CostPlace = _ocur.FindObject(Of CostPlace)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostPlace.Oid), True)
|
||||
Else
|
||||
_CostPlace = Nothing
|
||||
End If
|
||||
If _GLRowsCheck.UniqueObjects IsNot Nothing Then
|
||||
_UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.UniqueObjects.Oid), True)
|
||||
Else
|
||||
_UniqueObjects = Nothing
|
||||
End If
|
||||
If _GLRowsCheck.DebitChartOfAccounts IsNot Nothing Then
|
||||
_DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.DebitChartOfAccounts.Oid), True)
|
||||
Else
|
||||
_DebitChartOfAccounts = Nothing
|
||||
End If
|
||||
If _GLRowsCheck.CreditChartOfAccounts IsNot Nothing Then
|
||||
_CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CreditChartOfAccounts.Oid), True)
|
||||
Else
|
||||
_CreditChartOfAccounts = Nothing
|
||||
End If
|
||||
|
||||
If _DebitChartOfAccounts IsNot Nothing And _CreditChartOfAccounts IsNot Nothing Then
|
||||
If _DebitChartOfAccounts.Oid = _CreditChartOfAccounts.Oid Then
|
||||
Throw New Exception("*A tartozik és a követel számlaszám NEM lehet azonos !")
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
_WaitFormClass.Initwork(1, 1, View.SelectedObjects.Count)
|
||||
For Each _GLReportRows In View.SelectedObjects
|
||||
I += 1
|
||||
_WaitFormClass.DoWork()
|
||||
_GLRows = _GLReportRows.GLRows
|
||||
If _GLRows IsNot Nothing Then
|
||||
If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling
|
||||
If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects
|
||||
If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder
|
||||
If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace
|
||||
If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects
|
||||
If _DebitChartOfAccounts IsNot Nothing Then _GLRows.DebitChartOfAccounts = _DebitChartOfAccounts
|
||||
If _CreditChartOfAccounts IsNot Nothing Then _GLRows.CreditChartOfAccounts = _CreditChartOfAccounts
|
||||
If _GLRowsCheck.IsDateExecution = True Then _GLRows.DateExecution = _GLRowsCheck.DateExecution
|
||||
_GLRows.Save()
|
||||
|
||||
_GLReportRows.Controlling = _GLRows.Controlling
|
||||
_GLReportRows.JobNumberObjects = _GLRows.JobNumberObjects
|
||||
_GLReportRows.CostHolder = _GLRows.CostHolder
|
||||
_GLReportRows.CostPlace = _GLRows.CostPlace
|
||||
_GLReportRows.UniqueObjects = _GLRows.UniqueObjects
|
||||
_GLReportRows.Save()
|
||||
End If
|
||||
_InvoiceRows = _GLReportRows.InvoiceRows
|
||||
If _InvoiceRows IsNot Nothing Then
|
||||
If _Controlling IsNot Nothing Then _InvoiceRows.Controlling = _Controlling
|
||||
If _JobNumberObjects IsNot Nothing Then _InvoiceRows.JobNumberObjects = _JobNumberObjects
|
||||
If _CostHolder IsNot Nothing Then _InvoiceRows.CostHolder = _CostHolder
|
||||
If _CostPlace IsNot Nothing Then _InvoiceRows.CostPlace = _CostPlace
|
||||
If _UniqueObjects IsNot Nothing Then _InvoiceRows.UniqueObjects = _UniqueObjects
|
||||
If _GLRowsCheck.IsDateExecution = True Then _InvoiceRows.DateExecution = _GLRowsCheck.DateExecution
|
||||
_InvoiceRows.Save()
|
||||
|
||||
_GLReportRows.Controlling = _InvoiceRows.Controlling
|
||||
_GLReportRows.JobNumberObjects = _InvoiceRows.JobNumberObjects
|
||||
_GLReportRows.CostHolder = _InvoiceRows.CostHolder
|
||||
_GLReportRows.CostPlace = _InvoiceRows.CostPlace
|
||||
_GLReportRows.UniqueObjects = _InvoiceRows.UniqueObjects
|
||||
_GLReportRows.Save()
|
||||
End If
|
||||
_RegistryRowsFinancialControlling = _GLReportRows.RegistryRowsFinancialControlling
|
||||
If _RegistryRowsFinancialControlling IsNot Nothing Then
|
||||
If _Controlling IsNot Nothing Then _RegistryRowsFinancialControlling.Controlling = _Controlling
|
||||
If _JobNumberObjects IsNot Nothing Then _RegistryRowsFinancialControlling.JobNumberObjects = _JobNumberObjects
|
||||
If _CostHolder IsNot Nothing Then _RegistryRowsFinancialControlling.CostHolder = _CostHolder
|
||||
If _CostPlace IsNot Nothing Then _RegistryRowsFinancialControlling.CostPlace = _CostPlace
|
||||
If _UniqueObjects IsNot Nothing Then _RegistryRowsFinancialControlling.UniqueObjects = _UniqueObjects
|
||||
If _GLRowsCheck.IsDateExecution = True Then _RegistryRowsFinancialControlling.DateExecution = _GLRowsCheck.DateExecution
|
||||
|
||||
_RegistryRowsFinancialControlling.Save()
|
||||
|
||||
_GLReportRows.Controlling = _RegistryRowsFinancialControlling.Controlling
|
||||
_GLReportRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects
|
||||
_GLReportRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder
|
||||
_GLReportRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace
|
||||
_GLReportRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects
|
||||
_GLReportRows.Save()
|
||||
End If
|
||||
|
||||
If I Mod 100 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_Waitformclass.FinalWork()
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub aGLReportRows_DivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_DivideRows.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows Is Nothing Then Exit Sub
|
||||
|
||||
Dim _GLRows As GLRows = _GLReportRows.GLRows
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer)
|
||||
_GLRowsDivideH.row_PartnerType = _GLRows.PartnerType
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH)
|
||||
Else
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_PartnerType = ePartnerType.eNotSet
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLReportRows_DivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_DivideRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows Is Nothing Then Exit Sub
|
||||
|
||||
Dim _GLRows As GLRows = _GLReportRows.GLRows
|
||||
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
|
||||
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPCID_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRows.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows)
|
||||
|
||||
If _GLReportRows IsNot Nothing Then
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLRows.GLHeader.CustomersFrom, _
|
||||
_GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.InvoiceHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.InvoiceHeader.CustomersFrom, _
|
||||
_GLReportRows.Customers, 0, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.RegistryHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.RegistryHeader.CustomersFrom, _
|
||||
_GLReportRows.Customers, 1, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPivotDetail_3_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_3.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRowsCostHolder))
|
||||
Dim _GLReport As GLReport = Nothing
|
||||
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
_GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport)
|
||||
Else
|
||||
If TryCast(View, ListView).CollectionSource.List.Count > 0 Then
|
||||
_GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRowsCostHolder).GLReport
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLReport Is Nothing Then Exit Sub
|
||||
|
||||
If LTrim(RTrim(_Criteria <> "")) Then
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid)
|
||||
_CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRowsCostHolder_ListView_PivotDetail", _CS, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewRegistry_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRowsCostHolder.Execute
|
||||
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo
|
||||
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
|
||||
End Sub
|
||||
Private Sub aViewAttacments_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRowsCostHolder.Execute
|
||||
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom
|
||||
Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers
|
||||
Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo
|
||||
Dim _GLMixed As GLMixed = Nothing
|
||||
|
||||
If _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then
|
||||
_GLMixed = TryCast(_GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader, GLMixed)
|
||||
End If
|
||||
|
||||
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed)
|
||||
End Sub
|
||||
Private Sub aViewPCID_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRowsCostHolder.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder).GLReportRows
|
||||
|
||||
If _GLReportRows IsNot Nothing Then
|
||||
If _GLReportRows.GLRows IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
|
||||
_GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.InvoiceHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
|
||||
_GLReportRows.Customers, 0, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
If _GLReportRows.RegistryHeader IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _
|
||||
_GLReportRows.Customers, 1, _
|
||||
_GLReportRows.ConnectInfo)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aDivide_GLReportRowsCostHolder_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDivide_GLReportRowsCostHolder.CustomizePopupWindowParams
|
||||
'// Sorbontás vezetői ellenőrzésen !
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivide As GLRowsDivide = _onew.CreateObject(Of GLRowsDivide)()
|
||||
Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder)
|
||||
|
||||
If _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling IsNot Nothing Then
|
||||
_GLRowsDivide.AmountHUF = _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling.Amount
|
||||
ElseIf _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then
|
||||
Select Case _GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader.GLDocumentType
|
||||
Case eGLDocumentType.eGLAccount
|
||||
Case eGLDocumentType.eGLBank, eGLDocumentType.eGLCassa, eGLDocumentType.eGLCompensation, eGLDocumentType.eGLMixed
|
||||
End Select
|
||||
End If
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivide_DetailView", False, _GLRowsDivide)
|
||||
End Sub
|
||||
Private Sub aDivide_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDivide_GLReportRowsCostHolder.Execute
|
||||
'// Sorbontás vezetői ellenőrzéshez
|
||||
End Sub
|
||||
|
||||
Private Sub Save_Executing(sender As Object, e As CancelEventArgs)
|
||||
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
If View.Id Like "GLReport_DetailView" Then
|
||||
Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
|
||||
If _GLReport IsNot Nothing Then
|
||||
|
||||
Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("GLReportRows")
|
||||
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
_GLReport.VariantSelectedItemID = _ListPropertyEditor.ListView.Id
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
+31
@@ -0,0 +1,31 @@
|
||||
Partial Class GLReportRowsWC
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+65
@@ -0,0 +1,65 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.ExpressApp.Layout
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Templates
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Model.NodeGenerators
|
||||
Imports DevExpress.ExpressApp.ViewVariantsModule
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppWindowControllertopic.
|
||||
Partial Public Class GLReportRowsWC
|
||||
Inherits WindowController
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
' Target required Windows (via the TargetXXX properties) and create their Actions.
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
' Perform various tasks depending on the target Window.
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
' Unsubscribe from previously subscribed events and release other references and resources.
|
||||
MyBase.OnDeactivated()
|
||||
End Sub
|
||||
Protected Overrides Sub OnFrameAssigned()
|
||||
MyBase.OnFrameAssigned()
|
||||
Dim controller As ChangeVariantController = Frame.GetController(Of ChangeVariantController)()
|
||||
'AddHandler controller.ChangeVariantActionItemsCreated, AddressOf VariantsController_ChangeVariantActionItemsCreated
|
||||
End Sub
|
||||
|
||||
Private Sub VariantsController_ChangeVariantActionItemsCreated(sender As Object, e As EventArgs)
|
||||
'Beep()
|
||||
|
||||
'If View.Id = "GLReport_DetailView" Then
|
||||
' Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport)
|
||||
' Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
' If _GLReport IsNot Nothing Then
|
||||
' _MasterKey = _GLReport.Oid
|
||||
' If _ocur.IsNewObject(_GLReport) = False Then
|
||||
' If _GLReport.VariantSelectedItemID <> "" Then
|
||||
' Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("GLReportRows")
|
||||
' If _ListPropertyEditor.Frame IsNot Nothing Then
|
||||
' Dim _ChangeVariantController As ChangeVariantController = Frame.GetController(Of ChangeVariantController)()
|
||||
' _ChangeVariantController.ChangeVariantAction.DoExecute(_ChangeVariantController.ChangeVariantAction.FindItemByIdPath(_GLReport.VariantSelectedItemID))
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
If Frame.View.Id Like "GLReport_GLRep*" Then
|
||||
'TryCast(sender, ChangeVariantController).ChangeVariantAction.DoExecute(TryCast(sender, ChangeVariantController).ChangeVariantAction.FindItemByIdPath(TryCast(TryCast(TryCast(Frame.View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).VariantSelectedItemID))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLRowsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+89
@@ -0,0 +1,89 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class ABRQueryVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+39
@@ -0,0 +1,39 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class ABRQueryVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCICheckerVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+43
@@ -0,0 +1,43 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.ExpressApp.Layout
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Templates
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Model.NodeGenerators
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
|
||||
Partial Public Class PCICheckerVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PartnerAccountConnectionInfoQueryVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+38
@@ -0,0 +1,38 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class PartnerAccountConnectionInfoQueryVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCICheckVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+34
@@ -0,0 +1,34 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class PCICheckVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCIGroupAgingVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+34
@@ -0,0 +1,34 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class PCIGroupAgingVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class PCIVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+34
@@ -0,0 +1,34 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class PCIVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class SpecTranRevaluationVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+38
@@ -0,0 +1,38 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class SpecTranRevaluationVC
|
||||
Inherits 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
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class TrialBalanceVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+123
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+85
@@ -0,0 +1,85 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.ExpressApp.Win.Editors
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports System.Drawing
|
||||
|
||||
Public Class TrialBalanceVC
|
||||
Inherits 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
|
||||
+68
@@ -0,0 +1,68 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.ExpressApp.DC
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports System.Drawing
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
Public Enum eVATReportCheckListType
|
||||
eError = 0
|
||||
eWarning = 1
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class VATReportCheckList
|
||||
Inherits BaseObject
|
||||
|
||||
Private _VATReportCheckListType As eVATReportCheckListType
|
||||
Private _Description As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property VATReportCheckListType As eVATReportCheckListType
|
||||
Get
|
||||
Return _VATReportCheckListType
|
||||
End Get
|
||||
Set(value As eVATReportCheckListType)
|
||||
SetPropertyValue("VATReportCheckListType", _VATReportCheckListType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImageEditor(ListViewImageEditorCustomHeight:=16, ImageSizeMode:=ImageSizeMode.Normal)> _
|
||||
ReadOnly Property ImageType As Image
|
||||
Get
|
||||
Select Case VATReportCheckListType
|
||||
Case eVATReportCheckListType.eError
|
||||
Return ImageLoader.Instance.GetImageInfo("error").Image
|
||||
Case eVATReportCheckListType.eWarning
|
||||
Return ImageLoader.Instance.GetImageInfo("warning").Image
|
||||
Case Else
|
||||
Return Nothing
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+57
@@ -0,0 +1,57 @@
|
||||
Partial Class VATReportVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aVATReport_Create65XML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aVATReport_Check65XML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aVATReport_Create65XML
|
||||
'
|
||||
Me.aVATReport_Create65XML.Caption = "aVATReport_Create65XML"
|
||||
Me.aVATReport_Create65XML.ConfirmationMessage = Nothing
|
||||
Me.aVATReport_Create65XML.Id = "aVATReport_Create65XML"
|
||||
Me.aVATReport_Create65XML.TargetObjectType = GetType(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
|
||||
+129
@@ -0,0 +1,129 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aVATReport_Create65XML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aVATReport_Check65XML.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>212, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1547
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user