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

MS Emailtemplate

Browse Source
This commit is contained in:
SchreiberM 2019-11-21 16:30:21 +01:00
parent 65f0763208
commit 7e541a8013
30 changed files with 3539 additions and 1075 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

2
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -9,7 +9,7 @@ Public Class ClassDatabase
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
Case "MS-SQL"
If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"

6
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@ -31,8 +31,10 @@
LOGCONFIG.Debug = True
ElseIf oMode = "PM.IDBWITHWMFS" Then
IDB_USES_WMFILESTORE = True
ElseIf oMode.StartsWith("PM.IDBCS!") Then
CONNECTION_STRING_IDB = oMode.Replace("PM.IDBCS!", "")
ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB = oConString
Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
If Not IsNothing(oDT) Then

1404
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

18
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc
View File

@ -81,5 +81,23 @@
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBDD_EMAIL_TEMPLATE">
<ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
</TableUISettings>
</DataSetUISetting>

182
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd
View File

@ -643,23 +643,23 @@ WHERE (PROFIL_ID = @PROF_ID)</CommandText>
<MainSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBDD_CONNECTION
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_CONNECTION
(BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)
VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER);
(BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNECTION)
VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION);
SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_PROVIDER" ColumnName="SQL_PROVIDER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_PROVIDER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SQL_PROVIDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SQL_PROVIDER" ColumnName="SQL_PROVIDER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_PROVIDER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SQL_PROVIDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SERVER" ColumnName="SERVER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@SERVER" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="SERVER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATENBANK" ColumnName="DATENBANK" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@DATENBANK" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="DATENBANK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="USERNAME" ColumnName="USERNAME" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@USERNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="USERNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -667,12 +667,13 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B
<Parameter AllowDbNull="true" AutogeneratedName="BEMERKUNG" ColumnName="BEMERKUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@BEMERKUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="BEMERKUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SYS_CONNECTION" ColumnName="SYS_CONNECTION" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SYS_CONNECTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SYS_CONNECTION" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN
<CommandText>SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION
FROM TBDD_CONNECTION</CommandText>
<Parameters />
</DbCommand>
@ -681,12 +682,12 @@ FROM TBDD_CONNECTION</CommandText>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_CONNECTION
SET BEZEICHNUNG = @BEZEICHNUNG, SQL_PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @USERNAME, PASSWORD = @PASSWORD, BEMERKUNG = @BEMERKUNG,
AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER
WHERE (GUID = @Original_GUID);
AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER, SYS_CONNECTION = @SYS_CONNECTION
WHERE (GUID = @Original_GUID);
SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_PROVIDER" ColumnName="SQL_PROVIDER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_PROVIDER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SQL_PROVIDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SQL_PROVIDER" ColumnName="SQL_PROVIDER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_PROVIDER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SQL_PROVIDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SERVER" ColumnName="SERVER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@SERVER" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="SERVER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATENBANK" ColumnName="DATENBANK" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@DATENBANK" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="DATENBANK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="USERNAME" ColumnName="USERNAME" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@USERNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="USERNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -694,6 +695,7 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B
<Parameter AllowDbNull="true" AutogeneratedName="BEMERKUNG" ColumnName="BEMERKUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@BEMERKUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="BEMERKUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEANDERTWER" ColumnName="GEANDERTWER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEANDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEANDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SYS_CONNECTION" ColumnName="SYS_CONNECTION" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SYS_CONNECTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SYS_CONNECTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@ -715,33 +717,35 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B
<Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" />
<Mapping SourceColumn="GEANDERTWER" DataSetColumn="GEANDERTWER" />
<Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
<Mapping SourceColumn="SYS_CONNECTION" DataSetColumn="SYS_CONNECTION" />
</Mappings>
<Sources>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdInsert" Modifier="Public" Name="CmdInsert" QueryType="Scalar" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="CmdInsert">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_CONNECTION
(BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)
VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER);
(BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNECTION)
VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION);
SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_PROVIDER" ColumnName="SQL_PROVIDER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_PROVIDER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SQL_PROVIDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SERVER" ColumnName="SERVER" DataSourceName="" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@SERVER" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="SERVER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATENBANK" ColumnName="DATENBANK" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@DATENBANK" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="DATENBANK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="USERNAME" ColumnName="USERNAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@USERNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="USERNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="PASSWORD" ColumnName="PASSWORD" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@PASSWORD" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="PASSWORD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BEMERKUNG" ColumnName="BEMERKUNG" DataSourceName="" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@BEMERKUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="BEMERKUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SQL_PROVIDER" ColumnName="SQL_PROVIDER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_PROVIDER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SQL_PROVIDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SERVER" ColumnName="SERVER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@SERVER" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="SERVER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATENBANK" ColumnName="DATENBANK" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@DATENBANK" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="DATENBANK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="USERNAME" ColumnName="USERNAME" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@USERNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="USERNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="PASSWORD" ColumnName="PASSWORD" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@PASSWORD" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="PASSWORD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BEMERKUNG" ColumnName="BEMERKUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@BEMERKUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="BEMERKUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SYS_CONNECTION" ColumnName="SYS_CONNECTION" DataSourceName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SYS_CONNECTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SYS_CONNECTION" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMSLite.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillByID" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByID" GeneratorSourceName="FillByID" GetMethodModifier="Public" GetMethodName="GetDataByID" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByID" UserSourceName="FillByID">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillByID" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByID" GeneratorSourceName="FillByID" GetMethodModifier="Public" GetMethodName="GetDataByID" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByID" UserSourceName="FillByID">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN
<CommandText>SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION
FROM TBDD_CONNECTION
WHERE (GUID = @ID)</CommandText>
<Parameters>
@ -1837,6 +1841,75 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_EMAIL_TEMPLATETableAdapter" GeneratorDataComponentClassName="TBDD_EMAIL_TEMPLATETableAdapter" Name="TBDD_EMAIL_TEMPLATE" UserDataComponentName="TBDD_EMAIL_TEMPLATETableAdapter">
<MainSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBDD_EMAIL_TEMPLATE
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_EMAIL_TEMPLATE
(TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO)
VALUES (@TITLE,@EMAIL_SUBJECT,@EMAIL_BODY1,@EMAIL_BODY2,@EMAIL_BODY3,@ADDED_WHO);
SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_SUBJECT" ColumnName="EMAIL_SUBJECT" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(900)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_SUBJECT" Precision="0" ProviderType="VarChar" Scale="0" Size="900" SourceColumn="EMAIL_SUBJECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_BODY1" ColumnName="EMAIL_BODY1" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_BODY1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="EMAIL_BODY1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_BODY2" ColumnName="EMAIL_BODY2" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_BODY2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="EMAIL_BODY2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_BODY3" ColumnName="EMAIL_BODY3" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_BODY3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="EMAIL_BODY3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT TBDD_EMAIL_TEMPLATE.*
FROM TBDD_EMAIL_TEMPLATE</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_EMAIL_TEMPLATE
SET TITLE = @TITLE, EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY1 = @EMAIL_BODY1, EMAIL_BODY2 = @EMAIL_BODY2, EMAIL_BODY3 = @EMAIL_BODY3, CHANGED_WHO = @CHANGED_WHO
WHERE (GUID = @Original_GUID);
SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_SUBJECT" ColumnName="EMAIL_SUBJECT" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(900)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_SUBJECT" Precision="0" ProviderType="VarChar" Scale="0" Size="900" SourceColumn="EMAIL_SUBJECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_BODY1" ColumnName="EMAIL_BODY1" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_BODY1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="EMAIL_BODY1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_BODY2" ColumnName="EMAIL_BODY2" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_BODY2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="EMAIL_BODY2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EMAIL_BODY3" ColumnName="EMAIL_BODY3" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_BODY3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="EMAIL_BODY3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_EMAIL_TEMPLATE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="TITLE" DataSetColumn="TITLE" />
<Mapping SourceColumn="EMAIL_SUBJECT" DataSetColumn="EMAIL_SUBJECT" />
<Mapping SourceColumn="EMAIL_BODY1" DataSetColumn="EMAIL_BODY1" />
<Mapping SourceColumn="EMAIL_BODY2" DataSetColumn="EMAIL_BODY2" />
<Mapping SourceColumn="EMAIL_BODY3" DataSetColumn="EMAIL_BODY3" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources />
</TableAdapter>
</Tables>
<Sources />
</DataSource>
@ -2130,7 +2203,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_PROVIDER" msprop:Generator_ColumnVarNameInTable="columnSQL_PROVIDER" msprop:Generator_ColumnPropNameInRow="SQL_PROVIDER" msprop:Generator_ColumnPropNameInTable="SQL_PROVIDERColumn" msprop:Generator_UserColumnName="SQL_PROVIDER">
<xs:element name="SQL_PROVIDER" msprop:Generator_ColumnVarNameInTable="columnSQL_PROVIDER" msprop:Generator_ColumnPropNameInRow="SQL_PROVIDER" msprop:Generator_ColumnPropNameInTable="SQL_PROVIDERColumn" msprop:Generator_UserColumnName="SQL_PROVIDER" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
@ -2189,6 +2262,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
</xs:simpleType>
</xs:element>
<xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="SYS_CONNECTION" msprop:Generator_ColumnVarNameInTable="columnSYS_CONNECTION" msprop:Generator_ColumnPropNameInRow="SYS_CONNECTION" msprop:Generator_ColumnPropNameInTable="SYS_CONNECTIONColumn" msprop:Generator_UserColumnName="SYS_CONNECTION" type="xs:boolean" default="false" />
</xs:sequence>
</xs:complexType>
</xs:element>
@ -2840,6 +2914,64 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_EMAIL_TEMPLATE" msprop:Generator_TableClassName="TBDD_EMAIL_TEMPLATEDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_TEMPLATE" msprop:Generator_TablePropName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowDeletingName="TBDD_EMAIL_TEMPLATERowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_TEMPLATERowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_TEMPLATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_TEMPLATERowDeleted" msprop:Generator_UserTableName="TBDD_EMAIL_TEMPLATE" msprop:Generator_RowChangedName="TBDD_EMAIL_TEMPLATERowChanged" msprop:Generator_RowEvArgName="TBDD_EMAIL_TEMPLATERowChangeEvent" msprop:Generator_RowClassName="TBDD_EMAIL_TEMPLATERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="TITLE" msprop:Generator_ColumnVarNameInTable="columnTITLE" msprop:Generator_ColumnPropNameInRow="TITLE" msprop:Generator_ColumnPropNameInTable="TITLEColumn" msprop:Generator_UserColumnName="TITLE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="EMAIL_SUBJECT" msprop:Generator_ColumnVarNameInTable="columnEMAIL_SUBJECT" msprop:Generator_ColumnPropNameInRow="EMAIL_SUBJECT" msprop:Generator_ColumnPropNameInTable="EMAIL_SUBJECTColumn" msprop:Generator_UserColumnName="EMAIL_SUBJECT">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="900" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="EMAIL_BODY1" msprop:Generator_ColumnVarNameInTable="columnEMAIL_BODY1" msprop:Generator_ColumnPropNameInRow="EMAIL_BODY1" msprop:Generator_ColumnPropNameInTable="EMAIL_BODY1Column" msprop:Generator_UserColumnName="EMAIL_BODY1">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="EMAIL_BODY2" msprop:Generator_ColumnVarNameInTable="columnEMAIL_BODY2" msprop:Generator_ColumnPropNameInRow="EMAIL_BODY2" msprop:Generator_ColumnPropNameInTable="EMAIL_BODY2Column" msprop:Generator_UserColumnName="EMAIL_BODY2" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="EMAIL_BODY3" msprop:Generator_ColumnVarNameInTable="columnEMAIL_BODY3" msprop:Generator_ColumnPropNameInRow="EMAIL_BODY3" msprop:Generator_ColumnPropNameInTable="EMAIL_BODY3Column" msprop:Generator_UserColumnName="EMAIL_BODY3" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
@ -2910,6 +3042,10 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE
<xs:selector xpath=".//mstns:TBPROFILE_GROUP" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBDD_EMAIL_TEMPLATE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_EMAIL_TEMPLATE" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</xs:element>
<xs:annotation>
<xs:appinfo>

