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/Financial/FinancialObjects/Registry/RegistryTaskVC.vb
+12 -12
View File
@@ -38,12 +38,12 @@ Public Class RegistryTaskVC
Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", True)
End If
If View.Id = "RegistryTasks_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
If _RegistryTasks IsNot Nothing Then
If _RegistryTasks.Status = General.TaskStatus.Completed Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If
End If
End If
@@ -54,19 +54,19 @@ Public Class RegistryTaskVC
End If
If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "RegistryTasks_DetailView" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aRegistryTaskStateReset_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryTaskStateReset.Execute
@@ -121,7 +121,7 @@ Public Class RegistryTaskVC
Private Sub aToTable_RRFC_With_TContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract_RegistryTask.Execute
'// Technikai szerzõdés sor + Táblázatba beadás !!!
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
@@ -381,7 +381,7 @@ Public Class RegistryTaskVC
' Select Case _RegistryRowsFinancialControllingTemplatePopup.RRFCT_Type
' Case eRRFCT_Type.eTechnical
' 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
' 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
' Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _
' _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom))
@@ -547,7 +547,7 @@ Public Class RegistryTaskVC
If _RegistryTasks.row_RRFC_Controlling Is Nothing Then Throw New Exception("*Nincs beállítva kontrolszám!")
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
Dim _TechnicalContractTemplate As ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom)))
Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit
@@ -631,7 +631,7 @@ Public Class RegistryTaskVC
Next
_onew.CommitChanges()
RaiseEvent FinalWork
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
'// ObjectSpace frissítése ...
If Frame.GetController(Of RefreshController)() IsNot Nothing Then