MS Rework

This commit is contained in:
Digital Data - Marlon Schreiber 2018-07-20 13:03:41 +02:00
parent 2bdb7d1512
commit b081925128
39 changed files with 2747 additions and 1200 deletions

View File

@ -50,9 +50,10 @@ Public Class ClassControlCommandsUI
Dim sw As New SW("LoadControls")
Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE T.SCREEN_ID = {0} AND T.FORM_ID = {1} AND T.CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
'Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE T.SCREEN_ID = {0} AND T.FORM_ID = {1} AND T.CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
Dim expression As String = String.Format("SCREEN_ID = {0} AND FORM_ID = {1} AND CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "") ' ClassDatabase.Return_Datatable(Sql, True)
For Each dr As DataRow In DT.Rows
Dim parent As GroupBox = Nothing

View File

@ -225,7 +225,7 @@
ControlId = DirectCast(control.Tag, ClassControlMetadata).Id
Dim autoValue
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("GUID = " & ControlId)
If drarray.Length > 0 Then
Dim ID = drarray(0)("CONNECTION_ID").ToString
If Not IsNothing(ID) Then

View File

@ -326,8 +326,10 @@ Public Class ClassControlValues
' Zuerst alle SQL Commands für FormID finden
' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
'Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim Sql = String.Format("FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Sql, "") 'ClassDatabase.Return_Datatable(SQL, True)
sw.Done()
@ -350,7 +352,7 @@ Public Class ClassControlValues
PerfomanceHelper.ResumeDraw(Ctrl)
Continue For
End If
Dim sqlcommand As String = row.Item("SQL")
Dim sqlcommand As String = row.Item("CONTROL_SQLCOMMAND_1")
Dim ConnID = row.Item("CONTROL_CONNID_1")
Select Case Ctrl.GetType()
Case GetType(CustomComboBox)
@ -390,10 +392,12 @@ Public Class ClassControlValues
Exit Sub
End If
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId)
' Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId)
Dim sw As New SW("LoadControlValuesListWithPlaceholders")
Dim commands As New List(Of String)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim expression As String = String.Format("FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId)
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "") 'ClassDatabase.Return_Datatable(SQL, True)
If dt.Rows.Count = 0 Then
Exit Sub
@ -408,7 +412,7 @@ Public Class ClassControlValues
End If
Dim connID = row.Item("CONTROL_CONNID_1")
Dim sqlcommand As String = row.Item("SQL")
Dim sqlcommand As String = row.Item("CONTROL_SQLCOMMAND_1")
If ParentRecordId = 0 And CURRENT_ACT_LEVEL > 1 Then
'eigentlich sollte eine Parent_RecordID da sein

View File

@ -153,7 +153,7 @@ Public Class ClassGridFormatter
Dim list As New List(Of String)
' Alle Currency Felder für aktuelle Ansicht heraussuchen
Dim sql As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") 'ClassDatabase.Return_Datatable(sql, True)
For Each row As DataRow In dt.Rows
list.Add(row.Item("COL_NAME"))
@ -170,12 +170,12 @@ Public Class ClassGridFormatter
Try
Dim listcheck As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck, True)
' Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
Dim dtcheck As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") ' ClassDatabase.Return_Datatable(sqlcheck, True)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
listcheck.Add(row.Item("COL_NAME"))
Next
End If
listcheck.Add("files?")
@ -189,12 +189,13 @@ Public Class ClassGridFormatter
Try
Dim listdate As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqlcheck, True)
' Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
Dim dtdate As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") 'ClassDatabase.Return_Datatable(sqlcheck, True)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtdate.Rows.Count > 0 Then
For Each row As DataRow In dtdate.Rows
listdate.Add(row.Item(0))
listdate.Add(row.Item("COL_NAME"))
Next
End If
Return listdate

View File

@ -349,4 +349,20 @@ Public Class ClassHelper
Return ""
End Try
End Function
Public Shared Function FILTER_DATATABLE(BaseDatatable As DataTable, expression As String, sortstring As String)
Try
'Schema übernehmen
Dim filteredData As DataTable = BaseDatatable.Clone()
'Einfügevariante
BaseDatatable.Select(expression, sortstring).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
Console.WriteLine("Found {0} rows.", filteredData.Rows.Count)
'Dim filteredData = BaseDatatable.Select(expression).CopyToDataTable()
Return filteredData
Catch ex As Exception
ClassLogger.Add("unexpected error in FILTER_DATATABLE: " & ex.Message)
Return Nothing
End Try
End Function
End Class

View File

@ -115,9 +115,14 @@ Public Class ClassInit
sql = "SELECT * FROM TBPMO_CONTROL"
CURRENT_TBPMO_CONTROL = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("SELECT T")
sql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG")
CURRENT_RESULTLIST_CONFIG = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_VARIABLE_CONTROLS")
CURRENT_VARIABLE_CONTROLS = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("SELECT * FROM TBPMO_FORM_VIEW")
CURRENT_TBPMO_FORM_VIEW = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID")
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)
Catch ex As Exception
MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -187,6 +192,10 @@ Public Class ClassInit
Return False
'Me.Close()
Else
sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = " & USER_GUID)
CURRENT_TBPMO_RIGHT_USER = ClassDatabase.Return_Datatable(sql, True)
Init_CONN_SWITCH()
'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
DT_CLIENT_USER = ClassDatabase.Return_Datatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, False)

View File

@ -137,12 +137,29 @@
'New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
Dim fontfamily As String
Dim fontstyle, fontcolor, fontsize As Integer
Dim backcolor
fontfamily = MAIN_NODES(i)("FONT_FAMILY").ToString
fontsize = CInt(MAIN_NODES(i)("FONT_SIZE"))
fontstyle = MAIN_NODES(i)("FONT_STYLE")
fontcolor = MAIN_NODES(i)("FONT_COLOR")
backcolor = MAIN_NODES(i)("BACK_COLOR")
MAIN_NODE.NodeFont = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
MAIN_NODE.ForeColor = IntToColor(fontcolor)
Try
If IsNumeric(backcolor) Then
If backcolor = 16711680 Then
Console.WriteLine("16711680")
End If
MAIN_NODE.BackColor = IntToColor(backcolor)
Else
If backcolor <> String.Empty Then MAIN_NODE.BackColor = Color.FromName(backcolor)
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message, True)
End Try
MAIN_NODE = CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE, MAIN_NODES(i)("EXPAND_NODE"))
'Add the node
mytrv.Nodes.Add(MAIN_NODE)
@ -151,7 +168,7 @@
sw.Done()
Return mytrv
Catch ex As System.Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation): " & ex.Message, True)
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation-CreateTreViewNodes): " & ex.Message, True)
MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@ -192,15 +209,28 @@
SUB_NODE.ImageIndex = index
SUB_NODE.SelectedImageIndex = index
Dim fontfamily As String
Dim fontstyle, fontcolor, fontsize As Integer
Dim fontstyle, fontcolor, fontsize, backcolor As Integer
fontfamily = SUB_NODE_ROW(i)("FONT_FAMILY").ToString
fontsize = CInt(SUB_NODE_ROW(i)("FONT_SIZE"))
fontstyle = SUB_NODE_ROW(i)("FONT_STYLE")
fontcolor = SUB_NODE_ROW(i)("FONT_COLOR")
backcolor = SUB_NODE_ROW(i)("BACK_COLOR")
SUB_NODE.NodeFont = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
SUB_NODE.ForeColor = IntToColor(fontcolor)
Try
If IsNumeric(backcolor) Then
If backcolor = 255 Then
Console.WriteLine("255")
End If
Dim col = IntToColor(backcolor)
SUB_NODE.BackColor = IntToColor(backcolor)
Else
If backcolor <> String.Empty Then SUB_NODE.BackColor = Color.FromName(backcolor)
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message, True)
End Try
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE"))
'Add the node
MY_NODE.Nodes.Add(SUB_NODE)

View File

@ -67,8 +67,9 @@ Public Class ClassPosGrid
End Sub
Shared Sub FormatColumns(grid As GridView, formId As Integer)
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_COL_NAME, CTRLTYPE_ID, CONTROL_SQLCOMMAND_1 AS CONTROL_SQL, CONTROL_STATIC_LIST, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID IN (3,4,10,11) AND FORM_ID = {0}", formId)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
' Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_COL_NAME, CTRLTYPE_ID, CONTROL_SQLCOMMAND_1 AS CONTROL_SQL, CONTROL_STATIC_LIST, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID IN (3,4,10,11) AND FORM_ID = {0}", formId)
Dim Expression As String = String.Format("CTRLTYPE_ID IN (3,4,10,11) AND FORM_ID = {0}", formId)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Expression, "") 'ClassDatabase.Return_Datatable(SQL)
Dim dateEdit As New RepositoryItemDateEdit()
Dim comboEdit As New RepositoryItemComboBox()

View File

@ -40,7 +40,7 @@
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(Sql, True)
End If
' Definitiond er REchte erfolgt über UserRightstabel......wenn gefüllt
'Definition der Rechte erfolgt über UserGroupstable......wenn gefüllt
If DT_RIGHTS_GROUP.Rows.Count > 0 And DT_RIGHTS_USER.Rows.Count = 0 Then
For Each row As DataRow In DT_RIGHTS_GROUP.Rows
RIGHT_EDIT_R = CBool(DT_RIGHTS_GROUP.Rows(0).Item(0))
@ -56,6 +56,7 @@
Next
Else
'Definition der Rechte erfolgt über UserRighttable
If DT_RIGHTS_USER.Rows.Count = 1 Then
RIGHT_EDIT_R = CBool(DT_RIGHTS_USER.Rows(0).Item("EDIT_REC"))
RIGHT_ADD_R = CBool(DT_RIGHTS_USER.Rows(0).Item("ADD_REC"))

View File

@ -33,6 +33,11 @@ Public Class ClassUpdate
If KONFIG_DT.Rows.Count = 1 Then
MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
MIN_REQUIRED_VERSION = KONFIG_DT.Rows(0).Item("MIN_REQUIRED_VERSION")
Try
DBVERSION = KONFIG_DT.Rows(0).Item("DB_VERSION")
Catch ex As Exception
DBVERSION = "No DB Version-Config"
End Try
End If
sql = String.Format("Select * FROM TBDD_VERSION_UPDATE WHERE GUID = (Select MAX(GUID) FROM TBDD_VERSION_UPDATE WHERE UPPER(MODULE_NAME) = UPPER('{0}'))", "Record-Organizer")
DT_UPDATE = clsDatabase.Return_Datatable(sql)

View File

@ -636,10 +636,10 @@
<Compile Include="frmCalendar.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWM_Dokumentart_Konfig.Designer.vb">
<DependentUpon>frmWM_Dokumentart_Konfig.vb</DependentUpon>
<Compile Include="frmWM_DoctypeConfig.Designer.vb">
<DependentUpon>frmWM_DoctypeConfig.vb</DependentUpon>
</Compile>
<Compile Include="frmWM_Dokumentart_Konfig.vb">
<Compile Include="frmWM_DoctypeConfig.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEntities.Designer.vb">
@ -813,6 +813,9 @@
<EmbeddedResource Include="frmMessageBox.resx">
<DependentUpon>frmMessageBox.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNewVariant.en-US.resx">
<DependentUpon>frmNewVariant.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNewVariant.resx">
<DependentUpon>frmNewVariant.vb</DependentUpon>
</EmbeddedResource>
@ -949,8 +952,8 @@
<DependentUpon>frmDD_EMAIL_ACCOUNT.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_Dokumentart_Konfig.en-US.resx">
<DependentUpon>frmWM_Dokumentart_Konfig.vb</DependentUpon>
<EmbeddedResource Include="frmWM_DoctypeConfig.en-US.resx">
<DependentUpon>frmWM_DoctypeConfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDoctype_NameConvention.en-US.resx">
<DependentUpon>frmDoctype_NameConvention.vb</DependentUpon>
@ -1071,8 +1074,8 @@
<EmbeddedResource Include="frmCustomAppointment.resx">
<DependentUpon>frmCustomAppointment.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_Dokumentart_Konfig.resx">
<DependentUpon>frmWM_Dokumentart_Konfig.vb</DependentUpon>
<EmbeddedResource Include="frmWM_DoctypeConfig.resx">
<DependentUpon>frmWM_DoctypeConfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEntities.resx">
<DependentUpon>frmEntities.vb</DependentUpon>