45
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss
View File

@ -4,27 +4,28 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-27" ViewPortY="163" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="830" ViewPortY="160" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="2" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="21" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="8" X="608" Y="446" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPM_TYPE" ZOrder="12" X="17" Y="113" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="14" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="9" X="410" Y="114" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
<Shape ID="DesignTable:TBPROFILE_USER" ZOrder="3" X="509" Y="-80" Height="267" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="1" X="1391" Y="-70" Height="229" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="4" X="303" Y="316" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="17" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="5" X="946" Y="402" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="10" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_GROUPS" ZOrder="7" X="19" Y="320" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="11" X="1054" Y="47" Height="286" Width="277" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:FNPM_GET_FREE_USER_FOR_PROFILE" ZOrder="6" X="807" Y="155" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="18" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="4" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="22" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="10" X="608" Y="446" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPM_TYPE" ZOrder="13" X="17" Y="113" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="15" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="2" X="408" Y="113" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
<Shape ID="DesignTable:TBPROFILE_USER" ZOrder="5" X="509" Y="-80" Height="267" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="3" X="1391" Y="-70" Height="229" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="6" X="303" Y="316" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="18" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="7" X="946" Y="402" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="11" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_GROUPS" ZOrder="9" X="19" Y="320" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="12" X="1054" Y="47" Height="286" Width="277" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:FNPM_GET_FREE_USER_FOR_PROFILE" ZOrder="8" X="807" Y="155" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="19" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
<Shape ID="DesignTable:TBDD_EMAIL_TEMPLATE" ZOrder="1" X="1823" Y="483" Height="267" Width="287" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="20" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="21" LineWidth="11">
<RoutePoints>
<Point>
<X>549</X>
@ -36,7 +37,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="19" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="20" LineWidth="11">
<RoutePoints>
<Point>
<X>175</X>
@ -52,7 +53,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="16" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="17" LineWidth="11">
<RoutePoints>
<Point>
<X>603</X>
@ -64,7 +65,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="15" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="16" LineWidth="11">
<RoutePoints>
<Point>
<X>1246</X>
@ -76,7 +77,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL" ZOrder="13" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL" ZOrder="14" LineWidth="11">
<RoutePoints>
<Point>
<X>141</X>

31
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -80,7 +80,6 @@
</Reference>
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.CodeParser.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -89,11 +88,9 @@
<Reference Include="DevExpress.Diagram.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Images.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Pdf.v19.2.Drawing, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Printing.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -102,27 +99,21 @@
<Reference Include="DevExpress.Utils.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Xpf.PdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v19.2.Extensions, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v19.2.Wizard, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraDiagram.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -130,17 +121,14 @@
<Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DigitalData.Controls.DocumentViewer">
<HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
@ -258,6 +246,12 @@
<Compile Include="DD_DMSLiteDataSet.vb">
<DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
</Compile>
<Compile Include="frmAdmin2.Designer.vb">
<DependentUpon>frmAdmin2.vb</DependentUpon>
</Compile>
<Compile Include="frmAdmin2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAdminPasswort.Designer.vb">
<DependentUpon>frmAdminPasswort.vb</DependentUpon>
</Compile>
@ -336,6 +330,12 @@
<Compile Include="frmKonfig.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmPreviewHtml.Designer.vb">
<DependentUpon>frmPreviewHtml.vb</DependentUpon>
</Compile>
<Compile Include="frmPreviewHtml.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmRegexEditor.Designer.vb">
<DependentUpon>frmRegexEditor.vb</DependentUpon>
</Compile>
@ -410,6 +410,9 @@
<EmbeddedResource Include="frmAbout.resx">
<DependentUpon>frmAbout.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdmin2.resx">
<DependentUpon>frmAdmin2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdminPasswort.resx">
<DependentUpon>frmAdminPasswort.vb</DependentUpon>
</EmbeddedResource>
@ -457,6 +460,9 @@
<EmbeddedResource Include="frmKonfig.resx">
<DependentUpon>frmKonfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmPreviewHtml.resx">
<DependentUpon>frmPreviewHtml.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmRegexEditor.resx">
<DependentUpon>frmRegexEditor.vb</DependentUpon>
</EmbeddedResource>
@ -750,6 +756,7 @@
<ItemGroup>
<Content Include="DD_Icons_ICO_PMANAGER_48px.ico" />
<Content Include="PM_ohne_slogan_128px.ico" />
<None Include="Resources\Hammer_Builder_16xLG.png" />
<None Include="Resources\Search%28Go%29_5718.png" />
<None Include="Resources\properties_16xLG.png" />
<None Include="Resources\Open_6296.png" />

10
app/DD_PM_WINDREAM/My Project/Resources.Designer.vb generated
View File

@ -510,6 +510,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Hammer_Builder_16xLG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Hammer_Builder_16xLG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

75
app/DD_PM_WINDREAM/My Project/Resources.resx
View File

@ -121,9 +121,18 @@
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asterisk_yellow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -142,8 +151,8 @@
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Open_6296" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Open_6296.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ampel-rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -169,12 +178,15 @@
<data name="zoom_in" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ampel-rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Search(Go)_5718" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ampel-gruen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="application_form_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -187,9 +199,6 @@
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="properties_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checkbox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -229,8 +238,8 @@
<data name="flag_pink" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_pink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="resultset_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -241,8 +250,8 @@
<data name="search_glyph" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search_glyph.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="properties_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="resultset_last" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -253,11 +262,8 @@
<data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ampel-gruen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="shape_square_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -277,21 +283,12 @@
<data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Nextrequest_10302" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Nextrequest_10302.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="shape_square_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -304,6 +301,9 @@
<data name="database_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Open_6296" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Open_6296.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lbl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -313,8 +313,8 @@
<data name="flag_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="bullet_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="resultset_previous" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_previous.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -337,6 +337,9 @@
<data name="doc_text_image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -346,8 +349,8 @@
<data name="WorkItem_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="resultset_first" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_first.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -361,14 +364,14 @@
<data name="zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="bullet_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="key1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -376,7 +379,7 @@
<data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Search(Go)_5718" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Hammer_Builder_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Hammer_Builder_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

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

@ -1 +1,4 @@
DevExpress.XtraBars.BarManager, 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
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.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.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

15
app/DD_PM_WINDREAM/My Project/licenses.licx.bak
View File

@ -1,14 +1 @@
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v18.1.UI, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

BIN
app/DD_PM_WINDREAM/Resources/Hammer_Builder_16xLG.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 293 B

536
app/DD_PM_WINDREAM/frmAdmin2.Designer.vb generated Normal file
View File

