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

MS_1705

Browse Source
This commit is contained in:
SchreiberM
2016-05-17 14:05:44 +02:00
parent d0bb9cb0b9
commit 621a6cd469
20 changed files with 4547 additions and 5186 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -344,6 +344,15 @@ Public Class ClassControlBuilder
ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt)
Case "CheckedListBoxControl"
ControlLoader.CheckedListBox.SetDataSource(DirectCast(dependingControl, DevExpress.XtraEditors.CheckedListBoxControl), dt)
'Hier werden nun evtl schon gesetzte Werte für CheckedListBox angehakt
' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
Dim values As List(Of Object) = (From row1 In CURRENT_CONTROL_VALUES.AsEnumerable()
Where row1.Item("CONTROL_ID") = dependingControlId
Select row1.Item("VALUE")).ToList()
ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_ID, dependingControlId, dependingControl, values, CURRENT_FORM_ID)
Case "Label"
If dt.Rows.Count = 1 Then
Try
@@ -513,6 +522,9 @@ Public Class ClassControlBuilder
ClassControlCommandsUI.UpdateMultipleValues(controlId, CURRENT_RECORD_ID, CONTROL_VALUE)
'End If
Dim SQL1 As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", CURRENT_RECORD_ID)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL1, "LoadControlValues")
CURRENT_CONTROL_VALUES = DT_ControlValues
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
@@ -524,7 +536,7 @@ Public Class ClassControlBuilder
Enable_Controls(control, datatable1, CONTROL_VALUE)
Dim values = New List(Of Object)(CONTROL_VALUE.Split(";").ToArray())
'Jetzt noch die checked Items setzen
ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_ID, controlId, control, values, 99)
' ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_ID, controlId, control, values, 99)
Catch ex As Exception
If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then

89
app/DD-Record-Organiser/ClassControlLoader.vb
View File

@@ -203,29 +203,34 @@
If ControlId = 272 Then
Console.WriteLine("272")
End If
Dim autoValue = LoadAutoValue(control, recordId, parentRecordId, entity_ID)
Dim autoValue
If IsNothing(autoValue) Then
If VARIABLE_VALUE = True Then
control.Text = value
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
If drarray.Length > 0 Then
Dim ID = drarray(0)("CONNECTION_ID").ToString
Dim Sql
If Not IsNothing(ID) Then
Sql = drarray(0)("SQL_COMMAND").ToString
Sql = ClassControlValues.ReplaceSqlCommandPlaceholders(Sql, recordId, parentRecordId, entity_ID)
autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
Else
If ControlId = 272 Then
Console.WriteLine("VertragsNr")
End If
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", ControlId, CURRENT_SCREEN_ID)
Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True)
If ctrl_screen_id > 0 Then
SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", ctrl_screen_id, USER_LANGUAGE)
Dim labelText As String = ClassDatabase.Execute_Scalar(SQL)
control.Text = labelText
End If
autoValue = ClassDatabase.Execute_Scalar(Sql, True)
End If
If IsNothing(autoValue) Then
If VARIABLE_VALUE = True Then
control.Text = value
Else
Sql = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", ControlId, CURRENT_SCREEN_ID)
Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(Sql, True)
If ctrl_screen_id > 0 Then
Sql = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", ctrl_screen_id, USER_LANGUAGE)
Dim labelText As String = ClassDatabase.Execute_Scalar(Sql)
control.Text = labelText
End If
End If
Else
control.Text = autoValue
End If
Else
control.Text = autoValue
End If
Catch ex As Exception
MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message)
@@ -279,16 +284,39 @@
If CURRENT_RECORD_ENABLED = False Then
control.Text = value
Else
If VARIABLE_VALUE = True Then
control.Text = value
Else
Dim autoValue = LoadAutoValue(control, recordId, parentRecordId, entity_ID)
If IsNothing(autoValue) Then
control.Text = value
Else
control.Text = autoValue
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
If drarray.Length > 0 Then
Dim autoValue
Dim ID = drarray(0)("CONNECTION_ID").ToString
Dim Sql = drarray(0)("SQL_COMMAND").ToString
If Not IsNothing(ID) Then
autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
Else
autoValue = ClassDatabase.Execute_Scalar(Sql, True)
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
If String.IsNullOrEmpty(autoValue) Or IsDBNull(autoValue) Then
control.Text = value
Else
control.Text = autoValue
End If
End If
'If USER_WAN = True Then 'WENN in einer WAN-Umgebung betrieben
'Else 'in LAN-Umgebung
' Dim autoValue = LoadAutoValue(control, recordId, parentRecordId, entity_ID)
' If IsNothing(autoValue) Then
' control.Text = value
' Else
' control.Text = autoValue
' End If
'End If
End If
End If
@@ -376,7 +404,10 @@
End If
For Each v As String In values
' Alle Werte, die v entsprechen, anhaken
'For i As Integer = 0 To control.ItemCount - 1
' Console.WriteLine(control.GetItemText(i))
'Next i
Dim posBefore As Integer = 0
While (control.FindStringExact(v, posBefore) > -1)
Dim pos = control.FindStringExact(v, posBefore)
@@ -391,11 +422,7 @@
End If
End While
'Dim pos = control.FindStringExact(v)
'If pos >= 0 Then
' control.SetItemCheckState(pos, CheckState.Checked)
'End If
Next
End Sub

36
app/DD-Record-Organiser/ClassControlValues.vb
View File

@@ -144,9 +144,17 @@ Public Class ClassControlValues
Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection, Entity_ID As Integer)
Try
Dim sw As New Stopwatch
sw.Start()
'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, "LoadControlValues")
CURRENT_CONTROL_VALUES = DT_ControlValues
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load VWPMO_VALUES via SQL took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
If controls.Count = 0 Then
ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True)
@@ -157,26 +165,38 @@ Public Class ClassControlValues
' Zuerst alle Controls leeren
ClearControlValues(controls)
sw.Start()
' Load all Hints for controls
LoadControlHints(controls)
Dim SQLHint = "SELECT * FROM VWPMO_CONTROL_HINT WHERE FORM_ID = " & FormId
Dim DT_Hints As DataTable = ClassDatabase.Return_Datatable(SQLHint, "LoadControlHints")
' ' Hint in DT_Hints suchen der zur aktuellen controlId passt
For Each row As DataRow In DT_Hints.Rows
ClassControlValueCache.SaveHint(row.Item(1), row.Item(2))
Next
' LoadControlHints(controls)
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlHints took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
sw.Start()
Dim result As Double = 0
For Each control As Control In controls
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable()
Where row.Item("CONTROL_ID") = ControlId
Select row.Item("VALUE")).ToList()
If TypeOf control Is GroupBox Then
Dim groupbox As GroupBox = DirectCast(control, GroupBox)
LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID)
Else
LoadControlValue(RecordId, ParentRecordId, ControlId, control, values, Entity_ID)
End If
Next
Console.WriteLine("Secons Sum: " & result)
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Loop LoadControlValue took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesNeu: " & ex.Message, True)
MsgBox("Error in LoadControlValuesNeu:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -398,7 +418,7 @@ Public Class ClassControlValues
Dim elapsed As Double
elapsed = SW.Elapsed.TotalSeconds
SW.Stop()
Console.WriteLine("LoadControlValuesListWithPlaceholders took {0} to load", Format(elapsed, "0.000000000") & " seconds")
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlValuesListWithPlaceholders took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True)
MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -466,7 +486,7 @@ Public Class ClassControlValues
Dim elapsed As Double
elapsed = SW.Elapsed.TotalSeconds
SW.Stop()
Console.WriteLine("Enable_Depending_Controls took {0} to load", Format(elapsed, "0.000000000") & " seconds")
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Enable_Depending_Controls took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True)
MsgBox("Unexpected Error in Enable_Depending_Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

1
app/DD-Record-Organiser/ClassInit.vb
View File

@@ -70,6 +70,7 @@ Public Class ClassInit
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
Else
USER_WAN = ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID)
Dim i As Integer = 0