View File

@ -40259,12 +40259,12 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _
"RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _
"SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _
"ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _
"T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" WHERE (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG"
Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE" &
"RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE" &
"SCHREIBUNG, AKTIV, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " NAMENKONVENTION, ERSTELLTWER, ERST" &
"ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_DOKUMENTAR" &
"T" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELECT DOKART_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FROM TBDD_DOKUMENTART_MODULE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " &
" WHERE (MODULE_ID = 1)))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY BEZEICHNUNG"
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub

View File

@ -839,13 +839,13 @@ SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKT
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillByPMO" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByPMO" GeneratorSourceName="FillByPMO" GetMethodModifier="Public" GetMethodName="GetDataByPMO" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByPMO" UserSourceName="FillByPMO">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV,
NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP
FROM TBDD_DOKUMENTART
WHERE (GUID IN
(SELECT DOKART_ID
FROM TBDD_DOKUMENTART_MODULE
WHERE (MODULE_ID = 0)))
<CommandText>SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,
ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP
FROM TBDD_DOKUMENTART
WHERE (GUID IN
(SELECT DOKART_ID
FROM TBDD_DOKUMENTART_MODULE
WHERE (MODULE_ID = 1)))
ORDER BY BEZEICHNUNG</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="LANGUAGE" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAGE" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -3389,15 +3389,16 @@ SELECT GUID, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ON
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_RECORD_VARIANT" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, RECORD_ID, REASON_CODE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBPMO_RECORD_VARIANT
WHERE (RECORD_ID IN
(SELECT GUID
FROM TBPMO_RECORD
WHERE (RECORD_ENTITY_ID =
(SELECT RECORD_ENTITY_ID
FROM TBPMO_RECORD AS TBPMO_RECORD_1
WHERE (GUID = @RECORD_ID))) AND (FORM_ID = @ENTITY_ID) AND (GUID &lt;&gt; @RECORD_ID)))</CommandText>
<CommandText>SELECT GUID, RECORD_ID, REASON_CODE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBPMO_RECORD_VARIANT
WHERE (RECORD_ID IN
(SELECT GUID
FROM TBPMO_RECORD
WHERE (RECORD_ENTITY_ID =
(SELECT RECORD_ENTITY_ID
FROM TBPMO_RECORD AS TBPMO_RECORD_1
WHERE (GUID = @RECORD_ID))) AND (FORM_ID = @ENTITY_ID) AND (GUID &lt;&gt; @RECORD_ID)))
ORDER BY GUID DESC</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="ENTITY_ID" ColumnName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ENTITY_ID" Precision="0" Scale="0" Size="4" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="RECORD_ID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBPMO_RECORD_VARIANT" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@RECORD_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />

View File

@ -4,59 +4,59 @@
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="-10" ViewPortY="-13" 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="308" 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="32" 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="14" 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="7" X="493" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_FORM" ZOrder="33" 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="16" 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="10" X="493" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD" ZOrder="55" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="13" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="15" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_FVIEW_DT_INDEX" ZOrder="71" 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="54" 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="26" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="28" 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="51" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="27" X="192" Y="678" Height="210" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="29" 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="53" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="28" X="1349" Y="450" Height="344" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="1" X="1349" Y="450" Height="344" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="70" 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="46" 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="69" X="427" Y="-11" Height="287" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_KONFIGURATION" ZOrder="65" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="15" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="17" 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="64" 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="22" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="24" 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="62" 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="34" 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="35" 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="61" 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="4" 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="6" X="-2" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="36" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="7" 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="9" X="-2" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="3" 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="58" 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="52" 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="56" 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="3" X="844" Y="43" Height="267" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="6" X="844" Y="43" Height="267" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="50" 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="2" X="1246" Y="352" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR_DETAIL" ZOrder="5" X="1246" Y="352" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="47" X="1300" Y="812" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_TEMPLATE" ZOrder="45" 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="44" 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="41" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="39" 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="9" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CLIENT" ZOrder="35" 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="29" 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="33" 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="31" 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="5" 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="25" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="21" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="1" X="110" Y="24" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_ENTITY" ZOrder="20" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="19" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="16" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="12" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="11" X="653" Y="1140" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="8" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="12" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CLIENT" ZOrder="36" 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="30" 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="34" 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="32" 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="8" 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="27" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="23" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="4" X="110" Y="24" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_ENTITY" ZOrder="22" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="21" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="18" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="14" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="2" X="638" Y="1079" Height="306" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="226" />
<Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="11" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="72" LineWidth="11">
@ -275,7 +275,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" ZOrder="30" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" ZOrder="31" LineWidth="11">
<RoutePoints>
<Point>
<X>141</X>
@ -291,7 +291,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="24" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="26" LineWidth="11">
<RoutePoints>
<Point>
<X>22</X>
@ -311,7 +311,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="23" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="25" LineWidth="11">
<RoutePoints>
<Point>
<X>14</X>
@ -331,7 +331,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="18" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="20" LineWidth="11">
<RoutePoints>
<Point>
<X>389</X>
@ -347,7 +347,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="17" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="19" LineWidth="11">
<RoutePoints>
<Point>
<X>158</X>
@ -367,7 +367,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="10" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="13" LineWidth="11">
<RoutePoints>
<Point>
<X>961</X>
@ -375,11 +375,11 @@
</Point>
<Point>
<X>961</X>
<Y>1157</Y>
<Y>1096</Y>
</Point>
<Point>
<X>953</X>
<Y>1157</Y>
<X>938</X>
<Y>1096</Y>
</Point>
</RoutePoints>
</Connector>

View File

@ -306,8 +306,8 @@ Module ModuleHelperMethods
frm.Show()
End Sub
Public Sub OpenDokumentartt()
Dim frm As New frmWM_Dokumentart_Konfig
frm = frmWM_Dokumentart_Konfig.Instance()
Dim frm As New frmWM_DoctypeConfig
frm = frmWM_DoctypeConfig.Instance()
frm.MdiParent = MAIN_FORM
Dim activeChild As Form = MAIN_FORM.ActiveMdiChild

View File

@ -32,6 +32,7 @@ Module ModuleMySettings
Public vVERSION_DELIMITER As String = "~"
Public vFILE_DELIMITER As String = "_"
Public AUTO_LOGOUT_USER As Integer
Public DBVERSION As String
Public USER_IS_ADMIN = False
Public USERS_LOGGED_IN = 0
@ -428,6 +429,11 @@ Module ModuleMySettings
vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
AUTO_LOGOUT_USER = DT.Rows(0).Item("AUTO_LOGOUT_USER")
Try
DBVERSION = DT.Rows(0).Item("DB_VERSION")
Catch ex As Exception
DBVERSION = "No DB Version-Config"
End Try
Else
Return False
End If

View File

@ -30,7 +30,7 @@
Public CURRENT_ENTITYSTRING As String = ""
Public CURRENT_ENTITYSQL As String
Public CURRENT_ENTITY_DT As DataTable
Public CURRENT_DT_ENTITY_RECORDS As DataTable
Public CURRENT_VIEWNAME As String = ""
Public CURRENT_ENTITY_REDUNDANT_ID As Integer
@ -100,6 +100,11 @@
Public CURRENT_TBPMO_CONTROL As DataTable
Public CURRENT_SCAN_TABLE As DataTable
Public CURRENT_TASKS_GENERAL As DataTable
Public CURRENT_RESULTLIST_CONFIG As DataTable
Public CURRENT_VARIABLE_CONTROLS As DataTable
Public CURRENT_TBPMO_FORM_VIEW As DataTable
Public CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS As DataTable
Public CURRENT_TBPMO_RIGHT_USER As DataTable
Public CURRENT_RECORD_ENABLED As Boolean = False
Public ENTITY_RELOAD_AFT_CONTROL_LOAD As Boolean = False
@ -116,6 +121,7 @@
Public CURRENT_DOC_DROPDOWN As DataTable
Public CURRENT_PARENT_DT As DataTable
Public DT_VWPMO_CONTROL_SCREEN As DataTable
Public CURRENT_VWPMO_WF_ACTIVE As DataTable
Public CURRENT_TBPMO_FILES_USER As DataTable

View File

@ -67,7 +67,7 @@ Partial Class frmConstructor_Main
Me.DatenNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmi_RecordDelete = New System.Windows.Forms.ToolStripMenuItem()
Me.MassenänderungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiMassChanges = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.DetailAnsichtDatensatzToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -307,6 +307,7 @@ Partial Class frmConstructor_Main
'
'cmsTreeView
'
Me.cmsTreeView.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cmsTreeView.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ResetEbenenAuswahlToolStripMenuItem, Me.ToolStripSeparator14, Me.FormDesignerToolStripMenuItem, Me.ToolStripSeparator13, Me.AuswertungAnzeigenToolStripMenuItem, Me.tsmiFilesearch, Me.ToolStripSeparator12, Me.ToolStripSeparator24, Me.tsmi_NewNode, Me.tsmiNodeDelete, Me.tstxtboxSearchNode})
Me.cmsTreeView.Name = "ContextMenuStrip2"
resources.ApplyResources(Me.cmsTreeView, "cmsTreeView")
@ -418,6 +419,7 @@ Partial Class frmConstructor_Main
Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain")
Me.GridControlMain.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlMain.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel
@ -431,7 +433,8 @@ Partial Class frmConstructor_Main
'
'ContextMenuGrid
'
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDataGridToolStripMenuItem, Me.ToolStripSeparator1, Me.AnsichtUmschaltenToolStripMenuItem, Me.ButtonSetViewAsDefault, Me.ButtonResetView, Me.ToolStripSeparator2, Me.SucheAnzeigenToolStripMenuItem, Me.ButtonResetFilter, Me.ButtonExportToExcel, Me.DatenNeuLadenToolStripMenuItem, Me.ToolStripSeparator6, Me.tsmi_RecordDelete, Me.MassenänderungToolStripMenuItem, Me.ToolStripSeparator11, Me.DetailAnsichtDatensatzToolStripMenuItem})
Me.ContextMenuGrid.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDataGridToolStripMenuItem, Me.ToolStripSeparator1, Me.AnsichtUmschaltenToolStripMenuItem, Me.ButtonSetViewAsDefault, Me.ButtonResetView, Me.ToolStripSeparator2, Me.SucheAnzeigenToolStripMenuItem, Me.ButtonResetFilter, Me.ButtonExportToExcel, Me.DatenNeuLadenToolStripMenuItem, Me.ToolStripSeparator6, Me.tsmi_RecordDelete, Me.tsmiMassChanges, Me.ToolStripSeparator11, Me.DetailAnsichtDatensatzToolStripMenuItem})
Me.ContextMenuGrid.Name = "ContextMenuGrid"
resources.ApplyResources(Me.ContextMenuGrid, "ContextMenuGrid")
'
@ -516,11 +519,11 @@ Partial Class frmConstructor_Main
Me.tsmi_RecordDelete.Name = "tsmi_RecordDelete"
resources.ApplyResources(Me.tsmi_RecordDelete, "tsmi_RecordDelete")
'
'MassenänderungToolStripMenuItem
'tsmiMassChanges
'
Me.MassenänderungToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources._4_four_rows_9716
Me.MassenänderungToolStripMenuItem.Name = "MassenänderungToolStripMenuItem"
resources.ApplyResources(Me.MassenänderungToolStripMenuItem, "MassenänderungToolStripMenuItem")
Me.tsmiMassChanges.Image = Global.DD_Record_Organizer.My.Resources.Resources._4_four_rows_9716
Me.tsmiMassChanges.Name = "tsmiMassChanges"
resources.ApplyResources(Me.tsmiMassChanges, "tsmiMassChanges")
'
'ToolStripSeparator11
'
@ -579,6 +582,7 @@ Partial Class frmConstructor_Main
'
'ToolStripRecords
'
Me.ToolStripRecords.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStripRecords.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbldisplayRecords, Me.ToolStripDropDownButton3, Me.ToolStripSeparator19, Me.tsbtnRefresh_Entity, Me.tsbtnGeodata})
resources.ApplyResources(Me.ToolStripRecords, "ToolStripRecords")
Me.ToolStripRecords.Name = "ToolStripRecords"
@ -677,8 +681,8 @@ Partial Class frmConstructor_Main
'
Me.TabDetails.Controls.Add(Me.SplitContainerDetails)
Me.TabDetails.Controls.Add(Me.ToolStripEdit)
Me.TabDetails.Name = "TabDetails"
resources.ApplyResources(Me.TabDetails, "TabDetails")
Me.TabDetails.Name = "TabDetails"
'
'SplitContainerDetails
'
@ -713,6 +717,7 @@ Partial Class frmConstructor_Main
'
'statStripDoc
'
Me.statStripDoc.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.statStripDoc.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocIDTab1, Me.tslblDocViewLocked})
resources.ApplyResources(Me.statStripDoc, "statStripDoc")
Me.statStripDoc.Name = "statStripDoc"
@ -738,6 +743,7 @@ Partial Class frmConstructor_Main
'ToolStripEdit
'
Me.ToolStripEdit.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripEdit.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEdit, Me.tsButtonShowTaskOverview, Me.tsbtnRedo, Me.tsButtonCancel, Me.ToolStripSeparator21, Me.tsbtnPanel1Collapse, Me.tslblLocked, Me.tslblFileslocked})
resources.ApplyResources(Me.ToolStripEdit, "ToolStripEdit")
Me.ToolStripEdit.Name = "ToolStripEdit"
@ -812,13 +818,14 @@ Partial Class frmConstructor_Main
Me.TabPos.Controls.Add(Me.GridControlPos)
Me.TabPos.Controls.Add(Me.BindingNavigatorPOS)
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
resources.ApplyResources(Me.TabPos, "TabPos")
Me.TabPos.Name = "TabPos"
Me.TabPos.PageVisible = False
resources.ApplyResources(Me.TabPos, "TabPos")
'
'GridControlPos
'
resources.ApplyResources(Me.GridControlPos, "GridControlPos")
Me.GridControlPos.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlPos.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.GridControlPos.MainView = Me.grvwGridPos
Me.GridControlPos.Name = "GridControlPos"
Me.GridControlPos.TabStop = False
@ -841,6 +848,7 @@ Partial Class frmConstructor_Main
Me.BindingNavigatorPOS.CountItem = Me.BindingNavigatorCountItem
Me.BindingNavigatorPOS.CountItemFormat = "von {0} positions"
Me.BindingNavigatorPOS.DeleteItem = Nothing
Me.BindingNavigatorPOS.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.BindingNavigatorPOS.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnPos_Refresh, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.tsbtnWork, Me.tslblPoslocked})
resources.ApplyResources(Me.BindingNavigatorPOS, "BindingNavigatorPOS")
Me.BindingNavigatorPOS.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
@ -930,14 +938,15 @@ Partial Class frmConstructor_Main
Me.TabWindream.AllowDrop = True
Me.TabWindream.Controls.Add(Me.GridControlDocSearch)
Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Name = "TabWindream"
resources.ApplyResources(Me.TabWindream, "TabWindream")
Me.TabWindream.Name = "TabWindream"
'
'GridControlDocSearch
'
Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFilesBasic
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
Me.GridControlDocSearch.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDocSearch.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.TabStop = False
@ -945,6 +954,7 @@ Partial Class frmConstructor_Main
'
'cmsResultFilesBasic
'
Me.cmsResultFilesBasic.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cmsResultFilesBasic.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmDoc1FileOpen, Me.cmDoc1FileProperties})
Me.cmsResultFilesBasic.Name = "cmsResultFilesBasic"
resources.ApplyResources(Me.cmsResultFilesBasic, "cmsResultFilesBasic")
@ -985,6 +995,7 @@ Partial Class frmConstructor_Main
'
Me.ToolStripDokumente.AllowDrop = True
resources.ApplyResources(Me.ToolStripDokumente, "ToolStripDokumente")
Me.ToolStripDokumente.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripSeparator17, Me.ToolStripSeparator3, Me.tsbtnDoc_Refresh, Me.ToolStripSeparator18, Me.tsbtnStartFulltext})
Me.ToolStripDokumente.Name = "ToolStripDokumente"
'
@ -1025,8 +1036,8 @@ Partial Class frmConstructor_Main
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUps)
Me.TabFollowUp.Controls.Add(Me.grpbxFU_Profile)
Me.TabFollowUp.Controls.Add(Me.Label5)
Me.TabFollowUp.Name = "TabFollowUp"
resources.ApplyResources(Me.TabFollowUp, "TabFollowUp")
Me.TabFollowUp.Name = "TabFollowUp"
'
'ListViewFollowUps
'
@ -1141,14 +1152,15 @@ Partial Class frmConstructor_Main
Me.TabPageVariant.Appearance.Header.Options.UseForeColor = True
Me.TabPageVariant.Controls.Add(Me.GridControl1)
Me.TabPageVariant.Controls.Add(Me.tsVariants)
resources.ApplyResources(Me.TabPageVariant, "TabPageVariant")
Me.TabPageVariant.Name = "TabPageVariant"
Me.TabPageVariant.PageVisible = False
resources.ApplyResources(Me.TabPageVariant, "TabPageVariant")
'
'GridControl1
'
Me.GridControl1.DataSource = Me.TBPMO_RECORD_VARIANTBindingSource
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.GridControl1.MainView = Me.GridViewVariants
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = True
@ -1220,6 +1232,7 @@ Partial Class frmConstructor_Main
'
'tsVariants
'
Me.tsVariants.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.tsVariants.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblVariantsCount, Me.ToolStripButton1, Me.ToolStripSeparator23, Me.tsbtnVariantDetailView})
resources.ApplyResources(Me.tsVariants, "tsVariants")
Me.tsVariants.Name = "tsVariants"
@ -1260,6 +1273,7 @@ Partial Class frmConstructor_Main
'
'ContextMenuStripResultFiles
'
Me.ContextMenuStripResultFiles.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCMEntityWideSearch, Me.ToolStripSeparator20, Me.docCM_RenameMain, Me.docCM_InWork, Me.docCM_linkRecord, Me.WindreamToolStripMenuItem, Me.ToolStripSeparator7, Me.docCM_CheckRights, Me.docCM_GetRights, Me.ToolStripSeparator8, Me.docCM_DeleteFile, Me.docCM_RemoveLink, Me.ToolStripSeparator9, Me.docCM_showGridSearch, Me.ToolStripSeparator16, Me.docCM_PropertiesFile, Me.docCM_ResetView})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
@ -1415,12 +1429,14 @@ Partial Class frmConstructor_Main
'StatusStrip_Main
'
Me.StatusStrip_Main.ContextMenuStrip = Me.ContextMenuStripClipboard
Me.StatusStrip_Main.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblStatus, Me.tsslblRecord, Me.tslblDocIDMain, Me.progressLoadEntity, Me.tsslblWorkflowstate, Me.labelLoadEntity})
resources.ApplyResources(Me.StatusStrip_Main, "StatusStrip_Main")
Me.StatusStrip_Main.Name = "StatusStrip_Main"
'
'ContextMenuStripClipboard
'
Me.ContextMenuStripClipboard.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStripClipboard.Name = "ContextMenuStripClipboard"
resources.ApplyResources(Me.ContextMenuStripClipboard, "ContextMenuStripClipboard")
'
@ -1477,11 +1493,13 @@ Partial Class frmConstructor_Main
'
'ContextMenuDetails
'
Me.ContextMenuDetails.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuDetails.Name = "ContextMenuDetails"
resources.ApplyResources(Me.ContextMenuDetails, "ContextMenuDetails")
'
'cmsrpContainer
'
Me.cmsrpContainer.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cmsrpContainer.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChangeHidepanelToolStripMenuItem})
Me.cmsrpContainer.Name = "cmsrpContainer"
resources.ApplyResources(Me.cmsrpContainer, "cmsrpContainer")
@ -1712,7 +1730,7 @@ Partial Class frmConstructor_Main
Friend WithEvents tsButtonCancel As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtnRedo As System.Windows.Forms.ToolStripButton
Friend WithEvents SucheAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MassenänderungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsmiMassChanges As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents docCM_linkRecord As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SplitContainerFORM As DevExpress.XtraEditors.SplitContainerControl

