Ms Auswertungen, Dokument anzeigen, Drag and Drop

EnvelopeGenerator.Form/frmMain.vb

@@ -40,17 +40,22 @@ Public Class frmMain
 
         TempFiles = New TempFiles(LogConfig)
         TempFiles.Create()
-
+        MyTempFiles = TempFiles
         RefreshHelper = New RefreshHelper(ViewEnvelopes, "Id")
 
         Controller = New EnvelopeListController(State)
+
         Try
             Me.LookAndFeel.UseDefaultLookAndFeel = False
             LookAndFeel.SetSkinStyle(SkinStyle.Office2019White, SkinSvgPalette.DefaultSkin)
         Catch ex As Exception
 
         End Try
-
+        If MYUSER.IsAdmin Then
+            XtraTabControlMain.TabPages(2).PageVisible = True
+        Else
+            XtraTabControlMain.TabPages(2).PageVisible = False
+        End If
         LoadEnvelopeData()
     End Sub
 
@@ -190,6 +195,8 @@ Public Class frmMain
     End Sub
 
     Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControlMain.SelectedPageChanged
+        RibbonPageFunctions.Enabled = True
+        RibbonPageEnvelopeActions.Enabled = True
         Select Case XtraTabControlMain.SelectedTabPageIndex
             Case 1
                 btnEditEnvelope.Enabled = False
@@ -206,6 +213,10 @@ Public Class frmMain
                 bbtnitmEB.Enabled = False
                 LoadEnvelopeData()
                 txtEnvelopeIdLabel.Caption = "No Envelope selected"
+
+            Case 2
+                RibbonPageFunctions.Enabled = False
+                RibbonPageEnvelopeActions.Enabled = False
         End Select
     End Sub
 
@@ -565,7 +576,8 @@ Public Class frmMain
         For Each oReceiver As EnvelopeReceiver In Receivers
             If oReceiver.Email = selReceiver.Email Then
                 If oController.ActionService.ResendReceiver(oEnvelope, oReceiver) = True Then
-                    MsgBox(Resources.Envelope.Invitation_successfully_resend, MsgBoxStyle.Information, Text)
+                    Dim oMsg = Resources.Envelope.Invitation_successfully_resend.Replace("@Mail", oReceiver.Email)
+                    MsgBox(oMsg, MsgBoxStyle.Information, Text)
 
                 End If
             End If
@@ -583,4 +595,49 @@ Public Class frmMain
         txtEnvelopeIdLabel.Caption = String.Format(txtEnvelopeIdLabel.Tag, oEnvelope.Id)
 
     End Sub
+
+    Private Sub btnEnvelopes_thismonth_Click(sender As Object, e As EventArgs) Handles btnEnvelopes_thismonth.Click
+        If SQL_REP_ENV_USER_TM <> String.Empty Then
+            Result_Execute(SQL_REP_ENV_USER_TM)
+        Else
+            GridControlData.DataSource = Nothing
+        End If
+    End Sub
+
+    Private Sub btnEnvelopes_lastmonth_Click(sender As Object, e As EventArgs) Handles btnEnvelopes_lastmonth.Click
+        If SQL_REP_ENV_USER_LM <> String.Empty Then
+            Result_Execute(SQL_REP_ENV_USER_LM)
+        Else
+            GridControlData.DataSource = Nothing
+        End If
+    End Sub
+
+    Private Sub btnEnvelopes_thisYear_Click(sender As Object, e As EventArgs) Handles btnEnvelopes_thisYear.Click
+        If SQL_REP_ENV_USER_Y <> String.Empty Then
+            Result_Execute(SQL_REP_ENV_USER_Y)
+        Else
+            GridControlData.DataSource = Nothing
+        End If
+    End Sub
+
+    Private Sub btnEnvelopes_All_Click(sender As Object, e As EventArgs) Handles btnEnvelopes_All.Click
+        If SQL_REP_ENV_USER_ALL <> String.Empty Then
+            Result_Execute(SQL_REP_ENV_USER_ALL)
+        Else
+            GridControlData.DataSource = Nothing
+        End If
+    End Sub
+    Private Sub Result_Execute(mySQL As String)
+        Try
+            Dim oDT As DataTable = DB_DD_ECM.GetDatatable(mySQL)
+            If Not IsNothing(oDT) Then
+
+                GridControlData.DataSource = oDT
+            Else
+                GridControlData.DataSource = Nothing
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
 End Class