From cf0679ec37d374873123bcceef7895eeeb9e3593 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 31 Jan 2025 23:33:45 +0100 Subject: [PATCH] NCTS Transcode; NCTS_FREMD_GETLIST --- initATLASAufschubkonten/frmStartOptions.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 279945f..7bb488c 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/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