View File

@ -117,10 +117,150 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 213</value>
</data>
<data name="TreeViewMain.Size" type="System.Drawing.Size, System.Drawing">
<value>283, 237</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Text" xml:space="preserve">
<value>Datagrid Functions</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 6</value>
</data>
<data name="AnsichtUmschaltenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="AnsichtUmschaltenToolStripMenuItem.Text" xml:space="preserve">
<value>Change View</value>
</data>
<data name="ButtonSetViewAsDefault.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="ButtonSetViewAsDefault.Text" xml:space="preserve">
<value>Set View as Standard</value>
</data>
<data name="ButtonResetView.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="ButtonResetView.Text" xml:space="preserve">
<value>Reset View</value>
</data>
<data name="ToolStripSeparator2.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 6</value>
</data>
<data name="SucheAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="SucheAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Show search (CTRL+F)</value>
</data>
<data name="ButtonResetFilter.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="ButtonResetFilter.Text" xml:space="preserve">
<value>Remove all Filters</value>
</data>
<data name="ButtonExportToExcel.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="ButtonExportToExcel.Text" xml:space="preserve">
<value>Export Excel</value>
</data>
<data name="DatenNeuLadenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="DatenNeuLadenToolStripMenuItem.Text" xml:space="preserve">
<value>Refresh Data</value>
</data>
<data name="ToolStripSeparator6.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 6</value>
</data>
<data name="tsmi_RecordDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="tsmi_RecordDelete.Text" xml:space="preserve">
<value>Delete record</value>
</data>
<data name="tsmiMassChanges.Text" xml:space="preserve">
<value>Mass changes of visible rows</value>
</data>
<data name="ToolStripSeparator11.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 6</value>
</data>
<data name="DetailAnsichtDatensatzToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value>
</data>
<data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
<value>Detail-View Record</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 314</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>980, 210</value>
</data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>980, 27</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1269, 237</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1262, 397</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1269, 432</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1372, 399</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1372, 399</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1372, 399</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1372, 399</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1269, 675</value>
</data>
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 26</value>
</data>
<data name="ResetEbenenAuswahlToolStripMenuItem.Text" xml:space="preserve">
<value>Reset Entity-Selection</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="FormDesignerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -130,17 +270,47 @@
E+BVyPIGnMT05CNGJ9j+P9gukJ0V/DDOPjLPmqLNo1WwrxQ+GCNWVrb1cMEAAAAASUVORK5CYII=
</value>
</data>
<data name="FormDesignerToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 26</value>
</data>
<data name="ToolStripSeparator13.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="AuswertungAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 26</value>
</data>
<data name="AuswertungAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Show Charts</value>
</data>
<data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsmiFilesearch.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 26</value>
</data>
<data name="tsmiFilesearch.Text" xml:space="preserve">
<value>Search files</value>
</data>
<data name="tsmiNodedownSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 22</value>
<value>336, 26</value>
</data>
<data name="tsmiNodedownSearch.Text" xml:space="preserve">
<value>EntitySearch - all files below this node</value>
</data>
<data name="tsmientitySearch.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 22</value>
<value>336, 26</value>
</data>
<data name="tsmientitySearch.Text" xml:space="preserve">
<value>EntitySearch- "all files"</value>
@ -209,32 +379,40 @@
</value>
</data>
<data name="tsmiFulltext.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 22</value>
<value>336, 26</value>
</data>
<data name="tsmiFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value>
</data>
<data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="ToolStripSeparator24.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="tsmi_NewNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="tsmiFilesearch.Text" xml:space="preserve">
<value>Search files</value>
<data name="tsmi_NewNode.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 26</value>
</data>
<data name="tsmi_NewNode.Text" xml:space="preserve">
<value>New node</value>
</data>
<data name="SdsdToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
<value>Nodecaption:</value>
</data>
<data name="ToolStripSeparator15.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 6</value>
</data>
<data name="OberhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -243,6 +421,9 @@
aDsAn1PBeUq8SBsAAAAASUVORK5CYII=
</value>
</data>
<data name="OberhalbToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="OberhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Add at this level</value>
</data>
@ -255,20 +436,12 @@
QmCC
</value>
</data>
<data name="UnterhalbToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Add below this level</value>
</data>
<data name="tsmi_NewNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="tsmi_NewNode.Text" xml:space="preserve">
<value>New node</value>
</data>
<data name="tsmiNodeDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
@ -285,92 +458,17 @@
CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
</value>
</data>
<data name="tsmiNodeDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 26</value>
</data>
<data name="tsmiNodeDelete.Text" xml:space="preserve">
<value>Delete node</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>132, 24</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Text" xml:space="preserve">
<value>Datagrid Functions</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="AnsichtUmschaltenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="AnsichtUmschaltenToolStripMenuItem.Text" xml:space="preserve">
<value>Change View</value>
</data>
<data name="ButtonSetViewAsDefault.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="ButtonSetViewAsDefault.Text" xml:space="preserve">
<value>Set View as Standard</value>
</data>
<data name="ButtonResetView.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="ButtonResetView.Text" xml:space="preserve">
<value>Reset View</value>
</data>
<data name="ToolStripSeparator2.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="SucheAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="SucheAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Show search (CTRL+F)</value>
</data>
<data name="ButtonResetFilter.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="ButtonResetFilter.Text" xml:space="preserve">
<value>Remove all Filters</value>
</data>
<data name="ButtonExportToExcel.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="ButtonExportToExcel.Text" xml:space="preserve">
<value>Export Excel</value>
</data>
<data name="DatenNeuLadenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="DatenNeuLadenToolStripMenuItem.Text" xml:space="preserve">
<value>Refresh Data</value>
</data>
<data name="ToolStripSeparator6.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="tsmi_RecordDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="tsmi_RecordDelete.Text" xml:space="preserve">
<value>Delete record</value>
</data>
<data name="MassenänderungToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="MassenänderungToolStripMenuItem.Text" xml:space="preserve">
<value>Mass changes of visible rows</value>
</data>
<data name="ToolStripSeparator11.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
<data name="DetailAnsichtDatensatzToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
<value>Detail-View Record</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1091, 212</value>
<data name="ToolStripDropDownButton3.Text" xml:space="preserve">
<value>record-functions</value>
</data>
<data name="CopyRecordtsmi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -381,82 +479,85 @@
</value>
</data>
<data name="CopyRecordtsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<value>274, 26</value>
</data>
<data name="CopyRecordtsmi.Text" xml:space="preserve">
<value>Copy record</value>
</data>
<data name="NewVarianttsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<value>274, 26</value>
</data>
<data name="NewVarianttsmi.Text" xml:space="preserve">
<value>New variant</value>
</data>
<data name="ToolStripSeparator5.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
<value>271, 6</value>
</data>
<data name="ChangeParentLinktsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<value>274, 26</value>
</data>
<data name="ChangeParentLinktsmi.Text" xml:space="preserve">
<value>Change parent-link</value>
</data>
<data name="CreateWorkflowtaskstsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<value>274, 26</value>
</data>
<data name="CreateWorkflowtaskstsmi.Text" xml:space="preserve">
<value>Create/Renew workflowtasks</value>
</data>
<data name="showRecordLogtsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<value>274, 26</value>
</data>
<data name="showRecordLogtsmi.Text" xml:space="preserve">
<value>Show record-logs</value>
</data>
<data name="OfficeVorlagentsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<value>274, 26</value>
</data>
<data name="OfficeVorlagentsmi.Text" xml:space="preserve">
<value>Office templates</value>
</data>
<data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
<value>271, 6</value>
</data>
<data name="AnwendungscacheResettsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
<value>274, 26</value>
</data>
<data name="AnwendungscacheResettsmi.Text" xml:space="preserve">
<value>Reset application-cache</value>
</data>
<data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value>
</data>
<data name="ToolStripDropDownButton3.Text" xml:space="preserve">
<value>record-functions</value>
</data>
<data name="tsbtnRefresh_Entity.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 22</value>
<value>135, 24</value>
</data>
<data name="tsbtnRefresh_Entity.Text" xml:space="preserve">
<value>Refresh records</value>
</data>
<data name="tsbtnGeodata.Size" type="System.Drawing.Size, System.Drawing">
<value>129, 22</value>
<value>163, 24</value>
</data>
<data name="tsbtnGeodata.Text" xml:space="preserve">
<value>geodata navigation</value>
</data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1091, 25</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 237</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>699, 383</value>
<value>699, 366</value>
</data>
<data name="pnlDocFill.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 26</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>665, 333</value>
<value>553, 311</value>
</data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 337</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>553, 29</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>553, 26</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1262, 370</value>
</data>
<data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -473,25 +574,16 @@
</value>
</data>
<data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>271, 19</value>
<value>340, 24</value>
</data>
<data name="tslblDocViewLocked.Text" xml:space="preserve">
<value>View is locked - Click Edit Record for unlocking</value>
</data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 359</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>665, 24</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>665, 26</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 387</value>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1262, 27</value>
</data>
<data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value>
<value>61, 24</value>
</data>
<data name="tsButtonAdd.Text" xml:space="preserve">
<value>Add</value>
@ -499,79 +591,67 @@
<data name="tsButtonSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABWSURBVDhPY6AK+Pbt238S8PsvX74YQLVCAEjCyckJjj+8
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABWSURBVDhPY6AK+Pbt238S8PsvX74YQLVCAEjCyckJjj+8
/wjHyGIguq2tDdMQUgwAYZghUO2kGwDCID1Q7fgNQMbIamhrADF41IBBaQA5GKqdEsDAAADtDPd9n5qK
lQAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsButtonSave.Size" type="System.Drawing.Size, System.Drawing">
<value>51, 22</value>
<value>64, 24</value>
</data>
<data name="tsButtonSave.Text" xml:space="preserve">
<value>Save</value>
</data>
<data name="tsButtonDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>60, 22</value>
<value>77, 24</value>
</data>
<data name="tsButtonDelete.Text" xml:space="preserve">
<value>Delete</value>
</data>
<data name="tsButtonEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>95, 22</value>
<value>118, 24</value>
</data>
<data name="tsButtonEdit.Text" xml:space="preserve">
<value>Work Record</value>
</data>
<data name="tsButtonShowTaskOverview.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
<value>217, 24</value>
</data>
<data name="tsButtonShowTaskOverview.Text" xml:space="preserve">
<value>Workflow/Tasks Overview</value>
</data>
<data name="tsbtnRedo.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value>
<value>127, 24</value>
</data>
<data name="tsbtnRedo.Text" xml:space="preserve">
<value>Set changes back</value>
</data>
<data name="tsButtonCancel.Size" type="System.Drawing.Size, System.Drawing">
<value>63, 22</value>
<value>77, 24</value>
</data>
<data name="tsButtonCancel.Text" xml:space="preserve">
<value>Cancel</value>
</data>
<data name="tsbtnPanel1Collapse.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value>
<value>138, 24</value>
</data>
<data name="tsbtnPanel1Collapse.Text" xml:space="preserve">
<value>Collapse details</value>
</data>
<data name="tslblLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 22</value>
<value>160, 24</value>
</data>
<data name="tslblLocked.Text" xml:space="preserve">
<value>Only reading access</value>
</data>
<data name="tslblFileslocked.Size" type="System.Drawing.Size, System.Drawing">
<value>97, 22</value>
<value>122, 24</value>
</data>
<data name="tslblFileslocked.Text" xml:space="preserve">
<value>No file-access</value>
</data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 412</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 443</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 387</value>
<value>1372, 372</value>
</data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -586,7 +666,7 @@
</value>
</data>
<data name="BindingNavigatorAddNewItem.Size" type="System.Drawing.Size, System.Drawing">
<value>95, 22</value>
<value>119, 24</value>
</data>
<data name="BindingNavigatorAddNewItem.Text" xml:space="preserve">
<value>Add position</value>
@ -644,7 +724,7 @@
</value>
</data>
<data name="BindingNavigatorDeleteItem.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
<value>133, 24</value>
</data>
<data name="BindingNavigatorDeleteItem.Text" xml:space="preserve">
<value>delete position</value>
@ -652,7 +732,7 @@
<data name="tsbtnWork.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD5SURBVDhPlZK9EYMwDIUZITPRMwBdCgZITZWKNTJCCnpm
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAD5SURBVDhPlZK9EYMwDIUZITPRMwBdCgZITZWKNTJCCnpm
oadwBZSOP2MRW8Z3ybt7pz9LlmRX67o+t22zQuzqH5DUNI2t69pL7BD6DSSQLIwLGGNu2DHxhfABfQCG
ULXv+32aprM4Or4QPkBCqQOnv4dhOGPo+EL4QKmAtC/7gbKjZIxSAd2+MBujVMDJs/2+7z3RszGuCuj2
x3H0RM/GwNDU7S/L4il2MoZLMF3X+QAS2zHZvmYyBpXmebZt21qk+8oPuoi3r5mN4ZJeOJC6ffwxxZ+9
@ -674,30 +754,22 @@
</value>
</data>
<data name="tslblPoslocked.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value>
<value>135, 24</value>
</data>
<data name="tslblPoslocked.Text" xml:space="preserve">
<value>Positions locked</value>
</data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
<value>1372, 27</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
</value>
<data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 56</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 412</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1372, 372</value>
</data>
<data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value>
<value>149, 26</value>
</data>
<data name="cmDoc1FileOpen.Text" xml:space="preserve">
<value>Open file</value>
@ -711,19 +783,16 @@
</value>
</data>
<data name="cmDoc1FileProperties.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value>
<value>149, 26</value>
</data>
<data name="cmDoc1FileProperties.Text" xml:space="preserve">
<value>Properties</value>
</data>
<data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 48</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 387</value>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1372, 27</value>
</data>
<data name="tsbtnDoc_Refresh.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value>
<value>123, 24</value>
</data>
<data name="tsbtnDoc_Refresh.Text" xml:space="preserve">
<value>Reload search</value>
@ -731,7 +800,7 @@
<data name="tsbtnStartFulltext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKrSURBVFhH7ZO/b9pAFMdR/4AqQ5dOkRIRUiDgQMABY0P4
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAKrSURBVFhH7ZO/b9pAFMdR/4AqQ5dOkRIRUiDgQMABY0P4
EZsfNmBjHGxsDESdo+5VsnTrjpQpU9UxY8ZMmTP0D+APyMDE+vrudLFSJZHSLYM/0pPv3r3z9713d5GQ
kJCQkHfLbDa7mU6nTTYNOD2d38/nM5jNpuC67srzvCXavec51xPb5lgYxTTNLNpyYBhArNPprFRVTbTb
7V8s5HXm8/kabcmmAZPJZMOf+uD7E/BdVyc+17VNxxnBcDgM4odDXdINnYp2u90e8eF3Q1GU66YiAw16
@ -747,19 +816,13 @@
</value>
</data>
<data name="tsbtnStartFulltext.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value>
<value>121, 24</value>
</data>
<data name="tsbtnStartFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value>
</data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 412</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
<data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -785,73 +848,73 @@
<value>Add user tu follow up</value>
</data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 13</value>
<value>290, 19</value>
</data>
<data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
<data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value>
<value>113, 20</value>
</data>
<data name="lblFollowUp_save.Text" xml:space="preserve">
<value>Follow Up saved</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
<value>114, 17</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 412</value>
<data name="colREASON_CODE.Caption" xml:space="preserve">
<value>ReasonCode for creating variant</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
<data name="colCOMMENT.Caption" xml:space="preserve">
<value>comment</value>
</data>
<data name="colADDED_WHO.Caption" xml:space="preserve">
<value>Added who</value>
</data>
<data name="colADDED_WHEN.Caption" xml:space="preserve">
<value>Added when</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 387</value>
<value>1372, 372</value>
</data>
<data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1372, 27</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>63, 22</value>
<value>80, 24</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Reload</value>
</data>
<data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 412</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 685</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 685</value>
<value>1269, 675</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>254, 430</value>
</data>
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_Open.Text" xml:space="preserve">
<value>Open File</value>
</data>
<data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Open containing folder</value>
</data>
<data name="docCM_Copy.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_Copy.Text" xml:space="preserve">
<value>Copy file to clipboard</value>
</data>
<data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>250, 6</value>
</data>
<data name="docCMEntityWideSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -869,44 +932,47 @@
</value>
</data>
<data name="docCMEntityWideSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCMEntityWideSearch.Text" xml:space="preserve">
<value>Entitywide Search</value>
</data>
<data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>250, 6</value>
</data>
<data name="docCM_RenameMain.Size" type="System.Drawing.Size, System.Drawing">
<value>253, 26</value>
</data>
<data name="docCM_RenameMain.Text" xml:space="preserve">
<value>Rename</value>
</data>
<data name="NeuToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 22</value>
<value>226, 26</value>
</data>
<data name="NeuToolStripMenuItem.Text" xml:space="preserve">
<value>Rename filepath</value>
</data>
<data name="DisplaynameUmbenennenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 22</value>
<value>226, 26</value>
</data>
<data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Rename displayname</value>
</data>
<data name="docCM_RenameMain.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="docCM_RenameMain.Text" xml:space="preserve">
<value>Rename</value>
</data>
<data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_InWork.Text" xml:space="preserve">
<value>Take file in work</value>
</data>
<data name="docCM_linkRecord.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_linkRecord.Text" xml:space="preserve">
<value>Link file with record</value>
</data>
<data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>253, 26</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -915,25 +981,22 @@
</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
<value>210, 26</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
<value>Create new version</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
<value>210, 26</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
<value>Change the doctpe</value>
</data>
<data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>250, 6</value>
</data>
<data name="docCM_CheckRights.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_CheckRights.Text" xml:space="preserve">
<value>Check file-rights</value>
@ -961,28 +1024,28 @@
</value>
</data>
<data name="docCM_GetRights.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_GetRights.Text" xml:space="preserve">
<value>Show file-rights</value>
</data>
<data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>250, 6</value>
</data>
<data name="docCM_DeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_DeleteFile.Text" xml:space="preserve">
<value>Delete file</value>
</data>
<data name="docCM_RemoveLink.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_RemoveLink.Text" xml:space="preserve">
<value>Remove file link to record</value>
</data>
<data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>250, 6</value>
</data>
<data name="docCM_showGridSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -1004,31 +1067,31 @@
</value>
</data>
<data name="docCM_showGridSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_showGridSearch.Text" xml:space="preserve">
<value>Show GridSearch</value>
</data>
<data name="ToolStripSeparator16.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
<value>250, 6</value>
</data>
<data name="docCM_PropertiesFile.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_PropertiesFile.Text" xml:space="preserve">
<value>Properties</value>
</data>
<data name="docCM_ResetView.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
<value>253, 26</value>
</data>
<data name="docCM_ResetView.Text" xml:space="preserve">
<value>Reset view</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 370</value>
<data name="StatusStrip_Main.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 675</value>
</data>
<data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 24</value>
<value>1269, 32</value>
</data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -1039,7 +1102,7 @@
</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1379, 709</value>
<value>1269, 707</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

