From 7ca78e8d65a3cd4a4fefeab08abfb699280f70d9 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Thu, 12 May 2016 13:55:04 +0200 Subject: [PATCH] MS_12052016 --- .../DD_ECMAdmin.Designer.vb | 77 ++++-- app/DD-Record-Organiser/DD_ECMAdmin.xsd | 45 ++-- .../Resources/TableView_nameonly_263.png | Bin 0 -> 187 bytes .../frmConstructor_Main.vb | 8 +- .../frmSAP_FuBa.Designer.vb | 64 +++-- app/DD-Record-Organiser/frmSAP_FuBa.vb | 251 ++++++++++++++++-- 6 files changed, 365 insertions(+), 80 deletions(-) create mode 100644 app/DD-Record-Organiser/Resources/TableView_nameonly_263.png diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb index 9b9b978..fcaa014 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -3021,6 +3021,8 @@ Partial Public Class DD_ECMAdmin Private columnMethod As Global.System.Data.DataColumn + Private columnFuBa_SplitCharacter As Global.System.Data.DataColumn + _ Public Sub New() @@ -3200,6 +3202,14 @@ Partial Public Class DD_ECMAdmin End Get End Property + _ + Public ReadOnly Property FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFuBa_SplitCharacter + End Get + End Property + _ @@ -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 _ + 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 + _ 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 diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsd b/app/DD-Record-Organiser/DD_ECMAdmin.xsd index 13ed95c..5fa992d 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -369,8 +369,8 @@ WHERE (GUID = @Original_GUID) 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()) @@ -387,13 +387,14 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C + 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 @@ -402,8 +403,9 @@ FROM TBPMO_SAP_FUBA 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 -WHERE (GUID = @Original_GUID); + 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) @@ -420,6 +422,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C + @@ -446,6 +449,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C + @@ -457,7 +461,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -503,7 +507,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -624,7 +628,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -697,14 +701,14 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + - + @@ -733,7 +737,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -745,7 +749,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -766,7 +770,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -780,7 +784,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -792,7 +796,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -804,7 +808,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + @@ -909,6 +913,13 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C + + + + + + + @@ -945,7 +956,7 @@ SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, C - + \ No newline at end of file diff --git a/app/DD-Record-Organiser/Resources/TableView_nameonly_263.png b/app/DD-Record-Organiser/Resources/TableView_nameonly_263.png new file mode 100644 index 0000000000000000000000000000000000000000..3e349db84cdfbc39eba334cad7118eccdd5adb83 GIT binary patch literal 187 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1quc!2nMe#}EtuhQz8_OGVtj02#X(>WTI(eBcOT8 dXUdZdhLS&<65Zn~7Xi&?@O1TaS?83{1OU=aJ3asa literal 0 HcmV?d00001 diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 7eb2d6b..8cabc80 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -2356,10 +2356,10 @@ Public Class frmConstructor_Main Exit Sub End Try - End If - CtrlCommandUI.IsInsert = False - RECORD_CHANGED = False End If + CtrlCommandUI.IsInsert = False + RECORD_CHANGED = False + End If End Sub Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean) 'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.ENTITY_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, ENTITY_ID) @@ -2477,7 +2477,7 @@ Public Class frmConstructor_Main 'Databinding Neu BindingSource_Entity.DataSource = DT_SELECTION GridControlMain.DataSource = BindingSource_Entity - + ' Den Editor Initialisieren und Optionen setzen Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() CheckBoxEditorForDisplay.ValueChecked = 1 diff --git a/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb b/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb index af6b5c1..442d75d 100644 --- a/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb +++ b/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb @@ -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 diff --git a/app/DD-Record-Organiser/frmSAP_FuBa.vb b/app/DD-Record-Organiser/frmSAP_FuBa.vb index c92baa5..a1d02e0 100644 --- a/app/DD-Record-Organiser/frmSAP_FuBa.vb +++ b/app/DD-Record-Organiser/frmSAP_FuBa.vb @@ -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 '' AND AR_DATE GE ''" 'Dim sSearchDate1 = "20160101" 'cWhereClause = Replace(cWhereClause, "", 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 - Else - sss() + 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 + 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 \ No newline at end of file