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

MS Referenz W-Laufwerk

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-12-19 17:09:23 +01:00
parent 0ccd050d4c
commit fb148c193c
24 changed files with 1364 additions and 819 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@ -111,12 +111,12 @@ Public Class ClassAllgemeineFunktionen
End If End If
End Sub End Sub
Public Function Delete_xffres(originFile As String) Public Function Delete_xffres(originFile As String, clsWD As ClassWindream_allgemein)
Try Try
Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(originFile) Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(originFile)
Dim Path As String = System.IO.Path.GetDirectoryName(originFile) Dim Path As String = System.IO.Path.GetDirectoryName(originFile)
Dim xffres As String = Path & "\" & Stammname & ".xffres" Dim xffres As String = Path & "\" & Stammname & ".xffres"
If file_exists(xffres, False) = True Then If file_exists(xffres, clsWD) = True Then
System.IO.File.Delete(xffres) System.IO.File.Delete(xffres)
ClassLogger.Add(">> Datei " & xffres & " erfolgreich gelöscht", False) ClassLogger.Add(">> Datei " & xffres & " erfolgreich gelöscht", False)
Return True Return True
@ -128,42 +128,27 @@ Public Class ClassAllgemeineFunktionen
ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False) ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
End Try End Try
End Function End Function
Public Function func_check_file_use(ByVal filename) As Boolean 'Public Function Delete_File(originFile As String)
Dim fs As Integer = FreeFile() ' Try
Dim inuse As Boolean = False
If File.Exists(filename) Then
Try
FileOpen(fs, filename, OpenMode.Binary, _
OpenAccess.ReadWrite, OpenShare.LockReadWrite)
Catch
inuse = True
Finally
FileClose(fs)
End Try
End If
Return inuse
End Function
Public Function Delete_File(originFile As String)
Try
If file_exists(originFile, False) = True Then ' If file_exists(originFile, False) = True Then
System.IO.File.Delete(originFile) ' System.IO.File.Delete(originFile)
ClassLogger.Add(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False) ' ClassLogger.Add(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
Return True ' Return True
Else ' Else
MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation) ' MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
Return False ' Return False
End If ' End If
Catch ex As Exception ' Catch ex As Exception
ClassLogger.Add(" Fehler bei Delete_File", True) ' ClassLogger.Add(" Fehler bei Delete_File", True)
ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False) ' ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
End Try ' End Try
End Function 'End Function
Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer) Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer, clsWD As ClassWindream_allgemein)
Try Try
If vpdfviewer <> "internal" And vMove_File.EndsWith("pdf") Then If vpdfviewer <> "internal" And vMove_File.EndsWith("pdf") Then
Do While func_check_file_use(vMove_File) = True Do While clsWD.CheckFileExists(vMove_File) = True 'func_check_file_use(vMove_File)
ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False) ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False)
System.Threading.Thread.Sleep(500) System.Threading.Thread.Sleep(500)
Loop Loop
@ -178,7 +163,7 @@ Public Class ClassAllgemeineFunktionen
Dim version As Integer = 1 Dim version As Integer = 1
If vZiel_Pfad <> path Then If vZiel_Pfad <> path Then
Dim Stammname As String = IO.Path.GetFileNameWithoutExtension(vMove_File) Dim Stammname As String = IO.Path.GetFileNameWithoutExtension(vMove_File)
Do While file_exists(_Ziel, False) = True Do While file_exists(_Ziel, clsWD) = True
Dim neuername As String = Stammname & "~" & version & extension Dim neuername As String = Stammname & "~" & version & extension
_Ziel = neuername _Ziel = neuername
version = version + 1 version = version + 1
@ -198,13 +183,9 @@ Public Class ClassAllgemeineFunktionen
Return ex.Message Return ex.Message
End Try End Try
End Function End Function
Public Function file_exists(ByVal _file As String, ByVal suche As Boolean) Public Function file_exists(ByVal _file As String, clsWD As ClassWindream_allgemein)
Try Try
If System.IO.File.Exists(_file) Then Return clsWD.CheckFileExists(_file)
Return True
Else
Return False
End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Fehler in Funktion file_exists - Fehler: ", ex.Message) ClassLogger.Add("Fehler in Funktion file_exists - Fehler: ", ex.Message)
Return False Return False

7
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -1,4 +1,5 @@
Imports Oracle.ManagedDataAccess.Client Imports System.Data.SqlClient
Imports Oracle.ManagedDataAccess.Client
Public Class ClassDatabase Public Class ClassDatabase
Private Shared SQLSERVERConnectionString As String Private Shared SQLSERVERConnectionString As String
Private Shared OracleConnectionString As String Private Shared OracleConnectionString As String
@ -18,7 +19,7 @@ Public Class ClassDatabase
' connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" ' connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
Case "Oracle" Case "Oracle"
If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
Else Else
connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True" connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True"
@ -126,7 +127,7 @@ Public Class ClassDatabase
Clipboard.SetText("Error ExecuteCMD: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD) Clipboard.SetText("Error ExecuteCMD: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True) ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("#SQL: " & ExecuteCMD, False) ClassLogger.Add("#SQL: " & ExecuteCMD, False)
Return False Return False
End Try End Try
End Function End Function

12
app/DD_PM_WINDREAM/ClassDragDrop.vb
View File

@ -58,7 +58,17 @@ Public Class ClassDragDrop
Dim source As String = view.GridControl.Name Dim source As String = view.GridControl.Name
If Not IsNothing(row) Then If Not IsNothing(row) Then
dragDropData = row.Item("GUID") & "|" & source Try
dragDropData = row.Item("GUID") & "|" & source
Catch ex As Exception
Try
dragDropData = row.Item("USER_ID") & "|" & source
Catch ex1 As Exception
MsgBox("Error in view_MouseMove(2nd exception): " & ex.Message, MsgBoxStyle.Critical)
End Try
End Try
view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move) view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
downHitInfo = Nothing downHitInfo = Nothing

2
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -86,8 +86,6 @@ Public Class ClassInit
frmClientLogin.ShowDialog() frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID") CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
ClassLogger.Add("User '" & USER_USERNAME & "' not related to a client", True)
Else Else
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close() 'Me.Close()

