USTV, MSE, MDM
This commit is contained in:
@@ -159,6 +159,103 @@ Public Class cMSEAPI
|
||||
|
||||
End Function
|
||||
|
||||
Public Function getNewestSettlements(jwt As String, dt As DataTable, ByRef batchNr As Integer, ByRef totalPages As Integer, ByRef currentPage As Integer) As String
|
||||
Try
|
||||
Dim returnText As String = ""
|
||||
Dim failureText As String = ""
|
||||
|
||||
Dim success As Boolean
|
||||
|
||||
rest.DebugMode = test
|
||||
|
||||
Dim bTls As Boolean = True
|
||||
Dim port As Integer = 443
|
||||
Dim bAutoReconnect As Boolean = True
|
||||
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
|
||||
Debug.WriteLine(rest.LastErrorText)
|
||||
failureText = rest.LastErrorText
|
||||
Return False
|
||||
End If
|
||||
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason)
|
||||
Debug.WriteLine(rest.LastErrorText)
|
||||
failureText = rest.LastErrorText
|
||||
Return False
|
||||
End If
|
||||
|
||||
rest.ClearAllQueryParams()
|
||||
|
||||
rest.AddHeader("X-API-Key", jwt)
|
||||
|
||||
rest.IdleTimeoutMs = 1000000
|
||||
|
||||
Dim responseJson As String = rest.FullRequestNoBody("GET", "/v1/settlements/new")
|
||||
If (rest.LastMethodSuccess <> True) Then
|
||||
Debug.WriteLine(rest.LastErrorText)
|
||||
rest.IdleTimeoutMs = 30000 'defualt
|
||||
Return rest.LastErrorText
|
||||
End If
|
||||
|
||||
If (rest.ResponseStatusCode <> IIf(rest.DebugMode = True, 201, 200) And rest.ResponseStatusCode <> 404) Then
|
||||
Debug.WriteLine(rest.ResponseHeader)
|
||||
Return rest.LastErrorText
|
||||
End If
|
||||
|
||||
Debug.WriteLine(responseJson)
|
||||
|
||||
'Newest Settlements werden nicht benötigt, erst beim Abrufen der RECHNUNG sollen die dazugehörigen Settlements abgerufen werden, allerdings müssen diese initial 1x per API abgerufen werden (mittels getNewSettlements , ansonsten können Sie nicht gefunden werden)!
|
||||
|
||||
'sollten sie dennoch gespeichert werden, dann fogenden Return-Statement auskommentieren (damit nachfolgender Code ausgeführt werden kann):
|
||||
|
||||
'-------------START---
|
||||
|
||||
Return ""
|
||||
|
||||
'-------------ENDE---
|
||||
|
||||
|
||||
If test Then
|
||||
responseJson = ""
|
||||
End If
|
||||
|
||||
Dim json As New Chilkat.JsonObject
|
||||
success = json.Load(responseJson)
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine(json.LastErrorText)
|
||||
End If
|
||||
|
||||
Debug.WriteLine(json)
|
||||
|
||||
batchNr = json.StringOf("batch_seq_nr")
|
||||
totalPages = json.IntOf("total_pages")
|
||||
currentPage = json.IntOf("page_nr")
|
||||
|
||||
If json.StringOf("message") <> "" AndAlso json.StringOf("message") <> "OK" Then Return json.StringOf("message")
|
||||
|
||||
Dim settlements As New Chilkat.JsonArray
|
||||
settlements = json.ArrayOf("settlements")
|
||||
If (json.LastMethodSuccess = False) Then
|
||||
Debug.WriteLine("settlements member not found.")
|
||||
End If
|
||||
|
||||
|
||||
Dim num As Integer = settlements.Size
|
||||
If num = -1 Then
|
||||
Return "FEHLER im settlementsArray"
|
||||
End If
|
||||
|
||||
If json.StringOf("receiver") = "10738" Then saveSettlements(num, dt, settlements, json.StringOf("receiver"))
|
||||
|
||||
|
||||
Catch ex As WebException
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function getCustomers(jwt As String, dt As DataTable) As String
|
||||
Try
|
||||
Dim returnText As String = ""
|
||||
@@ -324,6 +421,8 @@ Public Class cMSEAPI
|
||||
Try
|
||||
Dim returnText As String = ""
|
||||
Dim failureText As String = ""
|
||||
Dim missingcounter As Integer = 0
|
||||
Dim listOfMissingTransactions As New List(Of String)
|
||||
|
||||
Dim success As Boolean
|
||||
|
||||
@@ -387,26 +486,40 @@ Public Class cMSEAPI
|
||||
End If
|
||||
|
||||
Debug.WriteLine(json)
|
||||
Dim saveTransaction As Boolean = True
|
||||
If json.StringOf("message") <> "" AndAlso json.StringOf("message") <> "OK" Then
|
||||
If Not json.StringOf("message").ToString.Contains("No transaction found for") Then
|
||||
Return json.StringOf("message")
|
||||
Else
|
||||
saveTransaction = False
|
||||
transactionID.Columns("found").ReadOnly = False
|
||||
row.Item("found") = False
|
||||
transactionID.Columns("found").ReadOnly = True
|
||||
|
||||
If json.StringOf("message") <> "" AndAlso json.StringOf("message") <> "OK" Then Return json.StringOf("message")
|
||||
|
||||
Dim transactions As New Chilkat.JsonArray
|
||||
transactions = json.ArrayOf("transactions")
|
||||
If (json.LastMethodSuccess = False) Then
|
||||
Debug.WriteLine("transactions member not found.")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If saveTransaction Then
|
||||
Dim transactions As New Chilkat.JsonArray
|
||||
transactions = json.ArrayOf("transactions")
|
||||
If (json.LastMethodSuccess = False) Then
|
||||
Debug.WriteLine("transactions member not found.")
|
||||
End If
|
||||
|
||||
Dim num As Integer = transactions.Size
|
||||
If num = -1 Then
|
||||
Return "FEHLER Array Transaktions ist leer"
|
||||
|
||||
Dim num As Integer = transactions.Size
|
||||
If num = -1 Then
|
||||
Return "FEHLER Array Transaktions ist leer"
|
||||
End If
|
||||
|
||||
|
||||
'If json.StringOf("receiver") = "10738" Then saveTransactions(num, dt, transactions, json.StringOf("receiver"))
|
||||
saveTransactions(num, dt, transactions, json.StringOf("receiver"), True) ' wenn ID explizit aufgerufen keine Prüfung auf receivcer und purchaseDate
|
||||
End If
|
||||
|
||||
|
||||
'If json.StringOf("receiver") = "10738" Then saveTransactions(num, dt, transactions, json.StringOf("receiver"))
|
||||
saveTransactions(num, dt, transactions, json.StringOf("receiver"), True) ' wenn ID explizit aufgerufen keine Prüfung auf receivcer und purchaseDate
|
||||
|
||||
|
||||
Next row
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user