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

ALERTEK KIVÉTELE ...

Browse Source
This commit is contained in:
ivanszabo
2018-05-17 21:55:42 +02:00
parent 57af822746
commit 970c8378a0
2 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb
+13 -13
View File
@@ -1,6 +1,6 @@
'///////////////////////////////////////////////////////////////////////////////////////////// '/////////////////////////////////////////////////////////////////////////////////////////////
'// '//
'// AlertControl figyelmeztetõ a következõ objektumokra '// AlertControl figyelmeztetõ a következő objektumokra
'// HRPersonTask '// HRPersonTask
'// '//
'// '//
@@ -43,11 +43,11 @@ Public Class AlertWC
End Sub End Sub
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
'IDEIGLENESEN KIVETTEM !!!
InitAlertTimerCore() 'InitAlertTimerCore()
InitAlertControlCore() 'InitAlertControlCore()
InitAlertControlCoreLoggedOn() 'InitAlertControlCoreLoggedOn()
InitSISPushActivity() 'InitSISPushActivity()
End Sub End Sub
Private Sub InitSISPushActivity() Private Sub InitSISPushActivity()
SISPushActivity = New Timer SISPushActivity = New Timer
@@ -107,7 +107,7 @@ Public Class AlertWC
Dim i As Long = 0 Dim i As Long = 0
For Each _HRPersonTasks In _HRPersonTasks_Collection 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 If DateAdd(DateInterval.Day, _HRPersonTasks.AlertPeriod.DateDayBefore, GetSQLTime(_uow)) >= _HRPersonTasks.DueDate Then
_AlertMinute = (_HRPersonTasks.AlertPeriod.PeriodHour * 60) + _HRPersonTasks.AlertPeriod.PeriodMinute _AlertMinute = (_HRPersonTasks.AlertPeriod.PeriodHour * 60) + _HRPersonTasks.AlertPeriod.PeriodMinute
If _AlertMinute > 0 Then If _AlertMinute > 0 Then
@@ -119,7 +119,7 @@ Public Class AlertWC
End If 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 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))) _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 _AlertMinute = (_HRPersonTasks.AlertPeriod.PeriodHour * 60) + _HRPersonTasks.AlertPeriod.PeriodMinute
If _AlertMinute > 0 Then If _AlertMinute > 0 Then
If GetSQLTime(_uow).Minute Mod _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) alertControlCore.Show(mainForm, info)
i += 1 i += 1
End If End If
@@ -151,7 +151,7 @@ Public Class AlertWC
Dim i As Long = 0 Dim i As Long = 0
For Each _CRM_Leads_Activity_Task In _CRM_Leads_Activity_Task_Collection 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 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 IsNot Nothing Then
If _CRM_Leads_Activity_Task.AlertPeriod.PeriodMinute > 0 Then If _CRM_Leads_Activity_Task.AlertPeriod.PeriodMinute > 0 Then
@@ -163,7 +163,7 @@ Public Class AlertWC
End If End If
End If 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 Next
End Sub End Sub
Private Sub alertControlCore_AlertClick(sender As Object, e As AlertClickEventArgs) Private Sub alertControlCore_AlertClick(sender As Object, e As AlertClickEventArgs)
@@ -228,7 +228,7 @@ Public Class AlertWC
alertControlCore.Show(mainForm, info) alertControlCore.Show(mainForm, info)
i += 1 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 Next
End Sub End Sub
Private Sub InitAlartControlLoggedOn() Private Sub InitAlartControlLoggedOn()
Nuvolar.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb
+4 -4
View File
@@ -39,10 +39,10 @@ Public Class SISChatWC
End Sub End Sub
Protected Overridable Sub InitChatTimerCore() Protected Overridable Sub InitChatTimerCore()
ChatTimerCore = New Timer() 'ChatTimerCore = New Timer()
AddHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick 'AddHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick
ChatTimerCore.Interval = 5000 'ChatTimerCore.Interval = 5000
ChatTimerCore.Start() 'ChatTimerCore.Start()
End Sub End Sub
Private Sub ChatTimerCore_Tick(sender As Object, e As EventArgs) Private Sub ChatTimerCore_Tick(sender As Object, e As EventArgs)