06-12-23 Abfrage wenn Dokument gelöscht wird

EnvelopeGenerator.Form/frmEnvelopeEditor.Designer.vb

@@ -52,8 +52,8 @@ Partial Public Class frmEnvelopeEditor
         Me.btnEditData = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupDocuments = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupInvitation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupAddSignature = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupReceiver = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.LayoutControlGroup4 = New DevExpress.XtraLayout.LayoutControlGroup()
@@ -282,7 +282,7 @@ Partial Public Class frmEnvelopeEditor
         '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupAddSignature, Me.RibbonPageGroupReceiver})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupDocuments, Me.RibbonPageGroupInvitation, Me.RibbonPageGroupAddSignature, Me.RibbonPageGroupReceiver})
         Me.RibbonPage1.Name = "RibbonPage1"
         resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
         '
@@ -294,19 +294,19 @@ Partial Public Class frmEnvelopeEditor
         Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
         resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
         '
-        'RibbonPageGroup2
+        'RibbonPageGroupDocuments
         '
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.btnNewFile)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.btnDeleteFile)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        Me.RibbonPageGroupDocuments.ItemLinks.Add(Me.btnNewFile)
+        Me.RibbonPageGroupDocuments.ItemLinks.Add(Me.btnDeleteFile)
+        Me.RibbonPageGroupDocuments.Name = "RibbonPageGroupDocuments"
+        resources.ApplyResources(Me.RibbonPageGroupDocuments, "RibbonPageGroupDocuments")
         '
-        'RibbonPageGroup3
+        'RibbonPageGroupInvitation
         '
-        Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.btnSendEnvelope)
-        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
+        Me.RibbonPageGroupInvitation.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroupInvitation.ItemLinks.Add(Me.btnSendEnvelope)
+        Me.RibbonPageGroupInvitation.Name = "RibbonPageGroupInvitation"
+        resources.ApplyResources(Me.RibbonPageGroupInvitation, "RibbonPageGroupInvitation")
         '
         'RibbonPageGroupAddSignature
         '
@@ -661,11 +661,11 @@ Partial Public Class frmEnvelopeEditor
     Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents btnCancel As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents btnNewFile As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroupDocuments As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents btnDeleteFile As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents OpenFileDialog1 As OpenFileDialog
     Friend WithEvents btnSendEnvelope As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroupInvitation As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents btnEditFields As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroupAddSignature As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents PanelControl1 As PanelControl

EnvelopeGenerator.Form/frmEnvelopeEditor.resx

@@ -347,10 +347,10 @@
   <data name="RibbonPageGroup1.Text" xml:space="preserve">
     <value>Umschlag</value>
   </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+  <data name="RibbonPageGroupDocuments.Text" xml:space="preserve">
     <value>Dateien</value>
   </data>
-  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+  <data name="RibbonPageGroupInvitation.Text" xml:space="preserve">
     <value>Prozess</value>
   </data>
   <data name="RibbonPageGroupAddSignature.Text" xml:space="preserve">
@@ -912,16 +912,16 @@
   <data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
-    <value>RibbonPageGroup2</value>
+  <data name="&gt;&gt;RibbonPageGroupDocuments.Name" xml:space="preserve">
+    <value>RibbonPageGroupDocuments</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
+  <data name="&gt;&gt;RibbonPageGroupDocuments.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">
-    <value>RibbonPageGroup3</value>
+  <data name="&gt;&gt;RibbonPageGroupInvitation.Name" xml:space="preserve">
+    <value>RibbonPageGroupInvitation</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
+  <data name="&gt;&gt;RibbonPageGroupInvitation.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="&gt;&gt;RibbonPageGroupAddSignature.Name" xml:space="preserve">

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -88,20 +88,14 @@ Partial Public Class frmEnvelopeEditor
         SetFormTitle(Controller.Envelope.Title)
     End Sub
 
-    Private Sub SetFormReadonly()
-        RibbonPageGroup1.Enabled = False
-        RibbonPageGroup2.Enabled = False
-        RibbonPageGroup3.Enabled = False
-        RibbonPageGroupReceiver.Enabled = False
-        btnEditFields.Enabled = False
-        txtSubject.Properties.ReadOnly = True
-        txtMessage.Properties.ReadOnly = True
-        ViewReceivers.OptionsBehavior.ReadOnly = True
-        ViewDocuments.OptionsBehavior.ReadOnly = True
-    End Sub
-
     Private Sub btnDeleteFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeleteFile.ItemClick
         If ViewDocuments.GetSelectedRows().Count > 0 Then
+
+            Dim oMessage = Resources.Envelope.Do_you_really_want_to_remove_this_document
+            If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
+                Exit Sub
+            End If
+
             Dim oDocument As EnvelopeDocument = DirectCast(ViewDocuments.GetFocusedRow(), EnvelopeDocument)
             If Controller.DeleteDocument(oDocument) Then
                 Documents.Remove(oDocument)
@@ -363,6 +357,7 @@ Partial Public Class frmEnvelopeEditor
     Private Sub frmEnvelopeEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         RibbonPageGroupAddSignature_Enabled()
         RibbonPageGroupReceiver_Enable()
+        SendEnvelopeButton_Enable()
     End Sub
     Private Sub RibbonPageGroupAddSignature_Enabled()
         If ViewDocuments.GetSelectedRows().Count = 0 Then
@@ -381,13 +376,24 @@ Partial Public Class frmEnvelopeEditor
     End Sub
 
     Private Sub DocumentButtons_Enable()
-        If ViewDocuments.SelectedRowsCount = 0 Then
+        If ViewDocuments.RowCount = 0 Then
             btnNewFile.Enabled = True
             btnDeleteFile.Enabled = False
         Else
             btnNewFile.Enabled = False
             btnDeleteFile.Enabled = True
         End If
+
+        RibbonPageGroupAddSignature_Enabled()
+    End Sub
+
+    Private Sub SendEnvelopeButton_Enable()
+        If ViewDocuments.RowCount > 0 And
+            ViewReceivers.SelectedRowsCount > 0 Then
+            btnSendEnvelope.Enabled = True
+        Else
+            btnSendEnvelope.Enabled = False
+        End If
     End Sub
 
     Private Sub SetFormTitle(pTitle As String)
@@ -407,10 +413,12 @@ Partial Public Class frmEnvelopeEditor
 
     Private Sub ViewReceivers_RowCountChanged(sender As Object, e As EventArgs) Handles ViewReceivers.RowCountChanged
         RibbonPageGroupReceiver_Enable()
+        SendEnvelopeButton_Enable()
     End Sub
 
     Private Sub ViewDocuments_RowCountChanged(sender As Object, e As EventArgs) Handles ViewDocuments.RowCountChanged
         DocumentButtons_Enable()
+        SendEnvelopeButton_Enable()
     End Sub
 
 End Class