atez KI-Upload

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -748,7 +748,7 @@ Public Class cATEZ_NCTS_IN
 
     End Function
 
-    Shared Function authenticate(program As String, Optional client_id As String = "", Optional grant_type As String = "") As String
+    Shared Function authenticate(program As String, Optional client_id As String = "", Optional grant_type As String = "", Optional documentType As String = "") As String
 
         Dim myUri As String = API_STRING
         Dim contentType = "application/json"
@@ -756,7 +756,10 @@ Public Class cATEZ_NCTS_IN
 
         Select Case program
             Case "NCTS" : myUri &= "/api/tds/auth/"
-            Case "VAT" : myUri &= "/token" : contentType = "application/x-www-form-urlencoded" : useBody = False
+            Case "VAT"
+
+                If documentType <> "" Then myUri = myUri.Replace("invoice", documentType)
+                myUri &= "/token" : contentType = "application/x-www-form-urlencoded" : useBody = False
 
 
 
@@ -769,7 +772,7 @@ Public Class cATEZ_NCTS_IN
 
     End Function
 
-    Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String, myUrl As String, Method As String, Optional dt As DataTable = Nothing) As String
+    Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String, myUrl As String, Method As String, Optional dt As DataTable = Nothing, Optional documentType As String = "") As String
         Try
 
             VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
@@ -780,6 +783,9 @@ Public Class cATEZ_NCTS_IN
             Dim bTls As Boolean = True
             Dim port As Integer = 443
             Dim bAutoReconnect As Boolean = True
+
+            If documentType <> "" Then API_STRING = API_STRING.Replace("invoice", documentType)
+
             success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
             If (success <> True) Then
                 Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
@@ -949,9 +955,10 @@ Public Class cATEZ_NCTS_IN
                             Dim invoice As Chilkat.JsonObject = jsonResult.ObjectAt(j)
 
                             Dim R As DataRow = dt.NewRow
+                            Dim totalAmonut As String = invoice.StringOf("total_VAT_amount").Replace(".", ",")
+
                             R("count") = j + 1
                             R("currency") = checkNullStr(invoice.StringOf("currency"))
-                            Dim totalAmonut As String = invoice.StringOf("total_VAT_amount").Replace(".", ",")
                             R("total_VAT_amount") = CDbl(checkNulDbl(totalAmonut))
                             R("invoice_id") = checkNullStr(invoice.StringOf("invoice_id"))
                             R("invoice_date") = checkNullStr(invoice.StringOf("invoice_date"))
@@ -963,6 +970,9 @@ Public Class cATEZ_NCTS_IN
                             R("seller_address_street") = checkNullStr(invoice.StringOf("seller_address_street"))
                             R("status") = checkNullStr(jsonResult.StringOf("status"))
                             R("document_count") = checkNulInt(jsonResult.IntOf("document_count"))
+                            R("doc_index") = checkNulInt(jsonResult.IntOf("doc_index"))
+                            R("page_count") = checkNulInt(jsonResult.IntOf("page_count"))
+                            R("total_pages") = checkNulInt(jsonResult.IntOf("total_pages"))
 
                             dt.Rows.Add(R)
 
@@ -976,10 +986,10 @@ Public Class cATEZ_NCTS_IN
 
                     Return jsonResult.StringOf("atezId")
 
-                    End If
-
                 End If
 
+            End If
+
 
         Catch ex As WebException
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)