From d1c19098c980ccd4bd6b45bc392f631a121f7bd5 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Tue, 28 May 2024 19:57:47 +0200
Subject: [PATCH] TC

---
 TELOTEK_Worker_lib/cTC_Functions.vb        |  9 ++++++++-
 TELOTEK_Worker_lib/cTelokec.vb             | 18 ++++++++++++++++--
 initATLASAufschubkonten/frmStartOptions.vb |  8 ++++++++
 3 files changed, 32 insertions(+), 3 deletions(-)

diff --git a/TELOTEK_Worker_lib/cTC_Functions.vb b/TELOTEK_Worker_lib/cTC_Functions.vb
index 62ba82a..791e773 100644
--- a/TELOTEK_Worker_lib/cTC_Functions.vb
+++ b/TELOTEK_Worker_lib/cTC_Functions.vb
@@ -13,7 +13,14 @@ Public Class cTC_Functions
 
             If Not IO.File.Exists(file) Then Return False
             Dim fi As New System.IO.FileInfo(file)
-            Dim UPLOAD_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_SEND", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+
+            Dim UPLOAD_PFAD = ""
+            Select Case FRIMA_DY
+                Case "IMEX"
+                    UPLOAD_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_SEND", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+                Case Else
+                    UPLOAD_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_SEND_VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            End Select
 
 
             Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb
index e0f8823..c19bbbe 100644
--- a/TELOTEK_Worker_lib/cTelokec.vb
+++ b/TELOTEK_Worker_lib/cTelokec.vb
@@ -178,9 +178,17 @@ Public Class cTelotec_Anmeldung
         Me.telanm_Status_KEWILL_Equivalent = "00"
         Me.telanm_Erstellung = Now
         Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
-        Me.telanm_LetzteBearbeitung=now
+        Me.telanm_LetzteBearbeitung=Now
         Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
-        Me.[Mandant_ID] = "IMEX"
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX"
+                Me.[Mandant_ID] = "IMEX"
+            Case "ATILLA"
+                Me.[Mandant_ID] = "Atilla"
+            Case Else
+                Me.[Mandant_ID] = "VER"
+        End Select
+
         Me.[Bereich_ID] = 0
         Me.[Referenz_ID] = 0 '"TC_IMP_" & Now.ToShortDateString("ddMMyyyy_HHmmssfff ")
         Me.[ComIndicator] = 1
@@ -1207,6 +1215,12 @@ Public Class cTelotec_Anmeldung
             'jetzt die Standartofferten  einfügen
             For Each p In POSITIONSDATEN
                 p.telpos_telanmId = telanm_id
+                p.Mandant_ID = Mandant_ID
+                p.Bereich_ID = Bereich_ID
+                p.Referenz_ID = Referenz_ID
+                p.ComIndicator = ComIndicator
+                ' POS.Pos_ID = cnt
+
                 If p.INSERT() Then
                     p.INSERT_Packstücke(p.telpos_id, Me.telanm_id)
                     p.INSERT_Abgaben(p.telpos_id, Me.telanm_id)
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index cce3971..1907155 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -523,6 +523,14 @@ Public Class frmStartOptions
                 Dim f As New frmInfo(PARAM)
                 f.Show()
                 VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24,, "", True)
+                closeMe()
+                '------------------------------
+            Case "AAS" 'Aviso Alert System
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim f As New frmInfo(PARAM)
+                f.Show()
+                doAASVermerke_Schwelle()
+
                 closeMe()
                 '------------------------------
             Case Else