NCTS Transcode; NCTS_FREMD_GETLIST

initATLASAufschubkonten/frmStartOptions.vb

@@ -292,6 +292,11 @@ Public Class frmStartOptions
                 f.Show()
                 getEZB_Waehrungskurse90D()
                 closeMe()
+
+            Case "NCTS_FREMD_GETLIST" 'TRANSCODE NCTS HOLEN
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(Now.AddDays(-3), Now, False)
+                closeMe()
             Case "UID_Pruefung"
                 Dim f As New frmInfo(PARAM)
                 f.Show()
@@ -5427,7 +5432,7 @@ Public Class frmStartOptions
     End Sub
 
     Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
-        VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(datTranscodeVon._value, datTranscodeVon._value, cbxOverrideNCTSFin.Checked)
+        VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(datTranscodeVon._value, datTranscodeBis._value, cbxOverrideNCTSFin.Checked)
     End Sub
 
     Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click