30
app/DD-Record-Organiser/DD_DMSDataSet.xsc
View File

@@ -99,39 +99,29 @@
<TableUISetting Name="TBDD_USER">
<ColumnUISettings>
<ColumnUISetting Name="LOG_IN_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="LOG_OUT_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="LANGUAGE">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>

16
app/DD-Record-Organiser/DD_DMSDataSet.xsd
View File

@@ -1170,8 +1170,8 @@ WHERE (GUID = @Original_GUID)</CommandText>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_USER
(PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMMENT)
VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT);
(PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMMENT, WAN_ENVIRONMENT)
VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN_ENVIRONMENT);
SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="PRENAME" ColumnName="PRENAME" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PRENAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PRENAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -1183,13 +1183,14 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE
<Parameter AllowDbNull="false" AutogeneratedName="LANGUAG" ColumnName="LANGUAGE" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(5)" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAG" Precision="0" ProviderType="VarChar" Scale="0" Size="5" SourceColumn="LANGUAGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SHORTNAME" ColumnName="SHORTNAME" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@SHORTNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="SHORTNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WAN_ENVIRONMENT" ColumnName="WAN_ENVIRONMENT" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WAN_ENVIRONMENT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WAN_ENVIRONMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,
LANGUAGE, COMMENT, SHORTNAME
LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT
FROM TBDD_USER
WHERE (MODULE_RECORD_ORG = 1)
ORDER BY USERNAME</CommandText>
@@ -1200,8 +1201,8 @@ ORDER BY USERNAME</CommandText>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_USER
SET PRENAME = @PRENAME, NAME = @NAME, USERNAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUAGE,
SHORTNAME = @SHORTNAME, COMMENT = @COMMENT
WHERE (GUID = @Original_GUID);
SHORTNAME = @SHORTNAME, COMMENT = @COMMENT, WAN_ENVIRONMENT = @WAN_ENVIRONMENT
WHERE (GUID = @Original_GUID);
SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="PRENAME" ColumnName="PRENAME" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PRENAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PRENAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -1213,6 +1214,7 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE
<Parameter AllowDbNull="false" AutogeneratedName="LANGUAGE" ColumnName="LANGUAGE" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(5)" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAGE" Precision="0" ProviderType="VarChar" Scale="0" Size="5" SourceColumn="LANGUAGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SHORTNAME" ColumnName="SHORTNAME" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@SHORTNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="SHORTNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WAN_ENVIRONMENT" ColumnName="WAN_ENVIRONMENT" DataSourceName="DD_ECM.dbo.TBDD_USER" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WAN_ENVIRONMENT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WAN_ENVIRONMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_USER" 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.dbo.TBDD_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@@ -1238,6 +1240,7 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE
<Mapping SourceColumn="LANGUAGE" DataSetColumn="LANGUAGE" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
<Mapping SourceColumn="SHORTNAME" DataSetColumn="SHORTNAME" />
<Mapping SourceColumn="WAN_ENVIRONMENT" DataSetColumn="WAN_ENVIRONMENT" />
</Mappings>
<Sources />
</TableAdapter>
@@ -4046,7 +4049,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
</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="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" />
<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">
@@ -4077,6 +4080,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WAN_ENVIRONMENT" msprop:Generator_ColumnVarNameInTable="columnWAN_ENVIRONMENT" msprop:Generator_ColumnPropNameInRow="WAN_ENVIRONMENT" msprop:Generator_ColumnPropNameInTable="WAN_ENVIRONMENTColumn" msprop:Generator_UserColumnName="WAN_ENVIRONMENT" type="xs:boolean" default="false" />
</xs:sequence>
</xs:complexType>
</xs:element>

161
app/DD-Record-Organiser/DD_DMSDataSet.xss
View File