File diff suppressed because it is too large Load Diff

View File

@ -59,10 +59,10 @@ Public Class frmConstructor_Main
Private DT_TREEVIEW_CONFIGURATION As DataTable
Private DT_CONTROLS_ENTITY As DataTable
Private DT_ADDING_USERS As DataTable
Private DT_CONTROL_SCREEN_SHOW_COL_0 As DataTable
Private DT_VWPMO_CONTROL_SCREEN As DataTable
Private TREEVIEW_IMAGELIST As ImageList
Private NODE_NAVIGATION As Boolean = False
Private NODE_NAVIGATION_LOADED As Boolean = False
@ -398,8 +398,10 @@ Public Class frmConstructor_Main
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_ENTITY_DATA = ClassDatabase.Return_Datatable(SEL1, True)
DT_CONTROL_SCREEN_SHOW_COL_0 = ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0", True)
DT_VWPMO_CONTROL_SCREEN = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_CONTROL_SCREEN", True)
SEL1 = String.Format("SELECT *, dbo.FNPMO_GET_CONTROL_CAPTION ('{0}', 1, CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN", USER_LANGUAGE)
DT_VWPMO_CONTROL_SCREEN = ClassDatabase.Return_Datatable(SEL1, True)
DT_CONTROL_SCREEN_SHOW_COL_0 = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0", "") 'ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0", True)
If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
'Load Input Grid
Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
@ -1113,6 +1115,7 @@ Public Class frmConstructor_Main
tsButtonEdit.Enabled = False
tslblLocked.Visible = True
TabFollowUp.PageEnabled = False
tsmiMassChanges.Enabled = False
'pnlPositions.Enabled = False
' tsButtonShowTaskOverview.Enabled = False
End If
@ -1126,10 +1129,12 @@ Public Class frmConstructor_Main
'DATENSATZ-RECHTE
If RIGHT_ADD_R = False Then
tsButtonAdd.Enabled = False
End If
If RIGHT_EDIT_R = False Then
tslblLocked.Visible = True
tsButtonEdit.Enabled = False
tsmiMassChanges.Enabled = False
If RIGHT_ADD_R = False Then
tsButtonSave.Enabled = False
End If
@ -1673,6 +1678,7 @@ Public Class frmConstructor_Main
Public Sub Update_Record_Label(RecordId As Integer)
Try
Dim SQL As String = "SELECT ADDED_WHO, CONVERT(VARCHAR(16),ADDED_WHEN,20) AS ADDED_WHEN, COALESCE(CHANGED_WHO,'') AS CHANGED_WHO, COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') AS CHANGED_WHEN FROM TBPMO_RECORD WHERE GUID = " & RecordId
Dim expression = "[Record-ID] = " & RecordId
Dim resultDT As DataTable
If CtrlCommandUI.IsInsert = True Then
resultDT = ClassDatabase.Return_Datatable(SQL)
@ -1716,6 +1722,7 @@ Public Class frmConstructor_Main
Dim sw As New SW("Load_Controls")
FORMVIEW_ID = frmview_id
ENTITY_ID = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_ID")
CURRENT_ENTITY_ID = ENTITY_ID
CtrlBuilder = New ClassControlBuilder(pnlDetails)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails,
@ -1949,14 +1956,14 @@ Public Class frmConstructor_Main
Select Case ACT_EBENE
Case 1
EBENE1_RECID = recid
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
For Each row As DataRow In CURRENT_DT_ENTITY_RECORDS.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
End If
Next
Case 2
EBENE2_RECID = recid
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
For Each row As DataRow In CURRENT_DT_ENTITY_RECORDS.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
End If
@ -1974,7 +1981,7 @@ Public Class frmConstructor_Main
Select Case ACT_EBENE
Case 1
EBENE1_RECID = recid
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
For Each row As DataRow In CURRENT_DT_ENTITY_RECORDS.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
If EBENE1_COLUMNNAME = "" Then
EBENE1_GRID_RESULT = "No Column configured"
@ -1986,7 +1993,7 @@ Public Class frmConstructor_Main
Next
Case 2
EBENE2_RECID = recid
For Each row As DataRow In CURRENT_ENTITY_DT.Rows
For Each row As DataRow In CURRENT_DT_ENTITY_RECORDS.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
If EBENE2_COLUMNNAME = "" Then
EBENE2_GRID_RESULT = "No Column configured"
@ -2298,9 +2305,10 @@ Public Class frmConstructor_Main
RECORD_CHANGED = False
RECORD_ID = 0
Dim expression As String
Dim sql = "SELECT CONTROL_ID, CONTROL_READ_ONLY FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & ENTITY_ID
DT_CONTROLS_ENTITY = ClassDatabase.Return_Datatable(sql, True)
Dim sql
'Dim sql = "SELECT CONTROL_ID, CONTROL_READ_ONLY FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & ENTITY_ID
DT_CONTROLS_ENTITY = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & ENTITY_ID, "")
'ClassDatabase.Return_Datatable(sql, True)
COUNT_RO_CONTROLS = 0
@ -2360,15 +2368,19 @@ Public Class frmConstructor_Main
ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False)
End If
sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_WINDREAM_COLUMNS_GRID = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}') ORDER BY T.SEQUENCE ", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)
'sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
expression = String.Format("VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
'sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}') ORDER BY T.SEQUENCE ", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
'sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
' sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
expression = String.Format("VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = ENTITY_ID).Single()
@ -2383,8 +2395,9 @@ Public Class frmConstructor_Main
Else
CURRENT_ENTITY_REDUNDANT_ID = 0
End If
sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = ClassDatabase.Return_Datatable(sql, True)
'sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
expression = String.Format("")
sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(sql, True)
@ -2546,7 +2559,8 @@ Public Class frmConstructor_Main
_ENTITYSTRING = ACT_EBENE_STRING
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
DT_TBPMO_FORM_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, True)
DT_TBPMO_FORM_VIEW = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_FORM_VIEW, "FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, "")
'ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, True)
act_FormViewID = DT_TBPMO_FORM_VIEW.Rows(0).Item("GUID")
@ -2607,7 +2621,7 @@ Public Class frmConstructor_Main
While async.bw.IsBusy
Application.DoEvents()
End While
CURRENT_ENTITY_DT = async.dt
CURRENT_DT_ENTITY_RECORDS = async.dt
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async EntitySQL", ex.Message, ex.StackTrace)
End Try
@ -2619,12 +2633,15 @@ Public Class frmConstructor_Main
progressLoadEntity.Visible = False
labelLoadEntity.Visible = False
If IsNothing(CURRENT_ENTITY_DT) Then
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in getting Entity-Data - Check logfile")
Else
CURRENT_ENTITY_DT.TableName = "VWPMO_ENTITY_TABLE" & ENTITY_ID
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, True)
CURRENT_DT_ENTITY_RECORDS.TableName = "VWPMO_ENTITY_TABLE" & ENTITY_ID
' 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 = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID, "")
'Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, True)
CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES
If USER_WAN = True Then
@ -2632,8 +2649,8 @@ Public Class frmConstructor_Main
End If
Try
Dim primaryKey(1) As DataColumn
primaryKey(0) = CURRENT_ENTITY_DT.Columns("Record-ID")
CURRENT_ENTITY_DT.PrimaryKey = primaryKey
primaryKey(0) = CURRENT_DT_ENTITY_RECORDS.Columns("Record-ID")
CURRENT_DT_ENTITY_RECORDS.PrimaryKey = primaryKey
Catch ex As Exception
ClassLogger.Add("Could not set the primary Key(Record-ID): " & ex.Message, True)
End Try
@ -2775,7 +2792,7 @@ Public Class frmConstructor_Main
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
CURRENT_ENTITY_DT = DTEntity
CURRENT_DT_ENTITY_RECORDS = DTEntity
LoadGrid_Records()
Load_Grid_Layout()
Catch ex As Exception
@ -2789,7 +2806,7 @@ Public Class frmConstructor_Main
Dim ImageIndex As Integer = -1
Dim i As Integer = 0
Dim j As Integer = 0
Dim DT As DataTable = DirectCast(CURRENT_ENTITY_DT, DataTable)
Dim DT As DataTable = DirectCast(CURRENT_DT_ENTITY_RECORDS, DataTable)
If DT Is Nothing Then
MsgBox("Daten können nicht geladen werden - Datatable SELECTION is empty", MsgBoxStyle.Critical)
Exit Sub
@ -3063,7 +3080,7 @@ Public Class frmConstructor_Main
'Grid leeren
Clear_Grid_View()
Dim gridFormatter As New ClassGridFormatter.ConstructorView(CURRENT_ENTITY_DT, ENTITY_ID)
Dim gridFormatter As New ClassGridFormatter.ConstructorView(CURRENT_DT_ENTITY_RECORDS, ENTITY_ID)
Dim DT_RESULT As DataTable = gridFormatter.FormatDatatable()
GridControlMain.DataSource = DT_RESULT
gridFormatter.FormatGridView(grvwGrid)
@ -3157,8 +3174,8 @@ Public Class frmConstructor_Main
End Sub
Sub HideColumns_Pos(EntityID As Integer)
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
'Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID, "") 'ClassDatabase.Return_Datatable(SQL, True)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGridPos.Columns
If DT.Rows.Count <> 0 Then
@ -4323,6 +4340,8 @@ Public Class frmConstructor_Main
'End If
If RIGHT_READ_ONLY_DOC = True Then
ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
Else
ClassLogger.Add(">> No DragDrop allowed - ELSE", False)
End If
End If
@ -5503,7 +5522,7 @@ Public Class frmConstructor_Main
grvwGrid.FindFilterText = ""
End Sub
Private Sub MassenänderungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassenänderungToolStripMenuItem.Click
Private Sub MassenänderungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiMassChanges.Click
Try
Dim list As New ArrayList
Dim collist As New ArrayList

