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

DocumentResultList: fix notnull calls

Browse Source
This commit is contained in:
Jonathan Jenne
2023-08-07 09:37:59 +02:00
parent 64a81eef17
commit 4a79761118
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
GUIs.Common/DocumentResultList/frmDocumentResultList.vb
View File

@@ -13,7 +13,6 @@ Imports DevExpress.XtraPrinting
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.EDMI.API Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.ZooFlow.Constants Imports DigitalData.Modules.ZooFlow.Constants
@@ -117,7 +116,7 @@ Public Class frmDocumentResultList
Logger = pLogConfig.GetLogger() Logger = pLogConfig.GetLogger()
FormHelper = New FormHelper(pLogConfig, Me) FormHelper = New FormHelper(pLogConfig, Me)
UserLanguage = Utils.NotNull(Environment.User.Language, State.UserState.LANG_EN_US) UserLanguage = ObjectEx.NotNull(Environment.User.Language, State.UserState.LANG_EN_US)
LanguageEx.LogApplicationLanguage(Logger) LanguageEx.LogApplicationLanguage(Logger)
LanguageEx.SetApplicationLanguage(Logger, UserLanguage) LanguageEx.SetApplicationLanguage(Logger, UserLanguage)
@@ -787,7 +786,7 @@ Public Class frmDocumentResultList
If oActiveGrid IsNot Nothing Then If oActiveGrid IsNot Nothing Then
Dim oGridBand = _ActiveGridBand Dim oGridBand = _ActiveGridBand
XtraSaveFileDialog.FileName = Utils.ConvertTextToSlug(oGridBand.Caption) & ".xlsx" XtraSaveFileDialog.FileName = StringEx.ConvertTextToSlug(oGridBand.Caption) & ".xlsx"
XtraSaveFileDialog.DefaultExt = ".xlsx" XtraSaveFileDialog.DefaultExt = ".xlsx"
If XtraSaveFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then If XtraSaveFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
@@ -931,7 +930,7 @@ Public Class frmDocumentResultList
Private Sub MenuItem_CopyFilepath_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFilepathCopy.ItemClick Private Sub MenuItem_CopyFilepath_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemFilepathCopy.ItemClick
If _CurrentDocument IsNot Nothing Then If _CurrentDocument IsNot Nothing Then
Dim oPath = Utils.NotNull(_CurrentDocument.FullPath, "") Dim oPath = ObjectEx.NotNull(_CurrentDocument.FullPath, "")
If oPath <> String.Empty Then If oPath <> String.Empty Then
Clipboard.SetText(oPath) Clipboard.SetText(oPath)
End If End If