@@ -4,54 +4,55 @@
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="100" ViewPortY="97" 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="640" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPMO_FORM" ZOrder="9" X="389" Y="366" Height="286" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="40" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="4" X="454" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD" ZOrder="39" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="16" X="555" Y="415" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_FVIEW_DT_INDEX" ZOrder="58" X="819" Y="147" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK" ZOrder="38" X="603" Y="718" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="1" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_GUI_ENTITY" ZOrder="35" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="3" X="192" Y="678" Height="210" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_WF_OVERVIEW_AUTHORITY" ZOrder="37" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="5" X="1349" Y="450" Height="344" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="57" X="1701" Y="652" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="30" X="1687" Y="332" Height="282" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="192" />
<Shape ID="DesignTable:TBPMO_WD_FORMVIEW_DOKTYPES" ZOrder="56" X="427" Y="-11" Height="287" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_KONFIGURATION" ZOrder="52" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="49" X="1632" Y="12" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBPMO_FORM_TYPE" ZOrder="51" X="1357" Y="80" Height="191" Width="263" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="12" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:VWPMO_USERS_GROUPS" ZOrder="48" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="13" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBWH_DOKART_MODULE" ZOrder="47" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="14" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="44" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FILES_USER" ZOrder="19" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="18" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" />
<Shape ID="DesignTable:TBPMO_FOLLUPEMAIL_USER" ZOrder="43" X="59" Y="77" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_RECORD_LOG_CONFIG" ZOrder="36" X="1128" Y="408" Height="300" Width="235" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="232" />
<Shape ID="DesignTable:VWPMO_RECORD_CHANGES" ZOrder="41" X="1673" Y="790" Height="173" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="10" X="844" Y="43" Height="267" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="34" X="462" Y="673" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR_DETAIL" ZOrder="20" X="1246" Y="352" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="31" X="1300" Y="812" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_TEMPLATE" ZOrder="29" X="2444" Y="43" Height="229" Width="255" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_TEMPLATE_ENTITY" ZOrder="28" X="2068" Y="300" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBPMO_TEMPLATE_PATTERN" ZOrder="25" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="23" X="2117" Y="51" Height="115" Width="210" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="17" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CLIENT" ZOrder="15" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_CONSTRUCTOR_USER_SQL" ZOrder="6" X="258" Y="41" Height="280" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="212" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE" ZOrder="11" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE_IDX" ZOrder="8" X="1895" Y="934" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="2" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" />
<Shape ID="DesignTable:TBPMO_FORM" ZOrder="14" X="389" Y="366" Height="286" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="44" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="9" X="454" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD" ZOrder="43" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="20" X="555" Y="415" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_FVIEW_DT_INDEX" ZOrder="61" X="819" Y="147" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK" ZOrder="42" X="603" Y="718" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="6" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_GUI_ENTITY" ZOrder="39" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="8" X="192" Y="678" Height="210" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_WF_OVERVIEW_AUTHORITY" ZOrder="41" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="10" X="1349" Y="450" Height="344" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="60" X="1701" Y="652" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="34" X="1687" Y="332" Height="282" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="192" />
<Shape ID="DesignTable:TBPMO_WD_FORMVIEW_DOKTYPES" ZOrder="59" X="427" Y="-11" Height="287" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_KONFIGURATION" ZOrder="55" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="1" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBPMO_FORM_TYPE" ZOrder="54" X="1357" Y="80" Height="191" Width="263" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="2" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:VWPMO_USERS_GROUPS" ZOrder="52" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="17" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBWH_DOKART_MODULE" ZOrder="51" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="18" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="48" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FILES_USER" ZOrder="23" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="22" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" />
<Shape ID="DesignTable:TBPMO_FOLLUPEMAIL_USER" ZOrder="47" X="59" Y="77" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_RECORD_LOG_CONFIG" ZOrder="40" X="1128" Y="408" Height="300" Width="235" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="232" />
<Shape ID="DesignTable:VWPMO_RECORD_CHANGES" ZOrder="45" X="1673" Y="790" Height="173" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="15" X="844" Y="43" Height="267" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="38" X="462" Y="673" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR_DETAIL" ZOrder="24" X="1246" Y="352" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="35" X="1300" Y="812" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_TEMPLATE" ZOrder="33" X="2444" Y="43" Height="229" Width="255" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_TEMPLATE_ENTITY" ZOrder="32" X="2068" Y="300" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBPMO_TEMPLATE_PATTERN" ZOrder="29" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="27" X="2117" Y="51" Height="115" Width="210" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="21" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CLIENT" ZOrder="19" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_CONSTRUCTOR_USER_SQL" ZOrder="11" X="258" Y="41" Height="280" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="212" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE" ZOrder="16" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE_IDX" ZOrder="13" X="1895" Y="934" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="7" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" />
<Shape ID="DesignTable:TBPMO_RIGHT_GROUP" ZOrder="5" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="59" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="62" LineWidth="11">
<RoutePoints>
<Point>
<X>437</X>
@@ -67,7 +68,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="55" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="58" LineWidth="11">
<RoutePoints>
<Point>
<X>1701</X>
@@ -79,7 +80,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="54" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="57" LineWidth="11">
<RoutePoints>
<Point>
<X>1627</X>
@@ -91,7 +92,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID1" ZOrder="53" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID1" ZOrder="56" LineWidth="11">
<RoutePoints>
<Point>
<X>710</X>
@@ -107,7 +108,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_FORM_TYPE_ID" ZOrder="50" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FORM_FORM_TYPE_ID" ZOrder="53" LineWidth="11">
<RoutePoints>
<Point>
<X>1374</X>
@@ -123,7 +124,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="46" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="50" LineWidth="11">
<RoutePoints>
<Point>
<X>842</X>
@@ -135,7 +136,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="45" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="49" LineWidth="11">
<RoutePoints>
<Point>
<X>107</X>
@@ -155,7 +156,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" ZOrder="42" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" ZOrder="46" LineWidth="11">
<RoutePoints>
<Point>
<X>1632</X>
@@ -167,7 +168,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" ZOrder="33" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" ZOrder="37" LineWidth="11">
<RoutePoints>
<Point>
<X>1358</X>
@@ -179,7 +180,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" ZOrder="32" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" ZOrder="36" LineWidth="11">
<RoutePoints>
<Point>
<X>601</X>
@@ -195,7 +196,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" ZOrder="27" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" ZOrder="31" LineWidth="11">
<RoutePoints>
<Point>
<X>618</X>
@@ -207,7 +208,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" ZOrder="26" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" ZOrder="30" LineWidth="11">
<RoutePoints>
<Point>
<X>2461</X>
@@ -223,7 +224,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" ZOrder="24" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" ZOrder="28" LineWidth="11">
<RoutePoints>
<Point>
<X>2358</X>
@@ -235,7 +236,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" ZOrder="22" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" ZOrder="26" LineWidth="11">
<RoutePoints>
<Point>
<X>2134</X>
@@ -251,7 +252,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" ZOrder="21" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" ZOrder="25" LineWidth="11">
<RoutePoints>
<Point>
<X>2142</X>
@@ -267,7 +268,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" ZOrder="7" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" ZOrder="12" LineWidth="11">
<RoutePoints>
<Point>
<X>141</X>
@@ -283,5 +284,45 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="4" LineWidth="11">
<RoutePoints>
<Point>
<X>22</X>
<Y>0</Y>
</Point>
<Point>
<X>22</X>
<Y>-30</Y>
</Point>
<Point>
<X>22</X>
<Y>-30</Y>
</Point>
<Point>
<X>22</X>
<Y>0</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="3" LineWidth="11">
<RoutePoints>
<Point>
<X>14</X>
<Y>0</Y>
</Point>
<Point>
<X>14</X>
<Y>-30</Y>
</Point>
<Point>
<X>14</X>
<Y>-30</Y>
</Point>
<Point>
<X>14</X>
<Y>0</Y>
</Point>
</RoutePoints>
</Connector>
</Connectors>
</DiagramLayout>

313
app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb generated
View File

