AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2020-01-16 11:45:00 +01:00
parent 1f6c197b7f
commit c3da7697cc
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD-Record-Organizer/ClassWindreamDocGrid.vb
View File

@ -317,25 +317,25 @@ Public Class ClassWindreamDocGrid
gridView.Columns.Item("DocID").Visible = False gridView.Columns.Item("DocID").Visible = False
End If End If
Dim created, changed As String Dim oCreatedFieldName, oChangedFieldName As String
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
changed = "Changed" oChangedFieldName = "Changed"
created = "Created" oCreatedFieldName = "Created"
Else Else
changed = "Geändert" oChangedFieldName = "Geändert"
created = "Erstellt" oCreatedFieldName = "Erstellt"
End If End If
Dim createdColumn = gridView.Columns(created) Dim oCreatedColumn = gridView.Columns(oCreatedFieldName)
If Not IsNothing(createdColumn) Then If Not IsNothing(oCreatedColumn) Then
createdColumn.DisplayFormat.FormatType = FormatType.DateTime oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime
createdColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss" oCreatedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
End If End If
Dim changedColumn = gridView.Columns(changed) Dim oChangedColumn = gridView.Columns(oChangedFieldName)
If Not IsNothing(changedColumn) Then If Not IsNothing(oChangedColumn) Then
changedColumn.DisplayFormat.FormatType = FormatType.DateTime oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime
changedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss" oChangedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
End If End If
If GridDocResult_BestFitColumns Then If GridDocResult_BestFitColumns Then