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

Reconfigure for GIT

Browse Source
This commit is contained in:
ivanszabo
2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.Designer.vb
Generated
+114
View File
@@ -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
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.resx
+138
View File
@@ -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>
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb
+557
View File
@@ -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
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankNoTransferPopup.vb
+31
View File
@@ -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
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.Designer.vb
Generated
+205
View File
@@ -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
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.resx
+153
View File
@@ -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>
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb
+722
View File
@@ -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 SISBusiness.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
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.Designer.vb
Generated
+32
View File
@@ -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
SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
+84
View File
@@ -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 SISBusiness.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