@@ -8704,6 +8704,8 @@ Partial Public Class DD_DMSDataSet
Private columnSHORTNAME As Global.System.Data.DataColumn
Private columnWAN_ENVIRONMENT As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New()
@@ -8875,6 +8877,14 @@ Partial Public Class DD_DMSDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWAN_ENVIRONMENT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -8928,9 +8938,10 @@ Partial Public Class DD_DMSDataSet
ByVal RECORD_ADMIN As Boolean, _
ByVal LANGUAGE As String, _
ByVal COMMENT As String, _
ByVal SHORTNAME As String) As TBDD_USERRow
ByVal SHORTNAME As String, _
ByVal WAN_ENVIRONMENT As Boolean) As TBDD_USERRow
Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME}
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT}
rowTBDD_USERRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_USERRow)
Return rowTBDD_USERRow
@@ -8976,6 +8987,7 @@ Partial Public Class DD_DMSDataSet
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnSHORTNAME = MyBase.Columns("SHORTNAME")
Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -9015,6 +9027,8 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSHORTNAME)
Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AllowDBNull = false
@@ -9030,6 +9044,7 @@ Partial Public Class DD_DMSDataSet
Me.columnLOGGED_WHERE.MaxLength = 50
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnRECORD_ADMIN.AllowDBNull = false
Me.columnRECORD_ADMIN.DefaultValue = CType(false,Boolean)
@@ -9038,6 +9053,8 @@ Partial Public Class DD_DMSDataSet
Me.columnLANGUAGE.MaxLength = 5
Me.columnCOMMENT.MaxLength = 200
Me.columnSHORTNAME.MaxLength = 30
Me.columnWAN_ENVIRONMENT.AllowDBNull = false
Me.columnWAN_ENVIRONMENT.DefaultValue = CType(False, Boolean)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -23961,11 +23978,7 @@ Partial Public Class DD_DMSDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e)
End Try
Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date)
End Get
Set
Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value
@@ -24054,6 +24067,17 @@ Partial Public Class DD_DMSDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property WAN_ENVIRONMENT() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsPRENAMENull() As Boolean
@@ -24126,18 +24150,6 @@ Partial Public Class DD_DMSDataSet
Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
@@ -37493,6 +37505,7 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE")
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME")
tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -37501,259 +37514,263 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (PRENAME, NAME, USERNAME, EMAIL, " & _
"LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMM" & _
"ENT)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1" & _
",@LANGUAG,@SHORTNAME,@COMMENT); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL" & _
", LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, A" & _
"DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY" & _
"())"
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _
"LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMM"& _
"ENT, WAN_ENVIRONMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN"& _
", 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN_ENVIRONMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
"UID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_O"& _
"UT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBD"& _
"D_USER WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET PRENAME = @PRENAME, NAME = @NAME, USER" & _
"NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C" & _
"HANGED_WHO, LANGUAGE = @LANGUAGE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SHORTNAME = @SHORTN" & _
"AME, COMMENT = @COMMENT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, " & _
"PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WH" & _
"EN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USE" & _
"R WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _
"NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _
"HANGED_WHO, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SHORTNAME = @SHORTN"& _
"AME, COMMENT = @COMMENT, WAN_ENVIRONMENT = @WAN_ENVIRONMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _
"= @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, "& _
"LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CH"& _
"ANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_" & _
"IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED" & _
"_WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " LANGUAGE, COMMENT, SHORTNAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _
"TBDD_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (MODULE_RECORD_ORG = 1)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY USERNAME"
Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _
"IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _
"_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_RECORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY USERN"& _
"AME"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = True) Then
dataTable.Clear()
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], True)> _
Public Overridable Overloads Function GetData() As DD_DMSDataSet.TBDD_USERDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USERDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As DD_DMSDataSet.TBDD_USERDataTable = New DD_DMSDataSet.TBDD_USERDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSet) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer
Return Me.Adapter.Update(dataSet, "TBDD_USER")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, True)> _
Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer)
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.DeleteCommand.Connection.Open()
Me.Adapter.DeleteCommand.Connection.Open
End If
Try
Try
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.DeleteCommand.Connection.Close()
Me.Adapter.DeleteCommand.Connection.Close
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _
Public Overridable Overloads Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean) As Integer
If (PRENAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME, String)
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String)
End If
If (NAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME, String)
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String)
End If
If (USERNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("USERNAME")
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME, String)
Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String)
End If
If (EMAIL Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL, String)
Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String)
End If
Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN, Boolean)
Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN,Boolean)
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO, String)
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String)
End If
If (LANGUAG Is Nothing) Then
Throw New Global.System.ArgumentNullException("LANGUAG")
Else
Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG, String)
Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG,String)
End If
If (SHORTNAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME, String)
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME,String)
End If
If (COMMENT Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT, String)
Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT,String)
End If
Me.Adapter.InsertCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.InsertCommand.Connection.Open()
Me.Adapter.InsertCommand.Connection.Open
End If
Try
Try
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.InsertCommand.Connection.Close()
Me.Adapter.InsertCommand.Connection.Close
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _
Public Overridable Overloads Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (PRENAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME, String)
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String)
End If
If (NAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME, String)
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String)
End If
If (USERNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("USERNAME")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME, String)
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String)
End If
If (EMAIL Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL, String)
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String)
End If
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN, Boolean)
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN,Boolean)
If (CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO, String)
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String)
End If
If (LANGUAGE Is Nothing) Then
Throw New Global.System.ArgumentNullException("LANGUAGE")
Else
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE, String)
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE,String)
End If
If (SHORTNAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORTNAME, String)
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORTNAME,String)
End If
If (COMMENT Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COMMENT, String)
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COMMENT,String)
End If
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer)
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Integer)
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean)
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.UpdateCommand.Connection.Open()
Me.Adapter.UpdateCommand.Connection.Open
End If
Try
Try
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.UpdateCommand.Connection.Close()
Me.Adapter.UpdateCommand.Connection.Close
End If
End Try
End Function

5
app/DD-Record-Organiser/ModuleMySettings.vb
View File

@@ -29,6 +29,7 @@ Module ModuleMySettings
Public USERS_LOGGED_IN = 0
Public USER_GUID = 0
Public USER_LANGUAGE As String = "de-DE"
Public USER_WAN As Boolean = False
Public USER_CLIENTS_COMMA_SEPERATED As String
Public sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
@@ -286,6 +287,10 @@ Module ModuleMySettings
newRow11("ConfigName") = "Task_Popup_minutes"
newRow11("Value") = "2"
table.Rows.Add(newRow11)
Dim newRow12 As DataRow = table.NewRow()
newRow12("ConfigName") = "WAN_ENVIRONMENT"
newRow12("Value") = "False"
table.Rows.Add(newRow12)
table.AcceptChanges()
ClassLogger.Add(">> CreateConfigTable su...", False)

6
app/DD-Record-Organiser/ModuleRuntimeVariables.vb
View File

@@ -59,5 +59,11 @@
Public CURRENT_RECORD_ENABLED As Boolean = False
Public ENTITY_RELOAD_AFT_CONTROL_LOAD As Boolean = False
Public CURRENT_COL_COUNT As Integer = 0
Public CURRENT_ENTITY_DATATABLE As DataTable
Public CURRENT_ENTITY_VALUES_DT As DataTable
Public CURRENT_CONTROL_VALUES As DataTable
Public CURRENT_SQL_AUTO_VALUES_DT As DataTable
End Module

64
app/DD-Record-Organiser/frmConfig_Basic.Designer.vb generated
View File