15
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -2,7 +2,9 @@
Imports WMOSRCHLib Imports WMOSRCHLib
Public Class ClassPMWindream Public Class ClassPMWindream
Inherits ClassWindream_allgemein Inherits ClassWindream_allgemein
Dim clsWM As ClassWindream_allgemein
'Private email As New ClassNIEmail 'Private email As New ClassNIEmail
Private allgFunk As New ClassAllgemeineFunktionen Private allgFunk As New ClassAllgemeineFunktionen
#Region "+++++ Konstanten +++++" #Region "+++++ Konstanten +++++"
@ -418,7 +420,7 @@ Public Class ClassPMWindream
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("ClassSearchResult.RunIndexing - " & ex.Message, True) ClassLogger.Add("ClassSearchResult.RunIndexing - " & ex.Message, True)
frmValidator.idxerr_message = "Unvorhergesehener Fehler in Indexing: " & ex.Message & vbNewLine & "vType: " & vType.tostring frmValidator.idxerr_message = "Unvorhergesehener Fehler in Indexing: " & ex.Message & vbNewLine & "vType: " & vType.ToString
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & oDocument.aName & " - ERROR: " & ex.Message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & oDocument.aName & " - ERROR: " & ex.Message, Environment.UserName)
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
@ -480,8 +482,15 @@ Public Class ClassPMWindream
Public Function Get_No_Documents(Profil As String, WD_Search As String) Public Function Get_No_Documents(Profil As String, WD_Search As String)
Try Try
Dim wmsearch_exists As Boolean
Try
wmsearch_exists = System.IO.File.Exists(WD_Search)
Catch ex As Exception
wmsearch_exists = clsWM.CheckFileExists(WD_Search)
End Try
If wmsearch_exists = False Then
If System.IO.File.Exists(WD_Search) = False Then
ClassLogger.Add(">> Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden! Die Datei '" & WD_Search & "' existiert nicht!", False) ClassLogger.Add(">> Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden! Die Datei '" & WD_Search & "' existiert nicht!", False)
MsgBox("Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden!" & vbNewLine & "Die Datei '" & WD_Search & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:") MsgBox("Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden!" & vbNewLine & "Die Datei '" & WD_Search & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen 'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
@ -511,7 +520,7 @@ Public Class ClassPMWindream
Public Function GetSearchDocuments(ByVal wdfLocation As String) Public Function GetSearchDocuments(ByVal wdfLocation As String)
If System.IO.File.Exists(wdfLocation) Then If clsWM.CheckFileExists(wdfLocation) = True Then
Try Try
Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1) Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)

24
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -137,7 +137,8 @@ Public Class ClassWindream_allgemein
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString) Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Is Nothing Then If WMSESSION_STARTSTOP_STARTUP = True Then
'And userExistsInServerUserGroup Is Nothing
ClassLogger.Add(">> WINDREAM-Start on ApplicationStart is active!", False) ClassLogger.Add(">> WINDREAM-Start on ApplicationStart is active!", False)
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter") Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
@ -223,6 +224,27 @@ Public Class ClassWindream_allgemein
Catch ex As Exception Catch ex As Exception
Return Nothing Return Nothing
End Try End Try
End Function
Public Function CheckFileExists(Path As String)
Dim oNormalizedPath = Path
If Not Path.StartsWith("\") Then
oNormalizedPath = Path.Substring(2)
End If
Try
Dim oObjectId = 0
Dim oObjectDbId = 0
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
If IsNothing(oSession) Then
If Create_Session() = False Then
Return False
End If
End If
WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, oNormalizedPath)
Return True
Catch ex As Exception
Return False
End Try
End Function End Function
''' <summary> ''' <summary>
''' Liefert alle Indexe eines Objekttypen. ''' Liefert alle Indexe eines Objekttypen.

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

@ -21956,9 +21956,9 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _ Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_"& _
"ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _ "SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_GET_FRE"& _
"GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1" "E_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub End Sub

11
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -227,6 +227,12 @@
<Compile Include="frmError.vb"> <Compile Include="frmError.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmFileInfo.Designer.vb">
<DependentUpon>frmFileInfo.vb</DependentUpon>
</Compile>
<Compile Include="frmFileInfo.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFormDesigner.Designer.vb"> <Compile Include="frmFormDesigner.Designer.vb">
<DependentUpon>frmFormDesigner.vb</DependentUpon> <DependentUpon>frmFormDesigner.vb</DependentUpon>
</Compile> </Compile>
@ -346,6 +352,9 @@
<EmbeddedResource Include="frmError.resx"> <EmbeddedResource Include="frmError.resx">
<DependentUpon>frmError.vb</DependentUpon> <DependentUpon>frmError.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmFileInfo.resx">
<DependentUpon>frmFileInfo.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFormDesigner.resx"> <EmbeddedResource Include="frmFormDesigner.resx">
<DependentUpon>frmFormDesigner.vb</DependentUpon> <DependentUpon>frmFormDesigner.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -644,6 +653,8 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="PM_ohne_slogan_128px.ico" /> <Content Include="PM_ohne_slogan_128px.ico" />
<None Include="Resources\Symbols_Information_16xLG.png" />
<None Include="Resources\action_add_16xLG.png" />
<None Include="Resources\cancel.png" /> <None Include="Resources\cancel.png" />
<None Include="Resources\shape_square_go.png" /> <None Include="Resources\shape_square_go.png" />
<None Include="Resources\Checked-outforEdit_Color_13297.png" /> <None Include="Resources\Checked-outforEdit_Color_13297.png" />

3
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -9,6 +9,9 @@ Module ModuleRuntimeVariables
Public CURRENT_DOC_GUID As Integer Public CURRENT_DOC_GUID As Integer
Public CURRENT_DOC_ID As Integer Public CURRENT_DOC_ID As Integer
Public CURRENT_DOC_CREATION_DATE As String
Public CURRENT_DOC_CREATION_TIME As String
Public CURRENT_JUMP_DOC_GUID As Integer Public CURRENT_JUMP_DOC_GUID As Integer
Public CURRENT_WMFILE As WMObject Public CURRENT_WMFILE As WMObject

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

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

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

@ -124,6 +124,9 @@
<data name="asterisk_yellow" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="asterisk_yellow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -166,6 +169,9 @@
<data name="Settings" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ampel-gruen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="application_form_edit" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="application_form_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -217,14 +223,17 @@
<data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="resultset_last" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ampel-gruen" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="shape_square_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -250,8 +259,8 @@
<data name="bullet_red" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bullet_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="resultset_last" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -295,9 +304,6 @@
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="shape_square_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="syncreon" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="syncreon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\syncreon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\syncreon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -334,7 +340,7 @@
<data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Symbols_Information_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Symbols_Information_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 147 B

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 164 B

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

