AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_2902

Browse Source
This commit is contained in:
SchreiberM
2016-02-29 15:46:13 +01:00
parent f9172b80c7
commit d65e3d9a87
37 changed files with 6383 additions and 8142 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/frmMain.vb
View File

@@ -97,8 +97,7 @@ Public Class frmMain
Load_ConfigBasic()
End If
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
End Sub
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -340,10 +339,15 @@ Public Class frmMain
Sub Refresh_TaskReminder()
Try
Me.VWPMO_WF_USER_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName)
Me.VWPMO_WF_USER_ACTIVETableAdapter.FillByUser(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName)
If DD_DMSDataSet.VWPMO_WF_USER_ACTIVE.Rows.Count > 0 Then
NotifyIcon1.Visible = True
NotifyIcon1.ShowBalloonTip(50000, "Unerledigte Tasks", "Sie haben unerledigte Tasks in Ihrem Verantwortungsbereich." & vbNewLine & "Bitte überprüfen Sie Ihre Workflow-Tasks", ToolTipIcon.Info)
If USER_LANGUAGE = "de-DE" Then
NotifyIcon1.ShowBalloonTip(50000, "ADDI-Unerledigte Tasks", "Sie haben unerledigte Tasks in Ihrem Verantwortungsbereich." & vbNewLine & "Bitte überprüfen Sie Ihre Workflow-Tasks", ToolTipIcon.Info)
Else
NotifyIcon1.ShowBalloonTip(50000, "ADDI-Pending Tasks", "You have pending tasks in Your authority." & vbNewLine & "Please check Your Tasks", ToolTipIcon.Info)
End If
End If
Catch ex As Exception
MsgBox("Error in Refresh_TaskReminder:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)