@@ -37,7 +37,9 @@ Partial Class frmConfig_Basic
Me.txtServer = New System.Windows.Forms.TextBox()
Me.txtUser = New System.Windows.Forms.TextBox()
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Button4 = New System.Windows.Forms.Button()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
@@ -57,6 +59,8 @@ Partial Class frmConfig_Basic
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.chkboxQuickMenue = New System.Windows.Forms.CheckBox()
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label9 = New System.Windows.Forms.Label()
@@ -65,10 +69,6 @@ Partial Class frmConfig_Basic
Me.Button2 = New System.Windows.Forms.Button()
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -172,6 +172,13 @@ Partial Class frmConfig_Basic
Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.UseSystemPasswordChar = True
'
'BtnConnect
'
Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go1
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Button4)
@@ -188,6 +195,13 @@ Partial Class frmConfig_Basic
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_go
resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Name = "Button4"
Me.Button4.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.Label11)
@@ -313,6 +327,20 @@ Partial Class frmConfig_Basic
Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly"
Me.chkLogErrorsOnly.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.UseVisualStyleBackColor = True
'
'LinkLabel1
'
resources.ApplyResources(Me.LinkLabel1, "LinkLabel1")
@@ -368,34 +396,6 @@ Partial Class frmConfig_Basic
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
'
'BtnConnect
'
Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go1
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_go
resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Name = "Button4"
Me.Button4.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.UseVisualStyleBackColor = True
'
'btnstartstop2
'
Me.btnstartstop2.Image = Global.DD_Record_Organiser.My.Resources.Resources.bell_go

15
app/DD-Record-Organiser/frmConfig_Basic.resx
View File

@@ -448,7 +448,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>687, 261</value>
<value>687, 333</value>
</data>
<data name="TabPage1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -932,7 +932,7 @@
<value>NoControl</value>
</data>
<data name="chkboxQuickMenue.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 21</value>
<value>10, 21</value>
</data>
<data name="chkboxQuickMenue.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 17</value>
@@ -1115,7 +1115,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>687, 261</value>
<value>687, 333</value>
</data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -1343,7 +1343,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage3.Size" type="System.Drawing.Size, System.Drawing">
<value>687, 261</value>
<value>687, 333</value>
</data>
<data name="TabPage3.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -1370,7 +1370,7 @@
<value>0, 0</value>
</data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>695, 287</value>
<value>695, 359</value>
</data>
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -1394,7 +1394,7 @@
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>695, 287</value>
<value>695, 359</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
@@ -1778,9 +1778,6 @@
mf8BAK//A8C3/wPgtf8DwLb/AIC2/wAAtf8AALX/AAC2/8ABtP/AA7D/8A+u/w==
</value>
</data>
<data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>

1
app/DD-Record-Organiser/frmConfig_Basic.vb
View File

@@ -179,7 +179,6 @@ Public Class frmConfig_Basic
LogErrorsOnly = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
End Sub
Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged
Sett_ShowQuickMenue = chkboxQuickMenue.Checked
SaveMySettingsValue("Sett_ShowQuickMenue", Sett_ShowQuickMenue, "ConfigMain")

54
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

@@ -193,7 +193,7 @@
<value>Panel1</value>
</data>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>615, 17</value>
<value>461, 17</value>
</metadata>
<data name="FunktionenDataGridToolStripMenuItem.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
@@ -298,7 +298,7 @@
<value>0, 0</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>788, 248</value>
<value>795, 248</value>
</data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -373,7 +373,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value>
<value>1072, 338</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -391,7 +391,7 @@
<value>0</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value>
<value>1072, 338</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@@ -409,7 +409,7 @@
<value>0</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1071, 362</value>
<value>1078, 369</value>
</data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -469,7 +469,7 @@
<value>192, 255, 192</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 309</value>
<value>1072, 313</value>
</data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
@@ -522,7 +522,7 @@
<value>1</value>
</data>
<metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>179, 56</value>
<value>17, 56</value>
</metadata>
<data name="tslblWindreamView.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold, Italic</value>
@@ -565,7 +565,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 25</value>
<value>1072, 25</value>
</data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -586,7 +586,7 @@
<value>2</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value>
<value>1072, 338</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-Dateien</value>
@@ -1017,7 +1017,7 @@
<value>2</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value>
<value>1072, 338</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value>
@@ -1044,7 +1044,7 @@
<value>Cyan</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 309</value>
<value>1072, 313</value>
</data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -1068,7 +1068,7 @@
<value>0, 25</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 309</value>
<value>1072, 313</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -1243,7 +1243,7 @@
<value>0, 0</value>
</data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 25</value>
<value>1072, 25</value>
</data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -1272,7 +1272,7 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value>
<value>1072, 338</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value>
@@ -1302,7 +1302,7 @@
<value>0</value>
</data>
<metadata name="ToolStripEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>911, 17</value>
<value>757, 17</value>
</metadata>
<data name="tsButtonAdd.Enabled" type="System.Boolean, mscorlib">
<value>False</value>
@@ -1484,7 +1484,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1071, 25</value>
<value>1078, 25</value>
</data>
<data name="ToolStripEdit.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -1589,7 +1589,7 @@
<value>Panel2</value>
</data>
<data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 387</value>
<value>1083, 394</value>
</data>
<data name="SplitContainerBottom.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -1634,7 +1634,7 @@
<value>4</value>
</data>
<metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>314, 17</value>
<value>160, 17</value>
</metadata>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1691,7 +1691,7 @@
<value>6</value>
</data>
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>171, 17</value>
<value>17, 17</value>
</metadata>
<data name="tsslblStatus.Size" type="System.Drawing.Size, System.Drawing">
<value>53, 17</value>
@@ -1739,10 +1739,10 @@
<value>5</value>
</data>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>480, 17</value>
<value>326, 17</value>
</metadata>
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>764, 17</value>
<value>610, 17</value>
</metadata>
<assembly alias="DevExpress.Utils.v15.1" name="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.1" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1753,10 +1753,10 @@
</value>
</data>
<metadata name="ttToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1032, 17</value>
<value>878, 17</value>
</metadata>
<metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>979, 17</value>
</metadata>
<data name="ContextMenuDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>61, 4</value>
@@ -1768,13 +1768,13 @@
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 56</value>
<value>182, 56</value>
</metadata>
<metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>634, 56</value>
<value>472, 56</value>
</metadata>
<metadata name="VWPMO_WF_USER_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>912, 56</value>
<value>750, 56</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
@@ -1792,7 +1792,7 @@
<value>672, 95</value>
</metadata>
<metadata name="ToolTipController.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>487, 56</value>
<value>325, 56</value>
</metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>

