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

MS

Browse Source
This commit is contained in:
SchreiberM 2020-06-09 17:01:00 +02:00
parent 386e3b62b5
commit f2a3042f50
14 changed files with 920 additions and 162 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@ -63,6 +63,9 @@
RIBBON_COLOR_SCHEME = oColorScheme.ToUpper RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then
NO_DETAIL_PROFILES = True NO_DETAIL_PROFILES = True
ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
CONV_IDENTIFICATION = oIdent
Else Else
LOGGER.Info($"Wrong oMode: {oMode}") LOGGER.Info($"Wrong oMode: {oMode}")
End If End If

15
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -221,11 +221,16 @@ LOGGER.Error(ex)
End Function End Function
Public Function GetTypeOfIndex(ByVal indexname As String) As Integer Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
Try Try
If IsNothing(Me.oSession) Then
LOGGER.Warn("GetTypeOfIndex: WMSession is nothing")
Return Nothing
End If
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim vType = oAttribute.getVariableValue("dwAttrType") Dim vType = oAttribute.getVariableValue("dwAttrType")
Return vType Return vType
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) Dim omsg = $"Unexpected error in GetTypeOfIndex [{indexname}]: {ex.Message}"
LOGGER.Warn(omsg)
Return Nothing Return Nothing
End Try End Try
@ -273,6 +278,10 @@ LOGGER.Error(ex)
''' <remarks></remarks> ''' <remarks></remarks>
Public Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String() Public Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String()
Try Try
If IsNothing(Me.oSession) Then
LOGGER.Warn("GetIndicesByObjecttype: WMSession is nothing")
Return Nothing
End If
Dim oObjectType As WMObject Dim oObjectType As WMObject
Dim oIndexAttributes As WMObjectRelation Dim oIndexAttributes As WMObjectRelation
Dim oIndexAttribute As WMObject Dim oIndexAttribute As WMObject
@ -322,6 +331,10 @@ LOGGER.Error(ex)
''' <remarks></remarks> ''' <remarks></remarks>
Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
Try Try
If IsNothing(Me.oSession) Then
LOGGER.Warn("GetObjecttypeByName: WMSession is nothing")
Return Nothing
End If
' alle Objekttypen auslesen ' alle Objekttypen auslesen
Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)

16
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -139,6 +139,12 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DigitalData.Controls.ChatControl">
<HintPath>..\..\..\DDMonorepo\Controls.ChatControl\bin\Debug\DigitalData.Controls.ChatControl.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.ChatNewConv">
<HintPath>..\..\..\DDMonorepo\Controls.ChatNewConv\bin\Debug\DigitalData.Controls.ChatNewConv.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.DocumentViewer, Version=1.0.3.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.0.3.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
@ -150,6 +156,7 @@
<Reference Include="DigitalData.Modules.Config"> <Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Database, Version=1.0.0.7, Culture=neutral, PublicKeyToken=null" />
<Reference Include="DigitalData.Modules.Logging"> <Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference> </Reference>
@ -294,6 +301,12 @@
<Compile Include="frmAnnotations.vb"> <Compile Include="frmAnnotations.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmChat_NewConversation.Designer.vb">
<DependentUpon>frmChat_NewConversation.vb</DependentUpon>
</Compile>
<Compile Include="frmChat_NewConversation.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmClientLogin.designer.vb"> <Compile Include="frmClientLogin.designer.vb">
<DependentUpon>frmClientLogin.vb</DependentUpon> <DependentUpon>frmClientLogin.vb</DependentUpon>
</Compile> </Compile>
@ -517,6 +530,9 @@
<EmbeddedResource Include="frmAnnotations.resx"> <EmbeddedResource Include="frmAnnotations.resx">
<DependentUpon>frmAnnotations.vb</DependentUpon> <DependentUpon>frmAnnotations.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmChat_NewConversation.resx">
<DependentUpon>frmChat_NewConversation.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmClientLogin.en.resx"> <EmbeddedResource Include="frmClientLogin.en.resx">
<DependentUpon>frmClientLogin.vb</DependentUpon> <DependentUpon>frmClientLogin.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

3
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -27,6 +27,8 @@ Module ModuleRuntimeVariables
Public CURRENT_DOC_CREATION_DATE As String Public CURRENT_DOC_CREATION_DATE As String
Public CURRENT_DOC_CREATION_TIME As String Public CURRENT_DOC_CREATION_TIME As String
Public CURRENT_CONVERSATION_NEW As Long
Public CURRENT_CONN_ID As Integer Public CURRENT_CONN_ID As Integer
Public CURRENT_JUMP_DOC_GUID As Integer Public CURRENT_JUMP_DOC_GUID As Integer
@ -65,6 +67,7 @@ Module ModuleRuntimeVariables
Public MONITORING_ACTIVE As Boolean = False Public MONITORING_ACTIVE As Boolean = False
Public RIBBON_COLOR_SCHEME As String = "Blue" Public RIBBON_COLOR_SCHEME As String = "Blue"
Public ADDITIONAL_TITLE As String = "" Public ADDITIONAL_TITLE As String = ""
Public CONV_IDENTIFICATION As String = "Username"
Public LICENSE_COUNT As Integer = 0 Public LICENSE_COUNT As Integer = 0
Public LICENSE_EXPIRED As Boolean = False Public LICENSE_EXPIRED As Boolean = False

23
app/DD_PM_WINDREAM/My Project/licenses.licx
View File

@ -1,15 +1,16 @@
DevExpress.XtraPrinting.Preview.DocumentViewer, DevExpress.XtraPrinting.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.XtraBars.BarManager, 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.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.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.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, 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
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, 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.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.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.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPrinting.Preview.DocumentViewer, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.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.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.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.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

2
app/DD_PM_WINDREAM/frmAdmin2.resx
View File

@ -509,7 +509,7 @@
<value>Phrasen Verwaltung</value> <value>Phrasen Verwaltung</value>
</data> </data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Aktionen</value> <value>Start</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1059, 146</value> <value>1059, 146</value>

52
app/DD_PM_WINDREAM/frmChat_NewConversation.Designer.vb generated Normal file
View File

