MS FileMove

EnvelopeGenerator.Common/Models/DocumentModel.vb

@@ -45,7 +45,7 @@ Public Class DocumentModel
 
     Public Function List(pEnvelopeId As Integer) As IEnumerable(Of EnvelopeDocument)
         Try
-            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE_DOCUMENT] WHERE ENVELOPE_ID = {pEnvelopeId}"
+            Dim oSql = $"SELECT  FROM [dbo].[TBSIG_ENVELOPE_DOCUMENT] WHERE ENVELOPE_ID = {pEnvelopeId}"
             Dim oTable = Database.GetDatatable(oSql)
 
             Return oTable?.Rows.Cast(Of DataRow).

EnvelopeGenerator.Form/frmEnvelopeEditor.Designer.vb

@@ -55,6 +55,7 @@ Partial Public Class frmEnvelopeEditor
         Me.btnEditData = New DevExpress.XtraBars.BarButtonItem()
         Me.txtCreatorEmailLabel = New DevExpress.XtraBars.BarStaticItem()
         Me.txtEnvelopeIdLabel2 = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroupDocuments = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -95,8 +96,6 @@ Partial Public Class frmEnvelopeEditor
         Me.EnvelopeDocumentBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.txtEnvelopeIdLabel = New DevExpress.XtraBars.BarStaticItem()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl1.Panel1.SuspendLayout()
@@ -324,9 +323,15 @@ Partial Public Class frmEnvelopeEditor
         Me.txtEnvelopeIdLabel2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         Me.txtEnvelopeIdLabel2.Tag = "Umschlag-ID: {0}"
         '
+        'BarButtonItem1
+        '
+        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        Me.BarButtonItem1.Id = 12
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroupDocuments, Me.RibbonPageGroupInvitation, Me.RibbonPageGroupAddSignature, Me.RibbonPageGroupReceiver, Me.RibbonPageGroup2})
+        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")
         '
@@ -640,18 +645,6 @@ Partial Public Class frmEnvelopeEditor
         Me.txtEnvelopeIdLabel.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         Me.txtEnvelopeIdLabel.Tag = "Envelope-ID: {0}"
         '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
-        '
-        'BarButtonItem1
-        '
-        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
-        Me.BarButtonItem1.Id = 12
-        Me.BarButtonItem1.Name = "BarButtonItem1"
-        '
         'frmEnvelopeEditor
         '
         resources.ApplyResources(Me, "$this")
@@ -774,7 +767,6 @@ Partial Public Class frmEnvelopeEditor
     Friend WithEvents txtEnvelopeIdLabel2 As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents colPageCount As DevExpress.XtraGrid.Columns.TileViewColumn
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 
 #End Region
 

EnvelopeGenerator.Form/frmEnvelopeEditor.resx

@@ -429,9 +429,6 @@
   <data name="RibbonPageGroupReceiver.Text" xml:space="preserve">
     <value>Empfänger</value>
   </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>RibbonPageGroup2</value>
-  </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
     <value>Start</value>
   </data>
@@ -1040,6 +1037,12 @@
   <data name="&gt;&gt;txtEnvelopeIdLabel2.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarButtonItem1.Name" xml:space="preserve">
+    <value>BarButtonItem1</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem1.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
     <value>RibbonPage1</value>
   </data>
@@ -1232,18 +1235,6 @@
   <data name="&gt;&gt;txtEnvelopeIdLabel.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarStaticItem, 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>
-  <data name="&gt;&gt;RibbonPageGroup2.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;BarButtonItem1.Name" xml:space="preserve">
-    <value>BarButtonItem1</value>
-  </data>
-  <data name="&gt;&gt;BarButtonItem1.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmEnvelopeEditor</value>
   </data>

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports System.IO
 Imports DevExpress.Export.Xl
 Imports DevExpress.Utils.Drawing
 Imports DevExpress.XtraEditors
@@ -340,7 +341,7 @@ Partial Public Class frmEnvelopeEditor
                 End If
                 Me.Close()
             End If
-            End If
+        End If
     End Sub
 
 
@@ -363,9 +364,12 @@ Partial Public Class frmEnvelopeEditor
                 ' Verschiebe die Datei
                 Try
                     pDestinationPath &= "\" + oFilename
-                    System.IO.File.Move(pSourcePath, pDestinationPath, True)
+                    If File.Exists(pDestinationPath) Then
+                        File.Delete(pDestinationPath)
+                    End If
+                    System.IO.File.Move(pSourcePath, pDestinationPath)
                 Catch ex As Exception
-                    MsgBox(ex.Message, MsgBoxStyle.Critical)
+                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in FileMove")
                 End Try
 
             Else
@@ -511,9 +515,4 @@ Partial Public Class frmEnvelopeEditor
         End If
     End Sub
 
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        For Each odoc In Envelope.Documents
-            MsgBox(odoc.Filename & vbNewLine & odoc.Filepath)
-        Next
-    End Sub
 End Class