diff --git a/MultiTool.Common/Documents/DocumentLoader.vb b/MultiTool.Common/Documents/DocumentLoader.vb index 4a4a6c7..5184bff 100644 --- a/MultiTool.Common/Documents/DocumentLoader.vb +++ b/MultiTool.Common/Documents/DocumentLoader.vb @@ -9,6 +9,7 @@ Imports MultiTool.Common.Winline.Entities Imports MultiTool.Common.Constants Imports DigitalData.Modules.Database Imports DevExpress.Utils.CommonDialogs +Imports DigitalData.Modules.Base Namespace Documents Public Class DocumentLoader @@ -542,7 +543,7 @@ Namespace Documents If IsNothing(oReferencedField) = False Then Dim oRawValue = oReferencedField.Value?.GetValue(oSubKey) - Dim oValue As String = Utils.NotNull(oRawValue, String.Empty) + Dim oValue As String = ObjectEx.NotNull(oRawValue, String.Empty) If oValue <> String.Empty Then oField.Value.SetExternalValue(oValue) diff --git a/MultiTool.Common/MultiTool.Common.vbproj b/MultiTool.Common/MultiTool.Common.vbproj index a1799d9..96ef7b9 100644 --- a/MultiTool.Common/MultiTool.Common.vbproj +++ b/MultiTool.Common/MultiTool.Common.vbproj @@ -63,18 +63,10 @@ False ..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - False - ..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll - False ..\..\DDModules\Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll - - False - ..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll - False ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll diff --git a/MultiTool.Common/Templates/Template.vb b/MultiTool.Common/Templates/Template.vb index 2695189..2336101 100644 --- a/MultiTool.Common/Templates/Template.vb +++ b/MultiTool.Common/Templates/Template.vb @@ -1,4 +1,4 @@ -Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Base Imports MultiTool.Common.Winline.WinlineData Namespace Templates @@ -95,8 +95,8 @@ Namespace Templates Public Function GetParameter(pName As String) As String - Dim oParam1 As String = Utils.NotNull(Parameter1, String.Empty) - Dim oParam2 As String = Utils.NotNull(Parameter2, String.Empty) + Dim oParam1 As String = ObjectEx.NotNull(Parameter1, String.Empty) + Dim oParam2 As String = ObjectEx.NotNull(Parameter2, String.Empty) Dim oParamValue1 = Parameters.TryGet(oParam1, pName) Dim oParamValue2 = Parameters.TryGet(oParam2, pName) diff --git a/MultiTool.Form/MultiTool.Form.vbproj b/MultiTool.Form/MultiTool.Form.vbproj index ad984e6..e7d839e 100644 --- a/MultiTool.Form/MultiTool.Form.vbproj +++ b/MultiTool.Form/MultiTool.Form.vbproj @@ -112,14 +112,6 @@ False ..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - False - ..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll - - - False - ..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll - False ..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll diff --git a/MultiTool.Form/frmRowEditor.vb b/MultiTool.Form/frmRowEditor.vb index 2639841..f7bcaa2 100644 --- a/MultiTool.Form/frmRowEditor.vb +++ b/MultiTool.Form/frmRowEditor.vb @@ -5,8 +5,8 @@ Imports MultiTool.Common.Winline Imports MultiTool.Common.Winline.Entities Imports MultiTool.Common.Templates Imports MultiTool.Common.Constants -Imports DigitalData.Modules.Language Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors.Repository Imports DevExpress.XtraEditors.Controls @@ -167,7 +167,7 @@ Public Class frmRowEditor End If Dim oFieldValue As FieldValue = oField.Value - Dim oValueFromGrid As String = Utils.NotNull(oRow.Item(COL_VALUE_FINAL), String.Empty) + Dim oValueFromGrid As String = ObjectEx.NotNull(oRow.Item(COL_VALUE_FINAL), String.Empty) ' Do the dirtiest date validation of all times If oField.Value.DataType = ColumnType.Date And oValueFromGrid.Length > 0 Then @@ -293,7 +293,7 @@ Public Class frmRowEditor 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) Dim oKey As String = oDataRow.Item(COL_KEY) - Dim oValue As String = Utils.NotNull(oDataRow.Item(COL_VALUE_FINAL), String.Empty) + Dim oValue As String = ObjectEx.NotNull(oDataRow.Item(COL_VALUE_FINAL), String.Empty) Dim oColumn = _Table.Columns. Where(Function(c) c.Name = oKey). SingleOrDefault()