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

changes

Browse Source
This commit is contained in:
Jonathan Jenne 2020-02-04 15:42:43 +01:00
parent 69a96331bd
commit b8855659b4
7 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DDMonorepo.sln
View File

@ -1,7 +1,7 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.27703.2000
# Visual Studio Version 16
VisualStudioVersion = 16.0.29728.190
MinimumVisualStudioVersion = 10.0.40219.1
Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Modules", "Modules", "{3E2008C8-27B1-41DD-9B1A-0C4029F6AECC}"
EndProject

2
GUIs.ClientSuite/App.config
View File

@ -30,7 +30,7 @@
<applicationSettings>
<DigitalData.GUIs.ClientSuite.My.MySettings>
<setting name="IDBNetworkServiceAddress" serializeAs="String">
<value>net.tcp://172.24.12.67:9000/DigitalData/Services/Main</value>
<value>net.tcp://172.24.12.39:9000/DigitalData/Services/Main</value>
</setting>
</DigitalData.GUIs.ClientSuite.My.MySettings>
<ClientSuite.My.MySettings>

7
GUIs.ClientSuite/ClassService.vb
View File

@ -1,8 +1,10 @@
Imports System.ServiceModel
Imports System.ServiceModel.Channels
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.EDMIAPI
Imports DigitalData.Modules.EDMIAPI.IDBServiceReference
Imports DigitalData.GUIs.ClientSuite.Base
Imports System.ServiceModel.Security
Public Class ClassService
Inherits BaseClass
@ -11,6 +13,7 @@ Public Class ClassService
Successful
NotFound
EmptyURI
Authentication
Unknown
End Enum
@ -60,6 +63,9 @@ Public Class ClassService
Catch ex As UriFormatException
Logger.Error(ex)
Return ConnectionTestResult.EmptyURI
Catch ex As SecurityNegotiationException
Logger.Error(ex)
Return ConnectionTestResult.Authentication
Catch ex As Exception
Logger.Error(ex)
Return ConnectionTestResult.Unknown
@ -93,5 +99,4 @@ Public Class ClassService
Return oBinding
End Function
End Class

4
GUIs.ClientSuite/My Project/Settings.Designer.vb generated
View File

@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.4.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Public NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@ -56,7 +56,7 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("net.tcp://172.24.12.67:9000/DigitalData/Services/Main")> _
Global.System.Configuration.DefaultSettingValueAttribute("net.tcp://172.24.12.39:9000/DigitalData/Services/Main")> _
Public ReadOnly Property IDBNetworkServiceAddress() As String
Get
Return CType(Me("IDBNetworkServiceAddress"),String)

2
GUIs.ClientSuite/My Project/Settings.settings
View File

@ -3,7 +3,7 @@
<Profiles />
<Settings>
<Setting Name="IDBNetworkServiceAddress" Type="System.String" Scope="Application">
<Value Profile="(Default)">net.tcp://172.24.12.67:9000/DigitalData/Services/Main</Value>
<Value Profile="(Default)">net.tcp://172.24.12.39:9000/DigitalData/Services/Main</Value>
</Setting>
</Settings>
</SettingsFile>

9
GUIs.ClientSuite/My Project/licenses.licx
View File

@ -1,3 +1,10 @@
DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

2
GUIs.ClientSuite/frmConfigService.vb
View File

@ -40,6 +40,8 @@ Public Class frmConfigService
lblStatus.Text = "Dienst konnte nicht gefunden werden. Bitte überprüfen sie Addresse und Port."
Case ClassService.ConnectionTestResult.EmptyURI
lblStatus.Text = "Bitte tragen Sie eine gültige Dienst Adresse ein."
Case ClassService.ConnectionTestResult.Authentication
lblStatus.Text = "Authentifizierungsfehler. Prüfen Sie, ob sich Ihr Gerät in der korrekten Domäne befindet."
Case Else
lblStatus.Text = "Unbekannter Fehler."
End Select