@ -0,0 +1,536 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin2
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'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.components = New System.ComponentModel.Container()
Dim GUIDLabel As System.Windows.Forms.Label
Dim TITLELabel As System.Windows.Forms.Label
Dim EMAIL_SUBJECTLabel As System.Windows.Forms.Label
Dim EMAIL_BODY1Label As System.Windows.Forms.Label
Dim EMAIL_BODY2Label As System.Windows.Forms.Label
Dim EMAIL_BODY3Label As System.Windows.Forms.Label
Dim ADDED_WHOLabel As System.Windows.Forms.Label
Dim ADDED_WHENLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin2))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BbitemplateAdd = New DevExpress.XtraBars.BarButtonItem()
Me.BbitemplateSave = New DevExpress.XtraBars.BarButtonItem()
Me.BbitemplateDelete = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.Button1 = New System.Windows.Forms.Button()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TBDD_EMAIL_TEMPLATEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TITLETextBox = New System.Windows.Forms.TextBox()
Me.EMAIL_SUBJECTTextBox = New System.Windows.Forms.TextBox()
Me.EMAIL_BODY1TextBox = New System.Windows.Forms.TextBox()
Me.EMAIL_BODY2TextBox = New System.Windows.Forms.TextBox()
Me.EMAIL_BODY3TextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
GUIDLabel = New System.Windows.Forms.Label()
TITLELabel = New System.Windows.Forms.Label()
EMAIL_SUBJECTLabel = New System.Windows.Forms.Label()
EMAIL_BODY1Label = New System.Windows.Forms.Label()
EMAIL_BODY2Label = New System.Windows.Forms.Label()
EMAIL_BODY3Label = New System.Windows.Forms.Label()
ADDED_WHOLabel = New System.Windows.Forms.Label()
ADDED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GUIDLabel
'
GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(221, 17)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(22, 13)
GUIDLabel.TabIndex = 0
GUIDLabel.Text = "ID:"
'
'TITLELabel
'
TITLELabel.AutoSize = True
TITLELabel.Location = New System.Drawing.Point(221, 44)
TITLELabel.Name = "TITLELabel"
TITLELabel.Size = New System.Drawing.Size(31, 13)
TITLELabel.TabIndex = 2
TITLELabel.Text = "Titel:"
'
'EMAIL_SUBJECTLabel
'
EMAIL_SUBJECTLabel.AutoSize = True
EMAIL_SUBJECTLabel.Location = New System.Drawing.Point(221, 71)
EMAIL_SUBJECTLabel.Name = "EMAIL_SUBJECTLabel"
EMAIL_SUBJECTLabel.Size = New System.Drawing.Size(45, 13)
EMAIL_SUBJECTLabel.TabIndex = 4
EMAIL_SUBJECTLabel.Text = "Betreff:"
'
'EMAIL_BODY1Label
'
EMAIL_BODY1Label.AutoSize = True
EMAIL_BODY1Label.Location = New System.Drawing.Point(221, 95)
EMAIL_BODY1Label.Name = "EMAIL_BODY1Label"
EMAIL_BODY1Label.Size = New System.Drawing.Size(41, 13)
EMAIL_BODY1Label.TabIndex = 6
EMAIL_BODY1Label.Text = "Body1:"
'
'EMAIL_BODY2Label
'
EMAIL_BODY2Label.AutoSize = True
EMAIL_BODY2Label.Location = New System.Drawing.Point(221, 168)
EMAIL_BODY2Label.Name = "EMAIL_BODY2Label"
EMAIL_BODY2Label.Size = New System.Drawing.Size(41, 13)
EMAIL_BODY2Label.TabIndex = 8
EMAIL_BODY2Label.Text = "Body2:"
'
'EMAIL_BODY3Label
'
EMAIL_BODY3Label.AutoSize = True
EMAIL_BODY3Label.Location = New System.Drawing.Point(221, 241)
EMAIL_BODY3Label.Name = "EMAIL_BODY3Label"
EMAIL_BODY3Label.Size = New System.Drawing.Size(41, 13)
EMAIL_BODY3Label.TabIndex = 10
EMAIL_BODY3Label.Text = "Body3:"
'
'ADDED_WHOLabel
'
ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Location = New System.Drawing.Point(221, 317)
ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13)
ADDED_WHOLabel.TabIndex = 12
ADDED_WHOLabel.Text = "Erstellt wer:"
'
'ADDED_WHENLabel
'
ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Location = New System.Drawing.Point(466, 317)
ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13)
ADDED_WHENLabel.TabIndex = 14
ADDED_WHENLabel.Text = "Erstellt wann:"
'
'CHANGED_WHOLabel
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Location = New System.Drawing.Point(221, 347)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13)
CHANGED_WHOLabel.TabIndex = 16
CHANGED_WHOLabel.Text = "Geändert wer:"
'
'CHANGED_WHENLabel
'
CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Location = New System.Drawing.Point(466, 347)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13)
CHANGED_WHENLabel.TabIndex = 18
CHANGED_WHENLabel.Text = "Geändert wann:"
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BbitemplateAdd, Me.BbitemplateSave, Me.BbitemplateDelete, Me.BarButtonItem1, Me.labelStatus})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 6
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(919, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BbitemplateAdd
'
Me.BbitemplateAdd.Caption = "Neue Vorlage"
Me.BbitemplateAdd.Id = 1
Me.BbitemplateAdd.ImageOptions.Image = CType(resources.GetObject("BbitemplateAdd.ImageOptions.Image"), System.Drawing.Image)
Me.BbitemplateAdd.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateAdd.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BbitemplateAdd.Name = "BbitemplateAdd"
'
'BbitemplateSave
'
Me.BbitemplateSave.Caption = "Speichern"
Me.BbitemplateSave.Id = 2
Me.BbitemplateSave.ImageOptions.Image = CType(resources.GetObject("BbitemplateSave.ImageOptions.Image"), System.Drawing.Image)
Me.BbitemplateSave.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateSave.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BbitemplateSave.Name = "BbitemplateSave"
'
'BbitemplateDelete
'
Me.BbitemplateDelete.Caption = "Löschen"
Me.BbitemplateDelete.Id = 3
Me.BbitemplateDelete.ImageOptions.Image = CType(resources.GetObject("BbitemplateDelete.ImageOptions.Image"), System.Drawing.Image)
Me.BbitemplateDelete.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateDelete.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BbitemplateDelete.Name = "BbitemplateDelete"
Me.BbitemplateDelete.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Neu laden"
Me.BarButtonItem1.Id = 4
Me.BarButtonItem1.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.BarButtonItem1.ImageOptions.AllowStubGlyph = DevExpress.Utils.DefaultBoolean.[True]
Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem1.Name = "BarButtonItem1"
Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'labelStatus
'
Me.labelStatus.Id = 5
Me.labelStatus.ImageOptions.Image = CType(resources.GetObject("labelStatus.ImageOptions.Image"), System.Drawing.Image)
Me.labelStatus.ImageOptions.LargeImage = CType(resources.GetObject("labelStatus.ImageOptions.LargeImage"), System.Drawing.Image)
Me.labelStatus.Name = "labelStatus"
Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateAdd)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateSave)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateDelete)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Vorlagen Verwaltung"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 559)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(919, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'XtraTabControl1
'
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 158)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(919, 401)
Me.XtraTabControl1.TabIndex = 2
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
'
'XtraTabPage1
'
Me.XtraTabPage1.AutoScroll = True
Me.XtraTabPage1.Controls.Add(Me.Button1)
Me.XtraTabPage1.Controls.Add(Me.GridControl1)
Me.XtraTabPage1.Controls.Add(GUIDLabel)
Me.XtraTabPage1.Controls.Add(Me.GUIDTextBox)
Me.XtraTabPage1.Controls.Add(TITLELabel)
Me.XtraTabPage1.Controls.Add(Me.TITLETextBox)
Me.XtraTabPage1.Controls.Add(EMAIL_SUBJECTLabel)
Me.XtraTabPage1.Controls.Add(Me.EMAIL_SUBJECTTextBox)
Me.XtraTabPage1.Controls.Add(EMAIL_BODY1Label)
Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY1TextBox)
Me.XtraTabPage1.Controls.Add(EMAIL_BODY2Label)
Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY2TextBox)
Me.XtraTabPage1.Controls.Add(EMAIL_BODY3Label)
Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY3TextBox)
Me.XtraTabPage1.Controls.Add(ADDED_WHOLabel)
Me.XtraTabPage1.Controls.Add(Me.ADDED_WHOTextBox)
Me.XtraTabPage1.Controls.Add(ADDED_WHENLabel)
Me.XtraTabPage1.Controls.Add(Me.ADDED_WHENTextBox)
Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel)
Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHOTextBox)
Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel)
Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(917, 376)
Me.XtraTabPage1.Text = "Email Inhalte Workflow"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(769, 39)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 21
Me.Button1.Text = "Vorschau"
Me.Button1.UseVisualStyleBackColor = True
'
'GridControl1
'
Me.GridControl1.DataSource = Me.TBDD_EMAIL_TEMPLATEBindingSource
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(204, 376)
Me.GridControl1.TabIndex = 20
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'TBDD_EMAIL_TEMPLATEBindingSource
'
Me.TBDD_EMAIL_TEMPLATEBindingSource.DataMember = "TBDD_EMAIL_TEMPLATE"
Me.TBDD_EMAIL_TEMPLATEBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
'
'colGUID
'
Me.colGUID.Caption = "ID"
Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID"
Me.colGUID.Visible = True
Me.colGUID.VisibleIndex = 0
Me.colGUID.Width = 51
'
'colTITLE
'
Me.colTITLE.Caption = "Titel"
Me.colTITLE.FieldName = "TITLE"
Me.colTITLE.Name = "colTITLE"
Me.colTITLE.Visible = True
Me.colTITLE.VisibleIndex = 1
Me.colTITLE.Width = 128
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(323, 14)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.Size = New System.Drawing.Size(100, 21)
Me.GUIDTextBox.TabIndex = 1
'
'TITLETextBox
'
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True))
Me.TITLETextBox.Location = New System.Drawing.Point(323, 41)
Me.TITLETextBox.Name = "TITLETextBox"
Me.TITLETextBox.Size = New System.Drawing.Size(428, 21)
Me.TITLETextBox.TabIndex = 3
'
'EMAIL_SUBJECTTextBox
'
Me.EMAIL_SUBJECTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_SUBJECT", True))
Me.EMAIL_SUBJECTTextBox.Location = New System.Drawing.Point(323, 68)
Me.EMAIL_SUBJECTTextBox.Name = "EMAIL_SUBJECTTextBox"
Me.EMAIL_SUBJECTTextBox.Size = New System.Drawing.Size(428, 21)
Me.EMAIL_SUBJECTTextBox.TabIndex = 5
'
'EMAIL_BODY1TextBox
'
Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True))
Me.EMAIL_BODY1TextBox.Location = New System.Drawing.Point(323, 95)
Me.EMAIL_BODY1TextBox.Multiline = True
Me.EMAIL_BODY1TextBox.Name = "EMAIL_BODY1TextBox"
Me.EMAIL_BODY1TextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.EMAIL_BODY1TextBox.Size = New System.Drawing.Size(583, 67)
Me.EMAIL_BODY1TextBox.TabIndex = 7
'
'EMAIL_BODY2TextBox
'
Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True))
Me.EMAIL_BODY2TextBox.Location = New System.Drawing.Point(323, 168)
Me.EMAIL_BODY2TextBox.Multiline = True
Me.EMAIL_BODY2TextBox.Name = "EMAIL_BODY2TextBox"
Me.EMAIL_BODY2TextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.EMAIL_BODY2TextBox.Size = New System.Drawing.Size(583, 67)
Me.EMAIL_BODY2TextBox.TabIndex = 9
'
'EMAIL_BODY3TextBox
'
Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True))
Me.EMAIL_BODY3TextBox.Location = New System.Drawing.Point(323, 241)
Me.EMAIL_BODY3TextBox.Multiline = True
Me.EMAIL_BODY3TextBox.Name = "EMAIL_BODY3TextBox"
Me.EMAIL_BODY3TextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.EMAIL_BODY3TextBox.Size = New System.Drawing.Size(583, 67)
Me.EMAIL_BODY3TextBox.TabIndex = 11
'
'ADDED_WHOTextBox
'
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(323, 314)
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(124, 21)
Me.ADDED_WHOTextBox.TabIndex = 13
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(556, 314)
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(128, 21)
Me.ADDED_WHENTextBox.TabIndex = 15
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(323, 344)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(124, 21)
Me.CHANGED_WHOTextBox.TabIndex = 17
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(556, 344)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(128, 21)
Me.CHANGED_WHENTextBox.TabIndex = 19
'
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(917, 376)
Me.XtraTabPage2.Text = "XtraTabPage2"
'
'TBDD_EMAIL_TEMPLATETableAdapter
'
Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing
Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'frmAdmin2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(919, 583)
Me.Controls.Add(Me.XtraTabControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmAdmin2"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmAdmin2"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(False)
Me.XtraTabPage1.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet
Friend WithEvents TBDD_EMAIL_TEMPLATEBindingSource As BindingSource
Friend WithEvents TBDD_EMAIL_TEMPLATETableAdapter As DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter
Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents BbitemplateAdd As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BbitemplateSave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BbitemplateDelete As DevExpress.XtraBars.BarButtonItem
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GUIDTextBox As TextBox
Friend WithEvents TITLETextBox As TextBox
Friend WithEvents EMAIL_SUBJECTTextBox As TextBox
Friend WithEvents EMAIL_BODY1TextBox As TextBox
Friend WithEvents EMAIL_BODY2TextBox As TextBox
Friend WithEvents EMAIL_BODY3TextBox As TextBox
Friend WithEvents ADDED_WHOTextBox As TextBox
Friend WithEvents ADDED_WHENTextBox As TextBox
Friend WithEvents CHANGED_WHOTextBox As TextBox
Friend WithEvents CHANGED_WHENTextBox As TextBox
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents Button1 As Button
End Class

280
app/DD_PM_WINDREAM/frmAdmin2.resx Normal file
View File

@ -0,0 +1,280 @@
<?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>
<metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="TITLELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="EMAIL_SUBJECTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="EMAIL_BODY1Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="EMAIL_BODY2Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="EMAIL_BODY3Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ADDED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ADDED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BbitemplateAdd.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAMlJREFU
OE+dj8ENglAQRNGDDVmH0RgTi/DmwQrowQ7UBujAi6XowQbQrDMr87MY9IOHl8/83XlAcavmEYu5LEsL
MDtmlojF6ceZloIE8X2nuQQqCWa9MX6FC5qdJIjFVt4d94XgsrhWCxzG+9HPL+gS3M9b31GWQKV4DhJE
UcpBsAKHKNAsmVnA0NEdFiZgDR6gzgmMQwowOIEn2IC6YQl6C2aAS4Rl/oIX+gokuYBUJkMEZByenV6C
DC4A3usSZPkqGEhb8B9WvACfEYYn0zazQgAAAABJRU5ErkJggg==
</value>
</data>
<data name="BbitemplateAdd.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAf9JREFU
WEft1LtKA0EUBuCNisELKIgiPoCIN/ACKj6AWERF7NRKtLHSQuwUCcE38BHsLASLWAsaG/UF7DXoA5iY
9f+XOcvsMoYhmV0QLD5mdzbnnH82Ue/9ZtXk3rAX8n3fGWk6A9PquhNqMKjuR2BRXQdMjRolTYfhAw5g
Anzg0B0oA0MkGoC2gYMf1fqk1l3QP+fl8/lT8GO4ZxxSjzTthwXg8BPIAt/GM8xDH+gBgqHSRO4bDVAE
fuc8LQ0B97u0vSoUzwtnyxhS1QbWcwXGoTo5VQeMA3/9BeiGY3XP/SyatcIS2AYg7/PuMDhEfLCQALTH
D8KDWktq3UejHnjRGtsI3oBtgDHgXwFDjAKL5mAT3mASwrBsbMs2wBRwMK/5A6xAL4oHyrdbs7hmmDAA
9m35hBrMqh8g7hraUPwK/Eoiz1VzGw0HoJzWIPJMNbfRVICgWDWIPDu6vIiQZrhuIbm3CmDaJBZJAwhO
xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF
h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/
AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII=
</value>
</data>
<data name="BbitemplateSave.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j
+P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU
ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII=
</value>
</data>
<data name="BbitemplateSave.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft
l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB
OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo
mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi
J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA
PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC
</value>
</data>
<data name="BbitemplateDelete.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy
cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y
BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+
ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa
I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC
</value>
</data>
<data name="BbitemplateDelete.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy
cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e
hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv
kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM
zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV
ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96
hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I
8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg==
</value>
</data>
<data name="BarButtonItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93
O0V4Y2hhbmdldiNo0gAAAN9JREFUOE+NzrENglAQxnELCgZwCScwwRmYwo4BTCixYAVHoHEAHYEdaNjA
koTi+T/zzhy8I1r8Cu7u+3i7EMJPl+4WUCLZJQNPLHBL7JHa44wOA2ZoQVKyLjjhDhvwlF7BAU9ztGXz
BY05GtGiQB5nn3B5fRxRewW9Oax0Hnc2/EKvO3s0xcMXMp0rQlkMB0w6/x4QkhdIWP4if2O8KKhiWLgv
qG04ylGgxRhnokkKBAsb3vLEISlg+E/4jpNmFgWC5bpkxoAOZ+ztvVh8CI6+Jeudxx1qyXrucYf/C7s3
+Cul5fQF3VsAAAAASUVORK5CYII=
</value>
</data>
<data name="BarButtonItem1.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93
O0V4Y2hhbmdldiNo0gAAAgZJREFUWEfF1D8vBGEQx3EFBa3o8TKUIqG5wjvQ6BQaIlFR60WnuESjQqFS
Ee9CIZGo5ZoLsr4j+6zfzs66P8+F4pPszv7mmcnt3U0VRfGvwmKO/YvTDsJnkbCYg+HFKEuExRzlAtUS
ns83CrkYkhYIl/D5RiEXQ3SBxhI+X7vRYIsV7OIcj3hBH36oVy2h80ztJoWceWzjGp+IBgwj/GLWbizg
bOIG0YHj6Og8U7shoPbwiuigcYz0CRwiOmRc38M7x7dLOs/UbiyELfQQHfSGKxxgA8uYNXKG7+kweBon
uPdLVBeG8BIepFl1sa75iOux4Qu4Q1Ha0bxv3nEHmA8cYUazbaTPhi/iWYabS8375ks5IDnTzCBlT3rn
q264edK8b34qD1BrmhmEfPWnw7A5N9y8a943v8MvMJee09z4Hf+G/JoMTkb+BFbtGY32Trn8yQ9C/qwc
qkb6DjzDvkjfw43m25CbwRE+Up8Y+ldwB/sJVcON5iNk1tHVHvGAgf8D9ziB/XnUhpuU5Xq2tIwNHOAK
b6j1lHrYSv1J7YahaYnqnU/Qoc5KGgVDeJLDX7EXzTGNAuFJDr/Bpp+hwiJNOUt84hrbmI/OV2HR0DzM
En284BHn2MVKdF6bsJhwWGMJn8kVFpVfwj/PFRY9XcI/yxUWI2kJX88VFtvYElE9R1j8O8XUF4SD29A4
djKoAAAAAElFTkSuQmCC
</value>
</data>
<data name="labelStatus.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAJxJREFUOE+t
k+ENQDAUhDuKafyzlN9MYQkbWEdiAO5rNEEOlZJ8Cb17l77XCk07XqlFLyYx7/DOGtrJf/yoRCcWsd6A
hgfvKYCFQbgiB94YkgJIdcYnqIkB9GW3rSeA0wQ1NSLDcYa3AOgRmbATc5gI4JicmLOD+ZeA2xYyAmIL
xUMsPkYoukhQfJVTCKm2nR00PLEYjgGJD7/zGDZMp1TRLvGgqwAAAABJRU5ErkJggg==
</value>
</data>
<data name="labelStatus.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAahJREFUWEfN
lz1SwzAQhcMRSMXkCpyFPkeggg5aJjWTmqNQ5AoU3CC3yFCZ/TzejGQ/WZKNxxRfxuPs232RVj/ZNE2z
Ku3Hw+GzhJ2xN47GyTgblw6eecd3xBCrckSUGrg33oxvoymEWDRoVc6WnIEb49H4MlSREtCSg1yDGmMG
7ox3QyWdArnIGdVJGSDww1CJ5kDOyIQywFCV/PIf48nYGrfdM+9UbAi5r9OhDDBfStjnGV2IvXvtxaSg
hjRAx5Y23DYs3uVgNFRsH2q0qwNdaIBlowSKOQaAWpEBNo6ada6m4KUXMwa1duhczO6lAlN4E9KANU0Y
sg8NsIWqoCU5hgbYx1XQkpxCAxwmKigJuhAVk+GMzsWcaCooiRd2VEyGC7p/Y2D1KahuQi/sqJgMURNW
L0Mv7KiYDNEyrN2ITDbbQLQR1W7FJptlYLAVQ81hZLJZBgaHEdQcxyabbCB5HEPphcRkkw0kLyRQeiWb
SvZKBqteSh0C/3IkyBUVhzEDwFAxX8WNKUBLjuuwh+QMOHQsy6ZmnyAWTdvtKUoNOMv9OV2PZvMLsfKg
vDjYoZ0AAAAASUVORK5CYII=
</value>
</data>
<metadata name="TBDD_EMAIL_TEMPLATEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>179, 17</value>
</metadata>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBDD_EMAIL_TEMPLATETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>442, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>700, 17</value>
</metadata>
</root>

101
app/DD_PM_WINDREAM/frmAdmin2.vb Normal file
View File

@ -0,0 +1,101 @@

Imports DevExpress.XtraTab
Public Class frmAdmin2
Private Sub TBDD_EMAIL_TEMPLATEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
End Sub
Private Sub frmAdmin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE". Sie können sie bei Bedarf verschieben oder entfernen.
Load_Email_template()
End Sub
Sub Status_Changed(text As String)
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
labelStatus.Caption = $"{text} - {Now.ToLongTimeString}"
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateAdd.ItemClick
TBDD_EMAIL_TEMPLATEBindingSource.AddNew()
End Sub
Private Sub BarButtonItem1_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Load_Email_template()
End Sub
Sub Load_Email_template()
Try
TBDD_EMAIL_TEMPLATETableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.TBDD_EMAIL_TEMPLATETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading EmailTemplates:")
End Try
End Sub
Private Sub TBDD_EMAIL_TEMPLATEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_TEMPLATEBindingSource.AddingNew
DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
End Sub
Private Sub BbitemplateSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateSave.ItemClick
Email_Template_Save()
End Sub
Sub Email_Template_Save()
Try
Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
If Not IsNothing(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE.GetChanges) Then
Me.CHANGED_WHOTextBox.Text = USER_USERNAME
Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
Status_Changed("Vorlage gespeichert")
Else
Status_Changed("Keine Änderung")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving EmailTemplates:")
'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub
Private Sub BbitemplateDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateDelete.ItemClick
Dim result As MsgBoxResult = MsgBox("Wollen Sie die Vorlage wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
'wenn Speichern ja
If result = MsgBoxResult.Yes Then
Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextBox.Text}"
If ClassDatabase.Execute_non_Query(oSQL) = True Then
Load_Email_template()
Status_Changed("Vorlage gelöscht!")
End If
End If
End Sub
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
Select Case XtraTabControl1.SelectedTabPageIndex
Case 0
RibbonPageGroup1.Enabled = True
RibbonPageGroup2.Enabled = False
Case 1
RibbonPageGroup2.Enabled = True
RibbonPageGroup1.Enabled = False
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oText = EMAIL_BODY1TextBox.Text
If EMAIL_BODY2TextBox.Text <> "" Then
oText = oText & "<p>" & EMAIL_BODY2TextBox.Text
End If
If EMAIL_BODY3TextBox.Text <> "" Then
oText = oText & "<p>" & EMAIL_BODY3TextBox.Text
End If
Dim ofrm As New frmPreviewHtml
ofrm.DisplayText = oText
ofrm.ShowDialog()
End Sub
End Class

5
app/DD_PM_WINDREAM/frmAdministration.Designer.vb generated
View File

@ -759,6 +759,7 @@ Partial Class frmAdministration
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
@ -1481,9 +1482,9 @@ Partial Class frmAdministration
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME})
Me.GridView1.DetailHeight = 295