112
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -131,6 +131,7 @@ Public Class frmConstructor_Main
Private FORMVIEW_ID As Integer
Private _ENTITYSQL As String
Private _VIEWNAME As String
Private _ENTITYSTRING As String
Private RESULT_DOC_PATH
@@ -577,6 +578,7 @@ Public Class frmConstructor_Main
Try
If GRID_TYPE = GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
_VIEWNAME = "VWTEMP_PMO_FORM" & FormId.ToString
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
Else 'Tiles und Carousel bekommen Quick View
_ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1} AND SCREEN_ID = {2}", ConstructorId, FormId, CURRENT_SCREEN_ID)
@@ -595,6 +597,7 @@ Public Class frmConstructor_Main
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
End If
End If
Try
Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
Dim exists = ClassDatabase.Execute_Scalar(sql)
@@ -709,9 +712,16 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.Default
End Sub
Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Me.Cursor = Cursors.WaitCursor
Column_Row_Handler()
Me.Cursor = Cursors.Default
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> GridView_FocusedRowChanged took " & Format(elapsed, "0.000000000") & " seconds", False)
'If dataloaded = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
' Dim selRecID = GetSelected_RecordID()
@@ -728,7 +738,9 @@ Public Class frmConstructor_Main
End If
End Sub
Sub Column_Row_Handler()
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub
End If
@@ -774,30 +786,30 @@ Public Class frmConstructor_Main
Check_Record_Changed()
DisableEditMode()
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Precheck Row took " & Format(elapsed, "0.000000000") & " seconds", False)
sw.Start()
' muss vor show selected record data kommen,
' sodass die datasource für die angehakten werte existiert (checked list box)
ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
Show_Selected_Record_Data(Grid_RecordID, False)
Dim sw1 As New Stopwatch
sw1.Start()
Check_Rights()
elapsed = sw1.Elapsed.TotalSeconds
sw1.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Rights took " & Format(elapsed, "0.000000000") & " seconds", False)
If TCDetails.SelectedTabPage Is Nothing Then
Exit Sub
End If
If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
Clear_GridPos_View()
Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
'If Not IsNothing(POS_GRID_RECORD) Then
' If POS_GRID_RECORD <> POS_RECORD_ID Then
' End If
'Else
' Load_Pos_Data()
' Load_POSGrid_Layout()
'End If
Load_Pos_Data()
Load_POSGrid_Layout()
End If
If RECORD_ID > 0 Then
@@ -808,10 +820,10 @@ Public Class frmConstructor_Main
End If
End If
End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> Column/Row Change took " & Format(elapsed, "0.000000000") & " seconds", False)
End Sub
Sub Check_Rights()
@@ -1090,8 +1102,6 @@ Public Class frmConstructor_Main
Sub Get_RecordCounts_Nodes()
Try
Dim sw As New Stopwatch
sw.Start()
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes
@@ -1136,11 +1146,6 @@ Public Class frmConstructor_Main
End If
Next
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get_RecordCounts_Nodes took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Error in Get_RecordCounts_Nodes:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
@@ -1323,7 +1328,6 @@ Public Class frmConstructor_Main
tsButtonCancel.Visible = True
CURRENT_PARENT_ID = PARENT_ID
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
' Den Record anlegen, damit wir eine RECORD_ID bekommen
ClassControlCommandsUI.CreateRecord(ENTITY_ID)
' Die RECORD_ID auslesen und setzen
@@ -1331,6 +1335,7 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = NewRecordId
RECORD_ID = NewRecordId
SELECTED_RECORD_ID = NewRecordId
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
' Das StatusLabel aktualisieren
Update_Record_Label(NewRecordId)
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
@@ -1920,7 +1925,7 @@ Public Class frmConstructor_Main
_ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Catch ex As Exception
ClassLogger.Add("Error in Replacing patterns in entity_sql: " & ex.Message)
End Try
Else
Console.WriteLine("Ebene 2 wurde nicht ausgewählt")
@@ -1994,9 +1999,32 @@ Public Class frmConstructor_Main
GridControlMain.Visible = True
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "LoadEntityData - Get DTEntity")
DTEntity.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID
If IsNothing(DTEntity) Then
MsgBox("Unexpected Error in getting Entity-Data - Check Logfile", MsgBoxStyle.Critical)
Else
Dim SQL_AutoValues = "SELECT GUID AS CONTROL_ID, CONNECTION_ID_1 AS CONNECTION_ID, SQL_COMMAND_1 AS SQL_COMMAND FROM TBPMO_CONTROL WHERE CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID
Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, "LoadAutoValues")
CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES
If USER_WAN = True Then
Dim MyDataset As DataSet = New DataSet("MY_DATASET")
MyDataset.Tables.Add(DTEntity)
Console.WriteLine(DTEntity.TableName)
CURRENT_ENTITY_DATATABLE = DTEntity
Dim SQL_VALUES As String = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID IN (SELECT [Record-ID] FROM VWTEMP_PMO_FORM" & ENTITY_ID & ")"
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL_VALUES, "LoadControlValues")
If Not IsNothing(DT_ControlValues) Then
DT_ControlValues.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID & "_VALUES"
MyDataset.Tables.Add(DT_ControlValues)
CURRENT_ENTITY_VALUES_DT = DT_ControlValues
End If
End If
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
@@ -2563,9 +2591,6 @@ Public Class frmConstructor_Main
End Sub
Private Sub Show_Selected_Record_Data(Rec_ID As Integer, EntityLoad As Boolean)
Try
Dim sw As New Stopwatch
sw.Start()
Update_Status_Label(False, "")
If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False)
'Me.pnlDetails.Visible = True
@@ -2639,17 +2664,11 @@ Public Class frmConstructor_Main
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
Dim sw1 As New Stopwatch
sw1.Start()
ENTITY_RELOAD_AFT_CONTROL_LOAD = False
CtrlBuilder.WatchRecordChanges = False
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
CtrlBuilder.WatchRecordChanges = True
Dim elapsed1 As Double
elapsed1 = sw1.Elapsed.TotalSeconds
sw1.Stop()
sw1.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValues took " & Format(elapsed1, "0.000000000") & " seconds", False)
If windream_Docshow = True Then
Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then
@@ -2672,7 +2691,8 @@ Public Class frmConstructor_Main
'ListBoxUser2Profile.Items.Clear()
grpbxFU_Profile.Enabled = False
End Select
Dim sw As New Stopwatch
sw.Start()
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
@@ -2690,12 +2710,11 @@ Public Class frmConstructor_Main
Me.tsButtonShowWorkflowTasks.Enabled = True
Me.tsButtonShowTaskOverview.Enabled = True
RECORD_ID = SELECTED_RECORD_ID
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
elapsed = sw.Elapsed.TotalSeconds - elapsed
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Show Selected RecordData took " & Format(elapsed, "0.000000000") & " seconds", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Show Selected RecordData 2 took " & Format(elapsed, "0.000000000") & " seconds", False)
If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
Reload_Entity_while_Control_Load()
End If
@@ -4700,12 +4719,6 @@ Public Class frmConstructor_Main
e.Appearance.BackColor = Color.Orange
End If
End Sub
Private Sub grvwGrid_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles grvwGrid.SelectionChanged
End Sub
Private Sub grvwGrid_MouseDown(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseDown, grvwTiles.MouseDown, grvwCarousel.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
RightMouse_Clicked = True
@@ -4908,9 +4921,14 @@ Public Class frmConstructor_Main
SET_ROWCOUNT_STRING()
End Sub
Sub SET_ROWCOUNT_STRING()
Dim nodetext = ACT_EBENE_STRING
nodetext = nodetext & " (" & grvwGrid.RowCount & ")"
TreeViewMain.SelectedNode.Text = nodetext
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim origtext As String = selnode.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
selnode.Text = String.Format("{0} ({1})", existingstring, grvwGrid.RowCount)
Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount)
End If
End Sub
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.