View File

@ -56,6 +56,7 @@ Partial Class frmDocRecordLink
'dgEntityRecords
'
resources.ApplyResources(Me.dgEntityRecords, "dgEntityRecords")
Me.dgEntityRecords.EmbeddedNavigator.Margin = CType(resources.GetObject("dgEntityRecords.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.dgEntityRecords.MainView = Me.grvwGrid
Me.dgEntityRecords.Name = "dgEntityRecords"
Me.dgEntityRecords.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid})
@ -76,12 +77,15 @@ Partial Class frmDocRecordLink
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsSelection.MultiSelect = True
Me.grvwGrid.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
'
'StatusStrip1
'
Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslbl})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Name = "StatusStrip1"

View File

@ -118,14 +118,35 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="txtFileInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>595, 24</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>26, 13</value>
<value>29, 19</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<value>file:</value>
</data>
<data name="btnLink.Location" type="System.Drawing.Point, System.Drawing">
<value>751, 4</value>
</data>
<data name="btnLink.Size" type="System.Drawing.Size, System.Drawing">
<value>257, 30</value>
</data>
<data name="btnLink.Text" xml:space="preserve">
<value>Link file(s) to selected record</value>
<value>Link file(s) to selected record(s)</value>
</data>
<data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>995, 538</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 590</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1027, 25</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1027, 615</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