@ -112,6 +112,7 @@ Partial Class frmAdministration
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnProfilkopieren = New System.Windows.Forms.ToolStripButton() Me.tsbtnProfilkopieren = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnDeleteProfileData = New System.Windows.Forms.ToolStripButton()
Me.tsbtndeleteProfil = New System.Windows.Forms.ToolStripButton() Me.tsbtndeleteProfil = New System.Windows.Forms.ToolStripButton()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.cmbObjekttypen = New System.Windows.Forms.ComboBox() Me.cmbObjekttypen = New System.Windows.Forms.ComboBox()
@ -149,7 +150,6 @@ Partial Class frmAdministration
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Button3 = New System.Windows.Forms.Button()
Me.cmbLOGIndex = New System.Windows.Forms.ComboBox() Me.cmbLOGIndex = New System.Windows.Forms.ComboBox()
Me.PM_VEKTOR_INDEXComboBox = New System.Windows.Forms.ComboBox() Me.PM_VEKTOR_INDEXComboBox = New System.Windows.Forms.ComboBox()
Me.SORT_BY_LATESTCheckBox = New System.Windows.Forms.CheckBox() Me.SORT_BY_LATESTCheckBox = New System.Windows.Forms.CheckBox()
@ -393,6 +393,7 @@ Partial Class frmAdministration
Me.gridAssignedUsers.AllowDrop = True Me.gridAssignedUsers.AllowDrop = True
Me.gridAssignedUsers.DataSource = Me.TBPROFILE_USERBindingSource Me.gridAssignedUsers.DataSource = Me.TBPROFILE_USERBindingSource
resources.ApplyResources(Me.gridAssignedUsers, "gridAssignedUsers") resources.ApplyResources(Me.gridAssignedUsers, "gridAssignedUsers")
Me.gridAssignedUsers.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAssignedUsers.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAssignedUsers.MainView = Me.viewAssignedUsers Me.gridAssignedUsers.MainView = Me.viewAssignedUsers
Me.gridAssignedUsers.Name = "gridAssignedUsers" Me.gridAssignedUsers.Name = "gridAssignedUsers"
Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers}) Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers})
@ -469,6 +470,7 @@ Partial Class frmAdministration
Me.gridAvailableUsers.AllowDrop = True Me.gridAvailableUsers.AllowDrop = True
Me.gridAvailableUsers.DataSource = Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource Me.gridAvailableUsers.DataSource = Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource
resources.ApplyResources(Me.gridAvailableUsers, "gridAvailableUsers") resources.ApplyResources(Me.gridAvailableUsers, "gridAvailableUsers")
Me.gridAvailableUsers.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableUsers.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAvailableUsers.MainView = Me.viewAvailableUsers Me.gridAvailableUsers.MainView = Me.viewAvailableUsers
Me.gridAvailableUsers.Name = "gridAvailableUsers" Me.gridAvailableUsers.Name = "gridAvailableUsers"
Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers}) Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers})
@ -557,6 +559,7 @@ Partial Class frmAdministration
Me.gridAssignedGroups.AllowDrop = True Me.gridAssignedGroups.AllowDrop = True
Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource
resources.ApplyResources(Me.gridAssignedGroups, "gridAssignedGroups") resources.ApplyResources(Me.gridAssignedGroups, "gridAssignedGroups")
Me.gridAssignedGroups.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAssignedGroups.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAssignedGroups.MainView = Me.viewAssignedGroups Me.gridAssignedGroups.MainView = Me.viewAssignedGroups
Me.gridAssignedGroups.Name = "gridAssignedGroups" Me.gridAssignedGroups.Name = "gridAssignedGroups"
Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups}) Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups})
@ -604,6 +607,7 @@ Partial Class frmAdministration
Me.gridAvailableGroups.AllowDrop = True Me.gridAvailableGroups.AllowDrop = True
Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource
resources.ApplyResources(Me.gridAvailableGroups, "gridAvailableGroups") resources.ApplyResources(Me.gridAvailableGroups, "gridAvailableGroups")
Me.gridAvailableGroups.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableGroups.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAvailableGroups.MainView = Me.viewAvailableGroups Me.gridAvailableGroups.MainView = Me.viewAvailableGroups
Me.gridAvailableGroups.Name = "gridAvailableGroups" Me.gridAvailableGroups.Name = "gridAvailableGroups"
Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups}) Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups})
@ -860,7 +864,8 @@ Partial Class frmAdministration
Me.TBPM_PROFILEBindingNavigator.CountItem = Me.BindingNavigatorCountItem Me.TBPM_PROFILEBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBPM_PROFILEBindingNavigator.CountItemFormat = "von {0} Profilen" Me.TBPM_PROFILEBindingNavigator.CountItemFormat = "von {0} Profilen"
Me.TBPM_PROFILEBindingNavigator.DeleteItem = Nothing Me.TBPM_PROFILEBindingNavigator.DeleteItem = Nothing
Me.TBPM_PROFILEBindingNavigator.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.VWPM_PROFILE_USERBindingNavigatorSaveItem, Me.tstrpbtn_add, Me.tstrlblSave, Me.btnRefreshProfiles, Me.ToolStripSeparator1, Me.tsbtnDesigner_open, Me.ToolStripSeparator2, Me.tsbtnProfilkopieren, Me.ToolStripSeparator3, Me.tsbtndeleteProfil}) Me.TBPM_PROFILEBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.TBPM_PROFILEBindingNavigator.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.VWPM_PROFILE_USERBindingNavigatorSaveItem, Me.tstrpbtn_add, Me.tstrlblSave, Me.btnRefreshProfiles, Me.ToolStripSeparator1, Me.tsbtnDesigner_open, Me.ToolStripSeparator2, Me.tsbtnProfilkopieren, Me.ToolStripSeparator3, Me.tsbtnDeleteProfileData, Me.tsbtndeleteProfil})
resources.ApplyResources(Me.TBPM_PROFILEBindingNavigator, "TBPM_PROFILEBindingNavigator") resources.ApplyResources(Me.TBPM_PROFILEBindingNavigator, "TBPM_PROFILEBindingNavigator")
Me.TBPM_PROFILEBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBPM_PROFILEBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBPM_PROFILEBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.TBPM_PROFILEBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -872,7 +877,7 @@ Partial Class frmAdministration
'tstrpbtn_add 'tstrpbtn_add
' '
Me.tstrpbtn_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.tstrpbtn_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tstrpbtn_add.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add Me.tstrpbtn_add.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.action_add_16xLG
resources.ApplyResources(Me.tstrpbtn_add, "tstrpbtn_add") resources.ApplyResources(Me.tstrpbtn_add, "tstrpbtn_add")
Me.tstrpbtn_add.Name = "tstrpbtn_add" Me.tstrpbtn_add.Name = "tstrpbtn_add"
' '
@ -918,6 +923,11 @@ Partial Class frmAdministration
Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3") resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3")
' '
'tsbtnDeleteProfileData
'
resources.ApplyResources(Me.tsbtnDeleteProfileData, "tsbtnDeleteProfileData")
Me.tsbtnDeleteProfileData.Name = "tsbtnDeleteProfileData"
'
'tsbtndeleteProfil 'tsbtndeleteProfil
' '
Me.tsbtndeleteProfil.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 Me.tsbtndeleteProfil.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12
@ -1139,7 +1149,6 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.TabPage5, "TabPage5") resources.ApplyResources(Me.TabPage5, "TabPage5")
Me.TabPage5.Controls.Add(Me.GridControl1) Me.TabPage5.Controls.Add(Me.GridControl1)
Me.TabPage5.Controls.Add(Me.Button3)
Me.TabPage5.Controls.Add(Me.cmbLOGIndex) Me.TabPage5.Controls.Add(Me.cmbLOGIndex)
Me.TabPage5.Controls.Add(Label7) Me.TabPage5.Controls.Add(Label7)
Me.TabPage5.Controls.Add(Me.PM_VEKTOR_INDEXComboBox) Me.TabPage5.Controls.Add(Me.PM_VEKTOR_INDEXComboBox)
@ -1171,6 +1180,7 @@ Partial Class frmAdministration
'GridControl1 'GridControl1
' '
Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource
Me.GridControl1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
resources.ApplyResources(Me.GridControl1, "GridControl1") resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
@ -1208,14 +1218,6 @@ Partial Class frmAdministration
Me.colTITLE.FieldName = "TITLE" Me.colTITLE.FieldName = "TITLE"
Me.colTITLE.Name = "colTITLE" Me.colTITLE.Name = "colTITLE"
' '
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.Transparent
resources.ApplyResources(Me.Button3, "Button3")
Me.Button3.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Files_7954
Me.Button3.Name = "Button3"
Me.Button3.UseVisualStyleBackColor = False
'
'cmbLOGIndex 'cmbLOGIndex
' '
Me.cmbLOGIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "LOG_INDEX", True)) Me.cmbLOGIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "LOG_INDEX", True))
@ -1275,6 +1277,7 @@ Partial Class frmAdministration
' '
Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource
resources.ApplyResources(Me.gridFinalIndex, "gridFinalIndex") resources.ApplyResources(Me.gridFinalIndex, "gridFinalIndex")
Me.gridFinalIndex.EmbeddedNavigator.Margin = CType(resources.GetObject("gridFinalIndex.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridFinalIndex.MainView = Me.viewFinalIndex Me.gridFinalIndex.MainView = Me.viewFinalIndex
Me.gridFinalIndex.Name = "gridFinalIndex" Me.gridFinalIndex.Name = "gridFinalIndex"
Me.gridFinalIndex.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewFinalIndex}) Me.gridFinalIndex.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewFinalIndex})
@ -1354,6 +1357,7 @@ Partial Class frmAdministration
Me.BindingNavigator1.CountItemFormat = "von {0} finalen Indexen" Me.BindingNavigator1.CountItemFormat = "von {0} finalen Indexen"
Me.BindingNavigator1.DeleteItem = Nothing Me.BindingNavigator1.DeleteItem = Nothing
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.tsBtnCancel, Me.BindingNavigatorDeleteItem, Me.tsBtnSave, Me.ToolStripButton5}) Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.tsBtnCancel, Me.BindingNavigatorDeleteItem, Me.tsBtnSave, Me.ToolStripButton5})
Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1
Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1 Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1
@ -1518,6 +1522,7 @@ Partial Class frmAdministration
' '
Me.gridAvailableProfiles.DataSource = Me.TBPM_PROFILEBindingSource Me.gridAvailableProfiles.DataSource = Me.TBPM_PROFILEBindingSource
resources.ApplyResources(Me.gridAvailableProfiles, "gridAvailableProfiles") resources.ApplyResources(Me.gridAvailableProfiles, "gridAvailableProfiles")
Me.gridAvailableProfiles.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableProfiles.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAvailableProfiles.MainView = Me.viewAvailableProfiles Me.gridAvailableProfiles.MainView = Me.viewAvailableProfiles
Me.gridAvailableProfiles.Name = "gridAvailableProfiles" Me.gridAvailableProfiles.Name = "gridAvailableProfiles"
Me.gridAvailableProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableProfiles}) Me.gridAvailableProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableProfiles})
@ -1834,6 +1839,7 @@ Partial Class frmAdministration
Me.TBPM_ERROR_LOGBindingNavigator.BindingSource = Me.TBPM_ERROR_LOGBindingSource Me.TBPM_ERROR_LOGBindingNavigator.BindingSource = Me.TBPM_ERROR_LOGBindingSource
Me.TBPM_ERROR_LOGBindingNavigator.CountItem = Me.BindingNavigatorCountItem3 Me.TBPM_ERROR_LOGBindingNavigator.CountItem = Me.BindingNavigatorCountItem3
Me.TBPM_ERROR_LOGBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem1 Me.TBPM_ERROR_LOGBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem1
Me.TBPM_ERROR_LOGBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.TBPM_ERROR_LOGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem3, Me.BindingNavigatorMovePreviousItem3, Me.BindingNavigatorSeparator9, Me.BindingNavigatorPositionItem3, Me.BindingNavigatorCountItem3, Me.BindingNavigatorSeparator10, Me.BindingNavigatorMoveNextItem3, Me.BindingNavigatorMoveLastItem3, Me.BindingNavigatorSeparator11, Me.BindingNavigatorDeleteItem1}) Me.TBPM_ERROR_LOGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem3, Me.BindingNavigatorMovePreviousItem3, Me.BindingNavigatorSeparator9, Me.BindingNavigatorPositionItem3, Me.BindingNavigatorCountItem3, Me.BindingNavigatorSeparator10, Me.BindingNavigatorMoveNextItem3, Me.BindingNavigatorMoveLastItem3, Me.BindingNavigatorSeparator11, Me.BindingNavigatorDeleteItem1})
resources.ApplyResources(Me.TBPM_ERROR_LOGBindingNavigator, "TBPM_ERROR_LOGBindingNavigator") resources.ApplyResources(Me.TBPM_ERROR_LOGBindingNavigator, "TBPM_ERROR_LOGBindingNavigator")
Me.TBPM_ERROR_LOGBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem3 Me.TBPM_ERROR_LOGBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem3
@ -1909,6 +1915,7 @@ Partial Class frmAdministration
' '
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstrpinfo}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstrpinfo})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
@ -2203,7 +2210,6 @@ Partial Class frmAdministration
Friend WithEvents DataGridViewTextBoxColumn25 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn25 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
@ -2294,4 +2300,5 @@ Partial Class frmAdministration
Friend WithEvents tsBtnCancel As ToolStripButton Friend WithEvents tsBtnCancel As ToolStripButton
Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource
Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter
Friend WithEvents tsbtnDeleteProfileData As ToolStripButton
End Class End Class