12
app/DD_PM_WINDREAM/frmAdministration.resx
View File

@ -2570,7 +2570,7 @@
<value>6</value>
</data>
<data name="gridFinalIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>627, 281</value>
<value>627, 287</value>
</data>
<data name="gridFinalIndex.TabIndex" type="System.Int32, mscorlib">
<value>93</value>
@ -2597,7 +2597,7 @@
<value>627, 0</value>
</data>
<data name="PropertyGrid1.Size" type="System.Drawing.Size, System.Drawing">
<value>323, 281</value>
<value>323, 287</value>
</data>
<data name="PropertyGrid1.TabIndex" type="System.Int32, mscorlib">
<value>91</value>
@ -2618,7 +2618,7 @@
<value>3, 166</value>
</data>
<data name="Panel5.Size" type="System.Drawing.Size, System.Drawing">
<value>950, 281</value>
<value>950, 287</value>
</data>
<data name="Panel5.TabIndex" type="System.Int32, mscorlib">
<value>94</value>
@ -3158,12 +3158,6 @@
<data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 3</value>
</data>
<data name="GridView1.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Cyan</value>
</data>
<data name="GridView1.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Fuchsia</value>
</data>
<data name="colNAME.Caption" xml:space="preserve">
<value>Profil-Name</value>
</data>

14
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -955,8 +955,8 @@ Public Class frmAdministration
End Sub
Private Sub GridView2_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles viewFinalIndex.FocusedRowChanged
'Try
Dim view As GridView = sender
Try
Dim view As GridView = sender
Dim focusedRow As DataRow = view.GetFocusedDataRow()
If IsNothing(focusedRow) Then
@ -1009,11 +1009,11 @@ Public Class frmAdministration
PropertyGrid1.SelectedObject = obj
PropertyGrid1.Refresh()
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
' LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
'End Try
Catch ex As Exception
LOGGER.Error(ex)
MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical)
LOGGER.Info($"Error while loading Final Index properties: {ex.Message}")
End Try
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click

183
app/DD_PM_WINDREAM/frmConnection.Designer.vb generated
View File

