use constant for GUID column

MultiTool.Form/Strings/frmImportMainExtra.Designer.vb

@@ -271,6 +271,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Wollen Sie die ausgewählte Zeile wirklich löschen? ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Wollen_Sie_die_ausgewählte_Zeile_wirklich_löschen_() As String
+            Get
+                Return ResourceManager.GetString("Wollen Sie die ausgewählte Zeile wirklich löschen?", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Wollen Sie wirklich die aktuelle Datei mit dem gewählten Mandanten ({0}) neu laden? Alle von Ihnen getätigten Änderungen werden dabei verworfen ähnelt.
         '''</summary>

MultiTool.Form/Strings/frmImportMainExtra.resx

@@ -180,6 +180,9 @@
   <data name="Vorlagenverzeichnis" xml:space="preserve">
     <value>Vorlagenverzeichnis</value>
   </data>
+  <data name="Wollen Sie die ausgewählte Zeile wirklich löschen?" xml:space="preserve">
+    <value>Wollen Sie die ausgewählte Zeile wirklich löschen?</value>
+  </data>
   <data name="Wollen Sie wirklich die aktuelle Datei neu laden" xml:space="preserve">
     <value>Wollen Sie wirklich die aktuelle Datei mit dem gewählten Mandanten ({0}) neu laden? Alle von Ihnen getätigten Änderungen werden dabei verworfen</value>
   </data>

MultiTool.Form/frmImportMain.vb

@@ -14,6 +14,7 @@ Imports MultiTool.Shared
 Imports MultiTool.Shared.Documents
 Imports MultiTool.Shared.Schemas
 Imports MultiTool.Shared.Winline
+Imports MultiTool.Shared.Constants
 
 Public Class frmImportMain
     Private LogConfig As LogConfig
@@ -212,7 +213,7 @@ Public Class frmImportMain
             Dim oRow As DataRow = oView.GetDataRow(oView.FocusedRowHandle)
             Dim oColumns = oView.Columns.Select(Function(c) c.FieldName).ToList()
             Dim oDocumentRow = CurrentDocument.Rows.
-                Where(Function(r) r.Id.ToString = oRow.Item("GUID")).
+                Where(Function(r) r.Id.ToString = oRow.Item(COLUMN_GUID)).
                 SingleOrDefault()
 
             Dim oForm As New frmRowEditor(LogConfig, oColumns, oDocumentRow, CurrentDocument.Mandator, Winline)
@@ -313,7 +314,7 @@ Public Class frmImportMain
                 If Not oDatasources.ContainsKey(oRow.Name) Then
                     Dim oTable As New DataTable()
 
-                    oTable.Columns.Add(New DataColumn("GUID"))
+                    oTable.Columns.Add(New DataColumn(COLUMN_GUID))
 
                     For Each oField In oRow.Fields
                         oTable.Columns.Add(New DataColumn(oField.Key))
@@ -328,7 +329,7 @@ Public Class frmImportMain
                 Dim oDataTable = oDatasources.Item(oRow.Name)
                 Dim oDataRow = oDataTable.NewRow()
 
-                oDataRow.Item("GUID") = oRow.Id.ToString
+                oDataRow.Item(COLUMN_GUID) = oRow.Id.ToString
 
                 For Each oField In oRow.Fields
                     oDataRow.Item(oField.Key) = oField.Value
@@ -453,12 +454,12 @@ Public Class frmImportMain
             Exit Sub
         End If
 
-        Dim oMessage As String = "Wollen Sie die ausgewählte Zeile wirklich löschen?"
+        Dim oMessage As String = My.Resources.frmImportMainExtra.Wollen_Sie_die_ausgewählte_Zeile_wirklich_löschen_
         If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
             ' Get GUID of currently selected row
             Dim oView As GridView = CurrentGrid.FocusedView
             Dim oRow As DataRowView = oView.GetRow(oView.FocusedRowHandle)
-            Dim oGuid = oRow.Row.Item("GUID")
+            Dim oGuid = oRow.Row.Item(COLUMN_GUID)
 
             ' Get currently selected document
             Dim oDocument As Document = GridViewFiles.GetRow(GridViewFiles.FocusedRowHandle)

MultiTool.Shared/Constants.vb

@@ -1,4 +1,6 @@
 Public Class Constants
+    Public Const COLUMN_GUID = "GUID"
+
     Public Enum XmlFunction
         GLN = 1
         EAN = 2