MS_12052016
This commit is contained in:
SchreiberM
parent
e6265cd227
commit
7ca78e8d65
77
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
77
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
@ -3021,6 +3021,8 @@ Partial Public Class DD_ECMAdmin
|
||||
|
||||
Private columnMethod As Global.System.Data.DataColumn
|
||||
|
||||
Private columnFuBa_SplitCharacter 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()
|
||||
@ -3200,6 +3202,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 FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnFuBa_SplitCharacter
|
||||
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)> _
|
||||
@ -3254,9 +3264,10 @@ Partial Public Class DD_ECMAdmin
|
||||
ByVal CHANGED_WHO As String, _
|
||||
ByVal CHANGED_WHEN As Date, _
|
||||
ByVal WHERE_CLAUSE As String, _
|
||||
ByVal Method As String) As TBPMO_SAP_FUBARow
|
||||
ByVal Method As String, _
|
||||
ByVal FuBa_SplitCharacter 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, Method}
|
||||
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, FuBa_SplitCharacter}
|
||||
rowTBPMO_SAP_FUBARow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBPMO_SAP_FUBARow)
|
||||
Return rowTBPMO_SAP_FUBARow
|
||||
@ -3303,6 +3314,7 @@ Partial Public Class DD_ECMAdmin
|
||||
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
||||
Me.columnWHERE_CLAUSE = MyBase.Columns("WHERE_CLAUSE")
|
||||
Me.columnMethod = MyBase.Columns("Method")
|
||||
Me.columnFuBa_SplitCharacter = MyBase.Columns("FuBa_SplitCharacter")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@ -3344,6 +3356,8 @@ Partial Public Class DD_ECMAdmin
|
||||
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.columnFuBa_SplitCharacter = New Global.System.Data.DataColumn("FuBa_SplitCharacter", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnFuBa_SplitCharacter)
|
||||
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
|
||||
@ -3377,6 +3391,9 @@ Partial Public Class DD_ECMAdmin
|
||||
Me.columnMethod.AllowDBNull = False
|
||||
Me.columnMethod.DefaultValue = CType("TABLE", String)
|
||||
Me.columnMethod.MaxLength = 50
|
||||
Me.columnFuBa_SplitCharacter.AllowDBNull = False
|
||||
Me.columnFuBa_SplitCharacter.DefaultValue = CType(";", String)
|
||||
Me.columnFuBa_SplitCharacter.MaxLength = 1
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@ -6266,6 +6283,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 FuBa_SplitCharacter() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn), String)
|
||||
End Get
|
||||
Set(value As String)
|
||||
Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn) = 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
|
||||
@ -9345,6 +9373,7 @@ Namespace DD_ECMAdminTableAdapters
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("WHERE_CLAUSE", "WHERE_CLAUSE")
|
||||
tableMapping.ColumnMappings.Add("Method", "Method")
|
||||
tableMapping.ColumnMappings.Add("FuBa_SplitCharacter", "FuBa_SplitCharacter")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@ -9355,12 +9384,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, 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())"
|
||||
"ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@COM" & _
|
||||
"MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT" & _
|
||||
"ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SE" & _
|
||||
"LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli" & _
|
||||
"ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE" & _
|
||||
"D_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_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, "", "", ""))
|
||||
@ -9376,16 +9405,18 @@ Namespace DD_ECMAdminTableAdapters
|
||||
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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", 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, 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)"
|
||||
"O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _
|
||||
" FuBa_SplitCharacter = @FuBa_SplitCharacter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @O" & _
|
||||
"riginal_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U" & _
|
||||
"serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE" & _
|
||||
"N, 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, "", "", ""))
|
||||
@ -9401,6 +9432,7 @@ Namespace DD_ECMAdminTableAdapters
|
||||
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("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", 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
|
||||
@ -9420,8 +9452,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, Method" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _
|
||||
" TBPMO_SAP_FUBA"
|
||||
"N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, Method, FuBa_SplitChara" & _
|
||||
"cter" & 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
|
||||
|
||||
@ -9502,7 +9534,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, ByVal Method 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, ByVal FuBa_SplitCharacter As String) As Integer
|
||||
If (NAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("NAME")
|
||||
Else
|
||||
@ -9569,6 +9601,11 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method, String)
|
||||
End If
|
||||
If (FuBa_SplitCharacter Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, 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
|
||||
@ -9603,6 +9640,7 @@ Namespace DD_ECMAdminTableAdapters
|
||||
ByVal CHANGED_WHO As String, _
|
||||
ByVal WHERE_CLAUSE As String, _
|
||||
ByVal Method As String, _
|
||||
ByVal FuBa_SplitCharacter As String, _
|
||||
ByVal Original_GUID As Integer, _
|
||||
ByVal GUID As Integer) As Integer
|
||||
If (NAME Is Nothing) Then
|
||||
@ -9671,8 +9709,13 @@ Namespace DD_ECMAdminTableAdapters
|
||||
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)
|
||||
If (FuBa_SplitCharacter Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID, Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(16).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
|
||||
|
||||
@ -369,8 +369,8 @@ WHERE (GUID = @Original_GUID)</CommandText>
|
||||
<InsertCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="true">
|
||||
<CommandText>INSERT INTO TBPMO_SAP_FUBA
|
||||
(NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, WHERE_CLAUSE, Method)
|
||||
VALUES (@NAME,@COMMENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method);
|
||||
(NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)
|
||||
VALUES (@NAME,@COMMENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempTableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter);
|
||||
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 = SCOPE_IDENTITY())</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@ -387,13 +387,14 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="WHERE_CLAUSE" ColumnName="WHERE_CLAUSE" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WHERE_CLAUSE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WHERE_CLAUSE" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="Method" ColumnName="Method" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@Method" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="Method" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="FuBa_SplitCharacter" ColumnName="FuBa_SplitCharacter" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(1)" DbType="AnsiString" Direction="Input" ParameterName="@FuBa_SplitCharacter" Precision="0" ProviderType="VarChar" Scale="0" Size="1" SourceColumn="FuBa_SplitCharacter" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
</Parameters>
|
||||
</DbCommand>
|
||||
</InsertCommand>
|
||||
<SelectCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,
|
||||
CHANGED_WHEN, Method
|
||||
CHANGED_WHEN, Method, FuBa_SplitCharacter
|
||||
FROM TBPMO_SAP_FUBA</CommandText>
|
||||
<Parameters />
|
||||
</DbCommand>
|
||||
@ -402,7 +403,8 @@ FROM TBPMO_SAP_FUBA</CommandText>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="true">
|
||||
<CommandText>UPDATE TBPMO_SAP_FUBA
|
||||
SET NAME = @NAME, COMMENT = @COMMENT, TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = @UserName, Password = @Password, Client = @Client,
|
||||
Language = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method
|
||||
Language = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method,
|
||||
FuBa_SplitCharacter = @FuBa_SplitCharacter
|
||||
WHERE (GUID = @Original_GUID);
|
||||
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 = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
@ -420,6 +422,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="WHERE_CLAUSE" ColumnName="WHERE_CLAUSE" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WHERE_CLAUSE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WHERE_CLAUSE" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="Method" ColumnName="Method" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@Method" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="Method" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="FuBa_SplitCharacter" ColumnName="FuBa_SplitCharacter" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="varchar(1)" DbType="AnsiString" Direction="Input" ParameterName="@FuBa_SplitCharacter" Precision="0" ProviderType="VarChar" Scale="0" Size="1" SourceColumn="FuBa_SplitCharacter" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_SAP_FUBA" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
</Parameters>
|
||||
@ -446,6 +449,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
|
||||
<Mapping SourceColumn="WHERE_CLAUSE" DataSetColumn="WHERE_CLAUSE" />
|
||||
<Mapping SourceColumn="Method" DataSetColumn="Method" />
|
||||
<Mapping SourceColumn="FuBa_SplitCharacter" DataSetColumn="FuBa_SplitCharacter" />
|
||||
</Mappings>
|
||||
<Sources />
|
||||
</TableAdapter>
|
||||
@ -457,7 +461,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
<xs:element name="DD_ECMAdmin" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DD_ECMAdmin" msprop:Generator_UserDSName="DD_ECMAdmin">
|
||||
<xs:complexType>
|
||||
<xs:choice minOccurs="0" maxOccurs="unbounded">
|
||||
<xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow">
|
||||
<xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -503,7 +507,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow">
|
||||
<xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -624,7 +628,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
|
||||
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
|
||||
@ -697,14 +701,14 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="DT_VORSCHAU" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_UserTableName="DT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent" msprop:Generator_RowClassName="DT_VORSCHAURow">
|
||||
<xs:element name="DT_VORSCHAU" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_RowClassName="DT_VORSCHAURow" msprop:Generator_UserTableName="DT_VORSCHAU" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE" type="xs:string" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="VWTEMPQUICKVIEW" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent">
|
||||
<xs:element name="VWTEMPQUICKVIEW" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Record-ID" msprop:Generator_ColumnVarNameInTable="_columnRecord_ID" msprop:Generator_ColumnPropNameInRow="_Record_ID" msprop:Generator_ColumnPropNameInTable="_Record_IDColumn" msprop:Generator_UserColumnName="Record-ID" type="xs:int" />
|
||||
@ -733,7 +737,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent" msprop:Generator_RowClassName="TBAD_UsersRow">
|
||||
<xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_RowClassName="TBAD_UsersRow" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
|
||||
@ -745,7 +749,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBWH_ENTITIES" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_RowClassName="TBWH_ENTITIESRow" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent">
|
||||
<xs:element name="TBWH_ENTITIES" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITIES" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent" msprop:Generator_RowClassName="TBWH_ENTITIESRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -766,7 +770,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBWH_USER_GROUPS" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent">
|
||||
<xs:element name="TBWH_USER_GROUPS" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -780,7 +784,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBWH_Users1" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_TableVarName="tableTBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_RowClassName="TBWH_Users1Row" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent">
|
||||
<xs:element name="TBWH_Users1" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_TableVarName="tableTBWH_Users1" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent" msprop:Generator_RowClassName="TBWH_Users1Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
|
||||
@ -792,7 +796,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBWH_Users2" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_UserTableName="TBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent" msprop:Generator_RowClassName="TBWH_Users2Row">
|
||||
<xs:element name="TBWH_Users2" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_RowClassName="TBWH_Users2Row" msprop:Generator_UserTableName="TBWH_Users2" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
|
||||
@ -804,7 +808,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TBPMO_SAP_FUBA" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_UserTableName="TBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow">
|
||||
<xs:element name="TBPMO_SAP_FUBA" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow" msprop:Generator_UserTableName="TBPMO_SAP_FUBA" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
|
||||
@ -909,6 +913,13 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="FuBa_SplitCharacter" msprop:Generator_ColumnVarNameInTable="columnFuBa_SplitCharacter" msprop:Generator_ColumnPropNameInRow="FuBa_SplitCharacter" msprop:Generator_ColumnPropNameInTable="FuBa_SplitCharacterColumn" msprop:Generator_UserColumnName="FuBa_SplitCharacter" default=";">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="1" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
@ -945,7 +956,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C
|
||||
</xs:element>
|
||||
<xs:annotation>
|
||||
<xs:appinfo>
|
||||
<msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" />
|
||||
<msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" />
|
||||
</xs:appinfo>
|
||||
</xs:annotation>
|
||||
</xs:schema>
|
||||
BIN
app/DD-Record-Organiser/Resources/TableView_nameonly_263.png
Normal file
BIN
app/DD-Record-Organiser/Resources/TableView_nameonly_263.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 187 B |
64
app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb
generated
64
app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb
generated
@ -80,7 +80,7 @@ Partial Class frmSAP_FuBa
|
||||
Me.lblSave = New System.Windows.Forms.Label()
|
||||
Me.lblConnectionopen = New System.Windows.Forms.Label()
|
||||
Me.lblResult = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.btnInsertData = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtLimitRows = New System.Windows.Forms.TextBox()
|
||||
Me.rBFuba = New System.Windows.Forms.RadioButton()
|
||||
@ -88,6 +88,8 @@ Partial Class frmSAP_FuBa
|
||||
Me.MethodTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.lblMethodname = New System.Windows.Forms.Label()
|
||||
Me.btnGetResult = New System.Windows.Forms.Button()
|
||||
Me.FuBa_SplitCharacterTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.lblSplitchr = New System.Windows.Forms.Label()
|
||||
GUIDLabel = New System.Windows.Forms.Label()
|
||||
NAMELabel = New System.Windows.Forms.Label()
|
||||
COMMENTLabel = New System.Windows.Forms.Label()
|
||||
@ -284,7 +286,7 @@ Partial Class frmSAP_FuBa
|
||||
Me.TBPMO_SAP_FUBABindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
|
||||
Me.TBPMO_SAP_FUBABindingNavigator.Name = "TBPMO_SAP_FUBABindingNavigator"
|
||||
Me.TBPMO_SAP_FUBABindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
|
||||
Me.TBPMO_SAP_FUBABindingNavigator.Size = New System.Drawing.Size(1207, 25)
|
||||
Me.TBPMO_SAP_FUBABindingNavigator.Size = New System.Drawing.Size(1215, 25)
|
||||
Me.TBPMO_SAP_FUBABindingNavigator.TabIndex = 0
|
||||
Me.TBPMO_SAP_FUBABindingNavigator.Text = "BindingNavigator1"
|
||||
'
|
||||
@ -559,7 +561,7 @@ Partial Class frmSAP_FuBa
|
||||
Me.GridControl2.Location = New System.Drawing.Point(5, 358)
|
||||
Me.GridControl2.MainView = Me.GridView2
|
||||
Me.GridControl2.Name = "GridControl2"
|
||||
Me.GridControl2.Size = New System.Drawing.Size(1190, 339)
|
||||
Me.GridControl2.Size = New System.Drawing.Size(1198, 358)
|
||||
Me.GridControl2.TabIndex = 83
|
||||
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
|
||||
'
|
||||
@ -626,18 +628,18 @@ Partial Class frmSAP_FuBa
|
||||
Me.lblResult.Text = "Result (limited to 1000 rows)"
|
||||
Me.lblResult.Visible = False
|
||||
'
|
||||
'Button1
|
||||
'btnInsertData
|
||||
'
|
||||
Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(389, 161)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(176, 24)
|
||||
Me.Button1.TabIndex = 88
|
||||
Me.Button1.Text = "Insert results in temptable"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
Me.btnInsertData.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnInsertData.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626
|
||||
Me.btnInsertData.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnInsertData.Location = New System.Drawing.Point(463, 161)
|
||||
Me.btnInsertData.Name = "btnInsertData"
|
||||
Me.btnInsertData.Size = New System.Drawing.Size(176, 24)
|
||||
Me.btnInsertData.TabIndex = 88
|
||||
Me.btnInsertData.Text = "Insert results in temptable"
|
||||
Me.btnInsertData.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnInsertData.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
@ -695,9 +697,10 @@ Partial Class frmSAP_FuBa
|
||||
'lblMethodname
|
||||
'
|
||||
Me.lblMethodname.AutoSize = True
|
||||
Me.lblMethodname.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblMethodname.Location = New System.Drawing.Point(184, 189)
|
||||
Me.lblMethodname.Name = "lblMethodname"
|
||||
Me.lblMethodname.Size = New System.Drawing.Size(40, 13)
|
||||
Me.lblMethodname.Size = New System.Drawing.Size(41, 13)
|
||||
Me.lblMethodname.TabIndex = 94
|
||||
Me.lblMethodname.Text = "Label2"
|
||||
'
|
||||
@ -706,25 +709,46 @@ Partial Class frmSAP_FuBa
|
||||
Me.btnGetResult.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnGetResult.Image = Global.DD_Record_Organiser.My.Resources.Resources.TableView_nameonly_263
|
||||
Me.btnGetResult.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnGetResult.Location = New System.Drawing.Point(389, 203)
|
||||
Me.btnGetResult.Location = New System.Drawing.Point(463, 203)
|
||||
Me.btnGetResult.Name = "btnGetResult"
|
||||
Me.btnGetResult.Size = New System.Drawing.Size(176, 23)
|
||||
Me.btnGetResult.TabIndex = 95
|
||||
Me.btnGetResult.Text = "SAP Result testen"
|
||||
Me.btnGetResult.UseVisualStyleBackColor = True
|
||||
'
|
||||
'FuBa_SplitCharacterTextBox
|
||||
'
|
||||
Me.FuBa_SplitCharacterTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_SAP_FUBABindingSource, "FuBa_SplitCharacter", True))
|
||||
Me.FuBa_SplitCharacterTextBox.Location = New System.Drawing.Point(378, 205)
|
||||
Me.FuBa_SplitCharacterTextBox.Name = "FuBa_SplitCharacterTextBox"
|
||||
Me.FuBa_SplitCharacterTextBox.Size = New System.Drawing.Size(25, 22)
|
||||
Me.FuBa_SplitCharacterTextBox.TabIndex = 96
|
||||
Me.FuBa_SplitCharacterTextBox.Visible = False
|
||||
'
|
||||
'lblSplitchr
|
||||
'
|
||||
Me.lblSplitchr.AutoSize = True
|
||||
Me.lblSplitchr.Location = New System.Drawing.Point(378, 189)
|
||||
Me.lblSplitchr.Name = "lblSplitchr"
|
||||
Me.lblSplitchr.Size = New System.Drawing.Size(79, 13)
|
||||
Me.lblSplitchr.TabIndex = 97
|
||||
Me.lblSplitchr.Text = "SplitCharacter"
|
||||
Me.lblSplitchr.Visible = False
|
||||
'
|
||||
'frmSAP_FuBa
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1207, 698)
|
||||
Me.ClientSize = New System.Drawing.Size(1215, 717)
|
||||
Me.Controls.Add(Me.lblSplitchr)
|
||||
Me.Controls.Add(Me.FuBa_SplitCharacterTextBox)
|
||||
Me.Controls.Add(Me.btnGetResult)
|
||||
Me.Controls.Add(Me.lblMethodname)
|
||||
Me.Controls.Add(Me.rbTable)
|
||||
Me.Controls.Add(Me.rBFuba)
|
||||
Me.Controls.Add(Me.txtLimitRows)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.btnInsertData)
|
||||
Me.Controls.Add(Me.lblResult)
|
||||
Me.Controls.Add(Me.lblConnectionopen)
|
||||
Me.Controls.Add(Me.lblSave)
|
||||
@ -821,7 +845,7 @@ Partial Class frmSAP_FuBa
|
||||
Friend WithEvents lblSave As System.Windows.Forms.Label
|
||||
Friend WithEvents lblConnectionopen As System.Windows.Forms.Label
|
||||
Friend WithEvents lblResult As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnInsertData As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtLimitRows As System.Windows.Forms.TextBox
|
||||
Friend WithEvents rBFuba As System.Windows.Forms.RadioButton
|
||||
@ -829,4 +853,6 @@ Partial Class frmSAP_FuBa
|
||||
Friend WithEvents MethodTextBox As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblMethodname As System.Windows.Forms.Label
|
||||
Friend WithEvents btnGetResult As System.Windows.Forms.Button
|
||||
Friend WithEvents FuBa_SplitCharacterTextBox As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblSplitchr As System.Windows.Forms.Label
|
||||
End Class
|
||||
|
||||
@ -60,6 +60,7 @@ Public Class frmSAP_FuBa
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> SAP-Connection erfolgreich aufgebaut!", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
lblConnectionopen.Visible = True
|
||||
Me.Cursor = Cursors.Default
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in SAP Connect: " & ex.Message, MsgBoxStyle.Critical)
|
||||
lblConnectionopen.Visible = False
|
||||
@ -67,6 +68,7 @@ Public Class frmSAP_FuBa
|
||||
lblResult.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
lblSave.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End Try
|
||||
End Sub
|
||||
@ -88,11 +90,12 @@ Public Class frmSAP_FuBa
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnInsertData.Click
|
||||
If TempTableNameTextBox.Text <> "" Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim con As New R3Connection
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> SAP Connect started:", False)
|
||||
ERPConnect.LIC.SetLic("W86DWC992C")
|
||||
@ -215,24 +218,25 @@ Public Class frmSAP_FuBa
|
||||
End Sub
|
||||
|
||||
Private Sub btnGetResult_Click(sender As Object, e As EventArgs) Handles btnGetResult.Click
|
||||
Dim con As New R3Connection
|
||||
Dim SAPCon As New R3Connection
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> SAP Connect started:", False)
|
||||
ERPConnect.LIC.SetLic("W86DWC992C")
|
||||
con.Host = HostTextBox.Text
|
||||
con.SystemNumber = SystemNumberTextBox.Text
|
||||
con.UserName = UserNameTextBox.Text
|
||||
con.Password = PasswordTextBox.Text
|
||||
con.Client = ClientTextBox.Text
|
||||
con.Language = LanguageTextBox.Text
|
||||
SAPCon.Host = HostTextBox.Text
|
||||
SAPCon.SystemNumber = SystemNumberTextBox.Text
|
||||
SAPCon.UserName = UserNameTextBox.Text
|
||||
SAPCon.Password = PasswordTextBox.Text
|
||||
SAPCon.Client = ClientTextBox.Text
|
||||
SAPCon.Language = LanguageTextBox.Text
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text, False)
|
||||
con.Open(False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> SAP-Connection erfolgreich aufgebaut!", False)
|
||||
SAPCon.Open(False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> SAP-Connection created and connected!", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
lblConnectionopen.Visible = True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in SAP Connect: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in SAP Connect: " & ex.Message, MsgBoxStyle.Critical)
|
||||
lblConnectionopen.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
@ -241,9 +245,11 @@ Public Class frmSAP_FuBa
|
||||
lblSave.Visible = False
|
||||
Exit Sub
|
||||
End Try
|
||||
Dim SAPResulttable As DataTable = New DataTable
|
||||
If rbTable.Checked = True Then
|
||||
Try
|
||||
Dim table As New ERPConnect.Utils.ReadTable(con)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> Get data from SAP Table", False)
|
||||
Dim table As New ERPConnect.Utils.ReadTable(SAPCon)
|
||||
'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
|
||||
'Dim sSearchDate1 = "20160101"
|
||||
'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
|
||||
@ -262,41 +268,240 @@ Public Class frmSAP_FuBa
|
||||
If txtLimitRows.Text <> "" Then
|
||||
table.RowCount = CInt(txtLimitRows.Text)
|
||||
End If
|
||||
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">>Table.Run executed", False)
|
||||
table.Run()
|
||||
|
||||
Dim resulttable As DataTable
|
||||
resulttable = table.Result
|
||||
|
||||
SAPResulttable = table.Result
|
||||
Try
|
||||
GridControl2.DataSource = resulttable
|
||||
GridControl2.DataSource = SAPResulttable
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add(">> Unexpected Error in GridControl2 >> DataTable 1: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
End Try
|
||||
Dim i As Integer
|
||||
|
||||
'For Each row As DataRow In resulttable.Rows
|
||||
' ClassLogger.Add(">> " & row.Item(0).ToString & "|" & row.Item(1).ToString & "|" & row.Item(2).ToString)
|
||||
'Next
|
||||
con.Close()
|
||||
SAPCon.Close()
|
||||
If txtLimitRows.Text <> "" Then
|
||||
lblResult.Text = "Result of FuBa (limited to " & txtLimitRows.Text & " rows)"
|
||||
lblResult.Text = "Result of SAP Table (limited to " & txtLimitRows.Text & " rows)"
|
||||
Else
|
||||
lblResult.Text = "Result of FuBa (unlimited) >> " & resulttable.Rows.Count & " rows retreived"
|
||||
lblResult.Text = "Result of SAP Table (unlimited) >> " & SAPResulttable.Rows.Count & " rows retreived"
|
||||
End If
|
||||
lblResult.Visible = True
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
End Try
|
||||
End If
|
||||
If rBFuba.Checked = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False)
|
||||
Dim func As RFCFunction
|
||||
Try
|
||||
func = SAPCon.CreateFunction(TableNameTextBox.Text)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False)
|
||||
func.Execute()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Create SAP Function: " & ex.Message, False)
|
||||
MsgBox("Error in Create SAP Function: " & ex.Message, MsgBoxStyle.Critical)
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
Exit Sub
|
||||
End Try
|
||||
Dim FUNCT_ROW_COUNT As Integer = 1
|
||||
Dim RowMaskresult As String
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Checking FunctionExecute", False)
|
||||
'Den ersten Wert ausgeben lassen um die Spalten zu splitten
|
||||
|
||||
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
|
||||
Try
|
||||
If row.Item(1).ToString.Contains(FuBa_SplitCharacterTextBox.Text) Then
|
||||
RowMaskresult = row.Item(1).ToString
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowMask result: " & RowMaskresult, False)
|
||||
FUNCT_ROW_COUNT = 2
|
||||
End If
|
||||
Catch ex As Exception
|
||||
RowMaskresult = "ErrorInGetSeperatedResult: " & ex.Message
|
||||
End Try
|
||||
If FUNCT_ROW_COUNT = 2 Then Exit For
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
|
||||
MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
|
||||
SAPCon.Close()
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
Exit Sub
|
||||
End Try
|
||||
FUNCT_ROW_COUNT = 1
|
||||
Dim ColCount As Integer
|
||||
If FuBa_SplitCharacterTextBox.Text <> "" And RowMaskresult.Contains(FuBa_SplitCharacterTextBox.Text) Then
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Define Datatable with SplitCharacter method", False)
|
||||
Dim split() = RowMaskresult.Split(FuBa_SplitCharacterTextBox.Text)
|
||||
If split.Length > 0 Then
|
||||
ColCount = split.Length - 1
|
||||
If LogErrorsOnly = False Then
|
||||
ClassLogger.Add(" >> ColCount: " & ColCount.ToString, False)
|
||||
ClassLogger.Add(" >> Split-Results: ", False)
|
||||
For Each s As String In split
|
||||
ClassLogger.Add(" # " & s, False)
|
||||
Next
|
||||
End If
|
||||
For x = 0 To ColCount
|
||||
' Declare DataColumn and DataRow variables.
|
||||
Dim column As DataColumn
|
||||
column = New DataColumn()
|
||||
column = New DataColumn()
|
||||
column.DataType = Type.GetType("System.String")
|
||||
column.ColumnName = "Column " & x.ToString
|
||||
SAPResulttable.Columns.Add(column)
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Columns after Split created", False)
|
||||
' Create new DataRow objects and add to DataTable.
|
||||
'Jetzt die Zeilen der Function durchlaufen
|
||||
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
|
||||
Dim new_row As DataRow
|
||||
If txtLimitRows.Text <> "" Then
|
||||
If CInt(txtLimitRows.Text) = FUNCT_ROW_COUNT Then
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
new_row = SAPResulttable.NewRow()
|
||||
Dim Rowresult As String = row.Item(1).ToString
|
||||
If Rowresult.Contains(FuBa_SplitCharacterTextBox.Text) Then
|
||||
Dim RowSplit() = RowMaskresult.Split(FuBa_SplitCharacterTextBox.Text)
|
||||
Dim col_index = 0
|
||||
'Jetzt die Spaltenwerte in die NewRow eintragen
|
||||
For x = 0 To ColCount
|
||||
new_row(x) = RowSplit(x)
|
||||
Next
|
||||
SAPResulttable.Rows.Add(new_row)
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical)
|
||||
SAPCon.Close()
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
Else
|
||||
sss()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Define Datatable WITHOUT SplitCharacter method", False)
|
||||
' Declare DataColumn and DataRow variables.
|
||||
Dim column As DataColumn
|
||||
' Create new DataColumn, set DataType, ColumnName and add to DataTable.
|
||||
column = New DataColumn()
|
||||
column.DataType = System.Type.GetType("System.Int32")
|
||||
column.ColumnName = "id"
|
||||
SAPResulttable.Columns.Add(column)
|
||||
' Create second column.
|
||||
column = New DataColumn()
|
||||
column.DataType = Type.GetType("System.String")
|
||||
column.ColumnName = "FuBa-Result"
|
||||
SAPResulttable.Columns.Add(column)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Columns created", False)
|
||||
' Create new DataRow objects and add to DataTable.
|
||||
Try
|
||||
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
|
||||
Dim new_row As DataRow
|
||||
If LogErrorsOnly = False And FUNCT_ROW_COUNT = 1 Then
|
||||
ClassLogger.Add(" >> The first 30 rows will be logged", False)
|
||||
End If
|
||||
If txtLimitRows.Text <> "" Then
|
||||
If CInt(txtLimitRows.Text) = FUNCT_ROW_COUNT Then
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
new_row = SAPResulttable.NewRow()
|
||||
|
||||
Dim Result As String
|
||||
Try
|
||||
Result = row.Item(1).ToString
|
||||
Catch ex As Exception
|
||||
Result = "2 Empty"
|
||||
End Try
|
||||
new_row("id") = FUNCT_ROW_COUNT
|
||||
new_row("FuBa-Result") = Result
|
||||
|
||||
If LogErrorsOnly = False And FUNCT_ROW_COUNT <= 30 Then
|
||||
ClassLogger.Add(" >> Result Row: " & Result, False)
|
||||
End If
|
||||
FUNCT_ROW_COUNT += 1
|
||||
SAPResulttable.Rows.Add(new_row)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Create SAP Function-Create Datatable: " & ex.Message, False)
|
||||
MsgBox("Error in Create Datatable: " & ex.Message, MsgBoxStyle.Critical)
|
||||
SAPCon.Close()
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
Exit Sub
|
||||
End Try
|
||||
End If
|
||||
'Jetzt dem Grid die Datasource zuordnen
|
||||
Try
|
||||
If SAPResulttable.Rows.Count > 0 Then
|
||||
GridControl2.DataSource = SAPResulttable
|
||||
End If
|
||||
SAPCon.Close()
|
||||
If txtLimitRows.Text <> "" Then
|
||||
lblResult.Text = "Result of FuBa (limited to " & txtLimitRows.Text & " rows)"
|
||||
Else
|
||||
lblResult.Text = "Result of FuBa (unlimited) >> " & SAPResulttable.Rows.Count & " rows retreived"
|
||||
End If
|
||||
lblResult.Visible = True
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
Catch ex As Exception
|
||||
SAPCon.Close()
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
ClassLogger.Add(">> Unexpected Error in GridControl2 >> DataTable 2: " & ex.Message, False)
|
||||
MsgBox("Error in GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rBFuba_CheckedChanged(sender As Object, e As EventArgs) Handles rBFuba.CheckedChanged
|
||||
If rBFuba.Checked = True Then
|
||||
Me.FuBa_SplitCharacterTextBox.Visible = True
|
||||
lblSplitchr.Visible = True
|
||||
Else
|
||||
Me.FuBa_SplitCharacterTextBox.Visible = False
|
||||
lblSplitchr.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Loading…
x
Reference in New Issue
Block a user