@ -26,14 +26,12 @@ Partial Class frmConnection
Dim GEANDERTWERLabel As System.Windows.Forms.Label
Dim GEAENDERTWANNLabel As System.Windows.Forms.Label
Dim GUIDLabel As System.Windows.Forms.Label
Dim BEMERKUNGLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnection))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim BEMERKUNGLabel As System.Windows.Forms.Label
Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox()
Me.Chckwin_aut = New System.Windows.Forms.CheckBox()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnCheck_Con = New System.Windows.Forms.Button()
Me.lblDatasource2 = New System.Windows.Forms.Label()
@ -61,6 +59,14 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.TBDD_CONNECTIONDataGridView = New System.Windows.Forms.DataGridView()
Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.SERVERTextBox = New System.Windows.Forms.TextBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox()
Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@ -69,23 +75,18 @@ Partial Class frmConnection
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.SERVERTextBox = New System.Windows.Forms.TextBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox()
Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox()
Me.SYS_CONNECTIONCheckBox = New System.Windows.Forms.CheckBox()
GEANDERTWERLabel = New System.Windows.Forms.Label()
GEAENDERTWANNLabel = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label()
BEMERKUNGLabel = New System.Windows.Forms.Label()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBDD_CONNECTIONBindingNavigator.SuspendLayout()
CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GEANDERTWERLabel
@ -115,6 +116,15 @@ Partial Class frmConnection
GUIDLabel.TabIndex = 64
GUIDLabel.Text = "ID:"
'
'BEMERKUNGLabel
'
BEMERKUNGLabel.AutoSize = True
BEMERKUNGLabel.Location = New System.Drawing.Point(532, 83)
BEMERKUNGLabel.Name = "BEMERKUNGLabel"
BEMERKUNGLabel.Size = New System.Drawing.Size(82, 16)
BEMERKUNGLabel.TabIndex = 66
BEMERKUNGLabel.Text = "Bermerkung:"
'
'chkOR_ohne_TNS
'
Me.chkOR_ohne_TNS.AutoSize = True
@ -148,16 +158,6 @@ Partial Class frmConnection
Me.txtBezeichnung.Size = New System.Drawing.Size(294, 23)
Me.txtBezeichnung.TabIndex = 1
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Label1
'
Me.Label1.AutoSize = True
@ -315,7 +315,7 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.TBDD_CONNECTIONBindingNavigator.Name = "TBDD_CONNECTIONBindingNavigator"
Me.TBDD_CONNECTIONBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
Me.TBDD_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(1176, 25)
Me.TBDD_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(1187, 25)
Me.TBDD_CONNECTIONBindingNavigator.TabIndex = 53
Me.TBDD_CONNECTIONBindingNavigator.Text = "BindingNavigator1"
'
@ -436,9 +436,71 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONDataGridView.Location = New System.Drawing.Point(12, 276)
Me.TBDD_CONNECTIONDataGridView.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.TBDD_CONNECTIONDataGridView.Name = "TBDD_CONNECTIONDataGridView"
Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1155, 316)
Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1166, 316)
Me.TBDD_CONNECTIONDataGridView.TabIndex = 53
'
'GEANDERTWERTextBox
'
Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246)
Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
Me.GEANDERTWERTextBox.ReadOnly = True
Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23)
Me.GEANDERTWERTextBox.TabIndex = 57
'
'GEAENDERTWANNTextBox
'
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23)
Me.GEAENDERTWANNTextBox.TabIndex = 63
'
'SERVERTextBox
'
Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True))
Me.SERVERTextBox.Location = New System.Drawing.Point(15, 103)
Me.SERVERTextBox.Name = "SERVERTextBox"
Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23)
Me.SERVERTextBox.TabIndex = 2
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(532, 53)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23)
Me.GUIDTextBox.TabIndex = 65
'
'DATENBANKComboBox
'
Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True))
Me.DATENBANKComboBox.FormattingEnabled = True
Me.DATENBANKComboBox.Location = New System.Drawing.Point(232, 102)
Me.DATENBANKComboBox.Name = "DATENBANKComboBox"
Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24)
Me.DATENBANKComboBox.TabIndex = 66
'
'BEMERKUNGTextBox
'
Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True))
Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(535, 102)
Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox"
Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23)
Me.BEMERKUNGTextBox.TabIndex = 67
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID"
@ -488,41 +550,6 @@ Partial Class frmConnection
Me.DataGridViewCheckBoxColumn1.HeaderText = "Aktiv"
Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1"
'
'GEANDERTWERTextBox
'
Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246)
Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
Me.GEANDERTWERTextBox.ReadOnly = True
Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23)
Me.GEANDERTWERTextBox.TabIndex = 57
'
'GEAENDERTWANNTextBox
'
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23)
Me.GEAENDERTWANNTextBox.TabIndex = 63
'
'SERVERTextBox
'
Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True))
Me.SERVERTextBox.Location = New System.Drawing.Point(15, 103)
Me.SERVERTextBox.Name = "SERVERTextBox"
Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23)
Me.SERVERTextBox.TabIndex = 2
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(532, 53)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23)
Me.GUIDTextBox.TabIndex = 65
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@ -543,37 +570,22 @@ Partial Class frmConnection
'
Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True
'
'DATENBANKComboBox
'SYS_CONNECTIONCheckBox
'
Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True))
Me.DATENBANKComboBox.FormattingEnabled = True
Me.DATENBANKComboBox.Location = New System.Drawing.Point(232, 102)
Me.DATENBANKComboBox.Name = "DATENBANKComboBox"
Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24)
Me.DATENBANKComboBox.TabIndex = 66
'
'BEMERKUNGLabel
'
BEMERKUNGLabel.AutoSize = True
BEMERKUNGLabel.Location = New System.Drawing.Point(532, 83)
BEMERKUNGLabel.Name = "BEMERKUNGLabel"
BEMERKUNGLabel.Size = New System.Drawing.Size(82, 16)
BEMERKUNGLabel.TabIndex = 66
BEMERKUNGLabel.Text = "Bermerkung:"
'
'BEMERKUNGTextBox
'
Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True))
Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(535, 102)
Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox"
Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23)
Me.BEMERKUNGTextBox.TabIndex = 67
Me.SYS_CONNECTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_CONNECTIONBindingSource, "SYS_CONNECTION", True))
Me.SYS_CONNECTIONCheckBox.Location = New System.Drawing.Point(627, 53)
Me.SYS_CONNECTIONCheckBox.Name = "SYS_CONNECTIONCheckBox"
Me.SYS_CONNECTIONCheckBox.Size = New System.Drawing.Size(104, 24)
Me.SYS_CONNECTIONCheckBox.TabIndex = 68
Me.SYS_CONNECTIONCheckBox.Text = "CheckBox1"
Me.SYS_CONNECTIONCheckBox.UseVisualStyleBackColor = True
'
'frmConnection
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1176, 619)
Me.ClientSize = New System.Drawing.Size(1187, 619)
Me.Controls.Add(Me.SYS_CONNECTIONCheckBox)
Me.Controls.Add(BEMERKUNGLabel)
Me.Controls.Add(Me.BEMERKUNGTextBox)
Me.Controls.Add(Me.DATENBANKComboBox)
@ -605,12 +617,12 @@ Partial Class frmConnection
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "frmConnection"
Me.Text = "Verwaltung der Connections"
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBDD_CONNECTIONBindingNavigator.ResumeLayout(False)
Me.TBDD_CONNECTIONBindingNavigator.PerformLayout()
CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -663,4 +675,5 @@ Partial Class frmConnection
Friend WithEvents GUIDTextBox As TextBox
Friend WithEvents DATENBANKComboBox As ComboBox
Friend WithEvents BEMERKUNGTextBox As TextBox
Friend WithEvents SYS_CONNECTIONCheckBox As CheckBox
End Class

6
app/DD_PM_WINDREAM/frmConnection.resx
View File

@ -126,6 +126,9 @@
<metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="BEMERKUNGLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>179, 17</value>
</metadata>
@ -213,7 +216,4 @@
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>858, 17</value>
</metadata>
<metadata name="BEMERKUNGLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

1
app/DD_PM_WINDREAM/frmConnection.vb
View File

@ -199,6 +199,7 @@ Public Class frmConnection
Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew
DD_DMSLiteDataSet.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = USER_USERNAME
DD_DMSLiteDataSet.TBDD_CONNECTION.SQL_PROVIDERColumn.DefaultValue = "MS-SQL"
End Sub
Private Sub TBDD_CONNECTIONBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.PositionChanged

120
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -32,70 +32,70 @@ Public Class frmFormDesigner
Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
'Try
' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
CURRENT_DESIGN_TYPE = "INPUT_INDEX"
' Profil Name in Fenstertitel setzen
Text = $"Validation Designer - Profil: {ProfileName}"
' Try
' Windream initialisieren
If IDB_ACTIVE = False Then
clsWindream.Create_Session()
End If
'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden
Dim unsortedIndicies
Dim sortedIndicies
If IDB_ACTIVE = False Then
unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
Else
sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList()
End If
Source_AllIndicies = sortedIndicies
Source_VectorIndicies = Source_AllIndicies.FindAll(AddressOf IsVectorIndex)
Source_SimpleIndicies = Source_AllIndicies.Except(Source_VectorIndicies).ToList()
Source_LookupIndicies = Source_AllIndicies.
Where(AddressOf IsNotVectorBooleanIndex).
Where(AddressOf IsNotVectorDateIndex).
Where(AddressOf IsNotVectorDatetimeIndex).
Where(AddressOf IsNotBooleanIndex).
Where(AddressOf IsNotDateIndex).
ToList()
If IDB_ACTIVE = False Then
Windream_ChoiceLists = New List(Of String)
Windream_ChoiceLists.Add(String.Empty)
Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists())
End If
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
'End Try
Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
CURRENT_DESIGN_TYPE = "INPUT_INDEX"
' Profil Name in Fenstertitel setzen
Text = $"Validation Designer - Profil: {ProfileName}"
' Try
' Windream initialisieren
If IDB_ACTIVE = False Then
clsWindream.Create_Session()
End If
'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden
Dim unsortedIndicies
Dim sortedIndicies
If IDB_ACTIVE = False Then
unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
Else
sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList()
End If
Source_AllIndicies = sortedIndicies
Source_VectorIndicies = Source_AllIndicies.FindAll(AddressOf IsVectorIndex)
Source_SimpleIndicies = Source_AllIndicies.Except(Source_VectorIndicies).ToList()
Source_LookupIndicies = Source_AllIndicies.
Where(AddressOf IsNotVectorBooleanIndex).
Where(AddressOf IsNotVectorDateIndex).
Where(AddressOf IsNotVectorDatetimeIndex).
Where(AddressOf IsNotBooleanIndex).
Where(AddressOf IsNotDateIndex).
ToList()
If IDB_ACTIVE = False Then
Windream_ChoiceLists = New List(Of String)
Windream_ChoiceLists.Add(String.Empty)
Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists())
End If
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
'End Try
Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
LoadControls()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:")
End Try
LoadControls()
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:")
'End Try
End Sub
Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

49
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -44,8 +44,10 @@ Partial Class frmMain
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tstrpbtn_Config = New System.Windows.Forms.ToolStripButton()
Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton()
Me.tsddConfig = New System.Windows.Forms.ToolStripDropDownButton()
Me.ProfileUndBasisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KonfigurationenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsstlblUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblLicenses = New System.Windows.Forms.ToolStripStatusLabel()
@ -95,6 +97,7 @@ Partial Class frmMain
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.LöscheAlleFilterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout()
@ -254,6 +257,7 @@ Partial Class frmMain
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
@ -269,7 +273,7 @@ Partial Class frmMain
'
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tstrpbtn_Config, Me.tsbtnrefresh})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tsbtnrefresh, Me.tsddConfig})
Me.ToolStrip1.Name = "ToolStrip1"
'
'ToolStripButton2
@ -283,7 +287,7 @@ Partial Class frmMain
'ToolStripButton1
'
Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Einstellungen6
Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Hammer_Builder_16xLG
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Name = "ToolStripButton1"
'
@ -293,19 +297,30 @@ Partial Class frmMain
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'tstrpbtn_Config
'
Me.tstrpbtn_Config.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tstrpbtn_Config.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2
resources.ApplyResources(Me.tstrpbtn_Config, "tstrpbtn_Config")
Me.tstrpbtn_Config.Name = "tstrpbtn_Config"
'
'tsbtnrefresh
'
Me.tsbtnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh")
Me.tsbtnrefresh.Name = "tsbtnrefresh"
'
'tsddConfig
'
Me.tsddConfig.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsddConfig.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProfileUndBasisToolStripMenuItem, Me.KonfigurationenToolStripMenuItem})
resources.ApplyResources(Me.tsddConfig, "tsddConfig")
Me.tsddConfig.Name = "tsddConfig"
'
'ProfileUndBasisToolStripMenuItem
'
Me.ProfileUndBasisToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2
Me.ProfileUndBasisToolStripMenuItem.Name = "ProfileUndBasisToolStripMenuItem"
resources.ApplyResources(Me.ProfileUndBasisToolStripMenuItem, "ProfileUndBasisToolStripMenuItem")
'
'KonfigurationenToolStripMenuItem
'
resources.ApplyResources(Me.KonfigurationenToolStripMenuItem, "KonfigurationenToolStripMenuItem")
Me.KonfigurationenToolStripMenuItem.Name = "KonfigurationenToolStripMenuItem"
'
'StatusStrip1
'
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
@ -391,7 +406,7 @@ Partial Class frmMain
'ContextMenuGrid
'
Me.ContextMenuGrid.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.ToolStripSeparator4, Me.tsmiMarkedFilesFinish, Me.ToolStripSeparator3, Me.TabellenlayoutZurücksetzenToolStripMenuItem, Me.LayoutSpeichernToolStripMenuItem})
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.ToolStripSeparator4, Me.tsmiMarkedFilesFinish, Me.ToolStripSeparator3, Me.LöscheAlleFilterToolStripMenuItem, Me.TabellenlayoutZurücksetzenToolStripMenuItem, Me.LayoutSpeichernToolStripMenuItem})
Me.ContextMenuGrid.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuGrid, "ContextMenuGrid")
'
@ -435,7 +450,7 @@ Partial Class frmMain
'
'GridView_Docs
'
Me.GridView_Docs.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView_Docs.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView_Docs.GridControl = Me.GridControl_Docs
Me.GridView_Docs.Name = "GridView_Docs"
@ -620,6 +635,11 @@ Partial Class frmMain
Me.Timer5Mins.Enabled = True
Me.Timer5Mins.Interval = 350000
'
'LöscheAlleFilterToolStripMenuItem
'
resources.ApplyResources(Me.LöscheAlleFilterToolStripMenuItem, "LöscheAlleFilterToolStripMenuItem")
Me.LöscheAlleFilterToolStripMenuItem.Name = "LöscheAlleFilterToolStripMenuItem"
'
'frmMain
'
resources.ApplyResources(Me, "$this")
@ -681,7 +701,6 @@ Partial Class frmMain
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
Friend WithEvents tstrpbtn_Config As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TBPM_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
@ -741,4 +760,8 @@ Partial Class frmMain
Friend WithEvents Timer5Mins As Timer
Friend WithEvents tsslblDEBUG_LOG As ToolStripStatusLabel
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents tsddConfig As ToolStripDropDownButton
Friend WithEvents ProfileUndBasisToolStripMenuItem As ToolStripMenuItem
Friend WithEvents KonfigurationenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LöscheAlleFilterToolStripMenuItem As ToolStripMenuItem
End Class