32
app/DD-Record-Organiser/frmSAP_FuBa.vb
View File

@@ -141,7 +141,7 @@ Public Class frmSAP_FuBa
End If
'######
Dim i = 0
Dim tablename = "[DD_ECM].[dbo].[TPPMO_SAPFUBA_ " & TempTableNameTextBox.Text & "]"
Dim tablename = "[TPPMO_SAPFUBA_" & TempTableNameTextBox.Text & "]"
Dim createtablesql = "CREATE TABLE TPPMO_SAPFUBA_" & TempTableNameTextBox.Text & " ("
@@ -157,11 +157,15 @@ Public Class frmSAP_FuBa
Dim check = String.Format("SELECT 1 FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE' AND TABLE_NAME='{0}'", tablename)
If ClassDatabase.Execute_Scalar(check) = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(">> TempTable " & tablename & " exists and will now be deleted!", False)
' ClassDatabase.Execute_non_Query_withConn("DROP TABLE " & tablename, 1)
End If
''Die Tabelle anlegen
If LogErrorsOnly = False Then ClassLogger.Add(">> Create Table: " & createtablesql, False)
ClassDatabase.Execute_non_Query_withConn(createtablesql, 1)
Dim del = "delete from " & tablename
ClassDatabase.Execute_non_Query_withConn(del, 1)
'If ClassDatabase.Execute_non_Query_withConn(createtablesql, 1) = False Then
' Me.Cursor = Cursors.Default
' MsgBox("Error while creating the temporary table. Please check the logfile!", MsgBoxStyle.Critical)
@@ -170,15 +174,29 @@ Public Class frmSAP_FuBa
Dim ins = "Insert into " & tablename & "("
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM " & tablename)
If Not IsNothing(DT) Then
Dim i As Integer = 0
For Each DataColumn In DT.Columns
ins = ins &
Dim anz As Integer = 0
For Each col As DataColumn In DT.Columns
If anz = 0 Then
ins = ins & col.ColumnName
Else
ins = ins & ", " & col.ColumnName
End If
anz += 1
Next
ins = ins & ") VALUES ("
End If
Try
For Each row As DataRow In SAPResulttable.Rows
Next
'For Each row As DataRow In SAPResulttable.Rows
' For x = 0 To CURRENT_COL_COUNT
' If x = 0 Then
' ins = ins & "'" & row.Item(x).ToString & "', "
' Else
' ins = ins & "'" & row.Item(x).ToString & "'"
' End If
' ins = ins & ")"
' Next
' ClassDatabase.Execute_non_Query_withConn(ins, 1)
'Next
Dim OwnerCS As String
OwnerCS = ClassDatabase.GetConnectionString(1)
Dim SQLconnect As New SqlClient.SqlConnection

330
app/DD-Record-Organiser/frmUserKonfig.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

451
app/DD-Record-Organiser/frmUserKonfig.en-US.resx
View File

