AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use constant for GUID column

Browse Source
This commit is contained in:
Jonathan Jenne 2021-11-04 11:49:49 +01:00
parent 437569919f
commit 19e2b2f62b
4 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
MultiTool.Form/Strings/frmImportMainExtra.Designer.vb generated
View File

@ -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>

3
MultiTool.Form/Strings/frmImportMainExtra.resx
View File

@ -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>

11
MultiTool.Form/frmImportMain.vb
View File

@ -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)

2
MultiTool.Shared/Constants.vb
View File

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