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

SQLLIte

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-04-12 15:20:54 +02:00
parent 3a25947af0
commit 8c82b567f8
19 changed files with 149 additions and 4242 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ToolCollection/ClassNIDatenbankzugriff.vb
View File

@ -545,7 +545,7 @@ Public Class ClassNIDatenbankzugriff
' führt eine SQL-Anweisung auf der DB aus ' führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromMssqlDb(Profilname As String, ByVal selectAnweisung As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, ByVal init_Cata As String, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False) ' Public Function GetValueFromMssqlDb(WMFilename As String, Profilname As String, ByVal selectAnweisung As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, ByVal init_Cata As String, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False) '
Try Try
_Logger.Debug("MS-SQL: " & selectAnweisung) _Logger.Debug("MS-SQL: " & selectAnweisung)
' die nötigen Variablen definieren ' die nötigen Variablen definieren
@ -594,8 +594,8 @@ Public Class ClassNIDatenbankzugriff
Try Try
Select Case dt.Rows.Count Select Case dt.Rows.Count
Case 0 Case 0
_Logger.Warn(">> SQL-ERGEBNIS liefert keine Zeile zurück!") _Logger.Warn($"{WMFilename} # SQL liefert keine Zeile zurück: [{selectAnweisung}]")
_Logger.Warn(">> SQL-Befehl: " & selectAnweisung)
If QuellVektor = True Then If QuellVektor = True Then
SQLconnect.Close() SQLconnect.Close()
Return "Empty Row" Return "Empty Row"
@ -607,7 +607,7 @@ Public Class ClassNIDatenbankzugriff
' einen einzigen relevanten Wert zurückgeben ' einen einzigen relevanten Wert zurückgeben
Dim sqlresult = dt.Rows(0).Item(0) Dim sqlresult = dt.Rows(0).Item(0)
If IsDBNull(sqlresult) Then If IsDBNull(sqlresult) Then
_Logger.Warn("Genau 1 Zeile allerdings System.DBNull") _Logger.Warn($"{WMFilename} # Genau 1 Zeile allerdings System.DBNull")
If QuellVektor = True Then If QuellVektor = True Then
SQLconnect.Close() SQLconnect.Close()
Return "NULL Row" Return "NULL Row"
@ -616,7 +616,7 @@ Public Class ClassNIDatenbankzugriff
Return Nothing Return Nothing
End If End If
Else Else
_Logger.Debug("Genau 1 Zeile - SQL-Ergebnis: '" & sqlresult.ToString & "'") _Logger.Debug($"{WMFilename} # Genau 1 Zeile - SQL-Ergebnis: '" & sqlresult.ToString & "'")
Dim newRow As DataRow Dim newRow As DataRow
If QuellVektor = True Then If QuellVektor = True Then
newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow() newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow()
@ -642,7 +642,7 @@ Public Class ClassNIDatenbankzugriff
End If End If
Case Else Case Else
'SQL liefert mehrere Werte zurück 'SQL liefert mehrere Werte zurück
_Logger.Debug("Mehrere Zeilen durch SQL - Anzahl: " & dt.Rows.Count) _Logger.Debug($"{WMFilename} # Mehrere Zeilen durch SQL - Anzahl: " & dt.Rows.Count)
'Beginne mit 0 'Beginne mit 0
Dim counter As Integer = 0 Dim counter As Integer = 0
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.Rows

32
ToolCollection/ClassSQLITE.vb
View File

@ -6,23 +6,35 @@ Public Class ClassSQLITE
Public Shared Passwort_admin As String Public Shared Passwort_admin As String
Private Shared _Logger As DigitalData.Modules.Logging.Logger Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function Init(_form As Boolean) Sub New(LogConfig As LogConfig)
_Logger = LogConfig.GetLogger
End Sub
Public Function DBInit(_form As Boolean) As Boolean
Try Try
If My.Settings.SQLLITE_CONNECTION = String.Empty Or My.Settings.SQLLITE_CONNECTION Is Nothing = True Then
_Logger.Debug($"My.Settings.SQLLITE_CONNECTION is empty or nothing...trying to fix...")
If IO.File.Exists(Application.StartupPath & "\ToolCollection.sqlite") Then
My.Settings.SQLLITE_CONNECTION = Application.StartupPath & "\ToolCollection.sqlite"
My.Settings.Save()
End If
End If
_Logger.Debug($"SQLITE ConnString: data source={My.Settings.SQLLITE_CONNECTION};Version=3;UseUTF16Encoding=True;")
db_location = "data source=" & My.Settings.SQLLITE_CONNECTION & ";Version=3;UseUTF16Encoding=True;" db_location = "data source=" & My.Settings.SQLLITE_CONNECTION & ";Version=3;UseUTF16Encoding=True;"
Dim SQLconnect As New SQLite.SQLiteConnection(db_location) '"Data Source=E:\ToolCollection.sqlite;Version=3;UseUTF16Encoding=True;") '""Data Source=" & db_location & ";") Dim SQLconnect As New SQLite.SQLiteConnection(db_location) '"Data Source=E: \ToolCollection.sqlite;Version=3;UseUTF16Encoding=True;") '""Data Source=" & db_location & ";")
'SQLconnect.ConnectionString = "Data Source=" & db_location 'SQLconnect.ConnectionString = "Data Source=" & db_location
SQLconnect.Open() SQLconnect.Open()
Return True Return True
Catch ex As Exception Catch ex As Exception
If _form = False Then If _form = False Then
_Logger.Error(ex) _Logger.Error(ex)
Else Else
MsgBox("Fehler in: Init SQLiteDatabase: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler in DBInit SQLiteDatabase: " & ex.Message, MsgBoxStyle.Critical)
End If End If
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Return_Datatable(Select_anweisung As String, _form As Boolean) Public Function Return_Datatable(Select_anweisung As String, _form As Boolean) As DataTable
Try Try
Dim SQLconnect As New SQLite.SQLiteConnection() Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand Dim SQLcommand As SQLiteCommand
@ -39,14 +51,14 @@ Public Class ClassSQLITE
Return dt Return dt
Catch ex As Exception Catch ex As Exception
If _form = False Then If _form = False Then
_Logger.Error(ex) _Logger.Error(ex)
Else Else
MsgBox("FEHLER IN Return_Datatable: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("FEHLER IN Return_Datatable: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If End If
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Execute_Command(_sql As String, _form As Boolean) Public Function Execute_Command(_sql As String, _form As Boolean) As Boolean
Try Try
Dim SQLconnect As New SQLite.SQLiteConnection() Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand Dim SQLcommand As SQLiteCommand
@ -61,14 +73,14 @@ Public Class ClassSQLITE
Return True Return True
Catch ex As Exception Catch ex As Exception
If _form = False Then If _form = False Then
_Logger.Error(ex) _Logger.Error(ex)
Else Else
MsgBox("Fehler in: 'Execute_Command': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical) MsgBox("Fehler in: 'Execute_Command': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical)
End If End If
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Execute_scalar(_sql As String, _form As Boolean) Public Function Execute_scalar(_sql As String, _form As Boolean)
Try Try
Dim SQLconnect As New SQLite.SQLiteConnection() Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand Dim SQLcommand As SQLiteCommand
@ -83,7 +95,7 @@ Public Class ClassSQLITE
Return result Return result
Catch ex As Exception Catch ex As Exception
If _form = False Then If _form = False Then
_Logger.Error(ex) _Logger.Error(ex)
Else Else
MsgBox("Fehler in: 'Execute_scalar': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical) MsgBox("Fehler in: 'Execute_scalar': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical)
End If End If

14
ToolCollection/ClassWD_Rechte.vb
View File

@ -39,9 +39,15 @@ Public Class ClassWD_Rechte
Public oBrowser As New WMOBRWSLib.ServerBrowser Public oBrowser As New WMOBRWSLib.ServerBrowser
Public oDokumentTypen As WINDREAMLib.WMObjects Public oDokumentTypen As WINDREAMLib.WMObjects
Public aktivesProfil As ClassNIProfil Public aktivesProfil As ClassNIProfil
Private Shared _Logger As DigitalData.Modules.Logging.Logger Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _MyLogger As LogConfig
Private _sqlite As ClassSQLITE
#End Region #End Region
Sub New(LogConfig As LogConfig, _mysqlite As ClassSQLITE)
_MyLogger = LogConfig
_Logger = _MyLogger.GetLogger
_sqlite = _mysqlite
End Sub
''' <summary> ''' <summary>
''' Initialisiert die statische Klasse (Login, Session starten, usw.) ''' Initialisiert die statische Klasse (Login, Session starten, usw.)
''' </summary> ''' </summary>
@ -219,7 +225,7 @@ Public Class ClassWD_Rechte
Dim _UserOrGroup Dim _UserOrGroup
Dim _lRight As Integer Dim _lRight As Integer
Dim _Erfolgreich As Boolean = True Dim _Erfolgreich As Boolean = True
Dim DT As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE GUID = '" & profilID & "'", _form) Dim DT As DataTable = _sqlite.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE GUID = '" & profilID & "'", _form)
If DT Is Nothing = False Then If DT Is Nothing = False Then
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
'Profildaten laden 'Profildaten laden
@ -230,7 +236,7 @@ Public Class ClassWD_Rechte
PW = row.Item("Password") PW = row.Item("Password")
Server = row.Item("Servername") Server = row.Item("Servername")
Next Next
Dim DTR As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE GUID = " & regelid, _form) Dim DTR As DataTable = _sqlite.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE GUID = " & regelid, _form)
If DTR.Rows.Count = 1 Then If DTR.Rows.Count = 1 Then
For Each row As DataRow In DTR.Rows For Each row As DataRow In DTR.Rows
_methode = row.Item("Methode") _methode = row.Item("Methode")

3073
ToolCollection/DSCursor.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

9
ToolCollection/DSCursor.xsc
View File

@ -1,9 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings />
</DataSetUISetting>

369
ToolCollection/DSCursor.xsd
View File

