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

Átállás 17.2.3-ra

Browse Source 
Related Work Items: #123
This commit is contained in:
ivanszabo
2017-12-02 16:09:26 +01:00
parent 2b2f1b201c
commit 9cca882b34
201 changed files with 16991 additions and 3617 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb
+11 -11
View File
@@ -53,14 +53,14 @@ Public Class InvoiceFactoring_VC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aFactoringSet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSet.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _InvoiceHeader As InvoiceHeader
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceHeader In View.SelectedObjects
If _InvoiceHeader.IsFactoring = False Then
_InvoiceHeader.IsFactoring = True
@@ -69,7 +69,7 @@ Public Class InvoiceFactoring_VC
End If
Next
_ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aFactoringSendToBank_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringSendToBank.CustomizePopupWindowParams
@@ -99,7 +99,7 @@ Public Class InvoiceFactoring_VC
Dim _InvoiceFactoringPopup As InvoiceFactoringPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringPopup)
Dim _Factoring_Send_Number As String = ""
Dim _InvoiceFactoringBank As InvoiceFactoringBank
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceHeader In View.SelectedObjects
If _InvoiceHeader.IsFactoring = True Then
@@ -124,7 +124,7 @@ Public Class InvoiceFactoring_VC
Next
_ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
'// Most kell a kérelmet kinyomtatni !!!!
@@ -142,7 +142,7 @@ Public Class InvoiceFactoring_VC
Dim _InvoiceHeader As InvoiceHeader
Dim _ReadyForDelete As Boolean = False
Dim _InvoiceFactoringBank_Collection As New XPCollection(Of InvoiceFactoringBank)(_ocur.Session, CriteriaOperator.Parse("1=2"))
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceFactoringBank In View.SelectedObjects
_ReadyForDelete = False
@@ -162,7 +162,7 @@ Public Class InvoiceFactoring_VC
_ocur.Delete(_InvoiceFactoringBank_Collection)
_ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aFactoringCreate_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringCreate.CustomizePopupWindowParams
@@ -205,7 +205,7 @@ Public Class InvoiceFactoring_VC
End If
Dim _InvoiceFactoringRows As InvoiceFactoringRows
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceHeader In View.SelectedObjects
_InvoiceFactoringRows = _ocur.CreateObject(Of InvoiceFactoringRows)()
_InvoiceFactoringRows.InvoiceFactoringHeader = _InvoiceFactoringHeader
@@ -213,7 +213,7 @@ Public Class InvoiceFactoring_VC
_InvoiceHeader.InvoiceFactoringRows = _InvoiceFactoringRows
Next
_ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aFactoringDestroy_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringDestroy.Execute
@@ -221,7 +221,7 @@ Public Class InvoiceFactoring_VC
Dim _InvoiceFactoringHeader As InvoiceFactoringHeader
Dim _InvoiceFactoringRows As InvoiceFactoringRows
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceFactoringHeader In View.SelectedObjects
For Each _InvoiceFactoringRows In _InvoiceFactoringHeader.InvoiceFactoringRows
@@ -232,7 +232,7 @@ Public Class InvoiceFactoring_VC
_ocur.Delete(_InvoiceFactoringHeader)
Next
_ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub