From a102e0d6331d8801b8b9d779f0b2cec173b984b9 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Fri, 27 Mar 2026 10:08:31 +0100
Subject: [PATCH] dakosy

---
 DAKOSY_Worker/cDakosyFunftions.vb | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/DAKOSY_Worker/cDakosyFunftions.vb b/DAKOSY_Worker/cDakosyFunftions.vb
index 8e638b4..f18006b 100644
--- a/DAKOSY_Worker/cDakosyFunftions.vb
+++ b/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