From 19e2b2f62ba0f472b60445a27ee17949fe5c8413 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 4 Nov 2021 11:49:49 +0100
Subject: [PATCH] use constant for GUID column

---
 MultiTool.Form/Strings/frmImportMainExtra.Designer.vb |  9 +++++++++
 MultiTool.Form/Strings/frmImportMainExtra.resx        |  3 +++
 MultiTool.Form/frmImportMain.vb                       | 11 ++++++-----
 MultiTool.Shared/Constants.vb                         |  2 ++
 4 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/MultiTool.Form/Strings/frmImportMainExtra.Designer.vb b/MultiTool.Form/Strings/frmImportMainExtra.Designer.vb
index f7c5d76..8dff6d9 100644
--- a/MultiTool.Form/Strings/frmImportMainExtra.Designer.vb
+++ b/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>
diff --git a/MultiTool.Form/Strings/frmImportMainExtra.resx b/MultiTool.Form/Strings/frmImportMainExtra.resx
index a176226..026b923 100644
--- a/MultiTool.Form/Strings/frmImportMainExtra.resx
+++ b/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>
diff --git a/MultiTool.Form/frmImportMain.vb b/MultiTool.Form/frmImportMain.vb
index 6b39474..c5c7400 100644
--- a/MultiTool.Form/frmImportMain.vb
+++ b/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)
diff --git a/MultiTool.Shared/Constants.vb b/MultiTool.Shared/Constants.vb
index 3b313f1..dd984ce 100644
--- a/MultiTool.Shared/Constants.vb
+++ b/MultiTool.Shared/Constants.vb
@@ -1,4 +1,6 @@
 Public Class Constants
+    Public Const COLUMN_GUID = "GUID"
+
     Public Enum XmlFunction
         GLN = 1
         EAN = 2