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

MS22062016

Browse Source
This commit is contained in:
SchreiberM
2016-06-22 10:52:52 +02:00
parent d71de0dc2f
commit fd8e85146a
17 changed files with 1193 additions and 306 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD-Record-Organiser/ClassSAP.vb
View File

@@ -1,19 +1,20 @@
Imports ERPConnect
Public Class ClassSAP
Private Shared SAPConnectionString
Public Shared SAPConnectionString
Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
Try
If LogErrorsOnly = False Then ClassLogger.Add("", False)
If LogErrorsOnly = False Then ClassLogger.Add(">> SAP Connect started:", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connect started:", False)
SAPConnectionString = String.Format("USER={0} LANG={1} CLIENT={2} SYSNR={3} ASHOST={4} PASSWD={5}", Username, Lang, Client, SysNumber, Host, PW)
Dim con As New R3Connection()
ERPConnect.LIC.SetLic("W86DWC992C")
If LogErrorsOnly = False Then ClassLogger.Add(">> " & SAPConnectionString, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connectionstring: " & SAPConnectionString, False)
con.Open(SAPConnectionString)
If LogErrorsOnly = False Then ClassLogger.Add(">> SAP-Connection created!", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection created!", False)
If LogErrorsOnly = False Then ClassLogger.Add("", False)
Return True
Catch ex As Exception
MsgBox("Error in SAP ConnectionInit: " & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Error in SAP ConnectionInit: " & ex.Message, True)
Return False
End Try