View File

@ -117,12 +117,19 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="txtFileInfo.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="txtFileInfo.Location" type="System.Drawing.Point, System.Drawing">
<value>128, 6</value>
<value>148, 8</value>
</data>
<data name="txtFileInfo.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="txtFileInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>569, 21</value>
<value>713, 24</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="txtFileInfo.TabIndex" type="System.Int32, mscorlib">
@ -146,15 +153,17 @@
<data name="Label3.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Label3.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 9</value>
<value>12, 12</value>
</data>
<data name="Label3.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 0, 4, 0</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>110, 13</value>
<value>128, 19</value>
</data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
@ -174,6 +183,9 @@
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="btnLink.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value>
</data>
<data name="btnLink.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value>
</data>
@ -184,16 +196,19 @@
<value>NoControl</value>
</data>
<data name="btnLink.Location" type="System.Drawing.Point, System.Drawing">
<value>867, 4</value>
<value>869, 4</value>
</data>
<data name="btnLink.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="btnLink.Size" type="System.Drawing.Size, System.Drawing">
<value>274, 23</value>
<value>183, 30</value>
</data>
<data name="btnLink.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="btnLink.Text" xml:space="preserve">
<value>Verknüpfe Datei(en) mit gewähltem Datensatz</value>
<value>Datei(en) verknüpfen</value>
</data>
<data name="btnLink.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
@ -213,8 +228,11 @@
<data name="dgEntityRecords.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="dgEntityRecords.EmbeddedNavigator.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="dgEntityRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 33</value>
<value>16, 35</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Aqua</value>
@ -228,8 +246,11 @@
<data name="grvwGrid.Appearance.SelectedRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Yellow</value>
</data>
<data name="dgEntityRecords.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1129, 542</value>
<value>1039, 482</value>
</data>
<data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
<value>15</value>
@ -249,17 +270,14 @@
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="tsslbl.Size" type="System.Drawing.Size, System.Drawing">
<value>171, 17</value>
</data>
<data name="tsslbl.Text" xml:space="preserve">
<value>Waiting for record-Selection.....</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 579</value>
<value>0, 534</value>
</data>
<data name="StatusStrip1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>1, 0, 19, 0</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1153, 22</value>
<value>1071, 25</value>
</data>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>16</value>
@ -279,14 +297,20 @@
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="tsslbl.Size" type="System.Drawing.Size, System.Drawing">
<value>212, 20</value>
</data>
<data name="tsslbl.Text" xml:space="preserve">
<value>Waiting for record-Selection.....</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
<value>8, 17</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1153, 601</value>
<value>1071, 559</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value>
@ -1525,6 +1549,9 @@
AIPBAAD//wAA//8AAA==
</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Datei mit Datensatz verknüpfen</value>
</data>

View File

@ -2,7 +2,7 @@
Imports System.Text
Imports DD_LIB_Standards
Public Class frmDocRecordLink
Private SELECTED_RECORDID
Private Sub frmDocRecordLink_Load(sender As Object, e As EventArgs) Handles Me.Load
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
@ -10,16 +10,41 @@ Public Class frmDocRecordLink
txtFileInfo.Text = String.Format("{0} files selected for linking to record", ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count)
End If
Try
If IsNothing(CURRENT_ENTITY_DT) Then
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
Me.Close()
End If
dgEntityRecords.DataSource = CURRENT_ENTITY_DT
Dim DT_RECORDS As DataTable = CURRENT_DT_ENTITY_RECORDS
DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
DT_RECORDS.Columns("already linked").DefaultValue = False
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
Dim DOC_ID = row.Item("DOC_ID")
Dim sel = String.Format("select T.RECORD_ID FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0} AND T.DOC_ID = {1}", CURRENT_ENTITY_ID, DOC_ID)
Dim DTRECS_LINKED As DataTable = clsDatabase.Return_Datatable(sel)
For Each recrow As DataRow In DTRECS_LINKED.Rows
For Each rowrecsdisplay As DataRow In DT_RECORDS.Rows
If rowrecsdisplay.Item("Record-ID") = recrow.Item("RECORD_ID") Then
rowrecsdisplay.Item("file linked") = True
End If
Next
Next
Next
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in displaying already linked", ex.Message, ex.StackTrace)
End Try
dgEntityRecords.DataSource = DT_RECORDS
grvwGrid.Columns.Item("already linked").Fixed = True
grvwGrid.PopulateColumns()
dgEntityRecords.RefreshDataSource()
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDocRecordLink_Load", ex.Message, ex.StackTrace)
End Try
SELECTED_RECORDID = Nothing
Load_DocGrid_Layout()
tsslbl.Text = "Waiting for record-Selection....."
tsslbl.BackColor = Color.Transparent
@ -27,13 +52,17 @@ Public Class frmDocRecordLink
Private Sub btnLink_Click(sender As Object, e As EventArgs) Handles btnLink.Click
If clsWindream.Create_Session = False Then
MsgBox("No Seesion to windream created! Check Your connection!", MsgBoxStyle.Critical)
MsgBox("No session to windream created! Check Your connection!", MsgBoxStyle.Critical)
Exit Sub
End If
If Not IsNothing(SELECTED_RECORDID) Then
tsslbl.Text = ""
tsslbl.BackColor = Color.Transparent
Dim selectedRows As Integer() = grvwGrid.GetSelectedRows()
Dim i As Integer = 0
For Each rowhandle As Integer In selectedRows
Dim SELECTED_RECORDID = grvwGrid.GetRowCellValue(rowhandle, "Record-ID")
If IsNothing(SELECTED_RECORDID) Then
Continue For
End If
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID")
@ -86,23 +115,20 @@ Public Class frmDocRecordLink
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Linking Record to file", ex.Message, ex.StackTrace)
End Try
Else
MsgBox("Please choose a record!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Next
End Sub
Private Sub grvwGrid_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged
Try
If Not IsNothing(dgEntityRecords.DataSource) Then
Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("Record-ID"))
SELECTED_RECORDID = RecordId
tsslbl.Text = "Record (" & RecordId.ToString & ") selected!"
End If
Catch ex As Exception
MsgBox("Could not get the RecordID: " & ex.Message, MsgBoxStyle.Exclamation)
SELECTED_RECORDID = Nothing
End Try
'Try
' If Not IsNothing(dgEntityRecords.DataSource) Then
' Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("Record-ID"))
' SELECTED_RECORDID = RecordId
' tsslbl.Text = "Record (" & RecordId.ToString & ") selected!"
' End If
'Catch ex As Exception
' MsgBox("Could not get the RecordID: " & ex.Message, MsgBoxStyle.Exclamation)
' SELECTED_RECORDID = Nothing
'End Try
End Sub
Sub Save_DocGrid_Layout()

View File

@ -47,11 +47,11 @@
Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWM_Dokumentart_Konfig.akt_DokartID
Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWM_DoctypeConfig.akt_DokartID
Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex)
'Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID)
DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & frmWM_Dokumentart_Konfig.akt_DokartID & " ORDER BY T1.FORM_TITLE", True)
DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & frmWM_DoctypeConfig.akt_DokartID & " ORDER BY T1.FORM_TITLE", True)
cmbEntity.DataSource = DT_ENTITIES
cmbEntity.DisplayMember = DT_ENTITIES.Columns(2).ColumnName
cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName

View File

