722 lines
40 KiB
VB.net
722 lines
40 KiB
VB.net
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 |