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

MS_22062016

Browse Source
This commit is contained in:
SchreiberM
2016-06-22 13:12:45 +02:00
parent fd8e85146a
commit 41e7886a6b
11 changed files with 521 additions and 186 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD-Record-Organiser/frmSAP_FuBa.vb
View File

@@ -50,7 +50,6 @@ Public Class frmSAP_FuBa
End Sub
Private Sub btnERPConnect_Click(sender As Object, e As EventArgs) Handles btnERPConnect.Click
Dim con As New R3Connection
Me.Cursor = Cursors.WaitCursor
If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then
lblConnectionopen.Text = "SAP Connection successfull"
@@ -110,8 +109,6 @@ Public Class frmSAP_FuBa
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnInsertData.Click
If TempTableNameTextBox.Text <> "" Then
Dim SAPCon As New R3Connection
Me.Cursor = Cursors.WaitCursor
If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then
lblConnectionopen.Visible = True
@@ -135,7 +132,7 @@ Public Class frmSAP_FuBa
End If
End If
If SAPResulttable Is Nothing Then
SAPCon.Close()
ClassSAP.SAP_CONNECTION.Close()
lblResult.Visible = False
Me.Cursor = Cursors.Default
lblSave.Visible = False
@@ -145,8 +142,8 @@ Public Class frmSAP_FuBa
End If
'######
Dim i = 0
Dim tablename = "[TBPMO_SAPFUBA_" & TempTableNameTextBox.Text & "]"
Dim createtablesql = "CREATE TABLE TBPMO_SAPFUBA_" & TempTableNameTextBox.Text & " ("
Dim tablename = "[TBPMO_SAP_" & TempTableNameTextBox.Text & "]"
Dim createtablesql = "CREATE TABLE TBPMO_SAP_" & TempTableNameTextBox.Text & " ("
For Each col As System.Data.DataColumn In SAPResulttable.Columns
@@ -248,7 +245,7 @@ Public Class frmSAP_FuBa
End Sub
Private Sub btnGetResult_Click(sender As Object, e As EventArgs) Handles btnGetResult.Click
Dim SAPCon As New R3Connection
Dim sw As New Stopwatch
sw.Start()
m_CountTo = 100
@@ -270,7 +267,7 @@ Public Class frmSAP_FuBa
If rbTable.Checked = True Then
Try
If LogErrorsOnly = False Then ClassLogger.Add(">> Get data from SAP Table", False)
Dim table As New ERPConnect.Utils.ReadTable(SAPCon)
Dim table As New ERPConnect.Utils.ReadTable(ClassSAP.SAP_CONNECTION)
'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
'Dim sSearchDate1 = "20160101"
'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
@@ -309,7 +306,7 @@ Public Class frmSAP_FuBa
'For Each row As DataRow In resulttable.Rows
' ClassLogger.Add(">> " & row.Item(0).ToString & "|" & row.Item(1).ToString & "|" & row.Item(2).ToString)
'Next
SAPCon.Close()
ClassSAP.SAP_CONNECTION.Close()
If txtLimitRows.Text <> "" Then
lblResult.Text = "Result of SAP Table (limited to " & txtLimitRows.Text & " rows)"
Else
@@ -495,7 +492,7 @@ Public Class frmSAP_FuBa
' End Try
End If
If SAPResulttable Is Nothing Then
SAPCon.Close()
ClassSAP.SAP_CONNECTION.Close()
lblResult.Visible = False
Me.Cursor = Cursors.Default
lblSave.Visible = False
@@ -511,7 +508,7 @@ Public Class frmSAP_FuBa
If SAPResulttable.Rows.Count > 0 Then
GridControl2.DataSource = SAPResulttable
End If
SAPCon.Close()
ClassSAP.SAP_CONNECTION.Close()
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
@@ -525,7 +522,7 @@ Public Class frmSAP_FuBa
lblSave.Visible = False
Catch ex As Exception
SAPCon.Close()
ClassSAP.SAP_CONNECTION.Close()
lblResult.Visible = False
Me.Cursor = Cursors.Default
lblSave.Visible = False