TC

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

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)

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