From 970c8378a0a4c7f81e4ceecf4162acc9960fca80 Mon Sep 17 00:00:00 2001
From: ivanszabo <ivan.szabo.sis@gmail.com>
Date: Thu, 17 May 2018 21:55:42 +0200
Subject: [PATCH] =?UTF-8?q?ALERTEK=20KIV=C3=89TELE=20...?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../GeneralObjects/Alert/AlertWC.vb           | 26 +++++++++----------
 .../BusinessObjects/SIS/Chat/SISChatWC.vb     |  8 +++---
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb
index 4fe3621..14d9938 100644
--- a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb
+++ b/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()
diff --git a/Nuvolar.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb b/Nuvolar.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb
index f010e0b..36b1d13 100644
--- a/Nuvolar.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb
+++ b/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)