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