Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,113 @@
+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.Model
+Imports DevExpress.Data.Filtering
+
+Public Class DateYearCriteriaVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+        'Me.aDateYearFilter.Items.Clear()
+        'Me.aDateYearFilter.Items.Add(
+        For Each _item In Me.aDateYearFilter.Items
+            Select Case _item.Caption
+                Case "CurrentYear"
+                    _item.Caption = Year(Now).ToString
+                    _item.Id = "CurrentYear"
+                    Me.aDateYearFilter.SelectedItem = _item
+                Case "PrevYear"
+                    _item.Caption = Year(DateAdd(DateInterval.Year, -1, Now)).ToString
+                    _item.Id = "PrevYear"
+                Case "Prev2Year"
+                    _item.Caption = Year(DateAdd(DateInterval.Year, -2, Now)).ToString
+                    _item.Id = "Prev2Year"
+                Case "Prev3Year"
+                    _item.Caption = Year(DateAdd(DateInterval.Year, -3, Now)).ToString
+                    _item.Id = "Prev3Year"
+                Case "Prev4Year"
+                    _item.Caption = Year(DateAdd(DateInterval.Year, -4, Now)).ToString
+                    _item.Id = "Prev4Year"
+                Case "All"
+                    _item.Id = "All"
+            End Select
+        Next
+
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of DateYearCriteriaVC).aDateYearFilter.Active.SetItemValue("", False)
+
+        If TryCast(View, ListView) IsNot Nothing Then
+            Dim _ListView As ListView = TryCast(View, ListView)
+            Dim _IModelListView As IModelListView
+            Dim _IModelListViewExtender As IModelListViewExtender
+
+            _IModelListView = _ListView.Model
+            _IModelListViewExtender = TryCast(_IModelListView, IModelListViewExtender)
+
+
+            If _IModelListViewExtender.DefaultDateYearInFilter = True Then
+                Frame.GetController(Of DateYearCriteriaVC).aDateYearFilter.Active.SetItemValue("", True)
+                Dim _Item As DevExpress.ExpressApp.Actions.ChoiceActionItem = Me.aDateYearFilter.FindItemByIdPath("CurrentYear")
+                If _Item IsNot Nothing Then
+                    Me.aDateYearFilter.SelectedItem = _Item
+                    If _ListView.Id Like "*LookupListView*" Then
+                    Else
+                        _ListView.CollectionSource.BeginUpdateCriteria()
+                        _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(Now).ToString)
+                        _ListView.CollectionSource.EndUpdateCriteria()
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aDateYearFilter_Execute(sender As Object, e As SingleChoiceActionExecuteEventArgs) Handles aDateYearFilter.Execute
+        Dim _ListView As ListView = TryCast(View, ListView)
+        Dim _IModelListView As IModelListView
+        Dim _IModelListViewExtender As IModelListViewExtender
+
+        
+
+
+        If _ListView IsNot Nothing Then
+            If _ListView.Id Like "*LookupListView*" Then Exit Sub
+            _IModelListView = _ListView.Model
+            _IModelListViewExtender = TryCast(_IModelListView, IModelListViewExtender)
+
+         
+            _ListView.CollectionSource.BeginUpdateCriteria()
+            Select Case e.SelectedChoiceActionItem.Caption
+                Case Year(Now).ToString
+                    _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(Now).ToString)
+                Case Year(DateAdd(DateInterval.Year, -1, Now)).ToString
+                    _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -1, Now)).ToString)
+                Case Year(DateAdd(DateInterval.Year, -2, Now)).ToString
+                    _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -2, Now)).ToString)
+                Case Year(DateAdd(DateInterval.Year, -3, Now)).ToString
+                    _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -3, Now)).ToString)
+                Case Year(DateAdd(DateInterval.Year, -4, Now)).ToString
+                    _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -4, Now)).ToString)
+                Case Else
+                    _ListView.CollectionSource.BeginUpdateCriteria()
+                    _ListView.CollectionSource.Criteria.Remove("DateYearFilter")
+                    _ListView.CollectionSource.EndUpdateCriteria()
+            End Select
+            _ListView.CollectionSource.EndUpdateCriteria()
+        End If
+    End Sub
+End Class