Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

DAKOSY_Worker/cDakosyFunftions.vb

@@ -5,17 +5,21 @@ Imports System.Windows.Forms
 
 Public Class cDakosyFunftions
 
-    Public Shared Function getFirma_DY(FilialenNr As String, F_ME As Form) As String
+    Public Shared Function getFirma_DY(FilialenNr As String, F_ME As Form, Procedure As String) As String
         Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
         If (VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") And FilialenNr = 5501 Then
             FIRMA_DY = "IMEX"
         ElseIf FilialenNr = 5701 Then
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firma = "AMBAR" Then
-                FIRMA_DY = "AMBAR"
-            Else
-                FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.getFirma ' Akt von AMBAR aber kein AMBAR-MA -> Dakosy unter VERAG!
-            End If
-
+            Select Case Procedure
+                Case "NCTS"
+                    FIRMA_DY = "AMBAR"
+                Case Else
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firma = "AMBAR" Then
+                        FIRMA_DY = "AMBAR"
+                    Else
+                        FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.getFirma ' Akt von AMBAR aber kein AMBAR-MA -> Dakosy unter VERAG!
+                    End If
+            End Select
         ElseIf FilialenNr = 5601 Then
             FIRMA_DY = "UNISPED"
         ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then
@@ -63,7 +67,6 @@ Public Class cDakosyFunftions
                 Case "AMBAR"
                     Return "AMBWO"
                 Case "VERAG"
-
                     Select Case PROCEDURE ' Wenn EZA,... -> Alles über Suben
                         Case "EZA", "AA", "AES"
                             Return "SUB"
@@ -123,7 +126,7 @@ Public Class cDakosyFunftions
                 Case "UNISPED"
                     Return "UNAT"
                 Case "AMBAR"
-                    Return "VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
+                    Return "ATIL" '"VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
                 Case Else : Return "VERG"
             End Select
         End If