MS
This commit is contained in:
SchreiberM
@@ -30,6 +30,13 @@ Public Class frmSAP_FuBa
|
||||
Try
|
||||
Me.TBPMO_SAP_FUBATableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_SAP_FUBATableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_SAP_FUBA)
|
||||
If MethodTextBox.Text <> "" Then
|
||||
If MethodTextBox.Text = "TABLE" Then
|
||||
rbTable.Checked = True
|
||||
Else
|
||||
rBFuba.Checked = True
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Fubas:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
@@ -59,58 +66,9 @@ Public Class frmSAP_FuBa
|
||||
Me.Cursor = Cursors.Default
|
||||
lblResult.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
lblSave.Visible = False
|
||||
Exit Sub
|
||||
End Try
|
||||
Try
|
||||
Dim table As New ERPConnect.Utils.ReadTable(con)
|
||||
'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
|
||||
'Dim sSearchDate1 = "20160101"
|
||||
'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
|
||||
'cWhereClause = Replace(cWhereClause, "<AR_DATE>", sSearchDate1)
|
||||
If WHERE_CLAUSETextBox.Text <> "" Then
|
||||
table.AddCriteria(WHERE_CLAUSETextBox.Text)
|
||||
End If
|
||||
|
||||
'ClassLogger.Add(">> cWhereClause: " & cWhereClause, False)
|
||||
'table.AddField("MATNR")
|
||||
'table.AddField("MAKTX")
|
||||
|
||||
' table.AddCriteria("SPRAS = 'DE'")
|
||||
|
||||
table.TableName = TableNameTextBox.Text
|
||||
If txtLimitRows.Text <> "" Then
|
||||
table.RowCount = CInt(txtLimitRows.Text)
|
||||
End If
|
||||
|
||||
|
||||
table.Run()
|
||||
|
||||
Dim resulttable As DataTable
|
||||
resulttable = table.Result
|
||||
Try
|
||||
GridControl2.DataSource = resulttable
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
|
||||
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()
|
||||
If txtLimitRows.Text <> "" Then
|
||||
lblResult.Text = "Result of FuBa (limited to " & txtLimitRows.Text & " rows)"
|
||||
Else
|
||||
lblResult.Text = "Result of FuBa (unlimited) >> " & resulttable.Rows.Count & " rows retreived"
|
||||
End If
|
||||
lblResult.Visible = True
|
||||
Me.Cursor = Cursors.Default
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
|
||||
lblResult.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
GridControl2.DataSource = Nothing
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBPMO_SAP_FUBABindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_SAP_FUBABindingSource.AddingNew
|
||||
@@ -121,6 +79,13 @@ Public Class frmSAP_FuBa
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
lblConnectionopen.Visible = False
|
||||
If MethodTextBox.Text <> "" Then
|
||||
If MethodTextBox.Text = "TABLE" Then
|
||||
rbTable.Checked = True
|
||||
Else
|
||||
rBFuba.Checked = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
@@ -232,4 +197,106 @@ Public Class frmSAP_FuBa
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rbTable_CheckedChanged(sender As Object, e As EventArgs) Handles rbTable.CheckedChanged
|
||||
If rbTable.Checked Then
|
||||
MethodTextBox.Text = "TABLE"
|
||||
lblMethodname.Text = "Table Name"
|
||||
Else
|
||||
lblMethodname.Text = "FuBa Name"
|
||||
MethodTextBox.Text = "FUBA"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MethodTextBox_TextChanged(sender As Object, e As EventArgs) Handles MethodTextBox.TextChanged
|
||||
If MethodTextBox.Text = "TABLE" Then
|
||||
rbTable.Checked = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnGetResult_Click(sender As Object, e As EventArgs) Handles btnGetResult.Click
|
||||
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")
|
||||
con.Host = HostTextBox.Text
|
||||
con.SystemNumber = SystemNumberTextBox.Text
|
||||
con.UserName = UserNameTextBox.Text
|
||||
con.Password = PasswordTextBox.Text
|
||||
con.Client = ClientTextBox.Text
|
||||
con.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)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
lblConnectionopen.Visible = True
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in SAP Connect: " & ex.Message, MsgBoxStyle.Critical)
|
||||
lblConnectionopen.Visible = False
|
||||
Me.Cursor = Cursors.Default
|
||||
lblResult.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
lblSave.Visible = False
|
||||
Exit Sub
|
||||
End Try
|
||||
If rbTable.Checked = True Then
|
||||
Try
|
||||
Dim table As New ERPConnect.Utils.ReadTable(con)
|
||||
'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
|
||||
'Dim sSearchDate1 = "20160101"
|
||||
'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
|
||||
'cWhereClause = Replace(cWhereClause, "<AR_DATE>", sSearchDate1)
|
||||
If WHERE_CLAUSETextBox.Text <> "" Then
|
||||
table.AddCriteria(WHERE_CLAUSETextBox.Text)
|
||||
End If
|
||||
|
||||
'ClassLogger.Add(">> cWhereClause: " & cWhereClause, False)
|
||||
'table.AddField("MATNR")
|
||||
'table.AddField("MAKTX")
|
||||
|
||||
' table.AddCriteria("SPRAS = 'DE'")
|
||||
|
||||
table.TableName = TableNameTextBox.Text
|
||||
If txtLimitRows.Text <> "" Then
|
||||
table.RowCount = CInt(txtLimitRows.Text)
|
||||
End If
|
||||
|
||||
|
||||
table.Run()
|
||||
|
||||
Dim resulttable As DataTable
|
||||
resulttable = table.Result
|
||||
Try
|
||||
GridControl2.DataSource = resulttable
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
|
||||
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()
|
||||
If txtLimitRows.Text <> "" Then
|
||||
lblResult.Text = "Result of FuBa (limited to " & txtLimitRows.Text & " rows)"
|
||||
Else
|
||||
lblResult.Text = "Result of FuBa (unlimited) >> " & resulttable.Rows.Count & " rows retreived"
|
||||
End If
|
||||
lblResult.Visible = True
|
||||
Me.Cursor = Cursors.Default
|
||||
lblSave.Visible = False
|
||||
Catch ex As Exception
|
||||
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
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user