231
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -488,7 +488,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAWQBBAFkAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAYQBBAGEAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -547,51 +547,6 @@
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value>
</data>
<data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton2.Text" xml:space="preserve">
<value>ToolStripButton2</value>
</data>
<data name="ToolStripButton1.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>136, 24</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 27</value>
</data>
<data name="tstrpbtn_Config.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tstrpbtn_Config.Size" type="System.Drawing.Size, System.Drawing">
<value>145, 24</value>
</data>
<data name="tstrpbtn_Config.Text" xml:space="preserve">
<value>Verwaltungs-Konsole</value>
</data>
<data name="tstrpbtn_Config.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="tsbtnrefresh.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tsbtnrefresh.Size" type="System.Drawing.Size, System.Drawing">
<value>99, 24</value>
</data>
<data name="tsbtnrefresh.Text" xml:space="preserve">
<value>Aktualisieren</value>
</data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -616,12 +571,109 @@
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton2.Text" xml:space="preserve">
<value>ToolStripButton2</value>
</data>
<data name="ToolStripButton1.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>136, 24</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 27</value>
</data>
<data name="tsbtnrefresh.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tsbtnrefresh.Size" type="System.Drawing.Size, System.Drawing">
<value>99, 24</value>
</data>
<data name="tsbtnrefresh.Text" xml:space="preserve">
<value>Aktualisieren</value>
</data>
<data name="tsddConfig.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVDhPvVLLDcMgDO0InYktmIIVemKHZA2m4NQLe7g9
wJXwrBoRBdJGiWrpoScbPz8+t1GklPIv+GzfBopKqV38T+BF7xUOC4xwnQMiuscYHyVBSAq01nVzD1Wg
kGcIgRPGGAa49z5ba7vNAAtgMpqRQKMUhUNk5IQFysK20TBNcz0nuDhxzu0K1GntBQlHDS4k3+IygUNH
aIewwOlLPP2MEr2P9B0pLx8WRpfW43ukAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsddConfig.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tsddConfig.Size" type="System.Drawing.Size, System.Drawing">
<value>103, 24</value>
</data>
<data name="tsddConfig.Text" xml:space="preserve">
<value>Verwaltung</value>
</data>
<data name="ProfileUndBasisToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 26</value>
</data>
<data name="ProfileUndBasisToolStripMenuItem.Text" xml:space="preserve">
<value>Profile und Zuordnung</value>
</data>
<data name="KonfigurationenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAQNJREFUOE+VUrkNg0AQpASXQAkuwSKnADICCiCmAFJEThfkEJOTk0NARnqeWe9Z
x2NOHmmE8Dy3ezj4F9u25eCqfOrPfsAcgv04jibLMlOWpWGJyn7Q3DSNiaJImCTJfQHECpQR+QS/YXIY
BhbkYr4CAyD3TPnkyDZc1zW1Xq1nQJQTdU95MmjfQRaHat8DAsM0SIi7OuH7m6c4z/NaFIXhbduT9cLI
VK1n2DA/kbPncfzrCY5hmpdlMXYSFjmsNPYBw+Dadd0ufJjk9+4QJpp4Er+tG74d2wKimOM4lhJ3Em+Y
YAHDbon+y/xhAqaqbVspIL07HwHjgyUgg+QEvlT2IAje23iU4vnsUjYAAAAASUVORK5CYII=
</value>
</data>
<data name="KonfigurationenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 26</value>
</data>
<data name="KonfigurationenToolStripMenuItem.Text" xml:space="preserve">
<value>Konfigurationen</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1015, 17</value>
</metadata>
<data name="StatusStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 498</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 29</value>
</data>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="StatusStrip1.Text" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="tsstlblUser.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 24</value>
</data>
@ -676,30 +728,6 @@
<data name="tsslblDEBUG_LOG.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 498</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 29</value>
</data>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="StatusStrip1.Text" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>392, 95</value>
</metadata>
@ -736,6 +764,22 @@
<data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 6</value>
</data>
<data name="LöscheAlleFilterToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF
RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF
ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d
C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3
AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg==
</value>
</data>
<data name="LöscheAlleFilterToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="LöscheAlleFilterToolStripMenuItem.Text" xml:space="preserve">
<value>Lösche alle Filter</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
@ -749,7 +793,7 @@
<value>Layout speichern</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 146</value>
<value>270, 172</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
@ -760,9 +804,6 @@
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
<value>242, 87</value>
</data>
<data name="GridView_Docs.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>LightBlue</value>
</data>
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
<value>631, 380</value>
</data>
@ -984,12 +1025,6 @@
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>541, 95</value>
</metadata>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="tsmiValidationProfil.Text" xml:space="preserve">
<value>Starte Validierung für Profil</value>
</data>
<data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 30</value>
</data>
@ -1214,6 +1249,12 @@
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="tsmiValidationProfil.Text" xml:space="preserve">
<value>Starte Validierung für Profil</value>
</data>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1132, 17</value>
</metadata>
@ -1654,18 +1695,30 @@
<data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tstrpbtn_Config.Name" xml:space="preserve">
<value>tstrpbtn_Config</value>
</data>
<data name="&gt;&gt;tstrpbtn_Config.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tsbtnrefresh.Name" xml:space="preserve">
<value>tsbtnrefresh</value>
</data>
<data name="&gt;&gt;tsbtnrefresh.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tsddConfig.Name" xml:space="preserve">
<value>tsddConfig</value>
</data>
<data name="&gt;&gt;tsddConfig.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripDropDownButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ProfileUndBasisToolStripMenuItem.Name" xml:space="preserve">
<value>ProfileUndBasisToolStripMenuItem</value>
</data>
<data name="&gt;&gt;ProfileUndBasisToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;KonfigurationenToolStripMenuItem.Name" xml:space="preserve">
<value>KonfigurationenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;KonfigurationenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tsstlblUser.Name" xml:space="preserve">
<value>tsstlblUser</value>
</data>
@ -1918,6 +1971,12 @@
<data name="&gt;&gt;ToolTip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;LöscheAlleFilterToolStripMenuItem.Name" xml:space="preserve">
<value>LöscheAlleFilterToolStripMenuItem</value>
</data>
<data name="&gt;&gt;LöscheAlleFilterToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value>
</data>

287
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -77,12 +77,7 @@ Public Class frmMain
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formopenClose = True
LOGGER.Debug("Initializing MainForm....")
'Try
' UserLookAndFeel.Default.SetSkinStyle("VS2010")
'Catch ex As Exception
' LOGGER.Error(ex)
'End Try
' Create helper to save/load expanded GroupColumns at runtime
RefreshHelper = New RefreshHelper(GridView_Docs, "GUID")
@ -125,9 +120,9 @@ Public Class frmMain
End If
End If
If USER_IS_ADMIN = True Then
tstrpbtn_Config.Visible = True
tsddConfig.Visible = True
Else
tstrpbtn_Config.Visible = False
tsddConfig.Visible = False
End If
'Anzahl der eingeloggten User
If USER_LANGUAGE <> "de-DE" Then
@ -913,16 +908,7 @@ Public Class frmMain
TimerRefresh.Start()
End If
End Sub
Private Sub ToolStripButton2_Click(sender As System.Object, e As EventArgs) Handles tstrpbtn_Config.Click
Dim AdminSecurity As Boolean = False
AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity()
If AdminSecurity = True Then
frmLoginAdmin.ShowDialog()
Else
frmAdministration.ShowDialog()
End If
Decide_Load()
End Sub
Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
If GridControl_Docs.Visible = True And formopenClose = False Then
@ -968,37 +954,37 @@ Public Class frmMain
Sub Load_Profil_from_Grid(ID As Integer)
'Try
'Me.Visible = False
CURRENT_ProfilGUID = ID
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
My.Settings.Save()
Try
'Me.Visible = False
CURRENT_ProfilGUID = ID
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
My.Settings.Save()
If TimerRefresh.Enabled Then
TimerRefresh.Stop()
End If
Dim th As System.Threading.Thread
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
th = New Threading.Thread(AddressOf Task_A)
th.SetApartmentState(ApartmentState.STA)
th.Start()
Else
LOGGER.Debug("Validator is already open...")
Exit Sub
End If
If TimerRefresh.Enabled Then
TimerRefresh.Stop()
End If
Dim th As System.Threading.Thread
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
th = New Threading.Thread(AddressOf Task_A)
th.SetApartmentState(ApartmentState.STA)
th.Start()
Else
LOGGER.Debug("Validator is already open...")
Exit Sub
End If
' frmValidator.ShowDialog()
Do While th.IsAlive
' frmValidator.ShowDialog()
Do While th.IsAlive
Loop
LOGGER.Debug("th has ended!")
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
'End Try
Loop
LOGGER.Debug("th has ended!")
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
End Try
' Me.Visible = True
Decide_Load()
@ -1038,92 +1024,92 @@ Public Class frmMain
Item_Scope("CMROW")
End Sub
Private Sub Item_Scope(startedFrom As String)
'Try
'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim groupRowText
Dim PROFIL_ID
If hitInfo.InGroupRow Then
GridViewItem_Clicked = "GROUP"
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then
GridViewItem_Clicked = "ROW"
If GRID_LOAD_TYPE = "OVERVIEW" Then
groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle))
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
Else
PROFIL_ID = CURRENT_CLICKED_PROFILE_ID
End If
Else
Exit Sub
End If
Dim PROFIL_TITLE
If GRID_LOAD_TYPE = "OVERVIEW" Then
Try
groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", "")))
Catch ex As Exception
End Try
Dim _SPLIT As String()
_SPLIT = groupRowText.Split("|")
PROFIL_TITLE = LTrim(RTrim(_SPLIT(0).ToString))
Else
End If
If Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID) Then
Dim expression As String
expression = "PROFILE_ID = " & PROFIL_ID
If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then
CURRENT_JUMP_DOC_GUID = 0
CURRENT_DOC_GUID = 0
CURRENT_ProfilGUID = PROFIL_ID
Load_Profil_from_Grid(PROFIL_ID)
Try
'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim groupRowText
Dim PROFIL_ID
If hitInfo.InGroupRow Then
GridViewItem_Clicked = "GROUP"
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then
Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID"))
If IsNothing(DOC_ID) Then Exit Sub
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects")
DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects")
'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DOC_ID = " & DOC_ID
Dim TEMP_TABLE = CURR_DT_PROFILEGRID
Dim foundRows() As DataRow
foundRows = TEMP_TABLE.Select(expression)
Dim result = 0
For i = 0 To foundRows.GetUpperBound(0)
result += 1
Next
If result = 1 Then
CURRENT_DOC_ID = DOC_ID
CURRENT_JUMP_DOC_GUID = DOC_GUID
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
CURRENT_DOC_PATH = DOC_PATH
Load_Profil_from_Grid(PROFIL_ID)
GridViewItem_Clicked = "ROW"
If GRID_LOAD_TYPE = "OVERVIEW" Then
groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle))
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
Else
Exit Sub
PROFIL_ID = CURRENT_CLICKED_PROFILE_ID
End If
Else
Exit Sub
End If
Else
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical)
Dim PROFIL_TITLE
If GRID_LOAD_TYPE = "OVERVIEW" Then
Try
groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", "")))
Catch ex As Exception
End If
'Catch ex As Exception
' LOGGER.Error(ex)
' MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
'End Try
End Try
Dim _SPLIT As String()
_SPLIT = groupRowText.Split("|")
PROFIL_TITLE = LTrim(RTrim(_SPLIT(0).ToString))
Else
End If
If Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID) Then
Dim expression As String
expression = "PROFILE_ID = " & PROFIL_ID
If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then
CURRENT_JUMP_DOC_GUID = 0
CURRENT_DOC_GUID = 0
CURRENT_ProfilGUID = PROFIL_ID
Load_Profil_from_Grid(PROFIL_ID)
ElseIf hitInfo.InDataRow Then
Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID"))
If IsNothing(DOC_ID) Then Exit Sub
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects")
DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects")
'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DOC_ID = " & DOC_ID
Dim TEMP_TABLE = CURR_DT_PROFILEGRID
Dim foundRows() As DataRow
foundRows = TEMP_TABLE.Select(expression)
Dim result = 0
For i = 0 To foundRows.GetUpperBound(0)
result += 1
Next
If result = 1 Then
CURRENT_DOC_ID = DOC_ID
CURRENT_JUMP_DOC_GUID = DOC_GUID
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
CURRENT_DOC_PATH = DOC_PATH
Load_Profil_from_Grid(PROFIL_ID)
Else
Exit Sub
End If
End If
Else
MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical)
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function Init_IDB()
Try
@ -1419,35 +1405,7 @@ Public Class frmMain
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
'Try
' For Each grid_column As GridColumn In GridView_Docs.Columns
' Dim GridDXCaption = grid_column.Caption
' Dim GridDXTextCaption = grid_column.GetTextCaption
' Dim GridDXColumnEditName = grid_column.ColumnEditName
' Dim GridDXFieldName = grid_column.FieldName
' Dim exists As Boolean = False
' For Each col As DataColumn In CURR_DT_PROFILEGRID.Columns
' If col.Caption = GridDXTextCaption Then
' exists = True
' Exit For
' End If
' Next
' If exists = False Then
' If grid_column.Visible = True Then
' Try
' grid_column.Dispose()
' Catch ex As Exception
' LOGGER.Error(ex)
' End Try
' End If
' End If
' Next
'Catch ex As Exception
' LOGGER.Error(ex)
' LOGGER.Info("Unexpected Error in Checking ColumnsGrid: " & ex.Message)
'End Try
SaveGridLayout()
If GridView_Docs.Columns.Count <= 2 Then
@ -1695,4 +1653,29 @@ Public Class frmMain
Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
End Sub
Private Sub ProfileUndBasisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProfileUndBasisToolStripMenuItem.Click
Dim AdminSecurity As Boolean = False
AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity()
If AdminSecurity = True Then
frmLoginAdmin.ShowDialog()
Else
frmAdministration.ShowDialog()
End If
Decide_Load()
End Sub
Private Sub KonfigurationenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KonfigurationenToolStripMenuItem.Click
frmAdmin2.ShowDialog()
End Sub
Private Sub LöscheAlleFilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöscheAlleFilterToolStripMenuItem.Click
Try
GridView_Docs.ClearFindFilter()
GridView_Docs.ClearColumnsFilter()
SaveGridLayout()
Catch ex As Exception
End Try
End Sub
End Class