@@ -273,9 +273,45 @@
<data name="tsAddUser.Text" xml:space="preserve">
<value>Add User from AD</value>
</data>
<data name="TBDD_USERBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
<value>1123, 25</value>
</data>
<data name="USER_GUIDTextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="RECORG_ADMINCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>378, 80</value>
</data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>1105, 319</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>User-Group Assignment</value>
</data>
<data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1111, 347</value>
</data>
<data name="TabGruppendefinition.Size" type="System.Drawing.Size, System.Drawing">
<value>1097, 303</value>
</data>
<data name="TabGruppendefinition.Text" xml:space="preserve">
<value>Groupdefinition</value>
</data>
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1097, 303</value>
</data>
<data name="XtraTabPage2.Text" xml:space="preserve">
<value>Clientdefinition</value>
</data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1105, 319</value>
</data>
<data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>1097, 293</value>
</data>
<data name="TabPage1.Text" xml:space="preserve">
<value>User to group</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
@@ -295,141 +331,19 @@
<value>Add selected User to Group</value>
</data>
<data name="lbGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>236, 95</value>
<value>236, 108</value>
</data>
<data name="TabPage1.Text" xml:space="preserve">
<value>User to group</value>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1089, 277</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlWH_Users1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<assembly alias="DevExpress.Data.v15.1" name="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlWH_Users1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.1">
<value>Default</value>
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="DevExpress.XtraEditors.v15.1" name="DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlWH_Users1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.1">
<value>Center</value>
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.Utils.v15.1" name="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlWH_Users1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.1">
<value>None</value>
</data>
<data name="GridControlWH_Users1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridViewWH_Users1.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewWH_Users1.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewWH_Users1.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewWH_Users1.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridViewWH_Users1.Appearance.FocusedRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewWH_Users1.Appearance.FocusedRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewWH_Users1.Appearance.FocusedRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewWH_Users1.Appearance.FocusedRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
<data name="TabPage2.Text" xml:space="preserve">
<value>Group to User</value>
</data>
<data name="GridControlWH_Users1.Size" type="System.Drawing.Size, System.Drawing">
<value>263, 204</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.1">
<value>Default</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.1">
<value>Center</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.1">
<value>None</value>
</data>
<data name="GridControlUsers2Group.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewlUsers2Group.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewlUsers2Group.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewlUsers2Group.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewlUsers2Group.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridViewlUsers2Group.Appearance.FocusedRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewlUsers2Group.Appearance.FocusedRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewlUsers2Group.Appearance.FocusedRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewlUsers2Group.Appearance.FocusedRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
<value>263, 187</value>
</data>
<data name="GridControlUsers2Group.Size" type="System.Drawing.Size, System.Drawing">
<value>284, 204</value>
<value>284, 187</value>
</data>
<data name="btndeleteUserfromGroup.Size" type="System.Drawing.Size, System.Drawing">
<value>160, 23</value>
@@ -459,75 +373,6 @@ to group</value>
<data name="Label3.Text" xml:space="preserve">
<value>Available Groups:</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1089, 277</value>
</data>
<data name="TabPage2.Text" xml:space="preserve">
<value>Group to User</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>User-Group Assignment</value>
</data>
<data name="GridControl2.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl2.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl2.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.1">
<value>Default</value>
</data>
<data name="GridControl2.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControl2.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl2.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControl2.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControl2.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl2.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.1">
<value>Center</value>
</data>
<data name="GridControl2.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControl2.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.1">
<value>None</value>
</data>
<data name="GridControl2.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridView2.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridView2.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridView2.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridView2.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridView2.Appearance.FocusedRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridView2.Appearance.FocusedRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridView2.Appearance.FocusedRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridView2.Appearance.FocusedRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -602,11 +447,11 @@ to group</value>
<data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
<value>1097, 25</value>
</data>
<data name="TabGruppendefinition.Size" type="System.Drawing.Size, System.Drawing">
<data name="TabControl3.Size" type="System.Drawing.Size, System.Drawing">
<value>1097, 303</value>
</data>
<data name="TabGruppendefinition.Text" xml:space="preserve">
<value>Groupdefinition</value>
<data name="TabPage5.Text" xml:space="preserve">
<value>Clientdefinition</value>
</data>
<data name="ToolStripButton17.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -685,134 +530,14 @@ to group</value>
<data name="Label7.Text" xml:space="preserve">
<value>Data saved successfully!</value>
</data>
<data name="TabPage5.Text" xml:space="preserve">
<value>Clientdefinition</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.1">
<value>Default</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.1">
<value>Center</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.1">
<value>None</value>
</data>
<data name="GridControlUsersinClient.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewUsersinClient.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewUsersinClient.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewUsersinClient.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewUsersinClient.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridViewUsersinClient.Appearance.FocusedRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewUsersinClient.Appearance.FocusedRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewUsersinClient.Appearance.FocusedRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewUsersinClient.Appearance.FocusedRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
<data name="TabPage6.Text" xml:space="preserve">
<value>User-Client Assignement</value>
</data>
<data name="GridControlUsersinClient.Size" type="System.Drawing.Size, System.Drawing">
<value>284, 204</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.1">
<value>Default</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.1">
<value>Center</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.1">
<value>None</value>
</data>
<data name="GridControlUser2Mandanten.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewUser2Mandanten.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewUser2Mandanten.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewUser2Mandanten.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewUser2Mandanten.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridViewUser2Mandanten.Appearance.FocusedRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewUser2Mandanten.Appearance.FocusedRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewUser2Mandanten.Appearance.FocusedRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewUser2Mandanten.Appearance.FocusedRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
<value>284, 187</value>
</data>
<data name="GridControlUser2Mandanten.Size" type="System.Drawing.Size, System.Drawing">
<value>284, 204</value>
<value>284, 187</value>
</data>
<data name="btndeleteUserfromClient.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 23</value>
@@ -842,18 +567,6 @@ to client</value>
<data name="Label17.Text" xml:space="preserve">
<value>Available Clients:</value>
</data>
<data name="TabPage6.Text" xml:space="preserve">
<value>User-Client Assignement</value>
</data>
<data name="TabControl3.Size" type="System.Drawing.Size, System.Drawing">
<value>1097, 303</value>
</data>
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1097, 303</value>
</data>
<data name="XtraTabPage2.Text" xml:space="preserve">
<value>Clientdefinition</value>
</data>
<data name="lblsave.Size" type="System.Drawing.Size, System.Drawing">
<value>129, 13</value>
</data>
@@ -866,65 +579,17 @@ to client</value>
<data name="Label5.Text" xml:space="preserve">
<value>Assigned to Clients:</value>
</data>
<data name="GridControl1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>357, 241</value>
</data>
<data name="GridControl1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
<data name="WAN_ENVIRONMENTCheckBox.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 24</value>
</data>
<data name="GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.1">
<value>Default</value>
<data name="WAN_ENVIRONMENTCheckBox.Text" xml:space="preserve">
<value>WAN-Config</value>
</data>
<data name="GridControl1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControl1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControl1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.1">
<value>Center</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.1">
<value>None</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridView1.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridView1.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridView1.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridView1.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridView1.Appearance.FocusedRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridView1.Appearance.FocusedRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridView1.Appearance.FocusedRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridView1.Appearance.FocusedRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1123, 641</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

7906
app/DD-Record-Organiser/frmUserKonfig.resx
View File

File diff suppressed because it is too large Load Diff

97
app/DD-Record-Organiser/frmUserKonfig.vb
View File

@@ -419,29 +419,7 @@
Private Sub TabControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged
Select Case TabControl3.SelectedIndex
Case 1
Try
DD_ECMAdmin.TBWH_Users2.Clear()
Dim sql = String.Format("SELECT T.GUID, T.USERNAME,T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
newUserRow = DD_ECMAdmin.TBWH_Users2.NewTBWH_Users2Row
newUserRow.Username = userrow.Item(1)
Try
newUserRow.Email = userrow.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = userrow.Item(0)
DD_ECMAdmin.TBWH_Users2.Rows.Add(newUserRow)
' chklbxUserClient.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
Catch ex As Exception
MsgBox("Error in LoadUserForClients:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Load_Users_not_Related_2_Client()
Try
cmbClientsforUser.SelectedIndex = 1
Catch ex As Exception
@@ -449,6 +427,31 @@
cmbClientsforUser.SelectedIndex = 0
End Select
End Sub
Sub Load_Users_not_Related_2_Client()
Try
DD_ECMAdmin.TBWH_Users2.Clear()
Dim sql = String.Format("SELECT T.GUID, T.USERNAME,T.EMAIL FROM TBDD_USER T WHERE T.GUID NOT IN (SELECT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID = {0}) ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
newUserRow = DD_ECMAdmin.TBWH_Users2.NewTBWH_Users2Row
newUserRow.Username = userrow.Item(1)
Try
newUserRow.Email = userrow.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = userrow.Item(0)
DD_ECMAdmin.TBWH_Users2.Rows.Add(newUserRow)
' chklbxUserClient.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
Label16.Text = "Users not linked to client (" & DT.Rows.Count & ")"
Catch ex As Exception
MsgBox("Error in Load Users not related 2 Client:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnsaddUser2Client_Click(sender As Object, e As EventArgs) Handles btnsaddUser2Client.Click
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
@@ -475,32 +478,32 @@
Exit Sub
End Try
If clientid Is Nothing Then Exit Sub
If Not cmbClientsforUser.SelectedValue Is Nothing Then
Load_Users_not_Related_2_Client()
lblUser2Client.Text = "User for Client " & cmbClientsforUser.Text
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = row.Item(1)
Try
newUserRow.Email = row.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = row.Item(1)
Try
newUserRow.Email = row.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("Error in LoadUserForClient:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
newUserRow.ID = row.Item(0)
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
lblUser2Client.Text = "Users linked to Client '" & cmbClientsforUser.Text & "' (" & dt.Rows.Count & ")"
Catch ex As Exception
MsgBox("Error in LoadUserForClient:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -562,6 +565,6 @@
End If
End If
End Sub
End Class