ncts fremd api

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb

@@ -2,6 +2,7 @@
 Imports System.IO
 Imports System.Xml
 Imports com.sun.corba.se.spi.orb
+Imports java.lang
 Imports Newtonsoft.Json
 Imports VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_declarations_ApiResponseHandler
 
@@ -9,7 +10,7 @@ Public Class cATEZ_ncts_api
 
     Shared API_KEY = "2a6fe6bf-6547-4d56-b14a-8a18f94f9e94"
 
-    Public Shared Sub query_declarations(startDate As Date, endDate As Date)
+    Public Shared Sub query_declarations(startDate As Date, endDate As Date, Optional OverrideNCTSFin As Boolean = False)
         Try
             ' This example assumes the Chilkat API to have been previously unlocked.
             ' See Global Unlock Sample for sample code.
@@ -53,6 +54,10 @@ Public Class cATEZ_ncts_api
                     NCTS_FREMD.ncts_Partnersystem = "ATEZ"
                     NCTS_FREMD.ncts_MRN = NCTS_TMP.Mrn
 
+                    If NCTS_FREMD.ncts_Status = 60 And OverrideNCTSFin = False Then
+                        'Wenn NCTS beretis Erledigt und kein Flag fürs überschreiben, mach nix....
+                    Else
+
 
                         NCTS_FREMD.ncts_Eroeffnung = NCTS_TMP.MrnDate
 
@@ -134,6 +139,8 @@ Public Class cATEZ_ncts_api
                         End If
 
                         NCTS_FREMD.SAVE_ALL()
+
+                    End If
                 End If
 
             Next