1104
app/DD_PM_WINDREAM/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

20
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -766,16 +766,6 @@ Public Class frmAdministration
End If End If
End Sub End Sub
Private Sub Button3_Click_2(sender As Object, e As EventArgs) Handles Button3.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie die Dateien für dieses Profil wirklich entfernen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
'wenn Speichern ja
If result = MsgBoxResult.Yes Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & PROFILGUIDTextBox.Text) = True Then
MsgBox("Die Dateien zum Profil wurden erfolgreich gelöscht!", MsgBoxStyle.Information)
End If
End If
End Sub
'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs) 'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs)
' If TabControlFinalIndices.SelectedIndex = 1 Then ' If TabControlFinalIndices.SelectedIndex = 1 Then
' Me.cmbIndexe2.Enabled = False ' Me.cmbIndexe2.Enabled = False
@ -1123,6 +1113,16 @@ Public Class frmAdministration
CancelFinalIndexInsert() CancelFinalIndexInsert()
End Sub End Sub
Private Sub tsbtnDeleteProfileData_Click(sender As Object, e As EventArgs) Handles tsbtnDeleteProfileData.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie die Dateien für dieses Profil wirklich entfernen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
'wenn Speichern ja
If result = MsgBoxResult.Yes Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & PROFILGUIDTextBox.Text) = True Then
MsgBox("Die Dateien zum Profil wurden erfolgreich gelöscht!", MsgBoxStyle.Information)
End If
End If
End Sub
'Private Sub viewFinalIndex_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles viewFinalIndex.ValidateRow 'Private Sub viewFinalIndex_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles viewFinalIndex.ValidateRow
' Dim rowView As DataRowView = e.Row ' Dim rowView As DataRowView = e.Row

95
app/DD_PM_WINDREAM/frmFileInfo.Designer.vb generated Normal file
View File