@ -78,6 +78,7 @@ Partial Class frmMain
Me.StatusPersonifiedLogin = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemSwitchCon = New DevExpress.XtraBars.BarButtonItem()
Me.LabelConString = New DevExpress.XtraBars.BarStaticItem()
Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -98,6 +99,7 @@ Partial Class frmMain
Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
Me.TimerInformation = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.StatusVersionDB = New DevExpress.XtraBars.BarStaticItem()
Me.cmsSystray.SuspendLayout()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -113,6 +115,7 @@ Partial Class frmMain
'
'cmsSystray
'
Me.cmsSystray.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem})
Me.cmsSystray.Name = "cmsSystray"
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
@ -194,9 +197,9 @@ Partial Class frmMain
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
Me.ribbonMain.ExpandCollapseItem.Id = 0
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox, Me.BarButtonItem13, Me.BarButtonItemSwitchCon})
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox, Me.BarButtonItem13, Me.BarButtonItemSwitchCon, Me.LabelConString, Me.StatusVersionDB})
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 9
Me.ribbonMain.MaxItemId = 12
Me.ribbonMain.Name = "ribbonMain"
Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2010
@ -550,6 +553,14 @@ Partial Class frmMain
Me.BarButtonItemSwitchCon.LargeGlyph = CType(resources.GetObject("BarButtonItemSwitchCon.LargeGlyph"), System.Drawing.Image)
Me.BarButtonItemSwitchCon.Name = "BarButtonItemSwitchCon"
'
'LabelConString
'
resources.ApplyResources(Me.LabelConString, "LabelConString")
Me.LabelConString.Glyph = CType(resources.GetObject("LabelConString.Glyph"), System.Drawing.Image)
Me.LabelConString.Id = 10
Me.LabelConString.Name = "LabelConString"
Me.LabelConString.TextAlignment = System.Drawing.StringAlignment.Near
'
'pageHome
'
Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm, Me.groupSearchAllOver, Me.RibbonPageGroupConnManager})
@ -658,8 +669,10 @@ Partial Class frmMain
Me.RibbonStatusBar1.ItemLinks.Add(Me.StatusPersonifiedLogin)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.StatusVersionDB)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelProxyServer)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelConString)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonMain
@ -698,9 +711,17 @@ Partial Class frmMain
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
'StatusVersionDB
'
resources.ApplyResources(Me.StatusVersionDB, "StatusVersionDB")
Me.StatusVersionDB.Id = 11
Me.StatusVersionDB.Name = "StatusVersionDB"
Me.StatusVersionDB.TextAlignment = System.Drawing.StringAlignment.Near
'
'frmMain
'
Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
@ -799,5 +820,7 @@ Partial Class frmMain
Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroupConnManager As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItemSwitchCon As DevExpress.XtraBars.BarButtonItem
Friend WithEvents LabelConString As DevExpress.XtraBars.BarStaticItem
Friend WithEvents StatusVersionDB As DevExpress.XtraBars.BarStaticItem
End Class

View File

@ -125,19 +125,19 @@
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
<value>196, 26</value>
</data>
<data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
<value>ADDI beenden</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
<value>196, 26</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Cockpit anzeigen</value>
</data>
<data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing">
<value>166, 48</value>
<value>197, 56</value>
</data>
<data name="&gt;&gt;cmsSystray.Name" xml:space="preserve">
<value>cmsSystray</value>
@ -2643,9 +2643,55 @@
z4m/8MJ/AHwVbV8goXKSAAAAAElFTkSuQmCC
</value>
</data>
<data name="LabelConString.Caption" xml:space="preserve">
<value>no ConString read...</value>
</data>
<data name="LabelConString.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACh0RVh0VGl0
bGUAREI7U291cmNlO1N0b3I7ZGF0YXNvdXJjZTtEYXRhYmFzZQPSeSoAAAbpSURBVFhHrZcLVJNlGMft
bmreMALvomEXT6YeqTRv6THrlJYeNTO7qJkHiSA9nvR4Fw0jDSWUYxomiHHxghg60HSAQJKyCQgMB9vY
QJhj4za2fdv+Pc90hCabVO85//Nx+L7v+f++533e533XCYBDbsZDbfTwPXqkje6953znH6PV1wWA04wD
P0Z6nPQEqTPpSVIXUtd2xPf5OX7nUZITpnW4AnAas2nnrNhlo6+fCgyoEAVHK9OCLyhFwRLF2S+llaLA
+kpRAJRn/CFP+aKh9MQSaWnSYmlh/MfiK4cXxFyIfC/44Nop4yhGDxLDcjyO6xjtAbD5I9tWvduzLDVo
neb3VZW1udtQV3gAjYpTMFafh6nmIlroKtTlwGbIhU2fCUvNGRjlcWgu+wUNRfugywuFOn0lZEmfIP/A
LE162PStM8cP9KLYnBEHhCuAx6uzt2QbSo9CaLwOu6CG3VIBm6kEtmYJbA1kahDDpjsHa20KrNUJsFbG
QFBFw6o4CEG+D5YbERBIVnkkjMXhUJ0JRNauqZcpdncST2m7AEzXuSRpCew2A+xWDezmUthNBbC3SGBv
ziOA7DsAabBqT8N68xismqOwqg5BUOwn0x8hlO2CULoDluIQWAo30XUbskLHs4kHiafiIVcAXYril8Ks
zaOvJwBrDamKslBOIMWUhXyCuAxbfSZst87CWpNMWUiEVU1ZUMfBqmSQg3SNpqzE0t+xqM8LgfjbCWzi
SeJpaBeA09O1IO4zGK6Gw6wWQWhRwmqphk0gWWg6TDQdRpoakxx2o4yyUgx7oxSmytMwqU7CpExAy41o
GCU7USdaAXX0dCiPzMHFEEcGnHXgEqCb9PAi6K/8QABnYTEqYDHfhEXQwmxSwFyfRcW4Dw2lgag+PQmq
WD/IIkZAsnko8rc9C3n0BNSc+Ri61KWoTVzQCvD75nEPDPCUJHoh9H/ugrkytQ1A7R2ATBirIlFfsqJD
AOkbXmOTviTuJS4Bul/5aT70ed/DrEohgAoCqL4DUAGzIYMAIlBfvLxDAKK1fmzSj+QSgLtWjwvfziCA
MJiVyXcDtDCAGEbNHhiKlnYIIHH5CDbpT3IL0DPu85FHin75FE0lsQRQTgBVBFBDAOUEcJEAwmEo/PSB
AMr3TkbO+rHY/Wa/IxR7AMktQK/LUYsgP7ESBYe/wPX0KCilqbhZkYM6TQ4MqiTcKloPvXThXQCXvh6A
rNWDIAkbhaK9U3Ftx0RkBj6P9M8GIC/kdSQHj2WTgSTeI1wC9M7c+S4M0r2w1GajpUFJxtdQJcuC/I94
yM6FoDB5IcShPji7whMpi3oj4f2eOD7PE8c+eBrng3whjZgO+aH50CRQluLnQhW/AMcDRrHJIJJbAA9x
6AzocrfDRP2da0CwaCEIerrWQGgugrkumQoxHI3XN0J/eSVqzy1GecxbkMfMgCblI+gyvob+XBC0xxa1
qYGRbDKY5BKA26TH+S3ToMsJcQCYm2RUA2pYqBmZW8pg1qejSRmCuvw5HSrC+GUvsckQkluAPmnr34Au
e+sdgBJafmqYCcBEAKY6EZoUGzsMcHSxYxX4kPiscF8A3gkZwPNYwFjoLm1pA6AigCqYqPWadKn/CiBq
9jA2GUpyC/BM5CyfIwUH5qORzgF/A2gIoIQAfusQgHMZbnzFk5fhMJJLAO7TXqINb6Is8UsUHFqCorQI
KCSnUF2eCZ06A/ryw9BKv0Ld1bsB3C3Dnz98kU18SXw6cgngfTLwVeqEO+mkk4WW+nIyzodGJsaN3BiU
pK1DYdJ7tL0O7tAy/GmuL5sMJ7kF6Hvcfwy0Getu10BzmWMzEgTd7Y7YJIHpVnyHl+H+2Q6A50guAbhN
9ktcNgpa8dp7ivDf1YATYN+soWzyPMk9wK+LRxLAmv8VIPIdHycAH9tdT0HcJyOgvfjN/wqw5+0hbMJF
2O4q4MGtuE/UXN8/LoW+Df3VqP8MIPtxCk76j4b/8F5XKbbb3dBxKB3Tv5vv9mn9IvbPHKhN8p+AzMgg
FJyOhCIvAZo/90IpXgHdldmtAKV7RiBj5RCIV/sgd/sYZIRMwakAP0TOGIQNoz10y4b3ONi/66MvU2z+
keLyWM7TwA9wofQhDZr3Qq931ox/5rutk7ySw6Z4S79/w1u2Y5JX2e6p3rbwyd7YNdELYRO8bJv8npZv
8utzY90Yj4Kgl3qnLhneY/dk7y7zKAZXPp+E+DeB40hOahfAOTgT/DDPF7/IMN4kTiHvaNxSeT45OIvX
97Mk7nTc73nf5wNobxIXHdcWf5jDnIc7AOdwZoRrg4Pw/PFuxmCcJRYb8JX/x+L7/Bx/AL/LH9Nq7BwP
CnC/wcEeVO2O277o9BcKGVgW8UDOIgAAAABJRU5ErkJggg==
</value>
</data>
<data name="StatusVersionDB.Caption" xml:space="preserve">
<value>DBVersion:</value>
</data>
<data name="ribbonMain.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ribbonMain.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Kalender</value>
</data>
@ -2686,13 +2732,16 @@
<value>Administration</value>
</data>
<data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1500, 150</value>
<value>1196, 187</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 795</value>
<value>0, 616</value>
</data>
<data name="RibbonStatusBar1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1500, 23</value>
<value>1196, 29</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
@ -2758,10 +2807,10 @@
<value>White</value>
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
<value>8, 19</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1500, 818</value>
<value>1196, 645</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
@ -3658,6 +3707,9 @@
/////////////wA///////////////////8f////////////////////
</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Form1</value>
</data>
@ -3973,6 +4025,12 @@
<data name="&gt;&gt;BarButtonItemSwitchCon.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;LabelConString.Name" xml:space="preserve">
<value>LabelConString</value>
</data>
<data name="&gt;&gt;LabelConString.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;pageHome.Name" xml:space="preserve">
<value>pageHome</value>
</data>
@ -4081,6 +4139,12 @@
<data name="&gt;&gt;TimerInformation.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusVersionDB.Name" xml:space="preserve">
<value>StatusVersionDB</value>
</data>
<data name="&gt;&gt;StatusVersionDB.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value>
</data>

View File

