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

MS_12.03.2016

Browse Source
This commit is contained in:
SchreiberM
2016-03-14 09:21:32 +01:00
parent c3965e6243
commit 32a1c4cf5e
31 changed files with 2208 additions and 2864 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -23,8 +23,6 @@ Public Class frmMain
End Sub
Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
Try
Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", Environment.UserName)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
If Not IsNothing(DT) Then
@@ -105,9 +103,16 @@ Public Class frmMain
ElseIf ERROR_INIT = "DATABASE" Then
Load_ConfigBasic()
End If
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Load_TasksforUser()
End Sub
Sub Load_TasksforUser()
Try
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_USER_ACTIVETableAdapter.FillByUser(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName)
CURRENT_TASKS_GENERAL = Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE
Catch ex As Exception
MsgBox("Error in Load Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
@@ -389,14 +394,14 @@ Public Class frmMain
End Sub
Sub Refresh_TaskReminder()
Load_TasksforUser()
Try
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
NotifyIcon.Visible = True
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)
NotifyIcon.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)
NotifyIcon.ShowBalloonTip(50000, "ADDI-Pending Tasks", "You have pending tasks in Your authority." & vbNewLine & "Please check Your Tasks", ToolTipIcon.Info)
End If
End If
@@ -484,11 +489,6 @@ Public Class frmMain
End Sub
Private Sub Workflow_Taskmanagement_Click(sender As Object, e As EventArgs) Handles NotifyIcon1.Click
End Sub
Private Sub DokumentartkonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs)
OpenDokumentartt()
End Sub
@@ -661,4 +661,12 @@ Public Class frmMain
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub NotifyIcon_Click(sender As Object, e As EventArgs) Handles NotifyIcon.Click
End Sub
Private Sub NotifyIcon_BalloonTipClicked(sender As Object, e As EventArgs) Handles NotifyIcon.BalloonTipClicked
OpenFormCockpit()
End Sub
End Class