@ -0,0 +1,95 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFileInfo
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtLocation = New System.Windows.Forms.TextBox()
Me.txtCreation = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(3, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(71, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "File-Location:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(3, 88)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(67, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "File created:"
'
'txtLocation
'
Me.txtLocation.Location = New System.Drawing.Point(6, 25)
Me.txtLocation.Multiline = True
Me.txtLocation.Name = "txtLocation"
Me.txtLocation.ReadOnly = True
Me.txtLocation.Size = New System.Drawing.Size(435, 60)
Me.txtLocation.TabIndex = 2
Me.txtLocation.TabStop = False
'
'txtCreation
'
Me.txtCreation.Location = New System.Drawing.Point(6, 104)
Me.txtCreation.Name = "txtCreation"
Me.txtCreation.ReadOnly = True
Me.txtCreation.Size = New System.Drawing.Size(435, 21)
Me.txtCreation.TabIndex = 3
Me.txtCreation.TabStop = False
'
'frmFileInfo
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.HighlightText
Me.ClientSize = New System.Drawing.Size(450, 135)
Me.Controls.Add(Me.txtCreation)
Me.Controls.Add(Me.txtLocation)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
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.FixedToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmFileInfo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "File-Info"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtLocation As TextBox
Friend WithEvents txtCreation As TextBox
End Class

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

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

14
app/DD_PM_WINDREAM/frmFileInfo.vb Normal file
View File

@ -0,0 +1,14 @@
Public Class frmFileInfo
Private Sub frmFileInfo_HandleDestroyed(sender As Object, e As EventArgs) Handles Me.HandleDestroyed
End Sub
Private Sub frmFileInfo_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
txtLocation.Text = CURRENT_DOC_PATH
txtCreation.Text = CURRENT_DOC_CREATION_DATE
Catch ex As Exception
End Try
End Sub
End Class

15
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -70,7 +70,6 @@ Public Class frmMain
If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:") MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
frmKonfig.ShowDialog() frmKonfig.ShowDialog()
End If End If
Try Try
If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then
@ -698,19 +697,6 @@ Public Class frmMain
End Try End Try
End Sub End Sub
Private Function file_exists(ByVal _file As String)
Try
If System.IO.File.Exists(_file) Then
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox("Fehler in Funktion bei file_exists - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
Return False
End Try
End Function
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
Try Try
frmKonfig.ShowDialog() frmKonfig.ShowDialog()
@ -904,6 +890,7 @@ Public Class frmMain
Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID")) Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID"))
If IsNothing(DOC_ID) Then Exit Sub If IsNothing(DOC_ID) Then Exit Sub
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH")) Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects")
'Checking if table really contains one record with profile-id and docid 'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DOC_ID = " & DOC_ID expression = expression & " AND DOC_ID = " & DOC_ID
Dim TEMP_TABLE = CURR_DT_PROFILEGRID Dim TEMP_TABLE = CURR_DT_PROFILEGRID

4
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -18,7 +18,7 @@ Public Class frmMassValidator
Private _dependingControl_in_action As Boolean = False Private _dependingControl_in_action As Boolean = False
Private errmessage As String Private errmessage As String
'Private _windream As New ClassWindream_allgemein Private _windream As New ClassWindream_allgemein
'Private _windreamPM As New ClassPMWindream 'Private _windreamPM As New ClassPMWindream
Private _allgFunk As New ClassAllgemeineFunktionen Private _allgFunk As New ClassAllgemeineFunktionen
Dim viewer_string As String Dim viewer_string As String
@ -1052,7 +1052,7 @@ Public Class frmMassValidator
'####### WENN MOVE2FOLDER KONFIGURIERT IST####### '####### WENN MOVE2FOLDER KONFIGURIERT IST#######
If MOVE2Folder <> "" Then If MOVE2Folder <> "" Then
Dim idxerr_message = _allgFunk.Move2Folder(docrow.Item("FULL_PATH").ToString, MOVE2Folder, CURRENT_ProfilGUID) Dim idxerr_message = _allgFunk.Move2Folder(docrow.Item("FULL_PATH").ToString, MOVE2Folder, CURRENT_ProfilGUID, _windream)
If idxerr_message <> "" Then If idxerr_message <> "" Then
MsgBox("Error in Move2Folder - Check the log And inform Your sysadmin", MsgBoxStyle.Critical) MsgBox("Error in Move2Folder - Check the log And inform Your sysadmin", MsgBoxStyle.Critical)

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

@ -34,17 +34,13 @@ Partial Class frmValidator
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateieigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateieigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TITLELabel1 = New System.Windows.Forms.Label() Me.TITLELabel1 = New System.Windows.Forms.Label()
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.btnSave = New System.Windows.Forms.Button() Me.btnSave = New System.Windows.Forms.Button()
Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtErstellt = New System.Windows.Forms.TextBox()
Me.txtDateipfad = New System.Windows.Forms.TextBox()
Me.pnldesigner = New System.Windows.Forms.Panel() Me.pnldesigner = New System.Windows.Forms.Panel()
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
@ -144,7 +140,6 @@ Partial Class frmValidator
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.VWPM_CONTROL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPM_CONTROL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_FILES_USER_NOT_INDEXEDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_FILES_USER_NOT_INDEXEDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -217,14 +212,13 @@ Partial Class frmValidator
Me.Panel1.Controls.Add(Me.TITLELabel1) Me.Panel1.Controls.Add(Me.TITLELabel1)
Me.Panel1.Controls.Add(Me.btnSave) Me.Panel1.Controls.Add(Me.btnSave)
Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel) Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel)
Me.Panel1.Controls.Add(Me.GroupBox1)
Me.Panel1.Controls.Add(Me.pnldesigner) Me.Panel1.Controls.Add(Me.pnldesigner)
resources.ApplyResources(Me.Panel1, "Panel1") resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
' '
'ContextMenuStrip1 'ContextMenuStrip1
' '
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.DateieigenschaftenToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.DateiInfoToolStripMenuItem, Me.DateieigenschaftenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1") resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
' '
@ -234,22 +228,22 @@ Partial Class frmValidator
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem" Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem") resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
' '
'DateiInfoToolStripMenuItem
'
Me.DateiInfoToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Symbols_Information_16xLG
Me.DateiInfoToolStripMenuItem.Name = "DateiInfoToolStripMenuItem"
resources.ApplyResources(Me.DateiInfoToolStripMenuItem, "DateiInfoToolStripMenuItem")
'
'DateieigenschaftenToolStripMenuItem 'DateieigenschaftenToolStripMenuItem
' '
Me.DateieigenschaftenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.world_link
Me.DateieigenschaftenToolStripMenuItem.Name = "DateieigenschaftenToolStripMenuItem"
resources.ApplyResources(Me.DateieigenschaftenToolStripMenuItem, "DateieigenschaftenToolStripMenuItem") resources.ApplyResources(Me.DateieigenschaftenToolStripMenuItem, "DateieigenschaftenToolStripMenuItem")
Me.DateieigenschaftenToolStripMenuItem.Name = "DateieigenschaftenToolStripMenuItem"
' '
'TITLELabel1 'TITLELabel1
' '
resources.ApplyResources(Me.TITLELabel1, "TITLELabel1") resources.ApplyResources(Me.TITLELabel1, "TITLELabel1")
Me.TITLELabel1.Name = "TITLELabel1" Me.TITLELabel1.Name = "TITLELabel1"
' '
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'btnSave 'btnSave
' '
resources.ApplyResources(Me.btnSave, "btnSave") resources.ApplyResources(Me.btnSave, "btnSave")
@ -262,50 +256,18 @@ Partial Class frmValidator
resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel") resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel")
Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel"
' '
'GroupBox1
'
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.txtErstellt)
Me.GroupBox1.Controls.Add(Me.txtDateipfad)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'txtErstellt
'
resources.ApplyResources(Me.txtErstellt, "txtErstellt")
Me.txtErstellt.BackColor = System.Drawing.SystemColors.ControlLight
Me.txtErstellt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtErstellt.Name = "txtErstellt"
Me.txtErstellt.ReadOnly = True
Me.txtErstellt.TabStop = False
'
'txtDateipfad
'
resources.ApplyResources(Me.txtDateipfad, "txtDateipfad")
Me.txtDateipfad.BackColor = System.Drawing.SystemColors.ControlLight
Me.txtDateipfad.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtDateipfad.Name = "txtDateipfad"
Me.txtDateipfad.ReadOnly = True
Me.txtDateipfad.TabStop = False
'
'pnldesigner 'pnldesigner
' '
resources.ApplyResources(Me.pnldesigner, "pnldesigner") resources.ApplyResources(Me.pnldesigner, "pnldesigner")
Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnldesigner.ContextMenuStrip = Me.ContextMenuStrip1
Me.pnldesigner.Name = "pnldesigner" Me.pnldesigner.Name = "pnldesigner"
' '
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TableAdapterManager 'TableAdapterManager
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@ -887,8 +849,6 @@ Partial Class frmValidator
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.VWPM_CONTROL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPM_CONTROL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_FILES_USER_NOT_INDEXEDBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_FILES_USER_NOT_INDEXEDBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -930,11 +890,6 @@ Partial Class frmValidator
Friend WithEvents TITLELabel1 As System.Windows.Forms.Label Friend WithEvents TITLELabel1 As System.Windows.Forms.Label
Friend WithEvents btnSave As System.Windows.Forms.Button Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents DESCRIPTIONLabel As System.Windows.Forms.Label Friend WithEvents DESCRIPTIONLabel As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtErstellt As System.Windows.Forms.TextBox
Friend WithEvents txtDateipfad As System.Windows.Forms.TextBox
Friend WithEvents pnldesigner As System.Windows.Forms.Panel Friend WithEvents pnldesigner As System.Windows.Forms.Panel
Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet
Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
@ -1035,4 +990,5 @@ Partial Class frmValidator
Friend WithEvents ToolStripButtonJumpFile As ToolStripButton Friend WithEvents ToolStripButtonJumpFile As ToolStripButton
Friend WithEvents ToolStripButtonDeleteFile As ToolStripButton Friend WithEvents ToolStripButtonDeleteFile As ToolStripButton
Friend WithEvents ToolStripButtonAnnotation As ToolStripButton Friend WithEvents ToolStripButtonAnnotation As ToolStripButton
Friend WithEvents DateiInfoToolStripMenuItem As ToolStripMenuItem
End Class End Class