81
app/DD_PM_WINDREAM/frmPreviewHtml.Designer.vb generated Normal file
View File

@ -0,0 +1,81 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPreviewHtml
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.Panel1 = New System.Windows.Forms.Panel()
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(800, 45)
Me.Panel1.TabIndex = 0
'
'WebBrowser1
'
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser1.Location = New System.Drawing.Point(0, 45)
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(800, 405)
Me.WebBrowser1.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(641, 30)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Dies ist nur eine rudimentäre Ansicht zur Darstellung der HTML-Strukturen. Bitte " &
"testen Sie vor produktivem Versand " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "den Inhalt und Aufbau in einer email."
'
'frmPreviewHtml
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.WebBrowser1)
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MinimizeBox = False
Me.Name = "frmPreviewHtml"
Me.Text = "Preview HTML"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents Label1 As Label
Friend WithEvents WebBrowser1 As WebBrowser
End Class

120
app/DD_PM_WINDREAM/frmPreviewHtml.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>

9
app/DD_PM_WINDREAM/frmPreviewHtml.vb Normal file
View File

@ -0,0 +1,9 @@
Public Class frmPreviewHtml
Public DisplayText As String
Private Sub frmPreviewHtml_Load(sender As Object, e As EventArgs) Handles Me.Load
WebBrowser1.Refresh()
Dim otext = "<html><head></head><body>" + DisplayText + "</body></html>"
WebBrowser1.DocumentText = otext
End Sub
End Class