@ -0,0 +1,52 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmChat_NewConversation
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ChatNewConv1 = New DigitalData.Controls.ChatNewConv.ChatNewConv()
Me.SuspendLayout()
'
'ChatNewConv1
'
Me.ChatNewConv1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ChatNewConv1.Location = New System.Drawing.Point(2, 1)
Me.ChatNewConv1.Name = "ChatNewConv1"
Me.ChatNewConv1.Size = New System.Drawing.Size(463, 472)
Me.ChatNewConv1.TabIndex = 0
'
'frmChat_NewConversation
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(474, 480)
Me.Controls.Add(Me.ChatNewConv1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmChat_NewConversation"
Me.Text = "Neue Konversation"
Me.ResumeLayout(False)
End Sub
Friend WithEvents ChatNewConv1 As DigitalData.Controls.ChatNewConv.ChatNewConv
End Class

120
app/DD_PM_WINDREAM/frmChat_NewConversation.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

24
app/DD_PM_WINDREAM/frmChat_NewConversation.vb Normal file
View File

@ -0,0 +1,24 @@
Public Class frmChat_NewConversation
Public Property NewConversation() As String
Get
Return oNewConversation
End Get
Set(value As String)
oNewConversation = value
End Set
End Property
Public oNewConversation As Long
Public Sub New(oDTUsers As DataTable, oDTGroups As DataTable)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
ChatNewConv1.Init(LOGCONFIG, CONNECTION_STRING_IDB, CURRENT_DOC_ID, USER_USERNAME, USER_LANGUAGE, oDTUsers, oDTGroups)
AddHandler ChatNewConv1.Conversation_Created, AddressOf onConversationCreated
End Sub
Sub onConversationCreated()
CURRENT_CONVERSATION_NEW = ChatNewConv1.NewConversation
Me.Close()
End Sub
End Class

2
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -1468,7 +1468,7 @@ Public Class frmMain
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("(LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn("(Warning LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try End Try
End Try End Try

159
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -24,6 +24,7 @@ Partial Class frmValidator
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator))
Me.SplitContainer2_DV_Chat = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.TITLELabel1 = New System.Windows.Forms.Label() Me.TITLELabel1 = New System.Windows.Forms.Label()
@ -31,6 +32,7 @@ Partial Class frmValidator
Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label()
Me.pnldesigner = New System.Windows.Forms.Panel() Me.pnldesigner = New System.Windows.Forms.Panel()
Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.ChatControl1 = New DigitalData.Controls.ChatControl.ChatControl()
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
@ -82,12 +84,28 @@ Partial Class frmValidator
Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem()
Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem() Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarLinkContainerItem1 = New DevExpress.XtraBars.BarLinkContainerItem()
Me.bbtnitem_ConversationEnd = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitem_ConversationNew = New DevExpress.XtraBars.BarButtonItem()
Me.BarLinkContainerItem2 = New DevExpress.XtraBars.BarLinkContainerItem()
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BarEditItem3 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupConv1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupConv_Change = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer2_DV_Chat.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
@ -100,8 +118,23 @@ Partial Class frmValidator
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemComboBox3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplitContainer2_DV_Chat
'
Me.SplitContainer2_DV_Chat.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
resources.ApplyResources(Me.SplitContainer2_DV_Chat, "SplitContainer2_DV_Chat")
Me.SplitContainer2_DV_Chat.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.None
Me.SplitContainer2_DV_Chat.Name = "SplitContainer2_DV_Chat"
Me.SplitContainer2_DV_Chat.Panel1.Controls.Add(Me.SplitContainer1)
resources.ApplyResources(Me.SplitContainer2_DV_Chat.Panel1, "SplitContainer2_DV_Chat.SplitContainer2_DV_Chat_Panel1")
resources.ApplyResources(Me.SplitContainer2_DV_Chat.Panel2, "SplitContainer2_DV_Chat.SplitContainer2_DV_Chat_Panel2")
Me.SplitContainer2_DV_Chat.Panel2.Controls.Add(Me.ChatControl1)
Me.SplitContainer2_DV_Chat.SplitterPosition = 919
'
'SplitContainer1 'SplitContainer1
' '
resources.ApplyResources(Me.SplitContainer1, "SplitContainer1") resources.ApplyResources(Me.SplitContainer1, "SplitContainer1")
@ -155,6 +188,11 @@ Partial Class frmValidator
resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator") resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator")
Me.DocumentViewerValidator.Name = "DocumentViewerValidator" Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
' '
'ChatControl1
'
resources.ApplyResources(Me.ChatControl1, "ChatControl1")
Me.ChatControl1.Name = "ChatControl1"
'
'BarAndDockingController3 'BarAndDockingController3
' '
Me.BarAndDockingController3.PropertiesBar.AllowLinkLighting = False Me.BarAndDockingController3.PropertiesBar.AllowLinkLighting = False
@ -407,11 +445,13 @@ Partial Class frmValidator
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnItm, Me.BarButtonItem2}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnItm, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.bbtnitem_ConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 18 Me.RibbonControl1.MaxItemId = 25
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
@ -544,6 +584,96 @@ Partial Class frmValidator
Me.BarButtonItem2.Id = 17 Me.BarButtonItem2.Id = 17
Me.BarButtonItem2.Name = "BarButtonItem2" Me.BarButtonItem2.Name = "BarButtonItem2"
' '
'BarLinkContainerItem1
'
resources.ApplyResources(Me.BarLinkContainerItem1, "BarLinkContainerItem1")
Me.BarLinkContainerItem1.Id = 18
Me.BarLinkContainerItem1.Name = "BarLinkContainerItem1"
'
'bbtnitem_ConversationEnd
'
resources.ApplyResources(Me.bbtnitem_ConversationEnd, "bbtnitem_ConversationEnd")
Me.bbtnitem_ConversationEnd.Id = 19
Me.bbtnitem_ConversationEnd.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitem_ConversationEnd.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitem_ConversationEnd.Name = "bbtnitem_ConversationEnd"
'
'bbtnitem_ConversationNew
'
resources.ApplyResources(Me.bbtnitem_ConversationNew, "bbtnitem_ConversationNew")
Me.bbtnitem_ConversationNew.Id = 20
Me.bbtnitem_ConversationNew.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitem_ConversationNew.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitem_ConversationNew.Name = "bbtnitem_ConversationNew"
'
'BarLinkContainerItem2
'
resources.ApplyResources(Me.BarLinkContainerItem2, "BarLinkContainerItem2")
Me.BarLinkContainerItem2.Id = 21
Me.BarLinkContainerItem2.Name = "BarLinkContainerItem2"
'
'BarEditItem1
'
resources.ApplyResources(Me.BarEditItem1, "BarEditItem1")
Me.BarEditItem1.Edit = Me.RepositoryItemComboBox1
Me.BarEditItem1.Id = 22
Me.BarEditItem1.Name = "BarEditItem1"
'
'RepositoryItemComboBox1
'
resources.ApplyResources(Me.RepositoryItemComboBox1, "RepositoryItemComboBox1")
Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox1.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
'
'BarEditItem2
'
resources.ApplyResources(Me.BarEditItem2, "BarEditItem2")
Me.BarEditItem2.Edit = Me.RepositoryItemComboBox2
Me.BarEditItem2.Id = 23
Me.BarEditItem2.Name = "BarEditItem2"
'
'RepositoryItemComboBox2
'
resources.ApplyResources(Me.RepositoryItemComboBox2, "RepositoryItemComboBox2")
Me.RepositoryItemComboBox2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox2.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.RepositoryItemComboBox2.Name = "RepositoryItemComboBox2"
'
'BarEditItem3
'
resources.ApplyResources(Me.BarEditItem3, "BarEditItem3")
Me.BarEditItem3.Edit = Me.RepositoryItemComboBox3
Me.BarEditItem3.Id = 24
Me.BarEditItem3.Name = "BarEditItem3"
'
'RepositoryItemComboBox3
'
resources.ApplyResources(Me.RepositoryItemComboBox3, "RepositoryItemComboBox3")
Me.RepositoryItemComboBox3.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox3.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
Me.RepositoryItemComboBox3.Name = "RepositoryItemComboBox3"
'
'RibbonPageCategory1
'
Me.RibbonPageCategory1.Name = "RibbonPageCategory1"
Me.RibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage3})
resources.ApplyResources(Me.RibbonPageCategory1, "RibbonPageCategory1")
'
'RibbonPage3
'
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupConv1, Me.RibbonPageGroupConv_Change})
Me.RibbonPage3.Name = "RibbonPage3"
resources.ApplyResources(Me.RibbonPage3, "RibbonPage3")
'
'RibbonPageGroupConv1
'
Me.RibbonPageGroupConv1.ItemLinks.Add(Me.bbtnitem_ConversationNew)
Me.RibbonPageGroupConv1.ItemLinks.Add(Me.bbtnitem_ConversationEnd)
Me.RibbonPageGroupConv1.Name = "RibbonPageGroupConv1"
resources.ApplyResources(Me.RibbonPageGroupConv1, "RibbonPageGroupConv1")
'
'RibbonPageGroupConv_Change
'
Me.RibbonPageGroupConv_Change.ItemLinks.Add(Me.BarEditItem3)
Me.RibbonPageGroupConv_Change.Name = "RibbonPageGroupConv_Change"
resources.ApplyResources(Me.RibbonPageGroupConv_Change, "RibbonPageGroupConv_Change")
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroup2})
@ -599,7 +729,7 @@ Partial Class frmValidator
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.SplitContainer2_DV_Chat)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.barDockControlLeft) Me.Controls.Add(Me.barDockControlLeft)
@ -612,6 +742,8 @@ Partial Class frmValidator
Me.Name = "frmValidator" Me.Name = "frmValidator"
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
CType(Me.SplitContainer2_DV_Chat, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2_DV_Chat.ResumeLayout(False)
Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
@ -624,11 +756,13 @@ Partial Class frmValidator
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemComboBox3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TITLELabel1 As System.Windows.Forms.Label Friend WithEvents TITLELabel1 As System.Windows.Forms.Label
Friend WithEvents btnSave As System.Windows.Forms.Button Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents DESCRIPTIONLabel As System.Windows.Forms.Label Friend WithEvents DESCRIPTIONLabel As System.Windows.Forms.Label
@ -692,4 +826,21 @@ Partial Class frmValidator
Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents BbtnItm As DevExpress.XtraBars.BarButtonItem Friend WithEvents BbtnItm As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Panel1 As Panel
Friend WithEvents SplitContainer2_DV_Chat As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents BarLinkContainerItem1 As DevExpress.XtraBars.BarLinkContainerItem
Friend WithEvents bbtnitem_ConversationEnd As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtnitem_ConversationNew As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory
Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroupConv1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarLinkContainerItem2 As DevExpress.XtraBars.BarLinkContainerItem
Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemComboBox2 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents RibbonPageGroupConv_Change As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarEditItem3 As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemComboBox3 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
Friend WithEvents ChatControl1 As DigitalData.Controls.ChatControl.ChatControl
End Class End Class

261
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -118,13 +118,19 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="SplitContainer2_DV_Chat.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing"> <data name="SplitContainer2_DV_Chat.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 146</value> <value>0, 146</value>
</data> </data>
<data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
@ -138,7 +144,7 @@
<value>No</value> <value>No</value>
</data> </data>
<data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>565, 29</value> <value>433, 29</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib"> <data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
@ -178,7 +184,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="btnSave.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
<value>577, 50</value> <value>445, 50</value>
</data> </data>
<data name="btnSave.TabIndex" type="System.Int32, mscorlib"> <data name="btnSave.TabIndex" type="System.Int32, mscorlib">
<value>11</value> <value>11</value>
@ -205,7 +211,7 @@
<value>5, 33</value> <value>5, 33</value>
</data> </data>
<data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing"> <data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>579, 48</value> <value>447, 48</value>
</data> </data>
<data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib"> <data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -238,7 +244,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
<value>576, 366</value> <value>444, 366</value>
</data> </data>
<data name="pnldesigner.TabIndex" type="System.Int32, mscorlib"> <data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
<value>18</value> <value>18</value>
@ -265,7 +271,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>587, 516</value> <value>455, 516</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>24</value> <value>24</value>
@ -304,7 +310,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing"> <data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing">
<value>594, 516</value> <value>460, 516</value>
</data> </data>
<data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib"> <data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -334,10 +340,10 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>1185, 516</value> <value>919, 516</value>
</data> </data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib"> <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>587</value> <value>455</value>
</data> </data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>37</value> <value>37</value>
@ -349,11 +355,68 @@
<value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;SplitContainer1.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainer1.Parent" xml:space="preserve">
<value>$this</value> <value>SplitContainer2_DV_Chat.SplitContainer2_DV_Chat_Panel1</value>
</data> </data>
<data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="SplitContainer2_DV_Chat.SplitContainer2_DV_Chat_Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="SplitContainer2_DV_Chat.SplitContainer2_DV_Chat_Panel2.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ChatControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="ChatControl1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="ChatControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ChatControl1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="ChatControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>254, 516</value>
</data>
<data name="ChatControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;ChatControl1.Name" xml:space="preserve">
<value>ChatControl1</value>
</data>
<data name="&gt;&gt;ChatControl1.Type" xml:space="preserve">
<value>DigitalData.Controls.ChatControl.ChatControl, DigitalData.Controls.ChatControl, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;ChatControl1.Parent" xml:space="preserve">
<value>SplitContainer2_DV_Chat.SplitContainer2_DV_Chat_Panel2</value>
</data>
<data name="&gt;&gt;ChatControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainer2_DV_Chat.SplitContainer2_DV_Chat_Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="SplitContainer2_DV_Chat.Size" type="System.Drawing.Size, System.Drawing">
<value>1185, 516</value>
</data>
<data name="SplitContainer2_DV_Chat.TabIndex" type="System.Int32, mscorlib">
<value>44</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Name" xml:space="preserve">
<value>SplitContainer2_DV_Chat</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainer2_DV_Chat.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="BarAndDockingController3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BarAndDockingController3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
@ -833,9 +896,100 @@
<data name="BarButtonItem2.Caption" xml:space="preserve"> <data name="BarButtonItem2.Caption" xml:space="preserve">
<value>BarButtonItem2</value> <value>BarButtonItem2</value>
</data> </data>
<data name="BarLinkContainerItem1.Caption" xml:space="preserve">
<value>Konversationen</value>
</data>
<data name="bbtnitem_ConversationEnd.Caption" xml:space="preserve">
<value>Beende Konversation</value>
</data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="bbtnitem_ConversationEnd.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkZvcmJpZCI+DQogICAgPHBhdGggZD0iTTE2LDRDOS40
LDQsNCw5LjQsNCwxNnM1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyUzIyLjYsNCwxNiw0eiBNMTYsOGMx
LjUsMCwyLjksMC40LDQuMSwxLjFsLTExLDExICAgQzguNCwxOC45LDgsMTcuNSw4LDE2QzgsMTEuNiwx
MS42LDgsMTYsOHogTTE2LDI0Yy0xLjUsMC0yLjgtMC40LTQtMS4xTDIyLjksMTJjMC43LDEuMiwxLjEs
Mi41LDEuMSw0QzI0LDIwLjQsMjAuNCwyNCwxNiwyNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwv
c3ZnPgs=
</value>
</data>
<data name="bbtnitem_ConversationNew.Caption" xml:space="preserve">
<value>Neue Konversation</value>
</data>
<data name="bbtnitem_ConversationNew.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
Cjwvc3ZnPgs=
</value>
</data>
<data name="BarLinkContainerItem2.Caption" xml:space="preserve">
<value>BarLinkContainerItem2</value>
</data>
<data name="BarEditItem1.Caption" xml:space="preserve">
<value>Auswahl</value>
</data>
<data name="RepositoryItemComboBox1.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="RepositoryItemComboBox1.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v19.2">
<value>Combo</value>
</data>
<data name="BarEditItem2.Caption" xml:space="preserve">
<value>Auswahl</value>
</data>
<data name="RepositoryItemComboBox2.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RepositoryItemComboBox2.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v19.2">
<value>Combo</value>
</data>
<data name="BarEditItem3.Caption" xml:space="preserve">
<value>BarEditItem3</value>
</data>
<data name="RepositoryItemComboBox3.AutoHeight" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="RepositoryItemComboBox3.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v19.2">
<value>Combo</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroupConv1.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="RibbonPageGroupConv_Change.Text" xml:space="preserve">
<value>Wechsel</value>
</data>
<data name="RibbonPage3.Text" xml:space="preserve">
<value>Start</value>
</data>
<data name="RibbonPageCategory1.Text" xml:space="preserve">
<value>Konversationen</value>
</data>
<data name="RibbonPageFile.Text" xml:space="preserve"> <data name="RibbonPageFile.Text" xml:space="preserve">
<value>Datei</value> <value>Datei</value>
</data> </data>
@ -1392,6 +1546,90 @@
<data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve"> <data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarLinkContainerItem1.Name" xml:space="preserve">
<value>BarLinkContainerItem1</value>
</data>
<data name="&gt;&gt;BarLinkContainerItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarLinkContainerItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;bbtnitem_ConversationEnd.Name" xml:space="preserve">
<value>bbtnitem_ConversationEnd</value>
</data>
<data name="&gt;&gt;bbtnitem_ConversationEnd.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;bbtnitem_ConversationNew.Name" xml:space="preserve">
<value>bbtnitem_ConversationNew</value>
</data>
<data name="&gt;&gt;bbtnitem_ConversationNew.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarLinkContainerItem2.Name" xml:space="preserve">
<value>BarLinkContainerItem2</value>
</data>
<data name="&gt;&gt;BarLinkContainerItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarLinkContainerItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarEditItem1.Name" xml:space="preserve">
<value>BarEditItem1</value>
</data>
<data name="&gt;&gt;BarEditItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarEditItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox1.Name" xml:space="preserve">
<value>RepositoryItemComboBox1</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarEditItem2.Name" xml:space="preserve">
<value>BarEditItem2</value>
</data>
<data name="&gt;&gt;BarEditItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarEditItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox2.Name" xml:space="preserve">
<value>RepositoryItemComboBox2</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarEditItem3.Name" xml:space="preserve">
<value>BarEditItem3</value>
</data>
<data name="&gt;&gt;BarEditItem3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarEditItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox3.Name" xml:space="preserve">
<value>RepositoryItemComboBox3</value>
</data>
<data name="&gt;&gt;RepositoryItemComboBox3.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageCategory1.Name" xml:space="preserve">
<value>RibbonPageCategory1</value>
</data>
<data name="&gt;&gt;RibbonPageCategory1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageCategory, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage3.Name" xml:space="preserve">
<value>RibbonPage3</value>
</data>
<data name="&gt;&gt;RibbonPage3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv1.Name" xml:space="preserve">
<value>RibbonPageGroupConv1</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv_Change.Name" xml:space="preserve">
<value>RibbonPageGroupConv_Change</value>
</data>
<data name="&gt;&gt;RibbonPageGroupConv_Change.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value> <value>RibbonPage1</value>
</data> </data>
@ -1431,7 +1669,6 @@
<data name="PdfFileOpenBarItem1.Caption" xml:space="preserve"> <data name="PdfFileOpenBarItem1.Caption" xml:space="preserve">
<value>Öffnen</value> <value>Öffnen</value>
</data> </data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="PdfFileOpenBarItem1.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PdfFileOpenBarItem1.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu

254
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -10,6 +10,7 @@ Imports DD_LIB_Standards
Imports DigitalData.Controls.LookupGrid Imports DigitalData.Controls.LookupGrid
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports System.Reflection Imports System.Reflection
Imports DigitalData.Controls.ChatControl
Public Class frmValidator Public Class frmValidator
Dim strFileList() Dim strFileList()
@ -18,7 +19,7 @@ Public Class frmValidator
Dim PROFIL_FINISH_SQL Dim PROFIL_FINISH_SQL
Dim PROFIL_LOGINDEX Dim PROFIL_LOGINDEX
Dim oErrorMessage Dim oErrMsgMissingInput
Private PMDelimiter As String Private PMDelimiter As String
@ -58,6 +59,12 @@ Public Class frmValidator
Private DTGRID_COLUMNS_WITH_SQL As DataTable Private DTGRID_COLUMNS_WITH_SQL As DataTable
Private DTGRID_COLUMNS As DataTable Private DTGRID_COLUMNS As DataTable
Private DTGRID_SQL_DEFINITION As DataTable Private DTGRID_SQL_DEFINITION As DataTable
Private DTConversations As DataTable
Private DTDYNAMIC_RIGHTS As DataTable
Private Right_Conversation_Add As Boolean = False
Private Right_Conversation_Stop As Boolean = False
Private Right_Conversation_Message As Boolean = False
Public FormLoaded As Boolean = False Public FormLoaded As Boolean = False
Private ItemWorked As Boolean = False Private ItemWorked As Boolean = False
@ -248,8 +255,96 @@ Public Class frmValidator
End If End If
End If End If
oErrorMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput") oErrMsgMissingInput = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput")
RibbonPageCategory1.Visible = False
If IDB_ACTIVE Then
Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
DTDYNAMIC_RIGHTS = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB, "FNIDB_OBJECT_DYNAMIC_CONFIG")
RibbonPageGroupConv1.Enabled = False
Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS)
Debug.WriteLine(oView.Count, "oView before")
oView.RowFilter = "CONF_TITLE like '%CONVERSATION_%'"
Debug.WriteLine(oView.Count, "oView after")
If oView.Count > 0 Then
RibbonPageCategory1.Visible = True
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Dim oConvRightStart
For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows
If oRow.Item("CONF_TITLE").ToString.Contains("CONVERSATION_") Then
RibbonPageGroupConv1.Enabled = True
Select Case oRow.Item("CONF_VALUE")
Case "Start|Stop"
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Right_Conversation_Add = True
Right_Conversation_Stop = True
Case "Start"
bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Right_Conversation_Add = True
Case "Stop"
bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Right_Conversation_Stop = True
End Select
End If
Next
oSQL = $"select * From VWIDB_CONVERSATION where IDB_OBJ_ID = {CURRENT_DOC_ID} and CONVERSATION_STATE = 'Started'"
DTConversations = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB, "ValidatorLoad-GetConversations")
If DTConversations.Rows.Count > 0 Then
'CURRENT_DOC_ID
ChatControl1.Init(LOGCONFIG, CONNECTION_STRING_IDB, IIf(CONV_IDENTIFICATION = "Email", USER_EMAIL, USER_USERNAME), USER_USERNAME)
ChatControl1.GetConversations(CURRENT_DOC_ID)
Dim oConversations As List(Of String)
oConversations = ChatControl1.GetConversations(CURRENT_DOC_ID)
If oConversations.Count = 1 Then
RibbonPageGroupConv_Change.Visible = True
Else
RibbonPageGroupConv_Change.Visible = False
bbtnitem_ConversationEnd.Enabled = False
End If
Else
End If
Else
RibbonPageCategory1.Visible = False
End If
'If Not IsNothing(DTConversations) Then
' If DTConversations.Rows.Count >= 1 Then
' SplitContainerMain.Collapsed = False
' Dim oConversations As List(Of String)
' oConversations = ChatControl1.GetConversations(CURRENT_DOC_ID)
' If oConversations.Count > 1 Then
' RibbonPageGroupConv_Change.Visible = True
' For Each oit As String In oConversations
' ' Dim Coll As ComboBoxItemCollection = RepositoryItemComboBox3.Properties.Items
' BarEditItem2..Items.Add(oit)
' Next
' Else
' RibbonPageGroupConv_Change.Visible = False
' End If
' Else
' End If
'Else
' SplitContainerMain.Collapsed = True
'End If
Else
SplitContainer2_DV_Chat.Collapsed = True
End If
LOGGER.Debug("frmValidation_Load finished!") LOGGER.Debug("frmValidation_Load finished!")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -309,6 +404,7 @@ Public Class frmValidator
End Sub End Sub
Public Sub Load_Additional_Searches() Public Sub Load_Additional_Searches()
Try
If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
Dim oDocResultCommand As String Dim oDocResultCommand As String
Dim oDatatableDocResult As DataTable Dim oDatatableDocResult As DataTable
@ -389,6 +485,10 @@ Public Class frmValidator
LOGGER.Info("Not loading AdditionalSearches...!") LOGGER.Info("Not loading AdditionalSearches...!")
bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub End Sub
Sub LoadSQLData(control As Control, pControlId As Integer) Sub LoadSQLData(control As Control, pControlId As Integer)
Try Try
@ -814,29 +914,32 @@ Public Class frmValidator
oMyControl = lookup oMyControl = lookup
'Wenn Multiselect false dann prüfen ob abhängiges Control 'Wenn Multiselect false dann prüfen ob abhängiges Control
If CBool(oControlRow.Item("MULTISELECT")) = False Then If CBool(oControlRow.Item("MULTISELECT")) = False Then
Dim filteredData As DataTable = DTCONTROLS.Clone() Dim oFilteredData As DataTable = DTCONTROLS.Clone()
Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oMyControl.Name}%'" Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oMyControl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges) DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then If oFilteredData.Rows.Count >= 1 Then
LOGGER.Debug($"createControlsLU - Found {oFilteredData.Rows.Count} Controls which are depending on {oMyControl.Name}")
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue
Else
oExpression = $"SQL_ENABLE like '%#CTRL#{oMyControl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue
End If
End If End If
filteredData = DTCONTROLS.Clone() oExpression = $"SQL_ENABLE like '%#CTRL#{oMyControl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges)
If oFilteredData.Rows.Count >= 1 Then
LOGGER.Debug($"createControlsLU - Found {oFilteredData.Rows.Count} Controls which' enable state is depending on {oMyControl.Name}")
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue
End If
oFilteredData = DTCONTROLS.Clone()
oExpression = $"GUID = {oControlRow.Item("GUID")} and Len(SET_CONTROL_DATA) > 0" oExpression = $"GUID = {oControlRow.Item("GUID")} and Len(SET_CONTROL_DATA) > 0"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges) DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then If oFilteredData.Rows.Count = 1 Then
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1 'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue_Control2Set AddHandler lookup.SelectedValuesChanged, AddressOf onLookUpselectedValue_Control2Set
End If End If
filteredData = DTCONTROLS.Clone() oFilteredData = DTCONTROLS.Clone()
End If End If
@ -1333,7 +1436,7 @@ Public Class frmValidator
LookupControl_EnablingControls(oLookup, SelectedValues) LookupControl_EnablingControls(oLookup, SelectedValues)
LookupControl_DependingColumn(oLookup, SelectedValues) LookupControl_DependingColumn(oLookup, SelectedValues)
Else Else
LOGGER.Debug("Uups: SelectedValues.Count <> 1 ") LOGGER.Debug("Uups onLookUpselectedValue: SelectedValues.Count <> 1 ")
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -1857,7 +1960,7 @@ Public Class frmValidator
End Sub End Sub
Private Sub LookupControl_EnablingControls(LookupControl As LookupControl2, SelectedValues As List(Of String)) Private Sub LookupControl_EnablingControls(LookupControl As LookupControl2, SelectedValues As List(Of String))
Dim oLOOKUPValue = SelectedValues.Item(0) Dim oLOOKUPValue = SelectedValues.Item(0)
LOGGER.Debug($"oLOOKUPValue is [{oLOOKUPValue}]!") LOGGER.Debug($"LookupControl_EnablingControls [{LookupControl.Name()}] - oLOOKUPValue is [{oLOOKUPValue}]!")
Dim oControlID = DirectCast(LookupControl.Tag, ClassControlCreator.ControlMetadata).Guid Dim oControlID = DirectCast(LookupControl.Tag, ClassControlCreator.ControlMetadata).Guid
Controls2beEnabled(LookupControl.Name) Controls2beEnabled(LookupControl.Name)
@ -2009,7 +2112,7 @@ Public Class frmValidator
For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows
Dim oENABLE_GUID = oRowEnablingControl.Item("GUID") Dim oENABLE_GUID = oRowEnablingControl.Item("GUID")
Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME") Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME")
LOGGER.Debug($"Control {oENABLE_CtrlName} is depending on lookUp {pControlName}..") LOGGER.Debug($"Control {oENABLE_CtrlName} is depending on Control: {pControlName}..")
If _dependingControl_in_action = True Then If _dependingControl_in_action = True Then
LOGGER.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!") LOGGER.Debug($"..but _dependingControl_in_action = True ==> Exit Sub!")
Exit Sub Exit Sub
@ -2254,7 +2357,7 @@ Public Class frmValidator
Return newGUID Return newGUID
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
oErrorMessage = "Unexpected error in Get_Next_GUID: " & ex.Message oErrMsgMissingInput = "Unexpected error in Get_Next_GUID: " & ex.Message
LOGGER.Info(">> Unexpected error in Get_Next_GUID:: " & ex.Message, True) LOGGER.Info(">> Unexpected error in Get_Next_GUID:: " & ex.Message, True)
Return 0 Return 0
End Try End Try
@ -2349,7 +2452,7 @@ Public Class frmValidator
CURRENT_WMFILE = Nothing CURRENT_WMFILE = Nothing
activate_controls(False) activate_controls(False)
oErrorMessage = "" oErrMsgMissingInput = ""
WMDocPathWindows = "" WMDocPathWindows = ""
WMDocFileString = "" WMDocFileString = ""
@ -2413,14 +2516,14 @@ Public Class frmValidator
LOGGER.Debug("AllDocInfo created...") LOGGER.Debug("AllDocInfo created...")
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
oErrorMessage = Windream_get_Doc_info() oErrMsgMissingInput = Windream_get_Doc_info()
Else Else
' oErrorMessage = IDB_GetDocInfo() ' oErrorMessage = IDB_GetDocInfo()
End If End If
If oErrorMessage = "" Then If oErrMsgMissingInput = "" Then
If WMDocPathWindows <> String.Empty Then If WMDocPathWindows <> String.Empty Then
load_viewer() load_viewer()
LOGGER.Debug("Viewer loaded!") LOGGER.Debug("Viewer loaded!")
@ -2472,7 +2575,7 @@ Public Class frmValidator
End If End If
activate_controls(True) activate_controls(True)
Else Else
errormessage = oErrorMessage errormessage = oErrMsgMissingInput
frmError.ShowDialog() frmError.ShowDialog()
End If End If
'Else 'Else
@ -2480,8 +2583,8 @@ Public Class frmValidator
' frmError.ShowDialog() ' frmError.ShowDialog()
'End If 'End If
Else Else
If oErrorMessage <> "" Then If oErrMsgMissingInput <> "" Then
errormessage = oErrorMessage errormessage = oErrMsgMissingInput
frmError.ShowDialog() frmError.ShowDialog()
Else Else
Dim oMsg = "Ende des Profils - Keine weiteren Vorgänge!" Dim oMsg = "Ende des Profils - Keine weiteren Vorgänge!"
@ -3903,7 +4006,7 @@ Public Class frmValidator
Else Else
'lblerror.Visible = True 'lblerror.Visible = True
'lblerror.Text = errmessage 'lblerror.Text = errmessage
errormessage = oErrorMessage errormessage = oErrMsgMissingInput
frmError.ShowDialog() frmError.ShowDialog()
oErrorOcurred = True oErrorOcurred = True
ItemWorked = False ItemWorked = False
@ -4014,7 +4117,7 @@ Public Class frmValidator
'Jetzt die Datei indexieren 'Jetzt die Datei indexieren
If Indexiere_File(CURRENT_WMFILE, NameVKTIndex, oNewValue) = False Then If Indexiere_File(CURRENT_WMFILE, NameVKTIndex, oNewValue) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message
End If End If
End If End If
@ -4078,7 +4181,7 @@ Public Class frmValidator
Dim lookup As LookupControl2 = oControl Dim lookup As LookupControl2 = oControl
If lookup.SelectedValues.Count = 0 And oIsRequired = True Then If lookup.SelectedValues.Count = 0 And oIsRequired = True Then
oMissing = True oMissing = True
oErrorMessage = $"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'" oErrMsgMissingInput = $"Kein Auswahl getroffen in LookupGrid '{oControl.Name}'"
oControl.BackColor = Color.Red oControl.BackColor = Color.Red
Exit For Exit For
Else Else
@ -4105,7 +4208,7 @@ Public Class frmValidator
If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing von LookupGrid - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing von LookupGrid - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4113,7 +4216,7 @@ Public Class frmValidator
If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA, oIDBTyp) = False Then If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA, oIDBTyp) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing IDB-Object LookupGrid" oErrMsgMissingInput = "Error while indexing IDB-Object LookupGrid"
Exit For Exit For
End If End If
End If End If
@ -4122,7 +4225,7 @@ Public Class frmValidator
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oIndexName, oValues.ToArray) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, oValues.ToArray) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing von LookupGrid - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing von LookupGrid - ERROR: " & idxerr_message
Exit For Exit For
End If End If
@ -4135,7 +4238,7 @@ Public Class frmValidator
oMyInput = lookup.SelectedValues.FirstOrDefault() oMyInput = lookup.SelectedValues.FirstOrDefault()
If IsNothing(oMyInput) And oIsRequired = True Then If IsNothing(oMyInput) And oIsRequired = True Then
oMissing = True oMissing = True
oErrorMessage = $"Could not get FirstOrDefault-Value of LookUpGrid! - LookUPGridName: {lookup.Name}" oErrMsgMissingInput = $"Could not get FirstOrDefault-Value of LookUpGrid! - LookUPGridName: {lookup.Name}"
Exit For Exit For
ElseIf IsNothing(oMyInput) And oIsRequired = False Then ElseIf IsNothing(oMyInput) And oIsRequired = False Then
Continue For Continue For
@ -4200,7 +4303,7 @@ Public Class frmValidator
'Hier muss nun separat as Vektorfeld indexiert werden 'Hier muss nun separat as Vektorfeld indexiert werden
If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Textbox as VEKTOR - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Textbox as VEKTOR - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4210,7 +4313,7 @@ Public Class frmValidator
result(0) = oMyInput result(0) = oMyInput
If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Textbox - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Textbox - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4246,11 +4349,11 @@ Public Class frmValidator
If oRegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, oRegexMatch) Then If oRegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, oRegexMatch) Then
oMissing = True oMissing = True
oErrorMessage = oWrongInputMessage & " textbox '" & oControl.Name & "'" oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'"
If oRegexMessage <> String.Empty Then If oRegexMessage <> String.Empty Then
oErrorMessage &= ":" & vbCrLf & oRegexMessage oErrMsgMissingInput &= ":" & vbCrLf & oRegexMessage
End If End If
oControl.BackColor = Color.Red oControl.BackColor = Color.Red
@ -4260,7 +4363,7 @@ Public Class frmValidator
'as erstes überprüfen ob überhaupt etwas eingetragen worden ist 'as erstes überprüfen ob überhaupt etwas eingetragen worden ist
If Check_Missing(oControl, "txt") = True And oIsRequired = True Then 'NICHTS EINGETRAGEN If Check_Missing(oControl, "txt") = True And oIsRequired = True Then 'NICHTS EINGETRAGEN
oMissing = True oMissing = True
oErrorMessage = oWrongInputMessage & " textbox '" & oControl.Name & "'" oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'"
oControl.BackColor = Color.Red oControl.BackColor = Color.Red
Exit For Exit For
@ -4309,7 +4412,7 @@ Public Class frmValidator
'Hier muss nun separat as Vektorfeld indexiert werden 'Hier muss nun separat as Vektorfeld indexiert werden
If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing textbox as VEKTOR - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing textbox as VEKTOR - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4319,7 +4422,7 @@ Public Class frmValidator
result(0) = oMyInput result(0) = oMyInput
If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Textbox - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Textbox - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4345,7 +4448,7 @@ Public Class frmValidator
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
oErrorMessage = "Unexpected error in Check_UpdateIndexe TextBox '" & oControl.Name & "' - Check the log" oErrMsgMissingInput = "Unexpected error in Check_UpdateIndexe TextBox '" & oControl.Name & "' - Check the log"
LOGGER.Error(ex) LOGGER.Error(ex)
Dim st As New StackTrace(True) Dim st As New StackTrace(True)
st = New StackTrace(ex, True) st = New StackTrace(ex, True)
@ -4360,7 +4463,7 @@ Public Class frmValidator
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If cmb.SelectedIndex = -1 And oIsRequired = True Then If cmb.SelectedIndex = -1 And oIsRequired = True Then
oMissing = True oMissing = True
oErrorMessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'" oErrMsgMissingInput = "Please Choose an entry out of ComboBox '" & cmb.Name & "'"
Exit For Exit For
'ElseIf cmb.SelectedIndex <> -1 Then 'ElseIf cmb.SelectedIndex <> -1 Then
Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben
@ -4415,7 +4518,7 @@ Public Class frmValidator
'Hier muss nun separat as Vektorfeld indexiert werden 'Hier muss nun separat as Vektorfeld indexiert werden
If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Combobox as VEKTOR - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Combobox as VEKTOR - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4426,14 +4529,14 @@ Public Class frmValidator
If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then
cmb.DroppedDown = True cmb.DroppedDown = True
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Combobox - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Combobox - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then
cmb.DroppedDown = True cmb.DroppedDown = True
oMissing = True oMissing = True
oErrorMessage = "Error indexing combobox idb" oErrMsgMissingInput = "Error indexing combobox idb"
Exit For Exit For
End If End If
End If End If
@ -4472,7 +4575,7 @@ Public Class frmValidator
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If oIsRequired = True And dtp.Value.ToString = String.Empty Then If oIsRequired = True And dtp.Value.ToString = String.Empty Then
oMissing = True oMissing = True
oErrorMessage = "Please Choose DateValue for field'" & dtp.Name & "'" oErrMsgMissingInput = "Please Choose DateValue for field'" & dtp.Name & "'"
Exit For Exit For
ElseIf dtp.Value.ToString <> "01.01.0001 00:00:00" Then ElseIf dtp.Value.ToString <> "01.01.0001 00:00:00" Then
oMyInput = CDate(dtp.Value) oMyInput = CDate(dtp.Value)
@ -4496,7 +4599,7 @@ Public Class frmValidator
'Hier muss nun separat as Vektorfeld indexiert werden 'Hier muss nun separat as Vektorfeld indexiert werden
If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing DatePicker as VEKTOR - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing DatePicker as VEKTOR - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4506,13 +4609,13 @@ Public Class frmValidator
result(0) = CDate(oMyInput) result(0) = CDate(oMyInput)
If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing DatePicker- ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing DatePicker- ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
If IDBData.SetVariableValue(oIndexName, oObjectValue) = False Then If IDBData.SetVariableValue(oIndexName, oObjectValue) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error indexing datepicker idb" oErrMsgMissingInput = "Error indexing datepicker idb"
Exit For Exit For
End If End If
End If End If
@ -4593,19 +4696,19 @@ Public Class frmValidator
'Hier muss nun separat as Vektorfeld indexiert werden 'Hier muss nun separat as Vektorfeld indexiert werden
If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Checkbox as VEKTOR - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Checkbox as VEKTOR - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Checkbox - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Checkbox - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
If IDBData.SetVariableValue(oIndexName, chk.Checked.ToString) Then If IDBData.SetVariableValue(oIndexName, chk.Checked.ToString) Then
oErrorMessage = "error indexing checkboxidb" oErrMsgMissingInput = "error indexing checkboxidb"
Exit For Exit For
End If End If
End If End If
@ -4637,7 +4740,7 @@ Public Class frmValidator
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If oIsRequired = True And Zeilen = 0 Then If oIsRequired = True And Zeilen = 0 Then
oMissing = True oMissing = True
oErrorMessage = "Fehlende Eingabe in Vektorfeld '" & dgv.Name & "'" oErrMsgMissingInput = "Fehlende Eingabe in Vektorfeld '" & dgv.Name & "'"
Exit For Exit For
ElseIf Zeilen > 0 Then ElseIf Zeilen > 0 Then
Dim ZeilenGrid As Integer = 0 Dim ZeilenGrid As Integer = 0
@ -4681,7 +4784,7 @@ Public Class frmValidator
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error while indexing Vektorfeld - ERROR: " & idxerr_message oErrMsgMissingInput = "Error while indexing Vektorfeld - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4689,7 +4792,7 @@ Public Class frmValidator
If oDT.Rows.Count > 0 Then If oDT.Rows.Count > 0 Then
If IDBData.SetVariableValue(oIndexName, oDT, True) = False Then If IDBData.SetVariableValue(oIndexName, oDT, True) = False Then
oMissing = True oMissing = True
oErrorMessage = "Error indexing Datagridview idb" oErrMsgMissingInput = "Error indexing Datagridview idb"
Exit For Exit For
End If End If
End If End If
@ -4705,7 +4808,7 @@ Public Class frmValidator
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If oIsRequired = True And oRowCount = 0 Then If oIsRequired = True And oRowCount = 0 Then
oMissing = True oMissing = True
oErrorMessage = "Fehlende Eingabe in Tabelle '" & dgv.Name & "'" oErrMsgMissingInput = "Fehlende Eingabe in Tabelle '" & dgv.Name & "'"
oControl.BackColor = Color.Red oControl.BackColor = Color.Red
Exit For Exit For
@ -4761,7 +4864,7 @@ Public Class frmValidator
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then
oMissing = True oMissing = True
oErrorMessage = $"Error while indexing table (1) {dgv.Name} - ERROR: " & idxerr_message oErrMsgMissingInput = $"Error while indexing table (1) {dgv.Name} - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -4769,7 +4872,7 @@ Public Class frmValidator
If oMyDT.Rows.Count > 0 Then If oMyDT.Rows.Count > 0 Then
If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then
oMissing = True oMissing = True
oErrorMessage = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message oErrMsgMissingInput = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message
Exit For Exit For
End If End If
End If End If
@ -4783,7 +4886,7 @@ Public Class frmValidator
If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then
oMissing = True oMissing = True
'oErrorMessage = "Error while indexing der Tabelle - ERROR: " & idxerr_message 'oErrorMessage = "Error while indexing der Tabelle - ERROR: " & idxerr_message
oErrorMessage = $"Error while indexing table (2) {dgv.Name} - ERROR: " & idxerr_message oErrMsgMissingInput = $"Error while indexing table (2) {dgv.Name} - ERROR: " & idxerr_message
Exit For Exit For
End If End If
Else Else
@ -5147,6 +5250,12 @@ Public Class frmValidator
End Sub End Sub
Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefreshSearches.ItemClick Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefreshSearches.ItemClick
Try
_frmValidatorSearch.Close()
_frmValidatorSearch = New frmValidatorSearch
Catch ex As Exception
End Try
Load_Additional_Searches() Load_Additional_Searches()
End Sub End Sub
@ -5217,4 +5326,31 @@ Public Class frmValidator
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename) Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function End Function
Private Sub bbtnitem_ConversationNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitem_ConversationNew.ItemClick
Dim oDTUSER As DataTable
For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows
If oRow.Item("CONF_TITLE") = "NEW_CONVERSATION_USER_SELECT" Then
Dim oSQL = oRow.Item("CONF_VALUE")
oDTUSER = ClassDatabase.Return_Datatable(oSQL)
End If
Next
If Not IsNothing(oDTUSER) Then
CURRENT_CONVERSATION_NEW = 0
Dim oForm As New frmChat_NewConversation(oDTUSER, Nothing)
Dim oResult = oForm.ShowDialog()
If CURRENT_CONVERSATION_NEW <> 0 Then
ChatControl1.LoadConversation(CURRENT_CONVERSATION_NEW)
If Right_Conversation_Stop = True Then
bbtnitem_ConversationEnd.Enabled = True
End If
End If
End If
End Sub
End Class End Class

2
app/SetupVS19/Product.wxs
View File

@ -121,6 +121,8 @@
<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" Source="DigitalData.Modules.Logging.dll"/> <File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" Source="DigitalData.Modules.Logging.dll"/>
<File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll"/> <File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll"/>
<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll"/> <File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll"/>
<File Id="DDChatControl" Name="DigitalData.Controls.ChatControl.dll" Source="DigitalData.Controls.ChatControl.dll"/>
<File Id="DDNewConv" Name="DigitalData.Controls.ChatNewConv.dll" Source="DigitalData.Controls.ChatNewConv.dll"/>
<File Id="NLog" Name="NLog.dll" Source="NLog.dll"/> <File Id="NLog" Name="NLog.dll" Source="NLog.dll"/>
</Component> </Component>