Change Name to MultiTool
This commit is contained in:
Jonathan Jenne
214
MultiTool.Form/frmRowEditor.vb
Normal file
214
MultiTool.Form/frmRowEditor.vb
Normal file
@@ -0,0 +1,214 @@
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.XtraVerticalGrid.Rows
|
||||
Imports MultiTool.Shared.Documents
|
||||
Imports MultiTool.Shared.DocumentRow
|
||||
Imports DevExpress.XtraEditors.Repository
|
||||
Imports MultiTool.Shared.Winline
|
||||
Imports DigitalData.Modules.Language
|
||||
Imports DevExpress.XtraEditors.Controls
|
||||
Imports System.Globalization
|
||||
Imports DevExpress.XtraEditors
|
||||
|
||||
Public Class frmRowEditor
|
||||
Private ReadOnly _Columns As List(Of String)
|
||||
Private ReadOnly _DataTable As New DataTable
|
||||
Private ReadOnly _Accounts As List(Of Account)
|
||||
Private ReadOnly _DocumentRow As MultiTool.Shared.DocumentRow
|
||||
|
||||
Private ReadOnly DatePicker As New RepositoryItemDateEdit
|
||||
Private ReadOnly MultilineEditor As New RepositoryItemMemoEdit
|
||||
Private ReadOnly AccountPicker As New RepositoryItemSearchLookUpEdit
|
||||
Private ReadOnly MaskDateEditor As New RepositoryItemTextEdit
|
||||
Private ReadOnly ReadOnlyEditor As New RepositoryItemTextEdit
|
||||
|
||||
Private Const COL_KEY = "KEY"
|
||||
Private Const COL_VALUE_ORIGINAL = "VALUE_ORIGINAL"
|
||||
Private Const COL_VALUE_EXTERNAL = "VALUE_EXTERNAL"
|
||||
Private Const COL_VALUE_FINAL = "VALUE_FINAL"
|
||||
|
||||
Public ReadOnly Property DocumentRow As MultiTool.Shared.DocumentRow
|
||||
Get
|
||||
Return _DocumentRow
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Sub New(pColumns As List(Of String), pDocumentRow As MultiTool.Shared.DocumentRow, pAccounts As List(Of Account))
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
_Columns = pColumns
|
||||
_Accounts = pAccounts
|
||||
_DocumentRow = pDocumentRow
|
||||
|
||||
AccountPicker.DataSource = _Accounts
|
||||
AccountPicker.DisplayMember = "Name"
|
||||
AccountPicker.ValueMember = "Id"
|
||||
|
||||
ReadOnlyEditor.ReadOnly = True
|
||||
|
||||
'DatePicker.CalendarTimeEditing = DevExpress.Utils.DefaultBoolean.False
|
||||
'DatePicker.EditMask = "yyyy-MM-dd"
|
||||
'DatePicker.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.DateTimeAdvancingCaret
|
||||
'DatePicker.DisplayFormat.FormatString = "yyyy-MM-dd"
|
||||
' DatePicker.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
|
||||
'DatePicker.DisplayFormat.FormatString = "d"
|
||||
'DatePicker.EditFormat.FormatString = "yyyy-MM-dd"
|
||||
'DatePicker.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime
|
||||
'DatePicker.EditFormat.FormatString = "d"
|
||||
'DatePicker.Mask.UseMaskAsDisplayFormat = True
|
||||
'DatePicker.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.DateTime
|
||||
' DatePicker.Mask.EditMask = "yyyy-MM-dd"
|
||||
'AddHandler DatePicker.ParseEditValue, AddressOf DatePicker_ParseEditValue
|
||||
'MaskDateEditor.Mask.EditMask = "yyyy-MM-dd"
|
||||
'MaskDateEditor.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Simple
|
||||
End Sub
|
||||
|
||||
Private Sub DatePicker_ParseEditValue(sender As Object, e As ConvertEditValueEventArgs)
|
||||
|
||||
If TypeOf sender Is RepositoryItemDateEdit Then
|
||||
|
||||
|
||||
Debug.WriteLine($"RepoItem # {e.Value} # {e.Value.GetType.Name}")
|
||||
ElseIf TypeOf sender Is DateEdit Then
|
||||
Debug.WriteLine($"DateEdit # {e.Value} # {e.Value.GetType.Name}")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmRowEditor_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Dim oDict = New Dictionary(Of String, FieldValue)
|
||||
|
||||
For Each oColumn As String In _Columns
|
||||
Dim oField = _DocumentRow.Fields.
|
||||
Where(Function(f) f.Key = oColumn).
|
||||
SingleOrDefault()
|
||||
|
||||
If oField.Value Is Nothing Then
|
||||
oDict.Add(oColumn, New FieldValue())
|
||||
Else
|
||||
oDict.Add(oColumn, oField.Value)
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
_DataTable.Columns.Clear()
|
||||
_DataTable.Columns.Add(COL_KEY)
|
||||
_DataTable.Columns.Add(COL_VALUE_ORIGINAL)
|
||||
_DataTable.Columns.Add(COL_VALUE_EXTERNAL)
|
||||
_DataTable.Columns.Add(COL_VALUE_FINAL)
|
||||
|
||||
For Each oKV In oDict
|
||||
_DataTable.Rows.Add(oKV.Key, oKV.Value.Original, oKV.Value.External, oKV.Value.Final)
|
||||
Next
|
||||
|
||||
GridControl1.DataSource = _DataTable
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick
|
||||
GridView1.CloseEditor()
|
||||
|
||||
For Each oRow As DataRow In _DataTable.Rows
|
||||
Dim oField = _DocumentRow.Fields.
|
||||
Where(Function(f) f.Key = oRow.Item(COL_KEY)).
|
||||
SingleOrDefault()
|
||||
|
||||
If oField.Key Is Nothing Then
|
||||
oField = New KeyValuePair(Of String, FieldValue)(oRow.Item(COL_KEY), New FieldValue())
|
||||
End If
|
||||
|
||||
Dim oFieldValue As FieldValue = oField.Value
|
||||
Dim oGridValue As String = Utils.NotNull(oRow.Item(COL_VALUE_FINAL), String.Empty)
|
||||
|
||||
If oField.Key = "Datum_Auftrag-Bestellung" And oGridValue.Length > 0 Then
|
||||
If TryParseDate(oGridValue) Is Nothing Then
|
||||
MsgBox($"Datumswert für '{oField.Key}' enthält einen ungüligen Wert. Bitte benutzen Sie das Format 'YYYY-MM-DD'.", MsgBoxStyle.Exclamation, Text)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not oFieldValue.Final.Equals(oGridValue) Then
|
||||
oFieldValue.Final = Utils.NotNull(oRow.Item(COL_VALUE_FINAL), String.Empty)
|
||||
|
||||
If _DocumentRow.Fields.ContainsKey(oField.Key) Then
|
||||
_DocumentRow.Fields.Item(oField.Key) = oFieldValue
|
||||
Else
|
||||
_DocumentRow.Fields.Add(oField.Key, oFieldValue)
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
DialogResult = DialogResult.OK
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Function TryParseDate(pValue As String)
|
||||
Try
|
||||
Return Date.ParseExact(pValue, "yyyy-MM-dd", CultureInfo.InvariantCulture)
|
||||
Catch ex As Exception
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub btnApplyFromWinline_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnApplyFromWinline.ItemClick
|
||||
CopyValueToFinalColumn(COL_VALUE_EXTERNAL)
|
||||
End Sub
|
||||
|
||||
Private Sub btnApplyFromOriginal_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnApplyFromOriginal.ItemClick
|
||||
CopyValueToFinalColumn(COL_VALUE_ORIGINAL)
|
||||
End Sub
|
||||
|
||||
Private Sub CopyValueToFinalColumn(pSourceColumnName As String)
|
||||
Dim oSelectedRow As DataRow = GridView1.GetDataRow(GridView1.FocusedRowHandle)
|
||||
|
||||
If oSelectedRow Is Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
oSelectedRow.Item(COL_VALUE_FINAL) = oSelectedRow.Item(pSourceColumnName)
|
||||
oSelectedRow.AcceptChanges()
|
||||
GridView1.CloseEditor()
|
||||
End Sub
|
||||
|
||||
Private Sub GridView1_CustomRowCellEdit(sender As Object, e As CustomRowCellEditEventArgs) Handles GridView1.CustomRowCellEdit
|
||||
Dim oDataRow As DataRow = GridView1.GetDataRow(e.RowHandle)
|
||||
|
||||
If e.Column.FieldName = COL_VALUE_ORIGINAL Or e.Column.FieldName = COL_VALUE_FINAL Then
|
||||
If oDataRow.Item(COL_KEY) = "Datum_Auftrag-Bestellung" Then
|
||||
'e.RepositoryItem = DatePicker
|
||||
'e.RepositoryItem = MaskDateEditor
|
||||
ElseIf e.CellValue.ToString.Length > 100 Then
|
||||
e.RepositoryItem = MultilineEditor
|
||||
ElseIf oDataRow.Item(COL_KEY) = "Fakt_Kontonummer" Or oDataRow.Item(COL_KEY) = "Lief_Kontonummer" Then
|
||||
e.RepositoryItem = AccountPicker
|
||||
End If
|
||||
End If
|
||||
|
||||
If e.Column.FieldName = COL_VALUE_FINAL Then
|
||||
Dim oReadOnlyFields As New List(Of String) From {
|
||||
"BELEGKEY"
|
||||
}
|
||||
|
||||
If oReadOnlyFields.Contains(oDataRow.Item(COL_KEY)) Then
|
||||
e.RepositoryItem = ReadOnlyEditor
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GridView1_CustomDrawCell(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
|
||||
Dim oDataRow As DataRow = GridView1.GetDataRow(e.RowHandle)
|
||||
|
||||
If e.Column.FieldName = COL_VALUE_FINAL Then
|
||||
Dim oReadOnlyFields As New List(Of String) From {
|
||||
"BELEGKEY"
|
||||
}
|
||||
|
||||
If oReadOnlyFields.Contains(oDataRow.Item(COL_KEY)) Then
|
||||
e.Appearance.BackColor = Color.LightGray
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user