@ -87,6 +87,7 @@ Public Class frmMain
Me.Text = Application.ProductName
LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
StatusVersionDB.Caption = "DB-Version: " & DBVERSION
LabelUser.Caption = USER_USERNAME
'IP-Adresse-Auslesen
@ -103,7 +104,7 @@ Public Class frmMain
LabelLanguage.Caption = "Language: " & USER_LANGUAGE
Load_Connection_Dep_Data()
Display_ConString
'Wenn Argumente übergeben wurden, wird Formular geladen und zu record gesprungen
ClassJumpRecord.ParseArgs()
@ -209,6 +210,20 @@ Public Class frmMain
End If
Load_TasksforUser()
End Sub
Sub Display_ConString()
Try
Dim connection As New SqlClient.SqlConnection(MyConnectionString) 'csb.ConnectionString)
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
Dim constr = connection.ConnectionString
If constr.Contains("Trusted_Connection=True") = False Then
constr = constr.Replace(csb.Password, "XXXXX")
End If
LabelConString.Caption = constr
Catch ex As Exception
MsgBox("Unexpected Error in Display_ConString:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_TasksforUser()
Try
VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
@ -722,8 +737,10 @@ Public Class frmMain
If CONNECTION_CHANGED = True Then
' Den User neu laden, damit MenuItems korrekt geladen werden können
If ClassInit.InitDatabase = True Then
ClassInit.InitUserLogin()
Load_Connection_Dep_Data()
Display_ConString()
Else
MsgBox("Unexpected Error when new Initialize Database!", MsgBoxStyle.Critical)
End If

View File

@ -22,125 +22,72 @@ Partial Class frmNewVariant
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNewVariant))
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cmbReason = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtComment = New System.Windows.Forms.TextBox()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(226, 185)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
resources.ApplyResources(Me.OK_Button, "OK_Button")
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
resources.ApplyResources(Me.Cancel_Button, "Cancel_Button")
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
Me.Cancel_Button.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Abbrechen"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(364, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Bestimmen Sie hier bitte die Details für die Erstellung einer neuen Variante."
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 34)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(186, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Grund für die Erstellung der Variante:"
'
'cmbReason
'
resources.ApplyResources(Me.cmbReason, "cmbReason")
Me.cmbReason.FormattingEnabled = True
Me.cmbReason.Location = New System.Drawing.Point(12, 50)
Me.cmbReason.Name = "cmbReason"
Me.cmbReason.Size = New System.Drawing.Size(364, 21)
Me.cmbReason.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 80)
resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(114, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Kommentar: (optional)"
'
'txtComment
'
Me.txtComment.Location = New System.Drawing.Point(15, 96)
Me.txtComment.Multiline = True
resources.ApplyResources(Me.txtComment, "txtComment")
Me.txtComment.Name = "txtComment"
Me.txtComment.Size = New System.Drawing.Size(361, 83)
Me.txtComment.TabIndex = 5
'
'frmNewVariant
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(384, 226)
Me.Controls.Add(Me.OK_Button)
Me.Controls.Add(Me.txtComment)
Me.Controls.Add(Me.Cancel_Button)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cmbReason)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmNewVariant"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Neue Variante definieren"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cmbReason As System.Windows.Forms.ComboBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtComment As System.Windows.Forms.TextBox

View File

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

View File

@ -117,4 +117,214 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="txtComment.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 102</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<value>Kommentar: (optional)</value>
</data>
<data name="Cancel_Button.Text" xml:space="preserve">
<value>Abbrechen</value>
</data>
<data name="&gt;&gt;cmbReason.Name" xml:space="preserve">
<value>cmbReason</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmNewVariant</value>
</data>
<data name="&gt;&gt;Cancel_Button.Name" xml:space="preserve">
<value>Cancel_Button</value>
</data>
<data name="&gt;&gt;txtComment.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 82</value>
</data>
<data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>213, 197</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Cancel_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="cmbReason.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 54</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterParent</value>
</data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>Grund für die Erstellung der Variante:</value>
</data>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="&gt;&gt;OK_Button.Name" xml:space="preserve">
<value>OK_Button</value>
</data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="cmbReason.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 25</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;Label3.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label3.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Cancel_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>8, 17</value>
</data>
<data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="txtComment.Size" type="System.Drawing.Size, System.Drawing">
<value>361, 83</value>
</data>
<data name="&gt;&gt;OK_Button.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>286, 198</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;cmbReason.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Bestimmen Sie hier bitte die Details für die Erstellung einer neuen Variante.</value>
</data>
<data name="&gt;&gt;OK_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Cancel_Button.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="cmbReason.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="&gt;&gt;Label3.Name" xml:space="preserve">
<value>Label3</value>
</data>
<data name="&gt;&gt;txtComment.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtComment.Name" xml:space="preserve">
<value>txtComment</value>
</data>
<data name="&gt;&gt;Cancel_Button.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 9</value>
</data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 34</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="&gt;&gt;cmbReason.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="OK_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<data name="&gt;&gt;OK_Button.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Neue Variante definieren</value>
</data>
<data name="OK_Button.Text" xml:space="preserve">
<value>OK</value>
</data>
<data name="&gt;&gt;cmbReason.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>454, 17</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>90, 26</value>
</data>
<data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 28</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>467, 226</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 17</value>
</data>
<data name="&gt;&gt;txtComment.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>147, 17</value>
</data>
<data name="txtComment.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="txtComment.Multiline" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>en-US</value>
</metadata>
</root>

View File

@ -60,13 +60,16 @@ Public Class frmRecordView
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
ClassProxy.Refresh_Workflow_Data()
sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, True)
sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
'sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") 'ClassDatabase.Return_Datatable(sql, True)
' sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
Dim expression As String = String.Format("VISIBLE = 1 And ENTITY_ID = {0} And LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
'Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_WINDREAM_RESULTLIST = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql_ResultList, True)
Dim sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, True)
TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
ClassWindowLocation.LoadFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView")

View File

@ -247,7 +247,7 @@ Public Class frmUserKonfig
Case 3
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_USER_MODULES T1 where T.GUID = T1.USER_ID AND T1.MODULE_ID = 0 ORDER BY T.USERNAME")
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_USER_MODULES T1 where T.GUID = T1.USER_ID AND T1.MODULE_ID = 1 ORDER BY T.USERNAME")
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow

View File

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmWM_Dokumentart_Konfig
Partial Class frmWM_DoctypeConfig
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -24,7 +24,7 @@ Partial Class frmWM_Dokumentart_Konfig
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GUIDLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_Dokumentart_Konfig))
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_DoctypeConfig))
Dim BEZEICHNUNGLabel As System.Windows.Forms.Label
Dim KURZNAMELabel As System.Windows.Forms.Label
Dim ZIEL_PFADLabel As System.Windows.Forms.Label
@ -42,7 +42,7 @@ Partial Class frmWM_Dokumentart_Konfig
Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim OBJEKTTYPLabel As System.Windows.Forms.Label
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -332,8 +332,9 @@ Partial Class frmWM_Dokumentart_Konfig
Me.TBDD_DOKUMENTARTBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
Me.TBDD_DOKUMENTARTBindingNavigator.BindingSource = Me.TBDD_DOKUMENTARTBindingSource
Me.TBDD_DOKUMENTARTBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBDD_DOKUMENTARTBindingNavigator.CountItemFormat = "of {0} documenttypes"
Me.TBDD_DOKUMENTARTBindingNavigator.CountItemFormat = "von {0} Dokumentarten"
Me.TBDD_DOKUMENTARTBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
Me.TBDD_DOKUMENTARTBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.TBDD_DOKUMENTARTBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_EINGANGSARTENBindingNavigatorSaveItem, Me.ToolStripButton16, Me.ToolStripButton17})
resources.ApplyResources(Me.TBDD_DOKUMENTARTBindingNavigator, "TBDD_DOKUMENTARTBindingNavigator")
Me.TBDD_DOKUMENTARTBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
@ -472,6 +473,7 @@ Partial Class frmWM_Dokumentart_Konfig
'GridControl1
'
Me.GridControl1.DataSource = Me.TBDD_DOKUMENTARTBindingSource
Me.GridControl1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
@ -710,6 +712,7 @@ Partial Class frmWM_Dokumentart_Konfig
'
'StatusStrip1
'
Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Name = "StatusStrip1"
@ -918,6 +921,7 @@ Partial Class frmWM_Dokumentart_Konfig
Me.TBDD_INDEX_AUTOMBindingNavigator.CountItem = Me.ToolStripLabel1
Me.TBDD_INDEX_AUTOMBindingNavigator.CountItemFormat = "von {0} Indexen"
Me.TBDD_INDEX_AUTOMBindingNavigator.DeleteItem = Me.ToolStripButton2
Me.TBDD_INDEX_AUTOMBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.TBDD_INDEX_AUTOMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7})
resources.ApplyResources(Me.TBDD_INDEX_AUTOMBindingNavigator, "TBDD_INDEX_AUTOMBindingNavigator")
Me.TBDD_INDEX_AUTOMBindingNavigator.MoveFirstItem = Me.ToolStripButton3
@ -998,8 +1002,8 @@ Partial Class frmWM_Dokumentart_Konfig
'
Me.XtraTabPage3.Controls.Add(Me.ListBox1)
Me.XtraTabPage3.Controls.Add(Me.BindingNavigator2)
Me.XtraTabPage3.Name = "XtraTabPage3"
resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
Me.XtraTabPage3.Name = "XtraTabPage3"
'
'ListBox1
'
@ -1019,6 +1023,7 @@ Partial Class frmWM_Dokumentart_Konfig
Me.BindingNavigator2.CountItem = Me.ToolStripLabel3
Me.BindingNavigator2.CountItemFormat = "von {0} Indexen"
Me.BindingNavigator2.DeleteItem = Me.ToolStripButton18
Me.BindingNavigator2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton19, Me.ToolStripButton20, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel3, Me.ToolStripSeparator8, Me.ToolStripButton21, Me.ToolStripButton22, Me.ToolStripSeparator9, Me.ToolStripButton8, Me.ToolStripButton18, Me.ToolStripButton23})
resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2")
Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton19
@ -1116,8 +1121,8 @@ Partial Class frmWM_Dokumentart_Konfig
'
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToAddRows = False
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
resources.ApplyResources(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView")
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AutoGenerateColumns = False
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@ -1213,6 +1218,7 @@ Partial Class frmWM_Dokumentart_Konfig
Me.BindingNavigator1.CountItem = Me.ToolStripLabel2
Me.BindingNavigator1.CountItemFormat = "of {0} Mappings"
Me.BindingNavigator1.DeleteItem = Me.ToolStripButton9
Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripSeparator4, Me.ToolStripTextBox2, Me.ToolStripLabel2, Me.ToolStripSeparator5, Me.ToolStripButton12, Me.ToolStripButton13, Me.ToolStripSeparator6, Me.ToolStripButton9, Me.ToolStripButton14, Me.ToolStripButton15})
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton10
@ -1297,8 +1303,8 @@ Partial Class frmWM_Dokumentart_Konfig
Me.XtraTabPage4.Controls.Add(Me.FOLDER_FOR_INDEXTextBox)
Me.XtraTabPage4.Controls.Add(Me.grbxFolderforIndex)
Me.XtraTabPage4.Controls.Add(Me.Label17)
Me.XtraTabPage4.Name = "XtraTabPage4"
resources.ApplyResources(Me.XtraTabPage4, "XtraTabPage4")
Me.XtraTabPage4.Name = "XtraTabPage4"
'
'lblpathsaved
'
@ -1389,14 +1395,14 @@ Partial Class frmWM_Dokumentart_Konfig
'
Me.TBWH_DOKART_MODULETableAdapter.ClearBeforeFill = True
'
'frmWM_Dokumentart_Konfig
'frmWM_DoctypeConfig
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.XtraTabControl1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.GroupBox1)
Me.Name = "frmWM_Dokumentart_Konfig"
Me.Name = "frmWM_DoctypeConfig"
CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBDD_DOKUMENTARTBindingNavigator.ResumeLayout(False)
Me.TBDD_DOKUMENTARTBindingNavigator.PerformLayout()

View File

@ -1,12 +1,12 @@
Imports DD_LIB_Standards
Public Class frmWM_Dokumentart_Konfig
Private Shared _Instance As frmWM_Dokumentart_Konfig = Nothing
Public Class frmWM_DoctypeConfig
Private Shared _Instance As frmWM_DoctypeConfig = Nothing
Private insert As Boolean = False
Public Shared akt_DokartID As Integer
Private IsInsert As Boolean = False
Public Shared Function Instance() As frmWM_Dokumentart_Konfig
Public Shared Function Instance() As frmWM_DoctypeConfig
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmWM_Dokumentart_Konfig
_Instance = New frmWM_DoctypeConfig
End If
_Instance.BringToFront()
Return _Instance