@ -1,369 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema id="DSCursor" targetNamespace="http://tempuri.org/DSCursor.xsd" xmlns:mstns="http://tempuri.org/DSCursor.xsd" xmlns="http://tempuri.org/DSCursor.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
<xs:annotation>
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
<DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<Connections>
<Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="ConnectionStringCursor" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="ConnectionStringCursor (MySettings)" PropertyReference="ApplicationSettings.ToolCollection.My.MySettings.GlobalReference.Default.ConnectionStringCursor" Provider="System.Data.OleDb" />
</Connections>
<Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="SYS_WDCCTableAdapter" GeneratorDataComponentClassName="SYS_WDCCTableAdapter" Name="SYS_WDCC" UserDataComponentName="SYS_WDCCTableAdapter">
<MainSource>
<DbSource ConnectionRef="ConnectionStringCursor (MySettings)" DbObjectName="WDCC.SYS_WDCC" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM "SYS_WDCC" WHERE (("ID" = ?) AND ((? = 1 AND "CCID" IS NULL) OR ("CCID" = ?)) AND ((? = 1 AND "WDID" IS NULL) OR ("WDID" = ?)) AND ((? = 1 AND "FILENAME_REP" IS NULL) OR ("FILENAME_REP" = ?)) AND ((? = 1 AND "FILENAME_ARCH" IS NULL) OR ("FILENAME_ARCH" = ?)) AND ((? = 1 AND "FILEEXT" IS NULL) OR ("FILEEXT" = ?)) AND ((? = 1 AND "OBJTYPE" IS NULL) OR ("OBJTYPE" = ?)) AND ((? = 1 AND "DOKTYPE" IS NULL) OR ("DOKTYPE" = ?)) AND ((? = 1 AND "OBG0" IS NULL) OR ("OBG0" = ?)) AND ((? = 1 AND "OBG1" IS NULL) OR ("OBG1" = ?)) AND ((? = 1 AND "OBG2" IS NULL) OR ("OBG2" = ?)) AND ((? = 1 AND "OBG3" IS NULL) OR ("OBG3" = ?)) AND ((? = 1 AND "OBG4" IS NULL) OR ("OBG4" = ?)) AND ((? = 1 AND "OBG5" IS NULL) OR ("OBG5" = ?)) AND ((? = 1 AND "OBG6" IS NULL) OR ("OBG6" = ?)) AND ((? = 1 AND "OBG7" IS NULL) OR ("OBG7" = ?)) AND ((? = 1 AND "OBG8" IS NULL) OR ("OBG8" = ?)) AND ((? = 1 AND "OBG9" IS NULL) OR ("OBG9" = ?)) AND ("CREATEDAT" = ?) AND ((? = 1 AND "CREATESYS" IS NULL) OR ("CREATESYS" = ?)) AND ((? = 1 AND "CHANGEDAT" IS NULL) OR ("CHANGEDAT" = ?)) AND ((? = 1 AND "CHANGESYS" IS NULL) OR ("CHANGESYS" = ?)) AND ((? = 1 AND "RETMSG" IS NULL) OR ("RETMSG" = ?)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Decimal" Direction="Input" ParameterName="Original_ID" Precision="18" ProviderType="Numeric" Scale="0" Size="0" SourceColumn="ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CCID" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CCID" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_CCID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CCID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_WDID" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="WDID" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_WDID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="WDID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_FILENAME_REP" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="FILENAME_REP" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_FILENAME_REP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_REP" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_FILENAME_ARCH" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="FILENAME_ARCH" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_FILENAME_ARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_ARCH" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_FILEEXT" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="FILEEXT" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_FILEEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILEEXT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBJTYPE" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBJTYPE" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBJTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBJTYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_DOKTYPE" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="DOKTYPE" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_DOKTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DOKTYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG0" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG0" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG0" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG0" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG1" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG1" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG1" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG2" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG2" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG2" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG3" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG3" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG3" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG4" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG4" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG4" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG5" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG5" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG5" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG5" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG6" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG6" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG6" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG6" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG7" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG7" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG7" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG7" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG8" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG8" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG8" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG8" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG9" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG9" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG9" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG9" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_CREATEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CREATEDAT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CREATESYS" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CREATESYS" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_CREATESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CREATESYS" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CHANGEDAT" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CHANGEDAT" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_CHANGEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CHANGEDAT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CHANGESYS" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CHANGESYS" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_CHANGESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGESYS" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_RETMSG" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="RETMSG" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_RETMSG" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="RETMSG" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO "SYS_WDCC" ("ID", "CCID", "WDID", "FILENAME_REP", "FILENAME_ARCH", "FILEEXT", "OBJTYPE", "DOKTYPE", "OBG0", "OBG1", "OBG2", "OBG3", "OBG4", "OBG5", "OBG6", "OBG7", "OBG8", "OBG9", "CREATEDAT", "CREATESYS", "CHANGEDAT", "CHANGESYS", "RETMSG") VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Decimal" Direction="Input" ParameterName="ID" Precision="18" ProviderType="Numeric" Scale="0" Size="0" SourceColumn="ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="CCID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CCID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="WDID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="WDID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="FILENAME_REP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_REP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="FILENAME_ARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_ARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="FILEEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILEEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBJTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBJTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="DOKTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DOKTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG0" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG0" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG5" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG5" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG6" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG6" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG7" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG7" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG8" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG8" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG9" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG9" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="CREATEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CREATEDAT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="CREATESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CREATESYS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="CHANGEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CHANGEDAT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="CHANGESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGESYS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="RETMSG" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="RETMSG" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT ID, CCID, WDID, FILENAME_REP, FILENAME_ARCH, FILEEXT, OBJTYPE, DOKTYPE, OBG0, OBG1, OBG2, OBG3, OBG4, OBG5, OBG6, OBG7, OBG8, OBG9,
CREATEDAT, CREATESYS, CHANGEDAT, CHANGESYS, RETMSG
FROM SYS_WDCC</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE "SYS_WDCC" SET "ID" = ?, "CCID" = ?, "WDID" = ?, "FILENAME_REP" = ?, "FILENAME_ARCH" = ?, "FILEEXT" = ?, "OBJTYPE" = ?, "DOKTYPE" = ?, "OBG0" = ?, "OBG1" = ?, "OBG2" = ?, "OBG3" = ?, "OBG4" = ?, "OBG5" = ?, "OBG6" = ?, "OBG7" = ?, "OBG8" = ?, "OBG9" = ?, "CREATEDAT" = ?, "CREATESYS" = ?, "CHANGEDAT" = ?, "CHANGESYS" = ?, "RETMSG" = ? WHERE (("ID" = ?) AND ((? = 1 AND "CCID" IS NULL) OR ("CCID" = ?)) AND ((? = 1 AND "WDID" IS NULL) OR ("WDID" = ?)) AND ((? = 1 AND "FILENAME_REP" IS NULL) OR ("FILENAME_REP" = ?)) AND ((? = 1 AND "FILENAME_ARCH" IS NULL) OR ("FILENAME_ARCH" = ?)) AND ((? = 1 AND "FILEEXT" IS NULL) OR ("FILEEXT" = ?)) AND ((? = 1 AND "OBJTYPE" IS NULL) OR ("OBJTYPE" = ?)) AND ((? = 1 AND "DOKTYPE" IS NULL) OR ("DOKTYPE" = ?)) AND ((? = 1 AND "OBG0" IS NULL) OR ("OBG0" = ?)) AND ((? = 1 AND "OBG1" IS NULL) OR ("OBG1" = ?)) AND ((? = 1 AND "OBG2" IS NULL) OR ("OBG2" = ?)) AND ((? = 1 AND "OBG3" IS NULL) OR ("OBG3" = ?)) AND ((? = 1 AND "OBG4" IS NULL) OR ("OBG4" = ?)) AND ((? = 1 AND "OBG5" IS NULL) OR ("OBG5" = ?)) AND ((? = 1 AND "OBG6" IS NULL) OR ("OBG6" = ?)) AND ((? = 1 AND "OBG7" IS NULL) OR ("OBG7" = ?)) AND ((? = 1 AND "OBG8" IS NULL) OR ("OBG8" = ?)) AND ((? = 1 AND "OBG9" IS NULL) OR ("OBG9" = ?)) AND ("CREATEDAT" = ?) AND ((? = 1 AND "CREATESYS" IS NULL) OR ("CREATESYS" = ?)) AND ((? = 1 AND "CHANGEDAT" IS NULL) OR ("CHANGEDAT" = ?)) AND ((? = 1 AND "CHANGESYS" IS NULL) OR ("CHANGESYS" = ?)) AND ((? = 1 AND "RETMSG" IS NULL) OR ("RETMSG" = ?)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Decimal" Direction="Input" ParameterName="ID" Precision="18" ProviderType="Numeric" Scale="0" Size="0" SourceColumn="ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="CCID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CCID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="WDID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="WDID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="FILENAME_REP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_REP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="FILENAME_ARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_ARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="FILEEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILEEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBJTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBJTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="DOKTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DOKTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG0" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG0" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG5" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG5" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG6" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG6" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG7" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG7" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG8" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG8" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="OBG9" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG9" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="CREATEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CREATEDAT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="CREATESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CREATESYS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="CHANGEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CHANGEDAT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="CHANGESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGESYS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="RETMSG" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="RETMSG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Decimal" Direction="Input" ParameterName="Original_ID" Precision="18" ProviderType="Numeric" Scale="0" Size="0" SourceColumn="ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CCID" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CCID" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_CCID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CCID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_WDID" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="WDID" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_WDID" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="WDID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_FILENAME_REP" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="FILENAME_REP" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_FILENAME_REP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_REP" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_FILENAME_ARCH" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="FILENAME_ARCH" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_FILENAME_ARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME_ARCH" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_FILEEXT" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="FILEEXT" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_FILEEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILEEXT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBJTYPE" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBJTYPE" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBJTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBJTYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_DOKTYPE" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="DOKTYPE" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_DOKTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DOKTYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG0" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG0" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG0" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG0" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG1" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG1" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG1" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG2" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG2" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG2" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG3" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG3" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG3" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG4" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG4" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG4" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG5" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG5" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG5" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG5" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG6" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG6" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG6" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG6" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG7" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG7" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG7" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG7" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG8" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG8" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG8" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG8" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_OBG9" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="OBG9" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_OBG9" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="OBG9" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_CREATEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CREATEDAT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CREATESYS" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CREATESYS" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_CREATESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CREATESYS" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CHANGEDAT" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CHANGEDAT" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="Original_CHANGEDAT" Precision="0" ProviderType="DBTimeStamp" Scale="0" Size="0" SourceColumn="CHANGEDAT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_CHANGESYS" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="CHANGESYS" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_CHANGESYS" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGESYS" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_RETMSG" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="RETMSG" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="Original_RETMSG" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="RETMSG" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="ID" DataSetColumn="ID" />
<Mapping SourceColumn="CCID" DataSetColumn="CCID" />
<Mapping SourceColumn="WDID" DataSetColumn="WDID" />
<Mapping SourceColumn="FILENAME_REP" DataSetColumn="FILENAME_REP" />
<Mapping SourceColumn="FILENAME_ARCH" DataSetColumn="FILENAME_ARCH" />
<Mapping SourceColumn="FILEEXT" DataSetColumn="FILEEXT" />
<Mapping SourceColumn="OBJTYPE" DataSetColumn="OBJTYPE" />
<Mapping SourceColumn="DOKTYPE" DataSetColumn="DOKTYPE" />
<Mapping SourceColumn="OBG0" DataSetColumn="OBG0" />
<Mapping SourceColumn="OBG1" DataSetColumn="OBG1" />
<Mapping SourceColumn="OBG2" DataSetColumn="OBG2" />
<Mapping SourceColumn="OBG3" DataSetColumn="OBG3" />
<Mapping SourceColumn="OBG4" DataSetColumn="OBG4" />
<Mapping SourceColumn="OBG5" DataSetColumn="OBG5" />
<Mapping SourceColumn="OBG6" DataSetColumn="OBG6" />
<Mapping SourceColumn="OBG7" DataSetColumn="OBG7" />
<Mapping SourceColumn="OBG8" DataSetColumn="OBG8" />
<Mapping SourceColumn="OBG9" DataSetColumn="OBG9" />
<Mapping SourceColumn="CREATEDAT" DataSetColumn="CREATEDAT" />
<Mapping SourceColumn="CREATESYS" DataSetColumn="CREATESYS" />
<Mapping SourceColumn="CHANGEDAT" DataSetColumn="CHANGEDAT" />
<Mapping SourceColumn="CHANGESYS" DataSetColumn="CHANGESYS" />
<Mapping SourceColumn="RETMSG" DataSetColumn="RETMSG" />
</Mappings>
<Sources />
</TableAdapter>
</Tables>
<Sources />
</DataSource>
</xs:appinfo>
</xs:annotation>
<xs:element name="DSCursor" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DSCursor" msprop:Generator_UserDSName="DSCursor">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="SYS_WDCC" msprop:Generator_TableClassName="SYS_WDCCDataTable" msprop:Generator_TableVarName="tableSYS_WDCC" msprop:Generator_TablePropName="SYS_WDCC" msprop:Generator_RowDeletingName="SYS_WDCCRowDeleting" msprop:Generator_UserTableName="SYS_WDCC" msprop:Generator_RowChangingName="SYS_WDCCRowChanging" msprop:Generator_RowEvHandlerName="SYS_WDCCRowChangeEventHandler" msprop:Generator_RowDeletedName="SYS_WDCCRowDeleted" msprop:Generator_RowEvArgName="SYS_WDCCRowChangeEvent" msprop:Generator_RowChangedName="SYS_WDCCRowChanged" msprop:Generator_RowClassName="SYS_WDCCRow">
<xs:complexType>
<xs:sequence>
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:decimal" />
<xs:element name="CCID" msprop:Generator_ColumnVarNameInTable="columnCCID" msprop:Generator_ColumnPropNameInRow="CCID" msprop:Generator_ColumnPropNameInTable="CCIDColumn" msprop:Generator_UserColumnName="CCID" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="80" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WDID" msprop:Generator_ColumnVarNameInTable="columnWDID" msprop:Generator_ColumnPropNameInRow="WDID" msprop:Generator_ColumnPropNameInTable="WDIDColumn" msprop:Generator_UserColumnName="WDID" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="80" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FILENAME_REP" msprop:Generator_ColumnVarNameInTable="columnFILENAME_REP" msprop:Generator_ColumnPropNameInRow="FILENAME_REP" msprop:Generator_ColumnPropNameInTable="FILENAME_REPColumn" msprop:Generator_UserColumnName="FILENAME_REP" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="510" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FILENAME_ARCH" msprop:Generator_ColumnVarNameInTable="columnFILENAME_ARCH" msprop:Generator_ColumnPropNameInRow="FILENAME_ARCH" msprop:Generator_ColumnPropNameInTable="FILENAME_ARCHColumn" msprop:Generator_UserColumnName="FILENAME_ARCH" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="510" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FILEEXT" msprop:Generator_ColumnVarNameInTable="columnFILEEXT" msprop:Generator_ColumnPropNameInRow="FILEEXT" msprop:Generator_ColumnPropNameInTable="FILEEXTColumn" msprop:Generator_UserColumnName="FILEEXT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="40" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBJTYPE" msprop:Generator_ColumnVarNameInTable="columnOBJTYPE" msprop:Generator_ColumnPropNameInRow="OBJTYPE" msprop:Generator_ColumnPropNameInTable="OBJTYPEColumn" msprop:Generator_UserColumnName="OBJTYPE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="510" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DOKTYPE" msprop:Generator_ColumnVarNameInTable="columnDOKTYPE" msprop:Generator_ColumnPropNameInRow="DOKTYPE" msprop:Generator_ColumnPropNameInTable="DOKTYPEColumn" msprop:Generator_UserColumnName="DOKTYPE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="510" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG0" msprop:Generator_ColumnVarNameInTable="columnOBG0" msprop:Generator_ColumnPropNameInRow="OBG0" msprop:Generator_ColumnPropNameInTable="OBG0Column" msprop:Generator_UserColumnName="OBG0" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG1" msprop:Generator_ColumnVarNameInTable="columnOBG1" msprop:Generator_ColumnPropNameInRow="OBG1" msprop:Generator_ColumnPropNameInTable="OBG1Column" msprop:Generator_UserColumnName="OBG1" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG2" msprop:Generator_ColumnVarNameInTable="columnOBG2" msprop:Generator_ColumnPropNameInRow="OBG2" msprop:Generator_ColumnPropNameInTable="OBG2Column" msprop:Generator_UserColumnName="OBG2" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG3" msprop:Generator_ColumnVarNameInTable="columnOBG3" msprop:Generator_ColumnPropNameInRow="OBG3" msprop:Generator_ColumnPropNameInTable="OBG3Column" msprop:Generator_UserColumnName="OBG3" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG4" msprop:Generator_ColumnVarNameInTable="columnOBG4" msprop:Generator_ColumnPropNameInRow="OBG4" msprop:Generator_ColumnPropNameInTable="OBG4Column" msprop:Generator_UserColumnName="OBG4" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG5" msprop:Generator_ColumnVarNameInTable="columnOBG5" msprop:Generator_ColumnPropNameInRow="OBG5" msprop:Generator_ColumnPropNameInTable="OBG5Column" msprop:Generator_UserColumnName="OBG5" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG6" msprop:Generator_ColumnVarNameInTable="columnOBG6" msprop:Generator_ColumnPropNameInRow="OBG6" msprop:Generator_ColumnPropNameInTable="OBG6Column" msprop:Generator_UserColumnName="OBG6" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG7" msprop:Generator_ColumnVarNameInTable="columnOBG7" msprop:Generator_ColumnPropNameInRow="OBG7" msprop:Generator_ColumnPropNameInTable="OBG7Column" msprop:Generator_UserColumnName="OBG7" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG8" msprop:Generator_ColumnVarNameInTable="columnOBG8" msprop:Generator_ColumnPropNameInRow="OBG8" msprop:Generator_ColumnPropNameInTable="OBG8Column" msprop:Generator_UserColumnName="OBG8" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OBG9" msprop:Generator_ColumnVarNameInTable="columnOBG9" msprop:Generator_ColumnPropNameInRow="OBG9" msprop:Generator_ColumnPropNameInTable="OBG9Column" msprop:Generator_UserColumnName="OBG9" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CREATEDAT" msprop:Generator_ColumnVarNameInTable="columnCREATEDAT" msprop:Generator_ColumnPropNameInRow="CREATEDAT" msprop:Generator_ColumnPropNameInTable="CREATEDATColumn" msprop:Generator_UserColumnName="CREATEDAT" type="xs:dateTime" />
<xs:element name="CREATESYS" msprop:Generator_ColumnVarNameInTable="columnCREATESYS" msprop:Generator_ColumnPropNameInRow="CREATESYS" msprop:Generator_ColumnPropNameInTable="CREATESYSColumn" msprop:Generator_UserColumnName="CREATESYS" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="10" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGEDAT" msprop:Generator_ColumnVarNameInTable="columnCHANGEDAT" msprop:Generator_ColumnPropNameInRow="CHANGEDAT" msprop:Generator_ColumnPropNameInTable="CHANGEDATColumn" msprop:Generator_UserColumnName="CHANGEDAT" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGESYS" msprop:Generator_ColumnVarNameInTable="columnCHANGESYS" msprop:Generator_ColumnPropNameInRow="CHANGESYS" msprop:Generator_ColumnPropNameInTable="CHANGESYSColumn" msprop:Generator_UserColumnName="CHANGESYS" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="10" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="RETMSG" msprop:Generator_ColumnVarNameInTable="columnRETMSG" msprop:Generator_ColumnPropNameInRow="RETMSG" msprop:Generator_ColumnPropNameInTable="RETMSGColumn" msprop:Generator_UserColumnName="RETMSG" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:SYS_WDCC" />
<xs:field xpath="mstns:ID" />
</xs:unique>
</xs:element>
</xs:schema>

12
ToolCollection/DSCursor.xss
View File

@ -1,12 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool to store the dataset designer's layout information.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:SYS_WDCC" ZOrder="1" X="35" Y="27" Height="305" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
</Shapes>
<Connectors />
</DiagramLayout>

2
ToolCollection/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.0.4.4")> <Assembly: AssemblyVersion("2.3.0.0")>
<Assembly: AssemblyFileVersion("1.5.1.0")> <Assembly: AssemblyFileVersion("1.5.1.0")>

37
ToolCollection/My Project/Settings.Designer.vb generated
View File

@ -735,43 +735,6 @@ Namespace My
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("DATA SOURCE=CURSOR_DEMO;PASSWORD=wdcc;PERSIST SECURITY INFO=True;USER ID=WDCC")> _
Public ReadOnly Property ConnectionStringCursor() As String
Get
Return CType(Me("ConnectionStringCursor"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("E:\Digital Data\INSERT_TICKET.sql")> _
Public ReadOnly Property INSERTTICKET() As String
Get
Return CType(Me("INSERTTICKET"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("E:\Digital Data\INSERT_VERANST.sql")> _
Public ReadOnly Property INSERVERANST() As String
Get
Return CType(Me("INSERVERANST"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("E:\Digital Data\INSERT_SONST.sql")> _
Public ReadOnly Property INSERT_SONST() As String
Get
Return CType(Me("INSERT_SONST"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _

17
ToolCollection/My Project/Settings.settings
View File

@ -178,23 +178,6 @@
<Setting Name="vWLaufwerk" Type="System.String" Scope="Application"> <Setting Name="vWLaufwerk" Type="System.String" Scope="Application">
<Value Profile="(Default)">W</Value> <Value Profile="(Default)">W</Value>
</Setting> </Setting>
<Setting Name="ConnectionStringCursor" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;DATA SOURCE=CURSOR_DEMO;PASSWORD=wdcc;PERSIST SECURITY INFO=True;USER ID=WDCC&lt;/ConnectionString&gt;
&lt;ProviderName&gt;Oracle.DataAccess.Client&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">DATA SOURCE=CURSOR_DEMO;PASSWORD=wdcc;PERSIST SECURITY INFO=True;USER ID=WDCC</Value>
</Setting>
<Setting Name="INSERTTICKET" Type="System.String" Scope="Application">
<Value Profile="(Default)">E:\Digital Data\INSERT_TICKET.sql</Value>
</Setting>
<Setting Name="INSERVERANST" Type="System.String" Scope="Application">
<Value Profile="(Default)">E:\Digital Data\INSERT_VERANST.sql</Value>
</Setting>
<Setting Name="INSERT_SONST" Type="System.String" Scope="Application">
<Value Profile="(Default)">E:\Digital Data\INSERT_SONST.sql</Value>
</Setting>
<Setting Name="SQLLITE_CONNECTION" Roaming="true" Type="System.String" Scope="User"> <Setting Name="SQLLITE_CONNECTION" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>

25
ToolCollection/ToolCollection.vbproj
View File

@ -208,11 +208,6 @@
<Compile Include="clsNIFulltext.vb" /> <Compile Include="clsNIFulltext.vb" />
<Compile Include="clsNI_DB.vb" /> <Compile Include="clsNI_DB.vb" />
<Compile Include="clsNI_WorkFile.vb" /> <Compile Include="clsNI_WorkFile.vb" />
<Compile Include="DSCursor.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DSCursor.xsd</DependentUpon>
</Compile>
<Compile Include="DSNachbearbeitung.Designer.vb"> <Compile Include="DSNachbearbeitung.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DesignTime>True</DesignTime> <DesignTime>True</DesignTime>
@ -262,12 +257,6 @@
<Compile Include="frmNIVerknuepfungen.vb"> <Compile Include="frmNIVerknuepfungen.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmNI_Nachbearbeitung.Designer.vb">
<DependentUpon>frmNI_Nachbearbeitung.vb</DependentUpon>
</Compile>
<Compile Include="frmNI_Nachbearbeitung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmreadLog.Designer.vb"> <Compile Include="frmreadLog.Designer.vb">
<DependentUpon>frmreadLog.vb</DependentUpon> <DependentUpon>frmreadLog.vb</DependentUpon>
</Compile> </Compile>
@ -447,9 +436,6 @@
<EmbeddedResource Include="frmNIVerknuepfungen.resx"> <EmbeddedResource Include="frmNIVerknuepfungen.resx">
<DependentUpon>frmNIVerknuepfungen.vb</DependentUpon> <DependentUpon>frmNIVerknuepfungen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmNI_Nachbearbeitung.resx">
<DependentUpon>frmNI_Nachbearbeitung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmreadLog.resx"> <EmbeddedResource Include="frmreadLog.resx">
<DependentUpon>frmreadLog.vb</DependentUpon> <DependentUpon>frmreadLog.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -530,17 +516,6 @@
<None Include="app.config"> <None Include="app.config">
<SubType>Designer</SubType> <SubType>Designer</SubType>
</None> </None>
<None Include="DSCursor.xsc">
<DependentUpon>DSCursor.xsd</DependentUpon>
</None>
<None Include="DSCursor.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DSCursor.Designer.vb</LastGenOutput>
</None>
<None Include="DSCursor.xss">
<DependentUpon>DSCursor.xsd</DependentUpon>
</None>
<None Include="DSNachbearbeitung.xsc"> <None Include="DSNachbearbeitung.xsc">
<DependentUpon>DSNachbearbeitung.xsd</DependentUpon> <DependentUpon>DSNachbearbeitung.xsd</DependentUpon>
</None> </None>

12
ToolCollection/app.config
View File

@ -11,9 +11,6 @@
<section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/> <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="ToolCollection.My.MySettings.ConnectionStringCursor"
connectionString="DATA SOURCE=CURSOR_DEMO;PASSWORD=wdcc;PERSIST SECURITY INFO=True;USER ID=WDCC"
providerName="Oracle.DataAccess.Client" />
<add name="ToolCollection.My.MySettings.DD_DMSConnectionString" <add name="ToolCollection.My.MySettings.DD_DMSConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_DMS;User ID=sa;Password=dd" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_DMS;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" /> providerName="System.Data.SqlClient" />
@ -231,15 +228,6 @@
<setting name="vWLaufwerk" serializeAs="String"> <setting name="vWLaufwerk" serializeAs="String">
<value>W</value> <value>W</value>
</setting> </setting>
<setting name="INSERTTICKET" serializeAs="String">
<value>E:\Digital Data\INSERT_TICKET.sql</value>
</setting>
<setting name="INSERVERANST" serializeAs="String">
<value>E:\Digital Data\INSERT_VERANST.sql</value>
</setting>
<setting name="INSERT_SONST" serializeAs="String">
<value>E:\Digital Data\INSERT_SONST.sql</value>
</setting>
<setting name="WMCC_RESTART" serializeAs="String"> <setting name="WMCC_RESTART" serializeAs="String">
<value>DigitalData\windream_CLIENT_WMCC_Neustart</value> <value>DigitalData\windream_CLIENT_WMCC_Neustart</value>
</setting> </setting>

2
ToolCollection/clsNI_WorkFile.vb
View File

@ -487,7 +487,7 @@ Public Class clsNI_WorkFile
If aktivesProfil.DbArt = "Oracle" Then If aktivesProfil.DbArt = "Oracle" Then
_NidxWert = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, _Index) _NidxWert = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, _Index)
ElseIf aktivesProfil.DbArt = "MS-SQL" Then ElseIf aktivesProfil.DbArt = "MS-SQL" Then
_NidxWert = database.GetValueFromMssqlDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, _Index) _NidxWert = database.GetValueFromMssqlDb(_WDFileINWORK.aName, aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, _Index)
ElseIf aktivesProfil.DbArt = "ODBC" Then ElseIf aktivesProfil.DbArt = "ODBC" Then
_NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, _Index) _NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, _Index)
ElseIf aktivesProfil.DbArt = "OLE (Access)" Then ElseIf aktivesProfil.DbArt = "OLE (Access)" Then

30
ToolCollection/frmNB_AD.vb
View File

@ -1,4 +1,5 @@
Imports DigitalData.Modules.Logging Imports System.IO
Imports DigitalData.Modules.Logging
Public Class frmNB_AD Public Class frmNB_AD
' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
Private _selectedProfile As ClassNIProfil Private _selectedProfile As ClassNIProfil
@ -6,9 +7,11 @@ Public Class frmNB_AD
Public Shared _profilname As String Public Shared _profilname As String
Public Shared _profilID As Integer Public Shared _profilID As Integer
Public Shared _Objekttyp As String Public Shared _Objekttyp As String
Dim _windreamRechte As New ClassWD_Rechte Dim _windreamRechte As ClassWD_Rechte
Dim FormClose = False Dim FormClose = False
Private Shared _Logger As DigitalData.Modules.Logging.Logger Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _MyLogger As LogConfig
Private _SQLLite As ClassSQLITE
Public Shared Function Instance() As frmNB_AD Public Shared Function Instance() As frmNB_AD
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmNB_AD _Instance = New frmNB_AD
@ -27,7 +30,10 @@ Public Class frmNB_AD
End Sub End Sub
Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
_SQLLite = New ClassSQLITE(_MyLogger)
_windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite)
_windreamRechte.Init() _windreamRechte.Init()
' alle Profile in die Toolbar-Combobox eintragen ' alle Profile in die Toolbar-Combobox eintragen
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
@ -40,7 +46,7 @@ Public Class frmNB_AD
If IO.File.Exists(Application.StartupPath & "\ToolCollection.sqlite") Then If IO.File.Exists(Application.StartupPath & "\ToolCollection.sqlite") Then
My.Settings.SQLLITE_CONNECTION = Application.StartupPath & "\ToolCollection.sqlite" My.Settings.SQLLITE_CONNECTION = Application.StartupPath & "\ToolCollection.sqlite"
My.Settings.Save() My.Settings.Save()
If ClassSQLITE.Init(True) = False Then If _SQLLite.DBInit(True) = False Then
MsgBox("es konnte keine Verbindung zur Datenbank hergestellt werden!" & vbNewLine & "Bitte vergewissern Sie sich das die DB zugreifbar ist!", MsgBoxStyle.Critical) MsgBox("es konnte keine Verbindung zur Datenbank hergestellt werden!" & vbNewLine & "Bitte vergewissern Sie sich das die DB zugreifbar ist!", MsgBoxStyle.Critical)
Me.Close() Me.Close()
End If End If
@ -99,7 +105,7 @@ Public Class frmNB_AD
' hat jedoch zu diesem Zeitpunkt den Status HasChanges(), da der Inhalt der Steuerelemente verändert wurde. ' hat jedoch zu diesem Zeitpunkt den Status HasChanges(), da der Inhalt der Steuerelemente verändert wurde.
Me._selectedProfile.setSaved() Me._selectedProfile.setSaved()
Dim DT As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE NI_PROFILNAME = '" & _profilname & "'", True) Dim DT As DataTable = _SQLLite.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE NI_PROFILNAME = '" & _profilname & "'", True)
If DT Is Nothing = False Then If DT Is Nothing = False Then
gbxProfil.Visible = True gbxProfil.Visible = True
If DT.Rows.Count = 0 Then If DT.Rows.Count = 0 Then
@ -165,7 +171,7 @@ Public Class frmNB_AD
End Sub End Sub
Sub Load_Regeln() Sub Load_Regeln()
Try Try
Dim DT As DataTable = ClassSQLITE.Return_Datatable("select GUID as ID,METHODE as Methode,Rechtename as Rechtename, " & Dim DT As DataTable = _SQLLite.Return_Datatable("select GUID as ID,METHODE as Methode,Rechtename as Rechtename, " &
"CASE ACCESS_RIGHT WHEN 1 THEN 'READ' WHEN 2 THEN 'READ WRITE' ELSE 'ADMIN' END Recht, ErstelltWer as [Erstellt wer] from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & _profilID, True) "CASE ACCESS_RIGHT WHEN 1 THEN 'READ' WHEN 2 THEN 'READ WRITE' ELSE 'ADMIN' END Recht, ErstelltWer as [Erstellt wer] from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & _profilID, True)
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
btndeleteRegel.Visible = True btndeleteRegel.Visible = True
@ -218,8 +224,8 @@ Public Class frmNB_AD
Dim result As MsgBoxResult = MsgBox("Wollen Sie das gewählte Profil und die dazu gehörigen Regeln wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") Dim result As MsgBoxResult = MsgBox("Wollen Sie das gewählte Profil und die dazu gehörigen Regeln wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
If ClassSQLITE.Execute_Command("Delete from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & txtID.Text, True) = True Then If _SQLLite.Execute_Command("Delete from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & txtID.Text, True) = True Then
If ClassSQLITE.Execute_Command("Delete from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & txtID.Text, True) Then If _SQLLite.Execute_Command("Delete from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & txtID.Text, True) Then
Lade_Profil(_selectedProfile.Profilname) Lade_Profil(_selectedProfile.Profilname)
End If End If
End If End If
@ -262,7 +268,7 @@ Public Class frmNB_AD
Else Else
loeschen = 0 loeschen = 0
End If End If
If ClassSQLITE.Execute_Command("INSERT INTO TBNI_NACHBEARBEITUNG_AD (NI_PROFILNAME,DEL_ALL_RIGHTS,Domain,Servername,Username,Password,ERSTELLTWER) VALUES (" & If _SQLLite.Execute_Command("INSERT INTO TBNI_NACHBEARBEITUNG_AD (NI_PROFILNAME,DEL_ALL_RIGHTS,Domain,Servername,Username,Password,ERSTELLTWER) VALUES (" &
"'" & Me._selectedProfile.Profilname & "'," & loeschen & ",'" & txtDomäne.Text & "','" & txtServername.Text & "','" & "'" & Me._selectedProfile.Profilname & "'," & loeschen & ",'" & txtDomäne.Text & "','" & txtServername.Text & "','" &
txtUser.Text & "','" & txtPW.Text & "','" & Environment.UserName & "')", True) = True Then txtUser.Text & "','" & txtPW.Text & "','" & Environment.UserName & "')", True) = True Then
Lade_Profil(Me._selectedProfile.Profilname) Lade_Profil(Me._selectedProfile.Profilname)
@ -280,7 +286,7 @@ Public Class frmNB_AD
Else Else
loeschen = 0 loeschen = 0
End If End If
If ClassSQLITE.Execute_Command("UPDATE TBNI_NACHBEARBEITUNG_AD set Aktiv = " & Aktiv & ",DEL_ALL_RIGHTS = " & loeschen & If _SQLLite.Execute_Command("UPDATE TBNI_NACHBEARBEITUNG_AD set Aktiv = " & Aktiv & ",DEL_ALL_RIGHTS = " & loeschen &
", Domain = '" & txtDomäne.Text & "', Servername = '" & txtServername.Text & "', Username = '" & txtUser.Text & "', " & ", Domain = '" & txtDomäne.Text & "', Servername = '" & txtServername.Text & "', Username = '" & txtUser.Text & "', " &
"Password = '" & txtPW.Text & "', GEAENDERTWER = '" & Environment.UserName & "' where GUID = " & txtID.Text, True) = True Then "Password = '" & txtPW.Text & "', GEAENDERTWER = '" & Environment.UserName & "' where GUID = " & txtID.Text, True) = True Then
Lade_Profil(Me._selectedProfile.Profilname) Lade_Profil(Me._selectedProfile.Profilname)
@ -300,7 +306,7 @@ Public Class frmNB_AD
Dim i As Integer Dim i As Integer
i = DataGridView.CurrentRow.Index i = DataGridView.CurrentRow.Index
If DataGridView.Item(0, i).Value Is Nothing = False Then If DataGridView.Item(0, i).Value Is Nothing = False Then
If ClassSQLITE.Execute_Command("DELETE FROM TBNI_NB_STEP_AD WHERE GUID = " & DataGridView.Item(0, i).Value, True) Then If _SQLLite.Execute_Command("DELETE FROM TBNI_NB_STEP_AD WHERE GUID = " & DataGridView.Item(0, i).Value, True) Then
Load_Regeln() Load_Regeln()
End If End If

27
ToolCollection/frmNB_AD_add.vb
View File

@ -1,15 +1,24 @@
Public Class frmNB_AD_add Imports System.IO
Imports DigitalData.Modules.Logging
Public Class frmNB_AD_add
Dim Methode As String = "" Dim Methode As String = ""
Dim userorGroup As String = "" Dim userorGroup As String = ""
Dim Rechtename As String = "" Dim Rechtename As String = ""
Dim deleteall As Boolean = False Dim deleteall As Boolean = False
Dim AccessRight As Integer Dim AccessRight As Integer
Private _windream As New ClassWindream_allgemein(CURR_MyLogger) Private _windream As New ClassWindream_allgemein(CURR_MyLogger)
Dim _windreamRechte As New ClassWD_Rechte Dim _windreamRechte As ClassWD_Rechte
Dim countRegel As Integer Dim countRegel As Integer
Dim _deleteRoles As Boolean = False Dim _deleteRoles As Boolean = False
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _MyLogger As LogConfig
Private _SQLLite As ClassSQLITE
Private Sub frmNB_AD_add_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmNB_AD_add_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
_SQLLite = New ClassSQLITE(_MyLogger)
_windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite)
_windream.Init() _windream.Init()
_windreamRechte.Init() _windreamRechte.Init()
Me.pnl1.Visible = True Me.pnl1.Visible = True
@ -31,8 +40,8 @@
End Sub End Sub
Sub Load_Data() Sub Load_Data()
Try Try
countRegel = ClassSQLITE.Execute_scalar("select count(*) from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & frmNB_AD._profilID, True) countRegel = _SQLLite.Execute_scalar("select count(*) from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & frmNB_AD._profilID, True)
_deleteRoles = CBool(ClassSQLITE.Execute_scalar("select DEL_ALL_RIGHTS from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & frmNB_AD._profilID, True)) _deleteRoles = CBool(_SQLLite.Execute_scalar("select DEL_ALL_RIGHTS from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & frmNB_AD._profilID, True))
If IO.File.Exists(Application.StartupPath & "\Nachbearbeitung.xml") Then If IO.File.Exists(Application.StartupPath & "\Nachbearbeitung.xml") Then
' DSNachbearbeitung.Tables("TBNI_NACHBEARBEITUNG_AD").ReadXml(Application.StartupPath & "\Nachbearbeitung.xml") ' DSNachbearbeitung.Tables("TBNI_NACHBEARBEITUNG_AD").ReadXml(Application.StartupPath & "\Nachbearbeitung.xml")
End If End If
@ -104,7 +113,7 @@
End Sub End Sub
Private Sub rb3dediziertesRecht_CheckedChanged(sender As Object, e As EventArgs) Handles rb3dediziertesRecht.CheckedChanged Private Sub rb3dediziertesRecht_CheckedChanged(sender As Object, e As EventArgs) Handles rb3dediziertesRecht.CheckedChanged
If rb3dediziertesRecht.Checked Then If rb3dediziertesRecht.Checked Then
lbl3Combobox.Visible = True lbl3Combobox.Visible = True
@ -228,13 +237,13 @@
If userorGroup <> "allfolderrights" Then If userorGroup <> "allfolderrights" Then
If rb4AdminRights.Checked = False And countRegel = 0 And _deleteRoles = True Then If rb4AdminRights.Checked = False And countRegel = 0 And _deleteRoles = True Then
MsgBox("ACHTUNG:" & vbNewLine & "Diese Regel weist den ersten Rechteträger zu und muss daher Administrative Rechte zuweisen," & _ MsgBox("ACHTUNG:" & vbNewLine & "Diese Regel weist den ersten Rechteträger zu und muss daher Administrative Rechte zuweisen," &
"da alle bestehenden Regeln vorher gelöscht werden!", MsgBoxStyle.Critical) "da alle bestehenden Regeln vorher gelöscht werden!", MsgBoxStyle.Critical)
rb4AdminRights.Checked = True rb4AdminRights.Checked = True
Exit Sub Exit Sub
End If End If
End If End If
If rb4Lesen.Checked Then If rb4Lesen.Checked Then
AccessRight = 1 AccessRight = 1
@ -298,8 +307,8 @@
End Sub End Sub
Private Sub btSave_Click(sender As Object, e As EventArgs) Handles btSave.Click Private Sub btSave_Click(sender As Object, e As EventArgs) Handles btSave.Click
If ClassSQLITE.Execute_Command("INSERT INTO TBNI_NB_STEP_AD (PROFIL_ID,METHODE,RECHTENAME,GROUP_OR_USER,ACCESS_RIGHT,ERSTELLTWER) VALUES (" & _ If _SQLLite.Execute_Command("INSERT INTO TBNI_NB_STEP_AD (PROFIL_ID,METHODE,RECHTENAME,GROUP_OR_USER,ACCESS_RIGHT,ERSTELLTWER) VALUES (" &
frmNB_AD._profilID & ",'" & Methode & "','" & Rechtename & "','" & userorGroup & "'," & _ frmNB_AD._profilID & ",'" & Methode & "','" & Rechtename & "','" & userorGroup & "'," &
AccessRight & ",'" & Environment.UserName & "')", True) Then AccessRight & ",'" & Environment.UserName & "')", True) Then
End If End If
Me.Close() Me.Close()

136
ToolCollection/frmNIHauptseite.vb
View File

@ -21,8 +21,8 @@ Public Class frmNIHauptseite
Private database As ClassNIDatenbankzugriff Private database As ClassNIDatenbankzugriff
Private xml As New ClassxmlZugriff Private xml As New ClassxmlZugriff
Private _windreamRechte As New ClassWD_Rechte Private _windreamRechte As ClassWD_Rechte
Private _sqlite As New ClassSQLITE Private _sqlite As ClassSQLITE
Private manuallyRun As Boolean = False Private manuallyRun As Boolean = False
@ -112,7 +112,7 @@ Public Class frmNIHauptseite
_Logger.Info("Nachindexierungslauf wird wieder gestartet - My.Settings.NI_RUNNING = True") _Logger.Info("Nachindexierungslauf wird wieder gestartet - My.Settings.NI_RUNNING = True")
Start_NachindexierungThreads() Start_NachindexierungThreads()
Else Else
_Logger.Warn("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.") _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
End If End If
End Sub End Sub
Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@ -246,6 +246,7 @@ Public Class frmNIHauptseite
End Sub End Sub
Private Sub bwDatei_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Private Sub bwDatei_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
If bwDatei.CancellationPending Then If bwDatei.CancellationPending Then
_Logger.Debug("bwDatei.CancellationPending - e.Cancel")
e.Cancel = True e.Cancel = True
Else Else
IndexiereVerarbeiteDokument(Me.aktivesDokument) IndexiereVerarbeiteDokument(Me.aktivesDokument)
@ -297,11 +298,11 @@ Public Class frmNIHauptseite
End Sub End Sub
Private Sub bwProfil_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Private Sub bwProfil_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
' Try Try
'If bwProfil.CancellationPending Then 'If bwProfil.CancellationPending Then
' e.Cancel = True ' e.Cancel = True
'End If 'End If
Dim _Fehler As Boolean = False Dim _Fehler As Boolean = False
For Each profil As ClassNIProfil In ClassNIProfile.Profile For Each profil As ClassNIProfil In ClassNIProfile.Profile
_Fehler = False _Fehler = False
' aktuelles Profil der Klasse mitteilen ' aktuelles Profil der Klasse mitteilen
@ -373,14 +374,21 @@ Public Class frmNIHauptseite
If _Fehler = False Then If _Fehler = False Then
If windreamSucheErgebnisse.Count > 0 Then If windreamSucheErgebnisse.Count > 0 Then
_Logger.Debug($"windreamSucheErgebnisse.Count: [{windreamSucheErgebnisse.Count}]")
'Wenn Nachbearbeitung AD aktiv ist dann, Klassen initialisieren 'Wenn Nachbearbeitung AD aktiv ist dann, Klassen initialisieren
If aktivesProfil.NachbearbeitungAD = True Then If aktivesProfil.NachbearbeitungAD = True Then
_Logger.Debug($"aktivesProfil.NachbearbeitungAD = True")
'Erst DB 'Erst DB
If ClassSQLITE.Init(False) = True Then _sqlite = New ClassSQLITE(_MyLogger)
_windreamRechte = New ClassWD_Rechte(_MyLogger, _sqlite)
If _sqlite.DBInit(False) = True Then
_Logger.Debug($"ClassSQLITE initialized...")
'Dann Rechte-Klasse 'Dann Rechte-Klasse
If _windreamRechte.Init() = False Then If _windreamRechte.Init() = False Then
_Logger.Warn("## Die AD-Rechteklasse konnte nicht initialisert werden - Profil Abbruch") _Logger.Warn("## Die AD-Rechteklasse konnte nicht initialisert werden - Profil Abbruch")
_Fehler = True _Fehler = True
Else
_Logger.Debug($"The AD-RightClass has been initialized...")
End If End If
Else Else
_Logger.Warn("## Die SQLite-DB konnte nicht initialisert werden - Profil Abbruch") _Logger.Warn("## Die SQLite-DB konnte nicht initialisert werden - Profil Abbruch")
@ -389,6 +397,7 @@ Public Class frmNIHauptseite
Else Else
_Logger.Debug("NachbearbeitungAD inaktiv") _Logger.Debug("NachbearbeitungAD inaktiv")
End If End If
_Logger.Debug($"...Row 397...")
If _Fehler = False Then If _Fehler = False Then
'profil() 'profil()
' nun Profilabhängige Parameter laden ' nun Profilabhängige Parameter laden
@ -398,16 +407,19 @@ Public Class frmNIHauptseite
Else Else
_clsWorkfile._filevalidation = False _clsWorkfile._filevalidation = False
End If End If
_Logger.Debug($"clsWorkfile._filevalidation Checked...")
If aktivesProfil.IndexFehler <> "" Then If aktivesProfil.IndexFehler <> "" Then
_Logger.Debug("Error-msg shall be logged in index: " & Me.aktivesProfil.IndexFehler) _Logger.Debug("Error-msg shall be logged in index: " & Me.aktivesProfil.IndexFehler)
_clsWorkfile._fileerror = True _clsWorkfile._fileerror = True
Else Else
_clsWorkfile._fileerror = False _clsWorkfile._fileerror = False
End If End If
_Logger.Debug($"clsWorkfile._fileerror Checked...")
_Logger.Debug("Ni-Art: " & aktivesProfil.Ni_Art.ToLower) _Logger.Debug("Ni-Art: " & aktivesProfil.Ni_Art.ToLower)
' neue Anzahl von Dateien an ProgressBar2 ' neue Anzahl von Dateien an ProgressBar2
bwProfil.ReportProgress(windreamSucheErgebnisse.Count) bwProfil.ReportProgress(windreamSucheErgebnisse.Count)
For Each dok As WMObject In windreamSucheErgebnisse For Each dok As WMObject In windreamSucheErgebnisse
_Logger.Debug($"Working on Doc: [{dok.aName}]")
' aktuelles Dokument der Klasse mitteilen ' aktuelles Dokument der Klasse mitteilen
Me.aktivesDokument = dok Me.aktivesDokument = dok
@ -442,41 +454,24 @@ Public Class frmNIHauptseite
' nächste Datei an ProgressBar2 ' nächste Datei an ProgressBar2
bwProfil.ReportProgress(-1) bwProfil.ReportProgress(-1)
' Vorgang abbrechen ' Vorgang abbrechen
If bwProfil.CancellationPending Then Exit Sub If bwProfil.CancellationPending Then
_Logger.Debug($"bwProfil.CancellationPending...Exit bwProfil_DoWork")
Exit Sub
End If
Next Next
''Individuelle Prozedur für CURSOR Insert
'If profil.Profilname = "CURSORTicketformular" Then
' Dim value As String = File.ReadAllText(My.Settings.INSERTTICKET, System.Text.Encoding.Default)
' If database.ExecuteonOracleClient("ManuellInsertTicket", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then
' _Logger.Debug("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!")
' End If
' value = File.ReadAllText(My.Settings.INSERT_SONST, System.Text.Encoding.Default)
' If database.ExecuteonOracleClient("ManuellSONST", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then
' _Logger.Debug("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!")
' End If
'End If
'If profil.Profilname = "CursorVERANST" Then
' Dim value As String = File.ReadAllText(My.Settings.INSERVERANST, System.Text.Encoding.Default)
' If database.ExecuteonOracleClient("ManuellInsertVeranstaltung", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then
' _Logger.Debug("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!")
' End If
'End If
Else Else
_Logger.Warn("Achtung - Fehler = True - Check Log") _Logger.Debug("Fehler = True - Check Log")
' _Logger.Warn("Fehler = True - Check Log")
bwProfil.ReportProgress(-4) bwProfil.ReportProgress(-4)
End If End If
Else Else
_Logger.Debug("Keine windream-Dokumente für Profil: " & profil.Profilname & " gefunden!") _Logger.Debug("Keine windream-Dokumente für Profil: " & profil.Profilname & " gefunden!")
' keine Dateien zum Indexieren
' keine Dateien zum Importieren
bwProfil.ReportProgress(-4) bwProfil.ReportProgress(-4)
End If End If
Else Else
' _Logger.Warn("_Fehler = True - Check the config of Nachindexierung")
bwProfil.ReportProgress(-4) bwProfil.ReportProgress(-4)
End If End If
@ -491,10 +486,10 @@ Public Class frmNIHauptseite
' nächstes Profil an ProgressBar1 ' nächstes Profil an ProgressBar1
bwProfil.ReportProgress(-2) bwProfil.ReportProgress(-2)
Next Next
'Catch ex As Exception Catch ex As Exception
' _Logger.Error(ex) _Logger.Error(ex)
'End Try End Try
End Sub End Sub
@ -605,7 +600,7 @@ Public Class frmNIHauptseite
If debug Then If debug Then
Dim resultProfilnamen As String = "" Dim resultProfilnamen As String = ""
For Each profil As ClassNIProfil In ClassNIProfile.Profile For Each profil As ClassNIProfil In ClassNIProfile.Profile
_Logger.Info("ProfilName: " & profil.Profilname) _Logger.Info($"Start Profile-Run for ProfilName [{ profil.Profilname}] ")
resultProfilnamen &= "- " & profil.Profilname & vbNewLine resultProfilnamen &= "- " & profil.Profilname & vbNewLine
Next Next
@ -680,7 +675,8 @@ Public Class frmNIHauptseite
'den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen 'den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
DESKINDEX_VALUE = aktivesDokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) DESKINDEX_VALUE = aktivesDokument.GetVariableValue(aktivesProfil.Desk_windreamIndex)
Else Else
_Logger.Warn("Check_Desk_Index: Es wurde kein deskriptiver Index hinterlegt!") _Logger.Warn($"Check_Desk_Index: Es wurde kein deskriptiver Index für das Profil [{aktivesProfil.OriginalProfilname}] hinterlegt!")
Return True
End If End If
Catch ex As Exception Catch ex As Exception
errormsg = " FEHLER bei Check_Desk_Index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message errormsg = " FEHLER bei Check_Desk_Index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message
@ -703,13 +699,15 @@ Public Class frmNIHauptseite
End Function End Function
' Indexiert die windream-Suchergebnisse ' Indexiert die windream-Suchergebnisse
Public Sub IndexiereVerarbeiteDokument(ByVal dokument As WMObject) Public Sub IndexiereVerarbeiteDokument(ByVal dokument As WMObject)
Try Try
If bwDatei.CancellationPending Then If bwDatei.CancellationPending Then
_Logger.Debug("bwDatei.CancellationPending - IndexiereVerarbeiteDokument - Exit Sub")
Exit Sub Exit Sub
End If End If
Dim moved_Folder As String = "" Dim moved_Folder As String = ""
Dim swWorkDocument_All As New ClassStopwatch("WorkDocument_All") Dim swWorkDocument_All As New ClassStopwatch("WorkDocument_All")
_Logger.Info("Indexierung von Dokument '" & Me.aktivesDokument.aName & "'") _Logger.Info("IndexiereVerarbeiteDokument '" & Me.aktivesDokument.aName & "'")
' dient zum Überprüfen auf Fehler ' dient zum Überprüfen auf Fehler
Dim error_in_Indexierung As Boolean = False Dim error_in_Indexierung As Boolean = False
Dim unvollstaendig As Boolean = False Dim unvollstaendig As Boolean = False
@ -753,27 +751,27 @@ Public Class frmNIHauptseite
'################## '##################
'Zuerst überprüfen ob der Deskriptive Idnex einen gültigen Wert zurückliefert 'Zuerst überprüfen ob der Deskriptive Idnex einen gültigen Wert zurückliefert
Try Try
Dim Value As String Dim odescIndexValue As String
' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
Value = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) odescIndexValue = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex)
Dim Check As Integer = Check_DeskIndexValue(Value, aktivesProfil.checkIndexsql) Dim Check As Integer = Check_DeskIndexValue(odescIndexValue, aktivesProfil.checkIndexsql, dokument)
'Überprüfen welcher WErt zurücgekommen ist 'Überprüfen welcher WErt zurücgekommen ist
Select Case Check Select Case Check
Case 0 Case 0
'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
_Logger.Warn("Der deskriptive Indexwert '" & Value & "' verweist auf KEINEN Eintrag in der Datenbank! - Markierung des Doks") _Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf KEINEN Eintrag in der Datenbank!")
fehlermsg &= " >> Der deskriptive Indexwert " & Value & " verweist auf KEINEN Eintrag in der Datenbank!" fehlermsg &= " >> Der deskriptive Indexwert " & odescIndexValue & " verweist auf KEINEN Eintrag in der Datenbank!"
'Fehler = True 'Fehler = True
unvollstaendig = True unvollstaendig = True
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("Value '" & Value & "' not found in Database", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Value '" & odescIndexValue & "' not found in Database", aktivesDokument, aktivesProfil.IndexFehler)
Case 1 Case 1
_Logger.Debug("Der deskriptive Indexwert '" & Value & "' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") _Logger.Debug($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
unvollstaendig = False unvollstaendig = False
Case 2 Case 2
'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet 'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
_Logger.Warn("Der deskriptive Indexwert '" & Value & "' verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!") _Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!")
fehlermsg &= " >> Der deskriptive Indexwert " & Value & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!" fehlermsg &= " >> Der deskriptive Indexwert " & odescIndexValue & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!"
error_in_Indexierung = True error_in_Indexierung = True
unvollstaendig = True unvollstaendig = True
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
@ -987,7 +985,7 @@ Public Class frmNIHauptseite
If Me.aktivesProfil.DbArt = "Oracle" Then If Me.aktivesProfil.DbArt = "Oracle" Then
_NidxWert = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor) _NidxWert = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor)
ElseIf Me.aktivesProfil.DbArt = "MS-SQL" Then ElseIf Me.aktivesProfil.DbArt = "MS-SQL" Then
_NidxWert = database.GetValueFromMssqlDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor) _NidxWert = database.GetValueFromMssqlDb(dokument.aName, aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor)
ElseIf Me.aktivesProfil.DbArt = "ODBC" Then ElseIf Me.aktivesProfil.DbArt = "ODBC" Then
_NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index) _NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index)
ElseIf Me.aktivesProfil.DbArt = "OLE (Access)" Then ElseIf Me.aktivesProfil.DbArt = "OLE (Access)" Then
@ -1053,7 +1051,7 @@ Public Class frmNIHauptseite
_dokxml = _windreamNI.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument _dokxml = _windreamNI.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument
'Überprüfen ob deskriptiver Wert eindeutig? 'Überprüfen ob deskriptiver Wert eindeutig?
_Logger.Debug("Überprüfung ob deskriptiver Wert eindeutig?") _Logger.Debug("Überprüfung ob deskriptiver Wert eindeutig?")
Dim Check As Integer = Check_DeskIndexValue(_NidxWert, aktivesProfil.checkIndexsql) Dim Check As Integer = Check_DeskIndexValue(_NidxWert, aktivesProfil.checkIndexsql, dokument)
Select Case Check Select Case Check
Case 0 Case 0
'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
@ -1192,6 +1190,8 @@ Public Class frmNIHauptseite
End If End If
End If End If
End If End If
Else
End If End If
@ -1211,6 +1211,9 @@ Public Class frmNIHauptseite
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Info($"SWResult: {msg}")
'#### Nachindexierung Ende ##################################################################### '#### Nachindexierung Ende #####################################################################
'############################################################################################### '###############################################################################################
If error_in_Indexierung = True Then
_Logger.Debug("error_in_Indexierung is True - none of following steps will be run!")
End If
'Wenn ein SQL-Ergebnis im Durchlauf einen Wert lieferte wird der finale Index auf True gesetzt 'Wenn ein SQL-Ergebnis im Durchlauf einen Wert lieferte wird der finale Index auf True gesetzt
If NI_Values Is Nothing = False And Not error_in_Indexierung Then If NI_Values Is Nothing = False And Not error_in_Indexierung Then
If Me.aktivesProfil.finalerIndex <> "" And Not error_in_Indexierung And NI_Values.Length >= 1 And NI_Values(0) <> "" Then If Me.aktivesProfil.finalerIndex <> "" And Not error_in_Indexierung And NI_Values.Length >= 1 And NI_Values(0) <> "" Then
@ -1669,13 +1672,13 @@ Public Class frmNIHauptseite
Private Function Nachbearbeitung_AD(ByVal _dokument As WMObject) Private Function Nachbearbeitung_AD(ByVal _dokument As WMObject)
Dim _erfolgreich As Boolean = True Dim _erfolgreich As Boolean = True
Try Try
Dim DT As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE AKTIV = 1 AND NI_PROFILNAME = '" & aktivesProfil.Profilname & "'", True) Dim DT As DataTable = _sqlite.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE AKTIV = 1 AND NI_PROFILNAME = '" & aktivesProfil.Profilname & "'", True)
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
Dim profilID As Integer Dim profilID As Integer
For Each DTrow As DataRow In DT.Rows For Each DTrow As DataRow In DT.Rows
profilID = DTrow.Item("GUID") profilID = DTrow.Item("GUID")
Next Next
Dim DTR As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & profilID, False) Dim DTR As DataTable = _sqlite.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & profilID, False)
If DTR.Rows.Count > 0 Then If DTR.Rows.Count > 0 Then
Dim i As Integer = 0 Dim i As Integer = 0
Dim folgeRegel As Boolean Dim folgeRegel As Boolean
@ -1982,7 +1985,7 @@ Public Class frmNIHauptseite
End Function End Function
Private Shared Function REGEX_REPLACE(_STRING As String) Private Shared Function REGEX_REPLACE(_STRING As String, ByVal oWMFile As WMObject)
Try Try
' Regulären Ausdruck zum Auslesen der windream-Indexe definieren ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@ -1996,16 +1999,17 @@ Public Class frmNIHauptseite
' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "") Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "") reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
_Logger.Debug("Indexwert aus Index/Variable '" & reg_element_Ohne_SZ & "' auslesen....") _Logger.Debug($"{oWMFile.aName} # Indexwert aus Index/Variable [" & reg_element_Ohne_SZ & "] auslesen....")
Dim wdIndexwert Dim wdIndexwert
' den Wert des Indexes für das aktuelle Dokument auslesen ' den Wert des Indexes für das aktuelle Dokument auslesen
wdIndexwert = aktivesDokument.GetVariableValue(reg_element_Ohne_SZ) wdIndexwert = oWMFile.GetVariableValue(reg_element_Ohne_SZ)
If wdIndexwert Is Nothing = False Then If wdIndexwert Is Nothing = False Then
If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
_Logger.Debug("Namenkonvention (" & i & ") " & _STRING) _Logger.Debug($"{oWMFile.aName} # Namenkonvention (" & i & ") " & _STRING)
wdIndexwert = wdIndexwert.ToString.TrimEnd wdIndexwert = wdIndexwert.ToString.TrimEnd
wdIndexwert = wdIndexwert.ToString.TrimStart wdIndexwert = wdIndexwert.ToString.TrimStart
_Logger.Debug("Ausgelesener Indexwert = '" & wdIndexwert & "'") _Logger.Debug($"{oWMFile.aName} # Ausgelesener Indexwert = '" & wdIndexwert & "'")
_STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString) _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
i += 1 i += 1
@ -2025,7 +2029,7 @@ Public Class frmNIHauptseite
Return Nothing Return Nothing
End Try End Try
End Function End Function
Private Function Check_DeskIndexValue(ByVal _indexvalue As String, ByVal _sql As String) Private Function Check_DeskIndexValue(ByVal _indexvalue As String, ByVal _sql As String, ByVal oWMFile As WMObject)
Try Try
Dim sql As String = _sql Dim sql As String = _sql
Dim _vsql Dim _vsql
@ -2036,7 +2040,7 @@ Public Class frmNIHauptseite
' Else ' Else
' _replace = "'" & _indexvalue & "'" ' _replace = "'" & _indexvalue & "'"
End If End If
_vsql = REGEX_REPLACE(sql) _vsql = REGEX_REPLACE(sql, oWMFile)
If _vsql = Nothing Then If _vsql = Nothing Then
Return 0 Return 0
End If End If
@ -2107,6 +2111,12 @@ Public Class frmNIHauptseite
End Select End Select
End Sub End Sub
Sub Start_NachindexierungThreads() Sub Start_NachindexierungThreads()
If My.Settings.vLogErrorsonly = False Then
_MyLogger.Debug = True
Else
_MyLogger.Debug = False
End If
If bwProfil.IsBusy Or bwsearch.IsBusy Then If bwProfil.IsBusy Or bwsearch.IsBusy Then
_Logger.Info("Achtung die Threads laufen noch!") _Logger.Info("Achtung die Threads laufen noch!")
_Logger.Info("bwProfil: " & bwProfil.IsBusy) _Logger.Info("bwProfil: " & bwProfil.IsBusy)
@ -2155,7 +2165,7 @@ Public Class frmNIHauptseite
Sub Abbruch_NI(cancel_Reason As String, Abbruch As Boolean, keeprunning As Boolean) Sub Abbruch_NI(cancel_Reason As String, Abbruch As Boolean, keeprunning As Boolean)
Try Try
_Logger.Warn("Nachindexierung wird abgebrochen - Reason: " & cancel_Reason) _Logger.Info("Nachindexierung wird abgebrochen - Reason: " & cancel_Reason)
Try Try
If Me.bwProfil.IsBusy Or cancel_Reason = "Abbruch nach Timeout Suche" Then If Me.bwProfil.IsBusy Or cancel_Reason = "Abbruch nach Timeout Suche" Then
_Logger.Warn("Thread Profil wird abgebrochen....") _Logger.Warn("Thread Profil wird abgebrochen....")
@ -2184,7 +2194,7 @@ Public Class frmNIHauptseite
End Try End Try
_Logger.Warn("Threads gestoppt - " & Now) _Logger.Info("Threads gestoppt - " & Now)
If keeprunning = False Then If keeprunning = False Then
_Logger.Debug("keeprunning = False - Zurücksetzen") _Logger.Debug("keeprunning = False - Zurücksetzen")
@ -2417,7 +2427,7 @@ Public Class frmNIHauptseite
End Try End Try
End Function End Function
Private Function CrFolderForIndex(ByVal fullfilename As String) Private Function CrFolderForIndex(ByVal fullfilename As String)
_MyLogger.Debug = My.Settings.vLogErrorsonly
Try Try
fullfilename = fullfilename.Replace("W:\", "\\windream\objects\") fullfilename = fullfilename.Replace("W:\", "\\windream\objects\")

263
ToolCollection/frmNI_Nachbearbeitung.Designer.vb generated
View File

@ -1,263 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNI_Nachbearbeitung
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.components = New System.ComponentModel.Container()
Me.TBNACHBEARBEITUNGDataGridView = New System.Windows.Forms.DataGridView()
Me.ProfilnameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.MethodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.RechtenameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.AccessRightDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ErstelltwannDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ErstelltwerDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TBNACHBEARBEITUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DSNachbearbeitung = New ToolCollection.DSNachbearbeitung()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtRightname = New System.Windows.Forms.TextBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.ListBox2 = New System.Windows.Forms.ListBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.ListBox3 = New System.Windows.Forms.ListBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Button5 = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
CType(Me.TBNACHBEARBEITUNGDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBNACHBEARBEITUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSNachbearbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TBNACHBEARBEITUNGDataGridView
'
Me.TBNACHBEARBEITUNGDataGridView.AutoGenerateColumns = False
Me.TBNACHBEARBEITUNGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.TBNACHBEARBEITUNGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ProfilnameDataGridViewTextBoxColumn, Me.MethodeDataGridViewTextBoxColumn, Me.RechtenameDataGridViewTextBoxColumn, Me.AccessRightDataGridViewTextBoxColumn, Me.ErstelltwannDataGridViewTextBoxColumn, Me.ErstelltwerDataGridViewTextBoxColumn})
Me.TBNACHBEARBEITUNGDataGridView.DataSource = Me.TBNACHBEARBEITUNGBindingSource
Me.TBNACHBEARBEITUNGDataGridView.Location = New System.Drawing.Point(549, 50)
Me.TBNACHBEARBEITUNGDataGridView.Name = "TBNACHBEARBEITUNGDataGridView"
Me.TBNACHBEARBEITUNGDataGridView.Size = New System.Drawing.Size(636, 220)
Me.TBNACHBEARBEITUNGDataGridView.TabIndex = 0
'
'ProfilnameDataGridViewTextBoxColumn
'
Me.ProfilnameDataGridViewTextBoxColumn.DataPropertyName = "Profilname"
Me.ProfilnameDataGridViewTextBoxColumn.HeaderText = "Profilname"
Me.ProfilnameDataGridViewTextBoxColumn.Name = "ProfilnameDataGridViewTextBoxColumn"
'
'MethodeDataGridViewTextBoxColumn
'
Me.MethodeDataGridViewTextBoxColumn.DataPropertyName = "Methode"
Me.MethodeDataGridViewTextBoxColumn.HeaderText = "Methode"
Me.MethodeDataGridViewTextBoxColumn.Name = "MethodeDataGridViewTextBoxColumn"
'
'RechtenameDataGridViewTextBoxColumn
'
Me.RechtenameDataGridViewTextBoxColumn.DataPropertyName = "Rechtename"
Me.RechtenameDataGridViewTextBoxColumn.HeaderText = "Rechtename"
Me.RechtenameDataGridViewTextBoxColumn.Name = "RechtenameDataGridViewTextBoxColumn"
'
'AccessRightDataGridViewTextBoxColumn
'
Me.AccessRightDataGridViewTextBoxColumn.DataPropertyName = "AccessRight"
Me.AccessRightDataGridViewTextBoxColumn.HeaderText = "AccessRight"
Me.AccessRightDataGridViewTextBoxColumn.Name = "AccessRightDataGridViewTextBoxColumn"
'
'ErstelltwannDataGridViewTextBoxColumn
'
Me.ErstelltwannDataGridViewTextBoxColumn.DataPropertyName = "Erstelltwann"
Me.ErstelltwannDataGridViewTextBoxColumn.HeaderText = "Erstelltwann"
Me.ErstelltwannDataGridViewTextBoxColumn.Name = "ErstelltwannDataGridViewTextBoxColumn"
'
'ErstelltwerDataGridViewTextBoxColumn
'
Me.ErstelltwerDataGridViewTextBoxColumn.DataPropertyName = "Erstelltwer"
Me.ErstelltwerDataGridViewTextBoxColumn.HeaderText = "Erstelltwer"
Me.ErstelltwerDataGridViewTextBoxColumn.Name = "ErstelltwerDataGridViewTextBoxColumn"
'
'TBNACHBEARBEITUNGBindingSource
'
Me.TBNACHBEARBEITUNGBindingSource.DataMember = "TBNI_NACHBEARBEITUNG_AD"
Me.TBNACHBEARBEITUNGBindingSource.DataSource = Me.DSNachbearbeitung
'
'DSNachbearbeitung
'
Me.DSNachbearbeitung.DataSetName = "DSNachbearbeitung"
Me.DSNachbearbeitung.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(28, 12)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(482, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = "\SDK\Sample\testart-48928.txt"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(28, 38)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 42)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Get FileRights"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(28, 200)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 42)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Get Folder rights"
Me.Button2.UseVisualStyleBackColor = True
'
'txtRightname
'
Me.txtRightname.Location = New System.Drawing.Point(274, 50)
Me.txtRightname.Name = "txtRightname"
Me.txtRightname.Size = New System.Drawing.Size(236, 20)
Me.txtRightname.TabIndex = 4
Me.txtRightname.Text = "Digitaldata.local\schreiberm"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(383, 76)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(127, 23)
Me.Button3.TabIndex = 5
Me.Button3.Text = "Set Right"
Me.Button3.UseVisualStyleBackColor = True
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(28, 99)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(305, 95)
Me.ListBox1.TabIndex = 6
'
'ListBox2
'
Me.ListBox2.FormattingEnabled = True
Me.ListBox2.Location = New System.Drawing.Point(28, 261)
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.Size = New System.Drawing.Size(305, 95)
Me.ListBox2.TabIndex = 7
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(28, 372)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 8
Me.Button4.Text = "Button4"
Me.Button4.UseVisualStyleBackColor = True
'
'ListBox3
'
Me.ListBox3.FormattingEnabled = True
Me.ListBox3.Location = New System.Drawing.Point(129, 372)
Me.ListBox3.Name = "ListBox3"
Me.ListBox3.Size = New System.Drawing.Size(418, 95)
Me.ListBox3.TabIndex = 9
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(28, 401)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(75, 20)
Me.TextBox2.TabIndex = 10
Me.TextBox2.Text = "user"
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(383, 105)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(127, 23)
Me.Button5.TabIndex = 11
Me.Button5.Text = "Set Right Folder"
Me.Button5.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(339, 146)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(136, 17)
Me.CheckBox1.TabIndex = 12
Me.CheckBox1.Text = "Delete all Rights before"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'frmNI_Nachbearbeitung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1197, 558)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.ListBox3)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.ListBox2)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.txtRightname)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.TBNACHBEARBEITUNGDataGridView)
Me.Name = "frmNI_Nachbearbeitung"
Me.Text = "frmNI_Nachbearbeitung"
CType(Me.TBNACHBEARBEITUNGDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBNACHBEARBEITUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSNachbearbeitung, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents DSNachbearbeitung As ToolCollection.DSNachbearbeitung
Friend WithEvents TBNACHBEARBEITUNGBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBNACHBEARBEITUNGDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents txtRightname As System.Windows.Forms.TextBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
Friend WithEvents ProfilnameDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents MethodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents RechtenameDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents AccessRightDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ErstelltwannDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ErstelltwerDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents GeändertwannDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
End Class

126
ToolCollection/frmNI_Nachbearbeitung.resx
View File

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

193
ToolCollection/frmNI_Nachbearbeitung.vb
View File

@ -1,193 +0,0 @@
Public Class frmNI_Nachbearbeitung
Dim _windreamRechte As New ClassWD_Rechte
Private _windream As ClassWindream_allgemein
#Region "+++++ Konstanten +++++"
Const REL_Document_AccessRight = "AccessRight"
Const COL_AccessRight_AccessRight = "dwAccessRight"
Const REL_AccessRight_UserOrGroup = "AccessRightUserOrGroup"
Const WMEntityDocument = 1
Const WMEntityGroups = 13
Const WMEntityUser = 18
Const WMAccessRightUndefined = 0
Const WMAccessRightRead = 1
Const WMAccessRightWrite = 2
Const WMAccessRightAdmin = 4
Const WMAccessRightAllRights = 7
#End Region
Private Sub frmNI_Nachbearbeitung_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Me.TBNACHBEARBEITUNGBindingSource.EndEdit()
Dim filePath As String = Application.StartupPath & "\Nachbearbeitung.xml"
DSNachbearbeitung.WriteXml(filePath)
End Sub
Private Sub TBNACHBEARBEITUNGDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles TBNACHBEARBEITUNGDataGridView.CellContentClick
End Sub
Private Sub frmNI_Nachbearbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
Me._windreamRechte.Init()
If IO.File.Exists(Application.StartupPath & "\Nachbearbeitung.xml") Then
' DSNachbearbeitung.Tables("TBNI_NACHBEARBEITUNG_AD").ReadXml(Application.StartupPath & "\Nachbearbeitung.xml")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Dim WMObject As WINDREAMLib.WMObject
WMObject = Nothing
WMObject = _windreamRechte.oSession.GetWMObjectByPath(WMEntityDocument, Me.TextBox1.Text)
If WMObject IsNot Nothing Then
Dim msg As String
Dim AccessRights = WMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
For Each aRightRelation In AccessRights
Dim dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight)
Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
Dim UserOrGroup = UserGroupRelation.item(0)
If (UserOrGroup.aWMEntity = WMEntityGroups) Then
msg = msg & "Group: "
Else
msg = msg & "User: "
End If
msg = msg & UserOrGroup.aName + " "
If dwAccessRight And WMAccessRightRead Then
msg = msg + "R"
End If
If dwAccessRight And WMAccessRightWrite Then
msg = msg + "W"
End If
If dwAccessRight And WMAccessRightAdmin Then
msg = msg + "A"
End If
ListBox1.Items.Add(msg)
msg = ""
Next
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ListBox2.Items.Clear()
Dim WMObject As WINDREAMLib.WMObject
WMObject = Nothing
WMObject = _windreamRechte.oSession.GetWMObjectByPath(WMEntityDocument, Me.TextBox1.Text)
If WMObject IsNot Nothing Then
WMObject.LockRights()
Dim AccessRights = WMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
Dim WMParent = WMObject.aParentWMObject
Dim ParentAccessRights = WMParent.GetWMObjectRelationByName(REL_Document_AccessRight)
Err.Clear()
Dim msg As String
For Each aRightRelation In ParentAccessRights
Dim dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight)
Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
Dim UserOrGroup = UserGroupRelation.item(0)
If (UserOrGroup.aWMEntity = WMEntityGroups) Then
msg = msg & "Group: "
Else
msg = msg & "User: "
End If
msg = msg & UserOrGroup.aName + " "
If dwAccessRight And WMAccessRightRead Then
msg = msg + "R"
End If
If dwAccessRight And WMAccessRightWrite Then
msg = msg + "W"
End If
If dwAccessRight And WMAccessRightAdmin Then
msg = msg + "A"
End If
ListBox2.Items.Add(msg)
msg = ""
'AccessRights.Insert2(UserOrGroup, dwAccessRight)
Next
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
' _windreamRechte.SetRightFile_AndDelete(Me.TextBox1.Text, Me.txtRightname.Text, 18, 2)
'Dim WMObject As WINDREAMLib.WMObject
'WMObject = Nothing
'WMObject = _windreamRechte.oSession.GetWMObjectByPath(WMEntityDocument, Me.TextBox1.Text)
'If WMObject IsNot Nothing Then
' Err.Clear()
' Dim GruppenRechtname = Me.txtRightname.Text
' Dim sInstitut
' Dim oGroup
' Dim SetUserRights As Boolean = True
' Try
' oGroup = _windreamRechte.oSession.GetWMObjectByName(WMEntityUser, GruppenRechtname)
' Catch ex As Exception
' MsgBox("Fehler bei GetWMObjectByName(WMEntityGroups, sGroup) " & Err.Description)
' SetUserRights = False
' End Try
' If Err.Number <> 0 Then
' MsgBox("Fehler bei GetWMObjectByName(WMEntityGroups, sGroup) " & Err.Description)
' Err.Clear()
' SetUserRights = False
' End If
' WMObject.LockRights()
' If Err.Number <> 0 Then
' MsgBox("Fehler beim Setzen der Sperre für Rechteänderung: .LockRights " & Err.Description)
' Err.Clear()
' SetUserRights = False
' End If
' Dim AccessRights
' AccessRights = WMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
' If lRight = 0 Then
' ' Recht entfernen
' If AccessRights.Includes(oGroup) Then AccessRights.Delete(oGroup)
' Else
' Recht setzen
' AccessRights.Insert2(oGroup, 2)
' End If
' If Err.Number <> 0 Then
' MsgBox("Fehler beim Setzen der Rechte! " & Err.Description)
' Err.Clear()
' SetUserRights = False
' End If
' WMObject.Save()
' If Err.Number <> 0 Then
' MsgBox("Fehler beim Speichern der geänderten Rechte! " & Err.Description)
' Err.Clear()
' SetUserRights = False
' End If
'End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim rechte = _windreamRechte.GetAll_WDRightNames_AdminUsers(TextBox2.Text)
ListBox3.Items.Clear()
If rechte IsNot Nothing Then
For Each recht As String In rechte
If recht Is Nothing = False Then
ListBox3.Items.Add(recht)
End If
Next
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
End Sub
End Class