786
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -1556,151 +1556,151 @@ Public Class frmValidator
'Me.lblerror.Visible = False
_Indexe_Loaded = False
LOGGER.Debug("In Load_Next_Document")
'Try
If first = True Then
LOGGER.Debug("First Document")
CURRENT_WMFILE = Nothing
Else
LOGGER.Debug("Following Document ")
docCounter += 1
End If
' Controls nicht beim ersten Laden leeren
If first = False Then
Clear_all_Input()
End If
'Select Case navtype
' Case "next"
' Case "previous"
' Case "first"
' Case "last"
'End Select
LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'")
If CURRENT_JUMP_DOC_GUID = 0 Then
CURRENT_DOC_GUID = Get_Next_GUID()
ElseIf first = False Then
CURRENT_DOC_GUID = 0
End If
LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
If CURRENT_DOC_GUID > 0 Then
If GetWMDocPathWindows(0) = False Then
MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "")
Exit Sub
Try
If first = True Then
LOGGER.Debug("First Document")
CURRENT_WMFILE = Nothing
Else
LOGGER.Debug("Following Document ")
docCounter += 1
End If
If IDB_ACTIVE = False Then
If CreateWMObject() = False Then
' Controls nicht beim ersten Laden leeren
If first = False Then
Clear_all_Input()
End If
'Select Case navtype
' Case "next"
' Case "previous"
' Case "first"
' Case "last"
'End Select
LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'")
If CURRENT_JUMP_DOC_GUID = 0 Then
CURRENT_DOC_GUID = Get_Next_GUID()
ElseIf first = False Then
CURRENT_DOC_GUID = 0
End If
LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
If CURRENT_DOC_GUID > 0 Then
If GetWMDocPathWindows(0) = False Then
MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "")
Exit Sub
End If
End If
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
If WMDocPathWindows <> String.Empty Then
' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(sql)
' ############ Infos eintragen #################
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID
' txtDateipfad.Text = Document_Path
tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet")
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
LOGGER.Debug("AllDocInfo created...")
If IDB_ACTIVE = False Then
oErrorMessage = Windream_get_Doc_info()
Else
' oErrorMessage = IDB_GetDocInfo()
If CreateWMObject() = False Then
Exit Sub
End If
End If
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
If WMDocPathWindows <> String.Empty Then
' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
ClassDatabase.Execute_non_Query(sql)
' ############ Infos eintragen #################
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID
' txtDateipfad.Text = Document_Path
tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet")
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
If oErrorMessage = "" Then
load_viewer()
LOGGER.Debug("Viewer geladen")
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
ToolStripButtonAnnotation.Visible = True
LOGGER.Debug("AllDocInfo created...")
If IDB_ACTIVE = False Then
oErrorMessage = Windream_get_Doc_info()
Else
ToolStripButtonAnnotation.Visible = False
' oErrorMessage = IDB_GetDocInfo()
End If
If oErrorMessage = "" Then
FillIndexValues(first)
For Each oControl As Control In pnldesigner.Controls
LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid)
Next
LOGGER.Debug("Indexmaske geladen")
LOGGER.Debug("")
'Nun im Vektoprindex loggen das das Profil geladen wurde
'If PROFIL_VEKTORINDEX <> "" Then
' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & USER_NAME & Delimiter & Now.ToString
' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then
' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben")
' 'Else
' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' ' My.Settings.Save()
' ' frmError.ShowDialog()
' ' _error = True
' End If
'End If
'Nun loggen das das Profil geladen wurde
If PROFIL_LOGINDEX <> "" Then
Dim Profilstring = $"DD-PMLog{Delimiter}Loaded profile: [{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}"
If IDB_ACTIVE = False Then
WMIndexVectofield(Profilstring, PROFIL_LOGINDEX)
'Else
'IDBData.SetVariableValue(PROFIL_LOGINDEX, Profilstring)
'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben")
'Else
' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' My.Settings.Save()
' frmError.ShowDialog()
' _error = True
load_viewer()
LOGGER.Debug("Viewer geladen")
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
ToolStripButtonAnnotation.Visible = True
Else
ToolStripButtonAnnotation.Visible = False
End If
FillIndexValues(first)
For Each oControl As Control In pnldesigner.Controls
LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid)
Next
LOGGER.Debug("Indexmaske geladen")
LOGGER.Debug("")
'Nun im Vektoprindex loggen das das Profil geladen wurde
'If PROFIL_VEKTORINDEX <> "" Then
' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & USER_NAME & Delimiter & Now.ToString
' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then
' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben")
' 'Else
' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' ' My.Settings.Save()
' ' frmError.ShowDialog()
' ' _error = True
' End If
'End If
'Nun loggen das das Profil geladen wurde
If PROFIL_LOGINDEX <> "" Then
Dim Profilstring = $"DD-PMLog{Delimiter}Loaded profile: [{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}"
If IDB_ACTIVE = False Then
WMIndexVectofield(Profilstring, PROFIL_LOGINDEX)
'Else
'IDBData.SetVariableValue(PROFIL_LOGINDEX, Profilstring)
'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben")
'Else
' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' My.Settings.Save()
' frmError.ShowDialog()
' _error = True
End If
End If
activate_controls(True)
Me.BringToFront()
Else
errormessage = oErrorMessage
frmError.ShowDialog()
End If
activate_controls(True)
Me.BringToFront()
Else
errormessage = oErrorMessage
frmError.ShowDialog()
End If
Else
errormessage = oErrorMessage
frmError.ShowDialog()
End If
Else
If oErrorMessage <> "" Then
errormessage = oErrorMessage
frmError.ShowDialog()
Else
LOGGER.Info("End of profile - no more document!")
If USER_LANGUAGE <> "de-DE" Then
MsgBox("No more document! End of profile!" & vbNewLine & "Validation will be closed.", MsgBoxStyle.Information, "")
If oErrorMessage <> "" Then
errormessage = oErrorMessage
frmError.ShowDialog()
Else
MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:")
LOGGER.Info("End of profile - no more document!")
If USER_LANGUAGE <> "de-DE" Then
MsgBox("No more document! End of profile!" & vbNewLine & "Validation will be closed.", MsgBoxStyle.Information, "")
Else
MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:")
End If
activate_controls(True)
Me.Close()
End If
activate_controls(True)
Me.Close()
End If
End If
'Catch ex As Exception
' LOGGER.Error(ex)
' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME)
' errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message
' My.Settings.Save()
' LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message)
' frmError.ShowDialog()
'End Try
Catch ex As Exception
LOGGER.Error(ex)
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME)
errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message
My.Settings.Save()
LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message)
frmError.ShowDialog()
End Try
End Sub
Sub load_viewer()
DocumentViewer1.LoadFile(WMDocPathWindows)
@ -2681,36 +2681,6 @@ Public Class frmValidator
Finish_WFStep()
btnSave.Enabled = True
End Sub
'Sub CloseWDDocview()
' Try
' Dim oFileName = New FileInfo(CURRENT_WMFILE.aPath)
' Dim oProcesses As Process() = Process.GetProcesses()
' Dim oViewerNames As New List(Of String) From {
' "WMPViewX",
' "WMPViewXNG"
' }
' For Each p In oProcesses
' If oViewerNames.Contains(p.ProcessName) Then
' p.Kill()
' End If
' Next
' Catch ex As Exception
' LOGGER.Error(ex)
' LOGGER.Info(" ### FEHLER in CloseDocView")
' LOGGER.Info("### " & ex.Message & " ###")
' End Try
' 'Try
' ' If VIEWER_ALL = "docview" Then
' ' DocView.CloseView(CURRENT_WMFILE.aPath, 0)
' ' End If
' 'Catch ex As Exception
' ' LOGGER.Error(ex)
' ' LOGGER.Info(" ### FEHLER in CloseDocView")
' ' LOGGER.Info("### " & ex.Message & " ###")
' 'End Try
'End Sub
Sub Finish_WFStep()
btnSave.Enabled = False
@ -2720,278 +2690,278 @@ Public Class frmValidator
'Eingaben auf Form überprüfen
If Check_UpdateIndexe() = False Then
'lblerror.Visible = False
'Try
Dim oErrorOcurred As Boolean = False
Try
Dim oErrorOcurred As Boolean = False
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING
If oDTFinalIndexes.Rows.Count > 0 Then
'Jetzt finale Indexe setzen
LOGGER.Debug("FINAL INDEXING STARTING...")
For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows
Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString
Dim oIndexType = 0
If IDB_ACTIVE = False Then
oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME"))
End If
If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
LOGGER.Debug("Indexierung mit dynamischem SQL!")
Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND")
LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand)
oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
If IsNothing(oSQLCommand) Then
errormessage = "Error while replacing Values in final indexing - Check the log"
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
If Not IsNothing(oSQLCommand) Then
LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand)
Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then
LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString)
oValue = dynamic_value
Else
LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!")
End If
End If
Else
If oValue.StartsWith("v") Then
Select Case oFinalIndexRow.Item("VALUE").ToString
Case "vDate"
oValue = Now.ToShortDateString
Case "vUserName"
oValue = USER_USERNAME
Case Else
oValue = oFinalIndexRow.Item("VALUE")
End Select
End If
End If
If oErrorOcurred Then
Exit For
End If
Dim oResult() As String
ReDim Preserve oResult(0)
oResult(0) = oValue
LOGGER.Debug($"oIndexType {oIndexType.ToString}")
If oIndexType > 4000 And oIndexType < 5000 Then
'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden
If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then
LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT")
Else
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
Else
LOGGER.Debug("Now the final indexing...")
Dim oFIResult As Boolean = False
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING
If oDTFinalIndexes.Rows.Count > 0 Then
'Jetzt finale Indexe setzen
LOGGER.Debug("FINAL INDEXING STARTING...")
For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows
Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString
Dim oIndexType = 0
If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then
oFIResult = True
LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT")
oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME"))
End If
If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
LOGGER.Debug("Indexierung mit dynamischem SQL!")
Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND")
'Nun das Logging
If PROFIL_LOGINDEX <> "" Then
Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME"))
WMIndexVectofield(logstr, PROFIL_LOGINDEX)
LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand)
oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
If IsNothing(oSQLCommand) Then
errormessage = "Error while replacing Values in final indexing - Check the log"
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
If Not IsNothing(oSQLCommand) Then
LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand)
Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then
LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString)
oValue = dynamic_value
Else
LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!")
End If
End If
'Else
' If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then
' oFIResult = True
' LOGGER.Debug("final index '" & oFinalIndexRow.Item("INDEXNAME") & "' was written to IDB")
' If PROFIL_LOGINDEX <> "" Then
' Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME"))
' oFIResult = IDBData.SetVariableValue(PROFIL_LOGINDEX, logstr)
' End If
' End If
Else
If oValue.StartsWith("v") Then
Select Case oFinalIndexRow.Item("VALUE").ToString
Case "vDate"
oValue = Now.ToShortDateString
Case "vUserName"
oValue = USER_USERNAME
Case Else
oValue = oFinalIndexRow.Item("VALUE")
End Select
End If
End If
If oFIResult = False Then
errormessage = "Error in final indexing:" & vbNewLine & idxerr_message
If oErrorOcurred Then
Exit For
End If
Dim oResult() As String
ReDim Preserve oResult(0)
oResult(0) = oValue
LOGGER.Debug($"oIndexType {oIndexType.ToString}")
If oIndexType > 4000 And oIndexType < 5000 Then
'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden
If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then
LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT")
Else
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
Else
LOGGER.Debug("Now the final indexing...")
Dim oFIResult As Boolean = False
If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then
oFIResult = True
LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT")
'Nun das Logging
If PROFIL_LOGINDEX <> "" Then
Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME"))
WMIndexVectofield(logstr, PROFIL_LOGINDEX)
End If
End If
'Else
' If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then
' oFIResult = True
' LOGGER.Debug("final index '" & oFinalIndexRow.Item("INDEXNAME") & "' was written to IDB")
' If PROFIL_LOGINDEX <> "" Then
' Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME"))
' oFIResult = IDBData.SetVariableValue(PROFIL_LOGINDEX, logstr)
' End If
' End If
End If
If oFIResult = False Then
errormessage = "Error in final indexing:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
End If
If oErrorOcurred = True Then
Exit For
End If
Next
End If
''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If Override = True And Override_SQLCommand <> "" Then
ClassDatabase.Execute_non_Query(Override_SQLCommand)
End If
If oErrorOcurred = False Then
'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID)
''Das Dokument
'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID)
Dim WORK_HISTORY_ENTRY = Nothing
Try
WORK_HISTORY_ENTRY = CURRENT_DT_PROFILE.Rows(0).Item("WORK_HISTORY_ENTRY")
If IsDBNull(WORK_HISTORY_ENTRY) Then
WORK_HISTORY_ENTRY = Nothing
End If
Catch ex As Exception
LOGGER.Error(ex)
WORK_HISTORY_ENTRY = Nothing
End Try
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If WORK_HISTORY_ENTRY <> String.Empty Then
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
' die Vorkommen im SQL-String auslesen
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(WORK_HISTORY_ENTRY)
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
Try
LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value)
Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control
If IsNumeric(CTRL_ID) Then
For Each oControl As Control In Me.pnldesigner.Controls
Try
If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then
Continue For
End If
Catch ex As Exception
Continue For
End Try
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then
'######
Dim Type As String = oControl.GetType.ToString
Select Case Type
Case "System.Windows.Forms.TextBox"
Try
value_from_control = oControl.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.ComboBox"
Dim cmb As ComboBox = oControl
Try
value_from_control = cmb.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.DateTimePicker"
Dim dtp As DateTimePicker = oControl
Try
value_from_control = dtp.Value.ToString
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = oControl
Try
value_from_control = chk.Checked
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
End Select
End If
Next
End If
If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message)
End Try
Next
If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString)
End If
If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME)
End If
Else
WORK_HISTORY_ENTRY = ""
End If
End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
ClassDatabase.Execute_non_Query(ins)
Dim oFIsql As String
'Close_document_viewer()
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(oFIsql, True)
If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0, False)
End If
End If
End If
Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(value) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(oFIsql, True)
If Not IsNothing(DT_ENTRIES) Then
If DT_ENTRIES.Rows.Count > 0 Then
Dim AnnotationString As String = ""
For Each rw As DataRow In DT_ENTRIES.Rows
AnnotationString = AnnotationString & rw.Item("WORKED_WHEN") & " " & rw.Item("WORKED_BY") & ": " & rw.Item("STATUS_COMMENT") & vbNewLine
Next
ClassAnnotation.Annotate_PDF("Workflow History:", AnnotationString, 0, False, 10, 40)
End If
End If
End If
End If
End If
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream)
If idxerr_message <> "" Then
errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
End If
If oErrorOcurred = True Then
Exit For
End If
Next
End If
''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If Override = True And Override_SQLCommand <> "" Then
ClassDatabase.Execute_non_Query(Override_SQLCommand)
End If
If oErrorOcurred = False Then
'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID)
''Das Dokument
'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID)
Dim WORK_HISTORY_ENTRY = Nothing
Try
WORK_HISTORY_ENTRY = CURRENT_DT_PROFILE.Rows(0).Item("WORK_HISTORY_ENTRY")
If IsDBNull(WORK_HISTORY_ENTRY) Then
WORK_HISTORY_ENTRY = Nothing
End If
Catch ex As Exception
LOGGER.Error(ex)
WORK_HISTORY_ENTRY = Nothing
End Try
'Validierungsfile löschen wenn vorhanden
'allgFunk.Delete_xffres(WMDocPathWindows, _windream)
'LOGGER.Debug("Delete_xffres ausgeführt")
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If WORK_HISTORY_ENTRY <> String.Empty Then
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
' die Vorkommen im SQL-String auslesen
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(WORK_HISTORY_ENTRY)
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
Try
LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value)
Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control
If IsNumeric(CTRL_ID) Then
For Each oControl As Control In Me.pnldesigner.Controls
Try
If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then
Continue For
End If
Catch ex As Exception
Continue For
End Try
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then
'######
Dim Type As String = oControl.GetType.ToString
Select Case Type
Case "System.Windows.Forms.TextBox"
Try
value_from_control = oControl.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.ComboBox"
Dim cmb As ComboBox = oControl
Try
value_from_control = cmb.Text
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.DateTimePicker"
Dim dtp As DateTimePicker = oControl
Try
value_from_control = dtp.Value.ToString
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = oControl
Try
value_from_control = chk.Checked
Catch ex As Exception
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
End Select
End If
Next
End If
If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message)
End Try
Next
If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString)
End If
If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then
WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME)
End If
Else
WORK_HISTORY_ENTRY = ""
End If
End If
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
ClassDatabase.Execute_non_Query(ins)
Dim oFIsql As String
'Close_document_viewer()
If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(oFIsql, True)
If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0, False)
End If
End If
End If
Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(value) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(oFIsql, True)
If Not IsNothing(DT_ENTRIES) Then
If DT_ENTRIES.Rows.Count > 0 Then
Dim AnnotationString As String = ""
For Each rw As DataRow In DT_ENTRIES.Rows
AnnotationString = AnnotationString & rw.Item("WORKED_WHEN") & " " & rw.Item("WORKED_BY") & ": " & rw.Item("STATUS_COMMENT") & vbNewLine
Next
ClassAnnotation.Annotate_PDF("Workflow History:", AnnotationString, 0, False, 10, 40)
End If
End If
End If
End If
End If
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream)
If idxerr_message <> "" Then
errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
oErrorOcurred = True
End If
End If
'Validierungsfile löschen wenn vorhanden
'allgFunk.Delete_xffres(WMDocPathWindows, _windream)
'LOGGER.Debug("Delete_xffres ausgeführt")
End If
'Catch ex As Exception
' LOGGER.Error(ex)
' errormessage = "Unexpected error in Finish:" & ex.Message
' My.Settings.Save()
' frmError.ShowDialog()
' LOGGER.Info("Unexpected error in Finish: " & ex.Message, True)
'End Try
Catch ex As Exception
LOGGER.Error(ex)
errormessage = "Unexpected error in Finish:" & ex.Message
My.Settings.Save()
frmError.ShowDialog()
LOGGER.Info("Unexpected error in Finish: " & ex.Message, True)
End Try
Else
'lblerror.Visible = True
'lblerror.Text = errmessage