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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-05-11 17:19:17 +02:00
parent 4a40698a13
commit d37acafcd9
12 changed files with 429 additions and 221 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb generated
View File

@@ -3019,6 +3019,8 @@ Partial Public Class DD_ECMAdmin
Private columnWHERE_CLAUSE As Global.System.Data.DataColumn
Private columnMethod As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New()
@@ -3190,6 +3192,14 @@ Partial Public Class DD_ECMAdmin
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property MethodColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMethod
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(False)> _
@@ -3243,9 +3253,10 @@ Partial Public Class DD_ECMAdmin
ByVal ADDED_WHEN As Date, _
ByVal CHANGED_WHO As String, _
ByVal CHANGED_WHEN As Date, _
ByVal WHERE_CLAUSE As String) As TBPMO_SAP_FUBARow
ByVal WHERE_CLAUSE As String, _
ByVal Method As String) As TBPMO_SAP_FUBARow
Dim rowTBPMO_SAP_FUBARow As TBPMO_SAP_FUBARow = CType(Me.NewRow, TBPMO_SAP_FUBARow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WHERE_CLAUSE}
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WHERE_CLAUSE, Method}
rowTBPMO_SAP_FUBARow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_SAP_FUBARow)
Return rowTBPMO_SAP_FUBARow
@@ -3291,6 +3302,7 @@ Partial Public Class DD_ECMAdmin
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnWHERE_CLAUSE = MyBase.Columns("WHERE_CLAUSE")
Me.columnMethod = MyBase.Columns("Method")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -3330,6 +3342,8 @@ Partial Public Class DD_ECMAdmin
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnWHERE_CLAUSE = New Global.System.Data.DataColumn("WHERE_CLAUSE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWHERE_CLAUSE)
Me.columnMethod = New Global.System.Data.DataColumn("Method", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMethod)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True))
Me.columnGUID.AutoIncrement = True
Me.columnGUID.AllowDBNull = False
@@ -3360,6 +3374,9 @@ Partial Public Class DD_ECMAdmin
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnWHERE_CLAUSE.MaxLength = 500
Me.columnMethod.AllowDBNull = False
Me.columnMethod.DefaultValue = CType("TABLE", String)
Me.columnMethod.MaxLength = 50
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -6238,6 +6255,17 @@ Partial Public Class DD_ECMAdmin
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property Method() As String
Get
Return CType(Me(Me.tableTBPMO_SAP_FUBA.MethodColumn), String)
End Get
Set(value As String)
Me(Me.tableTBPMO_SAP_FUBA.MethodColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
@@ -9316,6 +9344,7 @@ Namespace DD_ECMAdminTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("WHERE_CLAUSE", "WHERE_CLAUSE")
tableMapping.ColumnMappings.Add("Method", "Method")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -9326,11 +9355,12 @@ Namespace DD_ECMAdminTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (NAME, COMMENT, TableName, H" & _
"ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, " & _
"ADDED_WHO, WHERE_CLAUSE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@COMMENT,@TableName,@Host,@System" & _
"Number,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADDED_WHO,@" & _
"WHERE_CLAUSE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, Use" & _
"rName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN," & _
" CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_IDENTITY())"
"ADDED_WHO, WHERE_CLAUSE, Method)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@COMMENT,@TableName,@Host" & _
",@SystemNumber,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADD" & _
"ED_WHO,@WHERE_CLAUSE,@Method); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, " & _
"SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED" & _
"_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SC" & _
"OPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
@@ -9345,16 +9375,17 @@ Namespace DD_ECMAdminTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET NAME = @NAME, COMMENT = @COMMENT," & _
" TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = " & _
"@UserName, Password = @Password, Client = @Client, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " La" & _
"nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH" & _
"O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_G" & _
"UID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Pa" & _
"ssword, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_" & _
"WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)"
"O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (" & _
"GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemN" & _
"umber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, A" & _
"DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
@@ -9369,6 +9400,7 @@ Namespace DD_ECMAdminTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", ""))
End Sub
@@ -9388,8 +9420,8 @@ Namespace DD_ECMAdminTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Passw" & _
"ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE" & _
"N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_S" & _
"AP_FUBA"
"N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, Method" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _
" TBPMO_SAP_FUBA"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
@@ -9470,7 +9502,7 @@ Namespace DD_ECMAdminTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _
Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String) As Integer
Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String) As Integer
If (NAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("NAME")
Else
@@ -9532,6 +9564,11 @@ Namespace DD_ECMAdminTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String)
End If
If (Method Is Nothing) Then
Throw New Global.System.ArgumentNullException("Method")
Else
Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method, String)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@@ -9551,7 +9588,23 @@ Namespace DD_ECMAdminTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _
Public Overridable Overloads Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Public Overridable Overloads Function Update( _
ByVal NAME As String, _
ByVal COMMENT As String, _
ByVal TableName As String, _
ByVal Host As String, _
ByVal SystemNumber As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal Client As String, _
ByVal Language As String, _
ByVal TempTableName As String, _
ByVal ACTIVE As Boolean, _
ByVal CHANGED_WHO As String, _
ByVal WHERE_CLAUSE As String, _
ByVal Method As String, _
ByVal Original_GUID As Integer, _
ByVal GUID As Integer) As Integer
If (NAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("NAME")
Else
@@ -9613,8 +9666,13 @@ Namespace DD_ECMAdminTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String)
End If
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID, Integer)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID, Integer)
If (Method Is Nothing) Then
Throw New Global.System.ArgumentNullException("Method")
Else
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method, String)
End If
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID, Integer)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID, Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@@ -9663,7 +9721,7 @@ Namespace DD_ECMAdminTableAdapters
Return Me._updateOrder
End Get
Set(value As UpdateOrderOption)
Me._updateOrder = Value
Me._updateOrder = value
End Set
End Property
@@ -9677,7 +9735,7 @@ Namespace DD_ECMAdminTableAdapters
Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter
End Get
Set(value As TBPMO_FORM_CONSTRUCTORTableAdapter)
Me._tBPMO_FORM_CONSTRUCTORTableAdapter = Value
Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value
End Set
End Property
@@ -9691,7 +9749,7 @@ Namespace DD_ECMAdminTableAdapters
Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter
End Get
Set(value As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter)
Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Value
Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value
End Set
End Property
@@ -9705,7 +9763,7 @@ Namespace DD_ECMAdminTableAdapters
Return Me._tBDD_CONNECTIONTableAdapter
End Get
Set(value As TBDD_CONNECTIONTableAdapter)
Me._tBDD_CONNECTIONTableAdapter = Value
Me._tBDD_CONNECTIONTableAdapter = value
End Set
End Property
@@ -9719,7 +9777,7 @@ Namespace DD_ECMAdminTableAdapters
Return Me._tBPMO_SAP_FUBATableAdapter
End Get
Set(value As TBPMO_SAP_FUBATableAdapter)
Me._tBPMO_SAP_FUBATableAdapter = Value
Me._tBPMO_SAP_FUBATableAdapter = value
End Set
End Property
@@ -9730,7 +9788,7 @@ Namespace DD_ECMAdminTableAdapters
Return Me._backupDataSetBeforeUpdate
End Get
Set(value As Boolean)
Me._backupDataSetBeforeUpdate = Value
Me._backupDataSetBeforeUpdate = value
End Set
End Property
@@ -9761,7 +9819,7 @@ Namespace DD_ECMAdminTableAdapters
Return Nothing
End Get
Set(value As Global.System.Data.IDbConnection)
Me._connection = Value
Me._connection = value
End Set
End Property