ALERTEK KIVÉTELE ...

Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb

@@ -1,6 +1,6 @@
-'/////////////////////////////////////////////////////////////////////////////////////////////
+'/////////////////////////////////////////////////////////////////////////////////////////////
 '//
-'// AlertControl figyelmeztetõ a következõ objektumokra
+'// AlertControl figyelmeztetõ a következő objektumokra
 '// HRPersonTask
 '//
 '//
@@ -43,11 +43,11 @@ Public Class AlertWC
     End Sub
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
-
-        InitAlertTimerCore()
-        InitAlertControlCore()
-        InitAlertControlCoreLoggedOn()
-        InitSISPushActivity()
+        'IDEIGLENESEN KIVETTEM !!!
+        'InitAlertTimerCore()
+        'InitAlertControlCore()
+        'InitAlertControlCoreLoggedOn()
+        'InitSISPushActivity()
     End Sub
     Private Sub InitSISPushActivity()
         SISPushActivity = New Timer
@@ -107,7 +107,7 @@ Public Class AlertWC
         Dim i As Long = 0
 
         For Each _HRPersonTasks In _HRPersonTasks_Collection
-            '// itt kell az ellenõrzés !
+            '// itt kell az ellenõrzés !
             If DateAdd(DateInterval.Day, _HRPersonTasks.AlertPeriod.DateDayBefore, GetSQLTime(_uow)) >= _HRPersonTasks.DueDate Then
                 _AlertMinute = (_HRPersonTasks.AlertPeriod.PeriodHour * 60) + _HRPersonTasks.AlertPeriod.PeriodMinute
                 If _AlertMinute > 0 Then
@@ -119,7 +119,7 @@ Public Class AlertWC
                 End If
             End If
 
-            If i > 50 Then Exit For '// Cask az elsõ ötven jön fel !
+            If i > 50 Then Exit For '// Cask az elsõ ötven jön fel !
         Next
 
         _HRPersonTasks_Collection = New XPCollection(Of HRPersonTasks)(_uow, CriteriaOperator.Parse("HRPersonAlias=? and Status in ('InProgress','NotStarted','WaitingForSomeoneElse') and isnull(AlertPeriod)=False and DueDate<?", _HRPerson, GetSQLTime(_uow)))
@@ -128,7 +128,7 @@ Public Class AlertWC
             _AlertMinute = (_HRPersonTasks.AlertPeriod.PeriodHour * 60) + _HRPersonTasks.AlertPeriod.PeriodMinute
             If _AlertMinute > 0 Then
                 If GetSQLTime(_uow).Minute Mod _AlertMinute = 0 Then
-                    Dim info As New AlertInfo("Figyelem ! Lejárt kiadott feladat !", _HRPersonTasks.Subject, _HRPersonTasks.Description, ImageLoader.Instance.GetImageInfo("warning").Image, _HRPersonTasks)
+                    Dim info As New AlertInfo("Figyelem ! Lejárt kiadott feladat !", _HRPersonTasks.Subject, _HRPersonTasks.Description, ImageLoader.Instance.GetImageInfo("warning").Image, _HRPersonTasks)
                     alertControlCore.Show(mainForm, info)
                     i += 1
                 End If
@@ -151,7 +151,7 @@ Public Class AlertWC
         Dim i As Long = 0
 
         For Each _CRM_Leads_Activity_Task In _CRM_Leads_Activity_Task_Collection
-            '// itt kell az ellenõrzés !
+            '// itt kell az ellenõrzés !
             If DateAdd(DateInterval.Day, _CRM_Leads_Activity_Task.AlertPeriod.DateDayBefore, GetSQLTime(_uow)) >= _CRM_Leads_Activity_Task.DueDate Then
                 If _CRM_Leads_Activity_Task.AlertPeriod IsNot Nothing Then
                     If _CRM_Leads_Activity_Task.AlertPeriod.PeriodMinute > 0 Then
@@ -163,7 +163,7 @@ Public Class AlertWC
                     End If
                 End If
             End If
-            If i > 50 Then Exit For '// Cask az elsõ ötven jön fel !
+            If i > 50 Then Exit For '// Cask az elsõ ötven jön fel !
         Next
     End Sub
     Private Sub alertControlCore_AlertClick(sender As Object, e As AlertClickEventArgs)
@@ -228,7 +228,7 @@ Public Class AlertWC
             alertControlCore.Show(mainForm, info)
             i += 1
 
-            If i > 50 Then Exit For '// Cask az elsõ ötven jön fel !
+            If i > 50 Then Exit For '// Cask az elsõ ötven jön fel !
         Next
     End Sub
     Private Sub InitAlartControlLoggedOn()

Nuvolar.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb

@@ -39,10 +39,10 @@ Public Class SISChatWC
 
     End Sub
     Protected Overridable Sub InitChatTimerCore()
-        ChatTimerCore = New Timer()
-        AddHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick
-        ChatTimerCore.Interval = 5000
-        ChatTimerCore.Start()
+        'ChatTimerCore = New Timer()
+        'AddHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick
+        'ChatTimerCore.Interval = 5000
+        'ChatTimerCore.Start()
     End Sub
 
     Private Sub ChatTimerCore_Tick(sender As Object, e As EventArgs)