471
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -130,31 +130,6 @@
<value>608, 17</value> <value>608, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tstrplblError.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="tstrplblError.Size" type="System.Drawing.Size, System.Drawing">
<value>22, 17</value>
</data>
<data name="tstrplblError.Text" xml:space="preserve">
<value>sss</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="tstrplblError.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="tstrlbl_Info.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="tstrlbl_Info.Text" xml:space="preserve">
<value>Anzahl Dateien:</value>
</data>
<data name="tsslblDocID.Size" type="System.Drawing.Size, System.Drawing">
<value>82, 17</value>
</data>
<data name="tsslblDocID.Text" xml:space="preserve">
<value>Document-ID:</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 621</value> <value>0, 621</value>
</data> </data>
@ -165,6 +140,7 @@
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 22</value> <value>962, 22</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib"> <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
</data> </data>
@ -183,6 +159,30 @@
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="tstrplblError.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="tstrplblError.Size" type="System.Drawing.Size, System.Drawing">
<value>22, 17</value>
</data>
<data name="tstrplblError.Text" xml:space="preserve">
<value>sss</value>
</data>
<data name="tstrplblError.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="tstrlbl_Info.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="tstrlbl_Info.Text" xml:space="preserve">
<value>Anzahl Dateien:</value>
</data>
<data name="tsslblDocID.Size" type="System.Drawing.Size, System.Drawing">
<value>82, 17</value>
</data>
<data name="tsslblDocID.Text" xml:space="preserve">
<value>Document-ID:</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>790, 212</value> <value>790, 212</value>
</metadata> </metadata>
@ -192,6 +192,22 @@
<data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve"> <data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Datei öffnen</value> <value>Datei öffnen</value>
</data> </data>
<data name="DateiInfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 22</value>
</data>
<data name="DateiInfoToolStripMenuItem.Text" xml:space="preserve">
<value>Datei-Info</value>
</data>
<data name="DateieigenschaftenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAANlJREFUOE+lkrsRgzAQRCmBEijBNZDTgwNqIacCQkIHFEAJJBRATkBGer6nQTYS
4mffzBv9dhchKRKRvwhO3uHb8Wqe50R5KbKCcbJI9gNUFCtTWZaSpqkhyzIZx5GQSXmgOwqofHPf985O
0B0FfMxgzbSE0Ud3OaAoChmGwZgZs64kwQBd4P+dALBmYB3tJmAxd03TOOY1nI1qtmdww8wtmKv0A1rf
zFjn11RK+B1wSAFzp8SLflNOAF/I89yY67o+NVN+wJMQdqJte2amnABbV4y2nIDfkOgNgPkt6Gl+jn4A
AAAASUVORK5CYII=
</value>
</data>
<data name="DateieigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="DateieigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value> <value>175, 22</value>
</data> </data>
@ -199,7 +215,7 @@
<value>Dateieigenschaften</value> <value>Dateieigenschaften</value>
</data> </data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>176, 48</value> <value>181, 92</value>
</data> </data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve"> <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value> <value>ContextMenuStrip1</value>
@ -259,7 +275,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="btnSave.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
<value>450, 50</value> <value>451, 50</value>
</data> </data>
<data name="btnSave.TabIndex" type="System.Int32, mscorlib"> <data name="btnSave.TabIndex" type="System.Int32, mscorlib">
<value>11</value> <value>11</value>
@ -286,7 +302,7 @@
<value>5, 33</value> <value>5, 33</value>
</data> </data>
<data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing"> <data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>469, 67</value> <value>469, 57</value>
</data> </data>
<data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib"> <data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -306,162 +322,6 @@
<data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="GroupBox1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left, Right</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>6, 80</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>97, 13</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>22</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>DMS Erstellt wann:</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</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;Label2.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 18</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>66, 13</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>21</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Speicherort:</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</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="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="txtErstellt.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<data name="txtErstellt.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="txtErstellt.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 97</value>
</data>
<data name="txtErstellt.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="txtErstellt.Multiline" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="txtErstellt.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 23</value>
</data>
<data name="txtErstellt.TabIndex" type="System.Int32, mscorlib">
<value>20</value>
</data>
<data name="&gt;&gt;txtErstellt.Name" xml:space="preserve">
<value>txtErstellt</value>
</data>
<data name="&gt;&gt;txtErstellt.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="&gt;&gt;txtErstellt.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;txtErstellt.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="txtDateipfad.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<data name="txtDateipfad.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="txtDateipfad.Location" type="System.Drawing.Point, System.Drawing">
<value>7, 35</value>
</data>
<data name="txtDateipfad.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="txtDateipfad.Multiline" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="txtDateipfad.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 41</value>
</data>
<data name="txtDateipfad.TabIndex" type="System.Int32, mscorlib">
<value>19</value>
</data>
<data name="&gt;&gt;txtDateipfad.Name" xml:space="preserve">
<value>txtDateipfad</value>
</data>
<data name="&gt;&gt;txtDateipfad.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="&gt;&gt;txtDateipfad.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;txtDateipfad.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 400</value>
</data>
<data name="GroupBox1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="GroupBox1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>450, 131</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>20</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Allgemeine Eigenschaften:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="pnldesigner.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="pnldesigner.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value> <value>Top, Bottom, Left, Right</value>
</data> </data>
@ -469,13 +329,13 @@
<value>True</value> <value>True</value>
</data> </data>
<data name="pnldesigner.Location" type="System.Drawing.Point, System.Drawing"> <data name="pnldesigner.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 119</value> <value>8, 102</value>
</data> </data>
<data name="pnldesigner.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="pnldesigner.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnldesigner.Size" type="System.Drawing.Size, System.Drawing">
<value>450, 273</value> <value>450, 426</value>
</data> </data>
<data name="pnldesigner.TabIndex" type="System.Int32, mscorlib"> <data name="pnldesigner.TabIndex" type="System.Int32, mscorlib">
<value>18</value> <value>18</value>
@ -490,7 +350,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve"> <data name="&gt;&gt;pnldesigner.ZOrder" xml:space="preserve">
<value>4</value> <value>3</value>
</data> </data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
@ -693,33 +553,6 @@
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing"> <data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
<data name="ToolStripButtonJumpFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonJumpFile.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ToolStripButtonJumpFile.Text" xml:space="preserve">
<value>Datei überspringen (F4)</value>
</data>
<data name="ToolStripButtonDeleteFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonDeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>106, 22</value>
</data>
<data name="ToolStripButtonDeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value>
</data>
<data name="ToolStripButtonAnnotation.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonAnnotation.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
</data>
<data name="ToolStripButtonAnnotation.Text" xml:space="preserve">
<value>Annotationen</value>
</data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -762,21 +595,9 @@
<data name="&gt;&gt;SplitContainer1.Panel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainer1.Panel1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="WebBrowser.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>Fill</value> <value>290, 251</value>
</data> </metadata>
<data name="WebBrowser.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="WebBrowser.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>20, 20</value>
</data>
<data name="WebBrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 54</value>
</data>
<data name="WebBrowser.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;WebBrowser.Name" xml:space="preserve"> <data name="&gt;&gt;WebBrowser.Name" xml:space="preserve">
<value>WebBrowser</value> <value>WebBrowser</value>
</data> </data>
@ -789,27 +610,6 @@
<data name="&gt;&gt;WebBrowser.ZOrder" xml:space="preserve"> <data name="&gt;&gt;WebBrowser.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>290, 251</value>
</metadata>
<data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>120, 17</value>
</data>
<data name="tslblWebbrowser.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="StatusStrip3.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 75</value>
</data>
<data name="StatusStrip3.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="StatusStrip3.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="StatusStrip3.Text" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Name" xml:space="preserve"> <data name="&gt;&gt;StatusStrip3.Name" xml:space="preserve">
<value>StatusStrip3</value> <value>StatusStrip3</value>
</data> </data>
@ -846,21 +646,6 @@
<data name="&gt;&gt;grpbxMailBody.ZOrder" xml:space="preserve"> <data name="&gt;&gt;grpbxMailBody.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="txtBetreff.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="txtBetreff.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Italic</value>
</data>
<data name="txtBetreff.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="txtBetreff.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="txtBetreff.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;txtBetreff.Name" xml:space="preserve"> <data name="&gt;&gt;txtBetreff.Name" xml:space="preserve">
<value>txtBetreff</value> <value>txtBetreff</value>
</data> </data>
@ -1490,6 +1275,12 @@
<data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Type" xml:space="preserve"> <data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;DateiInfoToolStripMenuItem.Name" xml:space="preserve">
<value>DateiInfoToolStripMenuItem</value>
</data>
<data name="&gt;&gt;DateiInfoToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DateieigenschaftenToolStripMenuItem.Name" xml:space="preserve"> <data name="&gt;&gt;DateieigenschaftenToolStripMenuItem.Name" xml:space="preserve">
<value>DateieigenschaftenToolStripMenuItem</value> <value>DateieigenschaftenToolStripMenuItem</value>
</data> </data>
@ -1994,24 +1785,6 @@
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>947, 212</value> <value>947, 212</value>
</metadata> </metadata>
<data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data>
<data name="pdfstatuslblPageNumber.Size" type="System.Drawing.Size, System.Drawing">
<value>139, 16</value>
</data>
<data name="pdfstatuslblPageNumber.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="ToolStripDropDownButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 20</value>
</data>
<data name="ToolStripDropDownButton1.Text" xml:space="preserve">
<value>Seitenansicht Minimal</value>
</data>
<data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 340</value> <value>0, 340</value>
</data> </data>
@ -2081,10 +1854,142 @@
<data name="&gt;&gt;pnlpdf.ZOrder" xml:space="preserve"> <data name="&gt;&gt;pnlpdf.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data>
<data name="pdfstatuslblPageNumber.Size" type="System.Drawing.Size, System.Drawing">
<value>139, 16</value>
</data>
<data name="pdfstatuslblPageNumber.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="ToolStripDropDownButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 20</value>
</data>
<data name="ToolStripDropDownButton1.Text" xml:space="preserve">
<value>Seitenansicht Minimal</value>
</data>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1064, 212</value> <value>1064, 212</value>
</metadata> </metadata>
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>142, 251</value> <value>142, 251</value>
</metadata> </metadata>
<data name="WebBrowser.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="WebBrowser.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="WebBrowser.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>20, 20</value>
</data>
<data name="WebBrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 54</value>
</data>
<data name="WebBrowser.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;WebBrowser.Name" xml:space="preserve">
<value>WebBrowser</value>
</data>
<data name="&gt;&gt;WebBrowser.Type" xml:space="preserve">
<value>System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;WebBrowser.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;WebBrowser.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>290, 251</value>
</metadata>
<data name="StatusStrip3.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 75</value>
</data>
<data name="StatusStrip3.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="StatusStrip3.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="StatusStrip3.Text" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Name" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip3.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;StatusStrip3.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>120, 17</value>
</data>
<data name="tslblWebbrowser.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="txtBetreff.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="txtBetreff.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Italic</value>
</data>
<data name="txtBetreff.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="txtBetreff.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="txtBetreff.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;txtBetreff.Name" xml:space="preserve">
<value>txtBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.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="&gt;&gt;txtBetreff.Parent" xml:space="preserve">
<value>grpBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ToolStripButtonJumpFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonJumpFile.Size" type="System.Drawing.Size, System.Drawing">
<value>165, 22</value>
</data>
<data name="ToolStripButtonJumpFile.Text" xml:space="preserve">
<value>Datei überspringen (F4)</value>
</data>
<data name="ToolStripButtonDeleteFile.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonDeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>106, 22</value>
</data>
<data name="ToolStripButtonDeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value>
</data>
<data name="ToolStripButtonAnnotation.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButtonAnnotation.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
</data>
<data name="ToolStripButtonAnnotation.Text" xml:space="preserve">
<value>Annotationen</value>
</data>
</root> </root>

