ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f01704e8d48d7cd797dc5b182ac00dffa891778e
Nuvolar/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb
T
ivanszabo 9cca882b34 Átállás 17.2.3-ra 
Related Work Items: #123
2017-12-02 16:09:26 +01:00

722 lines
40 KiB
VB.net
Raw Blame History

Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports System.IO
Imports DevExpress.Data.Filtering
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.Xpo
Imports Nuvolar.Module
Public Class BankVC
Inherits DevExpress.ExpressApp.ViewController
Protected _selection As ArrayList
Protected _selection_group As ArrayList
Protected _noselect As Boolean = False
Public Sub New()
MyBase.New()
_selection = New ArrayList()
_selection_group = New ArrayList
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", False)
Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", False)
Frame.GetController(Of BankVC).aViewPDCI_Bank.Active.SetItemValue("", False)
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
If View.Id Like "RegistryBankTransfer_ListView*" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", True)
Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", True)
Frame.GetController(Of BankVC).aViewPDCI_Bank.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "GLBankDivide_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "BankParameterDEV_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "RegistryBankTransfer_ListView_Not_Transfered" Then
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", True)
Frame.GetController(Of BankVC).aBankMerge.Active.SetItemValue("", True)
End If
If View.Id = "BankNoTransferPopup" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id Like "RegistryBankTransfer_ListView*" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "GLBankDivide_DetailView" Then
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "BankParameterDEV_DetailView" Then
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "RegistryBankTransfer_ListView" Then
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
End If
End Sub
#Region "Bank save" 'Banki kommunikáció
Private Sub DownloadToMKBHUF(ByVal _View As View, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _BankParameterDEV As BankParameterDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), BankParameterDEV)
Dim _Bank_AccountNumber_CustomersFrom As String = _BankParameterDEV.BankInformation.AccountNumber
Dim _RegistryBankTransfer As RegistryBankTransfer
Dim _DocumentNumber As String
Dim _Note As String
Dim I As Long
Dim _BankString As String
Dim _Today As String
Dim _Customers_Name As String
Dim _CustomersFrom_Name As String
Dim _Bank_AccountNumber_Customers As String
Dim _Amount As String
Dim _FileName As String
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
'-------------------------------------------------------------------------------------------
_Today = Format(Year(_BankParameterDEV.DateExecution), "0000")
_Today = _Today & Format(Month(_BankParameterDEV.DateExecution), "00")
_Today = _Today & Format(Day(_BankParameterDEV.DateExecution), "00")
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(0), RegistryBankTransferView).Oid)
If _BankParameterDEV.CustomFileName = "" Then
_FileName = Replace(Replace(Mid(_RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName, 1, 10), ".", "_"), " ", "_") & _
"_" & _Today & Replace(Format(Now, "hh:mm"), ":", "") & ".HUF"
Else
_FileName = _BankParameterDEV.CustomFileName
End If
Dim _FileStream As New FileStream(_BankParameterDEV.FolderName & "/" & _FileName, FileMode.Create, FileAccess.ReadWrite)
Dim _StreamWriter As New StreamWriter(_FileStream, System.Text.Encoding.ASCII)
For I = 0 To _selection.Count - 1
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(I), RegistryBankTransferView).Oid)
If _RegistryBankTransfer.IsBlocked = False Then
_CustomersFrom_Name = _RegistryBankTransfer.RegistryHeader.CustomersFrom.Name
If _RegistryBankTransfer.RegistryHeader.Customers.Name = "" Then
_RegistryBankTransfer.RegistryHeader.Customers.Name = _RegistryBankTransfer.RegistryHeader.Customers.FullName
_ocur.Session.FlushChanges()
End If
_Customers_Name = _RegistryBankTransfer.RegistryHeader.Customers.Name
_Bank_AccountNumber_Customers = Replace(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.AccountNumber, "-", "")
_Bank_AccountNumber_Customers = AlignStr(_Bank_AccountNumber_Customers, eDirection.Right, "0", 24)
_Bank_AccountNumber_Customers = AlignStr(Replace(_Bank_AccountNumber_Customers, "-", ""), 1, " ", 47)
'-- Letöltésre kerülő összeg !
_Amount = LTrim(RTrim(CStr(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountHUF), 0, MidpointRounding.AwayFromZero)))) & ",00"
_DocumentNumber = _RegistryBankTransfer.RegistryHeader.DocumentNumber
_Note = _RegistryBankTransfer.Note
_Customers_Name = AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32)
_Amount = AlignStr(Replace(_Amount, ".", ""), 0, "0", 13)
_BankString = "PAYORD"
_BankString = _BankString & "DO"
_BankString = _BankString & "20000101000000"
_BankString = _BankString & Replace(AlignStr(Replace(_Bank_AccountNumber_CustomersFrom, "-", ""), 1, " ", 47), "00000000", " ")
_BankString = _BankString & "0"
_BankString = _BankString & ANSITo852(AlignStr(Replace(_CustomersFrom_Name, Chr(13) & Chr(10), " "), 1, " ", 32))
_BankString = _BankString & AlignStr(" ", 0, " ", 117)
_BankString = _BankString & _Bank_AccountNumber_Customers
_BankString = _BankString & "0"
_BankString = _BankString & AlignStr(" ", 0, " ", 64)
_BankString = _BankString & ANSITo852(AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32))
_BankString = _BankString & AlignStr(" ", 0, " ", 229)
_BankString = _BankString & ANSITo852(AlignStr(_DocumentNumber, 1, " ", 32))
_BankString = _BankString & ANSITo852(AlignStr(_Note, 1, " ", 64))
_BankString = _BankString & ANSITo852(AlignStr(" ", 0, " ", 6))
_BankString = _BankString & AlignStr(" ", 0, " ", 90)
_BankString = _BankString & "1111"
_BankString = _BankString & AlignStr(" ", 0, " ", 17)
_BankString = _BankString & "HUF"
_BankString = _BankString & "0"
_BankString = _BankString & AlignStr(_Amount, 0, " ", 13)
_BankString = _BankString & AlignStr(" ", 0, " ", 12)
_BankString = _BankString & AlignStr(_Today, 0, " ", 8)
_BankString = _BankString & AlignStr(" ", 0, " ", 95)
_BankString = _BankString & "00" & Chr(13) & Chr(10)
_StreamWriter.Write(_BankString)
_RegistryBankTransfer.BankSavedFileName = _FileName
_RegistryBankTransfer.Save()
End If
Next I
_StreamWriter.Close()
_BankParameterDEV.TransferTotalDEV = 0
_BankParameterDEV.TransferCount = 0
_BankParameterDEV.TransferTotalHUF = 0
_BankParameterDEV.BankInformation = Nothing
_BankParameterDEV.Save()
e.PopupWindow.View.ObjectSpace.CommitChanges()
_ocur.CommitChanges()
End Sub
Private Sub DownloadToMKBDEV(ByVal _View As View, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _BankParameterDEV As BankParameterDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), BankParameterDEV)
Dim _Bank_AccountNumber_CustomersFrom As String
Dim _Bank_AccountNumber_Customers As String
Dim _RegistryBankTransfer As RegistryBankTransfer
Dim _DocumentNumber As String
Dim _Note As String
Dim I As Long
Dim _BankString As String
Dim _Today As String
Dim _Customers_Name As String
Dim _CustomersFrom_Name As String
Dim _FileName As String
Dim _Amount As String
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
'-------------------------------------------------------------------------------------------
_Today = Format(Year(_BankParameterDEV.DateExecution), "0000") & Format(Month(_BankParameterDEV.DateExecution), "00") & Format(Day(_BankParameterDEV.DateExecution), "00")
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(0), RegistryBankTransferView).Oid)
_FileName = Replace(Replace(Mid(_RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName, 1, 10), ".", "_"), " ", "_") & _
"_" & _Today & Replace(Format(Now, "hh:mm"), ":", "") & ".DEV"
_CustomersFrom_Name = _RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName
_Bank_AccountNumber_CustomersFrom = Replace(_BankParameterDEV.BankInformation.AccountNumber, "-", "")
_Bank_AccountNumber_CustomersFrom = AlignStr(_Bank_AccountNumber_CustomersFrom, eDirection.Right, "0", 24)
_Bank_AccountNumber_CustomersFrom = AlignStr(Replace(_Bank_AccountNumber_CustomersFrom, "-", ""), 1, " ", 47)
Dim _FileStream As New FileStream(_BankParameterDEV.FolderName & "/" & _FileName, FileMode.Create, FileAccess.ReadWrite)
Dim _StreamWriter As New StreamWriter(_FileStream, System.Text.Encoding.ASCII)
For I = 0 To _selection.Count - 1
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(I), RegistryBankTransferView).Oid)
If _RegistryBankTransfer.IsBlocked = False Then
If _RegistryBankTransfer.RegistryHeader.Customers.Name = "" Then
_RegistryBankTransfer.RegistryHeader.Customers.Name = _RegistryBankTransfer.RegistryHeader.Customers.FullName
_ocur.Session.FlushChanges()
End If
_Customers_Name = _RegistryBankTransfer.RegistryHeader.Customers.Name
_Bank_AccountNumber_Customers = Replace(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.AccountNumber, "-", "")
_Bank_AccountNumber_Customers = AlignStr(_Bank_AccountNumber_Customers, eDirection.Right, "0", 24)
_Bank_AccountNumber_Customers = AlignStr(Replace(_Bank_AccountNumber_Customers, "-", ""), 1, " ", 47)
'_Amount = Replace(LTrim(RTrim(CStr(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountDEV), 2, MidpointRounding.AwayFromZero)))), ".", "")
_Amount = Replace(LTrim(RTrim(Format(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountDEV), 2, MidpointRounding.AwayFromZero), "0.00"))), ",", "")
_DocumentNumber = _RegistryBankTransfer.RegistryHeader.DocumentNumber
_Note = _RegistryBankTransfer.Note
_Customers_Name = AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32)
_Amount = AlignStr(Replace(_Amount, ".", ""), 0, "0", 13) ' A replace-re nem biztos, hogy szükség van.
'Tranzakció
_BankString = "PAYORD" 'Rekord típus.
_BankString = _BankString & "IN" 'Devizaátutalás.
_BankString = _BankString & _Today & "000000" 'Azonosító.
'Fealadó
_BankString = _BankString & _Bank_AccountNumber_CustomersFrom 'Számlaszám.
_BankString = _BankString & "0" 'Számlaszám típusa: 24 jegyű GIRO számlaszám esetén 0, nemzetközi számlaszám esetén 9.
_BankString = _BankString & ANSITo852(AlignStr(Replace(_CustomersFrom_Name, Chr(13) & Chr(10), " "), 1, " ", 140)) 'Feladó neve.
_BankString = _BankString & AlignStr(" ", 1, " ", 9) 'A következő mezőnek a 220. pozíción kell kezdődnie.
'Címzett
_BankString = _BankString & _Bank_AccountNumber_Customers 'Számlaszám.
_BankString = _BankString & "0" 'Számlaszám típusa: 24 jegyű GIRO számlaszám esetén 0, nemzetközi számlaszám esetén 9.
_BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.ShortName, 1, " ", 64) 'Bank neve.
_BankString = _BankString & ANSITo852(AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 140)) 'Címzett neve.
_BankString = _BankString & "HU" 'Országkód - a régi rendszerben is így volt...
_BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.SWIFT, 0, " ", 15) 'SWIFT kód.
_BankString = _BankString & AlignStr(" ", 1, " ", 35) 'Levelező bank.
'Megjegyzés.
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Rezidens (Y/N).
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'SWIFT üzenetről másolatot kér (Y/N).
_BankString = _BankString & AlignStr(" ", 1, " ", 15) 'Fax szám, ahova a SWIFT másolatot kéri.
_BankString = _BankString & AlignStr(" ", 1, " ", 16) 'Kitöltő karakterek.
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Nem kér egyedi árfolyamot (Y/N).
_BankString = _BankString & AlignStr(" ", 1, " ", 35) 'Banknak szóló közlemény, nem használt.
_BankString = _BankString & AlignStr(" ", 1, " ", 95) 'Közlemény.
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Kitöltő karakter.
'Stat. információ.
_BankString = _BankString & AlignStr(" ", 1, " ", 4) 'Jogcímkód.
_BankString = _BankString & AlignStr(" ", 1, " ", 60) 'Kitöltő karakterekek.
_BankString = _BankString & AlignStr(" ", 1, " ", 24) 'Dev. eng. száma.
_BankString = _BankString & AlignStr(" ", 1, " ", 8) 'Dev. eng. dátuma.
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Sürgős teljesítés használata.
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Sürgős teljesítés.
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'VIBER.
_BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Kitöltő karakter.
'Összeg.
_BankString = _BankString & AlignStr(_BankParameterDEV.CurrencyName.ShortName, 1, " ", 3) 'Kifizetendő deviza - a popupról vesszük.
_BankString = _BankString & AlignStr(" ", 1, " ", 14) 'Kitöltő karakterekek.
_BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName, 1, " ", 3) 'Átutalandó deviza.
_BankString = _BankString & "2" 'Tizedesjegyek száma.
_BankString = _BankString & AlignStr(_Amount, 0, "0", 13) 'Átutalandó összeg.
_BankString = _BankString & AlignStr(" ", 1, " ", 12) 'Kitöltő karakterekek.
'Dátum.
_BankString = _BankString & _Today 'Valutanap.
_BankString = _BankString & AlignStr(" ", 1, " ", 12) 'Kitöltő karakterekek.
'Egyéb.
_BankString = _BankString & _BankParameterDEV.BankCost 'Költségviselés.
_BankString = _BankString & AlignStr(" ", 1, " ", 82) 'Kitöltő karakterekek.
_BankString = _BankString & "00" 'Státusz.
'Rekordelválasztó
_BankString = _BankString & Chr(13) & Chr(10)
_StreamWriter.Write(_BankString)
_RegistryBankTransfer.BankSavedFileName = _FileName
_RegistryBankTransfer.Save()
End If
Next I
_StreamWriter.Close()
_BankParameterDEV.TransferTotalDEV = 0
_BankParameterDEV.TransferCount = 0
_BankParameterDEV.TransferTotalHUF = 0
_BankParameterDEV.BankInformation = Nothing
_BankParameterDEV.Save()
e.PopupWindow.View.ObjectSpace.CommitChanges()
_ocur.CommitChanges()
End Sub
Private Function ANSITo852(ByVal S As String) As String
'[ü] 129 08/01 201 81 u diaeresis
'[é] 130 08/02 202 82 e acute
'[Ő] 138 08/10 212 8A O double acute accent
'[ő] 139 08/11 213 8B o double acute accent
'[É] 144 09/00 220 90 E acute
'[ĺ] 146 09/02 222 92 l acute
'[ö] 148 09/04 224 94 o diaeresis
'[Ö] 153 09/09 231 99 O diaeresis
'[Ü] 154 09/10 232 9A U diaeresis
'[á] 160 10/00 240 A0 a acute
'[í] 161 10/01 241 A1 i acute
'[ó] 162 10/02 242 A2 o acute
'[ú] 163 10/03 243 A3 u acute
'[Á] 181 11/05 265 B5 A acute
'[Í] 214 13/06 326 D6 I acute
'[Ó] 224 14/00 340 E0 O acute
'[Ú] 233 14/09 351 E9 U acute
'[Ű] 235 14/11 353 EB U double acute
'[ű] 251 15/11 373 FB u double acute
Dim I As Integer
Dim seged As String
Dim ch As String
seged = ""
For I = 1 To Len(S)
ch = Mid(S, I, 1)
Select Case ch
'Case "ó" : ch = Chr(162)
'Case "ű" : ch = Chr(251)
'Case "ú" : ch = Chr(163)
'Case "ő" : ch = Chr(139)
'Case "á" : ch = Chr(160)
'Case "é" : ch = Chr(130)
'Case "í" : ch = Chr(161)
'Case "ü" : ch = Chr(129)
'Case "ű" : ch = Chr(129)
'Case "Ó" : ch = Chr(224)
'Case "Ű" : ch = Chr(235)
'Case "Ú" : ch = Chr(233)
'Case "Ő" : ch = Chr(138)
'Case "Á" : ch = Chr(181)
'Case "É" : ch = Chr(144)
'Case "Í" : ch = Chr(214)
'Case "Ü" : ch = Chr(154)
'Case "Ű" : ch = Chr(154)
Case "ö" : ch = "o"
Case "ó" : ch = "o"
Case "ű" : ch = "u"
Case "ú" : ch = "u"
Case "ő" : ch = "o"
Case "á" : ch = "a"
Case "é" : ch = "e"
Case "í" : ch = "i"
Case "ü" : ch = "u"
Case "ű" : ch = "u"
Case "Ó" : ch = "O"
Case "Ű" : ch = "u"
Case "Ú" : ch = "U"
Case "Ő" : ch = "O"
Case "Á" : ch = "A"
Case "É" : ch = "E"
Case "Í" : ch = "I"
Case "Ü" : ch = "U"
Case "Ű" : ch = "U"
Case "Ö" : ch = "O"
End Select
seged = seged & ch
Next I
ANSITo852 = seged
End Function
#End Region
Private Sub aSaveElectraHUF_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSaveElectraHUF.Cancel
_noselect = False
End Sub
Private Sub aSaveElectraHUF_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSaveElectraHUF.CustomizePopupWindowParams
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _BankParameterDEV As BankParameterDEV
Dim _TransferTotalDEV As Double = 0
Dim _TransferTotalHUF As Double = 0
Dim _RegistryBankTransferView As RegistryBankTransferView
Dim I As Long
If IsSameCustomerFrom(_selection) = False Then
Throw New UserFriendlyException("Csak azonos Saját cég esetén választható ez a funkció!")
End If
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
_BankParameterDEV = _ocur.FindObject(Of BankParameterDEV)(CriteriaOperator.Parse("CurrencyName.ShortName='HUF'"), True)
If _BankParameterDEV Is Nothing Then _BankParameterDEV = _ocur.CreateObject(Of BankParameterDEV)()
_BankParameterDEV.DateExecution = Now
_BankParameterDEV.TransferTotalDEV = 0
_BankParameterDEV.TransferCount = 0
_BankParameterDEV.TransferTotalHUF = 0
_BankParameterDEV.TransferCount = _selection.Count
_BankParameterDEV.CustomFileName = ""
For I = 0 To _selection.Count - 1
_RegistryBankTransferView = TryCast(_selection(I), RegistryBankTransferView)
If _RegistryBankTransferView.IsBlocked = False Then
If I = 0 Then _BankParameterDEV.CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom
_TransferTotalHUF += _RegistryBankTransferView.AmountHUF
_TransferTotalDEV += _RegistryBankTransferView.AmountDEV
End If
Next I
_BankParameterDEV.TransferTotalDEV = _TransferTotalDEV
_BankParameterDEV.TransferTotalHUF = _TransferTotalHUF
_noselect = True
_BankParameterDEV.Save()
_ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Dim _BankParameterDEV_New As BankParameterDEV = _onew.GetObject(_BankParameterDEV)
e.View = Application.CreateDetailView(_onew, "BankParameterDEV_DetailView", False, _BankParameterDEV_New)
End Sub
Private Sub aSaveElectraHUF_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSaveElectraHUF.Execute
Me.DownloadToMKBHUF(View, e)
_selection.Clear()
_noselect = False
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aSaveElectraDEV_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSaveElectraDEV.Execute
Me.DownloadToMKBDEV(View, e)
_selection.Clear()
_noselect = False
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Function IsSameCustomerFrom(ByVal _selection As ArrayList) As Boolean
Dim _RegistryBankTransferView = TryCast(_selection(0), RegistryBankTransferView)
For I As Int32 = 1 To _selection.Count - 1
If _RegistryBankTransferView.RegistryHeader.CustomersFrom.Oid <> _selection(I).RegistryHeader.CustomersFrom.Oid Then
Return False
End If
Next
Return True
End Function
Private Sub aSaveElectraDEV_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSaveElectraDEV.Cancel
_noselect = False
End Sub
Private Sub aSaveElectraDEV_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSaveElectraDEV.CustomizePopupWindowParams
aSaveElectraHUF_CustomizePopupWindowParams(sender, e)
End Sub
Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
End Sub
Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim _RegistryBankTransferView As RegistryBankTransferView
If View.Id Like "RegistryBankTransfer_ListView*" And _noselect = False Then
_selection.Clear()
For Each _RegistryBankTransferView In View.SelectedObjects
_selection.Add(_RegistryBankTransferView)
Next
End If
End Sub
Private Sub aBackFromPackage_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackFromPackage.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _RegistryBankTransfer As RegistryBankTransfer
For I = 0 To View.SelectedObjects.Count - 1
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(I), RegistryBankTransferView).Oid)
_RegistryBankTransfer.BankSavedFileName = ""
_RegistryBankTransfer.Save()
Next I
View.ObjectSpace.CommitChanges()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aViewRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
If _RegistryBankTransferView IsNot Nothing Then
Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_RegistryBankTransferView.Oid)
If _RegistryBankTransfer IsNot Nothing Then
Dim _RegistryHeader As RegistryHeader = _onew.GetObject(_RegistryBankTransfer.RegistryHeader)
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "RegistryHeader_DetailView_BankTransfer", False, _RegistryHeader)
End If
End If
End Sub
Private Sub aBankDivide_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankDivide.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _GLBankDivide As GLBankDivide = _onew.CreateObject(Of GLBankDivide)()
Dim _RegistryBankTransfer As RegistryBankTransfer = _onew.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(0), RegistryBankTransferView).Oid)
_GLBankDivide.RegistryBankTransfer_AmountDEV = _RegistryBankTransfer.AmountDEV
_GLBankDivide.RegistryBankTransfer_AmountHUF = _RegistryBankTransfer.AmountHUF
_GLBankDivide.RegistryBankTransfer_RegistryHeader_CurrencyName = _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName
_GLBankDivide.Note = _RegistryBankTransfer.Note
e.View = Application.CreateDetailView(_onew, "GLBankDivide_DetailView", False, _GLBankDivide)
End Sub
Private Sub aBankDivide_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankDivide.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLBankDivide As GLBankDivide = TryCast(e.PopupWindow.View.SelectedObjects(0), GLBankDivide)
Dim _oid_RegistryBankTransfer As Guid = TryCast(View.SelectedObjects(0), RegistryBankTransferView).Oid
Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid_RegistryBankTransfer)
If Not _RegistryBankTransfer.RegistryHeader.BruttoAmountRemainingBank = 0 Then
Throw New Exception("*A számla banki csomagjai nem fedik a számla teljes összegét, kérem ellenőrizze!")
End If
If _GLBankDivide.AmountDEV > _RegistryBankTransfer.AmountDEV Or _GLBankDivide.AmountHUF > _RegistryBankTransfer.AmountHUF Then
Throw New Exception("*A megadott adatok meghaladják a csomag értékét!")
End If
If _GLBankDivide.AmountPercent > 0 Then
Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
_RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader
_RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer.AmountHUF * (_GLBankDivide.AmountPercent / 100)), 0, MidpointRounding.AwayFromZero)
If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
_RegistryBankTransfer_New.AmountDEV = Math.Round(_RegistryBankTransfer.AmountDEV * (_GLBankDivide.AmountPercent / 100), 0, MidpointRounding.AwayFromZero)
_RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 0, MidpointRounding.AwayFromZero)
End If
_RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment
_RegistryBankTransfer_New.Note = _GLBankDivide.Note
_RegistryBankTransfer_New.Save()
_RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF
If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
_RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV
End If
_RegistryBankTransfer.Save()
ElseIf _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" And _GLBankDivide.AmountHUF > 0 Then
Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
_RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader
_RegistryBankTransfer_New.AmountHUF = _GLBankDivide.AmountHUF
_RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment
_RegistryBankTransfer_New.Note = _GLBankDivide.Note
_RegistryBankTransfer_New.Save()
_RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF
_RegistryBankTransfer.Save()
Else
Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
_RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader
_RegistryBankTransfer_New.AmountDEV = _GLBankDivide.AmountDEV
_RegistryBankTransfer_New.AmountHUF = _RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate
_RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment
_RegistryBankTransfer_New.Note = _GLBankDivide.Note
_RegistryBankTransfer_New.Save()
_RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF
_RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV
_RegistryBankTransfer.Save()
End If
'_GLBankDivide.
_ocur.CommitChanges()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aBankMerge_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBankMerge.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _RegistryBankTransfer As RegistryBankTransfer = Nothing
Dim _RegistryBankTransfer_Base As RegistryBankTransfer = Nothing
Dim _DelArray As New ArrayList
Dim _AmountHUF As Double = 0
Dim _AmountDEV As Double = 0
Dim _oid As Guid
_DelArray.Clear()
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
For I = 0 To _selection.Count - 1
_oid = TryCast(_selection(I), RegistryBankTransferView).Oid
If I = 0 Then
_RegistryBankTransfer_Base = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid)
Else
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid)
If _RegistryBankTransfer.RegistryHeader.Oid = _RegistryBankTransfer_Base.RegistryHeader.Oid Then
_AmountDEV += _RegistryBankTransfer.AmountDEV
_AmountHUF += _RegistryBankTransfer.AmountHUF
_DelArray.Add(_RegistryBankTransfer)
End If
End If
Next
_RegistryBankTransfer_Base.AmountHUF += _AmountHUF
_RegistryBankTransfer_Base.AmountDEV += _AmountDEV
For i = 0 To _DelArray.Count - 1
_ocur.Delete(_DelArray(i))
Next
_ocur.CommitChanges()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aViewAttachments_Bank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_Bank.Execute
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
Dim _CustomersFrom As CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom
Dim _Customers As Customers = _RegistryBankTransferView.RegistryHeader.Customers
Dim _DocumentNumber As String = _RegistryBankTransferView.RegistryHeader.DocumentNumber
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
End Sub
Private Sub aBankPrepareName_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankPrepareName.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
Dim _GLBankPrepareName As GLBankPrepareName = _onew.CreateObject(Of GLBankPrepareName)()
If _RegistryBankTransferView.BankPrepareName IsNot Nothing Then
_GLBankPrepareName.BankPrepareName = _RegistryBankTransferView.BankPrepareName
End If
e.View = Application.CreateDetailView(_onew, "GLBankPrepareName_DetailView", False, _GLBankPrepareName)
End Sub
Private Sub aBankPrepareName_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankPrepareName.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLBankPrepareName As GLBankPrepareName = TryCast(e.PopupWindow.View.SelectedObjects(0), GLBankPrepareName)
Dim _RegistryBankTransfer As RegistryBankTransfer
For I = 0 To View.SelectedObjects.Count - 1
_RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(I), RegistryBankTransferView).Oid)
_RegistryBankTransfer.BankPrepareName = _GLBankPrepareName.BankPrepareName
_RegistryBankTransfer.Save()
Next I
View.ObjectSpace.CommitChanges()
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aBankNoTransfer_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankNoTransfer.CustomizePopupWindowParams
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _BankNoTransferPopup As BankNoTransferPopup = _onew.CreateObject(Of BankNoTransferPopup)()
e.View = Application.CreateDetailView(_onew, "BankNoTransferPopup_DetailView", False, _BankNoTransferPopup)
End Sub
Private Sub aBankNoTransfer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankNoTransfer.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _RegistryBankTransfer As RegistryBankTransfer
Dim i As Long = 0
Dim _BankNoTransferPopup As BankNoTransferPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), BankNoTransferPopup)
If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub
For i = 0 To _selection.Count - 1
_RegistryBankTransfer = _uow.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(i), RegistryBankTransferView).Oid)
_RegistryBankTransfer.BankSavedFileName = _BankNoTransferPopup.Description
Next i
_uow.CommitChanges()
_selection.Clear()
_noselect = False
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End Sub
Private Sub aViewPDCI_Bank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPDCI_Bank.Execute
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView)
Dim _CustomersFrom As CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom
Dim _Customers As Customers = _RegistryBankTransferView.RegistryHeader.Customers
Dim _DocumentNumber As String = _RegistryBankTransferView.RegistryHeader.DocumentNumber
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _CustomersFrom, _Customers, 1, _DocumentNumber)
End Sub
End Class
'ReadOnly Property BallanceHUF As Double
' Get
' Dim _PCIGroup As PCIGroup = _
' Session.FindObject(Of PCIGroup) _
' (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=1 and ConnectInfo=?", _
' Me.RegistryHeader.CustomersFrom, Me.RegistryHeader.Customers, Me.RegistryHeader.DocumentNumber), True)
' If _PCIGroup IsNot Nothing Then
' Return _PCIGroup.BallanceHUF
' Else
' Return Me.RegistryHeader.F_AmountBruttoHUF
' End If
' End Get
'End Property
Reference in New Issue View Git Blame Copy Permalink