42
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -7,7 +7,6 @@ Imports System.Globalization
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Imports Independentsoft Imports Independentsoft
Imports System.IO Imports System.IO
Imports DevExpress.Pdf.pdfdo
Imports DevExpress.Pdf Imports DevExpress.Pdf
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports System.ComponentModel Imports System.ComponentModel
@ -26,7 +25,7 @@ Public Class frmValidator
Dim finalProfile As Boolean Dim finalProfile As Boolean
Dim Move2Folder As String Dim Move2Folder As String
'Private _windreamPM As New ClassPMWindream 'Private _windreamPM As New ClassPMWindream
'Private _windream As New ClassWindream_allgemein Private _windream As New ClassWindream_allgemein
Private allgFunk As New ClassAllgemeineFunktionen Private allgFunk As New ClassAllgemeineFunktionen
Dim aktivesDokument As WMObject Dim aktivesDokument As WMObject
'speichert die DocumentDaten 'speichert die DocumentDaten
@ -1193,12 +1192,13 @@ Public Class frmValidator
If newGUID > 0 Then If newGUID > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> newGUID: " & newGUID.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> newGUID: " & newGUID.ToString, False)
Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID) Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID)
Document_Path = Document_Path.Replace("W:", "\\windream\objects")
CURRENT_DOC_PATH = Document_Path CURRENT_DOC_PATH = Document_Path
If LogErrorsOnly = False Then ClassLogger.Add(" >> Document_Path: " & Document_Path, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Document_Path: " & Document_Path, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Überprüfen ob File existiert?", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Überprüfen ob File existiert?", False)
Dim i As Integer = 0 Dim i As Integer = 0
Do While allgFunk.file_exists(Document_Path, False) = False And newGUID <> 0 Do While allgFunk.file_exists(Document_Path, _windream) = False And newGUID <> 0
i = i + 1 i = i + 1
If i > 800 Then If i > 800 Then
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Get_Next_GUID - Datei nicht vorhanden!", Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Get_Next_GUID - Datei nicht vorhanden!", Environment.UserName)
@ -1331,13 +1331,13 @@ Public Class frmValidator
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, Environment.UserName, CURRENT_DOC_GUID) TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, Environment.UserName, CURRENT_DOC_GUID)
' ############ Infos eintragen ################# ' ############ Infos eintragen #################
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID
txtDateipfad.Text = Document_Path ' txtDateipfad.Text = Document_Path
tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False) ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False)
Try Try
'aktivesDokument = _windreamPM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2)) 'aktivesDokument = _windreamPM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2)) aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Replace("\\windream\objects",""))
Catch ex As Exception Catch ex As Exception
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName)
ClassLogger.Add("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message) ClassLogger.Add("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message)
@ -1565,7 +1565,7 @@ Public Class frmValidator
End Sub End Sub
Private Function Windream_get_Doc_info() Private Function Windream_get_Doc_info()
Try Try
Dim DMSErstellt As String
'If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then 'If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then
' My.Settings.vIDX_DMS_ERSTELLT = "DMS Created" ' My.Settings.vIDX_DMS_ERSTELLT = "DMS Created"
' dmsCreated = "DMS Created" ' dmsCreated = "DMS Created"
@ -1576,7 +1576,7 @@ Public Class frmValidator
'End If 'End If
Try Try
DMSErstellt = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT) CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT)
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT & " not found!") Then If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT & " not found", True) ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT & " not found", True)
@ -1593,17 +1593,17 @@ Public Class frmValidator
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt Time") SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt Time")
End If End If
DMSErstellt = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT) CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT)
Else Else
ClassLogger.Add("Fehler in Windream_get_Doc_info 1: " & ex.Message) ClassLogger.Add("Fehler in Windream_get_Doc_info 1: " & ex.Message)
Return "Fehler in Windream_get_Doc_info 1: " & ex.Message Return "Fehler in Windream_get_Doc_info 1: " & ex.Message
End If End If
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> DMS-Erstellt aus WD: " & DMSErstellt, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE, False)
Dim DMSErstelltZeit As String
Try Try
DMSErstelltZeit = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT) CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT)
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found!") Then If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found", True) ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found", True)
@ -1617,19 +1617,19 @@ Public Class frmValidator
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS Created Time") SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS Created Time")
End If End If
DMSErstelltZeit = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT) CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT)
Else Else
ClassLogger.Add("Fehler in Windream_get_Doc_info 3: " & ex.Message) ClassLogger.Add("Fehler in Windream_get_Doc_info 3: " & ex.Message)
Return "Fehler in Windream_get_Doc_info 3: " & ex.Message Return "Fehler in Windream_get_Doc_info 3: " & ex.Message
End If End If
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> DMSErstelltZeit aus WD: " & DMSErstelltZeit, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> DMSErstelltZeit aus WD: " & CURRENT_DOC_CREATION_TIME, False)
If DMSErstelltZeit.Length > 11 Then If CURRENT_DOC_CREATION_TIME.Length > 11 Then
txtErstellt.Text = DMSErstellt & " " & DMSErstelltZeit.Substring(10) CURRENT_DOC_CREATION_DATE = CURRENT_DOC_CREATION_DATE & " " & CURRENT_DOC_CREATION_TIME.Substring(10)
Else Else
txtErstellt.Text = DMSErstellt & " " & DMSErstelltZeit CURRENT_DOC_CREATION_DATE = CURRENT_DOC_CREATION_DATE & " " & CURRENT_DOC_CREATION_TIME
End If End If
Return "" Return ""
@ -2307,7 +2307,7 @@ Public Class frmValidator
'wenn Move2Folder aktiviert wurde 'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then If Move2Folder <> "" Then
idxerr_message = allgFunk.Move2Folder(Document_Path, Move2Folder, CURRENT_ProfilGUID) idxerr_message = allgFunk.Move2Folder(Document_Path, Move2Folder, CURRENT_ProfilGUID, _windream)
If idxerr_message <> "" Then If idxerr_message <> "" Then
errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
My.Settings.Save() My.Settings.Save()
@ -2316,7 +2316,7 @@ Public Class frmValidator
End If End If
End If End If
'Validierungsfile löschen wenn vorhanden 'Validierungsfile löschen wenn vorhanden
allgFunk.Delete_xffres(Document_Path) allgFunk.Delete_xffres(Document_Path, _windream)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Delete_xffres ausgeführt", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Delete_xffres ausgeführt", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> All Input clear", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> All Input clear", False)
Anzahl_validierte_Dok += 1 Anzahl_validierte_Dok += 1
@ -2940,7 +2940,7 @@ Public Class frmValidator
Close_document_viewer() Close_document_viewer()
'Aus der Tabelle löschen 'Aus der Tabelle löschen
TBPM_PROFILE_FILESTableAdapter.CmdDelete(CURRENT_DOC_GUID) TBPM_PROFILE_FILESTableAdapter.CmdDelete(CURRENT_DOC_GUID)
Dim resul = allgFunk.Delete_xffres(Document_Path) Dim resul = allgFunk.Delete_xffres(Document_Path, _windream)
If resul = Nothing Or resul = True Then If resul = Nothing Or resul = True Then
If Delete_File() = True Then If Delete_File() = True Then
'MsgBox("Die Datei wurde erfolgreich aus windream gelöscht!" & vbNewLine & "Es wird nun die nächste Datei angezeigt!", MsgBoxStyle.Information, "Erfolgsmeldung:") 'MsgBox("Die Datei wurde erfolgreich aus windream gelöscht!" & vbNewLine & "Es wird nun die nächste Datei angezeigt!", MsgBoxStyle.Information, "Erfolgsmeldung:")
@ -3112,4 +3112,8 @@ Public Class frmValidator
Private Sub frmValidator_Resize(sender As Object, e As EventArgs) Handles Me.Resize Private Sub frmValidator_Resize(sender As Object, e As EventArgs) Handles Me.Resize
End Sub End Sub
Private Sub DateiInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiInfoToolStripMenuItem.Click
frmFileInfo.ShowDialog()
End Sub
End Class End Class